Базы данных - Дипломная работа

В курсовой работе будет разработана информационная система Электронный деканат. Автоматизация =4 and AVG (Ocenka)0 then begin DataModule1.Student.Filtered:=false; DataModule1.Student.Filter:=Famailiya like QuotedStr(Edit2.Text %) or Imya like QuotedStr(Edit2.Text %) or Otchestvo like QuotedStr(Edit2.Text %); DataModule1.Student.Filtered:=true; end else DataModule1.Student.Filtered:=false; end; procedure TForm2.Button6Click(Sender: TObject); begin ADOQuery3.Close; ADOQuery3.SQL.Clear; ADOQuery3.SQL.Add( INSERT INTO Arhiv (Famailiya,Imya,Otchestvo,Data_r,Id_gruppi,Pol,Kurs) VALUES ); ADOQuery3.SQL.Add( ( #39 DBGrid1.DataSource.DataSet.FieldByName(Famailiya).AsString #39); ADOQuery3.SQL.Add( , #39 DBGrid1.DataSource.DataSet.FieldByName(Imya).AsString #39); ADOQuery3.SQL.Add( , #39 DBGrid1.DataSource.DataSet.FieldByName(Otchestvo).AsString #39); ADOQuery3.SQL.Add( , #39 DBGrid1.DataSource.DataSet.FieldByName(Data_r).AsString #39); ADOQuery3.SQL.Add( , #39 DBGrid1.DataSource.DataSet.FieldByName(Id_gruppi).AsString #39); ADOQuery3.SQL.Add( , #39 DBGrid1.DataSource.DataSet.FieldByName(Pol).AsString #39); ADOQuery3.SQL.Add( , #39 DBGrid1.DataSource.DataSet.FieldByName(Kurs).AsString #39 )); ADOQuery3.ExecSQL; ADOQuery3.Close; ADOQuery3.SQL.Clear; ADOQuery3.SQL.Add( DELETE FROM Ocenka WHERE id_student = DBGrid1.DataSource.DataSet.FieldByName(id_student).AsString); ADOQuery3.ExecSQL; ADOQuery3.Close; ADOQuery3.SQL.Clear; ADOQuery3.SQL.Add( DELETE FROM Student WHERE id_student = DBGrid1.DataSource.DataSet.FieldByName(id_student).AsString); ADOQuery3.ExecSQL; DataModule1.Student.Close; DataModule1.Student.Open; end; procedure TForm2.Button5Click(Sender: TObject); begin 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; end. Форма Группа unit Gruppa; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ExtCtrls, DBCtrls, StdCtrls, Mask, DB, ADODB, frxClass, frxDBSet; type TForm3 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; DBLookupComboBox1: TDBLookupComboBox; DBEdit1: TDBEdit; Label1: TLabel; Label2: TLabel; DBNavigator1: TDBNavigator; Button1: TButton; Button2: TButton; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; ADOQuery2Nazvanie: TStringField; ADOQuery2Unoshi: TIntegerField; ADOQuery2Devus: TIntegerField; ADOQuery2Vsego: TIntegerField; ADOQuery3: TADOQuery; frxReport1: TfrxReport; frxDBDataset1: TfrxDBDataset; ADOQuery1Famailiya: TStringField; ADOQuery1Imya: TStringField; ADOQuery1Otchestvo: TStringField; ADOQuery1Data_r: TDateTimeField; frxDBDataset2: TfrxDBDataset; frxDBDataset3: TfrxDBDataset; frxReport2: TfrxReport; procedure N1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form3: TForm3; implementation uses Main, Data; {$R *.dfm} procedure TForm3.N1Click(Sender: TObject); Приложение Б (продолжение) begin Form3.Close; Form1.Show; end; procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction); begin Form1.Show; end; procedure TForm3.Button1Click(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add( Select Famailiya,Imya,Otchestvo,Data_r); ADOQuery1.SQL.Add( FROM Student); ADOQuery1.SQL.Add( WHERE Id_gruppi = DBEdit1.DataSource.DataSet.FieldByName(Id_gruppi).AsString); ADOQuery1.SQL.Add( order by Famailiya,Imya,Otchestvo); ADOQuery1.Open; frxReport1.Variables[Gr]:=QuotedStr(DBEdit1.Text); frxReport1.PrepareReport; frxReport1.ShowPreparedReport; end; procedure TForm3.Button2Click(Sender: TObject); begin ADOQuery2.Open; ADOQuery3.Open; frxReport2.PrepareReport; frxReport2.ShowPreparedReport; end; end Форма Выборка unit Viborka; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids; type TForm8 = class(TForm) DBGrid1: TDBGrid; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form8: TForm8; implementation uses Stud; {$R *.dfm} procedure TForm8.Button1Click(Sender: TObject); begin Form8.Close; end; end. DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var Form14: TForm14; implementation {$R *.dfm} uses Main, Data; procedure TForm14.FormClose(Sender: TObject; var Action: TCloseAction); begin Form1.Show; end; end. Форма Оценка unit Ocenka; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, Grids, DBGrids, DB, ADODB, StdCtrls, DBCtrls, ExtCtrls, ComCtrls, frxClass, frxDBSet; type TForm10 = class(TForm) MainMenu