contract_order.dfm

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

          Left = 115
          Top = 425
          Width = 134
          Height = 21
          AutoSize = False
          Color = clInfoBk
          DataField = #20323#37329
          DataSource = DataSource1
          TabOrder = 36
        end
        object DBRadioGroup1: TDBRadioGroup
          Left = 287
          Top = 258
          Width = 106
          Height = 37
          Color = clInfoBk
          Columns = 2
          DataField = #26159#21542#24322#22320#38144#21806
          DataSource = DataSource1
          Items.Strings = (
            #26159
            #21542)
          ParentColor = False
          TabOrder = 26
          Values.Strings = (
            #26159
            #21542)
          OnEnter = DBRadioGroup1Enter
          OnExit = DBRadioGroup1Exit
        end
        object DBComboBox4: TDBComboBox
          Left = 312
          Top = 20
          Width = 189
          Height = 21
          Color = clInfoBk
          DataField = #21150#20107#22788
          DataSource = DataSource1
          ItemHeight = 13
          TabOrder = 1
        end
        object DBComboBox8: TDBComboBox
          Left = 488
          Top = 272
          Width = 233
          Height = 21
          DataField = #38144#21806#22320#21150#20107#22788
          DataSource = DataSource1
          ItemHeight = 13
          TabOrder = 27
        end
        object DBComboBox1: TDBComboBox
          Left = 279
          Top = 243
          Width = 212
          Height = 21
          Style = csDropDownList
          Color = clInfoBk
          DataField = #20132#25552#36135#26041#24335
          DataSource = DataSource1
          ItemHeight = 13
          Items.Strings = (
            #21334#26041#25215#25285
            #20080#26041#22996#25176
            #20080#26041#33258#25552)
          TabOrder = 22
        end
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 782
        Height = 89
        Align = alTop
        BevelOuter = bvNone
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object Label95: TLabel
          Left = 139
          Top = 54
          Width = 484
          Height = 21
          Caption = #21508#21150#20107#22788#21521#38663#38596#26426#26800#65288#23425#27874#65289#26377#38480#20844#21496#35746#36135#36890#30693#21333
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
        end
        object btn_first1: TButton
          Left = 50
          Top = 6
          Width = 73
          Height = 25
          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_first1Click
        end
        object btn_prev1: TButton
          Left = 122
          Top = 6
          Width = 73
          Height = 25
          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_prev1Click
        end
        object btn_next1: TButton
          Left = 194
          Top = 6
          Width = 73
          Height = 25
          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_next1Click
        end
        object btn_last1: TButton
          Left = 266
          Top = 6
          Width = 73
          Height = 25
          Caption = #23614#35760#24405
          Font.Charset = ANSI_CHARSET
          Font.Color = clPurple
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = btn_last1Click
        end
        object btn_addnew1: TButton
          Left = 338
          Top = 6
          Width = 73
          Height = 25
          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_addnew1Click
        end
        object btn_edit1: TButton
          Left = 410
          Top = 6
          Width = 73
          Height = 25
          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_edit1Click
        end
        object btn_save1: TButton
          Left = 482
          Top = 6
          Width = 73
          Height = 25
          Caption = #20445#23384
          Enabled = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clPurple
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 6
          OnClick = btn_save1Click
        end
        object btn_cancel1: TButton
          Left = 554
          Top = 6
          Width = 75
          Height = 25
          Caption = #21462#28040
          Enabled = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clPurple
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 7
          OnClick = btn_cancel1Click
        end
        object Button1: TButton
          Left = 630
          Top = 6
          Width = 75
          Height = 25
          Caption = #36864#20986
          TabOrder = 8
          OnClick = Button1Click
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = #26631#30340#29289#12289#29305#21035#24037#31243#29305#27530#35013#32622
      ImageIndex = 3
      object ScrollBox1: TScrollBox
        Left = 0
        Top = 0
        Width = 792
        Height = 553
        HorzScrollBar.Margin = 6
        HorzScrollBar.Range = 430
        VertScrollBar.Margin = 6
        VertScrollBar.Range = 510
        Align = alClient
        AutoScroll = False
        BorderStyle = bsNone
        TabOrder = 0
        object DBGrid3: TDBGrid
          Left = 10
          Top = 22
          Width = 746
          Height = 99
          Color = clInfoBk
          DataSource = DataSource2
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = #21512#21516#21495
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -13
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 97
              Visible = True
            end
            item
              Expanded = False
              FieldName = #22411#21495
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -13
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 119
              Visible = True
            end
            item
              Expanded = False
              FieldName = #25511#21046#31995#32479
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -13
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 114
              Visible = True
            end
            item
              Expanded = False
              FieldName = #27880#23556#37327
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -13
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = #34746#26438#30452#24452
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -13
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = #21488#25968
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -13
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = #21333#20215
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -13
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = #20215#27454
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -13
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = #28082#21387#27833
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -13
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Visible = True
            end
            item
              Expanded = False
              FieldName = #20132#36135#26399#38480
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -13
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Visible = True
            end>
        end
        object DBEdit71: TDBEdit
          Left = 709
          Top = 647
          Width = 1
          Height = 21
          TabOrder = 1
        end
        object DBGrid4: TDBGrid
          Left = 10
          Top = 149
          Width = 741
          Height = 100
          Color = clInfoBk
          DataSource = DataSource3
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 2
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnColEnter = DBGrid4ColEnter
          OnColExit = DBGrid4ColExit
          Columns = <
            item
              Expanded = False
              FieldName = #21512#21516#21495
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -13
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 105
              Visible = True
            end
            item
              Expanded = False
              FieldName = #21517#31216
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -13
              Title.Font.Name = #23435#20307
              Title.Font.Style = []
              Width = 83
              Visible = True
            end
            item
              Expanded = False
              FieldName = #26426#21495
              Title.Font.Charset = GB2312_CHARSET
              Title.Font.Color = clWindowText
              Title.Font.Height = -13
              Title.Font.Name = #23435#20307