Реферат Створення програми "Читальний зал"

Тема: Новые рефераты

ex=0 then ADOQuery3.Filter:=«Код_читателя=»«»+edit18.Text+«»«»;radiogroup3.ItemIndex=1 then ADOQuery3.Filter:=«ФИО_читателя=»«»+edit19.Text+«»«»;radiogroup3.ItemIndex=2 then ADOQuery3.Filter:=«Дата_регистрации=»«»+edit20.Text+«»«»;radiogroup3.ItemIndex=3 then ADOQuery3.Filter:=«адрес=»«»+edit11.Text+«»«»;radiogroup3.ItemIndex=4 then ADOQuery3.Filter:=«Телефон=»«»+edit12.Text+«»«»;radiogroup3.ItemIndex=5 then ADOQuery3.Filter:=«Место_работы=»«»+edit24.Text+«»«»;radiogroup3.ItemIndex=6 then ADOQuery3.Filter:=«»;; TForm1.Button14Click (Sender: TObject);, Xarr: Variant;: Integer;: Integer;:=VarArrayCreate([1,ADOQuery1.FieldCount],varVariant);:=CreateOLEObject(«Excel.Application»);.WorkBooks.add;.visible:=true;:= 1;. First; not ADOQuery1.Eof do:=1; i <= ADOQuery1.FieldCount do [i]:=ADOQuery1.Fields [i - 1]. Value;:=i +1;;. Range [«A» ; + IntToStr (j), (64 + ADOQuery1.FieldCount) + IntToStr (j)]. Value:=Xarr;.Next;:=j+1;;.Range[«A1»,CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].select;.Selection.Font.Name:=«Arial cur»;.Selection.Font.Size:=10;.selection.Columns.AutoFit;.Range[«A1»,«A1»].select;;TForm1.Button15Click(Sender: TObject);, Xarr: Variant;: Integer;: Integer;:=VarArrayCreate([1,ADOQuery2.FieldCount],varVariant);:=CreateOLEObject(«Excel.Application»);.WorkBooks.add;.visible:=true;:= 1;. First; not ADOQuery2.Eof do:=1; i <= ADOQuery2.FieldCount do [i]:=ADOQuery2.Fields [i - 1]. Value;:=i +1;;. Range [«A» ; + IntToStr (j), (64 + ADOQuery2.FieldCount) + IntToStr (j)]. Value:=Xarr;.Next;:=j+1;;.Range[«A1»,CHR(64+ADOQuery2.FieldCount)+IntToStr(j)].select;.Selection.Font.Name:=«Arial cur»;.Selection.Font.Size:=10;.selection.Columns.AutoFit;.Range[«A1»,«A1»].select;;TForm1.Button16Click(Sender: TObject); XL, Xarr: Variant;: Integer;: Integer;:=VarArrayCreate([1,ADOQuery3.FieldCount],varVariant);:=CreateOLEObject(«Excel.Application»);.WorkBooks.add;.visible:=true;:= 1;. First; not ADOQuery3.Eof do:=1; i <= ADOQuery3.FieldCount do [i]:=ADOQuery3.Fields [i - 1]. Value;:=i +1; end;. Range [«A» + IntToStr (j), (64 + ADOQuery3.FieldCount) + IntToStr (j)]. Value:=Xarr;. Next;:=j +1; end;.Range[«A1»,CHR(64+ADOQuery3.FieldCount)+IntToStr(j)].select;.Selection.Font.Name:=«Arial cur»;.Selection.Font.Size:=10;.selection.Columns.AutoFit;.Range[«A1»,«A1»].select;;TForm1.Button17Click(Sender: TObject); RadioGroup4.ItemIndex=0 then begin.Visible:=true; not ADOQuery1.Locate («Код_операціі», Edit21.text, [loCaseInsensitive, lopartialkey]) then showMessage («Не знайдено»);; RadioGroup4.ItemIndex =1 then begin.Visible:=true; not ADOQuery1.Locate («Код_чітателя», Edit21.text, [loCaseInsensitive, lopartialkey]) then showMessage («Не знайдено»);; RadioGroup4.ItemIndex=2 then begin.Visibl...

Назад | сторінка 16 з 17 | Наступна сторінка

Схожі реферати:

Реферат на тему: Phonetic peculiarities of the popular science text

Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...

Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)

Реферат на тему: Створення БД в MS Excel і MS Access "Продуктовий магазин"

Реферат на тему: Аудит і аналіз системи найму персоналу в ТОВ "Адрес'"

Український реферат переглянуто разів: | Коментарів до українського реферату:

Коментарів до українського реферату: 0