bkzlcx.dfm

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

object bkzlcxForm: TbkzlcxForm
  Left = 129
  Top = 141
  Width = 579
  Height = 403
  Caption = '宾客资料查询'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 571
    Height = 36
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 536
      Top = 16
      Width = 36
      Height = 12
      Caption = 'Label1'
      Visible = False
    end
    object xm: TCheckBox
      Left = 16
      Top = 8
      Width = 49
      Height = 17
      Caption = '姓名'
      TabOrder = 0
    end
    object gz: TCheckBox
      Left = 168
      Top = 7
      Width = 70
      Height = 17
      Caption = '工作单位'
      TabOrder = 1
    end
    object name: TEdit
      Left = 64
      Top = 5
      Width = 100
      Height = 20
      Color = clInfoBk
      TabOrder = 2
    end
    object dw: TEdit
      Left = 238
      Top = 3
      Width = 153
      Height = 20
      Color = clInfoBk
      TabOrder = 3
    end
    object BitBtn1: TBitBtn
      Left = 404
      Top = 5
      Width = 75
      Height = 25
      Caption = '查询'
      TabOrder = 4
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 478
      Top = 5
      Width = 75
      Height = 25
      Caption = '退出'
      TabOrder = 5
      OnClick = BitBtn2Click
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 36
    Width = 571
    Height = 340
    Align = alClient
    Color = clInfoBk
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'RoomNo'
        Title.Alignment = taCenter
        Title.Caption = '房间号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Name'
        Title.Alignment = taCenter
        Title.Caption = '姓名'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Sex'
        Title.Alignment = taCenter
        Title.Caption = '性别'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Age'
        Title.Alignment = taCenter
        Title.Caption = '年龄'
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Zj'
        Title.Alignment = taCenter
        Title.Caption = '证件'
        Width = 67
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zjid'
        Title.Alignment = taCenter
        Title.Caption = '证件号码'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'WorkUnit'
        Title.Alignment = taCenter
        Title.Caption = '工作单位'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'groupid'
        Title.Alignment = taCenter
        Title.Caption = '团体号'
        Visible = True
      end>
  end
  object Query1: TQuery
    DatabaseName = 'sanadm'
    SQL.Strings = (
      'select * from GuestMx')
    Left = 256
    Top = 136
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 144
    Top = 128
  end
end