pos.dfm

PosEasy收银系统源码,Pos机前后台管理代码

object Form1: TForm1
  Left = 152
  Top = 279
  Width = 622
  Height = 326
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 609
    Height = 201
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object btndbftosql: TButton
    Left = 320
    Top = 248
    Width = 75
    Height = 24
    Caption = 'dbf to sql'
    TabOrder = 1
    OnClick = btndbftosqlClick
  end
  object btntotal: TButton
    Left = 416
    Top = 248
    Width = 75
    Height = 24
    Caption = '汇总/插库'
    TabOrder = 2
    OnClick = btntotalClick
  end
  object btntrans: TButton
    Left = 224
    Top = 248
    Width = 75
    Height = 24
    Caption = '接收数据'
    TabOrder = 3
    OnClick = btntransClick
  end
  object Edit9: TEdit
    Left = 32
    Top = 216
    Width = 153
    Height = 21
    TabOrder = 4
  end
  object btncopyfile: TButton
    Left = 32
    Top = 248
    Width = 75
    Height = 24
    Caption = 'copyfile'
    TabOrder = 5
    OnClick = btncopyfileClick
  end
  object btnexptrade: TButton
    Left = 128
    Top = 248
    Width = 75
    Height = 24
    Caption = 'exptrade'
    TabOrder = 6
    OnClick = btnexptradeClick
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 104
    Top = 96
  end
  object Query1: TQuery
    Left = 144
    Top = 96
    object Query1OP: TStringField
      FieldName = 'OP'
      Size = 8
    end
    object Query1ECR: TStringField
      FieldName = 'ECR'
      Size = 3
    end
    object Query1RESERVED: TStringField
      FieldName = 'RESERVED'
      Size = 3
    end
    object Query1CLERK: TStringField
      FieldName = 'CLERK'
      Size = 3
    end
    object Query1SALER: TStringField
      FieldName = 'SALER'
      Size = 3
    end
    object Query1SALEDATE: TDateField
      FieldName = 'SALEDATE'
      DisplayFormat = 'yy-mm-dd'
    end
    object Query1SALETIME: TStringField
      FieldName = 'SALETIME'
      Size = 8
    end
    object Query1SNO: TFloatField
      FieldName = 'SNO'
    end
    object Query1ORGTOTAL: TFloatField
      FieldName = 'ORGTOTAL'
    end
    object Query1TOTAL: TFloatField
      FieldName = 'TOTAL'
    end
    object Query1TOTALDIS: TSmallintField
      FieldName = 'TOTALDIS'
    end
    object Query1OPENNUM: TFloatField
      FieldName = 'OPENNUM'
    end
    object Query1CANCELNUM: TFloatField
      FieldName = 'CANCELNUM'
    end
    object Query1DISNUM: TFloatField
      FieldName = 'DISNUM'
    end
    object Query1PAY1: TFloatField
      FieldName = 'PAY1'
    end
    object Query1PAY2: TFloatField
      FieldName = 'PAY2'
    end
    object Query1PAY3: TFloatField
      FieldName = 'PAY3'
    end
    object Query1PAY4: TFloatField
      FieldName = 'PAY4'
    end
    object Query1PAY5: TFloatField
      FieldName = 'PAY5'
    end
    object Query1PAY6: TFloatField
      FieldName = 'PAY6'
    end
    object Query1DEPT: TStringField
      FieldName = 'DEPT'
      Size = 3
    end
    object Query1CODE: TStringField
      FieldName = 'CODE'
      Size = 13
    end
    object Query1NAME: TStringField
      FieldName = 'NAME'
    end
    object Query1UNIT: TStringField
      FieldName = 'UNIT'
      Size = 4
    end
    object Query1NUM: TFloatField
      FieldName = 'NUM'
    end
    object Query1DISCOUNT: TSmallintField
      FieldName = 'DISCOUNT'
    end
    object Query1PRICE: TFloatField
      FieldName = 'PRICE'
    end
    object Query1AMOUNT: TFloatField
      FieldName = 'AMOUNT'
    end
    object Query1SUB: TFloatField
      FieldName = 'SUB'
    end
  end
  object Query2: TQuery
    DatabaseName = 'ghpos'
    Left = 192
    Top = 96
  end
  object Database1: TDatabase
    AliasName = 'guohua'
    Connected = True
    DatabaseName = 'ghpos'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=lee'
      'password=lee')
    SessionName = 'Default'
    Left = 248
    Top = 96
  end
  object Query3: TQuery
    Active = True
    DatabaseName = 'ghpos'
    SQL.Strings = (
      'select * from postab ')
    Left = 296
    Top = 96
    object Query3op: TStringField
      FieldName = 'op'
      Origin = 'GUOHUA.postab.op'
      FixedChar = True
      Size = 10
    end
    object Query3ecr: TStringField
      FieldName = 'ecr'
      Origin = 'GUOHUA.postab.ecr'
      FixedChar = True
      Size = 10
    end
    object Query3reserved: TStringField
      FieldName = 'reserved'
      Origin = 'GUOHUA.postab.reserved'
      FixedChar = True
      Size = 10
    end
    object Query3clerk: TStringField
      FieldName = 'clerk'
      Origin = 'GUOHUA.postab.clerk'
      FixedChar = True
      Size = 10
    end
    object Query3saler: TStringField
      FieldName = 'saler'
      Origin = 'GUOHUA.postab.saler'
      FixedChar = True
      Size = 10
    end
    object Query3saledate: TStringField
      FieldName = 'saledate'
      Origin = 'GUOHUA.postab.saledate'
      FixedChar = True
      Size = 10
    end
    object Query3saletime: TStringField
      FieldName = 'saletime'
      Origin = 'GUOHUA.postab.saletime'
      FixedChar = True
      Size = 10
    end
    object Query3sno: TStringField
      FieldName = 'sno'
      Origin = 'GUOHUA.postab.sno'
      FixedChar = True
      Size = 10
    end
    object Query3orgtotal: TStringField
      FieldName = 'orgtotal'
      Origin = 'GUOHUA.postab.orgtotal'
      FixedChar = True
      Size = 10
    end
    object Query3total: TStringField
      FieldName = 'total'
      Origin = 'GUOHUA.postab.total'
      FixedChar = True
      Size = 10
    end
    object Query3pay1: TStringField
      FieldName = 'pay1'
      Origin = 'GUOHUA.postab.pay1'
      FixedChar = True
      Size = 10
    end
    object Query3pay2: TStringField
      FieldName = 'pay2'
      Origin = 'GUOHUA.postab.pay2'
      FixedChar = True
      Size = 10
    end
    object Query3pay3: TStringField
      FieldName = 'pay3'
      Origin = 'GUOHUA.postab.pay3'
      FixedChar = True
      Size = 10
    end
    object Query3pay4: TStringField
      FieldName = 'pay4'
      Origin = 'GUOHUA.postab.pay4'
      FixedChar = True
      Size = 10
    end
    object Query3dept: TStringField
      FieldName = 'dept'
      Origin = 'GUOHUA.postab.dept'
      FixedChar = True
      Size = 10
    end
  end
end