📄 frmbookinfo.frm
字号:
VERSION 5.00
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 frmbookinfo
BorderStyle = 1 'Fixed Single
Caption = "书籍资料管理"
ClientHeight = 6195
ClientLeft = 45
ClientTop = 435
ClientWidth = 6180
Icon = "frmbookinfo.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 6195
ScaleWidth = 6180
Begin TabDlg.SSTab SSTab1
Height = 6495
Left = 0
TabIndex = 7
Top = 0
Width = 6255
_ExtentX = 11033
_ExtentY = 11456
_Version = 393216
Tabs = 2
Tab = 1
TabHeight = 520
TabCaption(0) = "书籍类别管理"
TabPicture(0) = "frmbookinfo.frx":19862
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Label5"
Tab(0).Control(1)= "Label4"
Tab(0).Control(2)= "bookstyleGrid"
Tab(0).Control(3)= "txt类别名称"
Tab(0).Control(4)= "txt类别编号"
Tab(0).Control(5)= "cmdadd"
Tab(0).Control(6)= "cmdmodify"
Tab(0).Control(7)= "cmddel"
Tab(0).Control(8)= "cmdexit"
Tab(0).ControlCount= 9
TabCaption(1) = "出版社资料管理"
TabPicture(1) = "frmbookinfo.frx":1987E
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Label1"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label2"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "booksourceGrid"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "txt出版社名"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "txt出版地点"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "cmdexit2"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "cmddel2"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "cmdmodify2"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "cmdadd2"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).ControlCount= 9
Begin VB.CommandButton cmdadd2
Caption = "添加"
Height = 375
Left = 360
TabIndex = 11
Top = 5400
Width = 1215
End
Begin VB.CommandButton cmdmodify2
Caption = "修改"
Height = 375
Left = 1680
TabIndex = 12
Top = 5400
Width = 1215
End
Begin VB.CommandButton cmddel2
Caption = "删除"
Height = 375
Left = 3000
TabIndex = 13
Top = 5400
Width = 1215
End
Begin VB.CommandButton cmdexit2
Caption = "退出"
Height = 375
Left = 4440
TabIndex = 14
Top = 5400
Width = 1215
End
Begin VB.TextBox txt出版地点
BackColor = &H80000014&
Height = 375
Left = 1560
TabIndex = 10
Top = 4440
Width = 4095
End
Begin VB.TextBox txt出版社名
BackColor = &H80000014&
Height = 375
Left = 1560
TabIndex = 9
Top = 3960
Width = 4095
End
Begin VB.CommandButton cmdexit
Cancel = -1 'True
Caption = "退出"
Height = 375
Left = -70440
TabIndex = 6
Top = 5400
Width = 1215
End
Begin VB.CommandButton cmddel
Caption = "删除"
Height = 375
Left = -71760
TabIndex = 5
Top = 5400
Width = 1215
End
Begin VB.CommandButton cmdmodify
Caption = "修改"
Height = 375
Left = -73200
TabIndex = 4
Top = 5400
Width = 1215
End
Begin VB.CommandButton cmdadd
Caption = "添加"
Default = -1 'True
Height = 375
Left = -74520
TabIndex = 3
Top = 5400
Width = 1215
End
Begin VB.TextBox txt类别编号
BackColor = &H80000014&
Height = 375
Left = -73440
TabIndex = 1
Top = 3960
Width = 4095
End
Begin VB.TextBox txt类别名称
BackColor = &H80000014&
Height = 375
Left = -73440
TabIndex = 2
Top = 4440
Width = 4095
End
Begin MSFlexGridLib.MSFlexGrid bookstyleGrid
Height = 2655
Left = -74520
TabIndex = 0
Top = 840
Width = 5175
_ExtentX = 9128
_ExtentY = 4683
_Version = 393216
Rows = 1
FixedCols = 0
BackColorBkg = 14737632
SelectionMode = 1
AllowUserResizing= 1
End
Begin MSFlexGridLib.MSFlexGrid booksourceGrid
Height = 2655
Left = 480
TabIndex = 8
Top = 840
Width = 5175
_ExtentX = 9128
_ExtentY = 4683
_Version = 393216
Rows = 1
FixedCols = 0
BackColorBkg = 14737632
SelectionMode = 1
AllowUserResizing= 1
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "出版地点："
Height = 180
Left = 480
TabIndex = 18
Top = 4530
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "出版社名："
Height = 180
Left = 480
TabIndex = 17
Top = 4050
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "类别编号："
Height = 180
Left = -74520
TabIndex = 16
Top = 4050
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "类别名称："
Height = 180
Left = -74520
TabIndex = 15
Top = 4530
Width = 900
End
End
End
Attribute VB_Name = "frmbookinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'-------------------------------------------------------
' 作者：龙茂春
' 功能： 添加、删除、修改书类别信息。
'-------------------------------------------------------
Public Function bookstylelist_update()
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "select * from tslbb" 'tslbb表'
'将书籍资料表所有记录显示在frmbookinfo窗体的bookstylegrid表中'
Dim i As Integer
Set rs = TransactSQL(sql)
If Not rs.EOF Then
With bookstyleGrid
.Rows = 1
While Not rs.EOF
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = rs(0)
.TextMatrix(.Rows - 1, 1) = rs(1)
rs.MoveNext
Wend
End With
End If
rs.Close
End Function
Public Function booksourcelist_update()
Dim rs As New ADODB.Recordset
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -