c_ctmain.dfm

经典的酒店管理系统

        Caption = #26410#32467#24080#26597#35810
        OnClick = OnWjzcx
      end
      object N29: TMenuItem
        Caption = '-'
      end
      object N25: TMenuItem
        Caption = #33829#19994#32479#35745
        object N26: TMenuItem
          Caption = #25353#28040#36153#39033#30446#32479#35745
          OnClick = N26Click
        end
        object N30: TMenuItem
          Caption = #25353#32467#24080#26041#24335#32479#35745
          OnClick = N30Click
        end
        object N31: TMenuItem
          Caption = #25353#32467#24080#21592#24037#32479#35745
          OnClick = N31Click
        end
      end
    end
    object N11: TMenuItem
      Caption = #31995#32479#35774#32622
      object N12: TMenuItem
        Caption = #28040#36153#39033#30446#23450#20041
        OnClick = N12Click
      end
      object N13: TMenuItem
        Caption = #39184#21381#21488#21495#23450#20041
        OnClick = N13Click
      end
      object N14: TMenuItem
        Caption = #33756#21333#23450#20041
        OnClick = N14Click
      end
      object N19: TMenuItem
        Caption = '-'
      end
      object N33: TMenuItem
        AutoCheck = True
        Caption = #39044#23450#26174#31034
        ShortCut = 121
        OnClick = N33Click
      end
      object N24: TMenuItem
        Caption = #20018#21475#35774#32622
        OnClick = N24Click
      end
      object N20: TMenuItem
        Caption = #21475#20196#35774#32622
        OnClick = N20Click
      end
      object N21: TMenuItem
        Caption = #37325#26032#30331#24405
        OnClick = N21Click
      end
    end
    object N22: TMenuItem
      Caption = #24110#21161
      object N23: TMenuItem
        Caption = #20851#20110#26412#36719#20214
        OnClick = N23Click
      end
    end
  end
  object tblCtzt: TTable
    DatabaseName = 'LfHotelUser'
    TableName = 'CTZT'
    Left = 160
    Top = 120
    object tblCtztD_CTBH: TStringField
      FieldName = 'D_CTBH'
      Required = True
      Size = 5
    end
    object tblCtztD_CTMC: TStringField
      FieldName = 'D_CTMC'
      Required = True
      Size = 10
    end
    object tblCtztD_CTZT: TStringField
      FieldName = 'D_CTZT'
      Required = True
      FixedChar = True
      Size = 1
    end
    object tblCtztD_DCBH: TStringField
      FieldName = 'D_DCBH'
      Size = 12
    end
    object tblCtztD_KRXM: TStringField
      FieldName = 'D_KRXM'
      Size = 30
    end
    object tblCtztD_KRSL: TIntegerField
      FieldName = 'D_KRSL'
    end
    object tblCtztD_XFRQ: TDateTimeField
      FieldName = 'D_XFRQ'
    end
    object tblCtztD_XFSJ: TDateTimeField
      FieldName = 'D_XFSJ'
    end
    object tblCtztD_JZRQ: TDateTimeField
      FieldName = 'D_JZRQ'
    end
    object tblCtztD_JZSJ: TDateTimeField
      FieldName = 'D_JZSJ'
    end
  end
  object ImageList1: TImageList
    Left = 128
    Top = 120
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000FF7FDE7B
      BD775A6BF75EF75EF75E18635A6BDE7B00000000000000000000000000000000
      0000D65A524AD431133ED65A000000000000F75E00000000000000000000F75E
      F75E0000F75EF75E0000F75EF75EF75E00000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000FF7FAD35
      3146AA197026F01DB315EC0CE71C5A6B00000000186318631863186318631863
      D4313A117C1D9F299F293A11F40C524A0000F75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75ECD18E91C84100000000000000000
      00000000000000000000000000000000000000000000000000000000DE7B5226
      2D09D232133F532AF519950D8804314600000000B952B952B952B952B952B952
      18097D21DF2DFF3158153A2ABF297D21524AF75EF75EF75EF75E0000F75EF75E
      F75EF75EF75EF75EF75E0000F75E0000F75EC818F03D524A0000000081346361
      267A667EC24000040000000000000000000000000000FF7FDE7B7B6F3967EC29
      D415343F76539332F31D7211AC008410000000009F675E639F675E635E633D5B
      7915BF2D1F361D2E7F537F531F369F29524AF75EF75EFF7F7B6FF75EF75EF75E
      F75EF75E0000F75EF75EF75EF75E0000F75E08213146F662CD7EA97EA46DE150
      425DA4690F7B2F7FA338000000000000000000000000DE7B521D2449057E633C
      D863143BD763D23EF01D2D0D32091042000000009F679F679F675E635E635E63
      3D5B9A193F367D3E3742FF4A3F3A160D0000F75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EAD35734E1867517F727FB37F937B
      D47FEB550000315ED37FA43C0000000000000000FF7F757B42795F377F4FFF63
      523EAC25B563CF46CC21C80C8C317B6F000000009F6B9F679F679F675E635E63
      5E6329250000813CA248603C6C2D00000000F75EF75EF75EFF7F7B6FF75EF75E
      F75EF75EF75EF75EF75E0000000000000000734EB556D65A7362D666D66A4949
      0000000000000000000000000000000000000000DE7BA07D5F377F5F7F57DF6F
      FF773B2A4F3A6A1D481920794E11D65A00000000BF736D259F676D256D256D25
      630C4208A134235523592355613400000000F75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EFF7F7B6FF75EF75EF75EF75E0000000000000000000000000000
      00000000000000000000000000000000000000009C731142BF5B5F57DF6BFF7B
      DC4E953A27052F0DB000D65A407E6E2100000000DF73BF739F6B9F679F6B9F67
      630C84108461A465A4698465024D00000000F75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75E0000000000000000000000000000
      000000000000000000000000000000000000FF7FAC7E9F02FF7FDF73FF7FFF7F
      5D32E714133F742E960DC618001A6E4D00000000BF736D25BF6F6D256D256D25
      A514C6188459257A467E257A636100000000F75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EFF7F7B6FF75EF75EF75E0000000000000000000000000000
      000000000000000000000000000000000000BD77807EB777FF7BDF73FF7F7D6F
      BD3A4A259653314FAE196B2D802AF75A00000000DF77BF73BF73BF6F9F679F67
      630C0821A514024DA46D467A625100000000F75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75E0000000000000000000000000000
      000000000000000000000000000000000000D77A206AFF7F9F63FF7FFF7F7C36
      5E4FDF6B8D31C6184A298A7EEC619C7300000000DF776D25DF736D256D256D25
      6D254A298C31524ACE39A514E71C00000000F75EF75EEF3D0000F75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75E0000000000000000000000000000
      000000000000000000000000000000000000AA7EC802FF7FFF7BFF7FBC7BDF26
      BF63FF7FFF7FFF7FFF7F407EB552DE7B00000000FF7BDF77DF77DF77BF73BF73
      BF6F9F6F8C31524AAD35A514000000000000F75EF75EF75E0000F75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75E0000000000000000000000000000
      0000000000000000000000000000000000004076FF57FF7F8E7ED376BD77147B
      F47AFF7FFF7FFF7F317F2C567B6FFF7F00000000FF7BDF7BDF77DF77DF73DF6F
      BF6FBF6FBF6F5F5F32420000000000000000F75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75E0000000000000000000000000000
      000000000000000000000000000000000000667E8E7ABD77FF7F000000000000
      FF7F6A7EFF7FFF7FA07E954EDE7B000000000000FF7FFF7BDF7BDF7BDF77BF77
      BF73DC4A5C1E1A1AD7560000000000000000F75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EEF3D0000F75EF75EF75EF75E0000000000000000000000000000
      000000000000000000000000000000000000FF7FFF7F00000000000000000000
      00000000DE7BC67E0D569C73FF7F000000000000FF7FFF7FFF7FDF7FDF7BDF7B
      DF731D57DF2A954E00000000000000000000F75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75E0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000FF7FFF7FFF7F0000000000000000FF7FFF7FFF7FFF7FFF7FDF7B
      9C735D5B133E000000000000000000000000F75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75E424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFF801FF077FDF1EFFF8018001BFEF
      101FF8018000FFFF000FC001800097AD0007C00180017FE7004780018003BFF7
      01FF80018003FFFFFFFF80018003FFFFFFFF000180039FE7FFFF00018003DFFF
      FFFF00018003FFFFFFFF00018007FFFFFFFF0001800F3CE7FFFF0E03800FFFFF
      FFFF3F83801F0000FFFFFFC7803F000000000000000000000000000000000000
      000000000000}
  end
  object tblCtdc: TTable
    DatabaseName = 'LfHotelUser'
    Filter = 'D_XMBH='#39'0'#39' and D_DCLB='#39'C'#39
    Filtered = True
    TableName = 'CTDC'
    Left = 200
    Top = 120
    object tblCtdcD_CTMC: TStringField
      FieldKind = fkLookup
      FieldName = 'D_CTMC'
      LookupDataSet = CtData.tblCtdm
      LookupKeyFields = 'D_CTBH'
      LookupResultField = 'D_CTMC'
      KeyFields = 'D_CTBH'
      Lookup = True
    end
    object tblCtdcD_DCBH: TStringField
      FieldName = 'D_DCBH'
      Required = True
      Size = 12
    end
    object tblCtdcD_CTBH: TStringField
      FieldName = 'D_CTBH'
      Required = True
      Size = 5
    end
    object tblCtdcD_XMBH: TStringField
      FieldName = 'D_XMBH'
      Required = True
      Size = 5
    end
    object tblCtdcD_DCLB: TStringField
      FieldName = 'D_DCLB'
      FixedChar = True
      Size = 1
    end
    object tblCtdcD_XFRQ: TDateTimeField
      FieldName = 'D_XFRQ'
    end
    object tblCtdcD_XFSJ: TDateTimeField
      FieldName = 'D_XFSJ'
    end
    object tblCtdcD_SJDM: TStringField
      FieldName = 'D_SJDM'
      FixedChar = True
      Size = 4
    end
    object tblCtdcD_KRSL: TIntegerField
      FieldName = 'D_KRSL'
    end
    object tblCtdcD_YCBZ: TStringField
      FieldName = 'D_YCBZ'
      Size = 30
    end
    object tblCtdcD_KRXM: TStringField
      FieldName = 'D_KRXM'
      Size = 30
    end
    object tblCtdcD_JSBZ: TStringField
      FieldName = 'D_JSBZ'
      FixedChar = True
      Size = 1
    end
    object tblCtdcD_JZFS: TStringField
      FieldName = 'D_JZFS'
      Size = 10
    end
    object tblCtdcD_KHBH: TStringField
      FieldName = 'D_KHBH'
      Size = 5
    end
    object tblCtdcD_XYKBH: TStringField
      FieldName = 'D_XYKBH'
      Size = 5
    end
    object tblCtdcD_XFJE: TFloatField
      FieldName = 'D_XFJE'
      currency = True
    end
    object tblCtdcD_YHJE: TFloatField
      FieldName = 'D_YHJE'
      currency = True
    end
    object tblCtdcD_CZYXM: TStringField
      FieldName = 'D_CZYXM'
      Size = 8
    end
    object tblCtdcD_YDBH: TStringField
      FieldName = 'D_YDBH'
      Size = 12
    end
    object tblCtdcD_BZ: TStringField
      FieldName = 'D_BZ'
      Size = 30
    end
  end
  object dsCtdc: TDataSource
    DataSet = tblCtdc
    Left = 232
    Top = 120
  end
  object qryYdcy: TQuery
    DatabaseName = 'LfHotelUser'
    SQL.Strings = (
      
        'select * from YDCY where (D_SYRQ=:RQ)and(D_CTBH<>"0")and(D_RZBZ=' +
        '"T")and(D_KTBZ="F")')
    Left = 160
    Top = 168
    ParamData = <
      item
        DataType = ftDate
        Name = 'RQ'
        ParamType = ptInput
      end>
  end
end