gbarcodes.~dfm

Barcode And LabelPrint

inherited frmGBarCodes: TfrmGBarCodes
  Left = 277
  Top = 136
  Width = 684
  Height = 478
  Caption = #25209#37327#26465#30721#29983#25104
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar: TToolBar
    Width = 676
    object ToolButton1: TToolButton
      Left = 421
      Top = 0
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 21
      Style = tbsSeparator
    end
    object tbtPrint: TToolButton
      Left = 429
      Top = 0
      Action = acPrint
    end
  end
  inherited StatusBar1: TStatusBar
    Top = 432
    Width = 676
  end
  inherited Panel1: TPanel
    Width = 676
    Height = 5
  end
  inherited Panel2: TPanel
    Top = 43
    Height = 384
  end
  inherited Panel3: TPanel
    Left = 668
    Top = 43
    Height = 384
  end
  inherited Panel4: TPanel
    Top = 427
    Width = 676
    Height = 5
  end
  inherited Panel5: TPanel
    Top = 43
    Width = 664
    Height = 384
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 322
      Height = 384
      Align = alLeft
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      DesignSize = (
        322
        384)
      object Label1: TLabel
        Left = 9
        Top = 17
        Width = 49
        Height = 14
        Caption = #35746#21333#21495':'
      end
      object Label2: TLabel
        Left = 11
        Top = 70
        Width = 63
        Height = 14
        Caption = #31227#20132#26085#26399':'
      end
      object Label3: TLabel
        Left = 12
        Top = 44
        Width = 35
        Height = 14
        Caption = #26426#22411':'
      end
      object Label4: TLabel
        Left = 15
        Top = 123
        Width = 35
        Height = 14
        Caption = #23458#25143':'
      end
      object Label5: TLabel
        Left = 14
        Top = 97
        Width = 35
        Height = 14
        Caption = #21830#21153':'
      end
      object Label6: TLabel
        Left = 201
        Top = 73
        Width = 35
        Height = 14
        Caption = #25968#37327':'
      end
      object Label7: TLabel
        Left = 6
        Top = 151
        Width = 133
        Height = 14
        Caption = #29305#23450#21151#33021'('#37197#32622#35828#26126'):'
      end
      object Label8: TLabel
        Left = 6
        Top = 261
        Width = 35
        Height = 14
        Caption = #22791#27880':'
      end
      object DBEditOrderID: TDBEdit
        Left = 62
        Top = 12
        Width = 254
        Height = 22
        Anchors = [akLeft, akTop, akRight]
        DataField = 'OrderID'
        DataSource = dsBaseInfo
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 0
      end
      object DBEditNum: TDBEdit
        Left = 241
        Top = 68
        Width = 75
        Height = 22
        Anchors = [akLeft, akTop, akRight]
        DataField = 'Num'
        DataSource = dsBaseInfo
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 1
        OnKeyPress = DBEditNumKeyPress
      end
      object DBEditbusiness: TDBEdit
        Left = 62
        Top = 94
        Width = 254
        Height = 22
        Anchors = [akLeft, akTop, akRight]
        DataField = 'business'
        DataSource = dsBaseInfo
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 2
      end
      object DBEditCustomer: TDBEdit
        Left = 62
        Top = 121
        Width = 254
        Height = 22
        Anchors = [akLeft, akTop, akRight]
        DataField = 'Customer'
        DataSource = dsBaseInfo
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 3
      end
      object DBMemo1: TDBMemo
        Left = 3
        Top = 169
        Width = 308
        Height = 89
        Anchors = [akLeft, akTop, akRight]
        DataField = 'SpecificFunction'
        DataSource = dsBaseInfo
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 4
      end
      object DBMemo2: TDBMemo
        Left = 7
        Top = 274
        Width = 306
        Height = 104
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataField = 'Memo'
        DataSource = dsBaseInfo
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 5
      end
      object DateTimePicker1: TDateTimePicker
        Left = 74
        Top = 68
        Width = 115
        Height = 23
        Date = 39261.480599861110000000
        Time = 39261.480599861110000000
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 6
      end
      object DBLookupComboBoxDevNum: TDBLookupComboBox
        Left = 61
        Top = 40
        Width = 254
        Height = 22
        Hint = 'Ctrl+A'#21487#20197#36873#25321#31354#20540
        DataField = 'DevNum'
        DataSource = dsBaseInfo
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        KeyField = 'DevNum'
        ListField = 'DevName'
        ListSource = DSDeviceType
        NullValueKey = 16449
        TabOrder = 7
      end
    end
    object Panel6: TPanel
      Left = 322
      Top = 0
      Width = 342
      Height = 384
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel6'
      TabOrder = 1
      object Splitter1: TSplitter
        Left = 0
        Top = 139
        Width = 342
        Height = 3
        Cursor = crVSplit
        Align = alTop
        Color = clBlue
        ParentColor = False
      end
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 0
        Width = 342
        Height = 139
        Align = alTop
        DataSource = dsBaseInfo
        Flat = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -13
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'GBarCodeID'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #32534#21495
          end
          item
            EditButtons = <>
            FieldName = 'OrderID'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #35746#21333#21495
          end
          item
            EditButtons = <>
            FieldName = 'DevName'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #26426#22411
          end
          item
            EditButtons = <>
            FieldName = 'Num'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #25968#37327
          end
          item
            EditButtons = <>
            FieldName = 'Customer'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #23458#25143
          end
          item
            EditButtons = <>
            FieldName = 'PostDate'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #35746#36135#26085#26399
          end
          item
            EditButtons = <>
            FieldName = 'business'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #21830#21153
          end>
      end
      object DBGridEhBarCode: TDBGridEh
        Left = 0
        Top = 142
        Width = 342
        Height = 242
        Align = alClient
        DataSource = DSBarCode
        Flat = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -13
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'BarCode'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #26465#30721
            Width = 325
          end>
      end
    end
  end
  inherited ALToolbar: TActionList
    Left = 519
    Top = 27
    inherited acPrint: TAction
      Hint = #25171#21360#26465#30721
      OnExecute = acPrintExecute
    end
  end
  inherited QBaseInfo: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select * from GBarCode')
    Left = 460
    Top = 103
    object QBaseInfoGBarCodeID: TAutoIncField
      FieldName = 'GBarCodeID'
      ReadOnly = True
    end
    object QBaseInfoOrderID: TWideStringField
      FieldName = 'OrderID'
    end
    object QBaseInfoDevNum: TIntegerField
      FieldName = 'DevNum'
    end
    object QBaseInfoNum: TIntegerField
      FieldName = 'Num'
    end
    object QBaseInfobusiness: TWideStringField
      FieldName = 'business'
      Size = 50
    end
    object QBaseInfoCustomer: TWideStringField
      FieldName = 'Customer'
      Size = 50
    end
    object QBaseInfoUPDateDate: TDateTimeField
      FieldName = 'UPDateDate'
    end
    object QBaseInfoSpecificFunction: TWideStringField
      FieldName = 'SpecificFunction'
      Size = 255
    end
    object QBaseInfoMemo: TWideStringField
      FieldName = 'Memo'
      Size = 255
    end
    object QBaseInfoPostDate: TDateTimeField
      FieldName = 'PostDate'
    end
  end
  inherited dsBaseInfo: TDataSource
    Left = 516
    Top = 103
  end
  inherited QIsUnique: TADOQuery
    Left = 560
    Top = 31
  end
  inherited wwLookupDlg: TwwLookupDialog
    Left = 360
    Top = 102
  end
  object QDeviceType: TADOQuery
    Connection = StockDM.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from DeviceType')
    Left = 465
    Top = 162
  end
  object DSDeviceType: TDataSource
    DataSet = QDeviceType
    Left = 541
    Top = 162
  end
  object QBarCode: TADOQuery
    Active = True
    Connection = StockDM.ADOConn
    CursorType = ctStatic
    DataSource = dsBaseInfo
    Parameters = <
      item
        Name = 'GBarCodeID'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Value = 23
      end>
    SQL.Strings = (
      
        'select * from BarCode where GBarCodeID=:GBarCodeID order by BarC' +
        'ode')
    Left = 419
    Top = 257
  end
  object DSBarCode: TDataSource
    DataSet = QBarCode
    Left = 486
    Top = 260
  end
  object RvDataSetConnectionBarCode: TRvDataSetConnection
    FieldAliasList.Strings = (
      '')
    RuntimeVisibility = rtDeveloper
    DataSet = QBarCode
    Left = 397
    Top = 331
  end
  object RvProjectBarCode: TRvProject
    Engine = RvSystemBarCode
    ProjectFile = 'D:\ZEM'#21021#22987#21270#31649#29702#31995#32479'\'#26465#30721'\Probarcode.rav'
    Left = 495
    Top = 332
  end
  object RvSystemBarCode: TRvSystem
    TitleSetup = 'Output Options'
    TitleStatus = 'Report Status'
    TitlePreview = #26465#30721#39044#35272#19982#25171#21360
    SystemSetups = []
    SystemFiler.StatusFormat = 'Generating page %p'
    SystemPreview.RulerType = rtBothCm
    SystemPreview.ZoomFactor = 100.000000000000000000
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = 'Printing page %p'
    SystemPrinter.Title = 'ReportPrinter Report'
    SystemPrinter.UnitsFactor = 1.000000000000000000
    Left = 562
    Top = 333
  end
end