Диплом - Разработка системы компьютерного контроля знаний по дисциплинам кафедры
Подождите немного. Документ загружается.
if ConnectionBroker1.Connected then
begin
ConnectionBroker1.Connected:=False;
Podkluch.Caption:='Подключение';
Podkluch.ImageIndex:=0;
RzGroup3.Items.Items[0].Caption:='Подключение';
RzGroup3.Items.Items[0].ImageIndex:=0;
RzGlyphStatus1.ImageIndex:=15;
Timer1.Enabled:=False;
RzMarqueeStatus1.Caption:='Отключен от сервера';
MenuEnable;
TcpServer1.Close;
end else
begin
Form3:=TForm3.Create(Self);
Form3.ShowModal;
if Form3.ModalResult=mrOK then
begin
try
ConnectionBroker1.Connected:=True;
except
on E:Exception do
begin
MessageDLG(Format('Ошибка подключения к серверу: %S',[E.Message]),
mtError,[mbOK],0);
exit;
end;
end;//except
if ConnectionBroker1.AppServer.Login(Form3.Edit1.Text,Form3.Edit2.Text) then
begin
Podkluch.Caption:='Отключение';
Podkluch.ImageIndex:=6;
RzGroup3.Items.Items[0].Caption:='Отключение';
RzGroup3.Items.Items[0].ImageIndex:=6;
RzGlyphStatus1.ImageIndex:=13;
Timer1.Enabled:=True;
RzMarqueeStatus1.Caption:='Подключен к серверу';
MenuEnable;
TcpServer1.Open;
S1:=TcpServer1.LookupHostAddr(TcpServer1.LookupHostName(''));
S2:=TcpServer1.LocalHostAddr;
S3:=TcpServer1.LocalHostName;
ConnectionBroker1.AppServer.IPAdress(S1,S2,S3);
end else
begin
ConnectionBroker1.Connected:=False;
ShowMessage('Имя пользователя или пароль не опознаны сервером');
end;
end;
form3.Free
end;
112
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if ClientDataSetUser.Active then ClientDataSetUser.Close;
if TcpServer1.Active then TcpServer1.Close;
if ConnectionBroker1.Connected then ConnectionBroker1.Connected:=False;
ConnectionBroker1.Connection:=nil;
Action:=caFree;
end;
procedure TForm1.FormCreate(Sender: TObject);
var Ini:TiniFile;
PC:String;
procedure InitToolBar;
begin
ToolBttnAddUser.OnClick:=App_Edit_User.OnClick;
ToolBttnStudents.OnClick:=MListStudents.OnClick;
ToolBttnLectors.OnClick:=MListLectors.OnClick;
ToolBttnPredmet.OnClick:=MPredmet.OnClick;
ToolBttnVopros.OnClick:=MVopros.OnClick;
end;
begin
InitToolBar;
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);
ShowMessage('Не найден файл настроек. Необходимо заново настроить поключение');
finally
Ini.Free
end;
end else
begin
try
ini:=TiniFile.Create(ChangeFileExt( Application.ExeName, '.INI'));
PC:=Ini.ReadString('CONNECT', 'PCName','PC');
DCOMConnection1.ComputerName:=PC;
SocketConnection1.Host:=PC;
if Ini.ReadBool('CONNECT','TYPE',false)
then ConnectionBroker1.Connection:=SocketConnection1
else ConnectionBroker1.Connection:=DCOMConnection1;
finally
Ini.Free
end;
end;
end;
procedure TForm1.App_Edit_UserClick(Sender: TObject);
begin
113
UserListFrm:=TUserListFrm.Create(Self);
UserListFrm.ShowModal;
UserListFrm.Free
end;
procedure TForm1.Exit_ProgClick(Sender: TObject);
begin
Close
end;
procedure TForm1.MPredmetClick(Sender: TObject);
begin
ClientDataSetPredmet.Open;
ClientDataSetTema.Open;
AddPredmetFrm:=TAddPredmetFrm.Create(Self);
AddPredmetFrm.ShowModal;
AddPredmetFrm.Free;
ClientDataSetPredmet.Close;
ClientDataSetTema.Close;
end;
procedure TForm1.MVoprosClick(Sender: TObject);
begin
ClientDataSetPredmet.Open;
ClientDataSetTema.Open;
ClientDataSetVopros.Open;
ClientDataSetVariant.Open;
VoprosOtvetListFrm:=TVoprosOtvetListFrm.Create(Self);
VoprosOtvetListFrm.ShowModal;
VoprosOtvetListFrm.Free;
ClientDataSetPredmet.Close;
ClientDataSetTema.Close;
ClientDataSetVopros.Close;
ClientDataSetVariant.Close;
end;
procedure TForm1.MListStudentsClick(Sender: TObject);
begin
ClientDataSetStudents.Open;
StudentsListFrm:=TStudentsListFrm.Create(Self);
StudentsListFrm.ShowModal;
StudentsListFrm.Free;
ClientDataSetStudents.Close;
end;
procedure TForm1.MListLectorsClick(Sender: TObject);
begin
ClientDataSetLectors.Open;
FrmLectorList:=TFrmLectorList.Create(Self);
FrmLectorList.ShowModal;
FrmLectorList.Free;
ClientDataSetLectors.Close;
114
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if RzGlyphStatus1.ImageIndex=14 then RzGlyphStatus1.ImageIndex:=13
{ if RzGlyphStatus1.ImageIndex=13 }else RzGlyphStatus1.ImageIndex:=14;
Application.ProcessMessages;
end;
procedure TForm1.ClientDataSetPredmetBeforeDelete(DataSet: TDataSet);
var Mes:integer;
id_predmet:LongInt;
begin
Mes:=MessageBox(AddPredmetFrm.Handle,'Вы действительно хотите удалить'+#10#13+'
этот предмет и все что к нему относится','Удаление',
MB_YESNO OR MB_DEFBUTTON1 OR MB_ICONWARNING);
if Mes=mrYes then
begin
with Form1 do
begin
id_predmet:=ClientDataSetPredmet.FieldValues['PREDMET_ID'];
ClientDataSetQuery.CommandText:=
'DELETE FROM PREDMET WHERE PREDMET_ID='+IntToStr(id_predmet);
ClientDataSetQuery.Execute;
ClientDataSetPredmet.Refresh;
ClientDataSetQuery.CommandText:=
'DELETE FROM TEMA WHERE PREDMET_ID='+IntToStr(id_predmet);
ClientDataSetQuery.Execute;
ClientDataSetTema.Refresh;
ClientDataSetQuery.CommandText:=
'DELETE FROM VOPROS WHERE PREDMET_ID='+IntToStr(id_predmet);
ClientDataSetQuery.Execute;
ClientDataSetVopros.Refresh;
ClientDataSetQuery.CommandText:=
'DELETE FROM VARIANT WHERE PREDMET_ID='+IntToStr(id_predmet);
ClientDataSetQuery.Execute;
ClientDataSetVariant.Refresh;
end;
end else Abort;
end;
procedure TForm1.ClientDataSetTemaBeforeDelete(DataSet: TDataSet);
var Mes:integer;
id_predmet:LongInt;
id_tema:LongInt;
begin
Mes:=MessageBox(AddPredmetFrm.Handle,'Вы действительно хотите удалить'+#10#13+'
эту тему и все что к ней относится','Удаление',
MB_YESNO OR MB_DEFBUTTON1 OR MB_ICONWARNING);
if Mes=mrYes then
begin
115
with Form1 do
begin
id_predmet:=ClientDataSetPredmet.FieldValues['PREDMET_ID'];
id_tema:=ClientDataSetTema.FieldValues['TEMA_ID'];
ClientDataSetQuery.CommandText:=
'DELETE FROM TEMA WHERE PREDMET_ID='+IntToStr(id_predmet)
+' AND TEMA_ID='+IntToStr(id_tema);
ClientDataSetQuery.Execute;
ClientDataSetTema.Refresh;
ClientDataSetQuery.CommandText:=
'DELETE FROM VOPROS WHERE PREDMET_ID='+IntToStr(id_predmet)
+' AND TEMA_ID='+IntToStr(id_tema);
ClientDataSetQuery.Execute;
ClientDataSetVopros.Refresh;
ClientDataSetQuery.CommandText:=
'DELETE FROM VARIANT WHERE PREDMET_ID='+IntToStr(id_predmet)
+' AND TEMA_ID='+IntToStr(id_tema);
ClientDataSetQuery.Execute;
ClientDataSetVariant.Refresh;
end;
end else Abort;
end;
procedure TForm1.ClientDataSetTemaBeforeRefresh(DataSet: TDataSet);
begin
if ClientDataSetTema.ApplyUpdates(-1)<>0 then Abort;
end;
procedure TForm1.ClientDataSetPredmetBeforeRefresh(DataSet: TDataSet);
begin
if ClientDataSetPredmet.ApplyUpdates(-1)<>0 then Abort;
end;
procedure TForm1.MAboutClick(Sender: TObject);
begin
AboutFrm:=TAboutFrm.Create(self);
AboutFrm.ShowModal;
AboutFrm.Free;
end;
procedure TForm1.ClientDataSetVoprosBeforeRefresh(DataSet: TDataSet);
begin
if ClientDataSetVopros.ApplyUpdates(-1)<>0 then Abort;
end;
procedure TForm1.ClientDataSetVoprosAfterPost(DataSet: TDataSet);
begin
if ClientDataSetVopros.ApplyUpdates(-1)<>0 then
ClientDataSetVopros.Refresh
end;
procedure TForm1.ClientDataSetVariantAfterPost(DataSet: TDataSet);
116
begin
if ClientDataSetVariant.ApplyUpdates(-1)<>0 then ClientDataSetVariant.Refresh;
end;
procedure TForm1.ClientDataSetPredmetBeforeInsert(DataSet: TDataSet);
begin
PredmetAdd:=TPredmetAdd.Create(self);
PredmetAdd.Label1.Visible:=False;
PredmetAdd.Edit2.Visible:=False;
PredmetAdd.Caption:='Добавить новый предмет';
PredmetAdd.GroupBox1.Caption:='Укажите название предмета';
PredmetAdd.ShowModal;
if PredmetAdd.ModalResult=mrOk then
begin
ClientDataSetQuery.CommandText:=
'INSERT INTO PREDMET (PREDMET) VALUES( '+''''+PredmetAdd.Edit1.Text+''')';
ClientDataSetQuery.Execute;
ClientDataSetPredmet.Refresh;
Abort;
end else Abort;
PredmetAdd.Free;
end;
procedure TForm1.ClientDataSetTemaBeforeInsert(DataSet: TDataSet);
begin
PredmetAdd:=TPredmetAdd.Create(self);
PredmetAdd.Label1.Visible:=True;
PredmetAdd.Edit2.Visible:=True;
PredmetAdd.Caption:='Добавить новую тему';
PredmetAdd.GroupBox1.Caption:='Укажите название темы';
PredmetAdd.ShowModal;
if PredmetAdd.ModalResult=mrOk then
begin
ClientDataSetQuery.CommandText:=
'INSERT INTO TEMA (PREDMET_ID,TEMA,VOPROS_COUNT)'+
' VALUES( '+String(ClientDataSetPredmet.FieldValues['PREDMET_ID'])+','
+''''+PredmetAdd.Edit1.Text+''','+PredmetAdd.Edit2.Text+')';
ClientDataSetQuery.Execute;
ClientDataSetTema.Refresh;
Abort;
end else Abort;
PredmetAdd.Free;
end;
procedure TForm1.ClientDataSetVoprosAfterInsert(DataSet: TDataSet);
begin
{ if AddVoprosFrm.DBLookupComboBox2.Text='' then
begin
abort;
exit;
end;
DlgFrmAddVopros:=TDlgFrmAddVopros.Create(self);
117
DlgFrmAddVopros.ShowModal;
DlgFrmAddVopros.Free;}
end;
end.
Диалоговое окно добавление и редактирования пользователей
программного комплекса. Модуль Add_Edit_User.
unit Add_Edit_User;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TAddEditUserFrm = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AddEditUserFrm: TAddEditUserFrm;
implementation
uses Unit1,UserList, AddStudents, AddLectors;
{$R *.dfm}
procedure TAddEditUserFrm.FormCreate(Sender: TObject);
begin
if Not Edit_App_Flag then
begin
Edit1.Text:=Form1.ClientDataSetUser.FieldValues['LOGIN'];
Edit2.Text:=Form1.ClientDataSetUser.FieldValues['PASS'];
if not Form1.ClientDataSetUser.FieldValues['STATUS'] then
118
ComboBox1.ItemIndex:=0 else ComboBox1.ItemIndex:=1;
end;
end;
procedure TAddEditUserFrm.Button2Click(Sender: TObject);
begin
Close
end;
procedure TAddEditUserFrm.Button1Click(Sender: TObject);
var User_id:LongInt;
begin
if Edit1.Text='' then Exit;
with Form1 do
begin
if Edit_App_Flag then ClientDataSetUser.Append
else ClientDataSetUser.Edit;
ClientDataSetUser.FieldValues['LOGIN']:=Edit1.Text;
ClientDataSetUser.FieldValues['PASS']:=Edit2.Text;
ClientDataSetUser.FieldValues['STATUS']:=
Boolean(ComboBox1.ItemIndex);
ClientDataSetUser.Post;
try
if ClientDataSetUser.ApplyUpdates(-1)=0 then ClientDataSetUser.refresh;
except
on E:Exception do
MessageDLG(Format('Ошибка нет подключения к серверу: %S',[E.Message]),
mtError,[mbOK],0);
end;
if Edit_App_Flag then
begin
ClientDataSetUser.Last;
User_id:=ClientDataSetUser.FieldValues['USER_ID'];
end else User_id:=ClientDataSetUser.FieldValues['USER_ID'];
end; //with
if ComboBox1.ItemIndex=0 then
begin
Form1.ClientDataSetStudents.Open;
if Edit_App_Flag then Form1.ClientDataSetStudents.Append
else begin
Form1.ClientDataSetStudents.Locate('USER_ID',User_Id,[]);
Form1.ClientDataSetStudents.Edit;
end;
AddStudentsFrm:=TAddStudentsFrm.Create(Self);
AddStudentsFrm.ShowModal;
Form1.ClientDataSetStudents.FieldValues['USER_ID']:=User_id;
if AddStudentsFrm.ModalResult=mrOK then
begin
with Form1 do
begin
ClientDataSetStudents.FieldValues['KOD']:=StrToInt(AddStudentsFrm.Edit1.Text);
ClientDataSetStudents.FieldValues['FM']:=AddStudentsFrm.Edit2.Text;
119
ClientDataSetStudents.FieldValues['IM']:= AddStudentsFrm.Edit3.Text;
ClientDataSetStudents.FieldValues['OT']:=AddStudentsFrm.Edit4.Text;
ClientDataSetStudents.FieldValues['KURS']:=StrToInt(AddStudentsFrm.Edit5.Text);
ClientDataSetStudents.FieldValues['DATR']:=
StrToDate(AddStudentsFrm.MaskEdit1.Text);
ClientDataSetStudents.FieldValues['SPEC']:=AddStudentsFrm.Edit6.Text;
end;
end;
Form1.ClientDataSetStudents.Post;
try
if Form1.ClientDataSetStudents.ApplyUpdates(-1)=0 then
Form1.ClientDataSetStudents.refresh;
except
on E:Exception do
MessageDLG(Format('Ошибка нет подключения к серверу: %S',[E.Message]),
mtError,[mbOK],0);
end;
AddStudentsFrm.Free;
Form1.ClientDataSetStudents.Close;
end;// if ComboBox1.ItemIndex=0 then
if ComboBox1.ItemIndex=1 then
begin
Form1.ClientDataSetLectors.Open;
if Edit_App_Flag then Form1.ClientDataSetLectors.Append
else begin
Form1.ClientDataSetLectors.Locate('USER_ID',User_Id,[]);
Form1.ClientDataSetLectors.Edit;
end;
AddLectorsFrm:=TAddLectorsFrm.Create(Self);
AddLectorsFrm.ShowModal;
Form1.ClientDataSetLectors.FieldValues['USER_ID']:=User_id;
if AddLectorsFrm.ModalResult=mrOK then
begin
with Form1 do
begin
ClientDataSetLectors.FieldValues['FM']:=
AddLectorsFrm.Edit1.Text;
ClientDataSetLectors.FieldValues['IM']:=
AddLectorsFrm.Edit2.Text;
ClientDataSetLectors.FieldValues['OT']:=
AddLectorsFrm.Edit3.Text;
end;
end;
Form1.ClientDataSetLectors.Post;
try
if Form1.ClientDataSetLectors.ApplyUpdates(-1)=0 then
Form1.ClientDataSetLectors.refresh;
except
on E:Exception do
MessageDLG(Format('Ошибка нет подключения к серверу: %S',[E.Message]),
mtError,[mbOK],0);
end;
120
AddLectorsFrm.Free;
Form1.ClientDataSetLectors.Close;
end;
Close;
end;
end.
Модуль AddLectors. Добавление нового пользователя со статусом
«преподаватель».
unit AddLectors;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TAddLectorsFrm = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
GroupBox2: TGroupBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AddLectorsFrm: TAddLectorsFrm;
implementation
uses Unit1,UserList;
{$R *.dfm}
procedure TAddLectorsFrm.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') then Exit;
if (Edit2.Text='') then Exit;
121