art-00905

Адрес этой странички : http://doc-prg.narod.ru/art_00905/art_00905.htm
Дата обновления: 28.03.2009

© 28.03.2009 Сергей Попов

Delphi-5.
Базы Данных.
Некоторые простые, но потенциально полезные функции

Uses
    DB,
    Dialogs,
    dbtables,
    Classes,
    SysUTILS;

Type
TSetBytes = set of byte;

procedure TableMakePOST(Tbl : TTable);
//Сохранить отредактированные данные в таблицу
begin
    if Tbl.Active then begin //набор данных открыт
        TRY
            if (Tbl.State<>dsBrowse) then begin //проверка состояния набора данных
                Tbl.POST; //сохранить (отослать) данные
            end;
        FINALLY

        END;
    end;
end;

procedure Query_Clear(Q : TQuery);
//Освободить ресурсы, занятые TQuery
//Вспомогательная функция
begin
    if Q<>NIL then begin
        Q.Close;
        Q.SQL.Clear;
        Q.Free;
        Q:=NIL;
    end;
end;

Get_FieldValue_from_Table
//Получить значение заданного поля из заданной таблицы для заданного фильтра sFilter

function Get_FieldValue_from_Table(Options : TSetBytes; an,tn,fn,sFilter : string; Yes_AllTrim : boolean = true) : string; //Получить значение заданного поля из заданной таблицы для заданного фильтра sFilter //Если в наборе данных несколько строк, то возвращается значение из первой ! //Options - резерв //an - Alias BDE-5 //tn - Имя таблицы базы данных //fn - имя поля, значение которого мы желаем получить //sFilter - фильтр //Yes_AllTrim - если true, то к возвращаемому значению применяется trim() //Возвращаемое значение - строковое значение поля fn Var Q : TQuery; Yes : byte; begin Result:=''; tn:=Trim(tn); fn:=Trim(fn); sFilter:=Trim(sFilter); an:=Trim(an); Yes:=0; if Length(tn)>0 then begin if Length(fn)>0 then begin if Length(sFilter)>0 then begin Q := TQuery.Create(Nil); TRY Q.DatabaseName:=an; Q.SQL.ADD('SELECT '+fn); Q.SQL.ADD('FROM'); Q.SQL.ADD(tn); Q.SQL.ADD('WHERE'); Q.SQL.ADD(sFilter); Q.Open; Q.First; Result:=Q.Fields[0].AsString; if Yes_AllTrim then Result:=trim(Result); Yes:=1; FINALLY if Q<>NIL then begin if Yes<=0 then ShowMessage('Error! '+#10+Q.SQL.TEXT); Query_Clear(Q); end; END; end; end; end; end;

Insert_Record_in_Table
//Вставить строку в таблицу Б.Д. (без MEMO-полей)

function Insert_Record_in_Table(an,tn : string; ListData : TStrings; YesParamCheck : boolean = false) : boolean; //Вставить строку в таблицу Б.Д. (без MEMO-полей) //an - Alias BDE-5 //tn - Имя таблицы базы данных //ListData - значения полей в формате: ИмяПоля=ЗначениеПоля // (если тип поля - строка или дата, то значения должны быть окаймлены одинарными или двойными кавычками) //YesParamCheck - значение соотв. свойства ParamCheck компонента TQuery //Возвращаемое значение - true, если успешно Var Yes : byte; i : integer; Sx,sFN,sVal : string; Q : TQuery; begin Result:=FALSE; an:=trim(an); tn:=trim(tn); if ListData<>NIL then begin if ListData.Count>0 then begin if (length(tn)>0) then begin sFN:=''; sVal:=''; for i:=0 to (ListData.Count-1) do begin Sx:=trim(ListData.NAMES[i]); if length(Sx)>0 then begin sFN:=sFN+Sx; Sx:=trim(ListData.VALUES[Sx]); sVal:=sVal+Sx; if i<(ListData.Count-1) then begin sFN := sFN+','; sVal := sVal+','; end; end; end; Yes := 0; Q:=TQuery.Create(NIL); TRY Q.DatabaseName:=an; Q.ParamCheck:=YesParamCheck; //!!! Q.SQL.ADD('INSERT INTO '+tn); Q.SQL.Add('('); Q.SQL.Add(sFN); Q.SQL.Add(')'); Q.SQL.Add('VALUES'); Q.SQL.Add('('); Q.SQL.Add(sVal); Q.SQL.Add(')'); Q.ExecSQL; Yes := 1; Result:=TRUE; FINALLY if Q<>NIL then begin if Yes<=0 then begin ShowMessage('Error! '+#10+Q.SQL.TEXT); end; Query_Clear(Q); end; END; end; end; end; end;

Delete_Records_from_Table
//Удалить строки из таблицы Б.Д. по фильтру

function Delete_Records_from_Table(an,tn,sFilter : string) : boolean; //Удалить строки из таблицы Б.Д. по фильтру //an - Alias BDE-5 //tn - Имя таблицы базы данных //sFilter - фильтр //Возвращаемое значение - true, если успешно Var Yes : byte; Q : TQuery; begin Result:=FALSE; an:=trim(an); tn:=trim(tn); sFilter:=trim(sFilter); if (length(tn)>0) and (length(sFilter)>0) then begin Yes := 0; Q:=TQuery.Create(NIL); TRY Q.DatabaseName:=an; Q.SQL.ADD('DELETE from '+tn); Q.SQL.ADD('WHERE'); Q.SQL.ADD(sFilter); Q.ExecSQL; Yes := 1; Result:=TRUE; FINALLY if Q<>NIL then begin if Yes<=0 then begin ShowMessage('Error! '+#10+Q.SQL.TEXT); end; Query_Clear(Q); end; END; end; end;

function Field_Exist(T : TDataSet; FieldName : string; YesUpCase : boolean = true) : boolean;
//Проверить, существует ли поле FieldName в открытом наборе данных T
//YesUpCase - если true, то регистр имен полей (при сравнении) не имеет значения
//Возвращаемое значение: true, если тестируемое поле существует
Var
    i : integer;
    fn : string;
begin
    Result:=false;
    FieldName:=trim(FieldName);
    if length(FieldName)>0 then begin
        if T<>NIL then begin
            if T.Active then begin
                if YesUpCase then FieldName:=AnsiUpperCase(FieldName);
                i:=-1;
                while i<(T.Fields.Count-1) do
                begin
                    i:=i+1;
                    fn:=trim(T.Fields[i].FieldName);
                    if YesUpCase then fn:=AnsiUpperCase(fn);
                    if fn = FieldName then begin
                        //поле существует
                        Result:=true;
                        i:= T.Fields.Count+1;
                    end;
                end;
            end;
        end;
    end;
end;

-->