ic declarations} ;: TObect; ??ComObj, Unit1, zayavlenie;
{$ R * .dfm} TObect.Edit1Change (Sender: TObject);
{If Length (Edit1.Text) gt; 0 then.Filtered:=trueADOTable1.Filtered:=false;.Filter:=laquo;Организацияgt;raquo;laquo;raquo;+Edit1.Text+laquo;"raquo;laquo;raquo;; }; TObect.DBComboBox4Change (Sender: TObject);
{If Length (Edit1.Text) gt; 0 then.Filtered:=trueADOTable1.Filtered:=false;.Filter:=laquo;Перезаключениеgt;raquo;laquo;raquo;+DBComboBox4.Text+laquo;"raquo;laquo;raquo;; }; TObect.N2Click (Sender: TObject);app,book,sheet:Variant;:integer;:string;:=CreateOleObject(laquo;Excel.Applicationraquo;);:=app.WorkBooks.Add;.Visible :=True; .Worksheets [3] .Delete; .Worksheets [2] .Delete; .Worksheets [1] .Name:= Охоронювані объектыraquo;;:=book.Worksheets[1];.ADOTable1.First;.Range[laquo;B1raquo;]:=laquo;Отчёт по об'єктах raquo ;;
sheet.Range [ B2 ]:= Клас объектаraquo;;.Range[laquo;C2raquo;]:=laquo;Объектraquo;;.Range[laquo;d2raquo;]:=laquo;Адрессraquo;;
sheet.Range[laquo;e2raquo;]:=laquo;Перезаключениеraquo;;.Range[laquo;A1:E1raquo;].Select;.Range[laquo;b2:F2raquo;].Borders[7].LineStyle:=1;.Range[laquo;B2:F2raquo;].Borders[7].Weight:=- 4 138; .Range [ B2: F2 ]. Borders [7] .ColorIndex:=- 4105;.Range[laquo;B2:F2raquo;].Borders[8].LineStyle:=1;.Range[laquo;B2:F2raquo;].Borders[8].Weight:=- 4 138; .Range [ B2: F2 ]. Borders [8] .ColorIndex:=- 4105;.Range[laquo;B2:F2raquo;].Borders[9].LineStyle:=1;.Range[laquo;B2:F2raquo;].Borders[9].Weight:=- 4 138; .Range [ B2: F2 ]. Borders [9] .ColorIndex:=- 4105;.Range[laquo;B2:F2raquo;].Borders[10].LineStyle:=1;.Range[laquo;B2:F2raquo;].Borders[10].Weight:=- 4 138; .Range [ B2: F2 ]. Borders [10] .ColorIndex:=- 4105;.Columns[laquo;B:Braquo;].columnWidth:=20;.Columns[laquo;C:Craquo;].columnWidth:=10;.Columns[laquo;D:Draquo;].columnWidth:=40;.Columns[laquo;E:Eraquo;].columnWidth:=40;
//Sheet.Columns [ F: F ]. columnWidth:=15; i:=2 to Obect.ADOTable1.RecordCount do.Cells [i + 1,2] .Borders [ 7] .LineStyle:=1; .Cells [i + 1,2] .Borders [7] .Weight:=- 4138; .Cells [i + 1,2] .Borders [7] .ColorIndex:=- 4 105;.Cells [i + 1,6] .Borders [10] .LineStyle:=1; .Cells [i + 1,6] .Borders [10] .Weight:=- 4 138; .Cells [i + 1,6].Borders [10] .ColorIndex:=- 4105; .Cells [i + 1,2]:=Obect.ADOTable1.FieldByName ( Класс_Об'екта ). AsString; .Cells [i + 1,3]:=Obect. ADOTable1.FieldByName ( Об'єкт ). AsString; .Cells [i + 1,4]:=Obect.ADOTable1.FieldByName ( Адресс_Об'екта ). AsString;
//sheet.Cells [i + 1,5]:=Obect.ADOTable1.FieldByName ( Переукладання ). AsString;
//sheet.Cells[i+1,6]:=MainForm.WaresADOTable.FieldByName(laquo;Ценаraquo;).AsCurrency;.ADOTable1.Next;;i:=2 to 6 do.Cells [Obect.ADOTable1.RecordCount + 1, i] .Borders [9] .LineStyle:=1; .Cells [Obect.ADOTable1.RecordCount + 1, i] .Borders [9] .Weight:=-+4138; .Cells [Obect.ADOTable1.RecordCount + 1, i] .Borders [9] .ColorIndex:=- 4105 ;;:=GetCurrentDir; .DisplayAlerts:=false; .SaveAs (CurDir + Охоронювані об'екти.xls raquo ;) ;. Visible:=true ;; TObect.SpeedButton1Click (Sender: TObject);
{If Length (DBEdit2.Text) gt; 0 then.Filtered:=trueADOTable1.Filtered:=false;.Filter:=laquo;Организацияgt;raquo;laquo;raquo;+DBEdit2.Text+laquo;raquo;laquo;raquo;; }; TObect.Button1Click (Sender: TObject); not ADOTable1.Locate ( Переукладання raquo ;, edit1.Text, []) then
ShowMessage ( Таких договорів немає ) ;;
procedure TObect.N3Click (Sender: TObject); Excel: variant;:=CreateOleObject ( Excel.Application ) ;. Visible:=True; .Workbooks.Open ( D: Диплом Об'єкти стоімостьуслуг.xls );
///////////////////////////////////////// що відкрили.ActiveSheet.Range [ E9 ]. Value:=Dogowor.DBEdit1.Text; .ActiveSheet.Range [ G9 ]. Value:=Dogowor.DBEdit12.Text; .ActiveSheet.Range [ L9 ].Value:=Dogowor.DBEdit15.Text; .ActiveSheet.Range [ B21 ]. Value:=Dogowor.DBEdit1.Text; .ActiveSheet.Range [ C23 ]. Value:=DBEdit1.Text; .ActiveSheet.Range [ D23 ]. Value:=DBEdit2.Text; .ActiveSheet.Range [ G23 ]. Value:=Edit2.Text; .ActiveSheet.Range [ E23 ]. Value:=Dogowor. DBComboBox1.Text; .ActiveSheet.Range [ I23 ]. Value:=ComboBox1.Text; .ActiveSheet.Range [ J23 ]. Value:=ComboBox3.Text; .ActiveSheet.Range [ K23 ].Value:=ComboBox2.Text ;; TObect.Button2Click (Sender: TObject) ;. Refresh ;; TObect.SpeedButton2Click (Sender: TObject) ;. Text:=zayav.Edit2.Text; .Text:=zayav.Edit3.Text ;;
Form raschet_wrem
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, DB, ADODB, DBCtrls, ExtCtrls, ComCtrls, XPMan, Menus ,, OleCtrls, VCF1; _wrem=class ( TForm): TComboBox ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel...
