📄 frmbokinformu.dfm
字号:
object frmBokInform: TfrmBokInform
Left = 289
Top = 112
BorderStyle = bsNone
Caption = #22270#20070#35814#32454#20449#24687
ClientHeight = 536
ClientWidth = 717
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnCloseQuery = FormCloseQuery
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object GroupBox4: TGroupBox
Left = 0
Top = 385
Width = 717
Height = 151
Align = alClient
TabOrder = 0
object cdGrid: TcxGrid
Left = 2
Top = 15
Width = 713
Height = 134
Align = alClient
BevelKind = bkSoft
TabOrder = 0
object cdGridDBTableView1: TcxGridDBTableView
OnKeyUp = cdGridDBTableView1KeyUp
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
NavigatorButtons.ConfirmDelete = False
OnCellClick = cdGridDBTableView1CellClick
OptionsBehavior.DragHighlighting = False
OptionsBehavior.DragOpening = False
OptionsBehavior.DragScrolling = False
OptionsBehavior.ImmediateEditor = False
OptionsBehavior.ExpandMasterRowOnDblClick = False
OptionsCustomize.ColumnFiltering = False
OptionsCustomize.ColumnGrouping = False
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsCustomize.ColumnMoving = False
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellSelect = False
OptionsView.CellAutoHeight = True
OptionsView.GroupByBox = False
Styles.ContentOdd = cxStyle2
Styles.Selection = cxStyle3
Styles.Header = cxStyle1
object cdGridDBTableView1BookNO: TcxGridDBColumn
Caption = #22270#20070#32534#21495
DataBinding.FieldName = 'BookNO'
Width = 60
end
object cdGridDBTableView1Title: TcxGridDBColumn
Caption = #20070#21517
DataBinding.FieldName = 'Title'
Width = 200
end
object cdGridDBTableView1LoanDate: TcxGridDBColumn
Caption = #20511#20986#26085#26399
DataBinding.FieldName = 'LoanDate'
Width = 90
end
object cdGridDBTableView1Loan: TcxGridDBColumn
Caption = #20511#20986#65288'0'#27809#65292'1'#26377#65289
DataBinding.FieldName = 'Loan'
Width = 102
end
object cdGridDBTableView1Class: TcxGridDBColumn
Caption = #20998#31867
DataBinding.FieldName = 'Class'
Width = 80
end
object cdGridDBTableView1Term: TcxGridDBColumn
Caption = #38480#26399#65288#22825#65289
DataBinding.FieldName = 'Term'
end
object cdGridDBTableView1DBColumn2: TcxGridDBColumn
Caption = #20316#32773
DataBinding.FieldName = 'Author'
end
object cdGridDBTableView1DBColumn1: TcxGridDBColumn
Caption = #20986#29256#31038
DataBinding.FieldName = 'boConName'
end
end
object cdGridLevel1: TcxGridLevel
GridView = cdGridDBTableView1
end
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 717
Height = 385
Align = alTop
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
object Panel2: TPanel
Left = 553
Top = 0
Width = 164
Height = 385
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object GroupBox2: TGroupBox
Left = 3
Top = 240
Width = 161
Height = 145
Ctl3D = True
ParentCtl3D = False
TabOrder = 0
object btnAdd: TBitBtn
Left = 8
Top = 48
Width = 73
Height = 25
Caption = #28155#21152#26032#20070'(&A)'
TabOrder = 0
OnClick = btnAddClick
end
object btnEdit: TBitBtn
Left = 80
Top = 48
Width = 73
Height = 25
Caption = #20462#25913#20449#24687'(&E)'
TabOrder = 1
OnClick = btnEditClick
end
object btnDel: TBitBtn
Left = 80
Top = 80
Width = 73
Height = 25
Caption = #21024#38500#26412#20070'(&D)'
TabOrder = 2
OnClick = btnDelClick
end
object btnSave: TBitBtn
Left = 8
Top = 80
Width = 73
Height = 25
Caption = #20445#23384'(&S)'
Default = True
TabOrder = 5
OnClick = btnSaveClick
end
object btnCancel: TBitBtn
Left = 8
Top = 112
Width = 73
Height = 25
Cancel = True
Caption = #21462#28040'(&C)'
TabOrder = 6
OnClick = btnCancelClick
end
object btnClose: TBitBtn
Left = 80
Top = 112
Width = 73
Height = 25
Cancel = True
Caption = #20851#38381'(&C)'
TabOrder = 3
OnClick = btnCloseClick
end
object btnBrowse: TBitBtn
Left = 8
Top = 16
Width = 145
Height = 25
Caption = #27983#35272'...(&R)'
TabOrder = 4
OnClick = btnBrowseClick
end
end
object GroupBox1: TGroupBox
Left = 3
Top = 0
Width = 161
Height = 241
Caption = #23553#38754#65306
Ctl3D = True
ParentCtl3D = False
TabOrder = 1
object imgPic: TImage
Left = 2
Top = 15
Width = 157
Height = 224
Align = alClient
Proportional = True
end
end
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 553
Height = 385
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object Label9: TLabel
Left = 8
Top = 192
Width = 65
Height = 13
Caption = #24402#36824#38480#26399#65306
end
object Label8: TLabel
Left = 8
Top = 112
Width = 65
Height = 13
Caption = #38543#20070#36192#21697#65306
end
object Label7: TLabel
Left = 32
Top = 80
Width = 39
Height = 13
Caption = #20215#26684#65306
end
object Label6: TLabel
Left = 376
Top = 48
Width = 39
Height = 13
Caption = #20070#26550#65306
end
object Label5: TLabel
Left = 376
Top = 16
Width = 39
Height = 13
Caption = #20998#31867#65306
end
object Label4: TLabel
Left = 212
Top = 48
Width = 39
Height = 13
Caption = #20316#32773#65306
end
object Label3: TLabel
Left = 200
Top = 16
Width = 52
Height = 13
Caption = #20986#29256#31038#65306
end
object Label2: TLabel
Left = 8
Top = 48
Width = 65
Height = 13
Caption = #22270#20070#21517#31216#65306
end
object Label12: TLabel
Left = 200
Top = 80
Width = 52
Height = 13
Caption = #34987#20511#25968#65306
end
object Label11: TLabel
Left = 24
Top = 224
Width = 39
Height = 13
Caption = #22791#27880#65306
end
object labLoanDate: TLabel
Left = 200
Top = 192
Width = 65
Height = 13
Caption = #20511#20986#26085#26399#65306
end
object Label1: TLabel
Left = 8
Top = 16
Width = 65
Height = 13
Caption = #22270#20070#32534#21495#65306
end
object labLoan: TLabel
Left = 456
Top = 192
Width = 89
Height = 25
AutoSize = False
Caption = #31199#20511#29366#24577
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 376
Top = 80
Width = 52
Height = 13
Caption = #26465#24418#30721#65306
end
object moRemark: TMemo
Left = 72
Top = 224
Width = 465
Height = 137
Ctl3D = True
Lines.Strings = (
'moRemark')
ParentCtl3D = False
ScrollBars = ssBoth
TabOrder = 11
end
object moLargess: TMemo
Left = 72
Top = 112
Width = 465
Height = 65
Ctl3D = True
Lines.Strings = (
'moLargess')
ParentCtl3D = False
ScrollBars = ssBoth
TabOrder = 9
end
object edTerm: TEdit
Left = 72
Top = 192
Width = 121
Height = 21
Ctl3D = True
ParentCtl3D = False
TabOrder = 10
Text = 'edTerm'
OnKeyPress = edTermKeyPress
end
object edWBTN: TEdit
Left = 248
Top = 80
Width = 121
Height = 21
Ctl3D = True
Enabled = False
ParentCtl3D = False
TabOrder = 0
Text = 'edWBTN'
end
object edAuthor: TEdit
Left = 248
Top = 48
Width = 121
Height = 21
Ctl3D = True
MaxLength = 60
ParentCtl3D = False
TabOrder = 5
Text = 'edAuthor'
end
object edCost: TEdit
Left = 72
Top = 80
Width = 121
Height = 21
Ctl3D = True
ParentCtl3D = False
TabOrder = 7
Text = 'edCost'
OnKeyPress = edCostKeyPress
end
object edTitle: TEdit
Left = 72
Top = 48
Width = 121
Height = 21
Ctl3D = True
MaxLength = 40
ParentCtl3D = False
TabOrder = 4
Text = 'edTitle'
end
object edBookNo: TEdit
Left = 72
Top = 16
Width = 121
Height = 21
Ctl3D = True
MaxLength = 10
ParentCtl3D = False
TabOrder = 1
Text = 'edBookNo'
end
object dtLoanDate: TDateTimePicker
Left = 264
Top = 192
Width = 186
Height = 21
Date = 38854.889516597220000000
Time = 38854.889516597220000000
DateFormat = dfLong
TabOrder = 12
end
object comConName: TComboBox
Left = 248
Top = 16
Width = 121
Height = 21
Style = csDropDownList
Ctl3D = True
ItemHeight = 13
ParentCtl3D = False
TabOrder = 2
end
object comBookCase: TComboBox
Left = 416
Top = 48
Width = 121
Height = 21
Style = csDropDownList
Ctl3D = True
ItemHeight = 13
ParentCtl3D = False
TabOrder = 6
end
object comClass: TComboBox
Left = 416
Top = 16
Width = 121
Height = 21
Style = csDropDownList
Ctl3D = True
ItemHeight = 13
ParentCtl3D = False
TabOrder = 3
end
object edBarCode: TEdit
Left = 424
Top = 80
Width = 113
Height = 21
Ctl3D = True
MaxLength = 13
ParentCtl3D = False
TabOrder = 8
Text = 'edBarCode'
OnKeyPress = edBarCodeKeyPress
end
object bitInfoList: TBitBtn
Left = 240
Top = 368
Width = 137
Height = 17
Caption = #26174#31034#25152#26377#22270#20070#35760#24405
TabOrder = 13
OnClick = bitInfoListClick
end
end
end
object cxStyleRepository1: TcxStyleRepository
Left = 656
Top = 409
object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
TextColor = clAppWorkSpace
end
object cxStyle2: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clGradientActiveCaption
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
TextColor = clCaptionText
end
object cxStyle3: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clInfoBk
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
TextColor = clBtnText
end
end
object DataSource1: TDataSource
DataSet = DM.adoBokInform
Left = 624
Top = 409
end
object OpenPictureDialog: TOpenPictureDialog
Filter = 'JPEG Image File (*.jpg)|*.jpg'
Left = 684
Top = 256
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -