📄 rl_newreadermanage.frm
字号:
Height = 300
ItemData = "RL_newReaderManage.frx":0D31
Left = 1815
List = "RL_newReaderManage.frx":0D3B
Style = 2 'Dropdown List
TabIndex = 67
Top = 1155
Width = 750
End
Begin MSComCtl2.DTPicker dtp_ReaderRegisterDate
Height = 300
Left = 6375
TabIndex = 64
Top = 1155
Width = 1995
_ExtentX = 3519
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 24707072
CurrentDate = 38432
End
Begin VB.TextBox txt_TelNumber
Height = 300
Left = 6375
MaxLength = 13
TabIndex = 13
Top = 225
Width = 2000
End
Begin VB.ComboBox cbo_CardType
Height = 300
ItemData = "RL_newReaderManage.frx":0D4B
Left = 1815
List = "RL_newReaderManage.frx":0D4D
Style = 2 'Dropdown List
TabIndex = 5
Top = 1620
Width = 2000
End
Begin VB.TextBox txt_CardNumber
Height = 300
Left = 1815
MaxLength = 18
TabIndex = 7
Top = 2085
Width = 2000
End
Begin VB.TextBox txt_ReaderName
Height = 300
Left = 1815
MaxLength = 8
TabIndex = 3
Top = 690
Width = 2000
End
Begin VB.TextBox txt_ReaderID
Height = 300
Left = 1815
MaxLength = 20
TabIndex = 1
Top = 225
Width = 2000
End
Begin VB.TextBox txt_Department
Height = 300
Left = 1815
MaxLength = 20
TabIndex = 11
Top = 3015
Width = 2000
End
Begin VB.ComboBox cbo_ReaderType
Height = 300
ItemData = "RL_newReaderManage.frx":0D4F
Left = 1815
List = "RL_newReaderManage.frx":0D51
Style = 2 'Dropdown List
TabIndex = 9
Top = 2550
Width = 2000
End
Begin VB.TextBox txt_Address
Height = 300
Left = 6375
MaxLength = 50
TabIndex = 15
Top = 690
Width = 2000
End
Begin VB.TextBox txt_Remarks
Height = 1700
Left = 6375
MaxLength = 100
MultiLine = -1 'True
TabIndex = 18
Top = 1605
Width = 2000
End
Begin VB.Label lbl_Sex
Caption = "性别(&S)"
Height = 240
Left = 270
TabIndex = 66
Top = 1224
Width = 1125
End
Begin VB.Label lbl_Address
Caption = "住址(&Z)"
Height = 240
Left = 5025
TabIndex = 14
Top = 762
Width = 1125
End
Begin VB.Label lbl_Remark
Caption = "备注(&Q)"
Height = 240
Left = 5025
TabIndex = 17
Top = 1686
Width = 1125
End
Begin VB.Label lbl_ReaderType
Caption = "类别(&T)"
Height = 240
Left = 270
TabIndex = 8
Top = 2610
Width = 1125
End
Begin VB.Label lbl_RegisterDate
Caption = "注册日期(&V)"
Height = 240
Left = 5025
TabIndex = 16
Top = 1224
Width = 1125
End
Begin VB.Label lbl_TelNumber
Caption = "联系电话(&L)"
Height = 240
Left = 5025
TabIndex = 12
Top = 300
Width = 1125
End
Begin VB.Label lbl_Department
Caption = "部门(&B)"
Height = 240
Left = 270
TabIndex = 10
Top = 3075
Width = 1125
End
Begin VB.Label lbl_CardNumber
Caption = "证件号(&C)"
Height = 240
Left = 270
TabIndex = 6
Top = 2148
Width = 1125
End
Begin VB.Label lbl_CardType
Caption = "证件类型(&Y)"
Height = 240
Left = 270
TabIndex = 4
Top = 1686
Width = 1125
End
Begin VB.Label lbl_BarCode
Caption = "姓名(&E)"
Height = 240
Left = 270
TabIndex = 2
Top = 762
Width = 1125
End
Begin VB.Label lbl_BooksID
Caption = "读者编号(&R)"
Height = 240
Left = 270
TabIndex = 0
Top = 300
Width = 1125
End
End
End
End
Attribute VB_Name = "RL_newReaderManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************************************************
'*公司名：华夏学院晨光网络公司
'*系统名：红杉图书信息管理系统
'*程序名：读者管理
'*程序ID：RL_newReaderManage
'*版本：3.0.0
'*最后修改时间：2005/4/16
'*修改人：cuitianlong
'*
'*-------------------------------------------------------------
'* [年月日] [制造者]
'*-------------------------------------------------------------
'* 2005/3/21 cuitianlong
'*
'***************************************************************
Option Explicit
Dim rc As New ADODB.Recordset '定义记录集
'***************************************************************
'* 窗体加载
'*
'* [参数]
'* 无
'* [返回]
'* 无
'***************************************************************
Private Sub Form_Load()
On Error GoTo Form_Load
'--- 窗体居中设置
Call Cmn_Form_Center(Me)
Me.Top = 500
'--- 设置各个控件初始值
Call Item_Clear
'---表格控件加载数据
Call Fr_Mshf
Exit Sub
Form_Load:
MsgBox "Form_Load()---出错", vbCritical, "错误"
End Sub
'***************************************************************
'* 窗体退出 [QueryUnload]
'*
'* [参数]
'* 1：系统参数
'* 2：系统参数
'* [返回]
'* 无
'***************************************************************
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error GoTo Form_QueryUnload
Dim YesNo As Integer
'---执行前确认
YesNo = MsgBox("真的要退出读者管理吗？", vbYesNo + vbQuestion, "提示")
If YesNo = vbYes Then
Unload Me
Else
Cancel = 1
End If
Exit Sub
Form_QueryUnload:
MsgBox "Form_QueryUnload()---出错", vbCritical, "错误"
End Sub
'***************************************************************
'* 窗体卸载 [Unload]
'*
'* [参数]
'* 1：系统参数
'* [返回]
'* 无
'***************************************************************
Private Sub Form_Unload(Cancel As Integer)
On Error GoTo Form_Unload
Call Cmn_Ado_DisRecordset(rc) '关闭记录集
Exit Sub
Form_Unload:
MsgBox "Form_Unload()---出错", vbCritical, "错误"
End Sub
'***************************************************************
'* 窗体项目清空
'*
'* [参数]
'* 无
'* [返回]
'* 无
'***************************************************************
Private Sub Item_Clear()
On Error GoTo Item_Clear
cbo_CardType.Clear
cbo_ReaderType.Clear
cbo_sReaderType.Clear
Call cbo_CardType_load
Call cbo_ReaderType_load
Call cbo_sReaderType_load
txt_ReaderID.Enabled = True
txt_TelNumber.text = ""
txt_sTelNumber.text = ""
txt_sRemarks.text = ""
txt_sReaderName.text = ""
txt_sReaderID.text = ""
txt_sDepartment.text = ""
txt_sCardNumber.text = ""
txt_RestrictAmmount.text = ""
txt_Remarks.text = ""
txt_ReaderName.text = ""
txt_ReaderID.text = ""
txt_NonceHoldAmount.text = ""
txt_GiveBackTime.text = ""
txt_Department.text = ""
txt_CardNumber.text = ""
txt_BorrowTime.text = ""
txt_AllowContinueTime.text = ""
txt_AllowBorrowDay.text = ""
txt_Address.text = ""
cbo_CardType.ListIndex = 0
cbo_ReaderType.ListIndex = 0
cbo_sReaderType.ListIndex = 0
cbo_Sex.ListIndex = 0
dtp_ReaderRegisterDate = Date
Exit Sub
Item_Clear:
MsgBox "Item_Clear()---出错", vbCritical, "错误"
End Sub
'****************************************************************
'* cbo_CardType_load
'*
'* [参数]
'* 无
'* [返回]
'* 无
'****************************************************************
Private Function cbo_CardType_load()
On Error GoTo cbo_CardType_load
Dim S_SQL As String
S_SQL = ""
S_SQL = "select cardtype from t_cardtype "
Call Cmn_Ado_Select_Nolock(S_SQL, rc)
Do While Not rc.EOF
cbo_CardType.AddItem rc("cardtype")
rc.MoveNext
Loop
Exit Function
cbo_CardType_load:
MsgBox "cbo_CardType_load()---出错", vbCritical, "错误"
End Function
'****************************************************************
'* cbo_ReaderType_load
'*
'* [参数]
'* 无
'* [返回]
'* 无
'****************************************************************
Private Function cbo_ReaderType_load()
On Error GoTo cbo_ReaderType_load
Dim S_SQL As String
S_SQL = ""
S_SQL = "select ReaderType from t_ReaderType "
Call Cmn_Ado_Select_Nolock(S_SQL, rc)
Do While Not rc.EOF
cbo_ReaderType.AddItem rc("ReaderType")
rc.MoveNext
Loop
Exit Function
cbo_ReaderType_load:
MsgBox "cbo_ReaderType_load()---出错", vbCritical, "错误"
End Function
'****************************************************************
'* cbo_sReaderType_load
'*
'* [参数]
'* 无
'* [返回]
'* 无
'****************************************************************
Private Function cbo_sReaderType_load()
On Error GoTo cbo_sReaderType_load
Dim S_SQL As String
cbo_sReaderType.AddItem ""
S_SQL = ""
S_SQL = "select ReaderType from t_ReaderType "
Call Cmn_Ado_Select_Nolock(S_SQL, rc)
Do While Not rc.EOF
cbo_sReaderType.AddItem rc("ReaderType")
rc.MoveNext
Loop
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -