4 Курс / переподы / анал / Практика / Коровай / Unit2

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Buttons, jpeg, ExtCtrls;

type
TForm2 = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
c2: TCheckBox;
c3: TCheckBox;
c4: TCheckBox;
c5: TCheckBox;
c6: TCheckBox;
c7: TCheckBox;
BitBtn1: TBitBtn;
Label1: TLabel;
Edit1: TEdit;
c1: TCheckBox;
Label2: TLabel;
Edit2: TEdit;
i3: TImage;
i4: TImage;
i5: TImage;
i6: TImage;
i7: TImage;
i2: TImage;
i1: TImage;
Label3: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
pr1,pr2,pr3,pr4,pr5,pr6,pr7:string;
tip:byte;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if c1.Checked then pr1:='tab1."Код товару"' else pr1:='';
if c2.Checked then pr2:=', tab1."Найменування товару"' else pr2:='';
if c3.Checked then pr3:=', tab1."Виробник"' else pr3:='';
if c4.Checked then pr4:=', tab1."Ціна за одиницю"' else pr4:='';
if c5.Checked then pr5:=', tab1."Кількість"' else pr5:='';
if c6.Checked then pr6:=', tab1."Номер складу"' else pr6:='';
if c7.Checked then pr7:=', tab1."Мінімальна партія"' else pr7:='';
case tip of
1:with form1.Query1 do
begin
sql.Clear;
sql.Add('SELECT '+pr1+pr2+pr3+pr4+pr5+pr6+pr7+' FROM "tab1.db" tab1 Where tab1."Номер складу"='+edit1.text);
open;
end;
2:with form1.Query1 do
begin
sql.Clear;
sql.Add('SELECT '+pr1+pr2+pr3+pr4+pr5+pr6+pr7+' FROM "tab1.db" tab1');
open;
end;
3:with form1.Query1 do
begin
sql.Clear;
sql.Add('SELECT '+pr1+pr2+pr3+pr4+pr5+pr6+pr7+' FROM "tab1.db" tab1 Where tab1."Мінімальна партія"<='+'"'+edit1.text+'"');
open;
if messagedlg('Желаете обновить '+inttostr(form1.Query1.recordcount)+' запись(ей)?',mtWarning, mbOKCancel, 0)=mrok
then begin
sql.Clear;
sql.Add('Update "tab1.db" tab1 set tab1."Мінімальна партія"='+edit1.text+ ' where tab1."Мінімальна партія"<='+'"'+edit1.text+'"');
execSQL;
end;
sql.Clear;
sql.Add('SELECT '+pr1+pr2+pr3+pr4+pr5+pr6+pr7+'FROM "tab1.db" tab1');
open;
end;
4:with form1.Query1 do
begin
sql.Clear;
sql.Add('SELECT '+pr1+pr2+pr3+pr4+pr5+pr6+pr7+' FROM "tab1.db" tab1 Where tab1."Виробник"='+'"'+edit1.text+'"');
open;
end;
5:with form1.Query1 do
begin
sql.Clear;
sql.Add('SELECT '+pr1+pr2+pr3+pr4+pr5+pr6+pr7+' FROM "tab1.db" tab1 Where tab1."Ціна за одиницю"<='+edit1.text);
open;
end;
6:with form1.Query1 do
begin
sql.Clear;
sql.Add('SELECT '+pr1+pr2+pr3+pr4+pr5+pr6+pr7+' FROM "tab1.db" tab1 Where tab1."Виробник"='+'"'+edit2.text+'"');
open;
if messagedlg('Желаете обновить '+inttostr(form1.Query1.recordcount)+' запись(ей)?',mtWarning, mbOKCancel, 0)=mrok
then begin
sql.Clear;
sql.Add('Update "tab1.db" tab1 set tab1."Номер складу"='+edit1.text+ ' where tab1."Виробник"='+'"'+edit2.text+'"');
execSQL;
end;
sql.Clear;
sql.Add('SELECT '+pr1+pr2+pr3+pr4+pr5+pr6+pr7+'FROM "tab1.db" tab1');
open;
end;
7:with form1.Query1 do
begin
sql.Clear;
sql.Add('SELECT '+pr1+pr2+pr3+pr4+pr5+pr6+pr7+'FROM "tab1.db" tab1 WHERE tab1."Номер складу"='+edit1.text);
open;
if messagedlg('Желаете удалить '+inttostr(form1.Query1.recordcount)+' запись(ей)?',mtWarning, mbOKCancel, 0)=mrok
then begin
sql.Clear;
sql.Add('DELETE FROM "tab1.db" tab1 Where tab1."Номер складу"='+edit1.text);
execSQL;
end;
sql.Clear;
sql.Add('SELECT '+pr1+pr2+pr3+pr4+pr5+pr6+pr7+'FROM "tab1.db" tab1');
open;
end;
end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
bitbtn1.Enabled:=true;
i1.Visible:=true;
i2.Visible:=false;
i3.Visible:=false;
i4.Visible:=false;
i5.Visible:=false;
i6.Visible:=false;
i7.Visible:=false;
tip:=1;
c2.Visible:=true;
c3.Visible:=true;
c4.Visible:=true;
c5.Visible:=true;
c6.Visible:=true;
c7.Visible:=true;
c2.checked:=true;
c3.checked:=false;
c4.checked:=false;
c5.checked:=true;
c6.checked:=false;
c7.checked:=false;
edit2.Visible:=false;
label2.Visible:=false;
label1.Caption:='Номер складу';
edit1.Visible:=true;
label1.Visible:=true;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
bitbtn1.Enabled:=true;
tip:=2;
i1.Visible:=false;
i2.Visible:=true;
i3.Visible:=false;
i4.Visible:=false;
i5.Visible:=false;
i6.Visible:=false;
i7.Visible:=false;
c2.Visible:=true;
c3.Visible:=true;
c4.Visible:=true;
c5.Visible:=true;
c6.Visible:=true;
c7.Visible:=true;
c2.checked:=true;
c3.checked:=false;
c4.checked:=true;
c5.checked:=false;
c6.checked:=false;
c7.checked:=false;
edit2.Visible:=false;
label2.Visible:=false;
edit1.Visible:=false;
label1.Visible:=false;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
bitbtn1.Enabled:=true;
i1.Visible:=false;
i2.Visible:=false;
i3.Visible:=true;
i4.Visible:=false;
i5.Visible:=false;
i6.Visible:=false;
i7.Visible:=false;
tip:=3;
c2.Visible:=false;
c3.Visible:=false;
c4.Visible:=false;
c5.Visible:=false;
c6.Visible:=false;
c7.Visible:=false;
c2.checked:=true;
c3.checked:=true;
c4.checked:=true;
c5.checked:=true;
c6.checked:=true;
c7.checked:=true;
edit2.Visible:=true;
label2.Visible:=true;
label1.Caption:='Межа мінімальної партії';
label2.Caption:='Нова мінімальна партія';
edit1.Visible:=true;
label1.Visible:=true;
end;

procedure TForm2.Button7Click(Sender: TObject);
begin
bitbtn1.Enabled:=true;
i1.Visible:=false;
i2.Visible:=false;
i3.Visible:=false;
i4.Visible:=true;
i5.Visible:=false;
i6.Visible:=false;
i7.Visible:=false;
tip:=4;
c2.Visible:=true;
c3.Visible:=true;
c4.Visible:=true;
c5.Visible:=true;
c6.Visible:=true;
c7.Visible:=true;
c2.checked:=true;
c3.checked:=false;
c4.checked:=true;
c5.checked:=false;
c6.checked:=false;
c7.checked:=false;
edit2.Visible:=false;
label2.Visible:=false;
label1.Caption:='Назва фірми';
edit1.Visible:=true;
label1.Visible:=true;
end;

procedure TForm2.Button6Click(Sender: TObject);
begin
bitbtn1.Enabled:=true;
i1.Visible:=false;
i2.Visible:=false;
i3.Visible:=false;
i4.Visible:=false;
i5.Visible:=true;
i6.Visible:=false;
i7.Visible:=false;
tip:=5;
c2.Visible:=true;
c3.Visible:=true;
c4.Visible:=true;
c5.Visible:=true;
c6.Visible:=true;
c7.Visible:=true;
c2.checked:=true;
c3.checked:=True;
c4.checked:=true;
c5.checked:=true;
c6.checked:=true;
c7.checked:=true;
edit2.Visible:=false;
label2.Visible:=false;
label1.Caption:='Ціна';
edit1.Visible:=true;
label1.Visible:=true;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
bitbtn1.Enabled:=true;
i1.Visible:=false;
i2.Visible:=false;
i3.Visible:=false;
i4.Visible:=false;
i5.Visible:=false;
i6.Visible:=true;
i7.Visible:=false;
tip:=6;
c2.Visible:=false;
c3.Visible:=false;
c4.Visible:=false;
c5.Visible:=false;
c6.Visible:=false;
c7.Visible:=false;
c2.checked:=true;
c3.checked:=true;
c4.checked:=true;
c5.checked:=true;
c6.checked:=true;
c7.checked:=true;
edit2.Visible:=true;
label2.Visible:=true;
label1.Caption:='Номер складу';
label2.caption:='Виробник';
edit1.Visible:=true;
label1.Visible:=true;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
bitbtn1.Enabled:=true;
i1.Visible:=false;
i2.Visible:=false;
i3.Visible:=false;
i4.Visible:=false;
i5.Visible:=false;
i6.Visible:=false;
i7.Visible:=true;
tip:=7;
c2.Visible:=false;
c3.Visible:=false;
c4.Visible:=false;
c5.Visible:=false;
c6.Visible:=false;
c7.Visible:=false;
c2.checked:=true;
c3.checked:=true;
c4.checked:=true;
c5.checked:=true;
c6.checked:=true;
c7.checked:=true;
edit2.Visible:=false;
label2.Visible:=false;
label1.Caption:='Номер складу';
edit1.Visible:=true;
label1.Visible:=true;
end;

end.