unit1.dfm

用DELPHI编写的简单的宾馆住宿系统

object Form1: TForm1
  Left = 195
  Top = 88
  Width = 602
  Height = 377
  Caption = #23486#39302#20303#23487#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 4
    Top = 42
    Width = 585
    Height = 289
    ActivePage = TabSheet1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #20837#20303#35760#24405
      object Label1: TLabel
        Left = 57
        Top = 66
        Width = 36
        Height = 12
        Caption = #25151#38388#21495
      end
      object Label2: TLabel
        Left = 57
        Top = 98
        Width = 48
        Height = 12
        Caption = #23458#25143#22995#21517
      end
      object Label3: TLabel
        Left = 57
        Top = 130
        Width = 48
        Height = 12
        Caption = #36523#20221#35777#21495
      end
      object Label4: TLabel
        Left = 57
        Top = 162
        Width = 48
        Height = 12
        Caption = #20837#20303#26102#26399
      end
      object Label5: TLabel
        Left = 57
        Top = 202
        Width = 48
        Height = 12
        Caption = #20837#20303#29702#30001
      end
      object Label6: TLabel
        Left = 312
        Top = 66
        Width = 24
        Height = 12
        Caption = #25151#20215
      end
      object Label7: TLabel
        Left = 312
        Top = 98
        Width = 48
        Height = 12
        Caption = #20303#23487#22825#25968
      end
      object Label8: TLabel
        Left = 312
        Top = 130
        Width = 48
        Height = 12
        Caption = #20540#29677#20154#21592
      end
      object Label9: TLabel
        Left = 312
        Top = 162
        Width = 48
        Height = 12
        Caption = #30005#35805#21495#30721
      end
      object Label10: TLabel
        Left = 312
        Top = 202
        Width = 48
        Height = 12
        Caption = #32467#31639#36153#29992
      end
      object Label11: TLabel
        Left = 224
        Top = 24
        Width = 120
        Height = 20
        Caption = #39038#23458#20837#20303#30331#35760
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -20
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object DBEdit1: TDBEdit
        Left = 129
        Top = 67
        Width = 121
        Height = 20
        DataField = #25151#38388#21495
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 129
        Top = 99
        Width = 121
        Height = 20
        DataField = #23458#25143#22995#21517
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 129
        Top = 131
        Width = 121
        Height = 20
        DataField = #36523#20221#35777#21495
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 129
        Top = 163
        Width = 121
        Height = 20
        DataField = #20837#20303#26102#26399
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 129
        Top = 195
        Width = 121
        Height = 20
        DataField = #20303#23487#29702#30001
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 382
        Top = 67
        Width = 121
        Height = 20
        DataField = #25151#20215
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 5
      end
      object DBEdit7: TDBEdit
        Left = 382
        Top = 99
        Width = 121
        Height = 20
        DataField = #20303#23487#22825#25968
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 6
      end
      object DBEdit8: TDBEdit
        Left = 382
        Top = 131
        Width = 121
        Height = 20
        DataField = #20540#29677#20154#21592
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 7
      end
      object DBEdit9: TDBEdit
        Left = 382
        Top = 163
        Width = 121
        Height = 20
        DataField = #30005#35805#21495#30721
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 8
      end
      object DBEdit10: TDBEdit
        Left = 382
        Top = 195
        Width = 121
        Height = 20
        DataField = #32467#31639#36153#29992
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 9
      end
      object DBNavigator1: TDBNavigator
        Left = 184
        Top = 224
        Width = 240
        Height = 25
        DataSource = DataSource1
        Flat = True
        TabOrder = 10
      end
    end
    object TabSheet2: TTabSheet
      Caption = #23458#25151#26597#35810
      ImageIndex = 1
      object Label12: TLabel
        Left = 215
        Top = 10
        Width = 114
        Height = 19
        Caption = #23458#25143#26597#35810#31995#32479
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 24
        Top = 200
        Width = 60
        Height = 12
        Caption = #25353#22995#21517#26597#35810
      end
      object Label14: TLabel
        Left = 24
        Top = 224
        Width = 60
        Height = 12
        Caption = #25353#25151#21495#26597#35810
      end
      object Label15: TLabel
        Left = 23
        Top = 246
        Width = 60
        Height = 12
        Caption = #25353#26102#26399#26597#35810
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 40
        Width = 553
        Height = 140
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
      object Edit1: TEdit
        Left = 93
        Top = 197
        Width = 102
        Height = 20
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 1
        Text = 'Edit1'
        OnClick = Edit1Click
      end
      object Edit2: TEdit
        Left = 93
        Top = 218
        Width = 103
        Height = 20
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 2
        Text = 'Edit2'
        OnClick = Edit2Click
      end
      object Edit3: TEdit
        Left = 93
        Top = 241
        Width = 103
        Height = 20
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 3
        Text = 'Edit3'
        OnClick = Edit3Click
      end
      object Memo1: TMemo
        Left = 372
        Top = 189
        Width = 185
        Height = 61
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        Lines.Strings = (
          'Memo1')
        TabOrder = 4
        Visible = False
      end
      object Button1: TButton
        Left = 224
        Top = 216
        Width = 75
        Height = 25
        Caption = #25191#34892#26597#35810
        TabOrder = 5
        OnClick = Button1Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = #32479#35745#32467#31639
      ImageIndex = 2
      object Label16: TLabel
        Left = 223
        Top = 25
        Width = 140
        Height = 20
        Caption = #23486#39302#24635#25910#20837#32479#35745
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -20
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Button2: TButton
        Left = 40
        Top = 120
        Width = 121
        Height = 25
        Caption = #25191#34892#24635#25910#20837#32479#35745
        TabOrder = 0
        OnClick = Button2Click
      end
      object Memo2: TMemo
        Left = 200
        Top = 96
        Width = 313
        Height = 89
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        Lines.Strings = (
          'Memo2')
        TabOrder = 1
      end
    end
    object TabSheet4: TTabSheet
      Caption = #28165#29702#24080#30446
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ImageIndex = 3
      ParentFont = False
      object Label17: TLabel
        Left = 212
        Top = 22
        Width = 152
        Height = 19
        Caption = #23486#39302#19994#21153#28165#29702#31995#32479
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label18: TLabel
        Left = 12
        Top = 134
        Width = 60
        Height = 12
        Caption = #25353#22995#21517#28165#29702
      end
      object Label19: TLabel
        Left = 12
        Top = 158
        Width = 60
        Height = 12
        Caption = #25353#25151#21495#28165#29702
      end
      object Label20: TLabel
        Left = 11
        Top = 180
        Width = 60
        Height = 12
        Caption = #25353#26102#26399#28165#29702
      end
      object Bevel1: TBevel
        Left = 6
        Top = 47
        Width = 567
        Height = 3
      end
      object Bevel2: TBevel
        Left = 279
        Top = 50
        Width = 3
        Height = 211
      end
      object Label21: TLabel
        Left = 88
        Top = 76
        Width = 60
        Height = 12
        Caption = #25353#26465#20214#28165#29702
      end
      object Label22: TLabel
        Left = 408
        Top = 80
        Width = 60
        Height = 12
        Caption = #26080#26465#20214#28165#29702
      end
      object Button4: TButton
        Left = 408
        Top = 216
        Width = 75
        Height = 25
        Caption = #30452#25509#28165#31354
        TabOrder = 0
        OnClick = Button4Click
      end
      object Edit4: TEdit
        Left = 88
        Top = 132
        Width = 121
        Height = 20
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 1
        Text = 'Edit4'
        OnClick = Edit4Click
      end
      object Edit5: TEdit
        Left = 88
        Top = 154
        Width = 121
        Height = 20
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 2
        Text = 'Edit5'
        OnClick = Edit5Click
      end
      object Edit6: TEdit
        Left = 88
        Top = 176
        Width = 121
        Height = 20
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 3
        Text = 'Edit6'
        OnClick = Edit6Click
      end
      object Memo3: TMemo
        Left = 296
        Top = 129
        Width = 185
        Height = 68
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        Lines.Strings = (
          'Memo3')
        TabOrder = 4
        Visible = False
      end
      object Button3: TButton
        Left = 104
        Top = 216
        Width = 75
        Height = 25
        Caption = #25191#34892#21024#38500
        TabOrder = 5
        OnClick = Button3Click
      end
    end
  end
  object Panel1: TPanel
    Left = 4
    Top = 0
    Width = 584
    Height = 41
    BevelInner = bvRaised
    Caption = #36890#29992#23486#39302#20303#23487#31649#29702#31995#32479
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -24
    Font.Name = #21326#25991#24425#20113
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 480
    Top = 104
  end
  object Table1: TTable
    Active = True
    OnCalcFields = Table1CalcFields
    AutoRefresh = True
    TableName = 'd:\'#20889#20316#26696#20363'\'#23486#39302#20303#23487#31995#32479'\'#23486#39302#20303#23487#31995#32479'.db'
    Left = 424
    Top = 72
    object Table1BDEDesigner: TFloatField
      FieldName = #25151#38388#21495
    end
    object Table1BDEDesigner2: TStringField
      FieldName = #23458#25143#22995#21517
      Size = 10
    end
    object Table1BDEDesigner3: TStringField
      FieldName = #36523#20221#35777#21495
      Size = 15
    end
    object Table1BDEDesigner4: TStringField
      FieldName = #20837#20303#26102#26399
    end
    object Table1BDEDesigner5: TCurrencyField
      FieldName = #25151#20215
    end
    object Table1BDEDesigner6: TStringField
      FieldName = #20303#23487#29702#30001
    end
    object Table1BDEDesigner7: TFloatField
      FieldName = #20303#23487#22825#25968
    end
    object Table1BDEDesigner8: TStringField
      FieldName = #20540#29677#20154#21592
      Size = 10
    end
    object Table1BDEDesigner9: TFloatField
      FieldName = #30005#35805#21495#30721
    end
    object Table1BDEDesigner10: TCurrencyField
      FieldName = #32467#31639#36153#29992
    end
    object Table1BDEDesigner11: TCurrencyField
      FieldName = #23486#39302#24635#25910#20837
    end
  end
end