peditjobb.dfm

通用的条码打印程序

object FormEditJobB: TFormEditJobB
  Left = 66
  Top = 341
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'B类打印作业(修改)'
  ClientHeight = 193
  ClientWidth = 655
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StaticText2: TStaticText
    Left = 40
    Top = 48
    Width = 68
    Height = 20
    Caption = '产品代码'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 14
  end
  object StaticText3: TStaticText
    Left = 40
    Top = 74
    Width = 68
    Height = 20
    Caption = '加工代码'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 15
  end
  object StaticText4: TStaticText
    Left = 40
    Top = 22
    Width = 68
    Height = 20
    Caption = '综合编码'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 16
  end
  object StaticText5: TStaticText
    Left = 360
    Top = 44
    Width = 68
    Height = 20
    Caption = '生产数量'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 17
  end
  object StaticText6: TStaticText
    Left = 360
    Top = 104
    Width = 68
    Height = 20
    Caption = '出荷编号'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 18
  end
  object StaticText7: TStaticText
    Left = 360
    Top = 130
    Width = 68
    Height = 20
    Caption = '标签起数'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 19
  end
  object StaticText8: TStaticText
    Left = 360
    Top = 156
    Width = 68
    Height = 20
    Caption = '标签止数'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 20
  end
  object StaticText9: TStaticText
    Left = 40
    Top = 132
    Width = 68
    Height = 20
    Caption = '检验代码'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 21
  end
  object StaticText10: TStaticText
    Left = 40
    Top = 159
    Width = 68
    Height = 20
    Caption = '部件代码'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 22
  end
  object ButtonCancle: TButton
    Left = 566
    Top = 155
    Width = 75
    Height = 25
    Caption = '取消'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = ButtonCancleClick
  end
  object ButtonOK: TButton
    Left = 567
    Top = 106
    Width = 75
    Height = 25
    Caption = '确定'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = ButtonOKClick
  end
  object EditLotNo: TEdit
    Left = 433
    Top = 19
    Width = 121
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    MaxLength = 9
    ParentFont = False
    TabOrder = 1
    OnChange = EditLotNoChange
  end
  object EditCode: TEdit
    Left = 111
    Top = 22
    Width = 121
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnChange = EditCodeChange
  end
  object EditProductCode: TEdit
    Left = 112
    Top = 48
    Width = 121
    Height = 21
    TabStop = False
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ReadOnly = True
    TabOrder = 23
  end
  object EditProcessCode: TEdit
    Left = 112
    Top = 74
    Width = 121
    Height = 21
    TabStop = False
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ReadOnly = True
    TabOrder = 24
  end
  object EditCheckCode: TEdit
    Left = 112
    Top = 132
    Width = 121
    Height = 21
    TabStop = False
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ReadOnly = True
    TabOrder = 25
  end
  object EditPartCode: TEdit
    Left = 112
    Top = 159
    Width = 121
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
  end
  object EditHeNo: TEdit
    Left = 432
    Top = 101
    Width = 121
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    MaxLength = 7
    ParentFont = False
    TabOrder = 8
  end
  object Button2: TButton
    Left = 569
    Top = 19
    Width = 75
    Height = 25
    Caption = '选择...'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 13
    OnClick = Button2Click
  end
  object Button4: TButton
    Left = 248
    Top = 18
    Width = 75
    Height = 25
    Caption = '选择...'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    OnClick = Button4Click
  end
  object Button7: TButton
    Left = 248
    Top = 155
    Width = 75
    Height = 25
    Caption = '选择...'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    OnClick = Button7Click
  end
  object StaticText11: TStaticText
    Left = 40
    Top = 110
    Width = 68
    Height = 20
    Caption = '包装单位'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 26
  end
  object StaticText18: TStaticText
    Left = 360
    Top = 21
    Width = 68
    Height = 20
    Caption = '生产批号'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 27
  end
  object EditAmount: TMaskEdit
    Left = 432
    Top = 40
    Width = 121
    Height = 21
    EditMask = '!999999999;1;_'
    MaxLength = 9
    TabOrder = 2
    Text = '         '
    OnChange = EditAmountChange
  end
  object EditUnit: TMaskEdit
    Left = 112
    Top = 107
    Width = 121
    Height = 21
    EditMask = '!9999;1;_'
    MaxLength = 4
    TabOrder = 6
    Text = '    '
    OnChange = EditAmountChange
  end
  object EditStart: TMaskEdit
    Left = 432
    Top = 127
    Width = 121
    Height = 21
    EditMask = '!999999999;1;_'
    MaxLength = 9
    TabOrder = 9
    Text = '         '
  end
  object EditEnd: TMaskEdit
    Left = 432
    Top = 152
    Width = 121
    Height = 21
    EditMask = '!999999999;1;_'
    MaxLength = 9
    TabOrder = 10
    Text = '         '
  end
  object CheckBoxUsa: TCheckBox
    Left = 429
    Top = 75
    Width = 127
    Height = 17
    Caption = '打印部件代码'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object ADODataSetLot: TADODataSet
    Parameters = <>
    Left = 312
    Top = 64
  end
end