lorIndex:=- 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:=- 4 138; .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 + 6,8] .Borders [ 8] .ColorIndex:=- 4105; .Cells [i + 6,8] .Borders [10] .LineStyle:=1; .Cells [i + 6,8] .Borders [10] .Weight:=- 4 138;.Cells [i + 6,8] .Borders [10] .ColorIndex:=- 4105;.Cells[i+6,2]:=ADOTable1.FieldByName(laquo;ID_Sredstvaraquo;).AsString;.Cells[i+6,3]:=ADOTable1.FieldByName(laquo;Nazvanieraquo;).AsString;.Cells[i+6,4]:=ADOTable1.FieldByName(laquo;Cenaraquo;).AsString;.Cells[i+6,5]:=ADOTable1.FieldByName(laquo;Kolichestvoraquo;).AsString;.Cells[i+6,6]:=ADOTable1.FieldByName(laquo;Nalichieraquo;).AsString;
//sheet.Cells[i+6,7]:=ADOTable1.FieldByName(laquo;СерияПаспортаraquo;).AsString;
//sheet.Cells[i+6,8]:=ADOTable1.FieldByName(laquo;НомерПаспортаraquo;).AsString;.Next;;i:=2 to 8do.Cells[ADOTable1.RecordCount+6,i].Borders[9].LineStyle:=1;.Cells[ADOTable1.RecordCount+6,i].Borders[9].Weight:=- 4 138; .Cells [ADOTable1.RecordCount + 6, i] .Borders [9] .ColorIndex:=- 4105;;:=GetCurrentDir;.DisplayAlerts:=false;.SaveAs(CurDir+laquo;Средств.xlsraquo;);.Visible:=true;;TForm5.Button5Click(Sender: TObject);:=CreateOleObject ( Excel.Application ) ;. Visible:=True;.Workbooks.Open(laquo;C:Средства.xlsraquo;);.ActiveSheet.Range[laquo;A7raquo;].Value:= DBEdit1.Text; .ActiveSheet.Range [ b7 ]. Value:=DBEdit2.Text; .ActiveSheet.Range [ c7 ]. Value:=DBEdit3.Text; .ActiveSheet.Range [ d7 ].Value:=DBEdit4.Text; .ActiveSheet.Range [ e7 ]. Value:=dbEdit5.Text;
end;.
Форма Послуги. Додаток 6.
procedure TForm6.Button1Click (Sender: TObject) ;. Insert ;; TForm6.Button2Click (Sender: TObject) ;. Refresh ;; TForm6.Button3Click (Sender: TObject); MessageDlg ( Ви впевнені що хочете видалити цей запис? raquo ;, mtConfirmation, mbOKCancel, 0)=mrOkADOTable1.Delete ;;.
Форма Заявки. Додаток 7.
var
Form7: TForm7;
WordApp, Doc, app, book, sheet, Excel: variant; ComObj;
{$ R * .dfm} TForm7.Button1Click (Sender: TObject) ;. Insert ;; TForm7.Button2Click (Sender: TObject) ;. Refresh ;; TForm7.Button3Click (Sender: TObject); MessageDlg ( Ви впевнені що хочете видалити цей запис? raquo ;, mtConfirmation, mbOKCancel, 0)=mrOkADOTable1.Delete ;; TForm7.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 [ C6 ]:= ID Клієнта raquo ;;. Range [ d6 ]:= ID Парикмахера raquo ;;
sheet.Range [ e6 ]:= ID Послуги raquo ;;. Range [ f6 ]:= Дата Записиraquo;;.Range[laquo;g6raquo;]:=laquo;Времяraquo;;.Range[laquo;h6raquo;]:=laquo;Дата виконання 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[laq...
