olumnWidth: = 20;. Columns [5]. ColumnWidth: = 20;: = XLApp. Workbooks [1]. Worksheets ['Звіт']. Rows;. Rows [2]. Font. Bold: = true;. Rows [1]. Font. Bold: = true;. Rows [1]. Font. Color: = clBlue;. Rows [1]. Font. Size: = 14;: = XLApp. Workbooks [1]. Worksheets ['Звіт'];. Cells [1,2]: = 'Список обладнання';. Cells [2,1]: = 'Найменування';. Cells [2,2]: = '№ серійний';. Cells [2,3]: = '№ інвентарний';. Cells [2,4]: = 'Кабінет';. Cells [2,5]: = 'П.І.Б.';: = 3; mВІ . ADOQuery1. First; i: = 0 to For mВІ . ADOQuery1. RecordCount-1 do. Cells [index, 1]: = For mВІ . ADOQuery1. Fields. Fields [1]. AsString;. Cells [index, 2]: = For mВІ . ADOQuery1. Fields. Fields [2]. AsString;. Cells [index, 3]: = For mВІ . ADOQuery1. Fields. Fields [3]. AsString;. Cells [index, 4]: = For mВІ . ADOQuery1. Fields. Fields [4]. AsString;. Cells [index, 5]: = For mВІ . ADOQuery1. Fields. Fields [5]. AsString; (index); mВІ . ADOQuery1. Next;;;. Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, ADODB, Grids, DBGrids, XPMan; mВі = class (TForm): TDataSource;: TDBGrid;: TADOConnection;: TADOQuery;: TButton;: TButton;: TButton;: TXPManifest; Button3Click (Sender: TObject); FormShow (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations}; mВі : TFor mВі ; Unit1, Unit6;
{$ R *. dfm} TFor mВі . Button3Click (Sender: TObject);. Show; mВі . Hide;
end;
// вирівнювання форми по центру екрана
procedure TFor mВі . FormShow (Sender: TObject);: = (screen. Width-Width) div 2 ;: = (Screen. Height-Height) div 2;; TFor mВі . Button1Click (Sender: TObject); mВі . Hide;. show;; TFor mВі . Button2Click (Sender: TObject); id:...
