📄 frmsele.frm
字号:
Left = 720
TabIndex = 4
Top = 5760
Width = 1000
End
Begin MSAdodcLib.Adodc Adodc1
Height = 495
Left = 1080
Top = 5160
Width = 5295
_ExtentX = 9340
_ExtentY = 873
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 1
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=Testdb.mdb"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=Testdb.mdb"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from Testseledb order by id"
Caption = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.CommandButton Cmd_exit
Caption = "返回"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 5520
TabIndex = 3
Top = 5760
Width = 1000
End
Begin VB.CommandButton Cmd_dele
Caption = "删除"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 4320
TabIndex = 2
Top = 5760
Width = 1000
End
Begin VB.CommandButton Cmd_update
Caption = "修改"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 3120
TabIndex = 1
Top = 5760
Width = 1000
End
Begin VB.CommandButton Cmd_add
Caption = "新增"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 1920
TabIndex = 0
Top = 5760
Width = 1000
End
End
Attribute VB_Name = "Frmsele"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
ChDrive App.Path
ChDir App.Path
'--------------------------------------------------------------
'在Combox中增加"A"、"B"、"C"、"D"四项
'--------------------------------------------------------------
Cmb_da.AddItem ("A")
Cmb_da.AddItem ("B")
Cmb_da.AddItem ("C")
Cmb_da.AddItem ("D")
Adodc1.Refresh
End Sub
Private Sub Cmd_sele_Click()
prompt$ = "请输入要查询的题号："
answer$ = InputBox(prompt$, "查询")
Adodc1.Recordset.Find "id=" & Val(answer$)
If Adodc1.Recordset.EOF Then '如果不匹配
Adodc1.Recordset.MoveFirst '则取第1条记录
End If
End Sub
Private Sub Cmd_add_Click()
Dim nu As Integer
If Cmd_add.Caption = "新增" Then
'当前题号为数据库中最后一条记录的题号加1
Txt_ti.Locked = False
Txt_da1.Locked = False
Txt_da2.Locked = False
Txt_da3.Locked = False
Txt_da4.Locked = False
Cmb_da.Locked = False
Adodc1.Recordset.MoveLast
nu = Adodc1.Recordset("id") + 1
Adodc1.Recordset.AddNew '增加该条记录
'将“新增”按钮的“Caption”属性改为“确定”
Lblid.Caption = nu
Cmd_add.Caption = "确定"
'将其它命令按钮变灰，不起作用
Cmd_update.Enabled = False
Cmd_dele.Enabled = False
Cmd_sele.Enabled = False
Cmd_exit.Enabled = False
Txt_ti.SetFocus '将光标移到题目栏
Else
prompt$ = "真的新增该条记录吗"
answer$ = MsgBox(prompt$, vbOKCancel, "Add Record")
If answer$ = vbOK Then '如果用户选择“OK”
Adodc1.Recordset.Update '则确认增加
Else
Adodc1.Recordset.CancelUpdate '则取消增加
End If
Txt_ti.Locked = True
Txt_da1.Locked = True
Txt_da2.Locked = True
Txt_da3.Locked = True
Txt_da4.Locked = True
Cmb_da.Locked = True
'将“新增”按钮的“Caption”属性改回
Cmd_add.Caption = "新增"
'将其它命令按钮变亮
Cmd_update.Enabled = True
Cmd_dele.Enabled = True
Cmd_sele.Enabled = True
Cmd_exit.Enabled = True
End If
End Sub
Private Sub Cmd_dele_Click()
On Error GoTo ErrMsg
prompt$ = "真的删除该条记录吗"
answer$ = MsgBox(prompt$, vbOKCancel, "删除记录")
If answer$ = vbOK Then '如果用户选择“No”
Adodc1.Recordset.Delete '删除记录
Adodc1.Recordset.MoveNext '移到下一条记录
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
End If
Exit Sub
ErrMsg:
MsgBox Err.Description, vbExclamation, "出错"
End Sub
Private Sub Cmd_exit_Click()
Unload Me
End Sub
Private Sub Cmd_update_Click()
On Error GoTo ErrMsg
If Cmd_update.Caption = "修改" Then
Cmd_update.Caption = "确定"
'将其它命令按钮变灰，不起作用
Txt_ti.Locked = False
Txt_da1.Locked = False
Txt_da2.Locked = False
Txt_da3.Locked = False
Txt_da4.Locked = False
Cmb_da.Locked = False
Cmd_add.Enabled = False
Cmd_dele.Enabled = False
Cmd_sele.Enabled = False
Cmd_exit.Enabled = False
Txt_ti.SetFocus '将光标移到题目栏
Else
prompt$ = "是否修改该数据库的记录"
answer$ = MsgBox(prompt$, vbOKCancel, "Update Record")
If answer$ = vbOK Then '如果用户选择“No”
Adodc1.Recordset.Update '则修改
Else
Adodc1.Recordset.CancelUpdate '则取消修改
Adodc1.Refresh
End If
'将“修改”按钮的“Caption”属性改回
Cmd_update.Caption = "修改"
'将其它命令按钮变亮
Txt_ti.Locked = True
Txt_da1.Locked = True
Txt_da2.Locked = True
Txt_da3.Locked = True
Txt_da4.Locked = True
Cmb_da.Locked = True
Cmd_add.Enabled = True
Cmd_dele.Enabled = True
Cmd_sele.Enabled = True
Cmd_exit.Enabled = True
End If
Exit Sub
ErrMsg:
MsgBox Err.Description, vbExclamation, "出错"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -