unit9.dfm

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

object Formcash: TFormcash
  Left = 81
  Top = 68
  Width = 640
  Height = 480
  BorderIcons = []
  Caption = '组长收款'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 632
    Height = 65
    Align = alTop
    Color = 14671839
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 0
    Top = 65
    Width = 632
    Height = 388
    Align = alClient
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 630
      Height = 386
      Align = alClient
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -15
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnKeyDown = DBGrid1KeyDown
      OnKeyPress = DBGrid1KeyPress
      Columns = <
        item
          Expanded = False
          FieldName = 'date'
          Title.Alignment = taCenter
          Title.Caption = '收款日期'
          Width = 99
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'receiver'
          Title.Alignment = taCenter
          Title.Caption = '收款人'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'giver'
          Title.Alignment = taCenter
          Title.Caption = '交款人'
          Width = 44
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'total'
          Title.Alignment = taCenter
          Title.Caption = '交款总数'
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pay1'
          Title.Alignment = taCenter
          Title.Caption = '现金'
          Width = 59
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pay2'
          Title.Alignment = taCenter
          Title.Caption = '支票'
          Width = 59
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pay3'
          Title.Alignment = taCenter
          Title.Caption = '信用卡'
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pay4'
          Title.Alignment = taCenter
          Title.Caption = '其它票据'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pay5'
          Title.Alignment = taCenter
          Title.Caption = '点内票据'
          Width = 61
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pay6'
          Title.Alignment = taCenter
          Title.Caption = '挂帐'
          Width = 54
          Visible = True
        end>
    end
  end
  object Queryselect: TQuery
    DatabaseName = 'pos'
    SQL.Strings = (
      'select * from casher')
    Left = 432
    Top = 24
    object Queryselectid: TIntegerField
      FieldName = 'id'
      Origin = 'POS.casher.id'
    end
    object Queryselectreceiver: TStringField
      FieldName = 'receiver'
      Origin = 'POS.casher.receiver'
      FixedChar = True
      Size = 4
    end
    object Queryselectgiver: TStringField
      FieldName = 'giver'
      Origin = 'POS.casher.giver'
      FixedChar = True
      Size = 4
    end
    object Queryselectdate: TStringField
      FieldName = 'date'
      Origin = 'POS.casher.date'
      FixedChar = True
      Size = 12
    end
    object Queryselecttotal: TFloatField
      FieldName = 'total'
      Origin = 'POS.casher.total'
      currency = True
    end
    object Queryselectpay1: TFloatField
      FieldName = 'pay1'
      Origin = 'POS.casher.pay1'
      currency = True
    end
    object Queryselectpay2: TFloatField
      FieldName = 'pay2'
      Origin = 'POS.casher.pay2'
      currency = True
    end
    object Queryselectpay3: TFloatField
      FieldName = 'pay3'
      Origin = 'POS.casher.pay3'
      currency = True
    end
    object Queryselectpay4: TFloatField
      FieldName = 'pay4'
      Origin = 'POS.casher.pay4'
      currency = True
    end
    object Queryselectpay5: TFloatField
      FieldName = 'pay5'
      Origin = 'POS.casher.pay5'
      currency = True
    end
    object Queryselectpay6: TFloatField
      FieldName = 'pay6'
      Origin = 'POS.casher.pay6'
      currency = True
    end
  end
  object DataSource1: TDataSource
    DataSet = Queryselect
    Left = 384
    Top = 24
  end
  object Queryreport1: TQuery
    DatabaseName = 'pos'
    Left = 480
    Top = 24
  end
end