Темой курсового проектирования являлась разработка автоматизированного рабочего места куратора учебной группы.

Основной задачей курсового проектирования было создание базы данных, и интерфейса взаимодействия пользователя с базой данных, где хранятся сведения об успеваемости группы.

Данное АРМ позволяет вводить, хранить и редактировать сведения о списке группы, сведения о студентах, их успеваемости, сведения об активе учебной группы, достижениях группы, потери контингента группы за время обучения. Выходными данными будем считать информацию, необходимую для формирования банка данных рабочего места куратора группы, содержащего сведения об успеваемости группы и повышения эффективности и качества работы куратора группы.

В результате проделанной работы по описанию предметной области была разработана концептуальная, а затем и реляционная модели БД. Разработанная АРМ отвечает всем требованиям предметной области.

База данных спроектирована с выполнением условий целостности, что позволяет говорить о том, что данные в базе не повторяются, не дублируют друг друга, что означает, что при внесении сведений в нее не будут возникать ошибки. В ходе тестирования были обнаружены недочеты программы, которые были устранены.

АРМ было разработано в среде программирования Delphi 7, с использованием базы данных MS Access.

В перспективе возможно обновление базы данных по мере обновления сведений о группе: ее контингента, успеваемости, достижениях и прочего, с учетом чего и была спроектирована программа.

Поставленная цель курсового проекта достигнута, задачи решены.

Список использованных источников

Листинг программы

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, DB, ADODB, DBCtrls, ExtCtrls;

type

TForm8 = class (TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

DBLookupComboBox1: TDBLookupComboBox;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Button1: TButton;

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit1, Unit2;

{$R *. dfm}

procedure TForm8. BitBtn1Click (Sender: TObject);

begin

Application. Terminate;

end;

procedure TForm8. BitBtn2Click (Sender: TObject);

begin

if Edit1. Text=ADOTable1. FieldByName ('Пароль'). AsString then

begin

form8. Visible: =false;

form1. ShowModal;

form8. Close;

end

else

if Edit1. Text='' then

ShowMessage ('Введите пороль')

else

if Edit1. Text<>ADOTable1. FieldByName ('Пароль'). AsString then

ShowMessage ('Введенный пороль не верный');

end;

procedure TForm8. Button1Click (Sender: TObject);

begin

Messagedlg ('Введите Ваши имя пользователя и пароль! ',mtinformation, [mbOk],0);

end;

end.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, XPMan, Menus, ExtCtrls, StdCtrls, jpeg;

type

TForm1 = class (TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N5: TMenuItem;

N7: TMenuItem;

XPManifest1: TXPManifest;

N2: TMenuItem;

N3: TMenuItem;

N10: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure N3Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N6Click (Sender: TObject);

procedure N15Click (Sender: TObject);

procedure N16Click (Sender: TObject);

procedure N17Click (Sender: TObject);

procedure N18Click (Sender: TObject);

procedure N19Click (Sender: TObject);

procedure N20Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N13Click (Sender: TObject);

procedure N11Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit9, Unit11, Unit13, Unit15, Unit17, Unit19,Unit21, Unit23, Unit25, Unit27, Unit29, Unit32;

{$R *. dfm}

procedure TForm1. N3Click (Sender: TObject);

begin

Form2. ShowModal;

end;

procedure TForm1. N9Click (Sender: TObject);

begin

Form3. ShowModal;

end;

procedure TForm1. N10Click (Sender: TObject);

begin

Form1. Close;

end;

procedure TForm1. N5Click (Sender: TObject);

begin

Form4. ShowModal;

end;

procedure TForm1. N6Click (Sender: TObject);

begin

Form9. ShowModal;

end;

procedure TForm1. N15Click (Sender: TObject);

begin

Form11. ShowModal;

end;

procedure TForm1. N16Click (Sender: TObject);

begin

form13. showModal;

end;

procedure TForm1. N17Click (Sender: TObject);

begin

Form15. ShowModal;

end;

procedure TForm1. N18Click (Sender: TObject);

begin

Form17. ShowModal;

end;

procedure TForm1. N19Click (Sender: TObject);

begin

Form19. ShowModal;

end;

procedure TForm1. N20Click (Sender: TObject);

begin

Form21. ShowModal;

end;

procedure TForm1. N7Click (Sender: TObject);

begin

Form23. ShowModal;

end;

procedure TForm1. N4Click (Sender: TObject);

begin

Form25. ShowModal;

end;

procedure TForm1. N8Click (Sender: TObject);

begin

Form27. ShowModal;

end;

procedure TForm1. N13Click (Sender: TObject);

begin

Form29. ShowModal;

end;

procedure TForm1. N11Click (Sender: TObject);

begin

Form32. ShowModal;

end;

end.

unit Unit15;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, ADODB, DBCtrls, Mask, ExtCtrls, Buttons;

type

TForm15 = class (TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DataSource1: TDataSource;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBComboBox1: TDBComboBox;

ADOTable1: TADOTable;

ADOConnection1: TADOConnection;

GroupBox1: TGroupBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

DBNavigator1: TDBNavigator;

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn4Click (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form15: TForm15;

implementation

uses Unit16;

{$R *. dfm}

procedure TForm15. BitBtn1Click (Sender: TObject);

begin

Form15. Close;

end;

procedure TForm15. BitBtn2Click (Sender: TObject);

begin

if MessageDlg ('Удалить текущую запись? '

,mtConfirmation, [mbYes, mbNo],0) = idYes

then

Form15. ADOTable1. Delete;

end;

procedure TForm15. BitBtn4Click (Sender: TObject);

begin

if MessageDlg ('Сохранить измененя? '

,mtConfirmation, [mbYes, mbNo],0) = idYes

then

begin

Form15. ADOTable1. Edit ();

Form15. ADOTable1. Post ();

end;

end;

procedure TForm15. BitBtn3Click (Sender: TObject);

begin

if MessageDlg ('Добавить новую запись? '

,mtConfirmation, [mbYes, mbNo],0) = idYes

then

begin

Form15. ADOTable1. Insert ();

form16. ShowModal;

end;

end;

end.

unit Unit17;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DBCtrls, StdCtrls, DB, Grids, DBGrids, ADODB, ExtCtrls, Buttons;

type

TForm17 = class (TForm)

Panel1: TPanel;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

GroupBox1: TGroupBox;

DBGrid1: TDBGrid;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1DSDesigner1: TWideStringField;

ADOTable1DSDesigner2: TWideStringField;

Label1: TLabel;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

procedure BitBtn4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form17: TForm17;

implementation

uses Unit18;

{$R *. dfm}

procedure TForm17. BitBtn1Click (Sender: TObject);

begin

Form17. Close;

end;

procedure TForm17. BitBtn2Click (Sender: TObject);

begin

if MessageDlg ('Удалить текущую запись? '

,mtConfirmation, [mbYes, mbNo],0) = idYes

then

Form17. ADOTable1. Delete;

end;

procedure TForm17. BitBtn3Click (Sender: TObject);

begin

if MessageDlg ('Добавить новую запись? '

,mtConfirmation, [mbYes, mbNo],0) = idYes

then

begin

Form17. ADOTable1. Insert ();

form18. ShowModal;

end;

end;

procedure TForm17. BitBtn4Click (Sender: TObject);

begin

if MessageDlg ('Сохранить измененя? '

,mtConfirmation, [mbYes, mbNo],0) = idYes

then

begin

Form17. ADOTable1. Edit ();

Form17. ADOTable1. Post ();

end;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, DBCtrls;

type

TForm2 = class (TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

ADOTable1: TADOTable;

ADOTable1DSDesigner2: TWideStringField;

ADOTable1DSDesigner3: TWideStringField;

ADOTable1DSDesigner4: TWideStringField;

ADOTable1DSDesigner5: TIntegerField;

GroupBox1: TGroupBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

DBNavigator1: TDBNavigator;

procedure BitBtn4Click (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit6;

{$R *. dfm}

procedure TForm2. BitBtn4Click (Sender: TObject);

begin

if MessageDlg ('Сохранить измененя? '

,mtConfirmation, [mbYes, mbNo],0) = idYes

then

begin

Form2. ADOTable1. Edit ();

Form2. ADOTable1. Post ();

// form2. ADOTable1. Sort: ='Код';

end;

end;

procedure TForm2. BitBtn3Click (Sender: TObject);

begin

if MessageDlg ('Добавить новую запись? '

,mtConfirmation, [mbYes, mbNo],0) = idYes

then

begin

Form2. ADOTable1. Insert ();

Form6. ShowModal;

end;

end;

procedure TForm2. BitBtn2Click (Sender: TObject);

begin

if MessageDlg ('Удалить текущую запись? '

,mtConfirmation, [mbYes, mbNo],0) = idYes

then

Form2. ADOTable1. Delete;

end;

procedure TForm2. BitBtn1Click (Sender: TObject);

begin

Form2. Close;

end;

end.

unit Unit23;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, Mask, DBCtrls, ExtCtrls, DB, ADODB;

type

TForm23 = class (TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label8: TLabel;

Label10: TLabel;

Label12: TLabel;

Label15: TLabel;

GroupBox1: TGroupBox;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit7: TDBEdit;

DBEdit9: TDBEdit;

DBEdit11: TDBEdit;

Button1: TButton;

procedure BitBtn4Click (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form23: TForm23;

implementation

uses Unit24, Unit34;

{$R *. dfm}

procedure TForm23. BitBtn4Click (Sender: TObject);

begin

if MessageDlg ('Сохранить измененя? '

,mtConfirmation, [mbYes, mbNo],0) = idYes

then

begin

Form23. ADOTable1. Edit ();

Form23. ADOTable1. Post ();

end;

end;

procedure TForm23. BitBtn3Click (Sender: TObject);

begin

if MessageDlg ('Добавить новую запись? '

,mtConfirmation, [mbYes, mbNo],0) = idYes

then

begin

Form23. ADOTable1. Insert ();

end;

end;

procedure TForm23. BitBtn2Click (Sender: TObject);

begin

if MessageDlg ('Удалить текущую запись? '

,mtConfirmation, [mbYes, mbNo],0) = idYes

then

Form23. ADOTable1. Delete;

end;

procedure TForm23. BitBtn1Click (Sender: TObject);

begin

Form23. Close;

end;

procedure TForm23. Button1Click (Sender: TObject);

begin

// Form34. QuickRep1. PreviewModal;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids,

Buttons, ExtDlgs, OleCtnrs;

type

TForm4 = class (TForm)

Label1: TLabel;

Panel1: TPanel;

Label2: TLabel;

DBEdit1: TDBEdit;

Label3: TLabel;

DBEdit2: TDBEdit;

Label4: TLabel;

DBEdit3: TDBEdit;

Label5: TLabel;

DBEdit4: TDBEdit;

Label6: TLabel;

DBEdit5: TDBEdit;

Label8: TLabel;

DBEdit7: TDBEdit;

Label9: TLabel;

DBEdit8: TDBEdit;

Label10: TLabel;

Label11: TLabel;

DBEdit9: TDBEdit;

DBComboBox1: TDBComboBox;

Label13: TLabel;

DBComboBox2: TDBComboBox;

GroupBox1: TGroupBox;

BitBtn1: TBitBtn;

BitBtn4: TBitBtn;

BitBtn3: TBitBtn;

BitBtn2: TBitBtn;

DBNavigator1: TDBNavigator;

Label14: TLabel;

DBEdit11: TDBEdit;

Label15: TLabel;

DBEdit12: TDBEdit;

OpenPictureDialog1: TOpenPictureDialog;

BitBtn5: TBitBtn;

DBImage1: TDBImage;

Button1: TButton;

DataSource1: TDataSource;

ADOTable1: TADOTable;

ADOConnection1: TADOConnection;

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

procedure BitBtn4Click (Sender: TObject);

procedure BitBtn5Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit5, Unit31;

{$R *. dfm}

procedure TForm4. BitBtn1Click (Sender: TObject);

begin

Form4. Close;

end;

procedure TForm4. BitBtn2Click (Sender: TObject);

begin

begin

if MessageDlg ('Сохранить измененя? '

,mtConfirmation, [mbYes, mbNo],0) = idYes

then

begin

Form4. ADOTable1. Edit ();

Form4. ADOTable1. Post ();

end;

end;

end;

procedure TForm4. BitBtn3Click (Sender: TObject);