unit4.~dfm

大家觉得不是垃圾就下了

object Form4: TForm4
  Left = 223
  Top = 124
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #29992#25143#35774#32622
  ClientHeight = 258
  ClientWidth = 498
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 322
    Top = 44
    Width = 60
    Height = 12
    Caption = #21407#22987#23494#30721#65306
  end
  object Label2: TLabel
    Left = 323
    Top = 107
    Width = 48
    Height = 12
    Caption = #26032#23494#30721#65306
  end
  object Label3: TLabel
    Left = 323
    Top = 137
    Width = 72
    Height = 12
    Caption = #20877#36755#20837#19968#27425#65306
  end
  object Label4: TLabel
    Left = 322
    Top = 12
    Width = 48
    Height = 12
    Caption = #29992#25143#21517#65306
  end
  object Label5: TLabel
    Left = 323
    Top = 76
    Width = 60
    Height = 12
    Caption = #31995#32479#26435#38480#65306
  end
  object dbgrid: TDBGrid
    Left = 8
    Top = 8
    Width = 297
    Height = 241
    DataSource = DataModule1.DataSource3
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'user'
        Width = 85
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'password'
        Width = 85
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'part'
        Width = 85
        Visible = True
      end>
  end
  object DBEdit1: TDBEdit
    Left = 400
    Top = 38
    Width = 89
    Height = 20
    DataField = 'password'
    DataSource = DataModule1.DataSource3
    TabOrder = 2
  end
  object Button1: TButton
    Left = 416
    Top = 160
    Width = 75
    Height = 25
    Caption = #20462' '#25913
    TabOrder = 7
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 368
    Top = 224
    Width = 81
    Height = 25
    Caption = #21462' '#28040
    TabOrder = 10
    OnClick = Button2Click
  end
  object Edit1: TEdit
    Left = 400
    Top = 101
    Width = 89
    Height = 20
    PasswordChar = '*'
    TabOrder = 4
  end
  object Edit2: TEdit
    Left = 400
    Top = 132
    Width = 89
    Height = 20
    PasswordChar = '*'
    TabOrder = 5
  end
  object DBEdit2: TDBEdit
    Left = 400
    Top = 7
    Width = 89
    Height = 20
    DataField = 'user'
    DataSource = DataModule1.DataSource3
    TabOrder = 0
  end
  object Button3: TButton
    Left = 320
    Top = 160
    Width = 75
    Height = 25
    Action = Form1.DataSetInsert1
    Caption = #28155#21152#29992#25143
    TabOrder = 6
  end
  object Button4: TButton
    Left = 320
    Top = 192
    Width = 75
    Height = 25
    Action = Form1.DataSetPost1
    Caption = #20445' '#23384
    TabOrder = 8
  end
  object DBComboBox1: TDBComboBox
    Left = 400
    Top = 70
    Width = 89
    Height = 20
    Style = csDropDownList
    DataField = 'part'
    DataSource = DataModule1.DataSource3
    ItemHeight = 12
    Items.Strings = (
      #31995#32479#31649#29702#21592
      #25945#24072
      #20854#23427#29992#25143)
    TabOrder = 3
  end
  object Button5: TButton
    Left = 416
    Top = 192
    Width = 75
    Height = 25
    Caption = #21024#38500#29992#25143
    TabOrder = 9
    OnClick = Button5Click
  end
end