📄 frmjiang.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#2.0#0"; "THREED20.OCX"
Begin VB.Form frmMain
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Caption = "奖惩助勤贷补 "
ClientHeight = 6540
ClientLeft = 30
ClientTop = 615
ClientWidth = 9510
Icon = "frmJiang.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 6540
ScaleWidth = 9510
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 148
Top = 0
Width = 9510
_ExtentX = 16775
_ExtentY = 741
ButtonWidth = 635
ButtonHeight = 582
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 13
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "button1"
Object.ToolTipText = "退出"
Object.Tag = ""
ImageIndex = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "button2"
Object.ToolTipText = "奖励"
Object.Tag = ""
ImageIndex = 2
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "button3"
Object.ToolTipText = "惩罚"
Object.Tag = ""
ImageIndex = 3
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "button4"
Object.ToolTipText = "助学金"
Object.Tag = ""
ImageIndex = 4
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "button5"
Object.ToolTipText = "贷学金"
Object.Tag = ""
ImageIndex = 5
EndProperty
BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "button6"
Object.ToolTipText = "困难补助"
Object.Tag = ""
ImageIndex = 6
EndProperty
BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "button7"
Object.ToolTipText = "勤工助学"
Object.Tag = ""
ImageIndex = 7
EndProperty
EndProperty
BorderStyle = 1
Begin VB.CommandButton Command1
BackColor = &H0000FF00&
Caption = "编辑状态"
Height = 285
Left = 6000
Style = 1 'Graphical
TabIndex = 149
Top = 60
Width = 1000
End
End
Begin VB.Data DataMain
Caption = "奖惩助补信息库"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 372
Left = 270
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 5160
Visible = 0 'False
Width = 990
End
Begin VB.Frame FrameEdit
BackColor = &H00C0C0C0&
Height = 6045
Left = 0
TabIndex = 34
Top = 450
Width = 9555
Begin Threed.SSPanel SSPanel1
Height = 585
Left = 180
TabIndex = 150
Top = 5430
Width = 9165
_ExtentX = 16166
_ExtentY = 1032
_Version = 131073
BevelInner = 1
Begin VB.CommandButton Command8
Caption = "查询"
DisabledPicture = "frmJiang.frx":0442
Height = 365
Left = 390
TabIndex = 156
Top = 120
Width = 705
End
Begin VB.CommandButton cmdFirst
Height = 365
Left = 2730
Picture = "frmJiang.frx":074C
Style = 1 'Graphical
TabIndex = 160
Top = 120
Width = 705
End
Begin VB.CommandButton cmdNext
Height = 365
Left = 3420
Picture = "frmJiang.frx":08B2
Style = 1 'Graphical
TabIndex = 159
Top = 120
Width = 705
End
Begin VB.CommandButton cmdPrevious
Height = 365
Left = 4110
Picture = "frmJiang.frx":0A14
Style = 1 'Graphical
TabIndex = 158
Top = 120
Width = 705
End
Begin VB.CommandButton cmdLast
Height = 365
Left = 4800
Picture = "frmJiang.frx":0B3E
Style = 1 'Graphical
TabIndex = 157
Top = 120
Width = 705
End
Begin VB.CommandButton Command9
Caption = "编辑"
Height = 365
Left = 1350
TabIndex = 155
Top = 120
Width = 705
End
Begin VB.CommandButton Command10
Caption = "添加"
Height = 365
Left = 6000
TabIndex = 154
Top = 120
Width = 705
End
Begin VB.CommandButton Command11
Caption = "删除"
Height = 365
Left = 6720
TabIndex = 153
Top = 120
Width = 705
End
Begin VB.CommandButton Command12
Caption = "保存"
Height = 365
Left = 7440
TabIndex = 152
Top = 120
Width = 705
End
Begin VB.CommandButton Command13
Caption = "取消"
Height = 365
Left = 8160
TabIndex = 151
Top = 120
Width = 705
End
Begin VB.CommandButton Command7
Caption = "浏览"
Height = 365
Left = 390
TabIndex = 161
Top = 120
Width = 705
End
End
Begin MSDBGrid.DBGrid DBGridScan
Bindings = "frmJiang.frx":0C98
Height = 2715
Left = 180
OleObjectBlob = "frmJiang.frx":0CAB
TabIndex = 33
Top = 2700
Width = 9165
End
Begin VB.Frame FrameKB
Enabled = 0 'False
Height = 2475
Index = 1
Left = 180
TabIndex = 35
Top = 120
Visible = 0 'False
Width = 9165
Begin VB.TextBox Text36
BackColor = &H00FFFFFF&
DataField = "Jianglny"
DataSource = "DataMain"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 3570
TabIndex = 5
ToolTipText = "按""98-12-23""这样格式输入"
Top = 1950
Width = 1572
End
Begin VB.TextBox Text6
BackColor = &H00FFFFFF&
DataField = "Jianglyy"
DataSource = "DataMain"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 4710
MultiLine = -1 'True
TabIndex = 3
Top = 1280
Width = 2496
End
Begin VB.TextBox Text7
BackColor = &H00FFFFFF&
DataField = "Banjdw"
DataSource = "DataMain"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1065
Left = 7380
MultiLine = -1 'True
TabIndex = 7
Top = 1280
Width = 1335
End
Begin VB.ComboBox Combo5
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -