unit1.dfm

本人现在上传的资料是关于SQL SEVER数据库管理系统存取文件的。

object Form1: TForm1
  Left = 179
  Top = 121
  Width = 638
  Height = 361
  Caption = 'SQL Server '#25968#25454#24211#23384#21462#25991#20214#23454#20363#65281
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object edtFileName: TEdit
    Left = 18
    Top = 242
    Width = 329
    Height = 20
    TabOrder = 0
  end
  object btnBrowse: TButton
    Left = 326
    Top = 244
    Width = 19
    Height = 17
    Caption = '..'
    TabOrder = 1
    OnClick = btnBrowseClick
  end
  object DBGrid1: TDBGrid
    Left = 18
    Top = 20
    Width = 327
    Height = 179
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object btnAdd: TButton
    Left = 18
    Top = 266
    Width = 99
    Height = 25
    Caption = #28155#21152#35760#24405
    TabOrder = 3
    OnClick = btnAddClick
  end
  object btnView: TButton
    Left = 18
    Top = 202
    Width = 99
    Height = 25
    Caption = #26597#30475#35760#24405
    TabOrder = 4
    OnClick = btnViewClick
  end
  object Panel1: TPanel
    Left = 358
    Top = 20
    Width = 257
    Height = 167
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 5
    object Label1: TLabel
      Left = 34
      Top = 16
      Width = 42
      Height = 12
      Caption = #26381#21153#22120':'
    end
    object Label2: TLabel
      Left = 34
      Top = 38
      Width = 42
      Height = 12
      Caption = #29992#25143#21517':'
    end
    object Label3: TLabel
      Left = 46
      Top = 60
      Width = 30
      Height = 12
      Caption = #23494#30721':'
    end
    object Label4: TLabel
      Left = 34
      Top = 82
      Width = 42
      Height = 12
      Caption = #25968#25454#24211':'
    end
    object edtServer: TEdit
      Left = 80
      Top = 12
      Width = 121
      Height = 20
      TabOrder = 0
      Text = 'localhost'
    end
    object edtUser: TEdit
      Left = 80
      Top = 34
      Width = 121
      Height = 20
      TabOrder = 1
      Text = 'sa'
    end
    object edtPwd: TEdit
      Left = 80
      Top = 56
      Width = 121
      Height = 20
      PasswordChar = '*'
      TabOrder = 2
    end
    object edtDB: TEdit
      Left = 80
      Top = 78
      Width = 121
      Height = 20
      TabOrder = 3
      Text = 'myTestDB'
    end
    object Button1: TButton
      Left = 34
      Top = 102
      Width = 165
      Height = 25
      Caption = #36830#25509#25968#25454#24211
      TabOrder = 4
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 34
      Top = 131
      Width = 77
      Height = 25
      Caption = #21019#24314#25968#25454#34920
      TabOrder = 5
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 114
      Top = 131
      Width = 85
      Height = 25
      Caption = #25171#24320#25968#25454#34920
      TabOrder = 6
      OnClick = Button3Click
    end
  end
  object GroupBox1: TGroupBox
    Left = 358
    Top = 193
    Width = 257
    Height = 106
    Caption = #35828#26126
    TabOrder = 6
    object Label7: TLabel
      Left = 12
      Top = 83
      Width = 126
      Height = 12
      Caption = 'E-Mail: [e-mail]'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 12
      Top = 62
      Width = 198
      Height = 12
      Caption = 'Design By Rainey kwbin@Delphi'#30418#23376
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 11
      Top = 20
      Width = 186
      Height = 12
      Caption = 'SQL Server '#25968#25454#24211#23384#21462#25991#20214#23454#20363#65281
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 11
      Top = 42
      Width = 36
      Height = 12
      Caption = #27880#24847#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 51
      Top = 42
      Width = 192
      Height = 12
      Caption = #35831#20808#36830#25509#25968#25454#24211#65281#28982#21518#25171#24320#25968#25454#24211#34920
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 308
    Width = 630
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=10141983;Persist Security Info=True' +
      ';User ID=sa;Initial Catalog=myTestDB;Data Source=rainey'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    AfterConnect = ADOConnection1AfterConnect
    Left = 140
    Top = 84
  end
  object OpenDialog1: TOpenDialog
    Left = 244
    Top = 86
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 208
    Top = 84
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterOpen = ADOTable1AfterOpen
    Left = 174
    Top = 84
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 174
    Top = 50
  end
end