unit1.dfm

三层数据库应用程序的例子,包括应用服务器和前台程序.

object Form1: TForm1
  Left = 248
  Top = 207
  Width = 489
  Height = 546
  Caption = 'BCOM'#21069#21488#31243#24207
  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 Label1: TLabel
    Left = 48
    Top = 48
    Width = 145
    Height = 13
    AutoSize = False
    Caption = '1.ClientDataSet1:Table'
  end
  object Label2: TLabel
    Left = 38
    Top = 260
    Width = 193
    Height = 13
    AutoSize = False
    Caption = '2.ClientDataSet2:Query'
  end
  object Label3: TLabel
    Left = 32
    Top = 16
    Width = 209
    Height = 20
    AutoSize = False
    Caption = #21069#21488#31243#24207'('#19977#23618#32467#26500')'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 40
    Top = 384
    Width = 105
    Height = 13
    AutoSize = False
    Caption = #36755#20837#26597#35810#21629#20196':'
  end
  object DBGrid1: TDBGrid
    Left = 40
    Top = 112
    Width = 417
    Height = 102
    DataSource = DataModule2.DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGrid2: TDBGrid
    Left = 38
    Top = 276
    Width = 419
    Height = 100
    DataSource = DataModule2.DataSource2
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object ControlBar1: TControlBar
    Left = 0
    Top = 64
    Width = 481
    Height = 31
    TabOrder = 2
    object Button1: TButton
      Left = 11
      Top = 2
      Width = 54
      Height = 22
      Action = DataSetInsert1
      Caption = #25554#20837
      TabOrder = 0
    end
    object Button2: TButton
      Left = 78
      Top = 2
      Width = 49
      Height = 22
      Action = DataSetEdit1
      Caption = #20462#25913
      TabOrder = 1
    end
    object Button3: TButton
      Left = 140
      Top = 2
      Width = 53
      Height = 22
      Action = DataSetDelete1
      Caption = #21024#38500
      TabOrder = 2
    end
    object Button4: TButton
      Left = 206
      Top = 2
      Width = 51
      Height = 22
      Action = DataSetCancel1
      Caption = #21462#28040
      TabOrder = 3
    end
    object Button5: TButton
      Left = 270
      Top = 2
      Width = 51
      Height = 22
      Action = Update
      TabOrder = 4
    end
    object Button6: TButton
      Left = 334
      Top = 2
      Width = 51
      Height = 22
      Action = DataSetRefresh1
      Caption = #37325#26032#35835#21462
      TabOrder = 5
    end
    object Button7: TButton
      Left = 398
      Top = 2
      Width = 59
      Height = 22
      Action = CloseAP
      Caption = #36864#20986#31243#24207
      TabOrder = 6
    end
  end
  object Button8: TButton
    Left = 48
    Top = 448
    Width = 75
    Height = 25
    Caption = 'Button8'
    TabOrder = 3
    OnClick = Button8Click
  end
  object Memo1: TMemo
    Left = 40
    Top = 400
    Width = 305
    Height = 41
    TabOrder = 4
  end
  object Button9: TButton
    Left = 48
    Top = 224
    Width = 75
    Height = 25
    Caption = 'Button9'
    TabOrder = 5
    OnClick = Button9Click
  end
  object ComboBox1: TComboBox
    Left = 352
    Top = 400
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 6
    Items.Strings = (
      #30007
      #22899)
  end
  object Button10: TButton
    Left = 352
    Top = 456
    Width = 75
    Height = 25
    Caption = 'Button10'
    TabOrder = 7
    OnClick = Button10Click
  end
  object ActionList1: TActionList
    Left = 408
    Top = 32
    object DataSetInsert1: TDataSetInsert
      Category = 'Dataset'
      Caption = 'DataSetInsert1'
      DataSource = DataModule2.DataSource1
    end
    object DataSetDelete1: TDataSetDelete
      Category = 'Dataset'
      Caption = 'DataSetDelete1'
      DataSource = DataModule2.DataSource1
    end
    object DataSetEdit1: TDataSetEdit
      Category = 'Dataset'
      Caption = 'DataSetEdit1'
      DataSource = DataModule2.DataSource1
    end
    object DataSetCancel1: TDataSetCancel
      Category = 'Dataset'
      Caption = 'DataSetCancel1'
      DataSource = DataModule2.DataSource1
    end
    object DataSetRefresh1: TDataSetRefresh
      Category = 'Dataset'
      Caption = 'DataSetRefresh1'
      DataSource = DataModule2.DataSource1
    end
    object ClientDataSetUndo1: TClientDataSetUndo
      Category = 'Dataset'
      Caption = 'Undo'
      ImageIndex = 0
      DataSource = DataModule2.DataSource1
      FollowChange = False
    end
    object DataSetPost1: TDataSetPost
      Category = 'Dataset'
      Caption = 'DataSetPost1'
      DataSource = DataModule2.DataSource1
    end
    object CloseAP: TAction
      Caption = 'CloseAP'
      OnExecute = CloseAPExecute
    end
    object Update: TAction
      Caption = 'Update'
      OnExecute = UpdateExecute
    end
  end
end