Курсовые работы / ПРИС П _27

// то выдаём сообщение

MessageDlg('Не верный пароль!!!',mtError, [mbOk], 0) else // иначе

begin flag:=false;

//если основная форма еще не создана, то создаём, то есть это вход в систему

if not flag then begin

MainMenuForm:= TMainMenuForm.Create(self); // создание формы основного меню

flag:=true;

end;

// вывод формы основного меню на экран

MainMenuForm.Show;

//устанавливаем ограничения в соответствии с пользователем if posetitel='Гость' then

begin MainMenuForm.N2.Enabled:=false; MainMenuForm.N8.Enabled:=false; MainMenuForm.N12.Enabled:=false; MainMenuForm.N3.Enabled:=false; MainMenuForm.N1.Enabled:=true; MainMenuForm.N4.Enabled:=true; MainMenuForm.N11.Enabled:=true; MainMenuForm.N12.Enabled:=true; MainMenuForm.N13.Enabled:=false; MainMenuForm.N14.Enabled:=false; MainMenuForm.N17.Enabled:=true; MainMenuForm.N22.Enabled:=true; MainMenuForm.N18.Enabled:=false; MainMenuForm.N19.Enabled:=false; MainMenuForm.N20.Enabled:=false; MainMenuForm.N21.Enabled:=false; MainMenuForm.N23.Enabled:=false;

// Main_MenuForm.ServiceN.Enabled:=false; end;

if posetitel='Менеджер' then begin

MainMenuForm.N1.Enabled:=true;

MainMenuForm.N2.Enabled:=true;

MainMenuForm.N8.Enabled:=true;

MainMenuForm.N11.Enabled:=true;

MainMenuForm.N12.Enabled:=true;

MainMenuForm.N13.Enabled:=false;

MainMenuForm.N14.Enabled:=false;

MainMenuForm.N15.Enabled:=true;

MainMenuForm.N17.Enabled:=true;

MainMenuForm.N18.Enabled:=false;

MainMenuForm.N19.Enabled:=false;

MainMenuForm.N20.Enabled:=false;

MainMenuForm.N21.Enabled:=false;

MainMenuForm.N22.Enabled:=true;

MainMenuForm.N23.Enabled:=false;

end;

if posetitel='Администратор'then begin

MainMenuForm.N1.Enabled:=true;

MainMenuForm.N2.Enabled:=true;

MainMenuForm.N8.Enabled:=true;

MainMenuForm.N11.Enabled:=true;

MainMenuForm.N12.Enabled:=true;

MainMenuForm.N15.Enabled:=true;

end;

// скрываем форму

VhodForm.Hide;

DM.VhodQuery.SQL.Clear;

DM.VhodQuery.Close;

end // пользователь не выбран

else MessageDlg('Укажите пользователя',mtWarning, [mbOk], 0);

end;

procedure TVhodForm.FormShow(Sender: TObject); var DBPath:widestring; //путь к БД

F :TIniFile; // файл с путем к БД

begin

//если происходит исключительная ситуация, то предлагаем пользователю связать с БД

try DM.ADOConnection1.Open; except

//если пользователь соглашается то запускаем диалог открытия

if MessageDlg('Возможно утеряна связь с БД. Связать?',mtError, [mbYes, mbNo], 0)=6 then

begin

F:=TiniFile.Create(ExtractFilePath(Application.ExeName)+'Options.ini'); if OpenDialog1.Execute then

begin DM.ADOConnection1.Close;

DBPath:=ExtractFilePath(OpenDialog1.FileName); F.WriteString('Section_DBPath','Path',DBPath); DM.ADOConnection1.Open;

end;

F.Free;

end;

end;

DM.VhodQuery.SQL.Clear; DM.VhodQuery.SQL.Add('SELECT * FROM PWDTBL;'); DM.VhodQuery.Open;

end;

end.

unit AccessDB;

interface

uses

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

Dialogs, ExtCtrls, Menus,inifiles,DataModule;

function data(data:tdatetime):string; function Update(rs,tab,temp:string):boolean; function Delete(rs,tab,temp:string):boolean;

Procedure Zan(rs,tab,temp:string;tm:integer);

implementation var tmp:string;

tm:integer;

function data (data:tdatetime):string; var g,m,d:word;

begin decodedate(data,g,m,d);

result:=''+currtostr(m)+'/'+currtostr(d)+'/'+currtostr(g)+'';

end;

function Update(rs,tab,temp:string):boolean; begin

dm.temp.Active:=false;

dm.temp.CommandText:='Select log_'+rs+' from '+tab+' where (id_'+rs+'='+temp+')';

dm.temp.Active:=true;

if dm.temp.Fields[0].AsBoolean=true then begin

result:=false; end

else begin

dm.ADOCommand1.CommandText:='Update '+tab+' set log_'+rs+'=TRUE where id_'+rs+'='+temp+'';

dm.ADOCommand1.Execute;

result:=true;

end;

end;

function Delete(rs,tab,temp:string):boolean; begin

dm.temp.Active:=false;

dm.temp.CommandText:='Select log_'+rs+' from '+tab+' where (id_'+rs+'='+temp+')';

dm.temp.Active:=true;

if dm.temp.Fields[0].AsBoolean=true then begin

result:=false; end

else if application.MessageBox('Вы хотите удалить запись?','Удаление',mb_yesno+mb_iconquestion)=idyes then

begin

dm.ADOCommand1.CommandText:='Delete * from '+tab+' where (id_'+rs+'='+temp+')';

dm.ADOCommand1.Execute;

result:=true;

end;

end;

Procedure Zan(rs,tab,temp:string;tm:integer); begin

if tm=1 then begin

dm.ADOCommand1.CommandText:='Update '+tab+' set log_'+rs+'=FALSE WHERE (id_'+rs+'='+temp+')';

dm.ADOCommand1.Execute;

end;

end;

end.

unit MainMenuUnit;

interface

uses

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

Dialogs, Menus, inifiles;

type

TMainMenuForm = class(TForm) MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem; OpenDialog1: TOpenDialog; N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

procedure N4Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N13Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N17Click(Sender: TObject); procedure N16Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure N18Click(Sender: TObject);

procedure N21Click(Sender: TObject); procedure N19Click(Sender: TObject); procedure N20Click(Sender: TObject); procedure N22Click(Sender: TObject); procedure N23Click(Sender: TObject);

private

{Private declarations } public

{Public declarations } end;

var

MainMenuForm: TMainMenuForm;

implementation

uses DataModule, TuroperatorUnit, MarshrutUnit, StoimostUnit, KlientUnit,

PutevkaUnit, PassChangeUnit, VhodUnit, OtchPutUnit, OtchMarFormUnit,

OtchOpUnit, OtchPribUnit, OtchPriceUnit, OtchDohodUnit; {$R *.dfm}

procedure TMainMenuForm.N4Click(Sender: TObject); begin

Application.Terminate;

end;

procedure TMainMenuForm.N3Click(Sender: TObject); var F:TiniFile;//дискриптор ini-файла

DBPath:widestring; //путь к БД begin

//создаём объект Ini-файла, ассоциируя его с физическим файлом на диске

F:=TiniFile.Create(ExtractFilePath(Application.ExeName)+'Options.ini');

//запускаем диалог открытия, если запущен успешно, то...

if OpenDialog1.Execute then begin

//сохраняем указанный в диалоговом окне пользователем путь

DBPath:=ExtractFilePath(OpenDialog1.FileName);

//записываем в раздел Section_DBPath значение переменной DBPath в параметр Path ini-файла

F.WriteString('Section_DBPath','Path',DBPath); DM.ADOConnection1.Close;

//формируем ConnectionString

DM.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLE DB.4.0;Data Source='+DBPath+'Turagentstvo.mdb;Persist Security Info=False';

//открываем соединение

DM.ADOConnection1.Open;

end;

// освобождаем память

F.Free;

end;

procedure TMainMenuForm.N5Click(Sender: TObject); begin TuroperatorForm:=TTuroperatorForm.Create(self); TuroperatorForm.ShowModal;

end;

procedure TMainMenuForm.N6Click(Sender: TObject); begin

MarshrutForm:=TMarshrutForm.Create(self);

MarshrutForm.ShowModal;

end;

procedure TMainMenuForm.N7Click(Sender: TObject); begin

StoimostForm:=TStoimostForm.Create(self);

StoimostForm.ShowModal;

end;

procedure TMainMenuForm.N9Click(Sender: TObject);