Система обучения и контроля знаний студентов
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?оски объявлений хранятся в виде текстового файла объявление.txt.
Заключение
В ходе выполнения курсового проекта была разработана Система обучения и контроля знаний студентов. Система выполняет все функции перечисленные в задании на курсовое проектирование.
При реализации системы не удалось полностью разделить уровень интерфейсов и бизнес-логику в связи с использованием компонентов среды программирования.
В перспективе возможна доработка программы: добавление прецедентов для более полного функционирования системы, создание возможности работы по сети, улучшение интерфейса пользователей и др.
В ходе работы над проектом были получены навыки проектирования программных систем по RUP.
Приложение A
Программный код разработанного программного продукта
Progect.dpr
program Project1;,in 'Registration.pas' {Form1},in 'StudentInterface.pas' {Form2},in 'LectureInterface.pas' {Form3},in 'Students.pas',in 'Message.pas' {Form4},in 'Lectures.pas',in 'ListControl.pas' {Form5},in 'StudentInfo.pas' {Form6},in 'Administration.pas' {Form7};
{$R *.res}.Initialize;.CreateForm(TForm1, Form1);.CreateForm(TForm2, Form2);.CreateForm(TForm3, Form3);.CreateForm(TForm4, Form4);.CreateForm(TForm5, Form5);.CreateForm(TForm6, Form6);.CreateForm(TForm7, Form7);.Run;.
Administration.pas
unit Administration;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB, DBTables;= class(TForm): TDBGrid;: TDBNavigator;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;: TButton;: TQuery;: TDataSource;FormActivate(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm7;
{$R *.dfm}TForm7.FormActivate(Sender: TObject);.Query1.SQL.Text:='Select * from Users';.Query1.Active:=true;.Query1.Edit;.DBEdit1.DataField:='User_Id';.DBEdit2.DataField:='User_Pas';.DBEdit3.DataField:='User_Log';.DBEdit4.DataField:='User_Status';;TForm7.Button1Click(Sender: TObject);.Query1.Insert;.DBEdit1.Text:='';.DBEdit2.Text:='';.DBEdit3.Text:='';.DBEdit4.Text:='';.DBEdit1.SetFocus;;TForm7.Button2Click(Sender: TObject);.Close;;.
LectureInterface.pas
unit LectureInterface;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus,Lectures, StdCtrls;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMemo;N5Click(Sender: TObject);N4Click(Sender: TObject);FormActivate(Sender: TObject);Memo1KeyDown(Sender: TObject; var Key: Word;: TShiftState);N2Click(Sender: TObject);N3Click(Sender: TObject);N1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm3;:TLecture;Registration, StudentInterface, ListControl, Administration;
{$R *.dfm}TForm3.N5Click(Sender: TObject);.close;.Close;;TForm3.N4Click(Sender: TObject);.Memo1.Visible:=true;.Memo1.Lines.LoadFromFile(Lecture.WriteMessage);;TForm3.FormActivate(Sender: TObject);:=TLecture.Create;;TForm3.Memo1KeyDown(Sender: TObject; var Key: Word;: TShiftState);key=27 then.Memo1.Lines.SaveToFile('объявление.txt');.Memo1.Visible:=false;;;TForm3.N2Click(Sender: TObject);.show;;TForm3.N3Click(Sender: TObject);.show;;TForm3.N1Click(Sender: TObject);.Show;;.
Lectures.pas
unit Lectures;TLecture = classCreate;
{procedure EditInfo;}WriteMessage:string;
{procedure ListControl;Jurnal; };TLecture.Create;;TLecture.WriteMessage:string;:='объявление.txt';.
ListControl.pas
unit ListControl;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask, DBCtrls, DB, Grids, DBGrids, ExtCtrls, DBTables;= class(TForm): TQuery;: TDBNavigator;: TDBGrid;: TDataSource;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TQuery;: TDBGrid;: TDataSource;: TDBNavigator;Group: TStringField;Student_Id: TFloatField;Surname: TStringField;Rey1: TFloatField;Rey2: TFloatField;Rey3: TFloatField;Rey: TFloatField;Group: TStringField;Student_Id: TFloatField;Surname: TStringField;Week1: TStringField;Week2: TStringField;Week3: TStringField;: TDBEdit;: TDBEdit;: TButton;: TButton;: TButton;: TLabel;: TLabel;FormActivate(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm5;
{$R *.dfm}TForm5.FormActivate(Sender: TObject);.Query1.SQL.Text:='Select * from ListControl';.Query1.Active:=true;.Query2.SQL.Text:='Select * from Jurnal';.Query2.Active:=true;.Query2.Edit;.Query1.Edit;.DBEdit1.DataField:='Group';.DBEdit2.DataField:='Student_Id';.DBEdit3.DataField:='Surname';.DBEdit4.DataField:='Rey1';.DBEdit5.DataField:='Rey2';.DBEdit6.DataField:='Rey3';.DBEdit7.DataField:='Rey';;TForm5.Button1Click(Sender: TObject);.Query1.Insert;.DBEdit1.Text:='';.DBEdit2.Text:='';.DBEdit3.Text:='';.DBEdit4.Text:='';.DBEdit5.Text:='';.DBEdit6.Text:='';.DBEdit7.Text:='';.DBEdit1.SetFocus;;TForm5.Button2Click(Sender: TObject);.Query2.Insert;;TForm5.Button3Click(Sender: TObject);.Query1.Close;.Query2.Close;.Close;;.
Registration.pas
unit Registration;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, DBTables,Students;= class(TForm): TEdit;: TEdit;: TButton;: TLabel;: TQuery;User_Id: TAutoIncField;User_Pas: TStringField;User_Log: TStringField;User_Status: TStringField;: TLabel;FormActivate(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;:TStudent;StudentInterface, LectureInterface;
{$R *.dfm}TForm1.FormActivate(Sender: TObject);.Edit1.Text:='';.Edit1.SetFocus;.Edit2.Text:='';.Visible:=false;;TForm1.Button1Click(Sender: TObject);.Close;;TForm1.Button2Click(Sender: TObject);status:string;.Query1.SQL.Text:='Select * from Users';.Query1.Open;form1.Query1.Locate('User_Pas',form1.Edit2.Text,[]) then(form1.Query1.FieldByName('User_Log').AsString=form1.Edit1.Text) (form1.Query1.FieldByName('User_Pas').AsString=form1.Edit2.Text) begin:=form1.Query1.FieldByName('User_Status').AsString;.Query1.Close;status='student' then.Visible:=true;:=TStudent.Create;.Login(form1.Edit1.Text);status='lecture' then form3.Visible:=true;.Visible:=false;.Edit1.Text:='';.Edit2.Text:='';('Пароль или логин указаны не верно');
form1.Edit1.SetFocus;;.Edit1.Text:='';1.Edit2.Text:='';
ShowMessage('Пароль или логин указаны не верно');
form1.Edit1.SetFocus;;;.
Student.pas
unit Student;TStudent = class:string;Login(log:string);ReadMessage;WatchInfo;;Registration;TStudent.Login(log:string);:=log;;TStudent.ReadMessage;;TStudent.WatchInfo;;.
StudentInfo.pas
unit StudentInfo;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, StdCtrls, Mask, DBCtrls, DBTables,Students,Registration,;= class(TForm): TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDataSource;: TQuery;Group: TStringField;Student_Id: TFloatField;Surname: TStringField;Rey1: TFloatField;Rey2: TFloatField;Rey3: TFloatField;Rey: TFloatField;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;FormActivate(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm6;ListControl;
{$R *.dfm}TForm6.FormActivate(Sender: TObject);.Query1.SQL.Text:='Select * from ListControl where .Surname="'+Student.WatchInfo+'"';.Query1.Active:=true;.DBEdit1.DataField:='Group';.DBEdit2.DataField:='Student_Id';.DBEdit3.DataField:='Surname';.DBEdit4.DataField:='Rey1';.DBEdit5.DataField:='Rey2';.DBEdit6.DataField:='Rey3';.DBEdit7.DataField:='Rey';;.
StudentInterface.pas
unit StudentInterface;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus,Students, StdCtrls,Registration;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMemo;N3Click(Sender: TObject);N1Click(Sender: TObject);FormKeyDown(Sender: TObject; var Key: Word;: TShiftState);Memo1KeyDown(Sender: TObject; var Key: Word;: TShiftState);N2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm2;StudentInfo;
{$R *.dfm}TForm2.N3Click(Sender: TObject);.Close;.Close;;TForm2.N1Click(Sender: TObject);.Memo1.Visible:=true;.Memo1.Lines.LoadFromFile(Student.ReadMessage);;TForm2.FormKeyDown(Sender: TObject; var Key: Word;: TShiftState);key=27 then form2.Memo1.Visible:=false;;TForm2.Memo1KeyDown(Sender: TObject; var Key: Word;: TShiftState);key=27 then form2.Memo1.Visible:=false;;TForm2.N2Click(Sender: TObject);.show;;
Studets.pas
unit Students;TStudent = class:string;Create;Login(log:string);ReadMessage:string;WatchInfo:string;;Registration;TStudent.Create;:='';;TStudent.Login(log:string);:=log;;TStudent.ReadMessage:string;:='объявление.txt';TStudent.WatchInfo:string;:=Su