contract_cjd_ys.dfm

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

            Height = 20
            Caption = #36864#20986
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 8
            OnClick = btn_closeClick
          end
        end
        object DBGrid1: TDBGrid
          Left = 20
          Top = 167
          Width = 606
          Height = 138
          Color = clInfoBk
          DataSource = DataSource2
          ReadOnly = True
          TabOrder = 5
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = #21512#21516#21495
              Width = 83
              Visible = True
            end
            item
              Expanded = False
              FieldName = #21517#31216
              Width = 85
              Visible = True
            end
            item
              Expanded = False
              FieldName = #22411#21495
              Width = 102
              Visible = True
            end
            item
              Expanded = False
              FieldName = #21333#20215
              Visible = True
            end
            item
              Expanded = False
              FieldName = #21488#25968
              Width = 45
              Visible = True
            end
            item
              Expanded = False
              FieldName = #20215#27454
              Visible = True
            end
            item
              Expanded = False
              FieldName = #25511#21046#31995#32479
              Width = 84
              Visible = True
            end
            item
              Expanded = False
              FieldName = #27880#23556#37327
              Width = 61
              Visible = True
            end
            item
              Expanded = False
              FieldName = #34746#26438#30452#24452
              Width = 70
              Visible = True
            end
            item
              Expanded = False
              FieldName = #28082#21387#27833
              Width = 82
              Visible = True
            end
            item
              Expanded = False
              FieldName = #20132#36135#26399#38480
              Visible = True
            end>
        end
        object DBEdit2: TDBEdit
          Left = 501
          Top = 7
          Width = 125
          Height = 21
          Color = clInfoBk
          DataField = #22635#21333#26085#26399
          DataSource = DataSource1
          TabOrder = 1
        end
        object DBEdit4: TDBEdit
          Left = 89
          Top = 61
          Width = 538
          Height = 21
          Color = clInfoBk
          DataField = #36865#21040#23458#25143
          DataSource = DataSource1
          TabOrder = 3
        end
        object DBEdit5: TDBEdit
          Left = 89
          Top = 88
          Width = 538
          Height = 21
          Color = clInfoBk
          DataField = #39044#23450#20132#26399
          DataSource = DataSource1
          TabOrder = 4
        end
        object DBComboBox1: TDBComboBox
          Left = 288
          Top = 7
          Width = 145
          Height = 21
          Color = clInfoBk
          DataField = #21512#21516#21495
          DataSource = DataSource1
          ItemHeight = 13
          TabOrder = 0
          OnEnter = DBComboBox1Enter
          OnExit = DBComboBox1Exit
        end
        object DBEdit3: TDBEdit
          Left = 89
          Top = 33
          Width = 537
          Height = 21
          Color = clInfoBk
          DataField = #20844#21496#21517#31216
          DataSource = DataSource1
          TabOrder = 2
        end
        object DBEdit6: TDBEdit
          Left = 89
          Top = 109
          Width = 538
          Height = 21
          Color = clInfoBk
          DataField = #35746#21333#21495#30721
          DataSource = DataSource1
          TabOrder = 6
        end
        object GroupBox7: TGroupBox
          Left = 19
          Top = 314
          Width = 607
          Height = 13
          Caption = #38468#20214#65306
          TabOrder = 7
        end
        object DBGrid3: TDBGrid
          Left = 20
          Top = 329
          Width = 606
          Height = 129
          Color = clInfoBk
          DataSource = DataSource4
          ReadOnly = True
          TabOrder = 8
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = #21512#21516#21495
              Visible = True
            end
            item
              Expanded = False
              FieldName = #21517#31216
              Width = 151
              Visible = True
            end
            item
              Expanded = False
              FieldName = #25152#23646#26426#22411
              Width = 113
              Visible = True
            end
            item
              Expanded = False
              FieldName = #25968#37327
              Width = 79
              Visible = True
            end
            item
              Expanded = False
              FieldName = #26631#20934#21333#20215
              Width = 73
              Visible = True
            end
            item
              Expanded = False
              FieldName = #21512#35745
              Visible = True
            end
            item
              Expanded = False
              FieldName = #26085#26399
              Width = 105
              Visible = True
            end
            item
              Expanded = False
              FieldName = #26426#21495
              Width = 72
              Visible = True
            end>
        end
        object GroupBox2: TGroupBox
          Left = 17
          Top = 468
          Width = 722
          Height = 2
          TabOrder = 9
        end
        object GroupBox6: TGroupBox
          Left = 18
          Top = 147
          Width = 608
          Height = 14
          Caption = #26631#30340#29289
          TabOrder = 10
        end
        object DBEdit7: TDBEdit
          Left = 152
          Top = 481
          Width = 143
          Height = 21
          Color = clInfoBk
          DataField = #38663#38596#23425#27874#36130#21153#20027#31649
          DataSource = DataSource1
          TabOrder = 12
        end
        object DBEdit8: TDBEdit
          Left = 478
          Top = 484
          Width = 148
          Height = 21
          Color = clInfoBk
          DataField = #38663#38596#23425#27874#38144#21806#24635#32463#29702
          DataSource = DataSource1
          TabOrder = 13
        end
        object DBEdit9: TDBEdit
          Left = 153
          Top = 507
          Width = 142
          Height = 21
          Color = clInfoBk
          DataField = #20122#22609#36130#21153#20027#31649
          DataSource = DataSource1
          TabOrder = 14
        end
        object DBEdit10: TDBEdit
          Left = 478
          Top = 510
          Width = 149
          Height = 21
          Color = clInfoBk
          DataField = #20122#22609#34892#25919#37096#32463#29702
          DataSource = DataSource1
          TabOrder = 15
        end
        object DBEdit11: TDBEdit
          Left = 153
          Top = 535
          Width = 142
          Height = 21
          Color = clInfoBk
          DataField = #20122#22609#20013#22269#20107#19994#37096#24635#32463#29702
          DataSource = DataSource1
          TabOrder = 16
        end
        object DBEdit12: TDBEdit
          Left = 478
          Top = 537
          Width = 149
          Height = 21
          Color = clInfoBk
          DataField = #24635#20844#21496#30830#35748#31614#21517
          DataSource = DataSource1
          TabOrder = 17
        end
        object DBEdit1: TDBEdit
          Left = 89
          Top = 7
          Width = 144
          Height = 21
          Color = clInfoBk
          DataField = #21046#20196#21495
          DataSource = DataSource1
          TabOrder = 18
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26597#30475#25152#26377#20986#26426#21333#20449#24687
      ImageIndex = 1
      object DBGrid4: TDBGrid
        Left = 0
        Top = 0
        Width = 644
        Height = 386
        Align = alClient
        Color = clInfoBk
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
      object Panel4: TPanel
        Left = 0
        Top = 386
        Width = 644
        Height = 57
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object Button8: TButton
          Left = 181
          Top = 7
          Width = 75
          Height = 25
          Caption = #26597#35810
          TabOrder = 0
          OnClick = Button8Click
        end
        object Button10: TButton
          Left = 368
          Top = 7
          Width = 75
          Height = 25
          Caption = #25171#21360
          TabOrder = 1
        end
        object Button9: TButton
          Left = 272
          Top = 7
          Width = 75
          Height = 25
          Caption = #25152#26377#35760#24405
          TabOrder = 2
          OnClick = Button9Click
        end
      end
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 0
    Width = 669
    Height = 4
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 48
    Top = 8
  end
  object Query2: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx'
    RequestLive = True
    SQL.Strings = (
      'select * from pub_z_contract_machine '
      'where '#21512#21516#21495' =:hth')
    Left = 110
    Top = 55
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'hth'
        ParamType = ptUnknown
      end>
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 109
    Top = 14
  end
  object Query4: TQuery
    DatabaseName = 'zxjx'
    SQL.Strings = (
      'select * from  pub_z_contract_specialties'
      'where '#21512#21516#21495' =:hth')
    Left = 262
    Top = 44
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'hth'
        ParamType = ptUnknown
      end>
  end
  object DataSource4: TDataSource
    DataSet = Query4
    Left = 256
    Top = 8
  end
  object Query_contract_client: TQuery
    CachedUpdates = True
    DatabaseName = 'zxjx'
    Left = 352
    Top = 66
  end
  object Query11111: TQuery
    Active = True
    CachedUpdates = True
    AfterScroll = Query11111AfterScroll
    AutoRefresh = True
    DatabaseName = 'zxjx'
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM pub_z_contract_machine_requisition_ys')
    Left = 184
    Top = 80
  end
  object Query1: TADOQuery
    Active = True
    Connection = dm_wxp.ADOConnection1
    CursorType = ctStatic
    AfterScroll = Query1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM pub_z_contract_machine_requisition_ys')
    Left = 48
    Top = 56
  end
end