Дипломная работа: Автоматизация документооборота "Подразделений ФАО "Связьтранснефть"
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
102
begin
if tblStat.RecordCount=0 then Text:=''
else
if Sender.AsBoolean=True then Text := 'Да'
else Text := 'Нет';
end;
procedure TDM.tblWorkerJobGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
if tblWorker.RecordCount=0 then Text:=''
else
if Sender.AsBoolean=True then Text := 'Да'
else Text := 'Нет';
end;
//----
procedure TDM.LinkedBase(conn: boolean);
var
i: integer;
begin
mainConnect.Connected:=false;
MainConnect.ConnectionString:='';
if conn then ReadConnectionString;
try
mainConnect.Connected:=conn;
if mainConnect.Connected then begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TADOTable then begin
(Components[i] as TADOTable).Active:=conn;
end
103
else
if (Components[i] is TADOQuery) and
(Components[i].Name<>'qryReport') then begin
(Components[i] as TADOQuery).Active:=conn;
end
end;
except
on E: Exception do begin
if MessageDlg('Хотите настроить
подключение?',mtWarning,mbOkCancel,0)=1 then
SettingLink;
end;
end;
end;
{****Функции работы с подключением к базе****}
procedure TDM.ReadConnectionString; //читаем строку подключения из
файла setup.ini
var
fl_str: string;
myIniFile: TIniFile;
begin
fl_str:=ExtractFilePath(Application.Exename) + 'setup.ini'; //путь к файлу
stup.ini
if FileExists(fl_str) then //файл существует?
begin
myIniFile:=TIniFile.Create(fl_str); //подключаемся к файлу
MainConnect.ConnectionString:=myIniFile.ReadString('Connect','Str',''); //и
читаем из него строку подключения
end;
if MainConnect.ConnectionString='' then //если строка подключения всё же
104
пуста, то
begin
ShowMessage('Не настроено подключение к базе'); //выводим
предупреждение
mainConnect.ConnectionString:='';//PromptDataSource(0,mainConnect.ConnectionStr
ing); //начинаем настройку подключения
WriteConnectionString;
end;
end;
procedure TDM.WriteConnectionString; //записываем строку подключения в
файл setup.ini
var
fl_str: string;
myIniFile: TIniFile;
begin
fl_str:=ExtractFilePath(Application.Exename) + 'setup.ini'; //путь к файлу
setup.ini
myIniFile:=TIniFile.Create(fl_str); //подключаемся к файлу
myIniFile.WriteString('Connect','Str',MainConnect.ConnectionString);
//пишем строку подключения в раздел Connect
myIniFile.Free;
end;
end.
105
ПРИЛОЖЕНИЕ Б
ПРИМЕРЫ СФОРМИРОВАННЫХ ЖУРНАЛОВ И ОТЧЁТОВ
Рисунок Б.1 – Пример журнала оборудования
Рисунок Б.2 – Пример журнала фундаментов
106
Рисунок Б.3 – Пример кабельного журнала
Рисунок Б.4 – Пример отчёта по проектам по заказчику
Источник: https://baza.diplomsite.ru/previewfile/1756