📄 form1.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Form_zhu
BackColor = &H00C00000&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 11520
ClientLeft = 0
ClientTop = 0
ClientWidth = 15270
LinkTopic = "Form1"
ScaleHeight = 11520
ScaleWidth = 15270
ShowInTaskbar = 0 'False
WindowState = 2 'Maximized
Begin VB.Data Data8
Caption = "Data8"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 8640
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1560
Visible = 0 'False
Width = 1815
End
Begin VB.Data Data7
Caption = "Data7"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 6840
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1560
Visible = 0 'False
Width = 1815
End
Begin VB.Frame Frame15
BackColor = &H00C00000&
Caption = "三班记录"
ForeColor = &H00FFFF00&
Height = 2295
Left = 120
TabIndex = 86
Top = 6720
Width = 7695
Begin VB.Data Data6
Caption = "Data6"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 960
Visible = 0 'False
Width = 1815
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "Form1.frx":0000
Height = 1935
Left = 120
OleObjectBlob = "Form1.frx":0014
TabIndex = 87
Top = 240
Width = 7455
End
End
Begin VB.Frame Frame14
BackColor = &H00C00000&
Caption = "二班记录"
ForeColor = &H00FFFF00&
Height = 2295
Left = 120
TabIndex = 84
Top = 4320
Width = 7695
Begin VB.Data Data5
Caption = "Data5"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1080
Visible = 0 'False
Width = 1815
End
Begin MSDBGrid.DBGrid DBGrid4
Bindings = "Form1.frx":0ED3
Height = 1935
Left = 120
OleObjectBlob = "Form1.frx":0EE7
TabIndex = 85
Top = 240
Width = 7455
End
End
Begin VB.Frame Frame13
BackColor = &H00C00000&
Caption = "一班记录"
ForeColor = &H00FFFF00&
Height = 2295
Left = 120
TabIndex = 82
Top = 1920
Width = 7695
Begin MSDBGrid.DBGrid DBGrid5
Bindings = "Form1.frx":1DA6
Height = 1935
Left = 120
OleObjectBlob = "Form1.frx":1DBA
TabIndex = 83
Top = 240
Width = 7455
End
End
Begin VB.Data Data4
Caption = "Data4"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 5040
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1560
Visible = 0 'False
Width = 1815
End
Begin VB.Data Data3
Caption = "Data3"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 3240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1560
Visible = 0 'False
Width = 1815
End
Begin VB.Timer Timer5
Interval = 500
Left = 11640
Top = 1320
End
Begin VB.Timer Timer4
Interval = 10000
Left = 11160
Top = 840
End
Begin VB.Frame Frame2
BackColor = &H00C00000&
Height = 2415
Left = 120
TabIndex = 68
Top = 9000
Width = 15015
Begin VB.CommandButton Command10
Caption = "退出系统"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 13320
TabIndex = 104
Top = 1800
Width = 1455
End
Begin VB.Frame Frame17
BackColor = &H00C00000&
Height = 2175
Left = 7920
TabIndex = 98
Top = 120
Width = 5055
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
ItemData = "Form1.frx":2C79
Left = 1440
List = "Form1.frx":2C89
TabIndex = 106
Text = "一班"
Top = 600
Width = 1455
End
Begin VB.CommandButton Command11
Caption = "修改密码"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3360
TabIndex = 105
Top = 1560
Width = 1455
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
IMEMode = 3 'DISABLE
Left = 1440
PasswordChar = "*"
TabIndex = 102
Top = 1320
Width = 1455
End
Begin VB.CommandButton Command8
Caption = "登 录"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3360
TabIndex = 100
Top = 360
Width = 1455
End
Begin VB.CommandButton Command7
Caption = "注 销"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3360
TabIndex = 99
Top = 960
Width = 1455
End
Begin VB.Label Label35
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密 码"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Left = 360
TabIndex = 107
Top = 720
Width = 780
End
Begin VB.Label Label36
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密 码"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Left = 360
TabIndex = 101
Top = 1440
Width = 780
End
End
Begin VB.Frame Frame16
BackColor = &H00C00000&
Height = 2175
Left = 120
TabIndex = 89
Top = 120
Width = 7575
Begin VB.OptionButton Option3
BackColor = &H00C00000&
Caption = "记录查询"
BeginProperty Font
Name = "宋体"
Size = 12
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -