📄 u_print.dfm
字号:
object fprint: Tfprint
Left = 236
Top = 211
Width = 685
Height = 480
Caption = 'printing'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 677
Height = 49
Align = alTop
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 15
Width = 96
Height = 16
Caption = 'user/tester:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object comMuser: TcxLookupComboBox
Left = 116
Top = 16
AutoSize = False
Properties.Alignment.Vert = taVCenter
Properties.DropDownAutoSize = True
Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'Muser'
Properties.ListColumns = <
item
FieldName = 'Muser'
end
item
FieldName = 'Name'
end>
Properties.ListSource = dsu
Properties.ReadOnly = False
Properties.OnEditValueChanged = comMuserPropertiesEditValueChanged
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.Kind = lfStandard
TabOrder = 0
OnExit = comMuserExit
OnKeyPress = comMuserKeyPress
Height = 21
Width = 100
end
object comMuser2: TcxLookupComboBox
Left = 220
Top = 16
AutoSize = False
Enabled = False
Properties.Alignment.Vert = taVCenter
Properties.DropDownAutoSize = True
Properties.KeyFieldNames = 'Muser'
Properties.ListColumns = <
item
FieldName = 'Muser'
end
item
FieldName = 'Name'
end>
Properties.ListFieldIndex = 1
Properties.ListOptions.ShowHeader = False
Properties.ListSource = dsu
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.ButtonTransparency = ebtHideInactive
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.Kind = lfStandard
TabOrder = 1
Height = 21
Width = 145
end
end
object Panel2: TPanel
Left = 0
Top = 401
Width = 677
Height = 45
Align = alBottom
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object Button1: TButton
Left = 336
Top = 10
Width = 75
Height = 25
Caption = 'Clear(&C)'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 416
Top = 10
Width = 100
Height = 25
Caption = 'Print Label(&P)'
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
Left = 568
Top = 10
Width = 75
Height = 25
Caption = 'exit(&X)'
TabOrder = 2
OnClick = Button3Click
end
object Button4: TButton
Left = 32
Top = 8
Width = 100
Height = 25
Caption = 'Model Boxnum(&M)'
TabOrder = 3
OnClick = Button4Click
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 49
Width = 677
Height = 352
Align = alClient
BevelKind = bkTile
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
LookAndFeel.Kind = lfStandard
object TView: TcxGridTableView
NavigatorButtons.ConfirmDelete = False
NavigatorButtons.First.Visible = False
NavigatorButtons.PriorPage.Visible = False
NavigatorButtons.Prior.Visible = False
NavigatorButtons.Next.Visible = False
NavigatorButtons.NextPage.Visible = False
NavigatorButtons.Last.Visible = False
NavigatorButtons.Insert.Visible = True
NavigatorButtons.Delete.Visible = True
NavigatorButtons.Edit.Visible = False
NavigatorButtons.Post.Visible = False
NavigatorButtons.Cancel.Visible = False
NavigatorButtons.Refresh.Visible = False
NavigatorButtons.SaveBookmark.Visible = False
NavigatorButtons.GotoBookmark.Visible = False
NavigatorButtons.Filter.Visible = False
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.FocusFirstCellOnNewRecord = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Appending = True
OptionsSelection.InvertSelect = False
OptionsView.Navigator = True
OptionsView.NavigatorOffset = 0
OptionsView.CellAutoHeight = True
OptionsView.ColumnAutoWidth = True
OptionsView.DataRowHeight = 20
OptionsView.GroupByBox = False
OptionsView.Indicator = True
object Viewcomno: TcxGridColumn
Caption = 'comno'
PropertiesClassName = 'TcxMaskEditProperties'
Properties.CharCase = ecUpperCase
Properties.EditMask = 'AAA/AAAAA/aaaa'
Properties.OnValidate = ViewcomnoPropertiesValidate
HeaderAlignmentHorz = taCenter
Width = 150
end
object Viewmodel: TcxGridColumn
Caption = 'model'
PropertiesClassName = 'TcxMaskEditProperties'
Properties.CharCase = ecUpperCase
Properties.EditMask = 'AAA/AAAA/aa'
Properties.OnValidate = ViewmodelPropertiesValidate
HeaderAlignmentHorz = taCenter
Width = 135
end
object Viewnumber: TcxGridColumn
Caption = 'number'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.AssignedValues.EditFormat = True
Properties.DecimalPlaces = 0
Properties.DisplayFormat = '0'
Properties.UseThousandSeparator = True
Properties.OnValidate = ViewnumberPropertiesValidate
HeaderAlignmentHorz = taCenter
Width = 102
end
object Viewdate: TcxGridColumn
Caption = 'date'
PropertiesClassName = 'TcxDateEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DateOnError = deToday
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 110
end
object Viewboxnum: TcxGridColumn
Caption = 'boxnum'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.AssignedValues.DisplayFormat = True
Properties.DecimalPlaces = 0
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
Styles.Content = cxStyle1
Width = 69
end
object Viewpagenum: TcxGridColumn
Caption = 'pagenum'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.AssignedValues.EditFormat = True
Properties.DecimalPlaces = 0
Properties.DisplayFormat = '0'
HeaderAlignmentHorz = taCenter
Width = 91
end
end
object cxGrid1Level1: TcxGridLevel
GridView = TView
end
end
object Tu: TTable
TableName = 'Tuser.db'
Left = 96
Top = 88
object TuMuser: TStringField
FieldName = 'Muser'
Size = 15
end
object TuName: TStringField
FieldName = 'Name'
end
end
object dsu: TDataSource
DataSet = Tu
Left = 136
Top = 88
end
object cxStyleRepository1: TcxStyleRepository
Left = 56
Top = 88
object cxStyle1: TcxStyle
AssignedValues = [svColor]
Color = clInfoBk
end
end
object Table1: TTable
TableName = 'TsLb.db'
Left = 96
Top = 144
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -