cw_main.dfm

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

object Form1: TForm1
  Left = 210
  Top = 107
  Width = 756
  Height = 567
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #33836#20339#22300#23486#39302#23458#25151#19982#27927#28020#31649#29702#31995#32479#31995#32479#32500#25252
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 160
    Top = 16
    Width = 68
    Height = 16
    Caption = #21021#22987#35774#32622
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 528
    Top = 16
    Width = 68
    Height = 16
    Caption = #36130#21153#23457#26680
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object operator: TLabel
    Left = 352
    Top = 16
    Width = 48
    Height = 12
    Caption = 'operator'
  end
  object Panel1: TPanel
    Left = 8
    Top = 48
    Width = 361
    Height = 425
    BevelOuter = bvLowered
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 8
      Top = 8
      Width = 161
      Height = 401
      Caption = #23458#25151#37096
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      object Button1: TButton
        Left = 16
        Top = 24
        Width = 129
        Height = 25
        Caption = #32463#33829#21830#21697#35774#32622
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 16
        Top = 72
        Width = 129
        Height = 25
        Caption = #21830#21697#20837#24211#31649#29702
        TabOrder = 1
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 16
        Top = 120
        Width = 129
        Height = 25
        Caption = #25151#38388#20449#24687#35774#32622
        TabOrder = 2
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 16
        Top = 168
        Width = 129
        Height = 25
        Caption = #27454#24453#20154#21592#35774#32622
        TabOrder = 3
        OnClick = Button4Click
      end
    end
    object GroupBox2: TGroupBox
      Left = 192
      Top = 8
      Width = 161
      Height = 401
      Caption = #27927#28020#37096
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object Button9: TButton
        Left = 16
        Top = 24
        Width = 129
        Height = 25
        Caption = #32463#33829#21830#21697#35774#32622
        TabOrder = 0
        OnClick = Button9Click
      end
      object Button10: TButton
        Left = 16
        Top = 72
        Width = 129
        Height = 25
        Caption = #21830#21697#20837#24211#31649#29702
        TabOrder = 1
        OnClick = Button10Click
      end
      object Button11: TButton
        Left = 16
        Top = 120
        Width = 129
        Height = 25
        Caption = #25151#38388#20449#24687#35774#32622
        Enabled = False
        TabOrder = 2
      end
      object Button12: TButton
        Left = 16
        Top = 168
        Width = 129
        Height = 25
        Caption = #27454#24453#20154#21592#35774#32622
        Enabled = False
        TabOrder = 3
      end
      object Button13: TButton
        Left = 16
        Top = 216
        Width = 129
        Height = 25
        Caption = #25269#20540#20154#21592#35774#32622
        Enabled = False
        TabOrder = 4
      end
      object Button14: TButton
        Left = 16
        Top = 264
        Width = 129
        Height = 25
        Caption = #21508#31867#21345#29255#35774#32622
        Enabled = False
        TabOrder = 5
      end
      object Button15: TButton
        Left = 16
        Top = 312
        Width = 129
        Height = 25
        Caption = #25805#20316#20154#21592#35774#32622
        TabOrder = 6
        OnClick = Button15Click
      end
      object Button16: TButton
        Left = 16
        Top = 360
        Width = 129
        Height = 25
        Caption = #26381#21153#20154#21592#35774#32622
        TabOrder = 7
        OnClick = Button16Click
      end
    end
  end
  object Panel2: TPanel
    Left = 376
    Top = 48
    Width = 361
    Height = 425
    BevelOuter = bvLowered
    TabOrder = 1
    object GroupBox3: TGroupBox
      Left = 8
      Top = 8
      Width = 161
      Height = 401
      Caption = #23458#25151#37096
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      object Button17: TButton
        Left = 16
        Top = 24
        Width = 129
        Height = 25
        Caption = #21830#21697#20837#24211#25253#34920
        TabOrder = 0
        OnClick = Button17Click
      end
      object Button18: TButton
        Left = 16
        Top = 64
        Width = 129
        Height = 25
        Caption = #21830#21697#24211#23384#30424#28857
        TabOrder = 1
        OnClick = Button18Click
      end
      object Button20: TButton
        Left = 16
        Top = 104
        Width = 129
        Height = 25
        Caption = #21382#21490#24080#21333#26597#35810
        TabOrder = 2
        OnClick = Button20Click
      end
      object Button21: TButton
        Left = 16
        Top = 144
        Width = 129
        Height = 25
        Caption = #20219#24847#26102#38388#27573#25253#34920
        TabOrder = 3
        OnClick = Button21Click
      end
      object Button22: TButton
        Left = 16
        Top = 184
        Width = 129
        Height = 25
        Caption = #24212#25910#32479#35745#25253#34920
        TabOrder = 4
        OnClick = Button22Click
      end
      object Button23: TButton
        Left = 16
        Top = 224
        Width = 129
        Height = 25
        Caption = #24212#20184#32479#35745#25253#34920
        TabOrder = 5
        OnClick = Button23Click
      end
      object Button24: TButton
        Left = 16
        Top = 304
        Width = 129
        Height = 25
        Caption = #25269#20540#23384#27454#30331#35760
        TabOrder = 6
        OnClick = Button24Click
      end
      object Button19: TButton
        Left = 16
        Top = 264
        Width = 129
        Height = 25
        Caption = #27454#24453#25910#27454#25269#28040
        TabOrder = 7
        OnClick = Button19Click
      end
      object Button34: TButton
        Left = 16
        Top = 352
        Width = 129
        Height = 25
        Caption = #36130#21153#25253#34920
        TabOrder = 8
        OnClick = Button34Click
      end
    end
    object GroupBox4: TGroupBox
      Left = 192
      Top = 8
      Width = 161
      Height = 401
      Caption = #27927#28020#37096
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object Button25: TButton
        Left = 16
        Top = 24
        Width = 129
        Height = 25
        Caption = #21830#21697#20837#24211#25253#34920
        TabOrder = 0
        OnClick = Button25Click
      end
      object Button26: TButton
        Left = 16
        Top = 64
        Width = 129
        Height = 25
        Caption = #21830#21697#24211#23384#30424#28857
        TabOrder = 1
        OnClick = Button26Click
      end
      object Button28: TButton
        Left = 16
        Top = 104
        Width = 129
        Height = 25
        Caption = #21382#21490#24080#21333#26597#35810
        TabOrder = 2
        OnClick = Button28Click
      end
      object Button29: TButton
        Left = 16
        Top = 144
        Width = 129
        Height = 25
        Caption = #20219#24847#26102#38388#27573#25253#34920
        TabOrder = 3
        OnClick = Button29Click
      end
      object Button30: TButton
        Left = 16
        Top = 184
        Width = 129
        Height = 25
        Caption = #21830#21697#38144#21806#27719#24635#34920
        TabOrder = 4
        OnClick = Button30Click
      end
      object Button31: TButton
        Left = 16
        Top = 224
        Width = 129
        Height = 25
        Caption = #26381#21153#26680#31639#27719#24635#34920
        TabOrder = 5
        OnClick = Button31Click
      end
      object Button32: TButton
        Left = 16
        Top = 264
        Width = 129
        Height = 25
        Caption = #28382#30041#24080#21333#25253#34920
        TabOrder = 6
        OnClick = Button32Click
      end
      object Button27: TButton
        Left = 16
        Top = 304
        Width = 129
        Height = 25
        Caption = #26356#25913#30331#38470#23494#30721
        TabOrder = 7
        OnClick = Button27Click
      end
      object Button35: TButton
        Left = 16
        Top = 352
        Width = 129
        Height = 25
        Caption = #36130#21153#25253#34920'=='#27927#28020
        Enabled = False
        TabOrder = 8
      end
    end
  end
  object Button5: TButton
    Left = 32
    Top = 272
    Width = 129
    Height = 25
    Caption = #25269#20540#20154#21592#35774#32622
    TabOrder = 2
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 32
    Top = 320
    Width = 129
    Height = 25
    Caption = #21508#31867#21345#29255#35774#32622
    TabOrder = 3
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 32
    Top = 368
    Width = 129
    Height = 25
    Caption = #25805#20316#20154#21592#35774#32622
    TabOrder = 4
    OnClick = Button7Click
  end
  object Button8: TButton
    Left = 32
    Top = 416
    Width = 129
    Height = 25
    Caption = #26381#21153#20154#21592#35774#32622
    TabOrder = 5
    OnClick = Button8Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 515
    Width = 748
    Height = 25
    Panels = <
      item
        Alignment = taCenter
        Text = #29256#26435#25152#26377'      '#36829#32773#24517#31350
        Width = 200
      end
      item
        Alignment = taCenter
        Text = #20351#29992#21333#20301#65306#33836#20339#22300#23486#39302
        Width = 350
      end
      item
        Alignment = taCenter
        Text = #24320#21457#21046#20316#65306#23567#20037#36719#20214#24037#20316#23460
        Width = 50
      end>
    SimplePanel = False
  end
  object Button33: TButton
    Left = 661
    Top = 16
    Width = 75
    Height = 25
    Caption = #20887#20313#28165#38500
    TabOrder = 7
    OnClick = Button33Click
  end
  object Q_selectAcc: TQuery
    DatabaseName = 'hotel'
    Left = 288
  end
  object Q_din: TQuery
    DatabaseName = 'hotel'
    SQL.Strings = (
      'select * from sn_account where accountno=:lsacc')
    Left = 320
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'lsacc'
        ParamType = ptUnknown
      end>
  end
  object Query1: TQuery
    DatabaseName = 'hotel'
    SQL.Strings = (
      'delete from sn_dinlist where accountno=:aaa')
    Left = 384
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'aaa'
        ParamType = ptUnknown
      end>
  end
end