Модуль данных - связь бизнес-уровня и графического интерфейса

unit Data;

interface

uses

SysUtils, Classes, BoldUMLModelLink, BoldUMLRose98Link, BoldHandle,

BoldPersistenceHandle, BoldPersistenceHandleFile,

BoldPersistenceHandleFileXML, BoldAbstractModel, BoldModel, BoldHandles,

BoldRootedHandles, BoldAbstractListHandle, BoldCursorHandle,

BoldListHandle, BoldSubscription, BoldSystemHandle, BusinessClasses;

type

TDataShop = class(TDataModule)

BoldSystemHandleShop: TBoldSystemHandle;

BoldSystemTypeInfoHandleShop: TBoldSystemTypeInfoHandle;

ListShopName: TBoldListHandle;

ShopModel: TBoldModel;

BoldPersistenceHandleFileXMLShop: TBoldPersistenceHandleFileXML;

BoldUMLRoseLinkShop: TBoldUMLRoseLink;

ListAdmin: TBoldListHandle;

ListOtdels: TBoldListHandle;

ListGroups: TBoldListHandle;

ListOtdelGroups: TBoldListHandle;

ListBases: TBoldListHandle;

ListOtdelsGroupTovar: TBoldListHandle;

ListShop: TBoldListHandle;

ListShopOtdel: TBoldListHandle;

ListBaseGroup: TBoldListHandle;

ListBaseGroupTovar: TBoldListHandle;

ListTovar: TBoldListHandle;

ListShopBase: TBoldListHandle;

ListBaseTovar: TBoldListHandle;

ListProdazha: TBoldListHandle;

ListZakupka: TBoldListHandle;

ListGroupTovar: TBoldListHandle;

ListProdazhaOtchet: TBoldListHandle;

ListZakupkaOtchet: TBoldListHandle;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataShop: TDataShop;

implementation

{$R *.dfm}

end.

Модуль смены пароля администратора

unit Ad_change_pass;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Buttons;

type

TChangePass = class(TForm)

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

LabeledEdit3: TLabeledEdit;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

procedure shif(filename, pas, input: string); external 'shifr.dll';

function deshif(filename, pas: string):string; external 'shifr.dll';

var

ChangePass: TChangePass;

pass, new_pass: string;

implementation

{$R *.dfm}

//Закрытие формы

procedure TChangePass.SpeedButton2Click(Sender: TObject);

begin

ChangePass.Close;

end;

//Смена пароля

procedure TChangePass.SpeedButton1Click(Sender: TObject);

begin

pass:=deshif('password.psw','23031985');

if LabeledEdit1.Text<>'' then

if LabeledEdit1.Text=pass then

if (pass<>LabeledEdit2.Text) then

if (LabeledEdit2.Text=LabeledEdit3.Text)and(LabeledEdit2.Text<>'') then

begin

new_pass:=LabeledEdit2.Text;

shif('password.psw','23031985',new_pass);

MessageDlg('Пароль успешно изменен!',mtInformation,[mbok],0);

ChangePass.Close;

end

else MessageDlg('Новые пароли не совпадают, либо не заданы!',mtInformation,[mbok],0)

else MessageDlg('Новый пароль совпадает со старым!',mtInformation,[mbok],0)

else MessageDlg('Не верный пароль!',mtInformation,[mbok],0);

end;

end.