【正文】 ag = Tool_SelAll: (8).Tag = Tool_Copy = False: = False End Sub Private Sub Cmdfix_Click() = False: = False: = True Dim adoprimaryrs As New If = Then MsgBox 類(lèi) 別 不 能 為 空 , vbCritical + vbApplicationModal, 錯(cuò)誤 Exit Sub End If If = Then MsgBox 標(biāo) 題 不 能 為 空 , vbCritical + vbApplicationModal, 錯(cuò)誤 Exit Sub End If If = Then MsgBox 內(nèi) 容 不 能 為 空 , vbCritical + vbApplicationModal, 錯(cuò)誤 Exit Sub End If Select Case True Case AddCode i = ExistRecord(code, 標(biāo)題 , Trim()) If i Then MsgBox 該代碼標(biāo)題已存在，請(qǐng)重新修改代碼標(biāo)題 , vbCritical + vbApplicationModal, 錯(cuò)誤 = 0 = Len(Trim()) Exit Sub End If Case EditCode Dim adoprimarycmd As New = StrConnect = delete * from code where 標(biāo)題 =39。 amp。 Trim(Temptitle) amp。 39。 Set adoprimarycmd = Nothing End Select = adUseClient select * from code, StrConnect, adOpenKeyset, adLockOptimistic, adCmdText (大類(lèi)別 ) = Trim(BigStyle) (小類(lèi)別 ) = Trim(Cbostyle) (標(biāo)題 ) = Trim(TxTTitle) (內(nèi)容 ) = Set adoprimaryrs = Nothing = GetSetting(, Corlor, BackCorlor, ) Call ShowTree(BigStyle) = True EditCode = False AddCode = False (7).Image = 5: (8).Image = 6 (7).Caption = 全選 : (8).Caption = 復(fù)制 (7).Tag = Tool_SelAll: (8).Tag = Tool_Copy = False: = False = GetSetting(, Font, FontSize, ) = GetSetting(, Corlor, BackCorlor, ) End Sub 39。Private Sub Command1_Click() 39。Dim str As String: Dim rst1 As New : Dim rst2 As New 39。str = PROVIDER=。Data Source= amp。 amp。 \data\。 39。 select * from winfun, str, adOpenKeyset, adLockOptimistic 39。 select * from funclass, str, adOpenKeyset, adLockOptimistic 39。 39。For i = 1 To 39。 (聲明 ) = GetFthFld2(funclass, name, (函數(shù) ), fullname) 39。 39。 39。Next 39。End Sub Private Sub Form_Load() = 0: = 0 = False: = False: = True (1).Text = amp。 Format(Date, long date) amp。 amp。 Time amp。 = amp。 \data\ = GetSetting(, Font, FontSize, ) = GetSetting(, Corlor, BackCorlor, ) StrConnect = PROVIDER=。Data Source= amp。 amp。 \data\。 StrTempConnect = PROVIDER=。Data Source= amp。 amp。 \data\。 BigStyle = 概念和基本原理 Call ShowTree(BigStyle) End Sub Private Sub ShowTree(ByVal TempBigStyle As String) Dim nodex As Node Dim nodey As Node Dim adoprimaryrs1 As New Dim adoprimaryrs2 As New a = aa b = bb c = cc If TempBigStyle = API 函數(shù) Then 39。************************************************* = adUseClient select 函數(shù) from winfun order by 函數(shù) , StrTempConnect, adOpenForwardOnly, adLockReadOnly, adCmdText 39。************************************************* = tvwRootLines Set nodex = (, , a, TempBigStyle, 2, 1) If 0 Then Else Exit Sub End If Do Until TempSmallStyle = (函數(shù)).Value Set nodey = (a, tvwChild, b, TempSmallStyle, 3, 3) b = b + 1 Loop Set adoprimaryrs1 = Nothing Else 39。************************************************* = adUseClient = adUseClient select distinct 小類(lèi)別 from Code where 大類(lèi)別 =39。 amp。 TempBigStyle amp。 39。, StrConnect, adOpenForwardOnly, adLockReadOnly, adCmdText 39。************************************************* = tvwRootLines Set nodex = (, , a, TempBigStyle, 2, 1) If 0 Then Else Exit Sub End If Do Until TempSmallStyle = (小類(lèi)別).Value Set nodey = (a, tvwChild, b, TempSmallStyle, 3, 3) If = 1 Then End If select 標(biāo)題 from Code where 大類(lèi)別 =39。 amp。 TempBigStyle amp。 39。 and 小類(lèi)別 =39。 amp。 TempSmallStyle amp。 39。, StrConnect, adOpenForwardOnly, adLockReadOnly, adCmdText If 0 Then End If Do Until Set nodey = (b, tvwChild, c, (標(biāo)題 ), 4, 4) c = c + 1 Loop b = b + 1 Loop Set adoprimaryrs1 = Nothing Set adoprimaryrs2 = Nothing End If (1).Expanded = True End Sub Private Sub Form_Resize() If = maximized Then = 12020 = 9000 End If End Sub Private Sub Menu_BackCorlor_Click() = SaveSetting , Corlor, BackCorlor, End Sub Private Sub Menu_Clear_Click() SendKeys {del} End Sub Private Sub Menu_Plaste_Click() SendKeys ^V End Sub Private Sub TreeView1_NodeClick(ByVal Node As ) Temptitle = () If BigStyle = API 函數(shù) Then = 別名： amp。 GetFthFld22(winfun, 函數(shù) , Trim(Temptitle), 別名 ) amp。 Chr(10) amp。 Chr(13) = amp。 庫(kù)名： amp。 GetFthFld22(winfun, 函數(shù) , Trim(Temptitle), 庫(kù)名 ) amp。 Chr(10) amp。 Chr(13) = amp。 聲明： amp。 GetFthFld22(winfun, 函數(shù) , Trim(Temptitle), 聲明 ) amp。 Chr(10) amp。 Chr(13) = amp。 參 數(shù) 表 ： amp。 GetFthFld22(winfun, 函數(shù) , Trim(Temptitle), 參數(shù)表 ) amp。 Chr(10) amp。 Chr(13) Else = GetFthFld2(code, 標(biāo)題 , Trim(Temptitle), 內(nèi)容 ) = 0 End If End Sub Private Sub Menu_About_Click() StrMsg =