devicetype.dfm

来自「Barcode And LabelPrint」· DFM 代码 · 共 433 行

inherited frmDeviceType: TfrmDeviceType
  Left = 266
  Top = 340
  Width = 715
  Height = 532
  Caption = #12304#22522#26412#20449#24687#12305'--'#26426#22411#31649#29702
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar: TToolBar
    Width = 707
    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 = 489
    Width = 707
    Height = 16
  end
  inherited Panel1: TPanel
    Width = 707
  end
  inherited Panel2: TPanel
    Height = 432
  end
  inherited Panel3: TPanel
    Left = 699
    Height = 432
  end
  inherited Panel4: TPanel
    Top = 480
    Width = 707
  end
  inherited Panel5: TPanel
    Width = 695
    Height = 432
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 305
      Height = 432
      Align = alLeft
      Caption = #26426#22411#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 = 415
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 3
          Width = 52
          Height = 13
          Caption = #26426#22411#32534#21495
        end
        object Label2: TLabel
          Left = 9
          Top = 54
          Width = 52
          Height = 13
          Caption = #25152#23646#31995#21015
        end
        object Label3: TLabel
          Left = 8
          Top = 27
          Width = 52
          Height = 13
          Caption = #26426#22411#21517#31216
        end
        object Label6: TLabel
          Left = 12
          Top = 204
          Width = 52
          Height = 13
          Caption = #30331#35760#26102#38388
        end
        object Label12: TLabel
          Left = 12
          Top = 203
          Width = 52
          Height = 13
          Caption = #26426#22120#22270#20687
          Visible = False
        end
        object Label4: TLabel
          Left = 8
          Top = 77
          Width = 52
          Height = 13
          Caption = #21151#33021#37197#32622
        end
        object LSTOpts: TCheckListBox
          Left = 72
          Top = 76
          Width = 219
          Height = 143
          Hint = #33509#38656#35201#29305#27530#37197#32622','#35831#25171#21246#36873#25321'.'#21487#36873#22810#39033'.'
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          ItemHeight = 24
          ParentCtl3D = False
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
        end
        object DBEdtDevNum: TDBEdit
          Left = 71
          Top = 0
          Width = 221
          Height = 21
          DataField = 'DevNum'
          DataSource = dsBaseInfo
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 0
        end
        object DBEdtDevName: TDBEdit
          Left = 71
          Top = 25
          Width = 221
          Height = 21
          DataField = 'DevName'
          DataSource = dsBaseInfo
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 1
        end
        object DBLookupcbbSerise: TDBLookupComboBox
          Left = 71
          Top = 50
          Width = 221
          Height = 21
          Hint = 'Ctrl+A'#21487#20197#36873#25321#31354#20540
          DataField = 'ProNumber'
          DataSource = dsBaseInfo
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          KeyField = 'ProNumber'
          ListField = 'Serise'
          ListSource = DSProSerise
          NullValueKey = 16449
          TabOrder = 2
        end
        object Editdate: TEdit
          Left = 71
          Top = 198
          Width = 221
          Height = 21
          Enabled = False
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          ParentColor = True
          TabOrder = 3
          Visible = False
        end
        object fneFileName: TFilenameEdit
          Left = 69
          Top = 198
          Width = 222
          Height = 21
          Filter = 'BMP(*.BMP)|*.BMP|All files (*.*)|*.*'
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          NumGlyphs = 1
          TabOrder = 4
          Visible = False
          OnChange = fneFileNameChange
          OnMouseMove = fneFileNameMouseMove
        end
        object GroupBox8: TGroupBox
          Left = 0
          Top = 231
          Width = 301
          Height = 184
          Align = alBottom
          Caption = #35814#32454#25551#36848
          TabOrder = 5
          object DBMemo1: TDBMemo
            Left = 2
            Top = 15
            Width = 297
            Height = 167
            Align = alClient
            DataField = 'Descri'
            DataSource = dsBaseInfo
            ImeName = #32043#20809#25340#38899#36755#20837#27861
            ScrollBars = ssBoth
            TabOrder = 0
          end
        end
      end
      object Panel9: TPanel
        Left = 2
        Top = 430
        Width = 301
        Height = 0
        Align = alBottom
        BevelOuter = bvNone
        Caption = 'Panel6'
        TabOrder = 1
      end
    end
    object GroupBox5: TGroupBox
      Left = 305
      Top = 0
      Width = 390
      Height = 432
      Align = alClient
      Caption = #26426#22411#21015#34920
      TabOrder = 1
      object DBGridDeviceType: TDBGrid
        Left = 2
        Top = 15
        Width = 386
        Height = 415
        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 = 'DevNum'
            Title.Alignment = taCenter
            Title.Caption = #32534#21495
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'DevName'
            Title.Alignment = taCenter
            Title.Caption = #21517#31216
            Width = 94
            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 = 'Descri'
            Title.Alignment = taCenter
            Title.Caption = #25551#36848
            Width = 72
            Visible = True
          end>
      end
    end
  end
  inherited ALToolbar: TActionList
    Left = 512
    Top = 135
  end
  inherited QBaseInfo: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'SELECT * FROM DeviceType')
    Left = 381
    Top = 121
    object QBaseInfoDevName: TWideStringField
      FieldName = 'DevName'
      OnValidate = QBaseInfoDevNameValidate
      Size = 50
    end
    object QBaseInfoDevNum: TWideStringField
      FieldName = 'DevNum'
      OnValidate = QBaseInfoDevNumValidate
      FixedChar = True
      Size = 4
    end
    object QBaseInfoProNumber: TIntegerField
      FieldName = 'ProNumber'
    end
    object QBaseInfoDevImage: TBlobField
      FieldName = 'DevImage'
    end
    object QBaseInfoImageFile: TWideStringField
      FieldName = 'ImageFile'
      Size = 200
    end
    object QBaseInfoDescri: TWideStringField
      FieldName = 'Descri'
      Size = 200
    end
    object QBaseInfoUpDateDate: TDateTimeField
      FieldName = 'UpDateDate'
    end
  end
  inherited dsBaseInfo: TDataSource
    Left = 456
    Top = 135
  end
  inherited QIsUnique: TADOQuery
    Parameters = <
      item
        Name = 'DevName'
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM DeviceType where DevName=:DevName ')
    Left = 397
    Top = 199
  end
  inherited wwLookupDlg: TwwLookupDialog
    Selected.Strings = (
      'DevName'#9'50'#9#26426#22411#21517#31216#9'F'
      'UpDateDate'#9'18'#9#30331#35760#26102#38388#9'F'
      'DevNum'#9'10'#9#26426#22411#32534#21495#9'F')
    Left = 329
    Top = 140
  end
  object QProSerise: TADOQuery
    Connection = StockDM.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM ProSerise')
    Left = 547
    Top = 196
    object QProSeriseSerise: TWideStringField
      FieldName = 'Serise'
      Size = 50
    end
    object QProSeriseProNumber: TIntegerField
      FieldName = 'ProNumber'
    end
    object QProSeriseDetail: TWideStringField
      FieldName = 'Detail'
      Size = 80
    end
    object QProSeriseUpdateDate: TDateTimeField
      FieldName = 'UpdateDate'
    end
  end
  object DSProSerise: TDataSource
    DataSet = QProSerise
    Left = 486
    Top = 197
  end
  object QIsUniqueDevNum: TADOQuery
    Connection = StockDM.ADOConn
    Parameters = <
      item
        Name = 'DevNum'
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM DeviceType where DevNum=:DevNum')
    Left = 397
    Top = 264
  end
  object QDevAndOptions: TADOQuery
    Connection = StockDM.ADOConn
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM DevAndOptions')
    Left = 502
    Top = 277
  end
  object QDevHardOptions: TADOQuery
    Connection = StockDM.ADOConn
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM DevHardOptions')
    Left = 501
    Top = 334
  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 = 621
    Top = 165
  end
end