unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;
type
TForm4 = class(TForm)
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit5, Unit6;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
ADODataSet1.Active:=false;
ADODataSet1.CommandText:='select surname, name, patronymic, st_id from fio';
ADODataSet1.Active:=true;
DBGrid1.Columns[0].Width:=100;
DBGrid1.Columns[1].Width:=100;
DBGrid1.Columns[2].Width:=100;
DBGrid1.Columns[0].Color:=clSilver;
DBGrid1.Columns[1].Color:=clAqua;
DBGrid1.Columns[2].Color:=clSkyBlue;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
Form6.ShowModal;
end;
procedure TForm4.DBGrid1DblClick(Sender: TObject);
begin
Form5.ShowModal;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;
type
TForm6 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
ADODataSet1: TADODataSet;
ADOQuery1: TADOQuery;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Text:='insert into fio values ('+
Edit4.Text+',1,1,'+''''+Edit1.Text+''''+','+
''''+Edit2.Text+''''+','+
''''+Edit3.Text+''''+')';
ADOQuery1.ExecSQL;
Form6.Close;
end;
procedure TForm6.FormActivate(Sender: TObject);
begin
ADODataSet1.Active:=false;
ADODataSet1.CommandText:='select max(st_id) as kod from fio';
ADODataSet1.Active:=true;
Edit4.Text:=IntToStr(ADODataSet1.FieldValues['kod']+1);
end;
end.
|