contract_cjd.dfm

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

            OnClick = btn_cancel1Click
          end
          object Button1: TButton
            Left = 506
            Top = 9
            Width = 60
            Height = 20
            Caption = #36864#20986
            Font.Charset = ANSI_CHARSET
            Font.Color = clPurple
            Font.Height = -13
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 8
            OnClick = Button1Click
          end
        end
      end
      object Panel3: TPanel
        Left = 0
        Top = 509
        Width = 666
        Height = 40
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 2
        Visible = False
        object btn_first: TButton
          Left = 46
          Top = 6
          Width = 60
          Height = 20
          Caption = #39318#35760#24405
          Font.Charset = ANSI_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = btn_firstClick
        end
        object btn_prev: TButton
          Left = 105
          Top = 6
          Width = 59
          Height = 20
          Caption = #21069#19968#26465
          Font.Charset = ANSI_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = btn_prevClick
        end
        object btn_next: TButton
          Left = 164
          Top = 6
          Width = 59
          Height = 20
          Caption = #21518#19968#26465
          Font.Charset = ANSI_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = btn_nextClick
        end
        object btn_last: TButton
          Left = 223
          Top = 6
          Width = 59
          Height = 20
          Caption = #23614#35760#24405
          Font.Charset = ANSI_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = btn_lastClick
        end
        object btn_addnew: TButton
          Left = 282
          Top = 6
          Width = 59
          Height = 20
          Caption = #26032#22686
          Font.Charset = ANSI_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnClick = btn_addnewClick
        end
        object btn_edit: TButton
          Left = 341
          Top = 6
          Width = 60
          Height = 20
          Caption = #32534#36753
          Font.Charset = ANSI_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          OnClick = btn_editClick
        end
        object btn_save: TButton
          Left = 400
          Top = 6
          Width = 59
          Height = 20
          Caption = #20445#23384
          Enabled = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 6
          OnClick = btn_saveClick
        end
        object btn_cancel: TButton
          Left = 459
          Top = 6
          Width = 59
          Height = 20
          Caption = #21462#28040
          Enabled = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 7
          OnClick = btn_cancelClick
        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 = 378
        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 = []
        Columns = <
          item
            Expanded = False
            FieldName = #21512#21516#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = #32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20379#36135#20844#21496
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20379#36135#32852#31995#20154
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20379#36135#32852#31995#30005#35805
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20379#36135#32852#31995#20256#30495
            Visible = True
          end
          item
            Expanded = False
            FieldName = #21046#21333#20154
            Visible = True
          end
          item
            Expanded = False
            FieldName = #21046#21333#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = #36130#21153#23457#26680
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25209#20934
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20844#21496#32852#31995#20154
            Visible = True
          end
          item
            Expanded = False
            FieldName = #35201#27714#20986#26426#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = #36865#36135#22320#28857
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20132#25552#36135#26041#24335
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20132#25552#36135#36153#29992#25215#25285#26041
            Visible = True
          end
          item
            Expanded = False
            FieldName = #32852#31995#20154#30340#30005#35805
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20844#21496#20256#30495
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20844#21496#22320#22336
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20844#21496#30005#35805
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20844#21496#24320#25143#34892
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20844#21496#24080#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = #31246#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = #24405#20837#26102#38388
            Visible = True
          end
          item
            Expanded = False
            FieldName = #35828#26126
            Visible = True
          end
          item
            Expanded = False
            FieldName = #21150#20107#22788
            Visible = True
          end>
      end
      object Panel4: TPanel
        Left = 0
        Top = 378
        Width = 644
        Height = 65
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object Button8: TButton
          Left = 125
          Top = 8
          Width = 75
          Height = 25
          Caption = #26597#35810
          TabOrder = 0
          OnClick = Button8Click
        end
        object Button10: TButton
          Left = 320
          Top = 8
          Width = 75
          Height = 25
          Caption = #25171#21360
          TabOrder = 1
        end
        object Button9: TButton
          Left = 216
          Top = 8
          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 = 674
    Height = 4
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 216
    Top = 88
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 109
    Top = 14
  end
  object DataSource3: TDataSource
    DataSet = Query3
    Left = 197
    Top = 17
  end
  object DataSource4: TDataSource
    DataSet = Query4
    Left = 272
    Top = 24
  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 Query3: TQuery
    DatabaseName = 'zxjx'
    SQL.Strings = (
      'select * from  pub_z_contract_project '
      'where '#21512#21516#21495' =:hth')
    Left = 200
    Top = 60
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'hth'
        ParamType = ptUnknown
      end>
  end
  object Query4: TQuery
    DatabaseName = 'zxjx'
    SQL.Strings = (
      'select * from  pub_z_contract_specialties '
      'where '#21512#21516#21495' =:hth')
    Left = 270
    Top = 60
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'hth'
        ParamType = ptUnknown
      end>
  end
  object Query_contract_client: TQuery
    CachedUpdates = True
    DatabaseName = 'zxjx'
    Left = 448
    Top = 10
  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')
    Left = 128
    Top = 160
  end
  object Query1: TADOQuery
    Connection = dm_wxp.ADOConnection1
    CursorType = ctStatic
    AfterScroll = Query1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM pub_z_contract_machine_requisition')
    Left = 200
    Top = 128
  end
end