lign="justify">
Додаток 1 Головна форма
procedure TForm1.N1112Click (Sender: TObject);
begin.show ;; TForm1.N1Click (Sender: TObject) ;. show ;; TForm1.N2Click (Sender: TObject) ;. show ;; TForm1.N3Click (Sender: TObject) ;. show ;; TForm1.N4Click (Sender: TObject) ;. show ;; TForm1.N5Click (Sender: TObject) ;. show; TForm1.N8Click (Sender: TObject) ;;; TForm1.N10Click (Sender: TObject) ;. show; ; TForm1.N7Click (Sender: TObject); ( hh.exe Справкаm , SW_SHOW);
end;.
Форма Клієнти. Додаток 2
var: TForm2 ;, Doc, app, book, sheet, Excel: variant; ComObj;
{$ R * .dfm} TForm2.Button1Click (Sender: TObject) ;. Insert ;; TForm2.Button2Click (Sender: TObject) ;. Refresh ;; TForm2.Button3Click (Sender: TObject); MessageDlg ( Ви впевнені що хочете видалити цей запис? raquo ;, mtConfirmation, mbOKCancel, 0)=mrOkADOTable1.Delete ;; TForm2.Button4Click (Sender: TObject);book,sheet,Excel:Variant;:integer;:string;:=CreateOleObject(laquo;Excel.Applicationraquo;);:=Excel.WorkBooks.Add;.Worksheets[3].Delete;.Worksheets[2].Delete;.Worksheets[1].Name:=laquo;Клиентыraquo;;:=book.Worksheets[1];.First;.Range[laquo;D1raquo;]:=laquo;Клиентыraquo;;.Range[laquo;B6raquo;]:=laquo;IDКлиентаraquo;;.Range[laquo;C6raquo;]:=laquo;Фамилияraquo;;.Range[laquo;d6raquo;]:=laquo;Имяraquo;;.Range[laquo;e6raquo;]:=laquo;Отчествоraquo;;.Range[laquo;f6raquo;]:=laquo;Телефонraquo;;
//sheet.Range [ g6 ]:= СеріяПаспорта raquo ;;
//sheet.Range [ h6 ]:= НомерПаспорта raquo ;;
//sheet.Range[laquo;A1:E1raquo;].Select;.Range[laquo;b6:h6raquo;].Borders[8].LineStyle:=1;.Range[laquo;B6:h6raquo;].Borders[8].Weight:=- 4 138; .Range [ B6: h6 ]. Borders [8] .ColorIndex:=- 4105;.Range[laquo;B6:h6raquo;].Borders[9].LineStyle:=1;.Range[laquo;B6:h6raquo;].Borders[9].Weight:=- 4 138; .Range [ B6: h6 ]. Borders [9] .ColorIndex:=- 4105;.Range[laquo;B6:h6raquo;].Borders[10].LineStyle:=1;.Range[laquo;B6:h6raquo;].Borders[10].Weight:=- 4 138; .Range [ B6: h6 ]. Borders [10] .ColorIndex:=- 4105;.Range[laquo;B6:h6raquo;].Borders[11].LineStyle:=1;.Range[laquo;B6:h6raquo;].Borders[11].Weight:=- 4 138; .Range [ B6: h6 ]. Borders [11] .ColorIndex:=- 4105;.Range[laquo;B6:h6raquo;].Borders[11].LineStyle:=1;.Range[laquo;B6:h6raquo;].Borders[11].Weight:=- 4138;.Columns[laquo;B:Braquo;].columnWidth:=10;.Columns[laquo;C:Craquo;].columnWidth:=30;.Columns[laquo;D:Draquo;].columnWidth:=20;.Columns[laquo;E:Eraquo;].columnWidth:=20;.Columns[laquo;F:Fraquo;].columnWidth:=15;.Columns[laquo;g:graquo;].columnWidth:=20;.Columns[laquo;h:hraquo;].columnWidth:=20;i:=1 to ADOTable1.RecordCount do.Cells [i + 5,1] .Borders [10] .LineStyle:=1; .Cells [i + 5,1] .Borders [10] .Weight:=- 4138; .Cells [i +5,1] .Borders [10] .ColorIndex:=- 4105; .Cells [i + 6,1] .Borders [10] .LineStyle:=1; .Cells [i + 6,1] .Borders [10 ] .Weight:=- 4 138; .Cells [i + 6,1] .Borders [10] .ColorIndex:=- 4 105; .Cells [i + 6,2] .Borders [10] .LineStyle:=1 ;. Cells [i + 6,2] .Borders [10] .Weight:=- 4 138; .Cells [i + 6,2] .Borders [10] .ColorIndex:=- 4 105; .Cells [i + 6,3].Borders [10] .LineStyle:=1; .Cells [i + 6,3] .Borders [10] .Weight:=- 4138; .Cells [i + 6,3] .Borders [10] .ColorIndex:= - 4105; .Cells [i + 6,4] .Borders [10] .LineStyle:=1; .Cells [i + 6,4] .Borders [10] .Weight:=- 4 138; .Cells [i + 6 , 4] .Borders [10] .ColorIndex:=- 4 105; .Cells [i + 6,5] .Borders [10] .LineStyle:=1; .Cells [i + 6,5] .Borders [10]. Weight:=- 4 138; .Cells [i + 6,5] .Borders [10] .ColorIndex:=- 4105; .Cells [i + 6,6] .Borders [10] .LineStyle:=1; .Cells [ i + 6,6] .Borders [10] .Weight:=- 4 138; .Cells [i + 6,6] .Borders [10] .ColorIndex:=- 4105; .Cells [i + 6,2] .Borders [8] .LineStyle:=1; .Cells [i + 6,2] .Borders [8] .Weight:=- 4 138; .Cells [i + 6,2] .Borders [8] .ColorIndex:=- 4 105 ; .Cells [i + 6,3] .Borders [8] .LineStyle:=1; .Cells [i + 6,3] .Borders [8] .Weight:=- 4 138; .Cells [i + 6,3 ] .Borders [8] .ColorIndex:=- 4 105; .Cells [i + 6,4] .Borders [8] .LineStyle:=1; .Cells [i + 6,4] .Borders [8] .Weight: =- 4138; .Cells [i + 6,4] .Borders [8] .ColorIndex:=- 4105; .Cells [i + 6,5] .Borders [8] .LineStyle:=1; .Cells [i + 6,5] .Borders [8] .Weight:=- 4 138; .Cells [i + 6,5] .Borders [8] .ColorIndex:=- 4 105; .Cells [i + 6,6] .Borders [8 ] .LineStyle:=1; .Cells [i + 6,6] .Borders [8] .Weight:=- 4 138; .Cells [i + 6,6] .Borders [8] .ColorIndex:=- 4 105 ;. Cells [i + 6,7] .Borders [8] .LineStyle:=1; .Cells [i + 6,7] .Borders [8] .Weight:=- 4138; .Cells [i + 6,7]. Borders [8] .ColorIndex:=- 4105; .Cells [i + 6,7] .Borders [10] .LineStyle:=1; .Cells [i + 6,7] .Borders [10] .Weight:=-+4138; .Cells [i + 6,7] .Borders [10] .ColorIndex:=- 4 105; .Cells [i + 6,8] .Borders [8] .LineStyle:=1; .Cells [i + 6, 8] .Borders [8] .Weight:=- 4138; .Cells [i + ...