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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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
Источник: https://baza.diplomsite.ru/previewfile/2418

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

Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии