c_zdysk.dfm

经典的酒店管理系统

inherited ZdYskForm: TZdYskForm
  Left = 138
  Top = 49
  Width = 650
  Height = 500
  Caption = #32467#24080
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel1: TPanel
    Width = 642
    Height = 150
    inherited lblTitile: TLabel
      Left = 249
      Width = 156
      Caption = #24212#25910#27454#24080#21333
    end
    inherited Image1: TImage
      Left = 204
    end
    object Label1: TLabel
      Left = 16
      Top = 77
      Width = 85
      Height = 19
      Caption = #28040#36153#37329#39069
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblXfje: TLabel
      Left = 180
      Top = 77
      Width = 33
      Height = 19
      Alignment = taRightJustify
      Caption = '0'#20803
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 16
      Top = 101
      Width = 85
      Height = 19
      Caption = #32467#31639#37329#39069
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblJsje: TLabel
      Left = 180
      Top = 101
      Width = 33
      Height = 19
      Alignment = taRightJustify
      Caption = '0'#20803
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 220
      Top = 77
      Width = 85
      Height = 19
      Caption = #39044#20132#37329#39069
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblYjje: TLabel
      Left = 380
      Top = 77
      Width = 33
      Height = 19
      Alignment = taRightJustify
      Caption = '0'#20803
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 220
      Top = 101
      Width = 85
      Height = 19
      Caption = #27424#24080#37329#39069
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblQzje: TLabel
      Left = 380
      Top = 101
      Width = 33
      Height = 19
      Alignment = taRightJustify
      Caption = '0'#20803
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label9: TLabel
      Left = 420
      Top = 77
      Width = 85
      Height = 19
      Caption = #39044#20132#25187#38500
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblYjkc: TLabel
      Left = 586
      Top = 77
      Width = 33
      Height = 19
      Alignment = taRightJustify
      Caption = '0'#20803
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label11: TLabel
      Left = 420
      Top = 101
      Width = 85
      Height = 19
      Caption = #20248#24800#37329#39069
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblYhje: TLabel
      Left = 586
      Top = 101
      Width = 33
      Height = 19
      Alignment = taRightJustify
      Caption = '0'#20803
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 125
      Width = 85
      Height = 19
      Caption = #23454#32467#37329#39069
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 16
      Top = 48
      Width = 85
      Height = 19
      Caption = #32467#24080#26041#24335
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblJzfs: TLabel
      Left = 106
      Top = 48
      Width = 78
      Height = 19
      Caption = 'lblJzfs'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label8: TLabel
      Left = 220
      Top = 48
      Width = 85
      Height = 19
      Caption = #32467#24080#26085#26399
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 421
      Top = 48
      Width = 85
      Height = 19
      Caption = #32467#24080#26102#38388
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblJzrq: TLabel
      Left = 310
      Top = 48
      Width = 78
      Height = 19
      Caption = 'lblJzrq'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblJzsj: TLabel
      Left = 511
      Top = 48
      Width = 78
      Height = 19
      Caption = 'lblJzsj'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 191
      Top = 125
      Width = 22
      Height = 19
      Caption = #20803
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Bevel2: TBevel
      Left = 12
      Top = 66
      Width = 621
      Height = 7
      Shape = bsBottomLine
      Style = bsRaised
    end
    object edtSjje: TEdit
      Left = 104
      Top = 120
      Width = 83
      Height = 27
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
  end
  inherited Panel2: TPanel
    Top = 150
    Width = 642
    Height = 282
    inherited Bevel1: TBevel
      Width = 632
      Height = 272
    end
    object DBGrid1: TDBGrid
      Left = 5
      Top = 5
      Width = 632
      Height = 272
      Align = alClient
      DataSource = dsYskjzls
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'D_XFXM'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #28040#36153#39033#30446
          Width = 140
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_XFJE'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #28040#36153#37329#39069
          Width = 150
          Visible = True
        end
        item
          Color = clMoneyGreen
          Expanded = False
          FieldName = 'D_YHJE'
          Title.Alignment = taCenter
          Title.Caption = #20248#24800#37329#39069
          Width = 150
          Visible = True
        end
        item
          Color = clMoneyGreen
          Expanded = False
          FieldName = 'D_JZJE'
          Title.Alignment = taCenter
          Title.Caption = #23454#32467#37329#39069
          Width = 150
          Visible = True
        end>
    end
  end
  inherited Panel3: TPanel
    Top = 432
    Width = 642
    inherited btnOK: TBitBtn
      Left = 482
      Caption = #32467#24080'(&J)'
      OnClick = btnOKClick
    end
    inherited btnCanc: TBitBtn
      Left = 562
    end
  end
  object tblYskjzls: TTable
    BeforeInsert = tblYskjzlsBeforeInsert
    AfterPost = tblYskjzlsAfterPost
    BeforeDelete = tblYskjzlsBeforeDelete
    DatabaseName = 'LFHOTELUSER'
    TableName = 'YSKJZLS.db'
    Left = 480
    Top = 8
    object tblYskjzlsD_KHBH: TStringField
      FieldName = 'D_KHBH'
      Size = 5
    end
    object tblYskjzlsD_ZDBH: TStringField
      FieldName = 'D_ZDBH'
      Size = 12
    end
    object tblYskjzlsD_HH: TIntegerField
      FieldName = 'D_HH'
    end
    object tblYskjzlsD_XMBH: TStringField
      FieldName = 'D_XMBH'
      Size = 5
    end
    object tblYskjzlsD_XFJE: TCurrencyField
      FieldName = 'D_XFJE'
    end
    object tblYskjzlsD_YJJE: TCurrencyField
      FieldName = 'D_YJJE'
    end
    object tblYskjzlsD_YHJE: TCurrencyField
      FieldName = 'D_YHJE'
    end
    object tblYskjzlsD_JZJE: TCurrencyField
      FieldName = 'D_JZJE'
    end
    object tblYskjzlsD_JZBZ: TBooleanField
      FieldName = 'D_JZBZ'
    end
    object tblYskjzlsD_XFXM: TStringField
      FieldKind = fkLookup
      FieldName = 'D_XFXM'
      LookupDataSet = HotelData.tblXMDM
      LookupKeyFields = 'D_XMBH'
      LookupResultField = 'D_XMMC'
      KeyFields = 'D_XMBH'
      Lookup = True
    end
  end
  object dsYskjzls: TDataSource
    DataSet = tblYskjzls
    Left = 512
    Top = 8
  end
  object tblKrjz: TTable
    CachedUpdates = True
    DatabaseName = 'LFHOTELUSER'
    TableName = 'KRJZ.db'
    Left = 40
    Top = 8
  end
  object qryYskmx: TQuery
    DatabaseName = 'LFHOTELUSER'
    SQL.Strings = (
      'select * from YSK where D_KHBH=:KHBH')
    Left = 448
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'KHBH'
        ParamType = ptInput
      end>
  end
end