Thread View: cn.bbs.comp.program
1 messages
1 total messages
Started by ���ܵ�Сʨ
Thu, 07 May 1998 00:00
����"���ͳ��"��̼���
Author: ���ܵ�Сʨ
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
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads