?? main.frm
字號:
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 4695
Left = 840
TabIndex = 3
Top = 5640
Width = 14175
Begin MSComctlLib.ListView LV2
Height = 3855
Left = 120
TabIndex = 4
Top = 240
Width = 13935
_ExtentX = 24580
_ExtentY = 6800
Sorted = -1 'True
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
GridLines = -1 'True
_Version = 393217
ForeColor = 8388736
BackColor = 12648447
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "已經(jīng)借出的圖書"
ForeColor = &H00FF0000&
Height = 180
Left = 4800
TabIndex = 5
Top = 240
Width = 1260
End
End
Begin VB.Frame Frame1
Caption = "基本信息"
BeginProperty Font
Name = "楷體_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 4215
Left = 840
TabIndex = 2
Top = 1200
Width = 4095
Begin VB.TextBox txtFa
ForeColor = &H000000FF&
Height = 345
Left = 1200
TabIndex = 34
Text = "Text1"
Top = 3645
Width = 1335
End
Begin VB.Frame Frame5
Caption = "Frame5"
Height = 135
Left = 3720
TabIndex = 28
Top = 0
Width = 15
End
Begin VB.TextBox txtZhiCheng
ForeColor = &H00FF0000&
Height = 330
Left = 1200
TabIndex = 27
Text = "Text1"
Top = 3000
Width = 1695
End
Begin MSComctlLib.ImageList ImageList1
Left = 5400
Top = 4200
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":AC9E
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":B0F2
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":B546
Key = ""
EndProperty
EndProperty
End
Begin VB.TextBox txtDepart
ForeColor = &H00FF0000&
Height = 345
Left = 1200
TabIndex = 12
Text = "Text1"
Top = 2400
Width = 1695
End
Begin VB.TextBox txtClass
ForeColor = &H00FF0000&
Height = 345
Left = 1200
TabIndex = 11
Text = "Text1"
Top = 1800
Width = 1695
End
Begin VB.TextBox txtName
ForeColor = &H00FF0000&
Height = 345
Left = 1200
TabIndex = 10
Text = "Text1"
Top = 1200
Width = 1695
End
Begin VB.TextBox txtBookId
ForeColor = &H00FF0000&
Height = 330
Left = 1200
TabIndex = 0
Text = "Text1"
Top = 600
Width = 1695
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "元"
ForeColor = &H00000000&
Height = 180
Index = 12
Left = 2640
TabIndex = 35
Top = 3720
Width = 180
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "共計(jì)欠費(fèi)"
ForeColor = &H00000000&
Height = 180
Index = 11
Left = 240
TabIndex = 33
Top = 3720
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "職 稱"
ForeColor = &H00000000&
Height = 180
Index = 9
Left = 240
TabIndex = 26
Top = 3120
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "部 門"
ForeColor = &H00000000&
Height = 180
Index = 3
Left = 240
TabIndex = 9
Top = 2520
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "班 級"
ForeColor = &H00000000&
Height = 180
Index = 2
Left = 240
TabIndex = 8
Top = 1920
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "姓 名"
ForeColor = &H00000000&
Height = 180
Index = 1
Left = 240
TabIndex = 7
Top = 1320
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "借書證號"
ForeColor = &H00000000&
Height = 180
Index = 0
Left = 240
TabIndex = 6
Top = 720
Width = 720
End
End
Begin VB.Line Line3
X1 = 15000
X2 = 0
Y1 = 1080
Y2 = 1080
End
Begin VB.Menu mnuSys
Caption = "系統(tǒng)管理(&S)"
Begin VB.Menu mnuSysAdmin
Caption = "管理員"
End
Begin VB.Menu ExitMnu
Caption = "退出"
End
End
Begin VB.Menu MnuFile
Caption = "圖書管理(&C)"
Begin VB.Menu FenMnu
Caption = "圖書分類(&F)"
Shortcut = ^F
End
Begin VB.Menu s5
Caption = "-"
End
Begin VB.Menu AddMnu
Caption = "添加新書(&A)"
Shortcut = ^A
End
Begin VB.Menu EditMnu
Caption = "編輯圖書(&E)"
Shortcut = ^E
End
End
Begin VB.Menu mnuStudentID
Caption = "借書證管理"
Begin VB.Menu EditIdMnu
Caption = "編輯借書證(&J)"
Shortcut = ^J
End
Begin VB.Menu s2
Caption = "-"
End
Begin VB.Menu SetMnu
Caption = "借書設(shè)置&S)"
Shortcut = ^S
End
End
Begin VB.Menu ToolMnu
Caption = "操作(&T)"
Begin VB.Menu LoginMnu
Caption = "登錄(&D)"
End
Begin VB.Menu s3
Caption = "-"
End
Begin VB.Menu SearchMnu
Caption = "查找(&F)"
End
Begin VB.Menu BackMnu
Caption = "還書(&H)"
End
End
Begin VB.Menu bb
Caption = "報表(P)"
Begin VB.Menu tsbb
Caption = "圖書信息報表打印"
Shortcut = +{F1}
End
Begin VB.Menu dzbb
Caption = "讀者報信息表打印"
Shortcut = +{F2}
End
Begin VB.Menu dc
Caption = "借出書籍信息報表打印"
Shortcut = +{F3}
End
End
End
Attribute VB_Name = "Mainfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db1 As Database
Dim db2 As Database
Dim db3 As Database
Dim rst As Recordset
Dim rst1 As Recordset '打開表Personal
Dim rst2 As Recordset '打開表BookFlag
Dim rst3 As Recordset '打開表Book
Dim ws1 As Workspace
Dim ws2 As Workspace
Dim qry2 As QueryDef
Dim RecNumBookFf As Integer '表BookFf的記錄個數(shù)
Dim SFlag As String
Private Type MSet
BookNum As Integer
BookCost As Single
End Type
Dim SetFlag As MSet
Option Explicit
Private Sub AboutMnu_Click()
Aboutfrm.Show (1)
End Sub
Private Sub AddMnu_Click()
Sb.Panels(1).Text = "添加新書"
AddNewBook.Show (1)
Sb.Panels(1).Text = SFlag
End Sub
Private Sub BackMnu_Click()
cmdBackBook_Click
End Sub
Private Sub cmdBackBook_Click() '打開還書對話框
cmdKong_Click
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -