Материал: Автоматизация управления персоналом в АО "Киномакс" г. Краснодар

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
149
Begin
Edit1.Clear;
MainForm.Show;
end
Else
ShowMessage('Пароль не верный!');
end;
end.
SmenaUsersUnit.pas
unit SmenaUsersUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, Mask, Buttons;
type
TSmenaUsersForm = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Edit1: TEdit;
DBLookupComboBox1: TDBLookupComboBox;
Edit2: TEdit;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
CanClose:Boolean;
{ Public declarations }
end;
var
SmenaUsersForm: TSmenaUsersForm;
implementation
150
uses DMUnit, MainUnit;
{$R *.dfm}
procedure TSmenaUsersForm.BitBtn2Click(Sender: TObject);
begin
Close;
CanClose:=True;
end;
procedure TSmenaUsersForm.BitBtn1Click(Sender: TObject);
VAR
I:Integer;
begin
MainForm.ReadOrgList(DBLookupCombobox1.Text);
If not (DBLookupComboBox1.Text='') then
If MainForm.LOrg.Find(DataModule1.OrgListNameOrg.Value,I) then
If DataModule1.UsersListPassword.Value=Edit1.Text Then
If Edit1.Text=Edit2.Text then
begin
MainForm.CurOrg:=DataModule1.OrgListNameOrg.Value;
MainForm.CurUser:=DataModule1.UsersListNameUser.Value;
MainForm.Label7.Caption:=inttostr(DataModule1.CardList.RecordCount);
CanClose:=True;
Close;
end
else
else
begin
SmenaUsersForm.Edit1.Clear;
SmenaUsersForm.Edit2.Clear;
ShowMessage('Пароль неверный!');
end
else
Begin
SmenaUsersForm.Edit1.Clear;
SmenaUsersForm.Edit2.Clear;
ShowMessage('Данный пользователь не имеет доступа к данным выбранной организации!')
End
else
ShowMessage('Не выбран пользователь!');
151
end;
procedure TSmenaUsersForm.FormShow(Sender: TObject);
begin
CanClose:=False;
end;
end.
OrgNewUnit.pas
unit OrgNewUnit;
interface
uses
Windows,
begin
Messages, SysUtils, Variants,
tpoint
Classes, Graphics,
uses
Controls, Forms,
Dialogs,
поля
StdCtrls, Buttons,
tobject
Mask, DBCtrls;
type
TOrgNewForm = class(TForm)
Label1: TLabel;
Label2: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure
procedure
BitBtn2Click(Sender: TObject);
procedure
текущий
DBEdit1KeyPress(Sender: TObject; var Key:
aboutunit
Char);
procedure FormKeyPress(Sender: TObject; var Key:
procedure
Char);
procedure
tdbcheckbox
BitBtn1Click(Sender: TObject);
procedure
tobject
DBEdit2KeyPress(Sender: TObject; var Key:
then
Char);
private
{ Private
begin
declarations }
public
CanClose:Boolean;
{ Public
tobject
declarations }
end;
var
OrgNewForm: TOrgNewForm;
implementation
152
uses DMUnit;
{$R *.dfm}
procedure
tbitbtn
TOrgNewForm.BitBtn2Click(Sender: TObject);
begin
DataModule1.OrgList.Cancel;
CanClose:=True;
Close;
end;
procedure
aboutform
TOrgNewForm.DBEdit1KeyPress(Sender: TObject; var Key:
canclose
Char);
begin
Case
procedure
key of
'А'..'Я','а'..'я',#1..#32:exit
else
uses
key:=#0;
end;
end;
procedure TOrgNewForm.FormKeyPress(Sender: TObject; var Key:
procedure
Char);
begin
Case
новый
key of
'А'..'Я','а'..'я',#1..#32:exit
else
private
key:=#0;
end;
end;
procedure
else
TOrgNewForm.BitBtn1Click(Sender: TObject);
begin
try
DataModule1.OrgList.Post;
CanClose:=True;
Close;
except
ShowMessage('Не
else
все поля
stdctrls
заполнены!');
end;
end;
procedure
tobject
TOrgNewForm.DBEdit2KeyPress(Sender: TObject; var Key:
procedure
Char);
begin
Case
begin
key of
153
'А'..'Я','а'..'я',#1..#32:exit
else
tdbedit
key:=#0;
end;
end;
end.
UserNewUnit.pas
unit UsersNewUnit;
interface
uses
Windows,
assignfile
Messages, SysUtils, Variants,
canclose
Classes, Graphics,
begin
Controls, Forms,
Dialogs, StdCtrls,
begin
Buttons, DBCtrls, CheckLst, Mask;
type
TUsersNewForm = class(TForm)
Label1: TLabel;
DBEdit1: TDBEdit;
GroupBox1: TGroupBox;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
Edit1: TEdit;
GroupBox2: TGroupBox;
Label4: TLabel;
CheckListBox1: TCheckListBox;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
DBCheckBox3: TDBCheckBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
procedure
tbitbtn
BitBtn2Click(Sender: TObject);
procedure
tobject
DBEdit1KeyPress(Sender: TObject; var Key:
tshiftstate
Char);
procedure
поля
BitBtn1Click(Sender: TObject);
procedure
then
DBCheckBox1Click(Sender: TObject);
procedure
tobject
BitBtn3Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var
tbitbtn
CanClose:
procedure
Boolean);
procedure
private
DBCheckBox2Click(Sender: TObject);
procedure
tobject
DBCheckBox3Click(Sender: TObject);
private
Источник: https://baza.diplomsite.ru/previewfile/2254

Смотрите также:

Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Изложение содержания дела, по которому приняты судебные постановления