108
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.D
ataSource.DataSet.FieldByName('Отдел').AsString,[]);
view_dolgnost;
datamod-
ule1.Query_view_dolgnost.Locate('Должность',form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.FieldByNa
me('Должность').AsString,[]);
form_sotrudnik.Edit_login.Text :=
form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.FieldByName('Логин').AsString;
datamod-
ule1.Table_dostup.Locate('name_dostup',form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.FieldByName('Ур
овень_доступа').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;
109
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 Фамилия, sotrud-
nik.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 dol-
gnost 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;
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
110
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
111
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.