client.dfm

主要是介绍DELPHI三层应用以及分布式数据库的应用

object Form_client: TForm_client
  Left = 7
  Top = 213
  Width = 792
  Height = 496
  Caption = #23458#25143#35760#24405
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object btn_first: TButton
    Left = 28
    Top = 424
    Width = 73
    Height = 41
    Caption = #39318#35760#24405
    Font.Charset = ANSI_CHARSET
    Font.Color = clPurple
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = btn_firstClick
  end
  object btn_prev: TButton
    Left = 101
    Top = 424
    Width = 73
    Height = 41
    Caption = #21069#19968#26465
    Font.Charset = ANSI_CHARSET
    Font.Color = clPurple
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = btn_prevClick
  end
  object btn_next: TButton
    Left = 173
    Top = 424
    Width = 73
    Height = 41
    Caption = #21518#19968#26465
    Font.Charset = ANSI_CHARSET
    Font.Color = clPurple
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = btn_nextClick
  end
  object btn_last: TButton
    Left = 245
    Top = 424
    Width = 73
    Height = 41
    Caption = #23614#35760#24405
    Font.Charset = ANSI_CHARSET
    Font.Color = clPurple
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object btn_addnew: TButton
    Left = 317
    Top = 424
    Width = 73
    Height = 41
    Caption = #26032#22686
    Font.Charset = ANSI_CHARSET
    Font.Color = clPurple
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = btn_addnewClick
  end
  object btn_edit: TButton
    Left = 389
    Top = 424
    Width = 73
    Height = 41
    Caption = #32534#36753
    Font.Charset = ANSI_CHARSET
    Font.Color = clPurple
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = btn_editClick
  end
  object btn_save: TButton
    Left = 461
    Top = 424
    Width = 73
    Height = 41
    Caption = #20445#23384
    Font.Charset = ANSI_CHARSET
    Font.Color = clPurple
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = btn_saveClick
  end
  object btn_cancel: TButton
    Left = 533
    Top = 424
    Width = 75
    Height = 41
    Caption = #21462#28040
    Font.Charset = ANSI_CHARSET
    Font.Color = clPurple
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 7
  end
  object Button1: TButton
    Left = 625
    Top = 424
    Width = 75
    Height = 40
    Caption = #36864#20986
    TabOrder = 8
    OnClick = Button1Click
  end
  object DBMemo1: TDBMemo
    Left = 71
    Top = 357
    Width = 676
    Height = 25
    DataField = #22791#27880
    TabOrder = 9
  end
  object Panel1: TPanel
    Left = 0
    Top = 7
    Width = 777
    Height = 391
    BevelOuter = bvLowered
    TabOrder = 10
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #23458#25143#21517#31216
    end
    object Label2: TLabel
      Left = 16
      Top = 48
      Width = 73
      Height = 13
      AutoSize = False
      Caption = #23458#25143#22320#22336
    end
    object Label3: TLabel
      Left = 400
      Top = 19
      Width = 49
      Height = 13
      AutoSize = False
      Caption = #23458#25143#21495
    end
    object Label4: TLabel
      Left = 16
      Top = 152
      Width = 49
      Height = 13
      AutoSize = False
      Caption = #36127#36131#20154
    end
    object Label5: TLabel
      Left = 400
      Top = 152
      Width = 49
      Height = 13
      AutoSize = False
      Caption = #30005#25253
    end
    object Label6: TLabel
      Left = 16
      Top = 184
      Width = 24
      Height = 13
      AutoSize = False
      Caption = #20256#30495
    end
    object Label7: TLabel
      Left = 400
      Top = 184
      Width = 33
      Height = 13
      AutoSize = False
      Caption = #37038#32534
    end
    object Label8: TLabel
      Left = 16
      Top = 88
      Width = 73
      Height = 13
      AutoSize = False
      Caption = #25152#23646#34892#19994
    end
    object Label9: TLabel
      Left = 400
      Top = 88
      Width = 81
      Height = 13
      AutoSize = False
      Caption = #25152#23646#21150#20107#22788
    end
    object Label10: TLabel
      Left = 16
      Top = 120
      Width = 89
      Height = 13
      AutoSize = False
      Caption = #21021#27425#32852#31995#26102#38388
    end
    object Label11: TLabel
      Left = 400
      Top = 120
      Width = 81
      Height = 13
      AutoSize = False
      Caption = #30456#20851#19994#21153#21592
    end
    object Label12: TLabel
      Left = 20
      Top = 357
      Width = 24
      Height = 13
      Caption = #22791#27880
      FocusControl = DBGrid1
    end
    object GroupBox1: TGroupBox
      Left = 16
      Top = 207
      Width = 730
      Height = 129
      TabOrder = 10
      object Button2: TButton
        Left = 676
        Top = 23
        Width = 41
        Height = 25
        Caption = #22686#21152
        TabOrder = 0
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 675
        Top = 62
        Width = 42
        Height = 25
        Caption = #21024#38500
        TabOrder = 1
        OnClick = Button3Click
      end
    end
    object DBEdit1: TDBEdit
      Left = 488
      Top = 15
      Width = 257
      Height = 21
      DataField = #23458#25143#21495
      DataSource = DataSource1
      TabOrder = 0
      OnExit = DBEdit1Exit
    end
    object DBEdit2: TDBEdit
      Left = 112
      Top = 47
      Width = 633
      Height = 21
      DataField = #23458#25143#22320#22336
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 112
      Top = 150
      Width = 257
      Height = 21
      DataField = #36127#36131#20154
      DataSource = DataSource1
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 488
      Top = 149
      Width = 257
      Height = 21
      DataField = #30005#25253
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 112
      Top = 180
      Width = 257
      Height = 21
      DataField = #20256#30495
      DataSource = DataSource1
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 488
      Top = 180
      Width = 257
      Height = 21
      DataField = #37038#32534
      DataSource = DataSource1
      TabOrder = 5
    end
    object DBEdit7: TDBEdit
      Left = 112
      Top = 83
      Width = 257
      Height = 21
      DataField = #25152#23646#34892#19994
      DataSource = DataSource1
      TabOrder = 6
    end
    object DBEdit9: TDBEdit
      Left = 112
      Top = 113
      Width = 257
      Height = 21
      DataField = #21021#27425#32852#31995#26102#38388
      DataSource = DataSource1
      TabOrder = 7
    end
    object DBEdit10: TDBEdit
      Left = 488
      Top = 112
      Width = 257
      Height = 21
      DataField = #30456#20851#19994#21153#21592
      DataSource = DataSource1
      TabOrder = 8
    end
    object DBGrid1: TDBGrid
      Left = 25
      Top = 228
      Width = 659
      Height = 97
      DataSource = DataSource2
      TabOrder = 9
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #24207#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23458#25143#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #32852#31995#20154
          Visible = True
        end
        item
          Expanded = False
          FieldName = #32852#31995#20154#32844#21153
          Visible = True
        end
        item
          Expanded = False
          FieldName = #30005#35805#21495#30721
          Visible = True
        end
        item
          Expanded = False
          FieldName = #25163#26426#21495#30721
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'EMAIL'#22320#22336
          Visible = True
        end>
    end
    object DBComboBox2: TDBComboBox
      Left = 488
      Top = 82
      Width = 257
      Height = 21
      DataField = #25152#23646#21150#20107#22788
      DataSource = DataSource1
      ItemHeight = 13
      TabOrder = 11
    end
    object DBEdit8: TDBEdit
      Left = 113
      Top = 16
      Width = 263
      Height = 21
      DataField = #23458#25143#21517#31216
      DataSource = DataSource1
      TabOrder = 12
      OnKeyDown = DBEdit8KeyDown
    end
  end
  object Query1: TQuery
    CachedUpdates = True
    BeforeScroll = Query1BeforeScroll
    AfterScroll = Query1AfterScroll
    DatabaseName = 'zxjx'
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM PUB_Z_CLIENT')
    Left = 381
    Top = 50
    object Query1BDEDesigner: TIntegerField
      FieldName = #24207#21495
      Origin = 'JZX.PUB_Z_CLIENT.'#24207#21495
    end
    object Query1BDEDesigner2: TStringField
      FieldName = #23458#25143#21495
      Origin = 'JZX.PUB_Z_CLIENT.'#23458#25143#21495
    end
    object Query1BDEDesigner3: TStringField
      FieldName = #23458#25143#21517#31216
      Origin = 'JZX.PUB_Z_CLIENT.'#23458#25143#21517#31216
      Size = 40
    end
    object Query1BDEDesigner4: TStringField
      FieldName = #30465
      Origin = 'JZX.PUB_Z_CLIENT.'#30465
    end
    object Query1BDEDesigner5: TStringField
      FieldName = #24066
      Origin = 'JZX.PUB_Z_CLIENT.'#24066
    end
    object Query1BDEDesigner6: TStringField
      FieldName = #21439
      Origin = 'JZX.PUB_Z_CLIENT.'#21439
    end
    object Query1BDEDesigner7: TStringField
      FieldName = #23458#25143#22320#22336
      Origin = 'JZX.PUB_Z_CLIENT.'#23458#25143#22320#22336
      Size = 40
    end
    object Query1BDEDesigner8: TStringField
      FieldName = #36127#36131#20154
      Origin = 'JZX.PUB_Z_CLIENT.'#36127#36131#20154
    end
    object Query1BDEDesigner9: TStringField
      FieldName = #30005#35805#21495#30721
      Origin = 'JZX.PUB_Z_CLIENT.'#30005#35805#21495#30721
    end
    object Query1BDEDesigner10: TStringField
      FieldName = #30005#25253
      Origin = 'JZX.PUB_Z_CLIENT.'#30005#25253
    end
    object Query1BDEDesigner11: TStringField
      FieldName = #20256#30495
      Origin = 'JZX.PUB_Z_CLIENT.'#20256#30495
    end
    object Query1BDEDesigner12: TStringField
      FieldName = #37038#32534
      Origin = 'JZX.PUB_Z_CLIENT.'#37038#32534
    end
    object Query1BDEDesigner13: TStringField
      FieldName = #25152#23646#34892#19994
      Origin = 'JZX.PUB_Z_CLIENT.'#25152#23646#34892#19994
    end
    object Query1BDEDesigner14: TStringField
      FieldName = #25152#23646#21150#20107#22788
      Origin = 'JZX.PUB_Z_CLIENT.'#25152#23646#21150#20107#22788
    end
    object Query1BDEDesigner15: TDateTimeField
      FieldName = #21021#27425#32852#31995#26102#38388
      Origin = 'JZX.PUB_Z_CLIENT.'#21021#27425#32852#31995#26102#38388
    end
    object Query1BDEDesigner16: TStringField
      FieldName = #30456#20851#19994#21153#21592
      Origin = 'JZX.PUB_Z_CLIENT.'#30456#20851#19994#21153#21592
    end
    object Query1BDEDesigner17: TMemoField
      FieldName = #22791#27880
      Origin = 'JZX.PUB_Z_CLIENT.'#22791#27880
      BlobType = ftMemo
      Size = 1
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 442
    Top = 53
  end
  object QueryUse: TQuery
    DatabaseName = 'zxjx'
    Left = 615
    Top = 50
  end
  object Query2: TQuery
    CachedUpdates = True
    DatabaseName = 'zxjx'
    RequestLive = True
    SQL.Strings = (
      'select * from pub_c_client_person where '#23458#25143#21495'=:khh')
    Left = 395
    Top = 257
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'khh'
        ParamType = ptUnknown
      end>
    object Query2BDEDesigner: TIntegerField
      FieldName = #24207#21495
      Origin = 'ZXJX.pub_c_client_person.'#24207#21495
    end
    object Query2BDEDesigner2: TStringField
      FieldName = #23458#25143#21495
      Origin = 'ZXJX.pub_c_client_person.'#23458#25143#21495
    end
    object Query2BDEDesigner3: TStringField
      FieldName = #32852#31995#20154
      Origin = 'ZXJX.pub_c_client_person.'#32852#31995#20154
    end
    object Query2BDEDesigner4: TStringField
      FieldName = #32852#31995#20154#32844#21153
      Origin = 'ZXJX.pub_c_client_person.'#32852#31995#20154#32844#21153
    end
    object Query2BDEDesigner5: TStringField
      FieldName = #30005#35805#21495#30721
      Origin = 'ZXJX.pub_c_client_person.'#30005#35805#21495#30721
    end
    object Query2BDEDesigner6: TStringField
      FieldName = #25163#26426#21495#30721
      Origin = 'ZXJX.pub_c_client_person.'#25163#26426#21495#30721
    end
    object Query2EMAIL: TStringField
      FieldName = 'EMAIL'#22320#22336
      Origin = 'ZXJX.pub_c_client_person.EMAIL'#22320#22336
    end
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 478
    Top = 257
  end
end