ly=.t.
. txtraz.readonly=.t.
. txtn.readonly=.t.
. txtdt.readonly=.t.
. txtrabo.readonly=.t.
. txted.readonly=.t.
. txtkol.readonly=.t.
. refresh
Кнопка «Пошук» (click): SAFETY OFFEMPTY (thisform.text1.Value) =. t.
MESSAGEBOX ( Введіть дані для пошуку ... , 0, Увага! )
ELSEINDEXEStable2on n TO table2.idx
* stroka=upper (thisform.text1.Value)=thisform.text1.Valueseek (stroka) ( Запис знайдена! , 0, Увага! ). text1.Value =0.Refresh ( Запис ненайдена! , 0, Увага! ). text1.Value=0.Refresh
Кнопка «Export в HTML» (click):=тисячі двісті п'ятьдесят-одна=PUTFILE ( Файл: raquo ;, report raquo ;, html )=FCREATE(ctxtfile)table2=laquo;lt;htmlgt;lt;headgt;lt;titlegt;Отчётlt;/titlegt;lt;/headgt;lt;body bgcolor=# bcdbcd gt; lt; table border=1 gt; +;
lt; tr gt; lt; td gt; Наряд №lt;/tdgt;lt;tdgt;Таб.ном.lt;/tdgt;lt;tdgt;Цехlt;/tdgt;lt;tdgt;Сотрудникlt;/tdgt;lt;tdgt;Профессияlt;/tdgt;lt;tdgt;Разрядlt;/tdgt;lt;tdgt;Датаlt;/tdgt;lt;tdgt;Работаlt;/tdgt;lt;tdgt;ед.изм.lt;/tdgt;lt;tdgt;Количествоlt;/tdgt;lt;/trgt;raquo;=coutstring+ lt; tr gt; lt; td gt; + STR (n) + lt;/td gt; lt; td gt; + STR (tn) + lt;/td gt; lt; td gt; + STR (cex) + lt;/td gt; lt; td gt; + rab + lt;/td gt; lt; td gt; + pr + lt;/td gt; lt; td gt; raquo ; + STR (raz) + lt;/td gt; lt; td gt; + DTOC (dt) + lt;/td gt; lt; td gt; + rabo + lt;/td gt; lt ; td gt; + ed + lt;/td gt; lt; td gt; + STR (kol) + lt;/td gt; lt;/tr gt; =coutstring + lt;/table gt; lt;/body gt; lt;/html gt; =FPUTS(htxtfile,coutstring)(htxtfile)=CREATEOBJECT(laquo;InternetExplorer.Applicationraquo;).visible=.t..Navigate(laquo;amp;ctxtfileraquo;)
Кнопка «Звіт в Excel» (click): w=SYS (5) + ALLTRIM (SYS (2003)) PATH TO amp;wtable2=CREATEOBJECT(laquo;Excel.Applicationraquo;).visible=.t..workbooks.add=xls1.Sheets[1]table2.cells(1,1).value=laquo;Наряд №raquo;.cells(1,2).value=laquo;Таб.ном.raquo;.cells(1,3).value=laquo;Цехraquo;.cells(1,4).value=laquo;Сотрудникraquo;.cells(1,5).value=laquo;Профессияraquo;.cells(1,6).value=laquo;Разрядraquo;.cells(1,7).value=laquo;Датаraquo;.cells(1,8).value=laquo;Работаraquo;.cells(1,9).value=laquo;ед.изм.raquo;.cells(1,10).value=laquo;Количествоraquo;=1=nRov+1.cells(nRov,1).value=table2.n.cells(nRov,2).value=table2.tn.cells(nRov,3).value=table2.cex.cells(nRov,4).value=table2.rab.cells(nRov,5).value=table2.pr.cells(nRov,6).value=table2.raz.cells(nRov,7).value=table2.dt.cells(nRov,8).value=table2.rabo.cells(nRov,9).value=table2.ed.cells(nRov,10).value=table2.kol
Поле Got Focus: thisform.txtTn.ReadOnly=.f.табліца1on tn to tn.idxFOR tn=thisform.txttn.Value=fio=dol=stz.txtrab.Value=a.txtpr.Value =b.txtRaz.Value=c
Рис. 2.15 - Форма: m_list.scx
Формa INIT:
PUBLIC put=SYS (5) + ALLTRIM (SYS (2003)) PATH TO amp; putTALK OFFDATABASE 1table3 EXCLUSIVE.Closable=.F.thisform
. grid1.RecordSource=.null.
. grid1.RecordSource= table3
. txttn.value=0
. txtn_par.value=0
. txtrabo.value=
. txtraz.value=0
. txtkol.value=0
. txtdetal.value=
. txtrab.value=
. txtvrem.value=0
. txtrac.value=0
. txtdt.value={}
. txtn.value=0
. txttn.readonly=.t.
. txtn_par.readonly=.t.
. txtrabo.readonly=.t.
. txtraz.readonly=.t.
. txtkol.readonly=.t.
. txtdetal.readonly=.t.
. txtrab.readonly=.t.
. txtvrem.readonly=.t.
. txtrac.readonly=.t.
. txtdt.readonly=.t.
. txtn.readonly=.t.thisform.grid1
. coLUMN1.width=100
. coLUMN2.width=100
. coLUMN3.width=100
. coLUMN4.width=100
. coLUMN5.width=100
. coLUMN6.width=100
. coLUMN7.width=100
. coLUMN8.width=100
. coLUMN9.width=100
. coLUMN10.width=100
. coLUMN11.width=100.Refresh
Формa KeyPress: nKeyCode, nShiftAltCtrlnKe...
