82 lines
2.1 KiB
ObjectPascal
82 lines
2.1 KiB
ObjectPascal
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
|