127
127
Form_sotrudnik.Label_tabel_nomer.Caption
:=form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.Fields[0].AsString;
end;
end;
procedure TForm_sotrudnik.FormCreate(Sender: TObject);
begin
form_sotrudnik.Label7.Caption := ''; form_sotrudnik.Label16.Caption := '';
form_sotrudnik.Label12.Caption := ''; form_sotrudnik.Label13.Caption := '';
form_sotrudnik.Label14.Caption := ''; form_sotrudnik.Label10.Caption := '';
form_sotrudnik.Label11.Caption := '';end;
procedure TForm_sotrudnik.FormShow(Sender: TObject);
var buf_zapros : string;
begin
buf_zapros := 'SELECT sotrudnik.tabel_nomer as Таб_номер, Family as Фамилия,First_name as
Имя,Second_name as Отчество, phone as Телефон, login as Логин,name_dostup as Уровень_доступа '// FROM
sotrudnik,dostup,login '
+' FROM (sotrudnik LEFT JOIN dostup ON sotrudnik.dostup = dostup. id_dostup) LEFT JOIN login ON
sotrudnik.tabel_nomer = login.tabel_nomer WHERE sotrudnik.tabel_nomer <> 1 ORDER BY
Family,First_name,Second_name;';
// +' WHERE sotrudnik.tabel_nomer = login.tabel_nomer AND dostup. id_dostup = sotrudnik.dostup ORDER BY
Family,First_name,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;
form_sotrudnik.DBGrid_sotrudnik.Columns[1].Width := 180;
form_sotrudnik.DBGrid_sotrudnik.Columns[2].Width := 180;
form_sotrudnik.DBGrid_sotrudnik.Columns[3].Width := 180;
form_sotrudnik.DBGrid_sotrudnik.Columns[4].Width := 180;
form_sotrudnik.DBGrid_sotrudnik.Columns[5].Width := 180;
form_sotrudnik.DBGrid_sotrudnik.Columns[6].Width := 180;
end;
procedure TForm_sotrudnik.add_sotrudnik();
var buf_zapros, buf_kav : string;
begin
buf_kav := '''';
buf_zapros := 'INSERT INTO sotrudnik (tabel_nomer,Family,first_name,second_name,phone,dostup)
VALUES ('
+buf_kav+Form_sotrudnik.Edit_tabel_nomer.Text+buf_kav+','
+buf_kav+Form_sotrudnik.Edit_family.Text+buf_kav+','
128
128
+buf_kav+Form_sotrudnik.Edit_name.Text+buf_kav+','
+buf_kav+Form_sotrudnik.Edit_second_name.Text+buf_kav+','
+buf_kav+Form_sotrudnik.Edit_phone.Text+buf_kav+','
+Form_sotrudnik.DBGrid_dostup.DataSource.DataSet.Fields[0].AsString+');';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.ExecSQL;
datamodule1.Query_add.Close;
buf_zapros := 'INSERT INTO login (login,pasword,tabel_nomer) VALUES ('
+buf_kav+Form_sotrudnik.Edit_login.Text+buf_kav+','
+buf_kav+Form_sotrudnik.Edit_pasword.Text+buf_kav+','
+buf_kav+form_sotrudnik.Edit_tabel_nomer.Text+buf_kav+');';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.ExecSQL;
datamodule1.Query_add.Close;end;{procedure add_sotrudnik();}
procedure TForm_sotrudnik.update_sotrudnik();
var buf_zapros, buf_kav : string;
begin
buf_kav := '''';
buf_zapros := 'UPDATE sotrudnik SET tabel_nomer =
'+buf_kav+Form_sotrudnik.Edit_tabel_nomer.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_second_name.Text+buf_kav+','
+' phone = '+buf_kav+Form_sotrudnik.Edit_phone.Text+buf_kav+','
+' dostup = '+Form_sotrudnik.DBGrid_dostup.DataSource.DataSet.Fields[0].AsString
+' WHERE tabel_nomer = '+Form_sotrudnik.Label_tabel_nomer.Caption +';';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.ExecSQL;
datamodule1.Query_add.Close;
buf_zapros := 'UPDATE login SET login = '+buf_kav+Form_sotrudnik.Edit_login.Text+buf_kav+','
+' pasword = '+buf_kav+Form_sotrudnik.Edit_pasword.Text+buf_kav
+' WHERE tabel_nomer = '+buf_kav+Form_sotrudnik.Edit_tabel_nomer.Text+buf_kav+';';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros;
datamodule1.Query_add.ExecSQL; datamodule1.Query_add.Close;
form_sotrudnik.Button_add.Caption := 'Добавить';
end;{update_sotrudnik();}
end.
