unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
ADODataSet2: TADODataSet;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses
Unit2, Unit3, Unit4;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ADODataSet1.Active:=false;
ADODataSet1.CommandText:='select surname, name, patronymic from pokupatel';
ADODataSet1.Active:=true;
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
ADODataSet2.Active:=false;
ADODataSet2.CommandText:='select * from pers_pokupatel '+
'where code_pok in '+
'(select code_pok from pokupatel '+
'where surname='+''''+ADODataSet1.FieldValues['surname']+''''+
' and name='+''''+ADODataSet1.FieldValues['name']+''''+
' and patronymic='+''''+ADODataSet1.FieldValues['patronymic']+''''+')';
ADODataSet2.Active:=true;
Edit1.Text:=ADODataSet2.FieldValues['city'];
Edit2.Text:=ADODataSet2.FieldValues['address'];
Edit3.Text:=ADODataSet2.FieldValues['phone'];
Edit4.Text:=ADODataSet2.FieldValues['birth_date'];
Edit5.Text:=ADODataSet2.FieldValues['status'];
Edit6.Text:=ADODataSet2.FieldValues['summa'];
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form4.ShowModal;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ADODB, DB;
type
TForm3 = class(TForm)
Button1: TButton;
ADODataSet1: TADODataSet;
ADOQuery1: TADOQuery;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses
Unit1, Unit2;
{$R *.dfm}
procedure TForm3.FormActivate(Sender: TObject);
begin
Edit7.Text:=Form1.ADODataSet1.FieldValues['surname'];
Edit8.Text:=Form1.ADODataSet1.FieldValues['name'];
Edit9.Text:=Form1.ADODataSet1.FieldValues['patronymic'];
ADODataSet1.Active:=false;
ADODataSet1.CommandText:='select * from pers_pokupatel '+
'where code_pok in '+
'(select code_pok from pokupatel '+
'where surname='+''''+Edit7.Text+''''+
' and name='+''''+Edit8.Text+''''+
' and patronymic='+''''+Edit9.Text+''''+')';
ADODataSet1.Active:=true;
Edit1.Text:=ADODataSet1.FieldValues['city'];
Edit2.Text:=ADODataSet1.FieldValues['address'];
Edit3.Text:=ADODataSet1.FieldValues['phone'];
Edit4.Text:=ADODataSet1.FieldValues['birth_date'];
Edit5.Text:=ADODataSet1.FieldValues['status'];
Edit6.Text:=ADODataSet1.FieldValues['summa'];
end;
procedure TForm3.Button1Click(Sender: TObject);
var r:Integer;
begin
r:=MessageDlg('Are you sure?',mtConfirmation,[mbYes,mbNo],0);
if r=mrYes then
begin
ADOQuery1.SQL.Text:='delete from pers_pokupatel where '+
'code_pok in '+
'(select code_pok from pokupatel where '+
'surname= '+''''+Edit7.Text+''''+'and '+
'name= '+''''+Edit8.Text+''''+'and '+
'patronymic='+''''+Edit9.Text+''''+')';
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:='delete from pokupatel where '+
'surname= '+''''+Edit7.Text+''''+'and '+
'name= '+''''+Edit8.Text+''''+'and '+
'patronymic='+''''+Edit9.Text+'''';
ADOQuery1.ExecSQL;
Form3.Close;
end;
//Showmessage((ADOQuery1.SQL.Text));
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, DB, StdCtrls;
type
TForm4 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
ADODataSet1: TADODataSet;
ADOQuery1: TADOQuery;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
nomer:integer;
implementation
uses
Unit1, Unit2;
{$R *.dfm}
procedure TForm4.FormActivate(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
Edit9.Text:='';
ADODataSet1.Active:=false;
ADODataSet1.CommandText:='select max(code_pok) as maxx from pokupatel';
ADODataSet1.Active:=true;
nomer:=ADODataSet1.FieldValues['maxx'];
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Text:='insert into pokupatel values ('+
IntToStr(nomer+1)+','+''''+Edit7.Text+''''+','+
''''+Edit8.Text+''''+','+
''''+Edit9.Text+''''+')';
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:='insert into pers_pokupatel values ('+
IntToStr(nomer+1)+','+''''+Edit1.Text+''''+','+
''''+Edit2.Text+''''+','+
''''+Edit3.Text+''''+','+
''''+Edit4.Text+''''+','+
'0'+','+'0'+')';
ADOQuery1.ExecSQL;
Form4.Close;
// Showmessage((ADOQuery1.SQL.Text));
end;
end.
| 