|
copyright paper51.com 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
http://www.paper51.com
内容来自www.paper51.com
内容来自www.paper51.com paper51.com
copyright paper51.com copyright paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 第三章 系统界面设计 paper51.com 内容来自论文无忧网 www.paper51.com copyright paper51.com 3.1系统界面设计 paper51.com 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com 主界面设计 copyright paper51.com
copyright paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com copyright paper51.com
paper51.com 代码设计: 内容来自www.paper51.com 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
Private Declare Function ShellExecute Lib "shell32.dll" Alias"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String,ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory AsString, ByVal nShowCmd As Long) As Long 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
http://www.paper51.com Private BigStyle As String 内容来自www.paper51.com 内容来自www.paper51.com
内容来自www.paper51.com Private SmallStyle As String copyright paper51.com copyright paper51.com 内容来自论文无忧网 www.paper51.com Private RTB1_BackCorlor As Integer paper51.com
http://www.paper51.com 内容来自www.paper51.com Private AddCode As Boolean 内容来自论文无忧网 www.paper51.com copyright paper51.com copyright paper51.com Private EditCode As Boolean http://www.paper51.com 内容来自论文无忧网 www.paper51.com http://www.paper51.com Dim Temptitle As String http://www.paper51.com 内容来自论文无忧网 www.paper51.com copyright paper51.com 内容来自www.paper51.com 内容来自www.paper51.com http://www.paper51.com Private Sub Cmdcancel_Click() copyright paper51.com copyright paper51.com 内容来自论文无忧网 www.paper51.com RTB1.BackColor =GetSetting(App.EXEName, "Corlor", "BackCorlor",RTB1.BackColor) paper51.com
paper51.com http://www.paper51.com Frame5.Visible =False: Frame6.Visible = False: TreeView1.Visible = True http://www.paper51.com paper51.com
paper51.com
RTB1.Locked =True 内容来自论文无忧网 www.paper51.com http://www.paper51.com
paper51.com EditCode = False copyright paper51.com copyright paper51.com 内容来自www.paper51.com AddCode = False 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
内容来自www.paper51.com Toolbar1.Buttons(7).Image = 5: Toolbar1.Buttons(8).Image = 6 http://www.paper51.com paper51.com
http://www.paper51.com
Toolbar1.Buttons(7).Caption = "全选":Toolbar1.Buttons(8).Caption = "复制" 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
paper51.com
Toolbar1.Buttons(7).Tag = "Tool_SelAll": Toolbar1.Buttons(8).Tag= "Tool_Copy" 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
paper51.com
Menu_Plaste.Enabled = False: Menu_Clear.Enabled = False paper51.com 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
End Sub 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
内容来自www.paper51.com
paper51.com
Private Sub Cmdfix_Click() 内容来自www.paper51.com http://www.paper51.com
内容来自www.paper51.com Frame5.Visible =False: Frame6.Visible = False: TreeView1.Visible = True paper51.com
copyright paper51.com
copyright paper51.com
Dim adoprimaryrsAs New ADODB.Recordset 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com 内容来自www.paper51.com If Cbostyle.Text= "" Then paper51.com http://www.paper51.com
paper51.com MsgBox "类别不能为空",vbCritical + vbApplicationModal, "错误" http://www.paper51.com copyright paper51.com 内容来自www.paper51.com Exit Sub copyright paper51.com http://www.paper51.com
copyright paper51.com End If paper51.com
内容来自www.paper51.com
paper51.com If TxTTitle.Text= "" Then 内容来自www.paper51.com
内容来自www.paper51.com paper51.com MsgBox "标题不能为空",vbCritical + vbApplicationModal, "错误" http://www.paper51.com
内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com Exit Sub paper51.com 内容来自www.paper51.com
copyright paper51.com
End If copyright paper51.com
copyright paper51.com
copyright paper51.com If RTB1.Text ="" Then copyright paper51.com
内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
MsgBox "内容不能为空",vbCritical + vbApplicationModal, "错误" paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com
Exit Sub http://www.paper51.com http://www.paper51.com
内容来自论文无忧网 www.paper51.com
End If copyright paper51.com
copyright paper51.com 内容来自www.paper51.com 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com
copyright paper51.com
Select Case True copyright paper51.com
copyright paper51.com
内容来自www.paper51.com
Case AddCode 内容来自论文无忧网 www.paper51.com paper51.com paper51.com i = ExistRecord("code", "标题", Trim(TxTTitle.Text)) 内容来自论文无忧网 www.paper51.com paper51.com
内容来自www.paper51.com If i Then copyright paper51.com 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
MsgBox "该代码标题已存在，请重新修改代码标题",vbCritical + vbApplicationModal, "错误" paper51.com paper51.com copyright paper51.com TxTTitle.SelStart = 0 http://www.paper51.com http://www.paper51.com
copyright paper51.com TxTTitle.SelLength = Len(Trim(TxTTitle.Text)) paper51.com
paper51.com
内容来自www.paper51.com
Exit Sub 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com
paper51.com
End If copyright paper51.com
http://www.paper51.com http://www.paper51.com Case EditCode paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com Dim adoprimarycmd As New ADODB.Command http://www.paper51.com
copyright paper51.com
http://www.paper51.com
adoprimarycmd.ActiveConnection = StrConnect copyright paper51.com
内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com adoprimarycmd.CommandText = "delete * from code where 标题='" & Trim(Temptitle) & "'" copyright paper51.com
paper51.com 内容来自论文无忧网 www.paper51.com adoprimarycmd.Execute paper51.com
paper51.com 内容来自论文无忧网 www.paper51.com Set adoprimarycmd = Nothing 内容来自论文无忧网 www.paper51.com copyright paper51.com
paper51.com End Select http://www.paper51.com
copyright paper51.com
http://www.paper51.com adoprimaryrs.CursorLocation = adUseClient http://www.paper51.com
内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
adoprimaryrs.Open "select * from code", StrConnect,adOpenKeyset, adLockOptimistic, adCmdText copyright paper51.com
copyright paper51.com
paper51.com adoprimaryrs.MoveLast paper51.com
paper51.com
paper51.com adoprimaryrs.AddNew 内容来自论文无忧网 www.paper51.com
paper51.com
内容来自www.paper51.com adoprimaryrs.Fields("大类别")= Trim(BigStyle) 内容来自www.paper51.com
paper51.com http://www.paper51.com adoprimaryrs.Fields("小类别")= Trim(Cbostyle) copyright paper51.com paper51.com
paper51.com
adoprimaryrs.Fields("标题") = Trim(TxTTitle) 内容来自www.paper51.com
copyright paper51.com copyright paper51.com adoprimaryrs.Fields("内容")= RTB1.Text paper51.com
copyright paper51.com paper51.com adoprimaryrs.Update copyright paper51.com http://www.paper51.com 内容来自论文无忧网 www.paper51.com Set adoprimaryrs= Nothing 内容来自www.paper51.com
内容来自www.paper51.com
内容来自www.paper51.com RTB1.BackColor =GetSetting(App.EXEName, "Corlor", "BackCorlor",RTB1.BackColor) copyright paper51.com copyright paper51.com
http://www.paper51.com CallShowTree(BigStyle) 内容来自论文无忧网 www.paper51.com
copyright paper51.com
paper51.com RTB1.Locked = True 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com
http://www.paper51.com EditCode = False 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com AddCode = False 内容来自www.paper51.com
内容来自www.paper51.com 内容来自www.paper51.com Toolbar1.Buttons(7).Image = 5: Toolbar1.Buttons(8).Image = 6 内容来自论文无忧网 www.paper51.com
paper51.com
http://www.paper51.com Toolbar1.Buttons(7).Caption = "全选":Toolbar1.Buttons(8).Caption = "复制" paper51.com
内容来自www.paper51.com
内容来自www.paper51.com Toolbar1.Buttons(7).Tag = "Tool_SelAll": Toolbar1.Buttons(8).Tag= "Tool_Copy" paper51.com
内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com Menu_Plaste.Enabled = False: Menu_Clear.Enabled = False paper51.com
内容来自www.paper51.com 内容来自www.paper51.com RTB1.Font.Size =GetSetting(App.EXEName, "Font", "FontSize", RTB1.Font.Size) copyright paper51.com
copyright paper51.com
copyright paper51.com
RTB1.BackColor =GetSetting(App.EXEName, "Corlor", "BackCorlor",RTB1.BackColor) http://www.paper51.com 内容来自www.paper51.com
paper51.com
End Sub paper51.com
内容来自www.paper51.com paper51.com 内容来自www.paper51.com |