jzmxcxunit.dfm

集成酒店桑拿食管管理的完整程序

object JZmxcxForm: TJZmxcxForm
  Left = 41
  Top = 103
  Width = 715
  Height = 495
  Caption = '结帐明细对应单'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 209
    Width = 707
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 707
    Height = 38
    Align = alTop
    BevelOuter = bvNone
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 110
      Top = 13
      Width = 48
      Height = 12
      Caption = '结帐时间'
    end
    object Label2: TLabel
      Left = 357
      Top = 12
      Width = 12
      Height = 12
      Caption = '至'
    end
    object Label3: TLabel
      Left = 2
      Top = 16
      Width = 48
      Height = 12
      Caption = '登记单号'
    end
    object begdate: TDateTimePicker
      Left = 168
      Top = 8
      Width = 112
      Height = 20
      CalAlignment = dtaLeft
      Date = 37040.9310678241
      Time = 37040.9310678241
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object enddate: TDateTimePicker
      Left = 375
      Top = 8
      Width = 114
      Height = 20
      CalAlignment = dtaLeft
      Date = 37040.9310678241
      Time = 37040.9310678241
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object BitBtn1: TBitBtn
      Left = 568
      Top = 5
      Width = 66
      Height = 25
      Caption = '查询'
      TabOrder = 2
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333033333
        33333333373F33333333333330B03333333333337F7F33333333333330F03333
        333333337F7FF3333333333330B00333333333337F773FF33333333330F0F003
        333333337F7F773F3333333330B0B0B0333333337F7F7F7F3333333300F0F0F0
        333333377F73737F33333330B0BFBFB03333337F7F33337F33333330F0FBFBF0
        3333337F7333337F33333330BFBFBFB033333373F3333373333333330BFBFB03
        33333337FFFFF7FF3333333300000000333333377777777F333333330EEEEEE0
        33333337FFFFFF7FF3333333000000000333333777777777F33333330000000B
        03333337777777F7F33333330000000003333337777777773333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 633
      Top = 5
      Width = 66
      Height = 25
      Caption = '退出'
      TabOrder = 3
      OnClick = BitBtn2Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000
        00007777777777777777933393303933337073F37F37F73F3377393393303393
        379037FF7F37F37FF777379793303379793037777337F3777737339933303339
        93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399
        999037777337F377777793993330333393307377FF37F3337FF7333993303333
        993033377F37F33377F7333993303333993033377337F3337737333333303333
        33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303
        03037F7F7F7F7F7F7F7F00000000000000007777777777777777}
      NumGlyphs = 2
    end
    object endtime: TDateTimePicker
      Left = 488
      Top = 8
      Width = 72
      Height = 20
      CalAlignment = dtaLeft
      Date = 37041.2172303241
      Time = 37041.2172303241
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkTime
      ParseInput = False
      TabOrder = 4
    end
    object begtime: TDateTimePicker
      Left = 279
      Top = 8
      Width = 74
      Height = 20
      CalAlignment = dtaLeft
      Date = 37041.2172303241
      Time = 37041.2172303241
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkTime
      ParseInput = False
      TabOrder = 5
    end
    object Edit1: TEdit
      Left = 52
      Top = 9
      Width = 54
      Height = 20
      TabOrder = 6
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 432
    Width = 707
    Height = 36
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
  end
  object TabControl1: TTabControl
    Left = 0
    Top = 212
    Width = 707
    Height = 220
    Align = alClient
    TabOrder = 2
    OnChange = TabControl1Change
    object DBGrid2: TDBGrid
      Left = 4
      Top = 6
      Width = 699
      Height = 210
      Align = alClient
      DataSource = DataSource2
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'handno'
          Title.Alignment = taCenter
          Title.Caption = '手号'
          Width = 56
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cusname'
          Title.Alignment = taCenter
          Title.Caption = '消费名称'
          Width = 91
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cusprice'
          Title.Alignment = taCenter
          Title.Caption = '单价'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cusnum'
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Visible = True
        end
        item
          Expanded = False
          FieldName = '应收'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = '实收'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'isxj'
          Title.Alignment = taCenter
          Title.Caption = '现金'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ismd'
          Title.Alignment = taCenter
          Title.Caption = '免单'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'regtime'
          Title.Alignment = taCenter
          Title.Caption = '消费时间'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pdid'
          Title.Alignment = taCenter
          Title.Caption = '服务员'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'czy'
          Title.Alignment = taCenter
          Title.Caption = '操作员'
          Visible = True
        end>
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 38
    Width = 707
    Height = 171
    Align = alTop
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'accno'
        Title.Alignment = taCenter
        Title.Caption = '帐号'
        Width = 46
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COLUMN2'
        Title.Alignment = taCenter
        Title.Caption = '登记单号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COLUMN3'
        Title.Alignment = taCenter
        Title.Caption = '手号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COLUMN4'
        Title.Alignment = taCenter
        Title.Caption = '人数'
        Width = 37
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sex'
        Title.Alignment = taCenter
        Title.Caption = '类型'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COLUMN6'
        Title.Alignment = taCenter
        Title.Caption = '房间费'
        Width = 52
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COLUMN7'
        Title.Alignment = taCenter
        Title.Caption = '超时'
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COLUMN8'
        Title.Alignment = taCenter
        Title.Caption = '开始时间'
        Width = 121
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COLUMN9'
        Title.Alignment = taCenter
        Title.Caption = '结束时间'
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = '结帐方式'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COLUMN11'
        Title.Alignment = taCenter
        Title.Caption = '操作员'
        Visible = True
      end>
  end
  object DataSource1: TDataSource
    DataSet = Query1
    OnDataChange = DataSource1DataChange
    Left = 144
    Top = 89
  end
  object Query1: TQuery
    DatabaseName = 'sanadm'
    SQL.Strings = (
      
        'select accno,max(djcode),min(handno),sum(num),(select sexname fr' +
        'om lssex where sex=max(lsnowin.sex)) as sex,sum(money),sum(csmon' +
        'ey),min(begtime),max(endtime),(select name from mode where code=' +
        'min(lsnowin.jzfs)) as 结帐方式,max(czy) from lsnowin group by ac' +
        'cno')
    Left = 184
    Top = 89
  end
  object Query2: TQuery
    DatabaseName = 'sanadm'
    SQL.Strings = (
      
        'select handno,(select cusname from cusitem where cuscode=lscusto' +
        'm.cuscode) as cusname,'
      'cusprice,cusnum,cusprice*cusnum as 应收,money as 实收,isxj,ismd,'
      
        'regtime,pdid,czy from lscustom where djcode=:pdj and  accno=:pac' +
        'cno'
      '')
    Left = 124
    Top = 288
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pdj'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'paccno'
        ParamType = ptUnknown
      end>
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 92
    Top = 288
  end
  object PopupMenu1: TPopupMenu
    Left = 272
    Top = 88
    object N1: TMenuItem
      Caption = ' 结帐明细'
      OnClick = N1Click
    end
  end
end