🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: cn.bbs.comp.program
1 messages
1 total messages Started by ���ܵ�Сʨ Thu, 07 May 1998 00:00
����"���ͳ��"��̼���
#867
Author: ���ܵ�Сʨ
Date: Thu, 07 May 1998 00:00
150 lines
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��
    ��ӭ���ʡ�

--
 ________ _____          _____        ______________  _____ 
 ___  __ \___(_)________ ___(_)       __  ___/___  /_ ___(_)
 __  /_/ /__  / ___  __ \__  /        _____ \ __  __ \__  / 
 _  ____/ _  /  __  /_/ /_  /         ____/ / _  / / /_  /  
 /_/      /_/   _  .___/ /_/          /____/  /_/ /_/ /_/   
                /_/                                         

�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn]
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