Примеры баз данных ( 2 семестр ) / лаба 4 ( не до конца ) / Unit2

unit Unit2;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Vcl.Grids,
Vcl.DBGrids, Data.Win.ADODB, vcl.oleauto;

type
TForm2 = class(TForm)
ADOQProba: TADOQuery;
DSProba: TDataSource;
DBGProba: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
OD: TOpenDialog;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
f : TextFile ;
s : String ;
s1,s2 : String;
I : Integer ;
begin
od.filter:='текстовые файлы|*.txt|все файлы|*.*';
if od.execute then
begin
assignfile(f,od.FileName);
{$I-}
reset(f);
{$I+}
if ioresult=0 then
begin
while not eof(f) do
begin
readln(f,s);
for i := 1 to length(s) do
begin
if s[i] = '=' then
break;
end;
s1:=copy(s,1,I,-1);
s2:=copy(s,I+1,length(s)-I);
with adoqproba do
begin
with sql do
begin
clear;
add('INSERT INTO Data(poletext,poleint)VALUES('+ quotedstr(s1), + ','+ s2 + ')');
end;
execsql;
with sql do
begin
clear;
add('SELECT * FROM Data');
end;
active:= true;
end;
end;
end;
end;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
excel : variant;
worksheet : olevariant;
s1,s2 : string;
J,D : integer;
row,col : integer;
range : variant;
begin
od.Filter:= 'документ Exel|*.xls;*.xlsx| все файлы';
if od.Execute then
begin
excel:= createoleobject('excel.application');
excel.workbooks.open(od.FileName);
for j := 1 to excel.activeworkbook.sheet.count do
begin
excel.activeworkbook.sheets.item[j].activate;
worksheet:=excel.activateworkbook.activesheet;
row := worksheet.usedrange.rows.count;
col := worksheet.usedrange.columns.count;
range:=worksheet.usedrange.value;
end;
end;
end;

procedure TForm2.FormActivate(Sender: TObject);
var
s,sdb : string;
begin
s:=extractfilepath(application.ExeName);
sdb := 'provider=microsoft.jet.4.0;datasource='+s+'database.mdb;persist info=false';
with adoqproba do
begin
active:=false;
connectionstring:=sdb;
active:=true;
with sql do
begin
with sql do
begin
clear;
add('SELECT * FROM Data');
end;
active:= True;
end;
end;
end;

end.