Добавил:
masterdos
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, Menus,
jpeg;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button2: TButton;
DataSource1: TDataSource;
Table1: TTable;
DataSource2: TDataSource;
Query1: TQuery;
Image1: TImage;
sklad: TDatabase;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
adres :string;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Caption:='Найменування товару з мінімальною партією менше 50';
Form2.Height:=330;
form2.Button1.Visible:=false;
form2.Button2.Visible:=false;
Form2.width:=295;
Form2.DBGrid1.Height:=294;
Form2.DBGrid1.Width:=385;
Form2.Width:=395;
if not (fileexists('zapros.db')) then begin
query1.active:=false;
query1.sql.Clear;
query1.sql.Add('CREATE TABLE "zapros.db"');
query1.sql.add('(imya char(40), partiya float)');
query1.execSQL;
end
else begin
query1.active:=false;
query1.sql.clear;
query1.sql.add('DELETE FROM "zapros.db"');
query1.execSQL;
end;
query1.close;
query1.sql.clear;
query1.sql.add('insert into "zapros.db" (imya, partiya)');
query1.sql.add('select tab1."Найменування товару", tab1."Мінімальна партія"');
query1.sql.add('from "tab1.db" tab1');
query1.sql.add('where tab1."Мінімальна партія">=50');
query1.execSQL;
query1.SQL.Clear;
Query1.SQL.ADD ('SELECT tab1."Найменування товару", tab1."Мінімальна партія" FROM "tab1.db" tab1 Where tab1."Мінімальна партія">=50');
Query1.Open;
Form2.ShowModal;
form2.DBgrid1.visible:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form2.Caption:='Панель запитів';
form2.Button1.Visible:=true;
form2.Button2.Visible:=true;
Form2.DBGRID1.height:=200;
Form2.DBGRID1.width:=835;
Form2.height:=605;
Form2.width:=845;
form2.ShowModal;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
sklad.Params.Add('path='+ExtractFilePath(adres));
sklad.Connected:=true;
table1.Active:=true;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, Menus,
jpeg;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button2: TButton;
DataSource1: TDataSource;
Table1: TTable;
DataSource2: TDataSource;
Query1: TQuery;
Image1: TImage;
sklad: TDatabase;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
adres :string;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Caption:='Найменування товару з мінімальною партією менше 50';
Form2.Height:=330;
form2.Button1.Visible:=false;
form2.Button2.Visible:=false;
Form2.width:=295;
Form2.DBGrid1.Height:=294;
Form2.DBGrid1.Width:=385;
Form2.Width:=395;
if not (fileexists('zapros.db')) then begin
query1.active:=false;
query1.sql.Clear;
query1.sql.Add('CREATE TABLE "zapros.db"');
query1.sql.add('(imya char(40), partiya float)');
query1.execSQL;
end
else begin
query1.active:=false;
query1.sql.clear;
query1.sql.add('DELETE FROM "zapros.db"');
query1.execSQL;
end;
query1.close;
query1.sql.clear;
query1.sql.add('insert into "zapros.db" (imya, partiya)');
query1.sql.add('select tab1."Найменування товару", tab1."Мінімальна партія"');
query1.sql.add('from "tab1.db" tab1');
query1.sql.add('where tab1."Мінімальна партія">=50');
query1.execSQL;
query1.SQL.Clear;
Query1.SQL.ADD ('SELECT tab1."Найменування товару", tab1."Мінімальна партія" FROM "tab1.db" tab1 Where tab1."Мінімальна партія">=50');
Query1.Open;
Form2.ShowModal;
form2.DBgrid1.visible:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form2.Caption:='Панель запитів';
form2.Button1.Visible:=true;
form2.Button2.Visible:=true;
Form2.DBGRID1.height:=200;
Form2.DBGRID1.width:=835;
Form2.height:=605;
Form2.width:=845;
form2.ShowModal;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
sklad.Params.Add('path='+ExtractFilePath(adres));
sklad.Connected:=true;
table1.Active:=true;
end;
end.
Соседние файлы в папке Коровай