devicetype.~dfm

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

inherited frmDeviceType: TfrmDeviceType
  Left = 230
  Top = 242
  Width = 669
  Height = 360
  Caption = #12304#22522#26412#20449#24687#12305'--'#26426#22411#31649#29702
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar: TToolBar
    Width = 661
  end
  inherited StatusBar1: TStatusBar
    Top = 314
    Width = 661
  end
  inherited Panel1: TPanel
    Width = 661
  end
  inherited Panel2: TPanel
    Height = 257
  end
  inherited Panel3: TPanel
    Left = 653
    Height = 257
  end
  inherited Panel4: TPanel
    Top = 305
    Width = 661
  end
  inherited Panel5: TPanel
    Width = 649
    Height = 257
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 305
      Height = 257
      Align = alLeft
      Caption = #26426#22411#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 = 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 = 9
          Top = 108
          Width = 52
          Height = 13
          Caption = #30331#35760#26102#38388
        end
        object Label12: TLabel
          Left = 11
          Top = 78
          Width = 52
          Height = 13
          Caption = #26426#22120#22270#20687
        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 = 70
          Top = 105
          Width = 221
          Height = 21
          Enabled = False
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          ParentColor = True
          TabOrder = 3
        end
        object fneFileName: TFilenameEdit
          Left = 71
          Top = 75
          Width = 222
          Height = 21
          Filter = 'BMP(*.BMP)|*.BMP|All files (*.*)|*.*'
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          NumGlyphs = 1
          TabOrder = 4
          OnChange = fneFileNameChange
          OnMouseMove = fneFileNameMouseMove
        end
        object GroupBox8: TGroupBox
          Left = 0
          Top = 133
          Width = 301
          Height = 131
          Align = alBottom
          Caption = #35814#32454#25551#36848
          TabOrder = 5
          object DBMemo1: TDBMemo
            Left = 2
            Top = 15
            Width = 297
            Height = 114
            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 = 255
        Width = 301
        Height = 0
        Align = alBottom
        BevelOuter = bvNone
        Caption = 'Panel6'
        TabOrder = 1
      end
    end
    object GroupBox5: TGroupBox
      Left = 305
      Top = 0
      Width = 344
      Height = 257
      Align = alClient
      Caption = #26426#22411#21015#34920
      TabOrder = 1
      object DBGridDeviceType: TDBGrid
        Left = 2
        Top = 15
        Width = 340
        Height = 240
        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
            Width = 32
            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: TIntegerField
      FieldName = 'DevNum'
    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
end