c_lcsk.dfm

经典的酒店管理系统

inherited LcskForm: TLcskForm
  Caption = #26597#35810
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel1: TPanel
    Height = 67
    inherited lblTitle: TLabel
      Width = 156
      Caption = #21015#36710#26102#21051#34920
    end
    inherited cmbOption: TComboBox
      Top = 40
      ItemIndex = -1
      Text = ''
      Items.Strings = (
        #21015#36710#36710#27425
        #21306#38388#31449)
    end
    inherited cmbExpress: TComboBox
      Top = 40
    end
    inherited edtValue: TEdit
      Top = 40
    end
    inherited btnLoca: TBitBtn
      Top = 37
      OnClick = btnLocaClick
    end
  end
  inherited Panel2: TPanel
    Top = 67
    Height = 371
    inherited dbgMaster: TDBGrid
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        item
          Expanded = False
          FieldName = 'D_LCCC'
          Title.Alignment = taCenter
          Title.Caption = #21015#36710#36710#27425
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_LCLX'
          Title.Alignment = taCenter
          Title.Caption = #21015#36710#31867#22411
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_SFZ'
          Title.Alignment = taCenter
          Title.Caption = #22987#21457#31449
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_ZDZ'
          Title.Alignment = taCenter
          Title.Caption = #32456#28857#31449
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_SFSJ'
          Title.Alignment = taCenter
          Title.Caption = #22987#21457#26102#38388
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_ZDSJ'
          Title.Alignment = taCenter
          Title.Caption = #32456#28857#26102#38388
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_BZ'
          Title.Alignment = taCenter
          Title.Caption = #22791#27880
          Visible = True
        end>
    end
    inherited dbgDetail: TDBGrid
      Height = 189
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        item
          Color = clWhite
          Expanded = False
          FieldName = 'D_LCCC'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #21015#36710#36710#27425
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_ZJZ'
          Title.Alignment = taCenter
          Title.Caption = #21306#38388#31449
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_DZSJ'
          Title.Alignment = taCenter
          Title.Caption = #21040#31449#26102#38388
          Width = 150
          Visible = True
        end>
    end
  end
  inherited qryMaster: TQuery
    OnNewRecord = qryMasterNewRecord
    DatabaseName = 'LfHotelUser'
    RequestLive = True
    SQL.Strings = (
      'select * from LCSK where D_HH=0')
    object qryMasterD_LCCC: TStringField
      FieldName = 'D_LCCC'
      Origin = 'LFHOTELUSER.LCSK.D_LCCC'
      Size = 5
    end
    object qryMasterD_HH: TIntegerField
      FieldName = 'D_HH'
      Origin = 'LFHOTELUSER.LCSK.D_HH'
    end
    object qryMasterD_LCLX: TStringField
      FieldName = 'D_LCLX'
      Origin = 'LFHOTELUSER.LCSK.D_LCLX'
    end
    object qryMasterD_SFZ: TStringField
      FieldName = 'D_SFZ'
      Origin = 'LFHOTELUSER.LCSK.D_SFZ'
      Size = 10
    end
    object qryMasterD_ZDZ: TStringField
      FieldName = 'D_ZDZ'
      Origin = 'LFHOTELUSER.LCSK.D_ZDZ'
      Size = 10
    end
    object qryMasterD_SFSJ: TDateTimeField
      FieldName = 'D_SFSJ'
      Origin = 'LFHOTELUSER.LCSK.D_SFSJ'
    end
    object qryMasterD_ZDSJ: TDateTimeField
      FieldName = 'D_ZDSJ'
      Origin = 'LFHOTELUSER.LCSK.D_ZDSJ'
    end
    object qryMasterD_ZJZ: TStringField
      FieldName = 'D_ZJZ'
      Origin = 'LFHOTELUSER.LCSK.D_ZJZ'
      Size = 10
    end
    object qryMasterD_DZSJ: TDateTimeField
      FieldName = 'D_DZSJ'
      Origin = 'LFHOTELUSER.LCSK.D_DZSJ'
    end
  end
  inherited qryDetail: TQuery
    OnNewRecord = qryDetailNewRecord
    DatabaseName = 'LfHotelUser'
    RequestLive = True
    SQL.Strings = (
      'select * from LCSK where (D_HH<>0)and(D_LCCC=:D_LCCC)')
    ParamData = <
      item
        DataType = ftString
        Name = 'D_LCCC'
        ParamType = ptUnknown
        Size = 6
      end>
    object qryDetailD_LCCC: TStringField
      FieldName = 'D_LCCC'
      Origin = 'LFHOTELUSER.LCSK.D_LCCC'
      Size = 5
    end
    object qryDetailD_HH: TIntegerField
      FieldName = 'D_HH'
      Origin = 'LFHOTELUSER.LCSK.D_HH'
    end
    object qryDetailD_LCLX: TStringField
      FieldName = 'D_LCLX'
      Origin = 'LFHOTELUSER.LCSK.D_LCLX'
    end
    object qryDetailD_SFZ: TStringField
      FieldName = 'D_SFZ'
      Origin = 'LFHOTELUSER.LCSK.D_SFZ'
      Size = 10
    end
    object qryDetailD_ZDZ: TStringField
      FieldName = 'D_ZDZ'
      Origin = 'LFHOTELUSER.LCSK.D_ZDZ'
      Size = 10
    end
    object qryDetailD_SFSJ: TDateTimeField
      FieldName = 'D_SFSJ'
      Origin = 'LFHOTELUSER.LCSK.D_SFSJ'
    end
    object qryDetailD_ZDSJ: TDateTimeField
      FieldName = 'D_ZDSJ'
      Origin = 'LFHOTELUSER.LCSK.D_ZDSJ'
    end
    object qryDetailD_ZJZ: TStringField
      FieldName = 'D_ZJZ'
      Origin = 'LFHOTELUSER.LCSK.D_ZJZ'
      Size = 10
    end
    object qryDetailD_DZSJ: TDateTimeField
      FieldName = 'D_DZSJ'
      Origin = 'LFHOTELUSER.LCSK.D_DZSJ'
    end
  end
end