🚀 go-pugleaf

   ����������"�ļ�����ϵͳ"������ܶ�,������ʹ�û��Ƚ������
�������Ҫ�������û���Ҫ��,ֻ���Լ�������������,���ⷽ�湤
���ѶȽϴ�,һ����Ҫ�󿪷������н�ǿ�����ִ�������,��һ������
Ҫѡ���ʵ��ġ�������Խ����ݿ�,��Ҫ�зḻ�Ŀ������顣������
���˴����ķ���֮��,������PowerBulder4.0����������,��ݿ���Or
acle7.2,����"�ļ�����ϵͳ"���ֽ�һЩ����ܽ����,��ͬ���Dz�
����
    ϵͳ����
    ��ϵͳ�����˵������е�Client/Server�ṹ,Server��ΪUNIX��
��ϵͳ��Oracle7.2��ݿ�,ǰ�˿���ƽ̨��Windows 3.1��Windows95
,����Э����TCP/IP����������ΪAlpha8200 ,Client�˿�����HUB��R
outer��Զ���ն�,ͨ��FTP��SQL*NET V1 TCP/IP(��SQL*NET V2)��NF
Sֱ�Ӵ�LAN��WAN�϶�ȡ�ʹ����ļ�����"�ļ�����ϵͳ"�����ļ�ά
�����ļ���ѯ�����֡�
    "�ļ�ά������"�����ļ���¼�롢�ַ��������ճ�ά������,ȫ
��¼����PowerBuilder 4.0��MLE(���б༭��)��Ϊ�༭��,�༭���
�����ORACLE��LONG�ֶ��С�"�ļ���ѯ����" ��ʵ�ְ����������
�����в�ѯ,����Ȼ�����ʵȡ��ļ��Ĵ��?�ͷ���ͳ�Ʊ����ϵ
ͳ�е���Excel,ͨ��������Ӻ��������Ļ���ӡ��
    �����ѵ㼰����ķ���

    1.�����ļ�������,���ά��Ч�ʡ�
    ��Ϊ��ϵͳ�漰����������ֶ��һ���Ե�����,�����ڸ�ʽ��
�ŵȷ������Ĺ���Ҫ���ϸ�¡�����˵,Windows�µı༭������һ��
��ͬ��,ֻҪ�����س����з�,���о������Ͽ�������һЩ����ļ���
���û��⡢����WPS���Ű�����༭���,�������ֱ�ӽ������, 
�ڵ���MLE�༭��ʱ�ͻ�����߳��˶̡�������ƪ������,������Ϊ��
�����лس����з��һЩ�Ű��ŵ�,������MLE���Ų���,�����ֺ�
�˷�ʱ�䡣��ʲô�õĽ��������?�ش���:���ļ���Oracle��֮ǰ,
���Զ���Ԥ���?����������"�Ƿ�"�ַ���˵������"�Ƿ�"�ַ���
�س����з��"&",���������г�����ȥ��:
    long i,j.s,f1,f2
    blob text1,text2
    int fp
    string article
    f1=fileopen("c:"wj.txt",streammode!)
    fileread(f1,text)
    fileclose(f1)
    mle_1.text=string(text)
    article=mle_1.text
    s=len(article)
    for i=1 to s
        j=pos(article,char(13),i)
        if j>0 then
       article=replace(article,j,1,"")
       else
        end if
    next
    s=len(article)
    for i=1 to s
    j=pos(article,"&",i)
    if j>0 then
        article=replace(article,j,1,"")
        else
    end if
    next
    f2=fileopen("c:"wjnew.txt",streammode!,write!,lock-write
!,replace!)
    if f2<>-1 then
    filewrite(f2,text2)
    fileclose(f2)
    end if
    mle_1.text=article
    �����޸ĺ�,���������:
    text2=blob(mle_1.text)
    insert into wj_tab(�ֶ���)values(�ֶ�ֵ)using sqlca;
    commit;
    updateblob wj_tab set text=:text2 where <����> using sql
ca;
    commit;

    2.��ȡ���ܴ�ʩ,ʵ�ְ�Ȩ�޲�ѯ��
    ���û���˵,�����ļ�����Ȩ�޵�,���Ǹ���ʶ�Ե����⡣�ڽ���
"�ļ���ѯ"ϵͳʱ,����ȷ�ؼ�������,�û�ֻ�ܲ鵽"��������ļ�"
�����ͬһ̨΢��,˭����ȷ�ؼ�������,˭��������ѯ,��ֻ�ܲ鵽"
�Լ���"�ļ�,�ﵽ�˱���Ҫ��
    3.�����м����ؼ��,�������ȫ�ġ�
    �������г���ʵ��(����һ������):
    fn=fileopen(named,streammode!)
    if fn>0 then
    fileread(fn,text1)
    fileclose(fn)
    mle_1.text=string(text1)
    article=mle_1.text
    j=pos(article,"���")
    if j>0 then
        bb=mid(article,j+5,5)
        sle_1.text=bb
        bh1=long(bb)
        else
    end if
    j=pos(article,"����")
    if j>0 then
        zz=mid(article,j+5,6)
        sle_5.text=zz
        else
    end if

    4.����MLE�༭����ʱ,���ֹ���λ������,����"����֮��"��
�����"������"����,�ɽ���������⡣

    5.��ϵͳ���й����,����"ȱ��һЩDLL�⺯��"�Ĵ�����ʾ,��
����������ķ�����:���������Ŀ⺯���Ƴ�"ȱ�ٵĿ⺯��"��

    6.�� ��ʹ�ô��ڼ̳кͶ�̬��ݴ���,�������ظ����Ͷ�,���
�˱��Ч�ʡ�
    �������ߵ�ȱ��PowerBuilder4.0�Ķ��б༭��MLEֻ�ܱ༭С��
32K���ļ�,��������˶�32K���ϴ��ı��ļ��������,����Щ�ļ�
�Ĺ��?Ҫ������������ֲ��������,���ǿ������ߵ�һ��ȱ��
�����ߺ�ϣ��Power Soft��˾�����ⷽ����Щ����,�����һ���⡣
    �������ߵ�ȱ��
    PowerBuilder 4.0�Ķ��б༭��MLEֻ�ܱ༭С��32K���ļ�, ��
�������˶�32K���ϵĴ��ı��ļ��������, ����Щ�ļ��Ĺ��?
Ҫ������������ֲ��������, ���ǿ������ߵ�һ��ȱ�ݡ����ߺ�
ϣ��Power Soft��˾�����ⷽ����Щ����, �����һ���⡣

--
�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn]