Article View: cn.bbs.comp.program
Article #867����"���ͳ��"��̼���
From: ���ܵ�Сʨ
Date: Thu, 07 May 1998 00:00
Date: Thu, 07 May 1998 00:00
150 lines
9015 bytes
9015 bytes
������߾����Ź����е�"���ͳ��"���ܵ�ʵ��, ̸һ����Լ�����
�ᡣ
ϵͳ����
�������Ź����������,�кܶ�ͳ����Ϣ��Ҫ�����൱�����,��
��������Ԥ��,�ر����ϼ��쵼����ְ�ܲ��Żᾭ��Ҫ����Ѳ�
�������Ÿ�����и��������µ�ͳ��,���û������������������
����,Ҫ���Ƽ�����������һ���Ѷȡ�Ϊ�����������һ�ֽ�Ϊ��
��ķ���,ʹ���Ƶij����ܽϺõ������û������쵼������ĸ���
�����µ�ͳ�ơ����Dz��õı�̹����ǵ���������Ϊ���е�ǰ��
��������PowerBuilder,ͬʱ�ܽ������Ź����ͳ������,�����Ÿ��
�йؼ�ļ����ֶ���Ϊһ�����������,���û���ݸ��Ե���Ҫ����
���,�Ӷ���Եõ�����Ľ��,�����������ͼ����ʾ��ͼ1
����ͼ���Կ���,����ͳ������ص�10����Ҫ�ֶ���ť��ʽ��
ʾ��ͼ���Ϸ�,���ǿ������û�������,�����һ����в�ѯ��
����ʵ��
�û������������10����ť�е�ij��ʱ,���ڿ�ѡ����ڵ�
�����Ӧ���й�����,����"������Ŀ"ʱ,�ڿ�ѡ����ڵ�����̨
�ѿ�Ƨ������"������Ŀ";���������Դʱ,�ڿ�ѡ����ڵ�������
���嵥λ,�ȵȡ��������ֶ�,�����ж������ݵ�,��������Щ������
ʾ�ڿ�ѡ���,�����ݳ�����ʾ��Χʱ,��ѡ�������ֹ�������
���ű����ͳ��ʱ�β��ڿ�ѡ���ѡ��
���û����"��������"��ť��,��Ļ�Ϸ�10����ť����ȫ������
����ʱ���ߵ�������ʾ�ڿ�ѡ�����,���й���������,�û�������
����������,�ҵ���Ҫ�ļ��ߡ�ͬʱΪ�����û����ٶ�λ,��ϵͳ��
����һ�����ٲ��Ҵ�,����ʾ��������,���û����������ģ��ֵ����
���ڻ������û���ѡ�����IJ�ͬ��仯,���û�����ģ��ֵ��,��"��"
,��һ�ո��,��ѡ��е����ݽ����ٶ�λ����"��"�ռ�����,����
���Ҵ��ű�(script)������ʾ:
if tj_style= 6 or tj_style= 10 then return
int i, sel_num
string temp, input
this.text = f_sckg(this.text)
if st_search.text= ���� Ŀ �� ��' then
do
i ++
loop while pos(lb_1.text(i),this.text,1)=0 and lb_1.to
talitems() > i
if i <= lb_1.totalitems() then lb_1.setstate(i,true)
else
lb_1.selectitem(this.text ,1)
end if
������ٶ�λ,����ѡ����"��"�ռ���,�����������������,
���ҵ�����Ѱ�ҵļ���ʱ,�������˫��������,��ʱ��ѡ�еļ���ȫ
�������������С�Ϊʹ��ѡ�������յ���ȷ�ϻ����,����
����һ��"ȷ�ϸ���"��ť��һ��"ȡ�����"��ť��
���û����"ȷ�ϸ���"��ťʱ,��ѡ�������������������,ͬ
ʱ10����ť�����ʵ�ȴ��û��ٴ�ѡ��������������ű��ļ���Ϊsc
ript1��
���û�����ѡ����������ʱ,���������"ȡ�����"��ť,��ѡ
�����Զ�����,ͬʱ1����ť�����ʵ,�ȴ��û��ٴ�ѡ������,��ű�
����:
tj_style=0
tjcs = tjcs - 1
cb_tjqd.hide()
cb_tjqx.hide()
sle_search.hide()
st_search.hide()
sle_search.text= ��'
st_search.text= ��'
st_cong.hide()
st_dao.hide()
em_1.hide()
em_2.hide()
int lb_num, i
lb_num= lb_1.totalitems()
for i= 1 to lb_num
lb_1.deleteitem(1)
end for
if lb_1.multiselect = true then lb_1.multisel
ect = false
cb_xwbj.enabled= true
cb_xwbt.enabled= true
cb_xwlb.enabled= true
cb_xwlm.enabled= true
cb_xwly.enabled= true
cb_xwsj.enabled= true
cb_xwtc.enabled= true
cb_xwth.enabled= true
cb_xwxs.enabled= true
cb_xwzz.enabled= true
��ѡ��"ͳ��ʱ��"��ťʱ,10����ť�������,ͬʱ��ѡ�����
�����������봰��
�û�����ֱ�������㵽������,������һ����ֵ���������
���¼�ͷ,ѡ���������ڶ�,ѡ�к�,���������ȷ�����ť��
������ѡ�������������ʱ,�������ǰ��ѡ����,��ʱ�������
���"�����������"��ť,��ʱ����������������,��ű�����:
tjcs = 0
lang_sql = "SELECT cld.gjrq, cld.xwlb, cld.xwly, jzb
g.xwtc, cld.ptth,cd .xwzz,
cld.xwbj,cld.xwbt, jzbg.gjpf, cld.kbdy, cld.xwcd ,jzbg.c
lbz ,cld.clrq FROMz bg ,
cld WHERE cld.gjrq = jzbg.gjrq AND cld.xwzz = jzbg.xwzz
AND cld.xwbt =
jzbg.xwbt AND jzbg.clbz = ���Ѵ�' "
tj_style=0
sle_search.hide()
st_search.hide()
cb_tjqd.hide()
cb_tjqx.hide()
st_cong.hide()
st_dao.hide()
em_1.hide()
em_2.hide()
int lb_num, i
lb_num= lb_1.totalitems()
for i= 1 to lb_num
lb_1.deleteitem(1)
next
if lb_1.multiselect = true then lb_1.multiselect = f
alse
cb_xwbj.enabled= true
cb_xwbt.enabled= true
cb_xwlb.enabled= true
cb_xwlm.enabled= true
cb_xwly.enabled= true
cb_xwsj.enabled= true
cb_xwtc.enabled= true
cb_xwth.enabled= true
cb_xwxs.enabled= true
cb_xwzz.enabled= true
info= ��'
sle_2.text= ��'
cb_view.enabled = false
���������ѡ�����,���������"ͳ�ƽ�����"��ť,�����
���ļ�¼����ʾ����Ļ�ϡ���ű��ļ�Ϊscript 2��
����ͳ�ƽ���ӡʱ,���������"��ӡͳ�ƽ��"��ť,��ű�
����:
string info
if dw_1.rowcount () = 0 then
messagebox("�� �� �� ʾ", "�� ͳ �� �� Ϣ!")
return
end if
if messagebox(" ȷ �� �� ʾ","��ӡͳ����Ϣ?",questio
n!,yesno!,2) = 2 th en return
dw_1.print(false)
����ע:�ű�����script 1��script 2�����ڱ�����WWWվ����,
��ַ��:http://www.cm puterworld.co.on/skill/skill.html��
��ӭ���ʡ�
--
________ _____ _____ ______________ _____
___ __ \___(_)________ ___(_) __ ___/___ /_ ___(_)
__ /_/ /__ / ___ __ \__ / _____ \ __ __ \__ /
_ ____/ _ / __ /_/ /_ / ____/ / _ / / /_ /
/_/ /_/ _ .___/ /_/ /____/ /_/ /_/ /_/
/_/
[m[1;36m�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn][m
Technical Details
Message-ID:
<3OOYl6$uHC@bbs.nju.edu.cn>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB X-Google-Thread: fc86e,a9135cfefb66e5b7,start X-Google-Attributes: gidfc86e,public From: pipishi.bbs@bbs.nju.edu.cn (���ܵ�Сʨ) Subject: ����"���ͳ��"��̼��� Date: 1998/05/07 Message-ID: <3OOYl6$uHC@bbs.nju.edu.cn> X-Deja-AN: 351560198 X-Filename: Programming/M.894548694.A Organization: nju_bbs Newsgroups: cn.bbs.comp.program