【正文】 n Error Resume Next 39。設(shè) 置 Width 屬 性 If X 1500 Then X = 1500 If X ( 1500) Then X = 1500 = X = X = X + 40 = ( 30) = = = = = End SubPublic Sub cmdLoad_Click() = 11 39。清 除 右 邊 的 項(xiàng) 目 內(nèi) 容 = 檔 案 倉(cāng) 庫(kù) txtFields(1).Text = txtFields(2).Text = txtFields(3).Text = txtFields(0).Text = (5).Enabled = False (6).Enabled = False (7).Enabled = False = False = False = False = False Dim rsPublishers As Recordset, rsTitles As Recordset Dim IntIndex 39。清 除 原 有 的 數(shù) 據(jù) 39。配 置 TreeView = True Set mNode = With mNode .Text = 檔 案 倉(cāng) 庫(kù) .Tag = FileManager .Image = Closed End With = 1 Set mdbFile = OpenDatabase(ConData, False, False, ConStr) Set rsPublishers = (Catalog, dbOpenDynaset) Do Until Set mNode = (1, tvwChild, rsPublishers!Name, CStr(rsPublishers!Name), SClosed) = File IntIndex = If strSearchString Then 39。查 詢(xún) 時(shí) Set rsTitles = (Select * from Detail Where Name =39。 amp。 rsPublishers!Name amp。 39。 amp。 strSearchString) Else Set rsTitles = (Select * from Detail Where Name =39。 amp。 rsPublishers!Name amp。 39。) End If Do Until Set mNode = (IntIndex, tvwChild) = rsTitles!檔 案 號(hào) = rsTitles!檔 案 號(hào) = SFile = File Loop 39。 Move to next Publishers record. Loop (1).Sorted = True (1).Expanded = True 39。釋 放 數(shù) 據(jù) 庫(kù) Set mdbFile = Nothing 39。取 消 所 有 檔 案 操 作 = False = False = False = 0 End SubPrivate Sub ListView_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If lShow = False Then Exit Sub 39。已 經(jīng) 隱 藏 時(shí) 退 出 = False = False = False = False lShow = False End SubPrivate Sub ListView_Resize() = ( ) / 2 = = 20 = 20 = End SubPublic Sub MnuAddFile_Click() = 11 1 = 0 End SubPublic Sub MnuDeleteFile_Click() If MsgBox(真 的 要 刪 除 檔 案 嗎 ？ amp。 vbCrLf amp。 vbclrf amp。 vbCrLf amp。 strFileID amp。 [是 /否 ]？ , vbYesNo + vbCritical + vbDefaultButton2, 檔 案 刪 除 后 將不 能 恢 復(fù) !) = vbNo Then Exit Sub Dim strTemp As String Set mdbFile = OpenDatabase(ConData, False, False, ConStr) strTemp = Delete * From Detail Where Name=39。 amp。 strFileType amp。 39。 And 檔案 號(hào) =39。 amp。 strFileID amp。 39。 strTemp Set mdbFile = Nothing 39。刷 新 數(shù) 據(jù) Call cmdLoad_Click (5).Enabled = False (6).Enabled = False (7).Enabled = False = False = False = False End SubPrivate Sub MnuExit_Click() Unload frmMain End SubPrivate Sub MnuFolder_Click() = 11 1 = 0 End SubPublic Sub MnuModifyFile_Click() = 11 1 = 0 End SubPrivate Sub MnuOpenFile_Click() Call picEditFile_Click End SubPrivate Sub MnuRefresh_Click() strSearchString = 39。查 詢(xún) 條 件 為 空 Call cmdLoad_Click End SubPrivate Sub MnuReturn_Click() Unload Me End SubPublic Sub MnuSearchFile_Click() = 11 1 = 0 End SubPrivate Sub picEditFile_Click() On Error Resume Next 39。編 輯 檔 案 Dim retVal As Long retVal = ShellExecute(, Open, txtFields(1).Text, , + \File, 1) If retVal = 2 Then 39。文 件 不 存 在 MsgBox 下 面 文 件 沒(méi) 有 找 到 ： amp。 vbCrLf amp。 vbCrLf amp。 txtFields(1).Text amp。 , vbInformation, 檔 案 管 理 系 統(tǒng) Exit Sub End If If retVal = 31 Then 39。文 件 不 能 打 開(kāi) 時(shí) If MsgBox(系 統(tǒng) 不 能 自 動(dòng) 打 開(kāi) 下 面 文 件 ： amp。 vbCrLf amp。 vbCrLf amp。 txtFields(1).Text amp。 _ vbCrLf amp。 vbCrLf amp。 是 否 使 用 其 它 Open 方 法 試 試 ,(是 /否 )? , vbYesNo + vbQuestion, 檔 案 管 理 系 統(tǒng) ) = vbNo Then Exit Sub Else 39。使 用 Explorer 打 開(kāi) 文 件 retVal = Shell( amp。 txtFields(1).Text, vbNormalFocus) End If End If End SubPrivate Sub picEditFile_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) = amp。H808080 = amp。HFFFFFF End SubPrivate Sub picEditFile_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If lShow = True Then Exit Sub 39。已 經(jīng) 顯 示 時(shí) 退 出 = True = True = True = True lShow = True End SubPrivate Sub picEditFile_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) = amp。HFFFFFF = amp。H808080 End SubPrivate Sub TreeView_Collapse(ByVal Node As ) If = FileManager Then = Closed If = File Then = SClosedEnd SubPrivate Sub TreeView_Expand(ByVal Node As ) If = FileManager Then = Open If = File Then = SOpen End SubPrivate Sub TreeView_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu MnuControl End If End SubPrivate Sub TreeView_NodeClick(ByVal Node As ) = = ( ) / 2 If = SFile Then = True = True = True (5).Enabled = True (6).Enabled = True (7).Enabled = True subPurView 39。安 裝 權(quán) 限 Else = False = False = False (5).Enabled = False (6).Enabled = False (7).Enabled = False End If If = SFile And strHistory Then If Trim() Then LoadData () 39。安 裝 數(shù) 據(jù) 庫(kù) strHistory = If Trim(txtFields(1).Text) And PurView 只 能 添 加 Then = True Else = False End If End If End If If SFile Then txtFields(0).Text = txtFields(1).Text = txtFields(2