changeroom.~dfm

Raize控件包的安装路径为D:Program Files(一定要安装到正确位置,否则代码不能运行),配置好C++bulider的数据库环境. 本代码为课程设计的报告,有相当多不完善地方,适合初学C

object Form9: TForm9
  Left = 210
  Top = 217
  Width = 735
  Height = 443
  Caption = '                                       '#23458#20154#25442#25151
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 713
    Height = 393
    Color = clSkyBlue
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 376
      Width = 476
      Height = 14
      Caption = #27880#24847#65306#25442#25151#25805#20316#20165#38480#20110#35843#25442#21516#31867#22411#30340#25151#38388#65292#22914#35201#25442#19981#21516#31867#22411#25151#38388#65292#35831#20808#36864#25151#65281
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 8
      Width = 84
      Height = 12
      Caption = #35831#36873#25321#25442#25151#23458#20154
    end
    object Label3: TLabel
      Left = 536
      Top = 8
      Width = 120
      Height = 12
      Caption = #35831#36873#25321#21516#31867#22411#31354#38386#25151#38388
    end
    object Label4: TLabel
      Left = 240
      Top = 56
      Width = 48
      Height = 12
      Caption = #23458#20154#32534#21495
    end
    object Label5: TLabel
      Left = 240
      Top = 104
      Width = 48
      Height = 12
      Caption = #23458#20154#22995#21517
    end
    object Label6: TLabel
      Left = 240
      Top = 160
      Width = 36
      Height = 12
      Caption = #25151#38388#21495
    end
    object Label7: TLabel
      Left = 240
      Top = 216
      Width = 48
      Height = 12
      Caption = #25151#38388#31867#22411
    end
    object Label8: TLabel
      Left = 240
      Top = 264
      Width = 72
      Height = 12
      Caption = #35843#25442#21040#25151#38388#21495
    end
    object Label9: TLabel
      Left = 240
      Top = 16
      Width = 84
      Height = 12
      Caption = #35831#36755#20837#23458#20154#22995#21517
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 24
      Width = 217
      Height = 329
      DataSource = DataModule2.stayinDataSource
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'CustomerId'
          Title.Alignment = taCenter
          Title.Caption = #23458#20154#32534#21495
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'CustomerName'
          Title.Alignment = taCenter
          Title.Caption = #23458#20154#22995#21517
          Width = 50
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'RoomNo'
          Title.Alignment = taCenter
          Title.Caption = #25151#38388#21495
          Visible = True
        end>
    end
    object DBGrid2: TDBGrid
      Left = 536
      Top = 24
      Width = 153
      Height = 329
      DataSource = DataModule2.changeroomDataSource
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGrid2CellClick
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'RoomNo'
          Title.Alignment = taCenter
          Title.Caption = #25151#38388#21495
          Width = 55
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'RoomType'
          Title.Alignment = taCenter
          Title.Caption = #25151#38388#31867#22411
          Visible = True
        end>
    end
    object DBEdit1: TDBEdit
      Left = 328
      Top = 48
      Width = 65
      Height = 20
      DataField = 'CustomerId'
      DataSource = DataModule2.stayinDataSource
      TabOrder = 2
    end
    object DBEdit2: TDBEdit
      Left = 328
      Top = 96
      Width = 73
      Height = 20
      DataField = 'CustomerName'
      DataSource = DataModule2.stayinDataSource
      TabOrder = 3
    end
    object DBEdit3: TDBEdit
      Left = 328
      Top = 152
      Width = 49
      Height = 20
      DataField = 'RoomNo'
      DataSource = DataModule2.stayinDataSource
      TabOrder = 4
    end
    object DBEdit4: TDBEdit
      Left = 328
      Top = 208
      Width = 73
      Height = 20
      DataField = 'RoomType'
      DataSource = DataModule2.stayinDataSource
      TabOrder = 5
    end
    object RzButton1: TRzButton
      Left = 264
      Top = 320
      Width = 89
      Caption = #30830#23450
      Color = clSkyBlue
      TabOrder = 6
      OnClick = RzButton1Click
    end
    object RzBitBtn1: TRzBitBtn
      Left = 400
      Top = 320
      Width = 89
      Caption = #20851#38381
      Color = clSkyBlue
      TabOrder = 7
      OnClick = RzBitBtn1Click
    end
    object Edit1: TEdit
      Left = 328
      Top = 256
      Width = 41
      Height = 20
      TabOrder = 8
    end
    object Edit2: TEdit
      Left = 328
      Top = 8
      Width = 57
      Height = 20
      TabOrder = 9
    end
    object Button1: TButton
      Left = 392
      Top = 8
      Width = 41
      Height = 17
      Caption = #30830#23450
      TabOrder = 10
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 440
      Top = 8
      Width = 41
      Height = 17
      Caption = #20840#37096
      TabOrder = 11
      OnClick = Button2Click
    end
  end
end