⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 krxfmxunit.dfm

📁 集成酒店桑拿食管管理的完整程序
💻 DFM
字号:
🔍 
object xfmxForm: TxfmxForm
  Left = -1
  Top = -2
  Width = 808
  Height = 580
  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 = 196
    Width = 800
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 800
    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 = 197
      Top = 13
      Width = 48
      Height = 12
      Caption = '结帐时间'
    end
    object Label2: TLabel
      Left = 415
      Top = 12
      Width = 12
      Height = 12
      Caption = '至'
    end
    object Label3: TLabel
      Left = 7
      Top = 16
      Width = 48
      Height = 12
      Caption = '登记单号'
    end
    object Label4: TLabel
      Left = 115
      Top = 14
      Width = 24
      Height = 12
      Caption = '帐号'
    end
    object begdate: TDateTimePicker
      Left = 247
      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 = 433
      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 = 611
      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 = 676
      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 = 546
      Top = 8
      Width = 55
      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 = 358
      Top = 8
      Width = 55
      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 = 57
      Top = 9
      Width = 50
      Height = 20
      TabOrder = 6
    end
    object Edit2: TEdit
      Left = 141
      Top = 8
      Width = 50
      Height = 20
      TabOrder = 7
    end
  end
  object TabControl1: TTabControl
    Left = 0
    Top = 199
    Width = 800
    Height = 354
    Align = alClient
    TabOrder = 1
    OnChange = TabControl1Change
    object DBGrid2: TDBGrid
      Left = 4
      Top = 6
      Width = 792
      Height = 303
      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
    object Panel2: TPanel
      Left = 4
      Top = 309
      Width = 792
      Height = 41
      Align = alBottom
      BevelOuter = bvNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 38
    Width = 800
    Height = 158
    Align = alTop
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    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 = '帐号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'welid'
        Title.Alignment = taCenter
        Title.Caption = '个人帐号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'djcode'
        Title.Alignment = taCenter
        Title.Caption = '登记单号'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'handno'
        Title.Alignment = taCenter
        Title.Caption = '手号'
        Width = 36
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'num'
        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 = 'roomprice'
        Title.Alignment = taCenter
        Title.Caption = '房价'
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'truntime'
        Title.Alignment = taCenter
        Title.Caption = '周转'
        Width = 36
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'money'
        Title.Alignment = taCenter
        Title.Caption = '房费'
        Width = 36
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'csmoney'
        Title.Alignment = taCenter
        Title.Caption = '超时费'
        Width = 48
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'begtime'
        Title.Alignment = taCenter
        Title.Caption = '入住时间'
        Width = 122
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'endtime'
        Title.Alignment = taCenter
        Title.Caption = '离店时间'
        Width = 118
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jzfs'
        Title.Alignment = taCenter
        Title.Caption = '结帐方式'
        Width = 48
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'czy'
        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,welid,djcode,handno,num,(select sexname from lsse' +
        'x where sex=lsnowin.sex) as sex,roomprice,truntime,money,'
      
        '  csmoney,begtime,endtime,(select name from mode where code=lsno' +
        'win.jzfs) as jzfs,czy from lsnowin')
    Left = 184
    Top = 89
  end
  object Query2: TQuery
    DatabaseName = 'sanadm'
    SQL.Strings = (
      
        'select handno,(select cusname from cusitem where cuscode=custom.' +
        'cuscode) as cusname,'
      'cusprice,cusnum,cusprice*cusnum as 应收,money as 实收,isxj,ismd,'
      'regtime,pdid,czy from custom where djcode=:pdj and accno=:paccno'
      'union'
      
        '(select handno,(select cusname from cusitem where cuscode=lscust' +
        'om.cuscode) as cusname,'
      'cusprice,cusnum,cusprice*cusnum as 应收,money as 实收,isxj,ismd,'
      
        'regtime,pdid,czy from lscustom where djcode=:pdj and accno=:pacc' +
        'no)'
      ''
      ' '
      ' ')
    Left = 60
    Top = 288
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pdj'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'paccno'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pdj'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'paccno'
        ParamType = ptUnknown
      end>
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 28
    Top = 288
  end
  object Query3: TQuery
    DatabaseName = 'sanadm'
    Left = 328
    Top = 308
  end
  object Query4: TQuery
    DatabaseName = 'sanadm'
    Left = 432
    Top = 340
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -