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;
procedure Button1Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit5;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
ADODataSet1.Active:=false;
ADODataSet1.CommandText:='select surname, name, patronymic 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;
//DBGrid1.Columns[0].Font;
end;
procedure TForm4.DBGrid1DblClick(Sender: TObject);
begin
Form5.ShowModal;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;
type
TForm5 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
ADODataSet1: TADODataSet;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
end;
var
Form5: TForm5;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm5.FormActivate(Sender: TObject);
begin
Edit1.Text:=Form4.ADODataSet1.FieldValues['surname'];
Edit2.Text:=Form4.ADODataSet1.FieldValues['name'];
Edit3.Text:=Form4.ADODataSet1.FieldValues['patronymic'];
ADODataSet1.Active:=false;
ADODataSet1.CommandText:='select * from pers_list '+
' where st_id in '+
' (select st_id from fio '+
' where surname='+''''+Edit1.Text+''''+
' and name='+''''+Edit2.Text+''''+
' and patronymic='+''''+Edit3.Text+''''+')';
ADODataSet1.Active:=true;
//ShowMessage(ADODataSet1.CommandText);
if ADODataSet1.FieldValues['year']<>null
then Edit4.Text:=ADODataSet1.FieldValues['year']
else Edit4.Text:='';
if ADODataSet1.FieldValues['gr']<>null
then Edit5.Text:=ADODataSet1.FieldValues['gr']
else Edit5.Text:='';
if ADODataSet1.FieldValues['sub_gr']<>null
then Edit6.Text:=ADODataSet1.FieldValues['sub_gr']
else Edit6.Text:='';
if ADODataSet1.FieldValues['n_zach']<>null
then Edit7.Text:=ADODataSet1.FieldValues['n_zach']
else Edit7.Text:='';
if ADODataSet1.FieldValues['birth_date']<>null
then Edit8.Text:=ADODataSet1.FieldValues['birth_date']
else Edit8.Text:='';
if ADODataSet1.FieldValues['state']<>null
then Edit9.Text:=ADODataSet1.FieldValues['state']
else Edit9.Text:='';
if ADODataSet1.FieldValues['acc']<>null
then Edit10.Text:=ADODataSet1.FieldValues['acc']
else Edit10.Text:='';
if ADODataSet1.FieldValues['psw']<>null
then Edit11.Text:=ADODataSet1.FieldValues['psw']
else Edit11.Text:='';
end;
end.
| 