?? frmbaseinputnew.frm
字號:
Height = 270
Left = 7155
TabIndex = 45
Top = 795
Width = 615
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "戶口屬性"
BeginProperty Font
Name = "宋體"
Size = 14.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 4260
TabIndex = 44
Top = 720
Width = 1245
End
Begin VB.Label Label6
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "院系"
BeginProperty Font
Name = "宋體"
Size = 14.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 2160
TabIndex = 43
Top = 720
Width = 675
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "民族"
BeginProperty Font
Name = "宋體"
Size = 14.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 90
TabIndex = 42
Top = 705
Width = 675
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "性別"
BeginProperty Font
Name = "宋體"
Size = 14.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 7155
TabIndex = 41
Top = 255
Width = 615
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "出生年月"
BeginProperty Font
Name = "宋體"
Size = 14.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 4260
TabIndex = 40
Top = 225
Width = 1245
End
Begin VB.Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "姓名"
BeginProperty Font
Name = "宋體"
Size = 14.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 2160
TabIndex = 39
Top = 225
Width = 675
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "學號"
BeginProperty Font
Name = "宋體"
Size = 14.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 90
TabIndex = 38
Top = 240
Width = 675
End
Begin VB.Shape Shape1
FillColor = &H00C00000&
FillStyle = 0 'Solid
Height = 3105
Left = 90
Shape = 4 'Rounded Rectangle
Top = 90
Width = 9345
End
Begin VB.Shape Shape2
FillColor = &H00C00000&
FillStyle = 0 'Solid
Height = 2175
Left = 90
Shape = 4 'Rounded Rectangle
Top = 3240
Width = 9345
End
Begin VB.Menu MNU1
Caption = "文件[&F]"
Begin VB.Menu MNU11
Caption = "退出[&X]"
End
End
Begin VB.Menu MNU2
Caption = "數據操作[&F]"
Begin VB.Menu MNU21
Caption = "記錄添加[&A]"
End
Begin VB.Menu MNU22
Caption = "數據刪除[&D]"
End
End
Begin VB.Menu MNU3
Caption = "記錄翻看[&L]"
Begin VB.Menu MNU31
Caption = "移至首位"
End
Begin VB.Menu MNU32
Caption = "移至未位"
End
Begin VB.Menu MNU33
Caption = "向前移位"
End
Begin VB.Menu MNU34
Caption = "向后移位"
End
End
Begin VB.Menu MNUQH
Caption = "功能切換[&N]"
Begin VB.Menu MNUQH1
Caption = "信息查詢"
End
Begin VB.Menu MNUQH2
Caption = "數據統計"
End
Begin VB.Menu MNUQH3
Caption = "全屏修改"
End
End
Begin VB.Menu MNU4
Caption = "幫助[&H]"
Begin VB.Menu MNU41
Caption = "使用說明"
End
End
End
Attribute VB_Name = "frmBaseInput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim bModify As Boolean
Dim bQuery As Boolean
Dim bAddnew As Boolean
Dim bDelete As Boolean
Dim rec As Recordset
Dim BookMark As Integer
Dim recCount As Integer
Private Sub cboHKSX_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
If KeyAscii = 13 Then
If bModify Then
'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set hksx='" + Trim(cboHKSX) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
'End If
End If
txtBJ.SetFocus
End If
End Sub
Private Sub cboHKSX_LostFocus()
Dim sqlModify As String
If bModify Then
'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set hksx='" + Trim(cboHKSX) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
'End If
End If
End Sub
Private Sub cboMZ_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
If KeyAscii = 13 Then
If bModify Then
'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set mz='" + Trim(cboMZ) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
' End If
End If
cboYX.SetFocus
End If
End Sub
Private Sub cboMZ_LostFocus()
Dim sqlModify As String
If bModify Then
'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set mz='" + Trim(cboMZ) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
'End If
End If
End Sub
Private Sub cboNJ_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
If KeyAscii = 13 Then
If bModify Then
'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set nj='" + Trim(cboNJ) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
'End If
End If
cboSY.SetFocus
End If
End Sub
Private Sub cboNJ_LostFocus()
Dim sqlModify As String
If bModify Then
'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set nj='" + Trim(cboNJ) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
' End If
End If
End Sub
Private Sub cboPYFS_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
If KeyAscii = 13 Then
If bModify Then
'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set pyfs='" + Trim(cboPYFS) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
'End If
End If
txtSFZHM.SetFocus
End If
End Sub
Private Sub cboPYFS_LostFocus()
Dim sqlModify As String
If bModify Then
'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set pyfs='" + Trim(cboPYFS) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
'End If
End If
End Sub
Private Sub cboSY_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
If KeyAscii = 13 Then
If bModify Then
'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set sy='" + Trim(cboSY) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
'End If
End If
cboZZMM.SetFocus
End If
End Sub
Private Sub cboSY_LostFocus()
Dim sqlModify As String
If bModify Then
'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set sy='" + Trim(cboSY) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
'End If
End If
End Sub
Private Sub cboXB_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
If KeyAscii = 13 Then
If bModify Then
' If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set xb='" + Trim(cboXB) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
'End If
End If
cboMZ.SetFocus
End If
End Sub
Private Sub cboXB_LostFocus()
Dim sqlModify As String
If bModify Then
'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set xb='" + Trim(cboXB) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
' End If
End If
End Sub
Private Sub cboXL_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
If KeyAscii = 13 Then
If bModify Then
'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set xl='" + Trim(cboXL) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
' End If
End If
txtTC.SetFocus
End If
End Sub
Private Sub cboXL_LostFocus()
Dim sqlModify As String
If bModify Then
'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set xl='" + Trim(cboXL) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
'End If
End If
End Sub
Private Sub cboYX_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
If KeyAscii = 13 Then
If bModify Then
'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set yx='" + Trim(cboYX) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
' End If
End If
cboHKSX.SetFocus
End If
End Sub
Private Sub cboYX_LostFocus()
Dim sqlModify As String
If bModify Then
'If MsgBox("確信要修改?", vbQuestion + vbYesNo, "刪除前詢問") = vbYes Then
sqlModify = "update zbqkb set yx='" + Trim(cboYX) + "' where id=" + Trim(rec!ID) + ""
dbStudent.Execute sqlModify
' End If
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -