formquery.frm
来自「vb数据库编程资料」· FRM 代码 · 共 455 行 · 第 1/2 页
FRM
455 行
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmQuery
BorderStyle = 1 'Fixed Single
Caption = "学生信查询"
ClientHeight = 6225
ClientLeft = 45
ClientTop = 330
ClientWidth = 8250
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6225
ScaleWidth = 8250
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton cmdQuit
Caption = "退出(&Q)"
Height = 615
Left = 120
TabIndex = 23
Top = 720
Width = 1815
End
Begin VB.TextBox txtStudent
Height = 270
Left = 120
MaxLength = 8
TabIndex = 0
Text = "Text1"
Top = 360
Width = 1815
End
Begin TabDlg.SSTab sstQuery
Height = 4095
Left = 120
TabIndex = 18
Top = 2040
Width = 8055
_ExtentX = 14208
_ExtentY = 7223
_Version = 393216
Style = 1
TabHeight = 520
TabCaption(0) = "学籍变更情况"
TabPicture(0) = "FormQuery.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "dbgChange"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "dataChange"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
TabCaption(1) = "奖励情况"
TabPicture(1) = "FormQuery.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "dbgReward"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "dataReward"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).ControlCount= 2
TabCaption(2) = "处罚情况"
TabPicture(2) = "FormQuery.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "dbgPunish"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "dataPunish"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).ControlCount= 2
Begin VB.Data dataPunish
Caption = "处罚记录"
Connect = "Access"
DatabaseName = "E:\Book Edit\VisualBasic数据库编程教程\ch12\Student.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 405
Left = -74640
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1560
Visible = 0 'False
Width = 2055
End
Begin VB.Data dataReward
Caption = "奖励记录"
Connect = "Access"
DatabaseName = "E:\Book Edit\VisualBasic数据库编程教程\ch12\Student.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 405
Left = -74760
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1440
Visible = 0 'False
Width = 2055
End
Begin VB.Data dataChange
Caption = "学籍变更"
Connect = "Access"
DatabaseName = "E:\Book Edit\VisualBasic数据库编程教程\ch12\Student.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 405
Left = 240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1320
Visible = 0 'False
Width = 2055
End
Begin MSDBGrid.DBGrid dbgChange
Bindings = "FormQuery.frx":0054
Height = 3495
Left = 120
OleObjectBlob = "FormQuery.frx":006D
TabIndex = 20
Top = 480
Width = 7815
End
Begin MSDBGrid.DBGrid dbgReward
Bindings = "FormQuery.frx":0F46
Height = 3495
Left = -74880
OleObjectBlob = "FormQuery.frx":0F5F
TabIndex = 21
Top = 480
Width = 7815
End
Begin MSDBGrid.DBGrid dbgPunish
Bindings = "FormQuery.frx":1E38
Height = 3495
Left = -74880
OleObjectBlob = "FormQuery.frx":1E51
TabIndex = 22
Top = 480
Width = 7815
End
End
Begin VB.Frame frStudent
Caption = "学生个人情况"
Height = 1815
Left = 2040
TabIndex = 1
Top = 120
Width = 6135
Begin VB.Label Label6
Alignment = 1 'Right Justify
Caption = "籍贯"
Height = 180
Left = 120
TabIndex = 17
Top = 1440
Width = 840
End
Begin VB.Label lblNative
BackColor = &H80000009&
Caption = "籍贯"
DataField = "native"
DataSource = "dataStudent"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 180
Left = 1080
TabIndex = 16
Top = 1440
Width = 1800
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "学号"
Height = 180
Left = 120
TabIndex = 15
Top = 360
Width = 840
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "姓名"
Height = 180
Left = 120
TabIndex = 14
Top = 720
Width = 840
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "性别"
Height = 180
Left = 120
TabIndex = 13
Top = 1080
Width = 840
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
Caption = "出生日期"
Height = 180
Left = 3120
TabIndex = 12
Top = 360
Width = 840
End
Begin VB.Label Label8
Alignment = 1 'Right Justify
Caption = "所属院系"
Height = 180
Left = 3120
TabIndex = 11
Top = 720
Width = 840
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?