97
tblProjectDirectionName: TStringField;
tblProjectStatName: TStringField;
dsSystems: TDataSource;
dsHardware: TDataSource;
dsFoundament: TDataSource;
dsCabel: TDataSource;
dsLink: TDataSource;
dsGraph: TDataSource;
tblSystemsID: TAutoIncField;
tblSystemsName: TStringField;
tblSystemsProject: TIntegerField;
tblHardwareID: TAutoIncField;
tblHardwareIndexx: TStringField;
tblHardwareName: TStringField;
tblHardwareWeights: TBCDField;
tblHardwareCnt: TIntegerField;
tblHardwareSystems: TIntegerField;
tblFoundamentID: TAutoIncField;
tblFoundamentHardware: TIntegerField;
tblFoundamentIndexx: TStringField;
tblFoundamentLocation: TStringField;
tblFoundamentSize: TStringField;
tblFoundamentWeights: TBCDField;
tblFoundamentCnt: TIntegerField;
tblLinkID: TAutoIncField;
tblLinkCabel: TIntegerField;
tblLinkHardware: TIntegerField;
tblLinkTypeLink: TIntegerField;
tblGraphID: TAutoIncField;
tblGraphProject: TIntegerField;
tblGraphWorks: TIntegerField;
tblGraphWorker: TIntegerField;
98
tblGraphHardware: TIntegerField;
tblGraphFoundament: TIntegerField;
tblGraphCabel: TIntegerField;
tblGraphDateStart: TDateTimeField;
tblGraphFinish: TBooleanField;
tblGraphDateFinish: TDateTimeField;
tblGraphOverClient: TBooleanField;
tblGraphDateOver: TDateTimeField;
tblGraphWorksName: TStringField;
tblGraphWorkerName: TStringField;
tblGraphHardwareIndexx: TStringField;
tblGraphFoundamentIndexx: TStringField;
dsViewHardware: TDataSource;
dsViewFoundament: TDataSource;
dsViewCabel: TDataSource;
tblViewHardware: TADOTable;
tblViewFoundament: TADOTable;
tblViewCabel: TADOTable;
tblViewHardwareProject: TIntegerField;
tblViewHardwareID: TIntegerField;
tblViewHardwareIndexx: TStringField;
tblViewFoundamentProject: TIntegerField;
tblViewFoundamentID: TIntegerField;
tblViewFoundamentIndexx: TStringField;
tblViewCabelProject: TIntegerField;
tblViewCabelID: TIntegerField;
tblViewCabelIndexx: TStringField;
qryStatFilter: TADOQuery;
qryClientFilter: TADOQuery;
qryDirectionFilter: TADOQuery;
dsStatFilter: TDataSource;
dsClientFilter: TDataSource;
99
dsDirectionFilter: TDataSource;
dsViewWorker: TDataSource;
tblViewWorker: TADOTable;
tblViewWorkerID: TIntegerField;
tblViewWorkerWorks: TIntegerField;
tblViewWorkerName: TStringField;
tblCabel: TADOTable;
tblCabelID: TAutoIncField;
tblCabelIndexx: TStringField;
tblCabelMark: TStringField;
tblCabelDescriptions: TStringField;
tblCabelLengths: TBCDField;
tblCabelSystems: TIntegerField;
tblHard1: TADOTable;
tblHard2: TADOTable;
dsHard1: TDataSource;
dsHard2: TDataSource;
tblHard1ID: TAutoIncField;
tblHard1Indexx: TStringField;
tblHard1Name: TStringField;
tblHard1Weights: TBCDField;
tblHard1Cnt: TIntegerField;
tblHard1Systems: TIntegerField;
tblHard2ID: TAutoIncField;
tblHard2Indexx: TStringField;
tblHard2Name: TStringField;
tblHard2Weights: TBCDField;
tblHard2Cnt: TIntegerField;
tblHard2Systems: TIntegerField;
tblGraphCabelIndexx: TStringField;
procedure tblStatFinishGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
100
procedure tblWorkerJobGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
procedure tblProjectFinishGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
procedure tblGraphFinishGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
procedure tblGraphOverClientGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
private
procedure ReadConnectionString;
procedure WriteConnectionString;
public
procedure LinkedBase(conn: boolean);
procedure SettingLink;
end;
var
DM: TDM;
implementation
{%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm}
//------
procedure TDM.SettingLink;
begin
LinkedBase(false);
mainConnect.ConnectionString:=PromptDataSource(0,mainConnect.ConnectionString
);
101
WriteConnectionString;
LinkedBase(true);
end;
procedure TDM.tblGraphFinishGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
if tblGraph.RecordCount=0 then Text:=''
else
if Sender.AsBoolean=True then Text := 'Да'
else Text := 'Нет';
end;
procedure TDM.tblGraphOverClientGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
if tblGraph.RecordCount=0 then Text:=''
else
if Sender.AsBoolean=True then Text := 'Да'
else Text := 'Нет';
end;
procedure TDM.tblProjectFinishGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
if tblproject.RecordCount=0 then Text:=''
else
if Sender.AsBoolean=True then Text := 'Да'
else Text := 'Нет';
end;
procedure TDM.tblStatFinishGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
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 – Пример отчёта по проектам по заказчику