🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: cn.bbs.comp.program
Article #867

����"���ͳ��"��̼���

#867
From: ���ܵ�Сʨ
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]
Technical Details
Message-ID: <3OOYl6$uHC@bbs.nju.edu.cn>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show 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