📄 frmmain.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form FrmMain
Caption = "零点图书管理系统 V2.0 (作者主页：jiaping.9xc.com)"
ClientHeight = 8115
ClientLeft = 165
ClientTop = 855
ClientWidth = 11670
Icon = "FrmMain.frx":0000
LinkTopic = "Form1"
ScaleHeight = 8115
ScaleWidth = 11670
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComDlg.CommonDialog CommonDialog1
Left = 5640
Top = 3840
_ExtentX = 847
_ExtentY = 847
_Version = 393216
DefaultExt = "mdb"
DialogTitle = "数据备份"
Filter = "*.mdb|*.*"
End
Begin VB.Timer Timer1
Interval = 1000
Left = 5280
Top = 3840
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 54
Top = 7740
Width = 11670
_ExtentX = 20585
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 4
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 3528
MinWidth = 3528
Text = "零点图书管理系统"
TextSave = "零点图书管理系统"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 3528
MinWidth = 3528
Text = "软件开发：顾加平"
TextSave = "软件开发：顾加平"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 4586
MinWidth = 4586
Text = "E-mail:jiapingboy@163.com"
TextSave = "E-mail:jiapingboy@163.com"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 2
Object.Width = 6244
MinWidth = 6244
EndProperty
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 1815
Left = 240
TabIndex = 5
Top = 6120
Width = 11175
_ExtentX = 19711
_ExtentY = 3201
_Version = 393216
End
Begin TabDlg.SSTab SSTab1
Height = 4815
Left = 1800
TabIndex = 4
Top = 1080
Width = 9615
_ExtentX = 16960
_ExtentY = 8493
_Version = 393216
Tabs = 2
TabHeight = 520
TabMaxWidth = 1764
TabCaption(0) = "借书"
TabPicture(0) = "FrmMain.frx":030A
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label3"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label4"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label5(0)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label6"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label7"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label8"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label9"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label10"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Label11"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Label12"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Label23"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "Label24(0)"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "TxtReaderNo"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "TxtReaderName"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "TxtBorrowedCount"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "Frame2"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "TxtBookNo"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "TxtBookName"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "TxtBookAuthor"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "TxtBookPress"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "TxtBookKind"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "TxtBookPrice"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "CmdBorrow"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "TxtRemainCount"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).ControlCount= 24
TabCaption(1) = "还书"
TabPicture(1) = "FrmMain.frx":0326
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Label5(1)"
Tab(1).Control(1)= "Label13"
Tab(1).Control(2)= "Label14"
Tab(1).Control(3)= "Label15"
Tab(1).Control(4)= "Label16"
Tab(1).Control(5)= "Label17"
Tab(1).Control(6)= "Label18"
Tab(1).Control(7)= "Label19"
Tab(1).Control(8)= "Label20"
Tab(1).Control(9)= "Label21"
Tab(1).Control(10)= "Label22"
Tab(1).Control(11)= "Label24(1)"
Tab(1).Control(12)= "TxtBorrowedCount2"
Tab(1).Control(13)= "TxtReaderName2"
Tab(1).Control(14)= "TxtReaderNo2"
Tab(1).Control(15)= "TxtBookPrice2"
Tab(1).Control(16)= "TxtBookKind2"
Tab(1).Control(17)= "TxtBookPress2"
Tab(1).Control(18)= "TxtBookAuthor2"
Tab(1).Control(19)= "TxtBookName2"
Tab(1).Control(20)= "Frame3"
Tab(1).Control(21)= "CmbBookNo"
Tab(1).Control(22)= "CmdBack"
Tab(1).Control(23)= "TxtBorrowDate"
Tab(1).Control(24)= "TxtDays"
Tab(1).Control(25)= "CmdDisplay"
Tab(1).ControlCount= 26
Begin VB.TextBox TxtRemainCount
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = 5160
TabIndex = 58
Top = 3480
Width = 1815
End
Begin VB.CommandButton CmdDisplay
Caption = "显示"
Height = 375
Left = -70800
TabIndex = 57
Top = 2040
Width = 975
End
Begin VB.TextBox TxtDays
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = -73560
Locked = -1 'True
TabIndex = 52
Top = 3960
Width = 1815
End
Begin VB.TextBox TxtBorrowDate
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = -69840
Locked = -1 'True
TabIndex = 51
Top = 3480
Width = 1815
End
Begin VB.CommandButton CmdBack
Caption = "归还该图书"
Height = 855
Left = -67320
TabIndex = 48
Top = 3240
Visible = 0 'False
Width = 855
End
Begin VB.ComboBox CmbBookNo
BackColor = &H80000018&
Height = 300
Left = -73560
Style = 2 'Dropdown List
TabIndex = 47
Top = 2040
Width = 1815
End
Begin VB.Frame Frame3
Height = 135
Left = -74640
TabIndex = 46
Top = 1680
Width = 8175
End
Begin VB.TextBox TxtBookName2
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = -73560
Locked = -1 'True
TabIndex = 39
Top = 2520
Width = 1815
End
Begin VB.TextBox TxtBookAuthor2
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = -69840
Locked = -1 'True
TabIndex = 38
Top = 2520
Width = 1815
End
Begin VB.TextBox TxtBookPress2
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = -73560
Locked = -1 'True
TabIndex = 37
Top = 3000
Width = 1815
End
Begin VB.TextBox TxtBookKind2
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = -69840
Locked = -1 'True
TabIndex = 36
Top = 3000
Width = 1815
End
Begin VB.TextBox TxtBookPrice2
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = -73560
Locked = -1 'True
TabIndex = 35
Top = 3480
Width = 1815
End
Begin VB.TextBox TxtReaderNo2
Appearance = 0 'Flat
BackColor = &H0080FF80&
Height = 270
Left = -73560
Locked = -1 'True
TabIndex = 31
Top = 720
Width = 1815
End
Begin VB.TextBox TxtReaderName2
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = -69960
Locked = -1 'True
TabIndex = 30
Top = 720
Width = 2175
End
Begin VB.TextBox TxtBorrowedCount2
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = -73560
Locked = -1 'True
TabIndex = 29
Top = 1200
Width = 1815
End
Begin VB.CommandButton CmdBorrow
Caption = "借阅该图书"
Height = 735
Left = 8160
TabIndex = 28
Top = 3480
Visible = 0 'False
Width = 855
End
Begin VB.TextBox TxtBookPrice
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = 1440
Locked = -1 'True
TabIndex = 26
Top = 3480
Width = 1815
End
Begin VB.TextBox TxtBookKind
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = 5160
Locked = -1 'True
TabIndex = 25
Top = 3000
Width = 1815
End
Begin VB.TextBox TxtBookPress
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = 1440
Locked = -1 'True
TabIndex = 24
Top = 3000
Width = 1815
End
Begin VB.TextBox TxtBookAuthor
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 270
Left = 5160
Locked = -1 'True
TabIndex = 23
Top = 2520
Width = 1815
End
Begin VB.TextBox TxtBookName
Appearance = 0 'Flat
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -