unit12.dfm

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

object Formquery: TFormquery
  Left = 110
  Top = 93
  Width = 640
  Height = 480
  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
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 632
    Height = 81
    Align = alTop
    Color = 14671839
    TabOrder = 0
    object Label1: TLabel
      Left = 17
      Top = 42
      Width = 43
      Height = 13
      Caption = '收银员'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 194
      Top = 42
      Width = 29
      Height = 13
      Caption = '小组'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Editsaler: TEdit
      Left = 65
      Top = 36
      Width = 121
      Height = 26
      AutoSize = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Editunit: TEdit
      Left = 230
      Top = 36
      Width = 121
      Height = 26
      AutoSize = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object Button2: TButton
      Left = 368
      Top = 39
      Width = 75
      Height = 25
      Caption = '全天明细'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button2Click
    end
    object Button1: TButton
      Left = 448
      Top = 39
      Width = 75
      Height = 25
      Caption = '帐后明细'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = Button1Click
    end
    object Button3: TButton
      Left = 530
      Top = 39
      Width = 75
      Height = 25
      Caption = '收付款查询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = Button3Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 81
    Width = 632
    Height = 372
    Align = alClient
    TabOrder = 1
    object Notebook1: TNotebook
      Left = 1
      Top = 1
      Width = 630
      Height = 370
      Align = alClient
      TabOrder = 0
      object TPage
        Left = 0
        Top = 0
        Caption = 'Default'
        object DBGridEh1: TDBGridEh
          Left = 0
          Top = 0
          Width = 630
          Height = 370
          Align = alClient
          DataSource = DataSourcequery
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -15
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          FooterRowCount = 1
          FrozenCols = 1
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          FooterColor = clWindow
          SumList.Active = True
          Columns = <
            item
              Alignment = taCenter
              FieldName = 'sno'
              Font.Charset = GB2312_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = '宋体'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = '流水号'
              Footers = <
                item
                  Alignment = taCenter
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clWindowText
                  Font.Height = -15
                  Font.Name = '宋体'
                  Font.Style = []
                  ValueType = fvtStaticText
                end>
            end
            item
              Alignment = taCenter
              FieldName = 'name'
              Font.Charset = GB2312_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = '宋体'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = '品名'
              Width = 89
              Footers = <>
            end
            item
              Alignment = taCenter
              FieldName = 'code'
              Font.Charset = GB2312_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = '宋体'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = '条码'
              Width = 94
              Footers = <>
            end
            item
              Alignment = taCenter
              FieldName = 'num'
              Font.Charset = GB2312_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = '宋体'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = '销量'
              Width = 62
              Footers = <>
            end
            item
              Alignment = taCenter
              FieldName = 'price'
              Font.Charset = GB2312_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = '宋体'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = '单价'
              Footers = <>
            end
            item
              Alignment = taCenter
              FieldName = '售价'
              Font.Charset = GB2312_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = '宋体'
              Font.Style = []
              Title.Alignment = taCenter
              Footers = <>
            end
            item
              Alignment = taCenter
              FieldName = 'amount'
              Font.Charset = GB2312_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = '宋体'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = '合计'
              Footers = <
                item
                  Alignment = taCenter
                  Font.Charset = GB2312_CHARSET
                  Font.Color = clWindowText
                  Font.Height = -15
                  Font.Name = '宋体'
                  Font.Style = []
                  ValueType = fvtSum
                end>
            end
            item
              FieldName = 'saletime'
              Font.Charset = GB2312_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = '宋体'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = '销售时间'
              Footers = <>
            end
            item
              FieldName = 'saledate'
              Font.Charset = GB2312_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = '宋体'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = '销售日期'
              Footers = <>
            end
            item
              Alignment = taCenter
              FieldName = 'clerk'
              Font.Charset = GB2312_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = '宋体'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = '收银员'
              Width = 49
              Footers = <>
            end
            item
              Alignment = taCenter
              FieldName = 'dept'
              Font.Charset = GB2312_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = '宋体'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = '销售部门'
              Width = 78
              Footers = <>
            end
            item
              Alignment = taCenter
              FieldName = 'tmpclerk'
              Font.Charset = GB2312_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = '宋体'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = '替班员'
              Width = 51
              Footers = <>
            end
            item
              Alignment = taCenter
              FieldName = 'ecr'
              Font.Charset = GB2312_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = '宋体'
              Font.Style = []
              Title.Alignment = taCenter
              Title.Caption = '收银机'
              Width = 61
              Footers = <>
            end