font Arial , 10cyclewindow winwindow win
fr.Enabled=.T.
Вихідний код процедури кнопки «Вибірка».
fr.Enabled=.F.window win from 9,20 to 16,48 title Вибірка system font Courier , 10window win=0=0
@ 1,3 say Номер підрозділу
@ 1,26 get b color, n/bg * picture z 99
@ 4,8 get m function * H Введення; Скасування size 1.5,13,0 font Arial , 10cyclewindow winwindow winm=1b gt; 01b1for p8=bfound ()=2a=bwindow Вибірка встановлена ?? timeout 2
elsewindow Номер підрозділу відсутня timeout 2window Помилка у номері підрозділи timeout 2
endif=1a=0window Вибірка не встановлена ?? timeout 2
fr.Enabled=.T.
Вихідний код процедури кнопки «Тема».
fr.Enabled=.F.window win from 9,20 to 16,79 title Тема system font Courier , 10window win=0
@ 1,3 say Вміст заголовка
@ 1,25 get x3 color, n/bg *
@ 4,26 get m function * H Введення size 1.5,13,0 font Arial , 10cyclewindow winwindow winx3=space (45) window Тема не введений timeout 2
x3= Перелік співробітників window Тема введений timeout 2.Enabled=.T.
Вихідний код процедури кнопки «Створення Word - файлу».
fr.Enabled=.F.file ( rez.dbf ) rez.dbf1b1 order tag t1to rez fields p1, p2, p3, p4, p5, p6, p7, p81rezcasex1=1on str (p1,3) to rez.idxx1=2on p2 to rez.idxx1=3on dtos (p7) to rez.idxx1=4on str (p8,2) to rez.idxindex to rez.idxx2=2for p8 # x2a=reccount ( ) + 1=6m1 (cs, 6) (1,1)= таб.№
m1(1,2)=laquo;Ф.И.О.raquo;(1,3)=laquo;Должностьraquo;(1,4)=laquo;Окладraquo;(1,5)=laquo;Дата пост.
m1 (1,6)= № підр. top=2while .not.eof () (i, 1)=str (p1,3) (i, 2)=rtrim (p2) + raquo;+substr(p3,1,1)+laquo;.raquo;+substr(p4,1,1)+laquo;.raquo;(i,3)=p5(i,4)=str(p6,5)(i,5)=dtoc(p7)(i,6)=str(p8,2)=i+1index tom2 (6) (1)=60 (2)=150 (3)=100 (4)=60 (5)=80 (6)=50
*
* COM - сервер: Visual FoxPro і Microsoft Word
*=CreateObject(laquo;Word.Applicationraquo;).Visible=.t.=a1.Documents.Add.PageSetup.TopMargin=73.PageSetup.LeftMargin=57.PageSetup.BottomMargin=74.PageSetup.RightMargin=25.Selection.Font.Name=laquo;Arialraquo;.Selection.Font.Size=14.Selection.TypeText(x3).Selection.TypeParagrapha1
. Selection.Font.Name= Arial
. Selection.Font.Size=12
.ActiveDocument.Tables.Add(.Selection.Range,cs,ck)=.ActiveDocument.Tables(1)a3=1while i lt;=cs=1while j lt;=cki=1
. Cell (i, j) .Height=25
. Cell (i, j) .Range.Bold=.T.
. Cell (i, j) .Height=15
. Cell (i, j) .Range.Bold=.F.=m1 (i, j)=m2 (j)
. Cell (i, j) .Width=b2
. Cell (i, j) .Range.InsertAfter (b1)=j + 1=i + 1=1while i lt;=(cs + 2)
. Selection.MoveDown=i + 1
fr.Enabled=.T.
Вихідний код процедури кнопки «Створення Excel - файлу».
fr.Enabled=.F.file ( rez.dbf ) rez.dbf1b1 order tag t1to rez fields p1, p2, p3, p4, p5, p6, p7, p8
*
* COM - сервер: Visual FoxPro і Microsoft Excel
*=createobject(laquo;Excel.Applicationraquo;).WorkBooks.Add.Visible=.T.=e1.Sheets.Count() amp; amp; число аркушів книги
* залишити тільки один лист=1
do while i lt;=(b - 1) .Sheets (1) .Delete ()=i + 1=e1.Sheets (1) amp; amp; установка аркуша 1.Name= Лист 1raquo;.Range(laquo;A1raquo;).Value=x3.Range(laquo;A3raquo;).Value=laquo;Таб.№raquo;.Range(laquo;B3raquo;).Value=laquo;Ф.И.О.raquo;.Range(laquo;C3raquo;).Value=laquo;Должностьraquo;.Range(laquo;D3raquo;).Value=laquo;Окладraquo;.Range(laquo;E3raquo;).Value=laquo;Дата пост. .Range ( F3 ). Value= № підр. 1rezcasex1=1on str (p1,3) to rez.idxx1=2on p2 to rez.idxx1=3on dtos (p7) to rez.idxx1=4on str (p8,2) to rez.idxindex to rez.idxx2=2for p8 # x2atop=5while .not.eof (). Cells (i, 1) .Value=str (p1,3) .Cells ( i, 2) .Value=rtrim (p2) + raquo;+substr(p3,1,1)+laquo;.raquo;+substr(p4,1,1)+laquo;.raquo;.Cells(i,3).Value=p5.Cells(i,4).Value=str(p6,5).Cells(i,5).Value=dtoc(p7).Cells(i,6).Value=str(p8,2)=i+1index to
use.Enabled=.T.
Вихідний код процедури кнопки «Вихід» .. Release ()
. 4 Опис процесу налагодження програми
При налагодженні складених програм був використаний...
