cstm.dfm

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

              Visible = True
            end
            item
              Expanded = False
              FieldName = #30456#20851#19994#21153#21592
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24066
              Visible = True
            end
            item
              Expanded = False
              FieldName = #21439
              Visible = True
            end
            item
              Expanded = False
              FieldName = #21021#27425#32852#31995#26102#38388
              Visible = True
            end
            item
              Expanded = False
              FieldName = #26411#27425#32852#31995#26102#38388
              Visible = True
            end
            item
              Expanded = False
              FieldName = #20027#31649
              Visible = True
            end
            item
              Expanded = False
              FieldName = #23457#26680
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24405#20837
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24405#20837#26085#26399
              Visible = True
            end>
        end
      end
    end
  end
  object qcst1: TQuery
    CachedUpdates = True
    AfterScroll = qcstAfterScroll
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    RequestLive = True
    SQL.Strings = (
      'select * from pub_z_client')
    UpdateObject = UpdateSQL2
    Left = 502
    object qcst1BDEDesigner: TAutoIncField
      FieldName = #24207#21495
      Origin = 'ZXJX_JXW.pub_z_client.'#24207#21495
    end
    object qcst1BDEDesigner2: TStringField
      FieldName = #23458#25143#21495
      Origin = 'ZXJX_JXW.pub_z_client.'#23458#25143#21495
      FixedChar = True
    end
    object qcst1BDEDesigner3: TStringField
      FieldName = #23458#25143#21517#31216
      Origin = 'ZXJX_JXW.pub_z_client.'#23458#25143#21517#31216
      FixedChar = True
      Size = 40
    end
    object qcst1BDEDesigner4: TStringField
      FieldName = #30465
      Origin = 'ZXJX_JXW.pub_z_client.'#30465
      FixedChar = True
    end
    object qcst1BDEDesigner5: TStringField
      FieldName = #24066
      Origin = 'ZXJX_JXW.pub_z_client.'#24066
      FixedChar = True
    end
    object qcst1BDEDesigner6: TStringField
      FieldName = #21439
      Origin = 'ZXJX_JXW.pub_z_client.'#21439
      FixedChar = True
    end
    object qcst1BDEDesigner7: TStringField
      FieldName = #23458#25143#22320#22336
      Origin = 'ZXJX_JXW.pub_z_client.'#23458#25143#22320#22336
      FixedChar = True
      Size = 100
    end
    object qcst1BDEDesigner8: TStringField
      FieldName = #30005#35805#21495#30721
      Origin = 'ZXJX_JXW.pub_z_client.'#30005#35805#21495#30721
      FixedChar = True
    end
    object qcst1email: TStringField
      FieldName = 'email'
      Origin = 'ZXJX_JXW.pub_z_client.email'
      FixedChar = True
    end
    object qcst1BDEDesigner9: TStringField
      FieldName = #20256#30495
      Origin = 'ZXJX_JXW.pub_z_client.'#20256#30495
      FixedChar = True
    end
    object qcst1BDEDesigner10: TStringField
      FieldName = #37038#32534
      Origin = 'ZXJX_JXW.pub_z_client.'#37038#32534
      FixedChar = True
    end
    object qcst1BDEDesigner11: TStringField
      FieldName = #36127#36131#20154
      Origin = 'ZXJX_JXW.pub_z_client.'#36127#36131#20154
      FixedChar = True
    end
    object qcst1BDEDesigner12: TStringField
      FieldName = #36127#36131#20154#32844#21153
      Origin = 'ZXJX_JXW.pub_z_client.'#36127#36131#20154#32844#21153
      FixedChar = True
    end
    object qcst1BDEDesigner13: TStringField
      FieldName = #25152#23646#34892#19994
      Origin = 'ZXJX_JXW.pub_z_client.'#25152#23646#34892#19994
      FixedChar = True
    end
    object qcst1BDEDesigner15: TStringField
      FieldName = #30456#20851#19994#21153#21592
      Origin = 'ZXJX_JXW.pub_z_client.'#30456#20851#19994#21153#21592
      FixedChar = True
    end
    object qcst1BDEDesigner16: TStringField
      DisplayWidth = 4
      FieldName = #26159#21542#26032#23458#25143
      Origin = 'ZXJX_JXW.pub_z_client.'#26159#21542#26032#23458#25143
      FixedChar = True
      Size = 4
    end
    object qcst1BDEDesigner17: TStringField
      FieldName = #38656#27714#31561#32423
      Origin = 'ZXJX_JXW.pub_z_client.'#38656#27714#31561#32423
      FixedChar = True
      Size = 10
    end
    object qcst1BDEDesigner18: TStringField
      FieldName = #31246#21153#35777#21495
      Origin = 'ZXJX_JXW.pub_z_client.'#31246#21153#35777#21495
      FixedChar = True
      Size = 40
    end
    object qcst1BDEDesigner19: TStringField
      FieldName = #24320#25143#38134#34892#24080#21495
      Origin = 'ZXJX_JXW.pub_z_client.'#24320#25143#38134#34892#24080#21495
      FixedChar = True
      Size = 100
    end
    object qcst1BDEDesigner20: TDateTimeField
      FieldName = #21021#27425#32852#31995#26102#38388
      Origin = 'ZXJX_JXW.pub_z_client.'#21021#27425#32852#31995#26102#38388
    end
    object qcst1BDEDesigner21: TDateTimeField
      FieldName = #26411#27425#32852#31995#26102#38388
      Origin = 'ZXJX_JXW.pub_z_client.'#26411#27425#32852#31995#26102#38388
    end
    object qcst1BDEDesigner1: TMemoField
      FieldName = #35843#26597#39033'1'
      Origin = 'ZXJX_JXW.pub_z_client.'#35843#26597#39033'1'
      BlobType = ftMemo
    end
    object qcst1BDEDesigner22: TMemoField
      FieldName = #35843#26597#39033'2'
      Origin = 'ZXJX_JXW.pub_z_client.'#35843#26597#39033'2'
      BlobType = ftMemo
    end
    object qcst1BDEDesigner32: TMemoField
      FieldName = #35843#26597#39033'3'
      Origin = 'ZXJX_JXW.pub_z_client.'#35843#26597#39033'3'
      BlobType = ftMemo
    end
    object qcst1BDEDesigner42: TMemoField
      FieldName = #35843#26597#39033'4'
      Origin = 'ZXJX_JXW.pub_z_client.'#35843#26597#39033'4'
      BlobType = ftMemo
    end
    object qcst1BDEDesigner52: TMemoField
      FieldName = #35843#26597#39033'5'
      Origin = 'ZXJX_JXW.pub_z_client.'#35843#26597#39033'5'
      BlobType = ftMemo
    end
    object qcst1BDEDesigner62: TMemoField
      FieldName = #35843#26597#39033'6'
      Origin = 'ZXJX_JXW.pub_z_client.'#35843#26597#39033'6'
      BlobType = ftMemo
    end
    object qcst1BDEDesigner23: TMemoField
      FieldName = #22791#27880
      Origin = 'ZXJX_JXW.pub_z_client.'#22791#27880
      BlobType = ftMemo
    end
    object qcst1BDEDesigner24: TStringField
      FieldName = #20027#31649
      Origin = 'ZXJX_JXW.pub_z_client.'#20027#31649
      FixedChar = True
    end
    object qcst1BDEDesigner25: TStringField
      FieldName = #23457#26680
      Origin = 'ZXJX_JXW.pub_z_client.'#23457#26680
      FixedChar = True
    end
    object qcst1BDEDesigner26: TStringField
      FieldName = #24405#20837
      Origin = 'ZXJX_JXW.pub_z_client.'#24405#20837
      FixedChar = True
    end
    object qcst1BDEDesigner27: TDateTimeField
      FieldName = #24405#20837#26085#26399
      Origin = 'ZXJX_JXW.pub_z_client.'#24405#20837#26085#26399
    end
    object qcst1BDEDesigner28: TDateTimeField
      FieldName = #19978#25253#26102#38388
      Origin = 'ZXJX_JXW.pub_z_client.'#19978#25253#26102#38388
    end
    object qcst1BDEDesigner14: TStringField
      FieldName = #21150#20107#22788
      Origin = 'ZXJX_JXW.pub_z_client.'#21150#20107#22788
      FixedChar = True
    end
    object qcst1BDEDesigner29: TStringField
      FieldName = #24320#25143#38134#34892
      Origin = 'ZXJX_JXW.pub_z_client.'#24320#25143#38134#34892
      FixedChar = True
      Size = 100
    end
  end
  object dscst: TDataSource
    DataSet = qcst
    Left = 462
  end
  object qperson: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    RequestLive = True
    SQL.Strings = (
      'select * from pub_c_client_person '
      'where '#23458#25143#21495'=:khh')
    UpdateObject = UpdateSQL1
    Left = 397
    Top = 2
    ParamData = <
      item
        DataType = ftString
        Name = 'khh'
        ParamType = ptUnknown
      end>
    object qpersonBDEDesigner: TAutoIncField
      FieldName = #24207#21495
      Origin = 'ZXJX_JXW.pub_c_client_person.'#24207#21495
    end
    object qpersonBDEDesigner2: TStringField
      FieldName = #23458#25143#21495
      Origin = 'ZXJX_JXW.pub_c_client_person.'#23458#25143#21495
      FixedChar = True
    end
    object qpersonBDEDesigner3: TStringField
      FieldName = #32852#31995#20154
      Origin = 'ZXJX_JXW.pub_c_client_person.'#32852#31995#20154
      FixedChar = True
    end
    object qpersonBDEDesigner4: TStringField
      FieldName = #32852#31995#20154#32844#21153
      Origin = 'ZXJX_JXW.pub_c_client_person.'#32852#31995#20154#32844#21153
      FixedChar = True
    end
    object qpersonBDEDesigner5: TStringField
      FieldName = #30005#35805#21495#30721
      Origin = 'ZXJX_JXW.pub_c_client_person.'#30005#35805#21495#30721
      FixedChar = True
    end
    object qpersonBDEDesigner6: TStringField
      FieldName = #25163#26426#21495#30721
      Origin = 'ZXJX_JXW.pub_c_client_person.'#25163#26426#21495#30721
      FixedChar = True
    end
    object qpersonBDEDesigner7: TStringField
      FieldName = #26377#20851#19994#21153#21592
      Origin = 'ZXJX_JXW.pub_c_client_person.'#26377#20851#19994#21153#21592
      FixedChar = True
    end
    object qpersonEMAIL: TStringField
      FieldName = 'EMAIL'#22320#22336
      Origin = 'ZXJX_JXW.pub_c_client_person.EMAIL'#22320#22336
      FixedChar = True
    end
    object qpersonBDEDesigner8: TDateTimeField
      FieldName = #19978#25253#26102#38388
      Origin = 'ZXJX_JXW.pub_c_client_person.'#19978#25253#26102#38388
    end
    object qpersonBDEDesigner10: TStringField
      FieldName = #21150#20107#22788
      Origin = 'ZXJX_JXW.pub_c_client_person.'#21150#20107#22788
      FixedChar = True
    end
    object qpersonBDEDesigner11: TDateTimeField
      FieldName = #24405#20837#26085#26399
      Origin = 'ZXJX_JXW.pub_c_client_person.'#24405#20837#26085#26399
    end
  end
  object dsperson: TDataSource
    DataSet = qperson
    Left = 349
    Top = 65534
  end
  object Queryuse: TQuery
    DatabaseName = 'zxjx_jxw'
    Left = 602
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update pub_c_client_person'
      'set'
      '  '#23458#25143#21495' = :'#23458#25143#21495','
      '  '#32852#31995#20154' = :'#32852#31995#20154','
      '  '#32852#31995#20154#32844#21153' = :'#32852#31995#20154#32844#21153','
      '  '#30005#35805#21495#30721' = :'#30005#35805#21495#30721','
      '  '#25163#26426#21495#30721' = :'#25163#26426#21495#30721','
      '  '#26377#20851#19994#21153#21592' = :'#26377#20851#19994#21153#21592','
      '  EMAIL'#22320#22336' = :EMAIL'#22320#22336','
      '  '#24405#20837#26085#26399' = :'#24405#20837#26085#26399','
      '  '#19978#25253#26102#38388' = :'#19978#25253#26102#38388','
      '  '#21150#20107#22788' = :'#21150#20107#22788
      'where'
      '  '#23458#25143#21495' = :OLD_'#23458#25143#21495)
    InsertSQL.Strings = (
      'insert into pub_c_client_person'
      '  ('#23458#25143#21495', '#32852#31995#20154', '#32852#31995#20154#32844#21153', '#30005#35805#21495#30721', '#25163#26426#21495#30721', '#26377#20851#19994#21153#21592', EMAIL'#22320#22336', '
      '   '#24405#20837#26085#26399', '#19978#25253#26102#38388', '#21150#20107#22788')'
      'values'
      '  (:'#23458#25143#21495', :'#32852#31995#20154', :'#32852#31995#20154#32844#21153', :'#30005#35805#21495#30721', :'#25163#26426#21495#30721', :'#26377#20851#19994#21153#21592', :EMAIL'#22320#22336', '
      '   :'#24405#20837#26085#26399', :'#19978#25253#26102#38388', :'#21150#20107#22788')')
    DeleteSQL.Strings = (
      'delete from pub_c_client_person'
      'where'
      '  '#23458#25143#21495' = :OLD_'#23458#25143#21495)
    Left = 563
    Top = 1
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update pub_z_client'
      'set'
      '  '#23458#25143#21495' = :'#23458#25143#21495','
      '  '#23458#25143#21517#31216' = :'#23458#25143#21517#31216','
      '  '#30465' = :'#30465','
      '  '#24066' = :'#24066','
      '  '#21439' = :'#21439','
      '  '#23458#25143#22320#22336' = :'#23458#25143#22320#22336','
      '  '#30005#35805#21495#30721' = :'#30005#35805#21495#30721','
      '  email = :email,'
      '  '#20256#30495' = :'#20256#30495','
      '  '#37038#32534' = :'#37038#32534','
      '  '#36127#36131#20154' = :'#36127#36131#20154','
      '  '#36127#36131#20154#32844#21153' = :'#36127#36131#20154#32844#21153','
      '  '#25152#23646#34892#19994' = :'#25152#23646#34892#19994','
      '  '#21150#20107#22788' = :'#21150#20107#22788','
      '  '#30456#20851#19994#21153#21592' = :'#30456#20851#19994#21153#21592','
      '  '#26159#21542#26032#23458#25143' = :'#26159#21542#26032#23458#25143','
      '  '#38656#27714#31561#32423' = :'#38656#27714#31561#32423','
      '  '#31246#21153#35777#21495' = :'#31246#21153#35777#21495','
      '  '#24320#25143#38134#34892#24080#21495' = :'#24320#25143#38134#34892#24080#21495','
      '  '#21021#27425#32852#31995#26102#38388' = :'#21021#27425#32852#31995#26102#38388','
      '  '#26411#27425#32852#31995#26102#38388' = :'#26411#27425#32852#31995#26102#38388','
      '  '#35843#26597#39033'1 = :'#35843#26597#39033'1,'
      '  '#35843#26597#39033'2 = :'#35843#26597#39033'2,'
      '  '#35843#26597#39033'3 = :'#35843#26597#39033'3,'
      '  '#35843#26597#39033'4 = :'#35843#26597#39033'4,'
      '  '#35843#26597#39033'5 = :'#35843#26597#39033'5,'
      '  '#35843#26597#39033'6 = :'#35843#26597#39033'6,'
      '  '#22791#27880' = :'#22791#27880','
      '  '#20027#31649' = :'#20027#31649','
      '  '#23457#26680' = :'#23457#26680','
      '  '#24405#20837' = :'#24405#20837','
      '  '#24405#20837#26085#26399' = :'#24405#20837#26085#26399','
      '  '#19978#25253#26102#38388' = :'#19978#25253#26102#38388
      'where'
      '  '#23458#25143#21495' = :OLD_'#23458#25143#21495)
    InsertSQL.Strings = (
      'insert into pub_z_client'
      '  ('#23458#25143#21495', '#23458#25143#21517#31216', '#30465', '#24066', '#21439', '#23458#25143#22320#22336', '#30005#35805#21495#30721', email, '#20256#30495', '#37038#32534', '
      '   '#36127#36131#20154', '#36127#36131#20154#32844#21153', '#25152#23646#34892#19994', '#21150#20107#22788', '#30456#20851#19994#21153#21592', '#26159#21542#26032#23458#25143', '#38656#27714#31561#32423', '
      '   '#31246#21153#35777#21495', '#24320#25143#38134#34892#24080#21495', '#21021#27425#32852#31995#26102#38388', '#26411#27425#32852#31995#26102#38388', '#35843#26597#39033'1, '#35843#26597#39033'2, '
      '   '#35843#26597#39033'3, '#35843#26597#39033'4, '#35843#26597#39033'5, '#35843#26597#39033'6, '#22791#27880', '#20027#31649', '#23457#26680', '#24405#20837', '#24405#20837#26085#26399', '
      '   '#19978#25253#26102#38388')'
      'values'
      '  (:'#23458#25143#21495', :'#23458#25143#21517#31216', :'#30465', :'#24066', :'#21439', :'#23458#25143#22320#22336', :'#30005#35805#21495#30721', :email, :'#20256#30495', '
      '   :'#37038#32534', :'#36127#36131#20154', :'#36127#36131#20154#32844#21153', :'#25152#23646#34892#19994', :'#21150#20107#22788', :'#30456#20851#19994#21153#21592', :'#26159#21542#26032#23458#25143', '
      '   :'#38656#27714#31561#32423', :'#31246#21153#35777#21495', :'#24320#25143#38134#34892#24080#21495', :'#21021#27425#32852#31995#26102#38388', :'#26411#27425#32852#31995#26102#38388', :'#35843#26597#39033'1, '
      '   :'#35843#26597#39033'2, :'#35843#26597#39033'3, :'#35843#26597#39033'4, :'#35843#26597#39033'5, :'#35843#26597#39033'6, :'#22791#27880', :'#20027#31649', :'#23457#26680', '
      '   :'#24405#20837', :'#24405#20837#26085#26399', :'#19978#25253#26102#38388')')
    DeleteSQL.Strings = (
      'delete from pub_z_client'
      'where'
      '  '#23458#25143#21495' = :OLD_'#23458#25143#21495)
    Left = 681
    Top = 6
  end
  object qcst: TADOQuery
    Connection = dm_wxp.ADOConnection1
    CursorType = ctStatic
    AfterOpen = qcstAfterOpen
    AfterScroll = qcstAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from pub_z_client')
    Left = 645
    Top = 65535
  end
  object ADOQuery1: TADOQuery
    Connection = dm_wxp.ADOConnection1
    Parameters = <>
    Left = 312
    Top = 8
  end
end