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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
154
{ Private
поля
declarations }
public
CanClose:Boolean;
procedure ReadList;
{ Public
begin
declarations }
end;
var
UsersNewForm: TUsersNewForm;
implementation
uses DMUnit, MainUnit, SplashUnit;
{$R *.dfm}
procedure TUsersNewForm.ReadList;
VAR
I:Integer;
begin
DataModule1.UsersListOrgs.Value:='';
For
procedure
I:=0 to UsersNewForm.CheckListBox1.Items.Count-1 do
If
canclose
UsersNewForm.CheckListBox1.Checked[I] then
DataMod-
ule1.UsersListOrgs.Value:=DataModule1.UsersListOrgs.Value+UsersNewForm.CheckListBox1.Items[I]+'#';
end;
procedure
tmemo
TUsersNewForm.BitBtn2Click(Sender: TObject);
begin
DataModule1.UsersList.Cancel;
UsersNewForm.CanClose:=True;
Close;
end;
procedure
procedure
TUsersNewForm.DBEdit1KeyPress(Sender: TObject; var Key:
aboutunit
Char);
begin
Case
tshiftstate
key of
'А'..'Я','а'..'я',#1..#32:exit
else
taboutform
key:=#0;
end;
end;
155
procedure
begin
TUsersNewForm.BitBtn1Click(Sender: TObject);
begin
try
readlist;
DataModule1.UsersList.Post;
CanClose:=True;
Close;
except
ShowMessage('Не
then
все поля
canclose
заполнены!');
end;
end;
procedure
поля
TUsersNewForm.DBCheckBox1Click(Sender: TObject);
begin
If DBCheckBox1.Checked
tdbcheckbox
then
begin
DBCheckBox2.Enabled:=False;
DBCheckBox3.Enabled:=False;
end
else
begin
DBCheckBox2.Enabled:=True;
DBCheckBox3.Enabled:=True;
end
end;
procedure
begin
TUsersNewForm.BitBtn3Click(Sender: TObject);
begin
If BitBtn3.Tag=0 then
If UsersNewForm.Tag=0 then
begin
ShowMessage('Введите
tobject
новый пароль');
DBEdit2.Clear;
Edit1.Clear;
BitBtn3.Caption:='Сохранить';
BitBtn3.Tag:=1;
end
else
If InputBox('Ввод
tobject
пароля','Введите текущий
canclose
пароль','')=DataModule1.UsersListPassword.Value
canclose
then
begin
156
ShowMessage('Введите
сохранить
новый пароль');
DBEdit2.Clear;
Edit1.Clear;
BitBtn1.Caption:='Сохранить';
BitBtn1.Tag:=1;
end
else
поля
ShowMessage('Пароль неверный')
then
else
begin
If
canclose
DBEdit2.Text=Edit1.Text then
begin
DBEdit2.Enabled:=False;
Edit1.Enabled:=False;
BitBtn1.Tag:=0;
BitBtn1.Caption:='Установить';
ShowMessage('Пароль
else
успешно изменен');
end
else
If MessageDlg('Введенные
begin
значения не
tbitbtn
совпадают.Повторить еще
begin
раз.',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
Edit1.Clear;
DBedit2.Clear;
end
else
begin
BitBtn1.Tag:=0;
BitBtn1.Caption:='Установить';
end;
end;
end;
procedure TUsersNewForm.FormCloseQuery(Sender: TObject;
var
taboutform
CanClose:
tedit
Boolean);
begin
CanClose:=UsersNewForm.CanClose;
end;
procedure
else
TUsersNewForm.DBCheckBox2Click(Sender: TObject);
begin
If DBCheckBox2.Checked
unit
then
begin
157
DBCheckBox1.Enabled:=False;
DBCheckBox3.Enabled:=False;
end
else
begin
DBCheckBox1.Enabled:=True;
DBCheckBox3.Enabled:=True;
end
end;
procedure
procedure
TUsersNewForm.DBCheckBox3Click(Sender: TObject);
begin
If DBCheckBox3.Checked
begin
then
begin
DBCheckBox2.Enabled:=False;
DBCheckBox1.Enabled:=False;
end
else
begin
DBCheckBox2.Enabled:=True;
DBCheckBox1.Enabled:=True;
end
end;
end.
AboutUnit.pas
unit AboutUnit;
interface
uses
Windows,
tobject
Messages, SysUtils, Variants,
tlabel
Classes, Graphics,
tlabel
Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, StdCtrls;
type
TAboutForm = class(TForm)
TreeView1: TTreeView;
Memo2: TMemo;
procedure
then
TreeView1Click(Sender: TObject);
procedure
procedure
Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState;
новый
X, Y: Integer);
procedure FormShow(Sender: TObject);
158
procedure
tlabel
Memo1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled:
then
Boolean);
private
{ Private
canclose
declarations }
public
{ Public
uses
declarations }
end;
var
AboutForm: TAboutForm;
implementation
uses MainUnit;
{$R *.dfm}
procedure
begin
TAboutForm.TreeView1Click(Sender: TObject);
VAR
F:TextFile;
S:String;
установить
Found:Boolean;
begin
Found:=False;
Memo2.Clear;
repeat
AssignFile(F,MainForm.CurDir+'/data/About.txt');
Reset(F);
repeat
begin
readln(F,s);
If
begin
s=inttostr(TreeView1.Selected.AbsoluteIndex) then
except
Found:=True;
until (Found) or eof(F) ;
If eof(F) and
tdbcheckbox
not Found
procedure
then Memo2.Lines.Add('Информации
tdbcheckbox
по указанному
procedure
элементу нет.')
else
while
procedure
not (s='*') do
begin
readln(F,s);
If
begin
not (s='*') then
found
Memo2.Lines.Add(S);
end;
tusersnewform
CloseFile(F);
end;
procedure
interface
TAboutForm.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Источник: https://baza.diplomsite.ru/previewfile/2254

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

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