(laquo;Kursraquo;).AsString);.SQL.Text:=laquo;SELECT Specialnost.Nazvanie
+ FROM Specialnost INNER JOIN Gruppa ON Specialnost.id_spec=Gruppa.id_spec
+ INNER JOIN Student ON Student.id_gruppi=Gruppa.id_gruppi
+ WHERE id_student=raquo;+DBGrid1.DataSource.DataSet.FieldByName(laquo;id_studentraquo;).AsString;.Open;.Variables[laquo;Specraquo;]:=QuotedStr(ADOQuery4.Fields[0].AsString);.PrepareReport;.ShowPreparedReport;;TForm2.Button9Click(Sender: TObject);.Variables[laquo;FIOraquo;]:=QuotedStr(DBGrid1.DataSource.DataSet.FieldByName(laquo;Famailiyaraquo;).AsString
+ + DBGrid1.DataSource.DataSet.FieldByName ( Imya ). AsString
+ raquo;+DBGrid1.DataSource.DataSet.FieldByName(laquo;Otchestvoraquo;).AsString);.Variables[laquo;DataRraquo;]:=QuotedStr(DBGrid1.DataSource.DataSet.FieldByName(laquo;Data_rraquo;).AsString);.SQL.Text:=laquo;SELECT Specialnost.Nazvanie
+ FROM Specialnost INNER JOIN Gruppa ON Specialnost.id_spec=Gruppa.id_spec
+ INNER JOIN Student ON Student.id_gruppi=Gruppa.id_gruppi
+ WHERE id_student=raquo;+DBGrid1.DataSource.DataSet.FieldByName(laquo;id_studentraquo;).AsString;.Open;.Variables[laquo;Specraquo;]:=QuotedStr(ADOQuery4.Fields[0].AsString);.PrepareReport;.ShowPreparedReport;;TForm2.Edit2Change(Sender: TObject); Length (Edit2.Text) gt; 0 then.Student.Filtered:=false; .Student.Filter:= Famailiya like + QuotedStr (Edit2.Text + % ) + or Imya like + QuotedStr (Edit2.Text + % ) + or Otchestvo like raquo;+QuotedStr(Edit2.Text+laquo;%raquo;);.Student.Filtered:=true;.Student.Filtered:=false;;TForm2.Button6Click(Sender: TObject) ;. Close; .SQL.Clear; .SQL.Add ( INSERT INTO Arhiv (Famailiya, Imya, Otchestvo, Data_r, Id_gruppi, Pol, Kurs) VALUES ) ;. SQL.Add ( (raquo;+#39+DBGrid1.DataSource.DataSet.FieldByName(laquo;Famailiyaraquo;).AsString+#39);.SQL.Add(laquo; ,raquo;+#39+DBGrid1.DataSource.DataSet.FieldByName(laquo;Imyaraquo;).AsString+#39);.SQL.Add(laquo; ,raquo;+#39+DBGrid1.DataSource.DataSet.FieldByName(laquo;Otchestvoraquo;).AsString+#39);.SQL.Add(laquo; ,raquo;+#39+DBGrid1.DataSource.DataSet.FieldByName(laquo;Data_rraquo;).AsString+#39);.SQL.Add(laquo; ,raquo;+#39+DBGrid1.DataSource.DataSet.FieldByName(laquo;Id_gruppiraquo;).AsString+#39);.SQL.Add(laquo; ,raquo;+#39+DBGrid1.DataSource.DataSet.FieldByName(laquo;Polraquo;).AsString+#39);.SQL.Add(laquo; ,raquo;+#39+DBGrid1.DataSource.DataSet.FieldByName(laquo;Kursraquo;).AsString+#39+laquo;)raquo;);.ExecSQL;.Close;.SQL.Clear;.SQL.Add(laquo; DELETE FROM Ocenka WHERE id_student=raquo;+DBGrid1.DataSource.DataSet.FieldByName(laquo;id_studentraquo;).AsString);.ExecSQL;.Close;.SQL.Clear;.SQL.Add(laquo; DELETE FROM Student WHERE id_student=raquo;+DBGrid1.DataSource.DataSet.FieldByName(laquo;id_studentraquo;).AsString);.ExecSQL;.Student.Close;.Student.Open;;TForm2.Button5Click(Sender: TObject);
Form9.Show;
Form2.Hide;
Form9.Caption:= Переклад студента + DBGrid1.DataSource.DataSet.FieldByName ( Famailiya ). AsString + DBGrid1.DataSource.DataSet.FieldByName ( Imya ). AsString + DBGrid1.DataSource.DataSet.FieldByName ( Otchestvo ). AsString;
end;.
Форма Група
Gruppa ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, ExtCtrls, DBCtrls, StdCtrls, Mask ,, ADODB, frxClass, frxDBSet;=class (TForm): TMainMenu ;: TMenuItem ;: TDBLookupComboBox ;: TDBEdit ;: TLabel ;: TLabel ;: TDBNavigator ;: TButton ;: TButton ;: TADOQuery ;: TADOQuery; Nazvanie: TStringField; Unoshi: TIntegerField; Devus: TIntegerField; Vsego: TIntegerField ;: TADOQuery;:TfrxReport ;: TfrxDBDataset; Famailiya: TStringField; Imya: TStringField; Otchestvo: TStringField; Data_r: TDateTimeField ;: TfrxDBDataset ;: TfrxDBDataset ;: TfrxReport; N1Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); Button1Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm3; Main, Data;
{$ R * .dfm} TForm3.N1Click (Sender: TObject);
Додаток Б
(продовження)
begin
Form3.Close;
Form1.Show ;; TForm3.FormClose (Sender: TObject; var Action: TCloseAction) ;. Show ;; TForm3.Button1Click (Sender: TObject) ;. Close; .SQL.Clear; .SQL.Add ( Select Famailiya, Imya, Otchestvo, Data_r ) ;. SQL.Add ( FROM Student ) ;. SQL.Add ( WHERE Id_gruppi= + DBEdit1.DataSource.DataSet.FieldByName ( laquo ; Id_gruppi ). AsString) ;. SQL.Add ( order by Famailiya,Imya,Otchestvoraquo;);.Open;.Variables[laquo;Grraquo;]:=QuotedStr(DBEd...
