c_krxx.dfm

经典的酒店管理系统

object KrxxForm: TKrxxForm
  Left = 192
  Top = 107
  BorderStyle = bsDialog
  BorderWidth = 10
  Caption = #23458#20154#35814#32454#24773#20917
  ClientHeight = 328
  ClientWidth = 516
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'System'
  Font.Style = [fsBold]
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 16
    Top = 8
    Width = 80
    Height = 16
    Caption = #23458#20154#22995#21517#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 240
    Top = 8
    Width = 80
    Height = 16
    Caption = #24615'        '#21035#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 16
    Top = 40
    Width = 80
    Height = 16
    Caption = #31821'        '#36143#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 240
    Top = 40
    Width = 80
    Height = 16
    Caption = #27665'        '#26063#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 16
    Top = 72
    Width = 80
    Height = 16
    Caption = #20986#29983#24180#26376#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 16
    Top = 104
    Width = 80
    Height = 16
    Caption = #35777#20214#31867#22411#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 240
    Top = 104
    Width = 80
    Height = 16
    Caption = #35777#20214#21495#30721#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label8: TLabel
    Left = 16
    Top = 136
    Width = 80
    Height = 16
    Caption = #20309'  '#22788'  '#26469#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label9: TLabel
    Left = 240
    Top = 136
    Width = 80
    Height = 16
    Caption = #20309'  '#22788'  '#21435#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label10: TLabel
    Left = 16
    Top = 168
    Width = 80
    Height = 16
    Caption = #25311#20303#22825#25968#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label11: TLabel
    Left = 240
    Top = 168
    Width = 80
    Height = 16
    Caption = #20572#30041#20107#30001#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label12: TLabel
    Left = 16
    Top = 200
    Width = 80
    Height = 16
    Caption = #24037#20316#21333#20301#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label13: TLabel
    Left = 16
    Top = 232
    Width = 80
    Height = 16
    Caption = #23478#24237#22320#22336#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label14: TLabel
    Left = 16
    Top = 264
    Width = 80
    Height = 16
    Caption = #22791'        '#27880#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBText1: TDBText
    Left = 98
    Top = 8
    Width = 56
    Height = 16
    AutoSize = True
    DataField = 'D_KRXM'
    DataSource = dsKrxx
  end
  object DBText2: TDBText
    Left = 322
    Top = 8
    Width = 56
    Height = 16
    AutoSize = True
    DataField = 'D_XB'
    DataSource = dsKrxx
  end
  object DBText3: TDBText
    Left = 98
    Top = 40
    Width = 56
    Height = 16
    AutoSize = True
    DataField = 'D_DQMC'
    DataSource = dsKrxx
  end
  object DBText4: TDBText
    Left = 322
    Top = 40
    Width = 56
    Height = 16
    AutoSize = True
    DataField = 'D_MZMC'
    DataSource = dsKrxx
  end
  object DBText5: TDBText
    Left = 98
    Top = 72
    Width = 56
    Height = 16
    AutoSize = True
    DataField = 'D_CSNY'
    DataSource = dsKrxx
  end
  object DBText6: TDBText
    Left = 98
    Top = 104
    Width = 56
    Height = 16
    AutoSize = True
    DataField = 'D_ZJMC'
    DataSource = dsKrxx
  end
  object DBText7: TDBText
    Left = 322
    Top = 104
    Width = 56
    Height = 16
    AutoSize = True
    DataField = 'D_ZJHM'
    DataSource = dsKrxx
  end
  object DBText8: TDBText
    Left = 98
    Top = 136
    Width = 56
    Height = 16
    AutoSize = True
    DataField = 'D_HCL'
    DataSource = dsKrxx
  end
  object DBText9: TDBText
    Left = 322
    Top = 136
    Width = 56
    Height = 16
    AutoSize = True
    DataField = 'D_HCQ'
    DataSource = dsKrxx
  end
  object DBText10: TDBText
    Left = 98
    Top = 168
    Width = 64
    Height = 16
    AutoSize = True
    DataField = 'D_NZTS'
    DataSource = dsKrxx
  end
  object DBText11: TDBText
    Left = 322
    Top = 168
    Width = 64
    Height = 16
    AutoSize = True
    DataField = 'D_TLSY'
    DataSource = dsKrxx
  end
  object DBText12: TDBText
    Left = 98
    Top = 200
    Width = 64
    Height = 16
    AutoSize = True
    DataField = 'D_DWMC'
    DataSource = dsKrxx
  end
  object DBText13: TDBText
    Left = 98
    Top = 232
    Width = 64
    Height = 16
    AutoSize = True
    DataField = 'D_JTDZ'
    DataSource = dsKrxx
  end
  object DBText14: TDBText
    Left = 98
    Top = 264
    Width = 64
    Height = 16
    AutoSize = True
    DataField = 'D_BZ'
    DataSource = dsKrxx
  end
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 516
    Height = 294
    Shape = bsFrame
  end
  object btnClose: TBitBtn
    Left = 440
    Top = 303
    Width = 75
    Height = 25
    Cancel = True
    Caption = #20851#38381'(&O)'
    ModalResult = 2
    TabOrder = 0
  end
  object tblKrxx: TTable
    DatabaseName = 'LfHotelUser'
    TableName = 'KRXX'
    Left = 368
    Top = 248
    object tblKrxxD_KRBH: TStringField
      FieldName = 'D_KRBH'
      Required = True
      Size = 12
    end
    object tblKrxxD_KRXM: TStringField
      FieldName = 'D_KRXM'
      Size = 30
    end
    object tblKrxxD_KRLX: TStringField
      FieldName = 'D_KRLX'
      FixedChar = True
      Size = 1
    end
    object tblKrxxD_DDRQ: TDateTimeField
      FieldName = 'D_DDRQ'
    end
    object tblKrxxD_DDSJ: TDateTimeField
      FieldName = 'D_DDSJ'
    end
    object tblKrxxD_LDRQ: TDateTimeField
      FieldName = 'D_LDRQ'
    end
    object tblKrxxD_LDSJ: TDateTimeField
      FieldName = 'D_LDSJ'
    end
    object tblKrxxD_YWX: TStringField
      FieldName = 'D_YWX'
      Size = 8
    end
    object tblKrxxD_YWM: TStringField
      FieldName = 'D_YWM'
      Size = 8
    end
    object tblKrxxD_XB: TStringField
      FieldName = 'D_XB'
      Size = 2
    end
    object tblKrxxD_MZBH: TStringField
      FieldName = 'D_MZBH'
      Size = 5
    end
    object tblKrxxD_DQBH: TStringField
      FieldName = 'D_DQBH'
      Size = 5
    end
    object tblKrxxD_GBBH: TStringField
      FieldName = 'D_GBBH'
      Size = 5
    end
    object tblKrxxD_NZTS: TIntegerField
      FieldName = 'D_NZTS'
    end
    object tblKrxxD_TLSY: TStringField
      FieldName = 'D_TLSY'
      Size = 10
    end
    object tblKrxxD_ZJBH: TStringField
      FieldName = 'D_ZJBH'
      Size = 5
    end
    object tblKrxxD_ZJHM: TStringField
      FieldName = 'D_ZJHM'
      Size = 18
    end
    object tblKrxxD_CSNY: TDateTimeField
      FieldName = 'D_CSNY'
    end
    object tblKrxxD_HCL: TStringField
      FieldName = 'D_HCL'
      Size = 10
    end
    object tblKrxxD_HCQ: TStringField
      FieldName = 'D_HCQ'
      Size = 10
    end
    object tblKrxxD_QZBH: TStringField
      FieldName = 'D_QZBH'
      Size = 5
    end
    object tblKrxxD_QZYXQ: TDateTimeField
      FieldName = 'D_QZYXQ'
    end
    object tblKrxxD_ZY: TStringField
      FieldName = 'D_ZY'
      Size = 10
    end
    object tblKrxxD_LXDH: TStringField
      FieldName = 'D_LXDH'
      Size = 16
    end
    object tblKrxxD_DWMC: TStringField
      FieldName = 'D_DWMC'
      Size = 30
    end
    object tblKrxxD_JTDZ: TStringField
      FieldName = 'D_JTDZ'
      Size = 30
    end
    object tblKrxxD_JDR: TStringField
      FieldName = 'D_JDR'
      Size = 8
    end
    object tblKrxxD_JDDW: TStringField
      FieldName = 'D_JDDW'
      Size = 30
    end
    object tblKrxxD_BZ: TStringField
      FieldName = 'D_BZ'
      Size = 30
    end
    object tblKrxxD_QDR1: TStringField
      FieldName = 'D_QDR1'
      Size = 8
    end
    object tblKrxxD_QDR2: TStringField
      FieldName = 'D_QDR2'
      Size = 8
    end
    object tblKrxxD_QDR3: TStringField
      FieldName = 'D_QDR3'
      Size = 8
    end
    object tblKrxxD_QDR4: TStringField
      FieldName = 'D_QDR4'
      Size = 8
    end
    object tblKrxxD_MZMC: TStringField
      FieldKind = fkLookup
      FieldName = 'D_MZMC'
      LookupDataSet = HotelData.tblMZDM
      LookupKeyFields = 'D_MZBH'
      LookupResultField = 'D_MZMC'
      KeyFields = 'D_MZBH'
      Lookup = True
    end
    object tblKrxxD_DQMC: TStringField
      FieldKind = fkLookup
      FieldName = 'D_DQMC'
      LookupDataSet = HotelData.tblDQDM
      LookupKeyFields = 'D_DQBH'
      LookupResultField = 'D_DQMC'
      KeyFields = 'D_DQBH'
      Lookup = True
    end
    object tblKrxxD_ZJMC: TStringField
      FieldKind = fkLookup
      FieldName = 'D_ZJMC'
      LookupDataSet = HotelData.tblZJDM
      LookupKeyFields = 'D_ZJBH'
      LookupResultField = 'D_ZJMC'
      KeyFields = 'D_ZJBH'
      Lookup = True
    end
  end
  object dsKrxx: TDataSource
    DataSet = tblKrxx
    Left = 336
    Top = 248
  end
end