【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了frmIssue.frm提供大家参考，希望对大家有所帮助!
VERSION 5.00
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmIssue
Caption = "Book Issue Info"
ClientHeight = 6375
ClientLeft = 60
ClientTop = 345
ClientWidth = 7245
Icon = "frmIssue.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6375
ScaleWidth = 7245
WindowState = 2 'Maximized
Begin TabDlg.SSTab sstabIssueInfo
Height = 6255
Left = 360
TabIndex = 0
Top = 720
Width = 10125
_ExtentX = 17859
_ExtentY = 11033
_Version = 393216
Tabs = 2
TabHeight = 520
BackColor = 12632256
ForeColor = 128
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "借书业务"
TabPicture(0) = "frmIssue.frx":0442
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "lblIssueDate"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "lblLibraryId"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label1"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "txtIssueDate"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Frame2"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "cmbLibraryId"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "cmbBookId"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "cmdMemberOpen"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "cmdBookOpen"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).ControlCount= 9
TabCaption(1) = "所有出借图书"
TabPicture(1) = "frmIssue.frx":045E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "DataGrid1"
Tab(1).ControlCount= 1
Begin VB.CommandButton cmdBookOpen
Caption = "..."
BeginProperty Font
Name = "Tahoma"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5760
TabIndex = 5
Top = 1920
Width = 495
End
Begin VB.CommandButton cmdMemberOpen
Caption = "..."
BeginProperty Font
Name = "Tahoma"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5760
TabIndex = 8
Top = 2520
Width = 495
End
Begin VB.ComboBox cmbBookId
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 3000
TabIndex = 4
Text = "Book ID"
Top = 1920
Width = 2655
End
Begin VB.ComboBox cmbLibraryId
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 3000
TabIndex = 7
Text = "Library Id"
Top = 2520
Width = 2655
End
Begin VB.Frame Frame2
BackColor = &H00000080&
BorderStyle = 0 'None
Caption = "Frame2"
Height = 975
Left = 360
TabIndex = 17
Top = 4800
Width = 10455
Begin
VB.CommandButton cmdCancel
BackColor = &H00FFFFFF&
Caption = "&Cancel"
Height = 735
Left = 3840
Picture = "frmIssue.frx":047A
Style = 1 'Graphical
TabIndex = 12
Top = 120
Width = 1215
End
Begin VB.CommandButton cmdAddNew
BackColor = &H00FFFFFF&
Caption = "&Add New"
Height = 735
Left = 240
Picture = "frmIssue.frx":07FB
Style = 1 'Graphical
TabIndex = 9
Top = 120
Width = 1215
End
Begin VB.CommandButton cmdDel
BackColor = &H00FFFFFF&
Caption = "&Delete"
Height = 735
Left = 1440
Picture = "frmIssue.frx":0B51
Style = 1 'Graphical
TabIndex = 10
Top = 120
Width = 1215
End
Begin VB.CommandButton cmdSave
BackColor = &H00FFFFFF&
Caption = "&Save"
Height = 735
Left = 2640
Picture = "frmIssue.frx":0ED2
Style = 1 'Graphical
TabIndex = 11
Top = 120
Width = 1215
End
Begin VB.CommandButton cmdFirst
BackColor = &H00FFFFFF&
Caption = "Move &First"
Height = 735
Left = 5280
Picture = "frmIssue.frx":1220
Style = 1 'Graphical
TabIndex = 13
Top = 120
Width = 1215
End
Begin VB.CommandButton cmdNext
BackColor = &H00FFFFFF&
Caption = "Move &Next"
Height = 735
Left = 7680
Picture = "frmIssue.frx":2905
Style = 1 'Graphical
TabIndex = 15
Top = 120
Width = 1215
End
Begin VB.CommandButton cmdPrevious
BackColor = &H00FFFFFF&
Caption = "Move &Previous"
Height = 735
Left = 6480
Picture = "frmIssue.frx":3E66
Style = 1 'Graphical
TabIndex = 14
Top = 120
Width = 1215
End
Begin VB.CommandButton cmdLast
BackCol
相关文章
2013-9-1
