devhardoptions.dfm

Barcode And LabelPrint

inherited FrmDevhardOptions: TFrmDevhardOptions
  Left = 244
  Top = 221
  Width = 595
  Height = 408
  Caption = #26426#22120#21151#33021#37197#32622
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar: TToolBar
    Width = 587
    object ToolButton1: TToolButton [13]
      Left = 380
      Top = 0
      Caption = #23548#20986
      ImageIndex = 21
      OnClick = ToolButton1Click
    end
    inherited tbtDivider3: TToolButton
      Left = 413
    end
    inherited tbtExit: TToolButton
      Left = 421
    end
  end
  inherited StatusBar1: TStatusBar
    Top = 362
    Width = 587
  end
  inherited Panel1: TPanel
    Width = 587
  end
  inherited Panel2: TPanel
    Height = 305
  end
  inherited Panel3: TPanel
    Left = 579
    Height = 305
  end
  inherited Panel4: TPanel
    Top = 353
    Width = 587
  end
  inherited Panel5: TPanel
    Width = 575
    Height = 305
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 305
      Height = 305
      Align = alLeft
      Caption = #26426#22411#21151#33021#37197#32622#31649#29702
      TabOrder = 0
      object Label9: TLabel
        Left = 373
        Top = 330
        Width = 57
        Height = 13
        AutoSize = False
        Caption = #35814#32454#25551#36848
      end
      object Panel6: TPanel
        Left = 2
        Top = 15
        Width = 301
        Height = 264
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 3
          Width = 26
          Height = 13
          Caption = #32534#21495
        end
        object Label2: TLabel
          Left = 9
          Top = 31
          Width = 52
          Height = 13
          Caption = #33521#25991#31616#31216
        end
        object Label3: TLabel
          Left = 8
          Top = 55
          Width = 52
          Height = 13
          Caption = #20013#25991#21517#31216
        end
        object Label6: TLabel
          Left = 9
          Top = 82
          Width = 52
          Height = 13
          Caption = #30331#35760#26102#38388
        end
        object DBEdtID: TDBEdit
          Left = 71
          Top = 0
          Width = 221
          Height = 21
          DataField = 'Num'
          DataSource = dsBaseInfo
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 0
          OnKeyPress = DBEdtIDKeyPress
        end
        object DBEdtZName: TDBEdit
          Left = 71
          Top = 53
          Width = 221
          Height = 21
          DataField = 'ZName'
          DataSource = dsBaseInfo
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 1
        end
        object Editdate: TEdit
          Left = 70
          Top = 79
          Width = 221
          Height = 21
          Enabled = False
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          ParentColor = True
          TabOrder = 2
        end
        object GroupBox8: TGroupBox
          Left = 0
          Top = 103
          Width = 301
          Height = 161
          Align = alBottom
          Caption = #35814#32454#25551#36848
          TabOrder = 3
          object DBMemo1: TDBMemo
            Left = 2
            Top = 15
            Width = 297
            Height = 144
            Align = alClient
            DataField = 'Memo'
            DataSource = dsBaseInfo
            ImeName = #32043#20809#25340#38899#36755#20837#27861
            ScrollBars = ssBoth
            TabOrder = 0
          end
        end
        object DBEdtEName: TDBEdit
          Left = 72
          Top = 27
          Width = 220
          Height = 21
          DataField = 'EName'
          DataSource = dsBaseInfo
          ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
          TabOrder = 4
          OnKeyPress = DBEdtENameKeyPress
        end
      end
      object Panel9: TPanel
        Left = 2
        Top = 303
        Width = 301
        Height = 0
        Align = alBottom
        BevelOuter = bvNone
        Caption = 'Panel6'
        TabOrder = 1
      end
    end
    object GroupBox5: TGroupBox
      Left = 305
      Top = 0
      Width = 270
      Height = 305
      Align = alClient
      Caption = #26426#22411#21015#34920
      TabOrder = 1
      object DBGridDeviceType: TDBGrid
        Left = 2
        Top = 15
        Width = 266
        Height = 288
        Align = alClient
        DataSource = dsBaseInfo
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Num'
            Title.Alignment = taCenter
            Width = 32
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ZName'
            Title.Alignment = taCenter
            Width = 94
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'EName'
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'UpDateDate'
            Title.Alignment = taCenter
            Title.Caption = #19978#20256#26085#26399
            Width = 82
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Memo'
            Title.Alignment = taCenter
            Title.Caption = #25551#36848
            Width = 72
            Visible = True
          end>
      end
    end
  end
  inherited QBaseInfo: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'SELECT * FROM DevHardOptions')
    object QBaseInfoEName: TWideStringField
      DisplayLabel = #33521#25991#31616#31216
      DisplayWidth = 10
      FieldName = 'EName'
      Size = 50
    end
    object QBaseInfoNum: TStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 2
      FieldName = 'Num'
      OnValidate = QBaseInfoNumValidate
      FixedChar = True
      Size = 2
    end
    object QBaseInfoZName: TWideStringField
      DisplayLabel = #20013#25991#21517#31216
      DisplayWidth = 30
      FieldName = 'ZName'
      Size = 50
    end
    object QBaseInfoID: TIntegerField
      FieldName = 'ID'
      Visible = False
    end
    object QBaseInfoMemo: TWideStringField
      FieldName = 'Memo'
      Visible = False
      Size = 250
    end
    object QBaseInfoUpDateDate: TDateTimeField
      FieldName = 'UpDateDate'
      Visible = False
    end
  end
  inherited QIsUnique: TADOQuery
    Parameters = <
      item
        Name = 'EName'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM DevHardOptions where EName=:EName ')
  end
  inherited wwLookupDlg: TwwLookupDialog
    Selected.Strings = (
      'EName'#9'10'#9#33521#25991#31616#31216#9'F'
      'Num'#9'2'#9#32534#21495#9'F'
      'ZName'#9'30'#9#20013#25991#21517#31216#9'F')
  end
  object QIsUniqueNum: TADOQuery
    Connection = StockDM.ADOConn
    Parameters = <
      item
        Name = 'Num'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 2
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM DevHardOptions where Num=:Num ')
    Left = 384
    Top = 145
  end
  object QToday: TADOQuery
    Connection = StockDM.ADOConn
    Parameters = <
      item
        Name = 'packDate'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'select barcode,packDate from barcode where PackDate=:PackDate')
    Left = 471
    Top = 148
  end
end