📄 rl_newreadermanage.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form RL_newReaderManage
BorderStyle = 3 'Fixed Dialog
Caption = "读者管理"
ClientHeight = 6465
ClientLeft = 45
ClientTop = 330
ClientWidth = 9360
Icon = "RL_newReaderManage.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6465
ScaleWidth = 9360
ShowInTaskbar = 0 'False
Begin MSHierarchicalFlexGridLib.MSHFlexGrid msh_ReaderManage
Height = 1695
Left = 90
TabIndex = 65
Top = 4140
Width = 9150
_ExtentX = 16140
_ExtentY = 2990
_Version = 393216
AllowUserResizing= 1
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin VB.CommandButton cmd_Add
Caption = "添加(&A)"
Height = 345
Left = 4530
TabIndex = 22
Top = 5985
Width = 1095
End
Begin VB.CommandButton cmd_Modification
Caption = "修改(&M)"
Height = 345
Left = 5745
TabIndex = 23
Top = 5985
Width = 1095
End
Begin VB.CommandButton cmd_Delete
Caption = "删除(&D)"
Height = 345
Left = 6945
TabIndex = 24
Top = 5985
Width = 1095
End
Begin VB.CommandButton cmd_Quit
Caption = "关闭(&Q)"
Height = 345
Left = 8145
TabIndex = 25
Top = 5985
Width = 1095
End
Begin VB.CommandButton cmd_Previous
Caption = "上一条记录(&P)"
Enabled = 0 'False
Height = 345
Left = 75
TabIndex = 19
Top = 5985
Width = 1370
End
Begin VB.CommandButton cmd_Next
Caption = "下一条记录(&N)"
Enabled = 0 'False
Height = 345
Left = 1530
TabIndex = 20
Top = 5985
Width = 1370
End
Begin VB.CommandButton cmd_Excel
Caption = "导出Excel(&X)"
Enabled = 0 'False
Height = 345
Left = 3000
TabIndex = 21
Top = 5985
Width = 1370
End
Begin TabDlg.SSTab sst_ReaderManage
Height = 4005
Left = 90
TabIndex = 54
Top = 0
Width = 9165
_ExtentX = 16166
_ExtentY = 7064
_Version = 393216
Style = 1
TabHeight = 520
TabCaption(0) = "读者基本资料(&1)"
TabPicture(0) = "RL_newReaderManage.frx":0CCA
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "fra_ReaderBasic"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "读者借书信息(&2)"
TabPicture(1) = "RL_newReaderManage.frx":0CE6
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "fra_ReaderBorrow"
Tab(1).ControlCount= 1
TabCaption(2) = "查询(&3)"
TabPicture(2) = "RL_newReaderManage.frx":0D02
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "fra_Search"
Tab(2).ControlCount= 1
Begin VB.Frame fra_Search
Height = 3480
Left = -74850
TabIndex = 57
Top = 345
Width = 8825
Begin VB.TextBox txt_sDepartment
Height = 300
Left = 1815
MaxLength = 20
TabIndex = 45
Top = 1620
Width = 2000
End
Begin VB.TextBox txt_sTelNumber
Height = 300
Left = 1815
MaxLength = 13
TabIndex = 47
Top = 2070
Width = 2000
End
Begin VB.TextBox txt_sReaderID
Height = 300
Left = 1815
MaxLength = 20
TabIndex = 39
Top = 225
Width = 2000
End
Begin VB.TextBox txt_sReaderName
Height = 300
Left = 1815
MaxLength = 8
TabIndex = 41
Top = 675
Width = 2000
End
Begin VB.TextBox txt_sCardNumber
Height = 300
Left = 1815
MaxLength = 18
TabIndex = 43
Top = 1155
Width = 2000
End
Begin VB.ComboBox cbo_sReaderType
Height = 300
ItemData = "RL_newReaderManage.frx":0D1E
Left = 1815
List = "RL_newReaderManage.frx":0D25
Style = 2 'Dropdown List
TabIndex = 49
Top = 2535
Width = 1995
End
Begin VB.TextBox txt_sRemarks
Height = 2115
Left = 6345
MaxLength = 100
TabIndex = 51
Top = 225
Width = 2000
End
Begin VB.CommandButton cmd_Search
Caption = "搜索(&S)"
Height = 345
Left = 6015
TabIndex = 52
Top = 2925
Width = 1095
End
Begin VB.CommandButton cmd_Clear
Caption = "清空(&C)"
Height = 345
Left = 7230
TabIndex = 53
Top = 2925
Width = 1095
End
Begin VB.Label lbl_sReaderID
Caption = "读者编号(&K)"
Height = 360
Left = 270
TabIndex = 38
Top = 270
Width = 1275
End
Begin VB.Label lbl_sReaderName
Caption = "姓名(&E)"
Height = 390
Left = 270
TabIndex = 40
Top = 720
Width = 1410
End
Begin VB.Label lbl_sCardNumber
Caption = "证件号(&V)"
Height = 360
Left = 270
TabIndex = 42
Top = 1200
Width = 1230
End
Begin VB.Label lbl_sDepartment
Caption = "部门(&U)"
Height = 315
Left = 270
TabIndex = 44
Top = 1665
Width = 645
End
Begin VB.Label lbl_sTelNumber
Caption = "联系电话(&J)"
Height = 375
Left = 270
TabIndex = 46
Top = 2130
Width = 1080
End
Begin VB.Label lbl_sReaderType
Caption = "类别(&Y)"
Height = 405
Left = 270
TabIndex = 48
Top = 2595
Width = 645
End
Begin VB.Label lbl_sRemark
Caption = "备注(&G)"
Height = 375
Left = 5040
TabIndex = 50
Top = 270
Width = 705
End
End
Begin VB.Frame fra_ReaderBorrow
Height = 3480
Left = -74850
TabIndex = 56
Top = 345
Width = 8835
Begin VB.TextBox txt_AllowBorrowDay
Enabled = 0 'False
Height = 300
Left = 2100
TabIndex = 33
Top = 1650
Width = 750
End
Begin VB.TextBox txt_BorrowTime
Enabled = 0 'False
Height = 300
Left = 2100
TabIndex = 35
Top = 2115
Width = 750
End
Begin VB.TextBox txt_GiveBackTime
Enabled = 0 'False
Height = 300
Left = 2100
TabIndex = 37
Top = 2580
Width = 750
End
Begin VB.TextBox txt_RestrictAmmount
Enabled = 0 'False
Height = 300
Left = 2100
TabIndex = 27
Top = 225
Width = 750
End
Begin VB.TextBox txt_NonceHoldAmount
Enabled = 0 'False
Height = 300
Left = 2100
TabIndex = 29
Top = 675
Width = 750
End
Begin VB.TextBox txt_AllowContinueTime
Enabled = 0 'False
Height = 300
Left = 2100
TabIndex = 31
Top = 1170
Width = 750
End
Begin VB.Label lbl_p3
Caption = "次"
Height = 210
Left = 3075
TabIndex = 63
Top = 1215
Width = 240
End
Begin VB.Label lbl_p
Caption = "本"
Height = 300
Left = 3075
TabIndex = 62
Top = 270
Width = 405
End
Begin VB.Label lbl_GiveBackTime
Caption = "归还次数(&F)"
Height = 240
Left = 270
TabIndex = 36
Top = 2625
Width = 1125
End
Begin VB.Label lbl_NonceHoldAmount
Caption = "目前已借数量(&R)"
Height = 240
Left = 270
TabIndex = 28
Top = 735
Width = 1365
End
Begin VB.Label lbl_BorrowTime
Caption = "借书次数(&Z)"
Height = 240
Left = 270
TabIndex = 34
Top = 2160
Width = 1485
End
Begin VB.Label lbl_AllowBorrowDay
Caption = "允许借书期限(&E)"
Height = 240
Left = 270
TabIndex = 32
Top = 1695
Width = 1485
End
Begin VB.Label lbl_AllowContinueTime
Caption = "允许续借次数(&O)"
Height = 240
Left = 270
TabIndex = 30
Top = 1215
Width = 1485
End
Begin VB.Label lbl_RestrictAmmount
Caption = "借书数量上限(&L)"
Height = 240
Left = 270
TabIndex = 26
Top = 270
Width = 1365
End
Begin VB.Label lbl_p2
Caption = "本"
Height = 300
Left = 3075
TabIndex = 61
Top = 735
Width = 405
End
Begin VB.Label lbl_p4
Caption = "天"
Height = 300
Left = 3075
TabIndex = 60
Top = 1695
Width = 405
End
Begin VB.Label lbl_p5
Caption = "次"
Height = 210
Left = 3075
TabIndex = 59
Top = 2160
Width = 240
End
Begin VB.Label lbl_p6
Caption = "次"
Height = 210
Left = 3075
TabIndex = 58
Top = 2625
Width = 240
End
End
Begin VB.Frame fra_ReaderBasic
Height = 3480
Left = 150
TabIndex = 55
Top = 345
Width = 8835
Begin VB.ComboBox cbo_Sex
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -