cw_zd.dfm

结于初学者来说这对数据库是一个很好的例子

object Form24: TForm24
  Left = 252
  Top = 142
  Width = 696
  Height = 480
  BorderIcons = [biSystemMenu]
  Caption = #21382#21490#24080#21333#26597#35810'=='#23458#25151
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 272
    Top = 8
    Width = 120
    Height = 19
    AutoSize = False
    Caption = #21382#21490#24080#21333#26597#35810
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 32
    Width = 193
    Height = 57
    Caption = #25353#24080#21333#21495#26597#35810
    TabOrder = 0
    object Label2: TLabel
      Left = 8
      Top = 32
      Width = 48
      Height = 13
      AutoSize = False
      Caption = #24080#21333#21495#65306
    end
    object AccountNo: TEdit
      Left = 56
      Top = 24
      Width = 65
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
    end
    object Button1: TButton
      Left = 128
      Top = 24
      Width = 57
      Height = 25
      Caption = #26597' '#35810
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 208
    Top = 32
    Width = 201
    Height = 57
    Caption = #25353#25151#38388#26597#35810
    TabOrder = 1
    object Label3: TLabel
      Left = 8
      Top = 32
      Width = 48
      Height = 13
      AutoSize = False
      Caption = #25151#38388#21495#65306
    end
    object RoomName: TComboBox
      Left = 56
      Top = 24
      Width = 65
      Height = 20
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 12
      TabOrder = 0
    end
    object Button2: TButton
      Left = 128
      Top = 24
      Width = 59
      Height = 25
      Caption = #26597' '#35810
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 96
    Width = 673
    Height = 353
    Caption = #26597#35810#32467#26524
    TabOrder = 2
    object DB_zd: TDBGrid
      Left = 8
      Top = 16
      Width = 657
      Height = 297
      DataSource = DS_zdcx
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DB_zdDblClick
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'NowAccountNo'
          Title.Alignment = taCenter
          Title.Caption = #24080#21333#21495
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'roomname'
          Title.Alignment = taCenter
          Title.Caption = #25151#38388#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Name'
          Title.Alignment = taCenter
          Title.Caption = #23458#20154#22995#21517
          Width = 128
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'sex'
          Title.Alignment = taCenter
          Title.Caption = #24615#21035
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BeginTime'
          Title.Alignment = taCenter
          Title.Caption = #20837#20303#26085#26399
          Width = 125
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'EndTime'
          Title.Alignment = taCenter
          Title.Caption = #32467#24080#26085#26399
          Width = 126
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'djr'
          Title.Alignment = taCenter
          Title.Caption = #30331#35760#20154
          Width = 71
          Visible = True
        end>
    end
    object Button4: TButton
      Left = 222
      Top = 320
      Width = 75
      Height = 25
      Caption = #26174#31034#20840#37096
      TabOrder = 1
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 358
      Top = 320
      Width = 75
      Height = 25
      Caption = #36820'  '#22238
      TabOrder = 2
      OnClick = Button5Click
    end
  end
  object GroupBox4: TGroupBox
    Left = 416
    Top = 32
    Width = 177
    Height = 57
    Caption = #25353#23458#20154#22995#21517#26597#35810
    TabOrder = 3
    object Label4: TLabel
      Left = 8
      Top = 32
      Width = 36
      Height = 13
      AutoSize = False
      Caption = #22995#21517#65306
    end
    object Button3: TButton
      Left = 112
      Top = 24
      Width = 59
      Height = 25
      Caption = #26597' '#35810
      TabOrder = 0
      OnClick = Button3Click
    end
    object krxm: TEdit
      Left = 40
      Top = 24
      Width = 65
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 1
    end
  end
  object T_RoomList: TTable
    Active = True
    DatabaseName = 'Hotel'
    TableName = 'RoomInfo'
    Left = 136
  end
  object Q_zdcx: TQuery
    Active = True
    DatabaseName = 'Hotel'
    SQL.Strings = (
      'select * from H_RoomIn order by NowAccountNo')
    Left = 64
  end
  object DS_zdcx: TDataSource
    DataSet = Q_zdcx
    Left = 96
  end
  object Q_zdxxcx: TQuery
    DatabaseName = 'Hotel'
    Left = 472
    Top = 8
  end
end