Ñîçäàíèå ïîëüçîâàòåëüñêèõ ïå÷àòíûõ ôîðì èç Access â Word (ãîòîâûé âàðèàíò)
|
|
Ñðåäà, 19 Äåêàáðÿ 2018 ã. 20:57
+ â öèòàòíèê
Ïðåäëàãàþ íà ñóä îáùåñòâåííîñòè ïî÷òè ãîòîâîå ðåøåíèå ïî ñîçäàíèþ îò÷åòîâ â ôîðìàòå RTF èç Access ñ ïî÷òè ëþáîé ñëîæíîñòüþ.
Ñïîñîá ôîðìèðîâàíèÿ áûë âçÿò îò êîìïîíåíòà äëÿ Delphi
EkRtf.
Èñïîëüçîâàíèå ñâîáîäíîå ïðè íàëè÷èè â îïèñàíèè ïðîãðàììû ññûëêè íà äàííûé òîïèê.Äëÿ ñîçäàíèÿ îò÷åòà íóæíî ïðèäóìàòü øàáëîí è ñîõðàíèòü åãî â ôîðìàòå RTF.  êà÷åñòâå óïðàâëÿþùèõ ïîëåé èñïîëüçóþòñÿ ïîëÿ (×òî áû èõ óâèäåòü alt+f9, ÷òî áû äîáàâèòü ctrl+f9). Âñå óïðàâëÿþùèå êîìàíäû èìåþò ôîðìàò Ôóíêöèÿ(ÑïèñîêÏàðàìåòðîâ).
Êîìàíäû ðàçäåëÿþòñÿ íà äâå êàòåãîðèè: óïðàâëåíèå õîäîì âûïîëíåíèÿ, óïðàâëåíèå äàííûìè
Óïðàâëåíèå õîäîì:
Scan..EndScan Ïàðà êîìàíä îòêðûâàåò äàííûå è ïðîêðó÷èâàåò áëîê äëÿ êàæäîé ñòðîêè
if..elif..else..endif - Ñòàíäàðòíîå âåòâëåíèå
Äëÿ Âûâîäà äàííûõ èñïîëüçóåòñÿ êîìàíäà
f(Ïîëå) ñàìîì Access íóæíî çàïîëíèòü òàáëèöó t_rep - Îáúåêò îò÷åòà, ñîäåðæèò ññûëêó íà øàáëîí è òàáëèöó t_repQuery ñîäåðæèò çàïðîñû èñïîëüçóåìûå êîìàíäîé Scan
×òî áû ðàñïå÷àòàòü îò÷åò íåîáõîäèìî ñîçäàòü êîíòåêñò
Dim dic As New Scripting.Dictionary
dic.CompareMode = TextCompare
èíèöèàëèçèðîâàòü èñõîäíûå äàííûå
'Òàê ñëîæíî íóæíî òîëüêî äëÿ ôîðìàòåðà ;stdf:
dic("Êîä.oper") = 1 'ðàâíî ñì òàáëèöó t_operand
dic("Êîä.value") = Me.Êîä.Value
dic("Êîä.type") = "n" 'Òèï ïàðàìåòðà n-÷èñëî, s-ñòðîêà, d-Äàòà
à äàëüøå çàïóñêàåì ôîðìèðîâàíèå è ÷èñòèì ïàìÿòü
PrintReport 1, dic' ðàñïå÷àòàòü îò÷åò ñ êîäîì 1 (òàáëèöà t_rep)
Set dic = Nothing
áîëåå ïîäðîáíî êàê ðàáîòàþò øàáëîíû ñì âëîæåííóþ èíñòðóêöèþ.
https://www.sql.ru/forum/1306935/sozdanie-polzovatelskih-pechatnyh-form-iz-access-v-word-gotovyy-variant
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-