vb教学辅助系统VB+access源代码+可执行文件+论文

第三章 系统界面设计
3.1系统界面设计
主界面设计

代码设计:
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 As String, ByVal nShowCmd As Long) As Long
Private BigStyle As String
Private SmallStyle As String
Private RTB1_BackCorlor As Integer
Private AddCode As Boolean
Private EditCode As Boolean
Dim Temptitle As String 【买计算机毕业论文就到计算机毕业论文网】 [版权所有：http://think58.com]

Private Sub Cmdcancel_Click()
RTB1.BackColor = GetSetting(App.EXEName, "Corlor", "BackCorlor", RTB1.BackColor)
Frame5.Visible = False: Frame6.Visible = False: TreeView1.Visible = True
RTB1.Locked = True
EditCode = False
AddCode = False
Toolbar1.Buttons(7).Image = 5: Toolbar1.Buttons(8).Image = 6
Toolbar1.Buttons(7).Caption = "全选": Toolbar1.Buttons(8).Caption = "复制"
Toolbar1.Buttons(7).Tag = "Tool_SelAll": Toolbar1.Buttons(8).Tag = "Tool_Copy"
Menu_Plaste.Enabled = False: Menu_Clear.Enabled = False
End Sub

内容来自think58 [资料来源：http://think58.com]

[资料来源：THINK58.com]

Private Sub Cmdfix_Click()
Frame5.Visible = False: Frame6.Visible = False: TreeView1.Visible = True
Dim adoprimaryrs As New ADODB.Recordset
If Cbostyle.Text = "" Then
MsgBox "类别不能为空", vbCritical + vbApplicationModal, "错误"
Exit Sub
End If
If TxTTitle.Text = "" Then
MsgBox "标题不能为空", vbCritical + vbApplicationModal, "错误"
Exit Sub
End If
If RTB1.Text = "" Then
MsgBox "内容不能为空", vbCritical + vbApplicationModal, "错误"
Exit Sub
End If

Select Case True
Case AddCode
i = ExistRecord("code", "标题", Trim(TxTTitle.Text))
If i Then
MsgBox "该代码标题已存在，请重新修改代码标题", vbCritical + vbApplicationModal, "错误"
TxTTitle.SelStart = 0
TxTTitle.SelLength = Len(Trim(TxTTitle.Text))
Exit Sub
End If
Case EditCode
Dim adoprimarycmd As New ADODB.Command think58好，好think58

[版权所有：http://think58.com]

adoprimarycmd.ActiveConnection = StrConnect
adoprimarycmd.CommandText = "delete * from code where 标题='" & Trim(Temptitle) & "'"
adoprimarycmd.Execute
Set adoprimarycmd = Nothing
End Select
adoprimaryrs.CursorLocation = adUseClient
adoprimaryrs.Open "select * from code", StrConnect, adOpenKeyset, adLockOptimistic, adCmdText
adoprimaryrs.MoveLast
adoprimaryrs.AddNew
adoprimaryrs.Fields("大类别") = Trim(BigStyle)
adoprimaryrs.Fields("小类别") = Trim(Cbostyle)
adoprimaryrs.Fields("标题") = Trim(TxTTitle)
adoprimaryrs.Fields("内容") = RTB1.Text
adoprimaryrs.Update
Set adoprimaryrs = Nothing
RTB1.BackColor = GetSetting(App.EXEName, "Corlor", "BackCorlor", RTB1.BackColor)
Call ShowTree(BigStyle)
RTB1.Locked = True
EditCode = False
AddCode = False
Toolbar1.Buttons(7).Image = 5: Toolbar1.Buttons(8).Image = 6 本文来自think58
Toolbar1.Buttons(7).Caption = "全选": Toolbar1.Buttons(8).Caption = "复制"
think58.com