🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Lotus Notes �� �� �� �� �� �� ��

#2191
From: ����
Date: Sun, 11 Jan 1998 00:00
190 lines
12274 bytes
 

 Lotus Notes �� �� �� �� �� �� �� �� һ �� ʵ ��
                                      �� �� 

          �� �� �� �� ί �� Ϣ �� ��(314001)     �� �� �� 



        Lotus Notes 4.0 �� һ �� �� �� �� Ⱥ �� �� �� ƽ ̨ �� �� �� �� ��
 �� �� �� �� �� ϵ ͳ �� �� �� �� ȫ �� �� �� �� �� �� �� �� �� �� �� �� ��
 �� ǿ �� �� ȫ �� ʩ �� �� �� �� �� �� �� ֤ �� Ϣ �� ȫ �� �� �� �� �� ��
 �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� ʱ �� �� Ҫ �� ͳ �� �� ϵ
 �� �� �� �� �� �� ϵ ͳ �� Э �� �� �� �� �� �� �� �� �� �� �� ϵ �� �� ��
 �� �� Ϣ ת �� ��Notes �� �� �� �� �� �� �� ��Notes �� �� �� �� �� �� �� ��
 �� �� �� �� �� �� �� �� Ҫ �� �� �� �� �� �� �� �� ��Foxpro �� �� �� Ϊ ��
 �� �� ��Lotus Notes �� �� �� �� �� �� �� �� һ �� ʵ �� �� �� �� 

 Lotus Notes �� �� �� �� �� �� �� �� ; ��

        Lotus Notes ʹ ��ODBC �� ׼ �� ȡ �� �� �� �� �� �� Ϣ �� ͨ ��Notes
 �� �� Ƕ �� �� ʽ ��Script �� �� �� �� ��Notes �� �� �� �� �� ��Notes �� ��
 �� �� Ϣ �� �� �� �� �� �� �� ת �� ��Notes �� �� �� ��Notes �� �� �� �� ��
 �� �� �� ȡ �� �� �� �� �� 

        ��Notes �� ʽ �� �� ��@Db �� �� 

        Notes �� ��@DbColumn ��@DbLookup ��@DbCommand �� �� �� �� �� �� ��
 �� �� �� �� �� һ �� �� �� �á�ODBC�� �� �� �� �� �� �� �� �� �� �� �� Ϣ
 �� �� �� �� һ �� ȱ �� �� ֻ �� �� �� �� ȡ �� Ϣ �� �� �� �� �� �� ¼ ��
 ȡ �� Ϣ �� 

 �� ��Lotus Script �� �� �� ��

        LSX �� �� ģ �� ʹ ��Lotus Script �� �� �� �� д �� ȡ �� �� �� ��
 �� �� �� ��Notes ��ODBCConnection ��ODBCQuery ��ODBCResultSet �� �� ��
  ΪNotes �� �� �� ��ODBC �� ׼ �� ȡ �� �� �� �� �� �� �� �� �� �� �� �� 

        �� �� ȡ �� �� �� �� ֮ ǰ �� �� �� �� �� һ �� �� �� Դ �� �� �� ��
 ODBC �� �� �� �� �� �� �� ֪ �� �� �� �� ȡ �� �� �� һ �� �� �� Դ �� һ
 �� �� �� ��ODBC �� �� �� �� �� Ҫ �� ȡ �� �� �� �� ϵ �� һ �� �� �� �� ��
 Ҫ �� ȡ �� �� �� �� �� �� �� �� �� �� Ŀ ¼ �� �� ̨DBMS �� �� �� �� ƽ ̨
 �� �� ϵ �� �� Щ �� Ϣ �� �� ¼ �� һ �� ע �� �� �� ��( ��Winows95 ��
  ��ODBC.INI) �� �� �� ��Windows �� �� �� �� �� ע �� �� �� Դ ��
  ��Windows95 �� �� �� �� �� �� �� �� 

   1.�� ��Windows �� �� �� �� �� ��ODBC ͼ �� �� ��Add �� ť�� 
   2.ѡ �� �� Ҫ �� �� �� �� �� �� ��OK �� ť�� 
   3.�� �� �� �� Դ �� �� �� �� �� �� Ϣ �� �� �� �� Ҫ �� �� �� �� Ϣ�� 
   4.�� Щ �� �� �� �� �� �� Ҫ �� �� һ Щ �� Ϣ �� �� �� �� Щ �� �� ��
       �� Ϣ �� �� ��OK �� ť�� 
   5.��Close �� ť �� 

        Lotus Notes �� ��Foxpro �� һ �� ʵ �� �� �� 

        ʵ ��Notes �� ��Foxpro �� �� �� �� �� �� �� �� ˼ �� �� �� ��Foxpro
 �� һ �� �� �� �� �� �� �� �� �� �� Ӧ �� ��Notes �� �� �� �� �� �� һ ��
 ͬ �� �� �� �� �� �� �� �� �� ��Foxpro �� �� �� �� Ϣ �� ת �� �� ��
  ��Notes �� �� �� Ӧ �� �� �У� �� �� һ �� �� �� �� ��Script �� �� �� д
 ת �� �� �� �� �� �� һ �� �� ͼ �� �� �� �� �� �� �� �� ʵ �� �� �� ��
 �� �� �� Ϣ ��Notes �� �� �� ת �� �� 

        �� �� һ ��Foxpro �� �� ��BMZBK.DBF �� �� �� �� �� �� �� 

                   �� �� ��
                               �� ��
                                            �� ��
                                                    ˵ �� 
                   code
                               Character
                                            7
                                                    ָ �� �� �� 
                   name
                               Character
                                            40
                                                    ָ �� �� �� 
                   fullname
                               Character
                                            60
                                                    ָ �� ȫ �� 
                   unit
                               Character
                                            12
                                                    �� �� �� λ 


        �� �� �� �� �� �� �� �� Ϣ ת �� ��Notes �� �� �� ʵ �� �� �� �� ��
 �� 

        1. ��Notes �� �� �� һ �� �� �� �� �� ȡ �� ΪConvert.nsf �� �� ��
 �� �� �� �� �� �� �� һ �� �� �� �� ȡ �� Ϊcodelib �� �� �� �� �� �� �� 

                   �� ��
                               �� ��
                                                   ˵ ��
                   code
                               �� �� �� �� �� 
                                                   ָ �� �� ��
                   name
                               �� �� �� �� ��
                                                   ָ �� �� ��
                   fullname
                               �� �� �� �� �� 
                                                   ָ �� ȫ ��
                   unit
                               �� �� �� �� ��
                                                   �� �� �� λ0 


        ��Convert.nsf �� �� �� �� һ �� �� �� �� ȡ �� Ϊvfpagent �� �� ��
 �� �� �� 
        �� �� �� �� �� �� ʱ �� �� �� Ϊ �� �� �� ѡ �� �� ���� �� �� ִ
 �У� 
        ָ �� �� �� �� �� �� �� �� �� �� Ϊ �� �� ͼ �� �� �� �� �� �� 

        2. �� �� �� Ҫ ִ �� �� �� �� �� ��Script �� д �� �� �� �� �� 

 (1)Option�¼������±�̣�
 Option Public
     Uselsx����LSXODBC" ����ȡODBC����ȫ�ֶ���
 (2)Initialize�¼������±�̣�
 Sub Initialize
   Dim session As New Notessession
   Dim db As Notesdatabase
   Dim doc As notesdocument
   Set db=session.currentdatabase
   Set doc=New notesdocument(db)
   doc.form=��codelib"
   Dim conn As New ODBCConnection
   Dim qry As ODBCQuery
   Dim result As ODBCResultSet
   Call conn.Disconnect()
   Set qry=New ODBCQuery
   Set result=New ODBCResultSet
   'VFR��ODBC��ע��õ����Դ
   If conn.ConnectTo(��VFP")Then
    Set qry.Connection=conn
    qry.SQL=��SELECT��fromBMZBK" '���Ͳ�ѯ����
    Set result.Query=qry
    Call result.Execute()
    columns=result.Columns
   'ȡ�����������Notes��Ӧ���ֶ���
    Do Until result.IsEndOfData
      doc.code=Trim��(result.getvalue(1))
      doc.name=Trim��(result.getvalue(2))
      doc.fullname=Trim��(result.getvalue(3))
      doc.unit=Trim��(result.getvalue(4))
      Call doc.save(True,True)
      Set db=session.currentdatabase
      Set doc=New notesdocument(db)
      doc.form=��codelib"
      Call result.nextrow()
    Loop
      Call conn.Disconnect()�������Դ�Ͽ�����
  Else
     Messagebox(��Could not connect to server")
  End If
 End Sub

        3. ��Convert.nsf �� �� �� �� һ �� �� ͼ �� ȡ �� ΪDemoView �� ��
 �� �� ͼ �� �� �� һ �� �� �� �� �� �� Ϊ�� ת ���� �� �� �� �� ʽ Ϊ �� ��
 �� �� �� �� �С�vfpagent�� �� �� �� �� �� �� �� ��Convert.nsf �� �� �� ʱ
 �� �� ��DemoView �� ͼ �� �� �� �� �� Ļ �� �� �� �֡� ת ���� �� �� �� ť
 �� �� �� �� �� �� ť �� �� �� ��Foxpro һ �� �� �� ��BMZBK.DBF �� �� �� ��
 Ϣ ת �� ��Notes �� �� �� �� �� 

        �� �� �� �� �� �� �� �� �� �� �� �� �� �� ͨ �� �� �� �� �� �� Ϊ ��

        �� �� �� �� ��Window NT 3.51,Lotus Notes Server 4.0,IBM PC Server
 320,80M �� �� �� 

        �� �� �� ��Windows95 ��Lotus Notes Client 4.0, �� �� ��586PI/90
  ��16M �� �� ��


                          


 �й���������������˾��Ȩ���� 


--
  __   ___   ___   ___   ___                   //// || 
  | | / _ \ / __| / __| / _ \   --------oOOo-------------oOOo--------------,
__| | | __/ \__ \ \__ \ | __/   HOMEPAGE: http://www.swjtu.edu.cn/~jiany/  |
|___/ \___| |___/ |___/ \___|   EMAIL:    jiany@swjtu.edu.cn               |
___________________________________________________________________________|

�� ��Դ:��������վ bbs.swjtu.edu.cn��[FROM: 202.115.65.190]
Technical Details
Message-ID: <3MU2ML$snC@bbs.swjtu.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,90d027dc81afa740,start
X-Google-Attributes: gidfc86e,public
From: Jesse.bbs@bbs.swjtu.edu.cn (����)
Subject: Lotus Notes �� �� �� �� �� �� ��
Date: 1998/01/11
Message-ID: <3MU2ML$snC@bbs.swjtu.edu.cn>
X-Deja-AN: 314923413
X-Filename: Programming/M.884520501.A
Organization: ������վ
Newsgroups: cn.bbs.comp.program