Диплом - Разработка системы компьютерного контроля знаний по дисциплинам кафедры
Подождите немного. Документ загружается.
if (Edit3.Text='') then Exit;
AddLectorsFrm.ModalResult:=mrOk;
end;
procedure TAddLectorsFrm.FormCreate(Sender: TObject);
begin
if not Edit_App_Flag then
begin
with Form1 do
begin
if ClientDataSetLectors.FieldValues['FM']<>Null then
Edit1.Text:=String(ClientDataSetLectors.FieldValues['FM'])
else Edit1.Text:='';
if ClientDataSetLectors.FieldValues['IM']<>Null then
Edit2.Text:=String(ClientDataSetLectors.FieldValues['IM'])
else Edit2.Text:='';
if ClientDataSetLectors.FieldValues['OT']<> Null then
Edit3.Text:=String(ClientDataSetLectors.FieldValues['OT'])
else Edit3.Text:='';
end;
end;
end;
end.
Модуль AddStudents. Добавление нового пользователя со статусом
«студент».
unit AddStudents;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dbcgrids, StdCtrls, Mask, DBCtrls, ExtCtrls;
type
TAddStudentsFrm = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
GroupBox2: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
MaskEdit1: TMaskEdit;
122
Edit5: TEdit;
Label6: TLabel;
Edit6: TEdit;
Label7: TLabel;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AddStudentsFrm: TAddStudentsFrm;
implementation
uses Unit1,UserList;
{$R *.dfm}
procedure TAddStudentsFrm.FormCreate(Sender: TObject);
begin
if Edit_App_Flag then MaskEdit1.Text:=DateTostr(Now)
else begin
with Form1 do
begin
Edit1.Text:=IntToStr(ClientDataSetStudents.FieldValues['KOD']);
Edit2.Text:=String(ClientDataSetStudents.FieldValues['FM']);
Edit3.Text:=String(ClientDataSetStudents.FieldValues['IM']);
Edit4.Text:=String(ClientDataSetStudents.FieldValues['OT']);
Edit5.Text:=IntTostr(ClientDataSetStudents.FieldValues['KURS']);
MaskEdit1.Text:=DateToStr(ClientDataSetStudents.FieldValues['DATR']);
Edit6.Text:=ClientDataSetStudents.FieldValues['SPEC'];
end;
end;
end;
procedure TAddStudentsFrm.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') then Exit;
if (Edit2.Text='') then Exit;
if (Edit3.Text='') then Exit;
if (Edit4.Text='') then Exit;
if (Edit5.Text='') then Exit;
if (Edit6.Text='') then Exit;
if (MaskEdit1.Text='') then Exit;
AddStudentsFrm.ModalResult:=mrOk;
end;
procedure TAddStudentsFrm.FormClose(Sender: TObject;
var Action: TCloseAction);
123
begin
if (Edit1.Text='')OR
(Edit2.Text='')OR
(Edit3.Text='')OR
(Edit4.Text='')OR
(Edit5.Text='')OR
(Edit6.Text='')OR
(MaskEdit1.Text='')
then
begin
Action:=caNone;
ShowMessage('Не заданы все необходимые сведения');
end //else Action:=caFree;
end;
end.
Модуль UserList. Отображает список пользователей программного
комплекса.
unit UserList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, Grids, DBGrids, ExtCtrls;
type
TUserListFrm = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
DataSource1: TDataSource;
App_New_User: TButton;
Delete_User: TButton;
Edit_Old_User: TButton;
SaveCheng: TButton;
GroupBox3: TGroupBox;
DBGrid1: TDBGrid;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure App_New_UserClick(Sender: TObject);
procedure Delete_UserClick(Sender: TObject);
procedure Edit_Old_UserClick(Sender: TObject);
procedure SaveChengClick(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
124
public
{ Public declarations }
end;
var
UserListFrm: TUserListFrm;
Edit_App_Flag:Boolean=false;
implementation
uses Unit1, Add_Edit_User;
{$R *.dfm}
procedure TUserListFrm.FormCreate(Sender: TObject);
begin
Form1.ClientDataSetUser.Open;
end;
procedure TUserListFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.ClientDataSetUser.Close;
end;
procedure TUserListFrm.App_New_UserClick(Sender: TObject);
begin
Edit_App_Flag:=True;//добавить нового
AddEditUserFrm:=TAddEditUserFrm.Create(Self);
AddEditUserFrm.ShowModal;
AddEditUserFrm.Free;
end;
procedure TUserListFrm.Delete_UserClick(Sender: TObject);
begin
try
Form1.ClientDataSetUser.Delete;
except
on E:Exception do
MessageDLG(Format('Ошибка удаления записи: %S',[E.Message]),
mtError,[mbOK],0);
end;
end;
procedure TUserListFrm.Edit_Old_UserClick(Sender: TObject);
begin
Edit_App_Flag:=false;//редактировать старого
AddEditUserFrm:=TAddEditUserFrm.Create(Self);
AddEditUserFrm.ShowModal;
AddEditUserFrm.Free;
end;
procedure TUserListFrm.SaveChengClick(Sender: TObject);
begin
with Form1 do
begin
125
if (ClientDataSetUser.ChangeCount > 0) then
if ClientDataSetUser.ApplyUpdates(-1)=0 then
ClientDataSetUser.refresh;
end;
end;
procedure TUserListFrm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DataCol=2 then
begin
DBGrid1.Canvas.FillRect(Rect);
if Form1.ClientDataSetUser.FieldValues['STATUS'] then
DBGrid1.Canvas.TextOut(Rect.Left+5,Rect.Top,'Преподователь')
else DBGrid1.Canvas.TextOut(Rect.Left+5,Rect.Top,'Студент');
end;
end;
procedure TUserListFrm.Button1Click(Sender: TObject);
begin
Close
end;
end.
Модуль LectorList. Отображает список преподавателей.
unit LectorList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, RzDBNav, Grids, DBGrids, RzDBGrid;
type
TFrmLectorList = class(TForm)
GroupBox1: TGroupBox;
RzDBGrid1: TRzDBGrid;
GroupBox2: TGroupBox;
RzDBNavigator1: TRzDBNavigator;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmLectorList: TFrmLectorList;
126
implementation
uses Unit1;
{$R *.dfm}
procedure TFrmLectorList.Button1Click(Sender: TObject);
begin
Close;
end;
end.
Модуль StudentList; Отображает список студентов и их оценки.
unit StudentList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, RzDBGrid, ExtCtrls, DBCtrls, RzDBNav;
type
TStudentsListFrm = class(TForm)
GroupBox1: TGroupBox;
RzDBGrid1: TRzDBGrid;
GroupBox2: TGroupBox;
Button1: TButton;
Button2: TButton;
RzDBNavigator1: TRzDBNavigator;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
StudentsListFrm: TStudentsListFrm;
implementation
uses Unit1,Excel;
{$R *.dfm}
procedure TStudentsListFrm.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TStudentsListFrm.Button2Click(Sender: TObject);
Var S:String;
UserID,PredmetId,TemaID:LongInt;
127
I:LongInt;
Pr,Tm,Oc:String;
begin
UserID:=Form1.ClientDataSetStudents.FieldValues['USER_ID'];
Excel.RunExcel;
Excel.NewWorkShet(True);
Excel.FormatCell('C2','H2',exCenter,exCenter,True,True,
true,'Times New Roman',16);
Excel.SetCellRangeValue('C2','C2','ВЕДОМОСТЬ УСПЕВАЕМОСТИ');
Excel.FormatCell('B4','I4',exCenter,exCenter,True,True,
true,'Times New Roman',14);
S:='Студента '+String(Form1.ClientDataSetStudents.FieldValues['KURS'])+
' курса. Cпециальность '+String(Form1.ClientDataSetStudents.FieldValues['SPEC']);
Excel.SetCellRangeValue('B4','B4',S);
Excel.FormatCell('C6','H6',exCenter,exCenter,True,True,
true,'Times New Roman',14);
S:=String(Form1.ClientDataSetStudents.FieldValues['FM'])+' '+
String(Form1.ClientDataSetStudents.FieldValues['IM'])+' '+
String(Form1.ClientDataSetStudents.FieldValues['OT']);
Excel.SetCellRangeValue('C6','C6',S);
Excel.FormatCell('A8','E10',exCenter,exCenter,True,True,
true,'Times New Roman',14);
Excel.FormatCell('F8','G10',exCenter,exCenter,True,True,
true,'Times New Roman',14);
Excel.FormatCell('H8','I10',exCenter,exCenter,True,True,
true,'Times New Roman',14);
Excel.BorderCell('A8','E10',btMedium);
Excel.BorderCell('F8','G10',btMedium);
Excel.BorderCell('H8','I10',btMedium);
Excel.SetCellRangeValue('A8','E10','Наименование предмета и тема');
Excel.SetCellRangeValue('F8','G10','Оценка');
Excel.SetCellRangeValue('H8','I10','Дата сдачи');
Form1.ClientDataSetOcenki.Open;
Form1.ClientDataSetOcenki.Filter:='USER_ID='+IntToStr(UserID);
Form1.ClientDataSetOcenki.Filtered:=True;
Form1.ClientDataSetOcenki.First;
Form1.ClientDataSetPredmet.Open;
Form1.ClientDataSetTema.Open;
while not Form1.ClientDataSetOcenki.Eof do
begin
I:=Form1.ClientDataSetOcenki.RecNo+10;
Excel.SetCellRangeHeight('A'+IntToStr(I),'D'+IntToStr(I),30);
Excel.FormatCell('A'+IntToStr(I),'E'+IntToStr(I),exCenter,exCenter,True,True,
false,'Times New Roman',12);
Excel.FormatCell('F'+IntToStr(I),'G'+IntToStr(I),exCenter,exCenter,True,True,
False,'Times New Roman',12);
Excel.FormatCell('H'+IntToStr(I),'I'+IntToStr(I),exCenter,exCenter,True,True,
False,'Times New Roman',12);
Excel.BorderCell('A'+IntToStr(I),'E'+IntToStr(I),btMedium);
Excel.BorderCell('F'+IntToStr(I),'G'+IntToStr(I),btMedium);
Excel.BorderCell('H'+IntToStr(I),'I'+IntToStr(I),btMedium);
PredmetID:=Form1.ClientDataSetOcenki.FieldValues['Predmet_id'];
128
TemaID:=Form1.ClientDataSetOcenki.FieldValues['Tema_id'];
if Form1.ClientDataSetPredmet.Locate('PREDMET_ID',PredmetID,[]) then
Pr:=Form1.ClientDataSetPredmet['PREDMET']
else Pr:='';
if Form1.ClientDataSetTema.Locate('PREDMET_ID;TEMA_ID',
VarArrayOf([PredmetID,TemaID]),[]) then
Tm:=Form1.ClientDataSetTema['TEMA']
else Tm:='';
Excel.SetCellRangeValue('A'+IntToStr(I),'E'+IntToStr(I),
Pr+ '., "'+Tm+'"');
Case Form1.ClientDataSetOcenki.FieldValues['OCENKA'] of
2 : Oc:='Не удовлетворительно';
3 : Oc:='Удовлетворительно';
4 : Oc:='Хорошо';
5 : Oc:='Отлично';
else Oc:='';
end;
Excel.SetCellRangeValue('F'+IntToStr(I),'G'+IntToStr(I),Oc);
Excel.SetCellRangeValue('H'+IntToStr(I),'I'+IntToStr(I),
Form1.ClientDataSetOcenki.FieldValues['DATA']);
Form1.ClientDataSetOcenki.Next;
end;
Form1.ClientDataSetOcenki.Filter:='';
Form1.ClientDataSetOcenki.Filtered:=False;
Form1.ClientDataSetOcenki.Close;
Form1.ClientDataSetPredmet.Close;
Form1.ClientDataSetTema.Close;
// Excel.SetCellValue(3,2,Form1.ClientDataSetStudents.FieldValues['FM']);
end;
end.
Модуль UserLogin. Диалоговое окно ввода логина и пароля при
входе в программу.
unit UserLogin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm3 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
129
Button2: TButton;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
Edit2.SetFocus;
key:=#0;
end;
end;
procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
Button1.SetFocus;
key:=#0;
end;
end;
end.
Модуль Nastr_Connect. Настройки соединения с серверной часть
программного комплекса.
unit Nastr_Connect;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons;
type
TForm2 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
130
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
RadioGroup1: TRadioGroup;
SpeedButton1: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1,IniFiles, Find_Komp;
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
var Ini:TiniFile;
begin
Label3.Caption:=Form1.DCOMConnection1.ServerGUID;
Label5.Caption:=Form1.DCOMConnection1.ServerName;
if not FileExists(ChangeFileExt( Application.ExeName, '.INI')) then
begin
try
ini:=TiniFile.Create(ChangeFileExt( Application.ExeName, '.INI'));
Ini.WriteString('CONNECT', 'PCName','PC');
Ini.WriteBool('CONNECT', 'TYPE',false);
Edit1.Text:='PC';
RadioGroup1.ItemIndex:=0;
finally
Ini.Free
end;
end else
begin
try
ini:=TiniFile.Create(ChangeFileExt( Application.ExeName, '.INI'));
Edit1.Text:=Ini.ReadString('CONNECT', 'PCName','PC');
if Ini.ReadBool('CONNECT', 'TYPE',false)
then RadioGroup1.ItemIndex:=1
else RadioGroup1.ItemIndex:=0;
finally
131