Дипломная работа: Автоматизация документооборота "Подразделений ФАО "Связьтранснефть"

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

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;

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;

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);

Источник: https://baza.diplomsite.ru/previewfile/1756

Смотрите также:

Адаптивные особенности терморегуляции и поддержания энергетического баланса у мышевидных грызунов
бух. учет
Виртуальные социальные сети как фактор социализации современной молодежи на примере социальной сети 'Вконтакте'
Книга приема и сдачи дежурства по войсковой части (роте) Книга записи больных роты
Латеральный маркетинг с примерами
Лечение Н.В. Гоголя в Остенде и Грефенберге
Медицинская, профессиональная и социальная реабилитация
Психодрама как метод терапии
Социальная память - механизм жизни социума