checkin.dfm

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

object Form7: TForm7
  Left = 301
  Top = 317
  Width = 811
  Height = 480
  Caption = '                                   '#23458#20154#20837#20303
  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 = 785
    Height = 433
    Color = clSkyBlue
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 60
      Height = 12
      Caption = #35831#36873#25321#23458#20154
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 544
      Top = 65
      Width = 48
      Height = 12
      Caption = #39044#20303#22825#25968
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 368
      Top = 66
      Width = 48
      Height = 12
      Caption = #25151#38388#31867#22411
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 240
      Top = 67
      Width = 36
      Height = 12
      Caption = #25151#38388#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 544
      Top = 28
      Width = 48
      Height = 12
      Caption = #36523#20221#35777#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 368
      Top = 29
      Width = 48
      Height = 12
      Caption = #23458#20154#22995#21517
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 240
      Top = 30
      Width = 48
      Height = 12
      Caption = #23458#20154#32534#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 240
      Top = 104
      Width = 48
      Height = 12
      Caption = #20837#20303#26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 544
      Top = 144
      Width = 60
      Height = 14
      Caption = #25910#21462#25276#37329
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 696
      Top = 144
      Width = 15
      Height = 14
      Caption = #20803
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label11: TLabel
      Left = 248
      Top = 168
      Width = 48
      Height = 12
      Caption = #31354#38386#25151#38388
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 312
      Top = 144
      Width = 60
      Height = 14
      Caption = #24212#25910#25276#37329
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label13: TLabel
      Left = 464
      Top = 144
      Width = 15
      Height = 14
      Caption = #20803
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 16
      Top = 40
      Width = 217
      Height = 361
      DataSource = DataModule2.IncuDataSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'CustomerId'
          Title.Alignment = taCenter
          Title.Caption = #23458#20154#32534#21495
          Width = 55
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'CustomerName'
          Title.Alignment = taCenter
          Title.Caption = #23458#20154#22995#21517
          Width = 60
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'CustomerState'
          Title.Alignment = taCenter
          Title.Caption = #23458#20154#29366#24577
          Visible = True
        end>
    end
    object DBEdit1: TDBEdit
      Left = 288
      Top = 24
      Width = 57
      Height = 20
      DataField = 'CustomerId'
      DataSource = DataModule2.IncuDataSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 424
      Top = 24
      Width = 73
      Height = 20
      DataField = 'CustomerName'
      DataSource = DataModule2.IncuDataSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object DBEdit3: TDBEdit
      Left = 600
      Top = 24
      Width = 113
      Height = 20
      DataField = 'IDCard'
      DataSource = DataModule2.IncuDataSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object Edit1: TEdit
      Left = 600
      Top = 64
      Width = 41
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object DateTimePicker1: TDateTimePicker
      Left = 288
      Top = 96
      Width = 89
      Height = 20
      CalAlignment = dtaLeft
      Date = 38644
      Time = 38644
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 5
    end
    object Edit2: TEdit
      Left = 608
      Top = 136
      Width = 81
      Height = 24
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
    end
    object DBGrid2: TDBGrid
      Left = 248
      Top = 184
      Width = 505
      Height = 129
      DataSource = DataModule2.InroDataSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid2CellClick
    end
    object RzButton1: TRzButton
      Left = 352
      Top = 344
      Caption = #30830#23450
      Color = clSkyBlue
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = RzButton1Click
    end
    object RzButton2: TRzButton
      Left = 496
      Top = 344
      Caption = #37325#32622
      Color = clSkyBlue
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      OnClick = RzButton2Click
    end
    object RzButton3: TRzButton
      Left = 640
      Top = 344
      Caption = #20851#38381
      Color = clSkyBlue
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      OnClick = RzButton3Click
    end
    object Edit3: TEdit
      Left = 288
      Top = 64
      Width = 49
      Height = 21
      ReadOnly = True
      TabOrder = 11
    end
    object Edit4: TEdit
      Left = 424
      Top = 64
      Width = 73
      Height = 21
      ReadOnly = True
      TabOrder = 12
    end
    object Edit5: TEdit
      Left = 376
      Top = 136
      Width = 81
      Height = 24
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 13
    end
    object BitBtn1: TBitBtn
      Left = 656
      Top = 64
      Width = 33
      Height = 17
      Caption = #30830#23450
      TabOrder = 14
      OnClick = BitBtn1Click
    end
    object Edit6: TEdit
      Left = 80
      Top = 16
      Width = 65
      Height = 21
      Hint = #35831#22312#27492#36755#20837#23458#20154#22995#21517#24182#30830#23450
      ParentShowHint = False
      ShowHint = True
      TabOrder = 15
    end
    object Button1: TButton
      Left = 152
      Top = 16
      Width = 33
      Height = 17
      Caption = #30830#23450
      TabOrder = 16
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 192
      Top = 16
      Width = 33
      Height = 17
      Caption = #20840#37096
      TabOrder = 17
      OnClick = Button2Click
    end
  end
end