6,8] .Borders [8] .ColorIndex:=- 4 105; .Cells [i + 6,8] .Borders [10]. LineStyle:=1; .Cells [i + 6,8] .Borders [10] .Weight:=- 4138; .Cells [i + 6,8] .Borders [10] .ColorIndex:=- 4105;.Cells[i+6,2]:=ADOTable1.FieldByName(laquo;ID_Klientiraquo;).AsString;.Cells[i+6,3]:=ADOTable1.FieldByName(laquo;Familiyaraquo;).AsString;.Cells[i+6,4]:=ADOTable1.FieldByName(laquo;Imyaraquo;).AsString;.Cells[i+6,5]:=ADOTable1.FieldByName(laquo;Otchestvoraquo;).AsString;.Cells[i+6,6]:=ADOTable1.FieldByName(laquo;Telefonraquo;).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;;TForm2.Button5Click(Sender: TObject) ;;:=CreateOleObject ( Excel.Application ) ;. Visible:=True; .Workbooks.Open ( C: Кліент.xls ) ;. ActiveSheet.Range [ A7 ]. Value :=DBEdit1.Text; .ActiveSheet.Range [ b7 ]. Value:=DBEdit2.Text; .ActiveSheet.Range [ c7 ]. Value:=DBEdit3.Text; .ActiveSheet.Range [ d7 raquo ;]. Value:=DBEdit4.Text; .ActiveSheet.Range [ e7 ]. Value:=dbEdit5.Text ;;
end.
Форма Перукарі. Додаток 3.
procedure TForm3.Button1Click (Sender: TObject) ;. Insert ;; TForm3.Button2Click (Sender: TObject) ;. Refresh ;; TForm3.Button3Click (Sender: TObject); MessageDlg ( Ви впевнені що хочете видалити цей запис? raquo ;, mtConfirmation, mbOKCancel, 0)=mrOkADOTable1.Delete ;;.
Форма Розклад Додаток 4.TForm4.Button1Click (Sender: TObject) ;. Insert ;; TForm4.Button2Click (Sender: TObject) ;. Refresh ;; TForm4.Button3Click (Sender: TObject); MessageDlg ( Ви впевнені що хочете видалити цей запис? raquo ;, mtConfirmation, mbOKCancel, 0)=mrOkADOTable1.Delete ;;.
Форма Засоби. Додаток 5.TForm5.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] .Co...
