Диплом: Автоматизация учета рабочего времени и расчета заработной платы на предприятии ОАО "Пелла"

Поиск по базе
Скачать
Заказать новую работу
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
97
procedure view_dbgrid;
procedure add_sotrudnik;
procedure update_sotrudnik;
procedure view_sotrudnik;
procedure FormShow(Sender: TObject);
procedure view_dolgnost;
procedure DBGrid_otdelCellClick(Column: TColumn);
procedure CheckBox_loginClick(Sender: TObject);
procedure view_otdel;
procedure view_dbgrid_otdel;
procedure view_dbgrid_dolgnost;
procedure view_dolgnost_view;
procedure DBGrid_zavodCellClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_sotrudnik: TForm_sotrudnik;
implementation
uses datamodule;
{$R *.dfm}
procedure TForm_sotrudnik.view_dbgrid;
begin
form_sotrudnik.DBGrid_sotrudnik.Columns[0].Width := 70;
form_sotrudnik.DBGrid_sotrudnik.Columns[1].Width := 150;
form_sotrudnik.DBGrid_sotrudnik.Columns[2].Width := 150;
form_sotrudnik.DBGrid_sotrudnik.Columns[3].Width := 150;
form_sotrudnik.DBGrid_sotrudnik.Columns[4].Width := 70; //телефон
form_sotrudnik.DBGrid_sotrudnik.Columns[5].Width := 150;
form_sotrudnik.DBGrid_sotrudnik.Columns[6].Width := 150;
form_sotrudnik.DBGrid_sotrudnik.Columns[7].Width := 150;//должность
form_sotrudnik.DBGrid_sotrudnik.Columns[8].Width := 150;
form_sotrudnik.DBGrid_sotrudnik.Columns[9].Width := 100;
form_sotrudnik.DBGrid_sotrudnik.Columns[10].Width := 100;
end;
procedure TForm_sotrudnik.clear_label;
begin
form_sotrudnik.Label2.Caption := '';
98
form_sotrudnik.Label3.Caption := ''; form_sotrudnik.Label7.Caption := '';
form_sotrudnik.Label8.Caption := ''; form_sotrudnik.Label9.Caption := '';
form_sotrudnik.Label10.Caption := ''; form_sotrudnik.Label26.Caption := '';
form_sotrudnik.Label27.Caption := '';end;
procedure TForm_sotrudnik.DBGrid_otdelCellClick(Column: TColumn);
begin view_dolgnost; end;
procedure TForm_sotrudnik.DBGrid_zavodCellClick(Column: TColumn);
begin view_otdel; view_dolgnost; end;
procedure TForm_sotrudnik.Button_addClick(Sender: TObject);
var run_procedure : boolean;
buf_zapros, buf_kav : string;
begin
clear_label; run_procedure := True; buf_kav := '''';
//проверяю введенные данные
if length(form_sotrudnik.Edit_tabel.Text) < 8 then
begin
run_procedure := False;
form_sotrudnik.Label2.Caption := 'Табельный номер меньше 8';
end
else
if form_sotrudnik.Button_add.Caption = 'Добавить' then
begin
buf_zapros :='SELECT tabel_nomer FROM sotrudnik WHERE tabel_nomer
='+buf_kav+form_sotrudnik.Edit_tabel.Text+buf_kav+';';
datamodule1.Query_buf.Close; datamodule1.Query_buf.SQL.Clear;
datamodule1.Query_buf.SQL.Text := buf_zapros;
datamodule1.Query_buf.Open; if datamodule1.Query_buf.RecordCount <> 0 then
begin
run_procedure := False;
form_sotrudnik.Label2.Caption := 'Такой номер есть в БД';
end;
end;
if length(Form_sotrudnik.Edit_family.Text) = 0 then
begin run_procedure := False; form_sotrudnik.Label3.Caption := 'Не введена фамилия';
end;
if length(form_sotrudnik.Edit_name.Text) = 0 then
begin
run_procedure := False; form_sotrudnik.Label7.Caption := 'Не введено имя';
end;
if length(form_sotrudnik.Edit_secondname.Text) = 0 then
99
begin
run_procedure := False; form_sotrudnik.Label8.Caption := 'Не введено отчество';
end;
if length(form_sotrudnik.Edit_phone.Text) = 0 then
begin run_procedure := False; form_sotrudnik.Label9.Caption := 'Не введен телефон';
end;
if (length(Form_sotrudnik.Edit_login.Text) <> 0) AND (length(form_sotrudnik.Edit_password.Text) <> 0) then
begin if length(Form_sotrudnik.Edit_login.Text) = 0 then begin
run_procedure := False; form_sotrudnik.Label26.Caption := 'Не введен логин'; end
else
if form_sotrudnik.Button_add.Caption = 'Добавить' then
begin
buf_zapros := 'SELECT login FROM login_password WHERE login =
'+buf_kav+form_sotrudnik.Edit_login.Text+buf_kav+';';
datamodule1.Query_buf.Close; datamodule1.Query_buf.SQL.Clear;
datamodule1.Query_buf.SQL.Text := buf_zapros; datamodule1.Query_buf.Open;
if datamodule1.Query_buf.RecordCount <> 0 then
begin
run_procedure := False; form_sotrudnik.Label26.Caption := 'Такой логин есть в БД'; end;
end;
if length(form_sotrudnik.Edit_password.Text) < 8 then
begin run_procedure := False; form_sotrudnik.Label27.Caption := 'Пароль меньше 8 символов';
end; end;
if form_sotrudnik.DBGrid_dolgnost.DataSource.DataSet.RecordCount = 0 then
begin
run_procedure := False; form_sotrudnik.Label10.Caption := 'Не выбрана должность';
end;
//проверка закнчена
if run_procedure then begin
if form_sotrudnik.Button_add.Caption = 'Добавить' then
add_sotrudnik;
if form_sotrudnik.Button_add.Caption = 'Исправить' then
update_sotrudnik; end; end;
procedure TForm_sotrudnik.update_sotrudnik;
var buf_kav, buf_zapros : string;
begin buf_kav := '''';
if (length(Form_sotrudnik.Edit_login.Text) <> 0) AND (length(form_sotrudnik.Edit_password.Text) <> 0) then
begin
buf_zapros := 'UPDATE login_password SET login = '+buf_kav+form_sotrudnik.Edit_login.Text+buf_kav+','
+'password_user= '+buf_kav+form_sotrudnik.Edit_password.Text+buf_kav
100
+' WHERE login = '+buf_kav+form_sotrudnik.Label_login.Caption+buf_kav+';';
datamodule1.Query_buf.Close; datamodule1.Query_buf.SQL.Clear;
datamodule1.Query_buf.SQL.Text := buf_zapros; datamodule1.Query_buf.ExecSQL;
buf_zapros :='UPDATE sotrudnik SET tabel_nomer = '+buf_kav+form_sotrudnik.Edit_tabel.Text+buf_kav+','
+'Family = '+buf_kav+form_sotrudnik.Edit_family.Text+buf_kav+','
+'First_name ='+buf_kav+form_sotrudnik.Edit_name.Text+buf_kav+','
+'second_name = '+buf_kav+form_sotrudnik.Edit_secondname.Text+buf_kav+','
+'id_dolgnost =
'+form_sotrudnik.DBGrid_dolgnost.DataSource.DataSet.FieldByName('id_dolgnost').AsString+','
+'phone = '+buf_kav+form_sotrudnik.Edit_phone.Text+buf_kav+','
+'login = '+buf_kav+form_sotrudnik.Edit_login.Text+buf_kav+','
+'dostup = ' +form_sotrudnik.DBGrid_dostup.DataSource.DataSet.FieldByName('id_dostup').AsString
+' WHERE tabel_nomer = '+buf_kav+form_sotrudnik.Label_tabel.Caption+buf_kav+';';
end
else
buf_zapros :='UPDATE sotrudnik SET tabel_nomer = '+buf_kav+form_sotrudnik.Edit_tabel.Text+buf_kav+','
+'Family = '+buf_kav+form_sotrudnik.Edit_family.Text+buf_kav+','
+'First_name ='+buf_kav+form_sotrudnik.Edit_name.Text+buf_kav+','
+'second_name = '+buf_kav+form_sotrudnik.Edit_secondname.Text+buf_kav+','
+'id_dolgnost =
'+form_sotrudnik.DBGrid_dolgnost.DataSource.DataSet.FieldByName('id_dolgnost').AsString+','
+'phone = '+buf_kav+form_sotrudnik.Edit_phone.Text+buf_kav
+' WHERE tabel_nomer = '+buf_kav+form_sotrudnik.Label_tabel.Caption+buf_kav+';';
datamodule1.Query_buf.Close; datamodule1.Query_buf.SQL.Clear;
datamodule1.Query_buf.SQL.Text := buf_zapros; datamodule1.Query_buf.ExecSQL;
//чищу поля ввода
form_sotrudnik.Edit_tabel.Text := ''; form_sotrudnik.Edit_family.Text := '';
form_sotrudnik.Edit_name.Text := ''; form_sotrudnik.Edit_secondname.Text := '';
form_sotrudnik.Edit_phone.Text := ''; form_sotrudnik.Edit_login.Text := '';
form_sotrudnik.Edit_password.Text := '';
//обновляю данные на фоме
datamodule1.Query_view_sotrudnik.Active := False; datamodule1.Query_view_sotrudnik.Active := True;
view_dbgrid;
//переименовываю кнопку
form_sotrudnik.Button_add.Caption := 'Добавить';end;
procedure TForm_sotrudnik.add_sotrudnik;
var buf_kav, buf_zapros : string;
begin
buf_kav := '''';
if (length(Form_sotrudnik.Edit_login.Text) <> 0) AND (length(form_sotrudnik.Edit_password.Text) <> 0) then
101
begin
buf_zapros := 'INSERT INTO login_password (login,password_user) VALUES ('
+buf_kav+form_sotrudnik.Edit_login.Text+buf_kav+','
+buf_kav+form_sotrudnik.Edit_password.Text+buf_kav+');';
datamodule1.Query_buf.Close; datamodule1.Query_buf.SQL.Clear;
datamodule1.Query_buf.SQL.Text := buf_zapros; datamodule1.Query_buf.ExecSQL;
buf_zapros :='INSERT INTO sotrudnik (tabel_nomer,Family,First_name,second_name, id_dolgnost, phone,
login,dostup) VALUES ('
+buf_kav+form_sotrudnik.Edit_tabel.Text+buf_kav+','
+buf_kav+form_sotrudnik.Edit_family.Text+buf_kav+','
+buf_kav+form_sotrudnik.Edit_name.Text+buf_kav+','
+buf_kav+form_sotrudnik.Edit_secondname.Text+buf_kav+','
+form_sotrudnik.DBGrid_dolgnost.DataSource.DataSet.FieldByName('id_dolgnost').AsString+','
+buf_kav+form_sotrudnik.Edit_phone.Text+buf_kav+','
+buf_kav+form_sotrudnik.Edit_login.Text+buf_kav+','
+form_sotrudnik.DBGrid_dostup.DataSource.DataSet.FieldByName('id_dostup').AsString+');';
end else
buf_zapros :='INSERT INTO sotrudnik (tabel_nomer,Family,First_name,second_name, id_dolgnost, phone)
VALUES ('
+buf_kav+form_sotrudnik.Edit_tabel.Text+buf_kav+','
+buf_kav+form_sotrudnik.Edit_family.Text+buf_kav+','
+buf_kav+form_sotrudnik.Edit_name.Text+buf_kav+','
+buf_kav+form_sotrudnik.Edit_secondname.Text+buf_kav+','
+form_sotrudnik.DBGrid_dolgnost.DataSource.DataSet.FieldByName('id_dolgnost').AsString+','
+buf_kav+form_sotrudnik.Edit_phone.Text+buf_kav
+');';
datamodule1.Query_buf.Close; datamodule1.Query_buf.SQL.Clear;
datamodule1.Query_buf.SQL.Text := buf_zapros; datamodule1.Query_buf.ExecSQL;
//чищу поля ввода
form_sotrudnik.Edit_tabel.Text := ''; form_sotrudnik.Edit_family.Text := '';
form_sotrudnik.Edit_name.Text := ''; form_sotrudnik.Edit_secondname.Text := '';
form_sotrudnik.Edit_phone.Text := ''; form_sotrudnik.Edit_login.Text := '';
form_sotrudnik.Edit_password.Text := '';
//обновляю данные на фоме
datamodule1.Query_view_sotrudnik.Active := False; datamodule1.Query_view_sotrudnik.Active := True;
view_dbgrid;
end;
procedure TForm_sotrudnik.Button_deleteClick(Sender: TObject);
var buf_zapros, buf_kav, buf_login : string;
begin
102
buf_kav := '''';
if form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.RecordCount <> 0 then
begin
buf_login := form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.FieldByName('Логин').AsString;
buf_zapros := 'DELETE FROM sotrudnik WHERE tabel_nomer
='+buf_kav+form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.FieldByName('Табель_номер').AsString+buf_
kav+';';
datamodule1.Query_buf.Close; datamodule1.Query_buf.SQL.Clear;
datamodule1.Query_buf.SQL.Text := buf_zapros; datamodule1.Query_buf.ExecSQL;
datamodule1.Query_buf.Close;
buf_zapros := 'DELETE FROM login_password WHERE login = '+buf_kav+buf_login+buf_kav+';';
datamodule1.Query_buf.Close; datamodule1.Query_buf.SQL.Clear;
datamodule1.Query_buf.SQL.Text := buf_zapros; datamodule1.Query_buf.ExecSQL;
datamodule1.Query_buf.Close;
datamodule1.Query_view_sotrudnik.Active := False; datamodule1.Query_view_sotrudnik.Active := True;
view_dbgrid;
end;
end;
procedure TForm_sotrudnik.Button_updateClick(Sender: TObject);
begin
form_sotrudnik.Edit_tabel.Text :=
form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.FieldByName('Табель_номер').AsString;
form_sotrudnik.Label_tabel.Caption :=
form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.FieldByName('Табель_номер').AsString;
form_sotrudnik.Edit_family.Text :=
form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.FieldByName('Фамилия').AsString;
form_sotrudnik.Edit_name.Text :=
form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.FieldByName('Имя').AsString;
form_sotrudnik.Edit_secondname.Text :=
form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.FieldByName('Отчество').AsString;
form_sotrudnik.Edit_phone.Text :=
form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.FieldByName('Телефон').AsString;
//вывожу предприятие
form_sotrudnik.DBGrid_zavod.DataSource.DataSet.Locate('name_zavod',form_sotrudnik.DBGrid_sotrudnik.DataS
ource.DataSet.FieldByName('Предприятие').AsString,[]);
//вывожу
должностьform_sotrudnik.DBGrid_otdel.DataSource.DataSet.Locate('Название_отдела',form_sotrudnik.DBGrid_
sotrudnik.DataSource.DataSet.FieldByName('Отдел').AsString,[]);
view_dolgnost;
103
datamodule1.Query_view_dolgnost.Locate('Должность',form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.Fi
eldByName('Должность').AsString,[]);
form_sotrudnik.Edit_login.Text :=
form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.FieldByName('Логин').AsString;
datamodule1.Table_dostup.Locate('name_dostup',form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.FieldByN
ame('Уровень_доступа').AsString,[]);
form_sotrudnik.Label_login.Caption :=
form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.FieldByName('Логин').AsString;
form_sotrudnik.Button_add.Caption := 'Исправить';
end;
procedure TForm_sotrudnik.CheckBox_loginClick(Sender: TObject);
begin
if form_sotrudnik.CheckBox_login.Checked = True then form_sotrudnik.GroupBox_login.Visible := False
else
form_sotrudnik.GroupBox_login.Visible := True;end;
procedure TForm_sotrudnik.FormCreate(Sender: TObject);
var buf_zapros : string;
begin clear_label;end;
procedure TForm_sotrudnik.FormShow(Sender: TObject);
begin
datamodule1.Table_zavod.active := False; datamodule1.Table_zavod.active := True;
datamodule1.Table_zavod_view.Active := False; datamodule1.Table_zavod_view.Active := True;
view_sotrudnik; view_otdel; view_dolgnost;
end;
procedure TForm_sotrudnik.view_sotrudnik;
var buf_kav, buf_zapros : string;
begin
buf_zapros := 'SELECT sotrudnik.tabel_nomer as Табель_номер, sotrudnik.family as Фамилия,
sotrudnik.first_name as Имя, '
+' sotrudnik.second_name as Отчество, sotrudnik.phone as Телефон, zavod.name_zavod as Предприятие,
otdel.name_otdel as'
+' Отдел, dolgnost.name_dolgnost as Должность, dolgnost.oklad as Оклад, login_password.login as Логин,
dostup.name_dostup as Уровень_доступа '
+' FROM dostup RIGHT JOIN (login_password RIGHT JOIN ((zavod INNER JOIN (otdel INNER JOIN
dolgnost ON otdel.id_otdel = dolgnost.id_otdel) ON '
+' zavod.id_zavod = otdel.id_zavod) INNER JOIN sotrudnik ON dolgnost.id_dolgnost = sotrudnik.id_dolgnost)
ON login_password.login = sotrudnik.login) ON dostup.id_dostup = sotrudnik.dostup '
+' ORDER BY sotrudnik.family, sotrudnik.first_name, sotrudnik.second_name;';
datamodule1.Query_view_sotrudnik.Close;
104
datamodule1.Query_view_sotrudnik.SQL.Clear; datamodule1.Query_view_sotrudnik.SQL.Text := buf_zapros;
datamodule1.Query_view_sotrudnik.Open; view_dbgrid;
end;
procedure TForm_sotrudnik.view_dolgnost;
Var buf_zapros : string;
begin
if form_sotrudnik.DBGrid_otdel.DataSource.DataSet.RecordCount <> 0 then
begin
buf_zapros := 'SELECT dolgnost.id_dolgnost, dolgnost.name_dolgnost as Должность, dolgnost.oklad as Оклад'
+' FROM otdel INNER JOIN dolgnost ON otdel.id_otdel = dolgnost.id_otdel '
+' WHERE otdel.id_otdel =
'+form_sotrudnik.DBGrid_otdel.DataSource.DataSet.FieldByName('id_otdel').AsString
+' ORDER BY dolgnost.name_dolgnost;';
datamodule1.Query_view_dolgnost.Close; datamodule1.Query_view_dolgnost.SQL.Clear;
datamodule1.Query_view_dolgnost.SQL.Text := buf_Zapros; datamodule1.Query_view_dolgnost.Open;
view_dbgrid_dolgnost; end;
end;
procedure TForm_sotrudnik.view_otdel;
var buf_zapros : string;
begin
if form_sotrudnik.DBGrid_zavod.DataSource.DataSet.RecordCount <> 0 then
begin
buf_zapros := 'SELECT otdel.id_otdel, otdel.name_otdel as Название_отдела '
+' FROM otdel '
+' WHERE otdel.id_zavod =
'+form_sotrudnik.DBGrid_zavod.DataSource.DataSet.FieldByName('id_zavod').AsString
+' ORDER BY otdel.name_otdel;';
datamodule1.Query_otdel_view.Close; datamodule1.Query_otdel_view.SQL.Clear;
datamodule1.Query_otdel_view.SQL.Text := buf_zapros; datamodule1.Query_otdel_view.Open;
view_dbgrid_otdel; view_dolgnost_view; end;
end;
procedure TForm_sotrudnik.view_dbgrid_otdel;
begin
form_sotrudnik.DBGrid_otdel.Columns[0].Visible := False; form_sotrudnik.DBGrid_otdel.Columns[1].Width :=
280;
end;
procedure TForm_sotrudnik.view_dolgnost_view;
var buf_zapros : string;
begin
105
if form_sotrudnik.DBGrid_otdel.DataSource.DataSet.RecordCount <> 0 then
buf_Zapros := 'SELECT dolgnost.id_dolgnost, dolgnost.name_dolgnost as Должность, dolgnost.oklad as Оклад '
+' FROM dolgnost '
+' WHERE dolgnost.id_otdel =
'+form_sotrudnik.DBGrid_otdel.DataSource.DataSet.FieldByName('id_otdel').AsString
+';'
else
buf_Zapros := 'SELECT dolgnost.id_dolgnost, dolgnost.name_dolgnost as Должность, dolgnost.oklad as
Оклад '
+' FROM dolgnost '
+' WHERE dolgnost.id_otdel = -1;';
datamodule1.Query_dolgnost.Close; datamodule1.Query_dolgnost.SQL.Clear;
datamodule1.Query_dolgnost.SQL.Text := buf_zapros; datamodule1.Query_dolgnost.Open;
view_dbgrid_dolgnost;end;
procedure TForm_sotrudnik.view_dbgrid_dolgnost;
begin
form_sotrudnik.DBGrid_dolgnost.Columns[0].Visible := False;
form_sotrudnik.DBGrid_dolgnost.Columns[1].Width := 200; form_sotrudnik.DBGrid_dolgnost.Columns[2].Width
:= 80;end;
end.
procedure TForm_sotrudnik.view_dbgrid;
begin
form_sotrudnik.DBGrid_sotrudnik.Columns[0].Width := 70;
form_sotrudnik.DBGrid_sotrudnik.Columns[1].Width := 150;
form_sotrudnik.DBGrid_sotrudnik.Columns[2].Width := 150;
form_sotrudnik.DBGrid_sotrudnik.Columns[3].Width := 150;
form_sotrudnik.DBGrid_sotrudnik.Columns[4].Width := 70; //телефон
form_sotrudnik.DBGrid_sotrudnik.Columns[5].Width := 150;
form_sotrudnik.DBGrid_sotrudnik.Columns[6].Width := 150;
form_sotrudnik.DBGrid_sotrudnik.Columns[7].Width := 150;//должность
form_sotrudnik.DBGrid_sotrudnik.Columns[8].Width := 150;
form_sotrudnik.DBGrid_sotrudnik.Columns[9].Width := 100;
form_sotrudnik.DBGrid_sotrudnik.Columns[10].Width := 100;
end;
procedure TForm_sotrudnik.clear_label;
begin
form_sotrudnik.Label2.Caption := ''; form_sotrudnik.Label3.Caption := '';
form_sotrudnik.Label7.Caption := ''; form_sotrudnik.Label8.Caption := '';
106
form_sotrudnik.Label9.Caption := ''; form_sotrudnik.Label10.Caption := '';
form_sotrudnik.Label26.Caption := ''; form_sotrudnik.Label27.Caption := '';end;
procedure TForm_sotrudnik.DBGrid_otdelCellClick(Column: TColumn);
begin view_dolgnost;end;
procedure TForm_sotrudnik.DBGrid_zavodCellClick(Column: TColumn);
begin view_otdel; view_dolgnost;end;
procedure TForm_sotrudnik.Button_addClick(Sender: TObject);
var run_procedure : boolean;
buf_zapros, buf_kav : string;
begin clear_label; run_procedure := True; buf_kav := '''';
//проверяю введенные данные
if length(form_sotrudnik.Edit_tabel.Text) < 8 then
begin
run_procedure := False; form_sotrudnik.Label2.Caption := 'Табельный номер меньше 8';
end
else
if form_sotrudnik.Button_add.Caption = 'Добавить' then
begin
buf_zapros :='SELECT tabel_nomer FROM sotrudnik WHERE tabel_nomer
='+buf_kav+form_sotrudnik.Edit_tabel.Text+buf_kav+';';
datamodule1.Query_buf.Close; datamodule1.Query_buf.SQL.Clear;
datamodule1.Query_buf.SQL.Text := buf_zapros; datamodule1.Query_buf.Open;
if datamodule1.Query_buf.RecordCount <> 0 then
begin
run_procedure := False; form_sotrudnik.Label2.Caption := 'Такой номер есть в БД';
end; end;
if length(Form_sotrudnik.Edit_family.Text) = 0 then
begin run_procedure := False; form_sotrudnik.Label3.Caption := 'Не введена фамилия';
end;
if length(form_sotrudnik.Edit_name.Text) = 0 then
begin run_procedure := False; form_sotrudnik.Label7.Caption := 'Не введено имя';
end;
if length(form_sotrudnik.Edit_secondname.Text) = 0 then
begin run_procedure := False; form_sotrudnik.Label8.Caption := 'Не введено отчество';
end;
if length(form_sotrudnik.Edit_phone.Text) = 0 then
begin run_procedure := False; form_sotrudnik.Label9.Caption := 'Не введен телефон'; end;
if (length(Form_sotrudnik.Edit_login.Text) <> 0) AND (length(form_sotrudnik.Edit_password.Text) <> 0) then
begin
if length(Form_sotrudnik.Edit_login.Text) = 0 then

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

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)