📄 frmchongdu.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmchongdu
Caption = "chongdu"
ClientHeight = 4605
ClientLeft = 1110
ClientTop = 345
ClientWidth = 5520
LinkTopic = "Form1"
ScaleHeight = 4605
ScaleWidth = 5520
Begin VB.PictureBox picButtons
Align = 2 'Align Bottom
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 0
ScaleHeight = 300
ScaleWidth = 5520
TabIndex = 17
Top = 4020
Width = 5520
Begin VB.CommandButton cmd关闭
Caption = "关闭(&C)"
Height = 300
Left = 4505
TabIndex = 22
Top = 0
Width = 975
End
Begin VB.CommandButton cmd更新
Caption = "更新(&U)"
Height = 300
Left = 3409
TabIndex = 21
Top = 0
Width = 975
End
Begin VB.CommandButton cmd刷新
Caption = "刷新(&R)"
Height = 300
Left = 2313
TabIndex = 20
Top = 0
Width = 975
End
Begin VB.CommandButton cmd删除
Caption = "删除(&D)"
Height = 300
Left = 1217
TabIndex = 19
Top = 0
Width = 975
End
Begin VB.CommandButton cmd添加
Caption = "添加(&A)"
Height = 300
Left = 121
TabIndex = 18
Top = 0
Width = 975
End
End
Begin VB.Data datSecondaryRS
Connect = ""
DatabaseName = "E:\temp\教务管理\Database\Mark.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 285
Left = 3120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 2310
Visible = 0 'False
Width = 1140
End
Begin VB.Data datPrimaryRS
Align = 2 'Align Bottom
Caption = " "
Connect = ""
DatabaseName = "E:\temp\教务管理\Database\Mark.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 285
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "select * from [chongdu] Order by [索引号]"
Top = 4320
Width = 5520
End
Begin VB.CheckBox chkFields
DataField = "试读是否合格"
DataSource = "datPrimaryRS"
Height = 285
Index = 7
Left = 2040
TabIndex = 15
Top = 2300
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "重读年月日"
DataSource = "datPrimaryRS"
Height = 285
Index = 6
Left = 2040
MaxLength = 50
TabIndex = 13
Top = 1980
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "重读性质"
DataSource = "datPrimaryRS"
Height = 285
Index = 5
Left = 2040
MaxLength = 50
TabIndex = 11
Top = 1660
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "现在所在班级"
DataSource = "datPrimaryRS"
Height = 285
Index = 4
Left = 2040
MaxLength = 50
TabIndex = 9
Top = 1340
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "原来所在班级"
DataSource = "datPrimaryRS"
Height = 285
Index = 3
Left = 2040
MaxLength = 50
TabIndex = 7
Top = 1020
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "姓名"
DataSource = "datPrimaryRS"
Height = 285
Index = 2
Left = 2040
MaxLength = 50
TabIndex = 5
Top = 700
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "学号"
DataSource = "datPrimaryRS"
Height = 285
Index = 1
Left = 2040
MaxLength = 50
TabIndex = 3
Top = 380
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "索引号"
DataSource = "datPrimaryRS"
Height = 285
Index = 0
Left = 2040
TabIndex = 1
Top = 60
Width = 1935
End
Begin MSDBGrid.DBGrid grdDataGrid
Bindings = "frmchongdu.frx":0000
Height = 1300
Left = 0
OleObjectBlob = "frmchongdu.frx":0182
TabIndex = 16
Top = 2620
Width = 5540
End
Begin VB.Label lblLabels
Caption = "试读是否合格:"
Height = 255
Index = 7
Left = 120
TabIndex = 14
Top = 2300
Width = 1815
End
Begin VB.Label lblLabels
Caption = "重读年月日:"
Height = 255
Index = 6
Left = 120
TabIndex = 12
Top = 1980
Width = 1815
End
Begin VB.Label lblLabels
Caption = "重读性质:"
Height = 255
Index = 5
Left = 120
TabIndex = 10
Top = 1660
Width = 1815
End
Begin VB.Label lblLabels
Caption = "现在所在班级:"
Height = 255
Index = 4
Left = 120
TabIndex = 8
Top = 1340
Width = 1815
End
Begin VB.Label lblLabels
Caption = "原来所在班级:"
Height = 255
Index = 3
Left = 120
TabIndex = 6
Top = 1020
Width = 1815
End
Begin VB.Label lblLabels
Caption = "姓名:"
Height = 255
Index = 2
Left = 120
TabIndex = 4
Top = 700
Width = 1815
End
Begin VB.Label lblLabels
Caption = "学号:"
Height = 255
Index = 1
Left = 120
TabIndex = 2
Top = 380
Width = 1815
End
Begin VB.Label lblLabels
Caption = "索引号:"
Height = 255
Index = 0
Left = 120
TabIndex = 0
Top = 60
Width = 1815
End
End
Attribute VB_Name = "frmchongdu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmd添加_Click()
datPrimaryRS.Recordset.AddNew
End Sub
Private Sub cmd删除_Click()
With datPrimaryRS.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
End Sub
Private Sub cmd刷新_Click()
'只有多用户应用程序需要
datPrimaryRS.Refresh
End Sub
Private Sub cmd更新_Click()
datPrimaryRS.UpdateRecord
datPrimaryRS.Recordset.BookMark = datPrimaryRS.Recordset.LastModified
End Sub
Private Sub cmd关闭_Click()
Screen.MousePointer = vbDefault
Unload Me
End Sub
Private Sub datPrimaryRS_Error(DataErr As Integer, Response As Integer)
'错误处理程序代码置于此处
'想要忽略错误，注释掉下一行
'想要俘获它们，在此添加代码处理它们
MsgBox "Data error event hit err:" & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub datPrimaryRS_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'使网格与主表记录集同步
datSecondaryRS.RecordSource = "select [索引号],[学号],[姓名],[原来所在班级],[现在所在班级],[重读性质],[重读年月日],[试读是否合格] from [chongdu] where [索引号]=" & datPrimaryRS.Recordset![索引号] & " Order by [索引号]"
datSecondaryRS.Refresh
'为 dynasets 和快照显示当前记录位置
datPrimaryRS.Caption = "Record: " & (datPrimaryRS.Recordset.AbsolutePosition + 1)
End Sub
Private Sub datPrimaryRS_Validate(Action As Integer, Save As Integer)
'验证代码置于此处
'下列动作发生时该事件被调用
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
Screen.MousePointer = vbDefault
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Load()
'创建网格记录集
datPrimaryRS.Refresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
On Error Resume Next
'当窗体调整时会调整网格
grdDataGrid.Width = Me.ScaleWidth
grdDataGrid.Height = Me.ScaleHeight - grdDataGrid.Top - datPrimaryRS.Height - picButtons.Height - 30
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -