113
procedure TForm_podproekt.view_dbgrid_document;
begin
form_podproekt.DBGrid_document.Columns[0].Width := 450;
form_podproekt.DBGrid_document.Columns[1].Width := 80;
form_podproekt.DBGrid_document.Columns[2].Width := 150;
end;
procedure TForm_podproekt.add_document;
var buf_zapros,filename : string;
i : integer;
// savedialog : TsaveDialog;
begin
//узнаю имя файла
// savedialog := TSavedialog.Create(self);
opendialog.Title := 'Сохранение документа';
if opendialog.Execute then
begin
filename := opendialog.FileName;
for i := 0 to opendialog.Files.Count-1 do
begin
add_file(opendialog.Files.Strings[i]);
end;
end
else
showmessage('Сохранение отменено');
end;
procedure TForm_podproekt.add_file(name_file : string);
var
buf_zapros, buf_kav : string;
buf_name : string;
buf_text :string;
put : string;
run_procedure : boolean;
begin
//присваиваю начальные значения
buf_kav := '''';
put :=
put_dir+Form_podproekt.DBGrid_proekt.DataSource.DataSet.FieldByName('id_proekt')
.AsString+'\'+Form_podproekt.DBGrid_podproekt.DataSource.DataSet.FieldByName('id
_pod_proekt').AsString+'\';
//удаляю даныне о файле из БД
buf_zapros := 'DELETE FROM document WHERE name_file =
'+buf_kav+extractfilename(name_file)+buf_kav
+' AND id_pod_proekt =
'+Form_podproekt.DBGrid_podproekt.DataSource.DataSet.FieldByName('id_pod_proek
t').AsString
114
+';';
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_name := put+ExtractFileName(name_file);
deletefile(buf_name);
//создаю папку, если вдруг ее нет
run_procedure := ForceDirectories(put);
//копирую папку в файл
if copyfile(pchar(name_file),pchar(buf_name),True) then
begin
//добавляю данные в БД
buf_zapros := 'INSERT INTO document
(name_file,id_pod_proekt,avtor,date_add) VALUES ('
+buf_kav+ExtractFileName(name_file)+buf_kav+','
+Form_podproekt.DBGrid_podproekt.DataSource.DataSet.FieldByName('id_pod_proekt
').AsString+','
+buf_kav+form_main.Label_tabel.Caption+buf_kav+','
+'Now()'
+');';
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_document.Active := False;
datamodule1.Query_document.Active := True;
view_dbgrid_document;
end
else
begin
buf_text :='Ошибка: файл '+name_file+' не был скопирован.';
buf_text := IntToStr(GetLastError);
ShowMessage(buf_text);
end;
end;
procedure TForm_podproekt.view_comment;
var buf_zapros,buf_kav : string;
begin
if datamodule1.Query_podproekt.Active <> False then
begin
115
buf_kav := '''';
buf_zapros :='SELECT CONCAT(sotrudnik.family,'+buf_kav+' '+buf_kav+',
sotrudnik.first_name,'+buf_kav+' '+buf_kav+', sotrudnik.second_name) as
Автор_сообщения, comment.date_add_comment as Дата, comment.text_comment as
Сообщение '
+' FROM sotrudnik INNER JOIN comment ON sotrudnik.tabel_nomer =
comment.avtor '
+' WHERE comment.id_pod_proekt =
'+form_podproekt.DBGrid_podproekt.DataSource.DataSet.FieldByName('id_pod_proekt
').AsString+';';
datamodule1.Query_comment.Close;
datamodule1.Query_comment.SQL.Clear;
datamodule1.Query_comment.SQL.Text := buf_zapros;
datamodule1.Query_comment.Open;
view_dbgrid_comment;
end
else
datamodule1.Query_comment.Active := False;
end;
procedure TForm_podproekt.view_dbgrid_comment;
begin
Form_podproekt.DBGrid_comment.Columns[0].Width := 150;
Form_podproekt.DBGrid_comment.Columns[1].Width := 80;
Form_podproekt.DBGrid_comment.Columns[2].Width := 450;
end;
end.