boxincome.dfm

Barcode And LabelPrint

inherited FrmBoxIncome: TFrmBoxIncome
  Left = 261
  Top = 151
  HorzScrollBar.Range = 0
  VertScrollBar.Range = 0
  BorderStyle = bsSingle
  Caption = #12304#20837#24211#31649#29702#12305'-'#26426#22120#21253#35013
  ClientHeight = 403
  ClientWidth = 575
  OldCreateOrder = True
  ShowHint = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  inherited LabelCaption: TLabel
    Width = 68
    Height = 17
    Font.Height = -16
    Font.Name = #21326#25991#34892#26999
    Font.Style = [fsBold]
  end
  inherited ImageMax: TImage
    Left = 506
  end
  inherited CoolBar: TCoolBar
    Top = 208
  end
  inherited PanelBkGnd: TPanel
    Left = 6
    Top = 41
    Width = 559
    Height = 354
    object Label1: TLabel
      Left = 301
      Top = 146
      Width = 28
      Height = 14
      Caption = #26465#30721
      FocusControl = DBEditBarCode
    end
    object Label2: TLabel
      Left = 280
      Top = 20
      Width = 42
      Height = 14
      Caption = #35746#21333#21495
      FocusControl = DBEditOrderID
    end
    object Label3: TLabel
      Left = 301
      Top = 83
      Width = 28
      Height = 14
      Caption = #26426#22411
      FocusControl = DBEditDevName
    end
    object Label4: TLabel
      Left = 273
      Top = 51
      Width = 56
      Height = 14
      Caption = #23458#25143#21517#31216
      FocusControl = DBEditCustomerName
    end
    object Label5: TLabel
      Left = 273
      Top = 114
      Width = 56
      Height = 14
      Caption = #29983#20135#26085#26399
      FocusControl = DBEditpostdate
    end
    object LabelMessage: TLabel
      Left = 274
      Top = 294
      Width = 30
      Height = 14
      Caption = #25552#31034
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 276
      Top = 172
      Width = 56
      Height = 14
      Caption = #37197#32622#35828#26126
      FocusControl = DBEditBarCode
    end
    object Label7: TLabel
      Left = 275
      Top = 329
      Width = 77
      Height = 14
      Caption = #20170#22825#24050#21253#35013':'
    end
    object Label8: TLabel
      Left = 276
      Top = 311
      Width = 77
      Height = 14
      Caption = #26412#27425#24050#21253#35013':'
    end
    object LabelThisCount: TLabel
      Left = 358
      Top = 311
      Width = 8
      Height = 14
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object LabelTodayCount: TLabel
      Left = 358
      Top = 329
      Width = 8
      Height = 14
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 15
      Top = 10
      Width = 254
      Height = 334
      Caption = #24050#25195#25551#26465#30721
      TabOrder = 0
      object MemoBarcodeS: TMemo
        Left = 2
        Top = 16
        Width = 250
        Height = 236
        Align = alClient
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 0
        OnDblClick = MemoBarcodeSDblClick
      end
      object GroupBox2: TGroupBox
        Left = 2
        Top = 252
        Width = 250
        Height = 80
        Align = alBottom
        Caption = #23558#35201#25171#21360#26465#30721'('#20004#20010')'
        TabOrder = 1
        object MemoPrintBarCode: TMemo
          Left = 6
          Top = 15
          Width = 232
          Height = 60
          ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
          ReadOnly = True
          TabOrder = 0
        end
      end
    end
    object BitBtn1: TBitBtn
      Left = 468
      Top = 317
      Width = 75
      Height = 25
      TabOrder = 1
      OnClick = BitBtn1Click
      Kind = bkClose
    end
    object DBEditBarCode: TDBEdit
      Left = 340
      Top = 141
      Width = 193
      Height = 22
      DataField = 'BarCode'
      DataSource = StockDM.DSBarCodefind
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 2
    end
    object DBEditOrderID: TDBEdit
      Left = 340
      Top = 20
      Width = 193
      Height = 22
      DataField = 'OrderID'
      DataSource = StockDM.DSOrders
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 3
    end
    object DBEditDevName: TDBEdit
      Left = 340
      Top = 81
      Width = 193
      Height = 22
      DataField = 'DevName'
      DataSource = StockDM.DSBarCodefind
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 4
    end
    object DBEditCustomerName: TDBEdit
      Left = 341
      Top = 51
      Width = 193
      Height = 22
      DataField = 'CustomerName'
      DataSource = StockDM.DSBarCodefind
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 5
    end
    object DBEditpostdate: TDBEdit
      Left = 340
      Top = 111
      Width = 193
      Height = 22
      DataField = 'postdate'
      DataSource = StockDM.DSBarCodefind
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 6
    end
    object EdtBarCodeEnter: TEdit
      Left = 276
      Top = 263
      Width = 264
      Height = 24
      Color = clYellow
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      ParentFont = False
      TabOrder = 7
      OnKeyPress = EdtBarCodeEnterKeyPress
    end
    object DBMemoMemo: TDBMemo
      Left = 276
      Top = 190
      Width = 262
      Height = 73
      DataField = 'devHardOptions'
      DataSource = StockDM.DSBarCodefind
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 8
    end
    object ChkPreview: TCheckBox
      Left = 342
      Top = 170
      Width = 50
      Height = 17
      Caption = #39044#35272
      TabOrder = 9
    end
    object CheckBoxSetPrint: TCheckBox
      Left = 404
      Top = 171
      Width = 97
      Height = 17
      Caption = #25171#21360#35774#32622
      TabOrder = 10
    end
    object Edit1: TEdit
      Left = 38
      Top = 357
      Width = 121
      Height = 22
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 11
      Text = 'Edit1'
    end
    object Edit2: TEdit
      Left = 36
      Top = 382
      Width = 121
      Height = 22
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 12
      Text = 'Edit2'
    end
    object Edit3: TEdit
      Left = 171
      Top = 379
      Width = 121
      Height = 22
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 13
      Text = 'Edit3'
    end
  end
  object RvProjectShipLabel: TRvProject
    Engine = RvSystemShipLabel
    LoadDesigner = True
    Left = 71
    Top = 144
  end
  object RvSystemShipLabel: TRvSystem
    TitleSetup = 'Output Options'
    TitleStatus = 'Report Status'
    TitlePreview = #26465#30721#39044#35272#19982#25171#21360
    SystemSetups = [ssAllowSetup, ssAllowCopies, ssAllowDestPreview, ssAllowDestPrinter, ssAllowPrinterSetup, ssAllowPreviewSetup]
    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 = 74
    Top = 206
  end
  object RvDataSetConnectionPack: TRvDataSetConnection
    FieldAliasList.Strings = (
      '')
    RuntimeVisibility = rtDeveloper
    DataSet = StockDM.QBarCodefind
    Left = 81
    Top = 88
  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 = 427
    Top = 347
  end
end