clientlist.dfm

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

object FrmClientlist: TFrmClientlist
  Left = 3
  Top = 106
  Width = 788
  Height = 491
  Caption = #23458#25143#34920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 5
    Top = 322
    Width = 60
    Height = 13
    Caption = #32852#31995#20154#20449#24687
  end
  object DBGrid1: TDBGrid
    Left = 6
    Top = 6
    Width = 764
    Height = 306
    DataSource = 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 = 2
    Top = 343
    Width = 770
    Height = 111
    DataSource = DataSource2
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Query1: TQuery
    Active = True
    CachedUpdates = True
    DatabaseName = 'jzx'
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM PUB_Z_CLIENT')
    Left = 413
    Top = 53
    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 = 471
    Top = 49
  end
  object QueryUse: TQuery
    DatabaseName = 'zxjx'
    Left = 535
    Top = 50
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 478
    Top = 257
  end
  object Query2: TQuery
    Active = True
    CachedUpdates = True
    DatabaseName = 'zxjx'
    RequestLive = True
    SQL.Strings = (
      'select * from pub_c_client_person')
    Left = 400
    Top = 257
    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
end