🚀 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 ���� Sun, 11 Jan 1998 00:00
Lotus Notes �� �� �� �� �� �� ��
#2191
Author: ����
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]
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