Упрощение кода программы за счет использования процедур

[uraura]

Пишу продукт в котором имползуется много обращений к базе типа

Query1.Close;
Query1.SQL.Clear;
Query1.DataBaseName:=ExtractFilePath(ParamStr(0))+ 'Base\';
Query1.sql.Text:='........';//здесь разница в самом запросе к базе
Query1.ExecSQL;//здесь разница в экзек или опен

вопрос в том как замутить свою процедуру чтобы в программе вызывать ее из любой формы передавая ей только сам запрос как STRING и опен или екзек как ...(незнаю)?

[mihali4]

Сделайте как рекомендуют разработчики - все датасеты в отдельном датамодуле.
Тогда никаких трудностей с обращением к любому из них из любой формы (модуля).
А вот эта строка:
Query1.DataBaseName:=ExtractFilePat h(ParamStr(0))+ 'Base\';
по идее, должна быть только в одном месте программы, где всем датасетам потом "чохом" назначается расположение базы:
Table1.DataBaseName:=Query1.DataBas eName; и так далее...
Обращение к Query1 (как в вашем примере) оформите в виде своей процедуры с параметрами - сам текст для сиквела и флажок, по которому будет вызываться либо метод Open, либо ExecSQL.
Если пишете Query1.sql.Text:= , то строка Query1.SQL.Clear; не нужна...

[skeletishe]

думаю что - то типо того

procedure MoyProcedure(t:string; x:boolean);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.DataBaseName:=ExtractFilePat h(ParamStr(0))+ 'Base\';
Query1.sql.Text:=t; //'........';//здесь разница в самом запросе к базе
if x then Query1.ExecSQL
else Query1.openSQL;//здесь разница в экзек или опен
end;

[uraura]

Сообщение от mihali4

Сделайте как рекомендуют разработчики - все датасеты в отдельном датамодуле.

Извини пожалста но я новичек в этом и как бы самоучка не мог бы поподробнее

Сообщение от mihali4

А вот эта строка:
Query1.DataBaseName:=ExtractFilePat h(ParamStr(0))+ 'Base\';
по идее, должна быть только в одном месте программы, где всем датасетам потом "чохом" назначается расположение базы:

где разместить назначение и нужно ли для каждого компонента в отдельности это делать или как?

Сообщение от mihali4

Table1.DataBaseName:=Query1.DataBas eName; и так далее...
Обращение к Query1 (как в вашем примере) оформите в виде своей процедуры с параметрами - сам текст для сиквела и флажок, по которому будет вызываться либо метод Open, либо ExecSQL.
Если пишете Query1.sql.Text:= , то строка Query1.SQL.Clear; не нужна...

блин чувствую себя таким тупым: что есть сиквел и флажок не поясниш?
Если не трудно кусками кода премируй (пожалеста)

[uraura]

Сообщение от skeletishe

думаю что - то типо того

procedure MoyProcedure(t:string; x:boolean);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.DataBaseName:=ExtractFilePat h(ParamStr(0))+ 'Base\';
Query1.sql.Text:=t; //'........';//здесь разница в самом запросе к базе
if x then Query1.ExecSQL
else Query1.openSQL;//здесь разница в экзек или опен
end;

Так если я пропишу эту процедуру в первой форме ее можно будет вызвать из формы 8 например?

[skeletishe]

помоему ограничений нет, главное правильно к ней обратиться.
forma1.MoyProcedure('текст';false);

Сообщение от skeletishe

procedure MoyProcedure(t:string; x:boolean);

"Х" и есть флажок.

[uraura]

Компилить отказывается по причине отсутствия квери1 на первой форме!
Просто ужасть!Прописал на юнит два там квери1 есть но ругается также!

[Error] 
Unit2.pas(47): Undeclared identifier: 'Query1'
[Error] Unit2.pas(47): '(' expected but ';' found
[Error] Unit2.pas(48): Missing operator or semicolon // 3 штуки Unit2.pas(49)Unit2.pas(50) 
.... и еще много всего

[skeletishe]

пропиши процедуру в нужной форме.
и вызывай процедуру типо
формаХ.процедура()

[uraura]

Дак прописал в форме2 (там запрос нужен и все компоненты стоят) а до вызова не доходит дело то на самой процедуре выдает что всего нету!

[mihali4]

File->New->Data Module
На него "накидываем" все Query, Table и что еще нужно.
Обращение из любой формы будет

Datamodule1.Query1.SQL.Text:=...

Сиквел=SQL