lsxx.dfm

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

object lsxxForm: TlsxxForm
  Left = 184
  Top = 304
  Width = 611
  Height = 251
  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 DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 603
    Height = 224
    Align = alClient
    Color = 16777088
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
    OnDblClick = DBGrid1DblClick
    OnExit = DBGrid1Exit
    OnKeyDown = DBGrid1KeyDown
    OnKeyPress = DBGrid1KeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'name'
        Title.Alignment = taCenter
        Title.Caption = '姓名'
        Width = 75
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'workunit'
        Title.Alignment = taCenter
        Title.Caption = '工作单位'
        Width = 224
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zjid'
        Title.Alignment = taCenter
        Title.Caption = '证件号码'
        Width = 125
        Visible = True
      end
      item
        Expanded = False
        FieldName = '消费合计'
        Title.Alignment = taCenter
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zjname'
        Title.Alignment = taCenter
        Title.Caption = '证件类别'
        Width = 68
        Visible = True
      end>
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 304
    Top = 104
  end
  object Query1: TQuery
    DatabaseName = 'sanadm'
    SQL.Strings = (
      'select DISTINCT name,workunit,zjid,'
      
        '(select sum(ysmoney) from lsjz where welid in (select welid from' +
        ' LsGuestMx as a where a.name=LsGuestMx.name and a.workunit=lsgue' +
        'stmx.workunit and a.zjid=LsGuestMx.zjid)) as 消费合计,'
      
        '(select name from zj where code=lsguestmx.zj) as zjname, sex,zj ' +
        'from LsGuestMx where welid in (select welid from lsnowin) and is' +
        'null(groupid,'#39#39')='#39#39)
    Left = 384
    Top = 112
  end
end