object Form1: TForm1 Left = 192 Top = 121 Width = 696 Height = 480 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object DBGrid1: TDBGrid Left = 16 Top = 72 Width = 657 Height = 353 DataSource = DataSource1 TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object ADOConnection1: TADOConnection ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VS.NET\Thinkyu\D' + 'oc\'#21729#24037#36039#26009#34920'excel_1.xls;Extended Properties="EXCEL 8.0;HDR=0;IMEX=1"' + ';Persist Security Info=False' KeepConnection = False LoginPrompt = False Mode = cmShareDenyNone Provider = 'Microsoft.Jet.OLEDB.4.0' Left = 40 Top = 16 end object ADODataSet1: TADODataSet Connection = ADOConnection1 CursorType = ctStatic CommandText = 'select * from ['#21729#24037#36039#26009#34920'excel$]' Parameters = <> Left = 128 Top = 16 end object DataSource1: TDataSource DataSet = ADODataSet2 Left = 216 Top = 16 end object ADOConnection2: TADOConnection ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VS.NET\Thinkyu\D' + 'oc\'#21729#24037#36039#26009#34920'.mdb;Persist Security Info=False' KeepConnection = False LoginPrompt = False Provider = 'Microsoft.Jet.OLEDB.4.0' Left = 328 Top = 16 end object ADOCommand1: TADOCommand CommandText = 'DELETE FROM ['#21729#24037#36039#26009']' Connection = ADOConnection2 Parameters = <> Left = 416 Top = 16 end object ADODataSet2: TADODataSet Connection = ADOConnection2 CursorType = ctStatic CommandText = 'select * from ['#21729#24037#36039#26009']' Parameters = <> Left = 504 Top = 16 end end