Приложение д Листинг файла DataModule1

unit Unit2;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDM = class(TDataModule)

ADOConnection1: TADOConnection;

ADODopol_infor: TADOTable;

ADOPrepodavatel: TADOTable;

ADOPredmet: TADOTable;

ADOUspevaemost: TADOTable;

DataDopol_infor: TDataSource;

DataPrepodavatel: TDataSource;

DataPredmet: TDataSource;

DataUspevaemost: TDataSource;

ADOGurnal: TADOTable;

DataGurnal: TDataSource;

DataStudent: TDataSource;

ADOStudent: TADOTable;

ADO_ID_Grupp: TADOTable;

DataSource1: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM: TDM;

implementation

uses Unit1, Unit3;

{$R *.dfm}

end.

Приложение е Листинг файла FormStudent

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask, DB, ADODB;

type

TFormStudent = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Label8: TLabel;

DBNavigator1: TDBNavigator;

DBE_Code_nomer: TDBEdit;

DBE_Family: TDBEdit;

DBE_Name: TDBEdit;

DBE_Otchestvo: TDBEdit;

DBE_Data_Rogdenia: TDBEdit;

DBE_Specialnosti: TDBEdit;

DBE_Gruppa: TDBEdit;

DBGrid1: TDBGrid;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormStudent: TFormStudent;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TFormStudent.Button1Click(Sender: TObject);

begin

dm.ADOStudent.Filter:='[Фамилия]='+QuotedStr(formstudent.DBGrid1.Columns.Items[1].Field.Text);

dm.ADOStudent.Filtered:= true;

end;

procedure TFormStudent.Button2Click(Sender: TObject);

begin

dm.ADOStudent.Filter:='[Имя]='+QuotedStr(formstudent.DBGrid1.Columns.Items[2].Field.Text);

dm.ADOStudent.Filtered:= true;

end;

procedure TFormStudent.Button3Click(Sender: TObject);

begin

dm.ADOStudent.Filter:='[Специальность]='+QuotedStr(formstudent.DBGrid1.Columns.Items[5].Field.Text);

dm.ADOStudent.Filtered:= true;

end;

procedure TFormStudent.Button5Click(Sender: TObject);

begin

dm.ADOStudent.Filter:= '';

dm.ADOStudent.Filtered:= false;

end;

procedure TFormStudent.Button4Click(Sender: TObject);

begin

FormStudent.Close;

end;

procedure TFormStudent.Button6Click(Sender: TObject);

var status:boolean;

begin

FormStudent.Show;

FormStudent.DBE_Code_nomer.Text:=DBGrid1.SelectedField.Text;

DBGrid1.SelectedIndex:=1;

FormStudent.DBE_Family.Text:=DBGrid1.SelectedField.Text;

DBGrid1.SelectedIndex:=2;

FormStudent.DBE_Name.Text:=DBGrid1.SelectedField.Text;

DBGrid1.SelectedIndex:=3;

FormStudent.DBE_Otchestvo.Text:=DBGrid1.SelectedField.Text;

DBGrid1.SelectedIndex:=4;

FormStudent.DBE_Data_Rogdenia.Text:=DBGrid1.SelectedField.Text;

DBGrid1.SelectedIndex:=5;

FormStudent.DBE_Specialnosti.Text:=DBGrid1.SelectedField.Text;

DBGrid1.SelectedIndex:=6;

//FormStudent.DBE_Gruppa.Text:=DBGrid1.SelectedField.Text;

DBGrid1.SelectedIndex:=7;

end;

end.