⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 u_print.dfm

📁 no infomation. say it again. no infomation
💻 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 + -