Thread View: cn.bbs.comp.program
1 messages
1 total messages
Started by ����
Sun, 11 Jan 1998 00:00
Lotus Notes �� �� �� �� �� �� ��
Author: ����
Date: Sun, 11 Jan 1998 00:00
Date: Sun, 11 Jan 1998 00:00
190 lines
12274 bytes
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 �� �� ��
�й���������������˾��Ȩ����
--
[40m[32m[1m __ ___ ___ ___ ___ [33m[1m //// ||
[32m[1m | | / _ \ / __| / __| / _ \ [31m[1m--------[33m[1moOOo[31m[1m-------------[33m[1moOOo[31m[1m--------------,
[32m[1m__| | | __/ \__ \ \__ \ | __/ [31m[1mHOMEPAGE: http://www.swjtu.edu.cn/~jiany/ |
[32m[1m|___/ \___| |___/ |___/ \___| [31m[1mEMAIL: jiany@swjtu.edu.cn |
[31m[1m___________________________________________________________________________|[m
[m[1;32m�� ��Դ:��������վ bbs.swjtu.edu.cn��[FROM: 202.115.65.190][m
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