Fast Report ва Rave Report компоненталар палитраси

Yuklangan vaqt:

20.09.2019

Ko'chirishlar soni:

0

Hajmi:

494.5 KB

Ko'chirib olish

Fast Report ва Rave Report компоненталар палитраси Режа: 1. Ҳисобот яратувчи компоненталар ҳақида маълумот . 2. FastReport компоненталаридан фойдаланиб ҳисоботлар яратиш. 3. RaveReport компоненталаридан фойдаланиб ҳисоботлар яратиш. 4. Маълумотлар базаси жадвалидаги маълумотларни Microsoft Excel дастурига ўтказиш.

Ҳисобот яратувчи компоненталар ҳақида маълумот Маълумотлар омбори ёрдамида ишлайдиган дастурларнинг барчасида ҳисобот бериш имконияти мавжуд бўлади. Ҳисобот олишнинг турлари кўп бўлиб, уларга қуйидагаларни келтириш мумкин: – QReport компоненталар палитраси (C++ Builder 6 учун); – FastReport компоненталари (барча C++ Builder версиялари учун); – RaveReport компоненталари (барча C++ Builder версиялари учун); – Microsoft Excel дастурига юклаш. Юқорида келтирилган ҳисобот шакллари компоненталар, махсус дастурлар ёки буйруқлар ёрдамида олинади. QReport компоненталар палитраси ёрдамида олинадиган ҳисоботлар асосан ўрнатилган компоненталар ёрдамида яратилади. Бу компонента C++ Builder 6 дастурида тайёр ўрнатилган бўлиб, бу компоненталар тўпламидан ихтиёрий марта фойдаланиш мумкин. FastReport компоненталаридан фойдаланиб ҳисоботлар яратиш FastReport компоненталари C++Builder барча версиялари учун ишлаб чиқилган. C++ Builder 6 учун бу компоненталар тўпламини қўшимча ўрнатиш керак бўлди. RAD Studio XE2 тўпламида бу комопенталар тўплами тайёр ўрнатилган. Маълумотлар базасидаги ёзувларнинг ҳисоботини олиш учун бу компоненталар тўпламида фойдаланишни кўриб чиқайлик:  TfrxReport – бу компонента ёрдамида ҳисоботлар олиш файллари яратилади;  TfrxDBDataset – бу компонента ёрдамида ҳисобот файлига маълумотлар омборини улаш;  TfrxPDFExport – бу компонента ёрдамида олинган ҳисобот файлини PDF кўринишга ўтказиш;  TfrxRTFExport – бу компонента ёрдамида олинган ҳисобот файлини RTF кўринишга ўтказиш;  TfrxCSVExport – бу компонента ёрдамида олинган ҳисобот файлини CSV кўринишга ўтказиш.

Юқорида келтирилган компоненталарни 7.3.1 – расмда келтирилган формага жойлаштирилади. Шунда 8.2.1–расмда келтирилган форма кўринишига келади. 8.2. 1 –расм: Фойдаланувчи интерфейси 8.2.1–расмда келтирилган ойнадаги frxReport 1 ва frxDBDataset 1 компоненталарни бир – бирига улади, яъни frxReport 1 компонентасининг DataSet ҳусусиятига frxDBDataset 1 ни ёзилади. frxDBDataset1 компонента маълумотлар базаси билан ишлаш имконини берадиган ADOTable 1 ёки DataSource 1 компоненталаридан бирига уланади. Агар frxDBDataset1 компонентасига ADOTable1 компонентасини улаш керак бўлса, у ҳолда frxDBDataset1 компонентасининг DataSet ҳусусияти ёрдамида уланади. Агар frxDBDataset1 компонентасига DataSource1 компонентасини улаш керак бўлса, у ҳолда frxDBDataset1 компонентасининг DataSource ҳусусияти ёрдамида уланади. Уланиш амалга оширилганидан сўнг frxDBDataset1 компонентасининг устида сичқончанинг ўнг тугмаси чертилади, ҳосил бўлган контекс менюдан Edit Fields Aliases… банди танланади шунда 8.2.2– расмдаги ойна ҳосил бўлади. Бу ойнада ҳисобот яратиш учун керак бўлган майдонлар номлари ва ҳисоботга маълумотлар базасини жўнатишдаги номи кўрсатилади. Маълумотлар базасини ҳисоботга жўнатишда киритиладиган ном Dataset alias майдонига киритилади. Ҳисоботга жўнатилаётган майдонларнинг номларига фойдаланувчи томонидан ўчириб қўйиш ёки

$ҳисоботга жўнатилмаслигини таъминлаш мумкин. Бу ўзгартиришлар ойнадаги жадвал кўринишда келтирилган қисмида амалга оширилади. 8.2.2–расм: Ҳисобот учун майдонларни тахрирлаш 8.2.1–расмда келтирилган ойнадаги тугмалардан Hisobot тугмаси ёрдамида ҳисобот олинади. Бунинг учун бу тугмага қуйидаги листингда келтирилган кодни ёзамиз. Листинг 8.2.1: Hisobot тугмасига ёзиладиган код. 1: void __ fastcall TForm1::Button4Click(TObject *Sender) 2: { 3: // Hisobot tugmasi bosilganda 4: String str; 5: str = ExtractFilePath(Application->ExeName)+"\\report.fr3"; 6: frxReport1->LoadFromFile(str); 7: frxReport1->ShowReport(); 8: } Бу кодни ёзишдан олдин ҳисобот файлини яратиш лозим. Бу файлни яратиш учун, frxReport1 компонентаси устида сичқончанинг ўнг тугмасини чертилади, ҳосил бўлган менюдан Edit Report банди танланади. Шунда ҳисобот файлини ҳосил қилувчи ойна ҳосил бўлади (8.2.3–расм). Бу ойна ёрдамида ҳисобот файли яратилади. Бунинг учун ойна ёрдамида файлни фойдаланувчи томонидан яратилган маълумотлар база билан боғлаш учун менюлар сатридаги Report бандидан Data бандини танланади. Шунда 8.2.4–расмда келтирилган ойна ҳосил бўлади. Бу ойнадан керакли банднинг олдига белги қўйилади ва ОК тугмаси босилади. Шунда 8.2.3–расмда$

келтирилган ойнанинг ўнг қисмида маълумотлар базасининг майдонлари билан боғланган ҳолда, ҳисобот яратиш учун маълумотлар базасига боғланган майдонлар ҳосил бўлади. 8.2.3–расм: FastReport ҳисоботлар яратиш ойнаси 8.2.4–расм: МБ танлаш Ҳосил бўлган майдонларни ишчи соҳадаги MasterData бандига жойлаштирилади. MasterData бандини танланиб, унинг ҳусусиятларидан DataSet бандига frxDBDataset1 ёки фойдаланувчи томонидан ўзгартириш киритилган номи берилади. MasterData бандига жойлаштирилган майдонларни турли кўринишда жойлаштириш мумкин (8.2.5–расм). 8.2.5–расм: MasterData бандига майдонларни жойлаштириш 8.2.5–расмда келтирилган MasterData майдонидаги изохларни ёзиш учун 8.2.3–расмда келтирилган ойнанинг чап томонида келтирилган компонентлардан Text object компонентасидан фойдалинилади. Бундан ташқари ҳисоботларни жадвал шаклида олиш мумкин. Бунинг учун ҳисоботни тайёрлашда ҳар бир майдоннинг хошиясидаги чизиқларни кўринишини таъминлаш керак бўлади. Бу ҳисоботни тайёрлашда ReportTitle бандини қўлланилади. Бу бандга жадвал кўринишининг юқори сарлавҳа қисмини, жадвалнинг керакли бўлган изоҳлар келтириш мумкин (8.2.6–расм). Ҳисобот яратишда маълумотларни бир – бирига қўшиш ёки бирлаштириш, стандарт функциялардан фойдаланиш ёки фойдаланувчи томонидан яратилган функциялардан фойдаланиш мумкин.

$8.2.6–расм: Жадвал кўринишдаги ҳисоботлар тайёрлаш. Жадвал кўринишда тайёрланган ҳисоботни ҳам листинг 8.2.1 да кўрсатилганидек чақириш мумкин. Агар икки ва ундан ортиқ кўринишдаги ҳисоботлар мавжуд бўлса, у ҳолда листинг 8.2.1 га ўзгартиришлар киритилади. Бу ўзгартиришлар листинг 8.2.2 да келтирилган. Листинг 8.2.2: Hisobot тугмаси босилганда сўров ойнаси ҳосил қилиш. 1: void __ fastcall TForm1::Button4Click(TObject *Sender) 2: { 3: // Hisobot tugmasi bosilganda 4: String str; 5: TForm *frm; 6: frm = new TForm(Application); 7: frm->BorderStyle = bsDialog; 8: frm->Height = 200; 9: frm->Width = 300; 10: frm->Position = poScreenCenter; 11: frm->Caption = "Hisobot turini tanlash..."; 12: frm->Font->Size = 14; 13: TRadioButton *rbPage = new TRadioButton(frm); 14: rbPage->Caption = "Alohida ko'rinishi"; 15: rbPage->Parent = frm; 16: rbPage->Left = 50; 17: rbPage->Top = 30; 18: rbPage->Width = 200;$ $19: TRadioButton *rbTable = new TRadioButton(frm); 20: rbTable->Caption = "Jadval ko'rinishi"; 21: rbTable->Parent = frm; 22: rbTable->Left = 50; 23: rbTable->Top = 30 + rbPage->Height + 30; 24: rbTable->Width = 200; 25: TBitBtn *myBtnOK = new TBitBtn(frm); 26: myBtnOK->Parent = frm; 27: myBtnOK->Kind = bkOK; 28: myBtnOK->Top = rbTable->Top + rbTable->Height+30; 29: myBtnOK->Width = 120; 30: myBtnOK->Height = 40; 31: myBtnOK->Left = 90; 32: if (frm->ShowModal() == mrOk) 33: { 34: str = ExtractFilePath(Application->ExeName); 35: if (rbPage->Checked) 36: str = str+"\\report.fr3"; 37: else 38: str = str+"\\report1.fr3"; 39: frxReport1->LoadFromFile(str); 40: frxReport1->ShowReport(); 41: } 42: delete myBtnOK; 43: delete rbPage; 44: delete rbTable; 45: delete frm; 46: } Юқоридаги листингнинг коди бажарилиши натижаси 8.2.7–8.2.9 – расмларда келтирилган.$

8.2.7–расм: Ҳисобот турини танлаш ойнаси 8.2.8–расм: Ҳисоботнинг оддий кўриниши 8.2.9–расм: Ҳисоботнинг жадвал кўриниши RaveReport компоненталаридан фойдаланиб ҳисоботлар яратиш RaveReport компоненталар палитраси компоненталари C++Builder дастурининг барча версияларида мавжуд бўлиб, у билан ишлаш бошқа ҳисобот компоненталари билан ишлаш анчагина қийинроқ ҳисобланади, аммо QReport компоненталарида қила олинмайдиган ишларни қилса бўлади. Фойдаланувчи томонидан яратилган дастурга ҳисобот тайёрлашда RaveReport компоненталаридан фойдаланиш учун дастурлаш муҳитининг компоненталар палитрасидаги Rave бўлимидан фойдаланамиз. Қуйида Rave компоненталар тўпламининг асосий компоненталари келтирилган.  TRvProject – бу компонента ёрдамида ҳисоботлар олиш файллари яратилади;  TRvSystem – бу компонета ёрдамида ҳисобот файли билан фойдаланувчи томонидан яратилган дастурни ўртасидаги алоқани тиклаш учун ҳизмат қилади;  TRvDataSetConnection – бу компонента ёрдамида ҳисобот файлига маълумотлар омборини DataSet ёрдамида улаш;  TRvRenderPDF – бу компонента ёрдамида олинган ҳисобот файлини PDF кўринишга ўтказиш;  TRvRenderRTF – бу компонента ёрдамида олинган ҳисобот файлини RTF кўринишга ўтказиш;  TRvRenderHTML – бу компонента ёрдамида олинган ҳисобот файлини HTML кўринишга ўтказиш. RaveReport компоненталар палитрасидаги компоненталарни 7.3.1–расмда келтирилган ойнадаги формага ўрнатамиз.

8.3. 1 –расм: Фойдаланувчи интерфейси ( RaveReport компоненталари) RaveReport компонентаси ёрдамида ҳисобот олиш учун компоненталар бир–бирига боғланиши керак бўлади. Биринчи навбатда ҳисобот олишда маълумотлар базасини ҳисобот компонентасига уланади. Бу компоненталар фойдаланувчи томонидан яратилаётган формадаги ADOTable1 ва RvDataSetConnection1 компоненталари ҳисобланади. RvDataSetConnection1 компонентасининг DataSet ҳусусиятига ADOTable1 компонентаси номи ёзилади. Бу икки компоненталар боғлангандан сўнг RvProject1 ва RvSystem1 компоненталари ўзаро боғланади, яъни RvProject1 компонентасининг Engine ҳусусиятига RvSystem1 номи ёзилади. Бу боғланишлар амалга оиширилганидан сўнг ҳисоботнинг кўринишини тайёрлаб олишимиз керак бўлади. Ҳисоботнинг кўринишини тайёрлаш учун 8.3.1–расмда кўрсатилган формадаги RvProject1 компонентасининг устида сичқончанинг ўнг тугмасини чертамиз, ҳосил бўлган оқиб чиқувчи менюдан Rave Visual Designer… бандини танлаймиз. Шунда 8.3.2–расмдаги ойна ҳосил бўлади. 8.3.2–расм: RaveReport ҳисоботларни яратиш ойнаси

8.3.2–расмда келтирилган ойнадаги Page1 бўлимига юқорида жойлашган Report компоненталар палитрасидаги Region компонентасини жойлаштирилади. Region компонентасининг ичига Report компоненталар палитрасидаги DataBand компонентасини жойлаштирилади. Дастурдаги маълумотлар омбори билан боғлаш учун File менюсидан New Data Object банди танланади, шунда 8.3.3–расмдаги ойна ҳосил бўлади. Бу ойнадан Direct Data View банди танланади ва Next тугмаси босилади. Ҳосил бўлган ойнадаги Active Data Connections бўлимидан керакли уланиш танланади ва Finish тугмаси босилади (8.3.4–расм). Маълумотлар омбори ҳисоботга боғланганидан сўнг жойлаштирилган компоненталар билан маълумотлар омбори боғланади. DataBand компонентасининг DataView ҳусусиятига DataView1 деб ёзилади. Бу жараён ҳар бир ёзувни алоҳида – алоҳида кўрсатиб бериш учун қўлланилади. Ҳар бир ёзувдаги майдонларни кўрсатиб бериш учун Standard ва Report компоненталар палитрасидаги Text ва DataText компоненталаридан фойдаланилади. Бу компоненталарни DataBand1 компонентасининг ичига 8.3.5–расмда кўрсатилганидек жойлаштирилади. DataText компоненталарнинг ҳар бирини DataView ҳусусиятига DataView1 ни ёзилади ва ҳар бир компонентанинг Da taField ҳусусиятига маълумотлар базасидаги ёзувларнинг майдонлари танланади. 8.3.3–расм: Маълумотлар оқими турини ойнаси 8.3.4–расм: Фаол маълумотлар омборини танлаш ойнаси

$8.3.5–расм: Ҳисобот файлини ҳосил қилиш Ҳисобот файли сақланади. Ҳисоботни кўриш учун 8.3.1–расмдаги Hisobot тугмасига қуйидаги код ёзилади. 1: void __fastcall TForm1::Button4Click(TObject *Sender) 2: { 3: String str; 4: str = ExtractFilePath(Application->ExeName); 5: str = str+"\\oddiy.rav"; 6: RvProject1->ProjectFile = str; 7: RvSystem1->DefaultDest = rdPreview; 8: RvProject1->Execute(); 9: } Бу коддан ташқари RaveReport билан ишлаётган вақтда форманинг яратилиш жараёнида RaveReport компоненталарининг баъзи бир буйруқлари ёзилиши керак бўлади. Бу буйруқлар форманинг OnCreate ходисасига ёзилади. 1: void __fastcall TForm1::FormCreate(TObject *Sender) 2: { 3: RvProject1->SelectReport("Report1",true); 4: RvProject1->Open();$

5: } Hisobot тугмаси босилганида 8.3.6–расмдаги ойна ҳосил бўлади. 8.3.6–расм: Ҳисобот файлини ҳосил қилиш Ҳисобот файлини сақлаш тугмаси орқали фойдаланувчи ихтиёрий форматда сақлаши мумкин. Бу форматларга мисол сифатида HTML, PDFларни келтиришимиз мумкин. Маълумотлар базаси жадвалидаги маълумотларни Microsoft Excel дастурига ўтказиш Маълум бир дастурлар фойдаланишда фойдаланувчиларга турли хилдаги қулайликлар яратилади. Бу қулайликлар фойдаланувчига турли хилдаги ҳисоботлар олиш учун хизмат қилади. Шундай дастурлар тузишда ундаги маълумотларни Microsoft Excel дастурига экспорт қилиш ёки MS Excelдаги маълумотларни импорт қилиш мумкин. Бу жараён дастурчи томонидан турли хилдаги йўллар билан амалга оширилади. MS Excel маълумотлари билан ишлаш учун OLE серверларидан фойдаланиш мақсадга мувофиқ. OLE сервери билан ишлаш учун қуйидаги код фойдаланувчи томонидан кодлар мухарририга ёзилади. 1: #include <ComObj.hpp> 2: #include <utilcls.h>

Бу икки буйруқ OLE серверни фойдаланувчи томонидан яратилаётган дастурга улайди. OLE сервери ёрдамида MS Excel, MS Word ва WordPad дастурлардан фойдаланмаган ҳолда маълумотлар ёзиш мумкин. Ҳозир MS Excel билан ишлашни кўрайлик. OLE серверини MS Excel билан ишлаш принципи қуйидагича: 1: Илова => Китоблар тўплами => Китобнинг номи => Варақлар тўплами => Варақ номи => Катакчалар тўплами (Катакча номи) Юқорида келтирилган принципдан фойдаланиб ўзгарувчилар яратилади. Бу ўзгарувчиларнинг типи ихтиёрий вариантда бўлишини таъминлаш мақсадида Variant типи танланади. 1: Variant vVarApp; // илова учун 2: Variant vVarBooks; // Китоблар тўплами учун 3: Variant vVarBook; // Китоб номи учун 4: Variant vVarSheets; // Варақлар тўплами учун 5: Variant vVarSheet; //Варақ номи учун 6: Variant vVarCells; //Катакчалар тўплами учун 7: Variant vVarCell; //Катакча номи учун Юқоридаги ўзгарувчилардан фойдаланилган ҳолда, MS Excel ни ишга туширилади. Бу буйруқ қуйидагича: 1: vVarApp = CreateOleObject("Excel.Application"); Бу буйруқ натижасида MS Excel дастури ишга туширилади, аммо экранда кўринмайди. Дастур экранда кўриниши учун унинг баъзи бир ҳусусиятларига қийматлар ўрнатиш керак бўлади. OLE ёрдамида яратилган объектларга қиймат бериш ёки унинг қийматини аниқлаш оддий қиймат узатиш ёки қабул қилишдан фарқланади, яъни қийматлар объектнинг ҳусусиятига ўрнатилади ёки объектнинг ҳусусиятининг қиймати олинади. Объект ҳусусиятининг қиймати ўрнатилаётган бўлса, у ҳолда қуйидаги кодга мурожаат қилинади. 1: vVarApp.OlePropertySet("ҳусусият_номи", қиймати);

$Агар ҳусусиятининг қиймати аниқланаётган бўлса, у ҳолда қуйидаги кодга мурожаат қилинади. 1: ўзгарувчи_номи = vVarApp.OlePropertyGet("ҳусусият_номи"); Агар объектнинг бирон бир методига мурожаат қилинаётган бўлса, у ҳолда бу буйруқ қуйидагича амалга оширилади. 1: vVarApp.OleProcedure("методнинг_номи",методнинг_парамертлар_рўй ҳати); Юқорида келтирилган буйруқлар ёрдамида MS Excel дастурини ишга туширишни кўриб чиқайлик. Бунинг учун C++ Builder дастурида янги илова яратамиз. Илованинг асосий формасига 3 та тугма жойлаштирамиз. Бу тугмаларнинг сарлавҳасига Excelни ишга тушириш (Start Excel), ишчи столда Excelни кўрсатиш (View Excel) ва Excelни ёпиш (Quit Excel) деб ўзгартиришлар киритамиз (8.4.1–расм). 8.4.1–расм: Excel билан ишлаш ойнаси 8.4.1–расмда келтирилган ойнадаги Start Excel тугмасининг OnClick ҳодисасига қуйидагича код ёзамиз. 1: void __ fastcall TForm1::Button1Click(TObject *Sender) 2: { 3: /* 4: * Start Excel тугмаси босилганда 5: */ 6: if (!fStart) { 7: vVarApp = CreateOleObject("Excel.Application"); 8: fStart = true ; 9: } 10: else$ $11: { 12: MessageBoxA(0, "Excel dasturi oldin ishga tushirilgan", "Hatolik!", MB_OK); 13: } 14: } Бу буйруқни таҳлил қиладиган бўлсак, 6 қатордаги fStart ўзгарувчисини глобал ўзгарувчи сифатида эълон қилиниб, литерал false қиймат узатилган . Еттинчи қатордаги vVarApp ўзгарувчиси ҳам, шлобал ўзгарувчи сифатида эълон қилинган бўлиб, унинг типи Variant типидадир. Дастур агар fStart ўзгарувчисининг қиймати рост бўлмаса, яъни Excel дастури олдин ишга туширилмаган бўлса, у ҳолда буйруқ Excel дастурини ишга тушириш учун буйруқ беради. Агар аксинча бўлса, у ҳолда ҳатолик ҳақида ҳабар беради. 8.4.1–расмдаги иккинчи тугма, яъни View Excel тугмасининг кодини кўриб чиқамиз. 1: void __ fastcall TForm1::Button2Click(TObject *Sender) 2: { 3: /* 4: * View Excel тугмаси босилганда 5: */ 6: if (fStart) { 7: vVarApp.OlePropertySet("Visible", true ); 8: } 9: else 10: { 11: MessageBoxA(0,"Excel dasturi ishga tushirilmagan", "Hatolik!", MB_OK); 12: } 13: } Бу дастурнинг олтинчи қаторида келтирилган шартни таҳлил қиладиган бўлсак, fStart ўзгарувчисининг қиймати рост бўлса, яъни Excel дастури ишга туширилган бўлса, у ҳолда Excel дастурини кўрсатиш учун, Excel дастурини$ $ифодаловчи объектнинг Visible ҳусусиятига true қийматини ўрнатиш еттинчи қаторда кўрсатилган. Агар Excel дастури ишга туширилмаган бўлса, у ҳолда дастур ишга туширилмаганлиги ҳақидаги ҳатолик кўрсатилади. Юқорида келтирилган 8.4.1–расмдаги 2 та тугманинг кодини кўриб чиқдик. Охирги Quit Excel тугмасининг коди қуйида келтирилган. 1: void __fastcall TForm1::Button3Click(TObject *Sender) 2: { 3: /* 4: * Quit Excel тугмаси босилганда 5: */ 6: if (fStart) { vVarApp.OleProcedure("Quit"); 7: fStart = false; 8: } 9: else { MessageBoxA(0, "Excel dasturi ishga tushirilmagan", "Hatolik!", MB_OK); 10: } 11: } Юқорида келтирилган дастурда Excel дастури ишга туширилган бўлса, Excel дастур ин и ёпиш учун объектнинг Quit методи ишга туширилмоқда. Фойдаланувчи томонидан Excel дастури ишга туширилганида унинг ичида ҳеч қандай лист мавжуд бўлмайди. Фойдаланувчи листларни ҳам махсус буйруқлар ёрдамида яратади. Бу буйруқлар қуйидагилар ҳисобланади. 1: vVarBooks=vVarApp.OlePropertyGet("Workbooks"); 2: vVarApp.OlePropertySet("SheetsInNewWorkbook",3); 3: vVarBooks.OleProcedure("Add"); Юқорида келтирилган буйруқлар тўплами ишчи китобга листлар қўшишни изоҳлайди. Ҳар бир қаторини кўриб чиқадиган бўлсак, биринчи қаторда жорий ишчи китобни белгилаш келтирилган. Бу маҳсус буйруқ ёрдамида жорий ишси китобни vVarBooks номи билан белгилаб олинган. Иккинчи қаторни кўриб чиқадиган бўлсак, Excel дастурининг янги ишчи китоби учун$

лист қўшишлар сонини белгилаш келтирилган. Учинчи қаторда ишчи китобга лист қўшиш методини ишга тушириш буйруғи келтирилган. Excel дастурининг ишчи китобидаги ҳар бир листини ҳам махсус номлар ёки ўзгарувчилар билан белгилаш мумкин. Китобнинг листларни алоҳида ўзгарувчи сифатида кўришдан олдин биз жорий ишчи китони алоҳида ўзгарувчи сифатида қарашимизга тўғри келади. 1: vVarBook=vVarBooks.OlePropertyGet("Item",1); Ишчи китобни ўзгарувчи сифатида белгилаб олганимиздан сўнг ишчи китобидаги бирча листларни алоҳида ўзгарувчи сифатида белгилаб оламиз. 1: vVarSheets=vVarBook.OlePropertyGet("Worksheets"); Листлар тўпламида ўзимизга керакли бўлган листни белгилаш учун қуйидаги дастур қисмини кўриб чиқамиз. 1: vVarSheet = vVarSheets.OlePropertyGet("Item",1); 2: vVarSheet.OlePropertySet("Name","Hisobot"); Юқоридаги дастурнинг қисмида белгиланган листнинг номини ўзгартириш кўрсатилган. Яъни, ишчи китобининг 1 листининг номини Hisobot кўринишига келтирилган. Листдаги катакчаларга маълумотларни киритиш учун буйруқлардан фойдаланилади. Бу буйруқлар қуйида берилган. 1: vVarSheet = vVarSheets.OlePropertyGet("Item",1); 2: vVarCell = vVarSheet.OlePropertyGet("Cells") 3: OleProperty Get("Item",x,y); Юқоридаги дастур кодида x ва y координатага эга бўлган катакча белгиланган. Катакчаларнинг гуруҳини белгилаш ҳам мумкин. Бу гуруҳни бир катак сифатида, яъни бирлаштириш ҳам мумкин. Бу буйруқлар тўплами қуйида кўрсатилган. 1: vVarCell=vVarSheet.OlePropertyGet("Range","A1:C4"); 2: vVarCell.OleProcedure("Merge"); Юқорида келтирилган буйруқлар тўпламида 12 та катакча бирлаштирилган. Катакларга ёзиладиган маълумотларни текислаш,

шрифтларни ўзгартириш, маълумотларни киритиш қуйидагича амалга оширилади. Матнни текислаш: 1: vVarCell.OlePropertySet("HorizontalAlignment", – 4108); 2: vVarCell.OlePropertySet("VerticalAlignment", – 4108); Бу буйруқлар матнни горизонтал ва вертикил ҳолатда марказлаштиради. Текислашнинг ҳар бир буйруқлари ўзгармас сон ёки катталиклардир. Бу катталикларни қуйидаги жадвалда кўришимиз мумкин: Катталикнинг номи Қиймати Горизонтал катталиклар xlHAlignCenter -4108 xlHAlignJustify -4130 xlHAlignLeft -4131 xlHAlignRight -4152 Вертикал катталиклар xlVAlignBottom -4107 xlVAlignCenter -4108 xlVAlignJustify -4130 xlVAlignTop -4160 Шрифт ўлчамини, рангини ва кўринишини ўрнатиш 1: vVarCell.OlePropertyGet("Font").OlePropertySet("Size",15); 2: vVarCell.OlePropertyGet("Font").OlePropertySet("Color",clBlue); 3: //Жирный 4: vVarCell.OlePropertyGet("Font").OlePropertySet("Bold",true); 5: //Курсив 6: vVarCell.OlePropertyGet("Font").OlePropertySet("Italic",true); Шрифт номини ўрнатиш 1: vVarCell.OlePropertyGet("Font").OlePropertySet("Name","Arial"); Катакчага маълумотлар ва формулалар ёзиш 1: vVarCell.OlePropertySet("Value","Мой текст"); 2: vVarCell.OlePropertySet("Value",25); 3: vVarCell.OlePropertySet("Value","=СУММ(A1:A10)"); Устун ёки сатрнинг ўлчамини ўзгартириш 1: vVarCell.OlePropertySet("RowHeight", 20);

2: vVarCell.OlePropertySet("ColumnWidth",10); Юқорида келтирилган буйруқларга таянган ҳолда фойдаланувчи томонидан маълумотлар Excel дастурига юклаш мумкин.

O'xshashlar

Standard компоненталар палитраси хусусият услуб ва ходиса

Additional компоненталар палитраси компоненталари ёрдамида дастурларни лойиҳалаш

График компоненталар

DataAccess DataControls dbGo ёки ADO компоненталари палитраси

DELPHI визуал дастурлаш муҳити компоненталари билан ишлаш технологиялари