📄 rl_newbooksmanage.frm
字号:
Begin VB.TextBox txt_ISBN
Height = 300
Left = 1815
MaxLength = 13
TabIndex = 5
Top = 1170
Width = 2000
End
Begin VB.TextBox txt_BarCode
Height = 300
Left = 1815
MaxLength = 13
TabIndex = 3
Top = 675
Width = 2000
End
Begin VB.TextBox txt_BooksID
Height = 300
Left = 1815
MaxLength = 10
TabIndex = 1
Top = 225
Width = 2000
End
Begin VB.TextBox txt_Page
Height = 300
Left = 6345
MaxLength = 4
TabIndex = 19
Top = 1170
Width = 750
End
Begin VB.TextBox txt_Writer
Height = 300
Left = 1815
MaxLength = 20
TabIndex = 11
Top = 2580
Width = 2000
End
Begin VB.ComboBox cbo_BooksType
Height = 300
Left = 1815
Style = 2 'Dropdown List
TabIndex = 9
Top = 2115
Width = 1995
End
Begin VB.ComboBox cbo_Publishing
Height = 300
Left = 1815
Style = 2 'Dropdown List
TabIndex = 13
Top = 3030
Width = 1995
End
Begin VB.TextBox txt_Price
Height = 300
Left = 6345
MaxLength = 4
TabIndex = 15
Top = 225
Width = 750
End
Begin VB.TextBox txt_Remarks
Height = 1650
Left = 6345
MaxLength = 100
MultiLine = -1 'True
TabIndex = 21
Top = 1650
Width = 2000
End
Begin VB.Label lbl_Page_1
Caption = "页"
Height = 195
Left = 7425
TabIndex = 56
Top = 1215
Width = 405
End
Begin VB.Label lbl_Price
Caption = "价格(&E)"
Height = 240
Left = 5040
TabIndex = 14
Top = 270
Width = 1125
End
Begin VB.Label lbl_Remark
Caption = "简介(&R)"
Height = 240
Left = 5040
TabIndex = 20
Top = 1680
Width = 1125
End
Begin VB.Label lbl_BooksType
Caption = "类别(&T)"
Height = 240
Left = 270
TabIndex = 8
Top = 2160
Width = 1125
End
Begin VB.Label lbl_Page
Caption = "页数(&G)"
Height = 240
Left = 5040
TabIndex = 18
Top = 1215
Width = 1125
End
Begin VB.Label lbl_PublishingDate
Caption = "出版日期(&U)"
Height = 240
Left = 5040
TabIndex = 16
Top = 735
Width = 1125
End
Begin VB.Label lbl_Publishing
Caption = "出版社(&H)"
Height = 240
Left = 270
TabIndex = 12
Top = 3090
Width = 1125
End
Begin VB.Label lbl_Writer
Caption = "作者(&W)"
Height = 240
Left = 270
TabIndex = 10
Top = 2625
Width = 1125
End
Begin VB.Label lbl_BooksName
Caption = "图书名称(&K)"
Height = 240
Left = 270
TabIndex = 6
Top = 1695
Width = 1125
End
Begin VB.Label lbl_ISBN
Caption = "ISBN(&I)"
Height = 240
Left = 270
TabIndex = 4
Top = 1215
Width = 1125
End
Begin VB.Label lbl_BarCode
Caption = "条形码(&C)"
Height = 240
Left = 270
TabIndex = 2
Top = 735
Width = 1125
End
Begin VB.Label lbl_BooksID
Caption = "图书编号(&B)"
Height = 240
Left = 270
TabIndex = 0
Top = 270
Width = 1125
End
Begin VB.Label lbl_Yuan
Caption = "元"
Height = 300
Left = 7425
TabIndex = 55
Top = 270
Width = 405
End
End
End
End
Attribute VB_Name = "RL_newBooksManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************************************************
'*公司名：华夏学院晨光网络公司
'*系统名：红杉图书信息管理系统
'*程序名：图书管理
'*程序ID：RL_newBooksManage
'*版本：3.1.0
'*最后修改时间：2005/4/15
'*修改人：cuitianlong
'*
'*-------------------------------------------------------------
'* [年月日] [制造者]
'*-------------------------------------------------------------
'* 2005/3/23 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
'---先将combobox清空
cbo_BooksType.Clear
cbo_Publishing.Clear
cbo_Place.Clear
cbo_sPublishing.Clear
cbo_sBooksType.Clear
'---在将数据逐条写进combobox中
Call cbo_BooksType_load
Call cbo_Publishing_load
Call cbo_Place_load
Call cbo_sPublishing_load
Call cbo_sBooksType_load
'---初始各个控件的值
txt_BarCode.text = ""
txt_sBarCode.text = ""
txt_sRemarks.text = ""
txt_sBooksID.text = ""
txt_sBooksName.text = ""
txt_sWriter.text = ""
txt_Remarks.text = ""
txt_ISBN.text = ""
txt_BooksID.text = ""
txt_Price.text = ""
txt_BooksName.text = ""
txt_Writer.text = ""
txt_Page.text = ""
cbo_BooksType.ListIndex = 0
cbo_Publishing.ListIndex = 0
cbo_sPublishing.ListIndex = 0
cbo_Place.ListIndex = 0
cbo_sBooksType.ListIndex = 0
dtp_PublishingDate.Value = Date
dtp_BooksRegisterDate.Value = Date
txt_Handler.text = C_LoginName
txt_HandleDate.text = CStr(Format(Now, "yyyy年MM月dd日 HH:mm:ss"))
Exit Sub
Item_Clear:
MsgBox "Item_Clear()---出错", vbCritical, "错误"
End Sub
'****************************************************************
'* cbo_BooksType_load
'*
'* [参数]
'* 无
'* [返回]
'* 无
'****************************************************************
Private Function cbo_BooksType_load()
On Error GoTo cbo_BooksType_load
Dim S_SQL As String
S_SQL = ""
S_SQL = "select BooksType from t_BooksType "
Call Cmn_Ado_Select_Nolock(S_SQL, rc)
'---将数据逐条写进cbo_BooksType中
Do While Not rc.EOF
cbo_BooksType.AddItem rc("BooksType")
rc.MoveNext
Loop
Exit Function
cbo_BooksType_load:
MsgBox "cbo_BooksType_load()---出错", vbCritical, "错误"
End Function
'****************************************************************
'* cbo_Publishing_load
'*
'* [参数]
'* 无
'* [返回]
'* 无
'****************************************************************
Private Function cbo_Publishing_load()
On Error GoTo cbo_Publishing_load
Dim S_SQL As String
S_SQL = ""
S_SQL = "select Publishing from t_Publishing "
Call Cmn_Ado_Select_Nolock(S_SQL, rc)
'---将数据逐条写进cbo_Publishing中
Do While Not rc.EOF
cbo_Publishing.AddItem rc("Publishing")
rc.MoveNext
Loop
Exit Function
cbo_Publishing_load:
MsgBox "cbo_Publishing_load()---出错", vbCritical, "错误"
End Function
'****************************************************************
'* cbo_sPublishing_load
'*
'* [参数]
'* 无
'* [返回]
'* 无
'****************************************************************
Private Function cbo_sPublishing_load()
On Error GoTo cbo_sPublishing_load
Dim S_SQL As String
'---插入一空白行，保证不将其列入搜索条件
cbo_sPublishing.AddItem ""
S_SQL = ""
S_SQL = "select Publishing from t_Publishing "
Call Cmn_Ado_Select_Nolock(S_SQL, rc)
'---将数据逐条写进cbo_sPublishing中
Do While Not rc.EOF
cbo_sPublishing.AddItem rc("Publishing")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -