📄 formquery.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmQuery
BorderStyle = 1 'Fixed Single
Caption = "学生信息查询"
ClientHeight = 5835
ClientLeft = 45
ClientTop = 435
ClientWidth = 12105
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5835
ScaleWidth = 12105
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton cmdOK
Caption = "确定"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 840
TabIndex = 21
Top = 1440
Width = 735
End
Begin VB.CommandButton cmdQuit
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2160
TabIndex = 20
Top = 1440
Width = 735
End
Begin VB.Data dataStudent
Caption = "基本情况"
Connect = "Access 2000;"
DatabaseName = "C:\Program Files\StudentMIS\StudentMIS.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 495
Left = 7920
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = $"FormQuery.frx":0000
Top = 5520
Visible = 0 'False
Width = 2055
End
Begin TabDlg.SSTab sstQuery
Height = 2175
Left = 2040
TabIndex = 19
Top = 3240
Width = 8415
_ExtentX = 14843
_ExtentY = 3836
_Version = 393216
Tab = 2
TabHeight = 520
TabCaption(0) = "学籍变更情况"
TabPicture(0) = "FormQuery.frx":00B5
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "dataChange"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "DBGrid1"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
TabCaption(1) = "奖励情况"
TabPicture(1) = "FormQuery.frx":00D1
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "dataReward"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "DBGrid2"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).ControlCount= 2
TabCaption(2) = "处罚情况"
TabPicture(2) = "FormQuery.frx":00ED
Tab(2).ControlEnabled= -1 'True
Tab(2).Control(0)= "dataPunish"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "DBGrid3"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).ControlCount= 2
Begin MSDBGrid.DBGrid DBGrid3
Bindings = "FormQuery.frx":0109
Height = 1335
Left = 480
OleObjectBlob = "FormQuery.frx":0122
TabIndex = 24
Top = 600
Width = 7695
End
Begin MSDBGrid.DBGrid DBGrid2
Bindings = "FormQuery.frx":0FED
Height = 1335
Left = -74520
OleObjectBlob = "FormQuery.frx":1006
TabIndex = 23
Top = 600
Width = 7695
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "FormQuery.frx":1ED1
Height = 1335
Left = -74520
OleObjectBlob = "FormQuery.frx":1EEA
TabIndex = 22
Top = 600
Width = 7575
End
Begin VB.Data dataPunish
Caption = "处罚情况"
Connect = "Access 2000;"
DatabaseName = "C:\Program Files\StudentMIS\StudentMIS.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Punish"
Top = 2040
Visible = 0 'False
Width = 2295
End
Begin VB.Data dataReward
Caption = "奖励情况"
Connect = "Access 2000;"
DatabaseName = "C:\Program Files\StudentMIS\StudentMIS.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = -74880
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Reward"
Top = 2040
Visible = 0 'False
Width = 2295
End
Begin VB.Data dataChange
Caption = "学籍变更"
Connect = "Access 2000;"
DatabaseName = "C:\Program Files\StudentMIS\StudentMIS.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = -74880
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Change"
Top = 2040
Visible = 0 'False
Width = 2295
End
End
Begin VB.TextBox txtMaster
DataField = "Master"
DataSource = "dataStudent"
Height = 375
Left = 8040
MaxLength = 50
TabIndex = 18
Text = "Text1"
Top = 2040
Width = 1935
End
Begin VB.TextBox txtClass
DataField = "Student.ClassName"
DataSource = "dataStudent"
Height = 375
Left = 8040
MaxLength = 50
TabIndex = 16
Text = "Text1"
Top = 1440
Width = 1935
End
Begin VB.TextBox txtDepartName
DataField = "DepartName"
DataSource = "dataStudent"
Height = 375
Left = 8040
MaxLength = 50
TabIndex = 15
Text = "Text1"
Top = 840
Width = 1935
End
Begin VB.TextBox txtStudentID
DataField = "StudentID"
DataSource = "dataStudent"
Height = 375
Left = 4200
MaxLength = 8
TabIndex = 7
Text = "Text1"
Top = 840
Width = 1935
End
Begin VB.TextBox txtName
DataField = "Name"
DataSource = "dataStudent"
Height = 375
Left = 4200
MaxLength = 8
TabIndex = 6
Text = "Text1"
Top = 1440
Width = 1935
End
Begin VB.TextBox txtSex
DataField = "Sex"
DataSource = "dataStudent"
Height = 375
Left = 4200
MaxLength = 2
TabIndex = 5
Text = "Text1"
Top = 2040
Width = 1935
End
Begin VB.TextBox txtBirthday
DataField = "Birthday"
DataSource = "dataStudent"
Height = 375
Left = 4200
MaxLength = 50
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -