1、1 dlgConnectSetup 連接設置2 dlgSaveSymbol 儲存代碼3 dlgSymbolSetup 代碼設置4 filequiry 文件查詢5 frmMachineQuery 設備查詢界面6 frmMain 主界面7 frmMeetArtiQuery 會議論文查詢模塊8 frmPeriodArtiQuery 期刊論文查詢模塊9 frmProjectQuery 項目查詢模塊10 frmRecordInput 錄入模塊11 MachineQuery 設備查詢12 moneyquery 經費查詢13 cwbhquery 財務編號查詢14 ProjectQuery 項目查詢15 mo

2、dMain 初始化模塊16 clsDataSource 類模塊17 drpMachine 設備統(tǒng)計報表18 drpMeetArticle 會議論文統(tǒng)計19 drpPeriodArticle 期刊論文統(tǒng)計20 drpProArchieve 項目成果報表21 drpProjFinancial 項目經費22 drpProjOverview 項目總覽dlgConnectSetupOption ExplicitPrivate Sub CancelButton_Click()Unload MeEnd SubPrivate Sub cmdHelp_Click()frmMain.Hhopen1.OpenHel

3、p App.HelpFile, Connect.htmlEnd SubPrivate Sub Form_Load() Me.Move (Screen.Width - Me.Width) 2, (Screen.Height - Me.Height) 2 txtServerName.Text = GetSetting(科研項目管理系統(tǒng), Connection, ServerName, ) txtDatabaseName.Text = GetSetting(科研項目管理系統(tǒng), Connection, DatabaseName, )End SubPrivate Sub OKButton_Click()

4、If Trim(txtServerName.Text) And Trim(txtDatabaseName.Text) Then SaveSetting 科研項目管理系統(tǒng), Connection, ServerName, Trim(txtServerName.Text) SaveSetting 科研項目管理系統(tǒng), Connection, DatabaseName, Trim(txtDatabaseName.Text) Unload Me MsgBox 注意：必須重新啟動應用程序才能使設置生效。, vbExclamation, 連接設置 Else MsgBox 輸入不完全！, vbExclamat

5、ion, 錯誤End IfEnd SubPrivate Sub txtServerName_GotFocus()With txtServerName.SelStart = 0.SelLength = Len(.Text)End WithEnd SubPrivate Sub txtdatabaseName_GotFocus()With txtDatabaseName.SelStart = 0.SelLength = Len(.Text)End WithEnd SubdlgSaveSymbolOption ExplicitPrivate Sub CancelButton_Click()Unload

6、 MeEnd SubPrivate Sub OKButton_Click()Dim RegKey As StringIf Trim(txtString.Text) Then Select Case dlgSaveSymbol.Caption Case 添加項目性質代號 RegKey = SymbolProjectQuality SaveSetting 科研項目管理系統(tǒng), RegKey, txtNumber.Text, txtString.Text SaveSetting 科研項目管理系統(tǒng), RegKey, Count, txtNumber.Text Case 編輯項目性質代號 RegKey =

7、 SymbolProjectQuality SaveSetting 科研項目管理系統(tǒng), RegKey, txtNumber.Text, txtString.Text Case 添加論文范圍代號 RegKey = SymbolArticleRange SaveSetting 科研項目管理系統(tǒng), RegKey, txtNumber.Text, txtString.Text SaveSetting 科研項目管理系統(tǒng), RegKey, Count, txtNumber.Text Case 編輯論文范圍代號 RegKey = SymbolArticleRange SaveSetting 科研項目管理系統(tǒng)

8、, RegKey, txtNumber.Text, txtString.Text Case 添加檢索源代號 RegKey = SymbolArticleRetrieveSource SaveSetting 科研項目管理系統(tǒng), RegKey, txtNumber.Text, txtString.Text SaveSetting 科研項目管理系統(tǒng), RegKey, Count, txtNumber.Text Case 編輯檢索源代號 RegKey = SymbolArticleRetrieveSource SaveSetting 科研項目管理系統(tǒng), RegKey, txtNumber.Text,

9、txtString.Text End Select Unload Me dlgSymbolSetup.ReloadRegElse MsgBox 沒有輸入！, , 錯誤 txtString.SetFocusEnd IfEnd SubdlgSymbolSetupOption ExplicitDim CountQuality As IntegerDim Countrange As IntegerDim CountRetrieve As IntegerDim CurrentListBox As ListBoxDim dlgSaveCaption As StringPrivate Sub cmdClos

10、e_Click()Unload MeEnd SubPrivate Sub cmdAdd_Click()Select Case SSTab1.TabCase 0 Set CurrentListBox = lstQuality dlgSaveCaption = 添加項目性質代號Case 1 Set CurrentListBox = lstRange dlgSaveCaption = 添加論文范圍代號Case 2 Set CurrentListBox = lstRetrieve dlgSaveCaption = 添加檢索源代號End SelectWith dlgSaveSymbol.txtNumbe

11、r.Text = CStr(CurrentListBox.ListCount).Caption = dlgSaveCaption.Show vbModalEnd WithEnd SubPrivate Sub cmdDelete_Click()Dim msg As IntegerDim RegKey As StringSelect Case SSTab1.TabCase 0 Set CurrentListBox = lstQuality RegKey = SymbolProjectQualityCase 1 Set CurrentListBox = lstRange RegKey = Symbo

12、lArticleRangeCase 2 Set CurrentListBox = lstRetrieve RegKey = SymbolArticleRetrieveSourceEnd SelectIf CurrentListBox.ListIndex 0 Then 如果選擇的不是第一項 If CurrentListBox.ListIndex -1 Then msg = MsgBox(警告：如果您刪除的是數據庫中已存在的代號， & vbCrLf & _ 可能引起不可預料的后果。您確定要刪除該代號嗎？, _ vbExclamation Or vbOKCancel, 刪除確認) If msg =

13、vbOK Then SaveSetting 科研項目管理系統(tǒng), RegKey, Count, CStr(CurrentListBox.ListIndex - 1) DeleteSetting 科研項目管理系統(tǒng), RegKey, CStr(CurrentListBox.ListIndex) ReloadReg cmdDelete.Enabled = False End If End IfElse MsgBox 不能刪除第一項！, , 錯誤 End IfEnd SubPrivate Sub cmdEdit_Click()Select Case SSTab1.TabCase 0 Set Curren

14、tListBox = lstQuality dlgSaveCaption = 編輯項目性質代號Case 1 Set CurrentListBox = lstRange dlgSaveCaption = 編輯論文范圍代號Case 2 Set CurrentListBox = lstRetrieve dlgSaveCaption = 編輯檢索源代號End SelectWith dlgSaveSymbol.txtNumber.Text = CStr(CurrentListBox.ListIndex).txtString.Text = Mid(CurrentListBox.List(CurrentListBox.ListIndex), Len(CStr(CurrentListBox.ListIndex) + 2).Caption = dlgSaveCaption.Show vbModalEnd WithEnd SubPublic Sub ReloadReg()Dim intSettings As Int