"justify"> end; TFor mВІ . Button1Click (Sender: TObject); d, s, f: integer;
// кнопка додати
form ВІ . Hide;
form5.show;. Edit2. Text: =''; mВІ . ADOQuery1.SQL. Text: = 'SELECT * FROM roomlist'; mВІ . ADOQuery1. Active: = True; d: = 1 to For mВІ . ADOQuery1. RecordCount do. ComboBox1. Items. Add (For mВІ . ADOQuery1. FieldbyName ('number'). Value); mВІ . ADOQuery1. Next;
////////////////////////////////////////// //////////////////////////// mВІ . ADOQuery2.SQL. Text: = 'SELECT * FROM hardtype'; mВІ . ADOQuery2. Active: = True; s: = 1 to For mВІ . ADOQuery2. RecordCount do. ComboBox2. Items. Add (For mВІ . ADOQuery2. FieldbyName ('name'). Value); mВІ . ADOQuery2. Next;
////////////////////////////////////////// //////////////////////////////////// mВІ < span align = "justify">. ADOQuery3.SQL. Text: = 'SELECT * FROM Polzovateli'; mВІ . ADOQuery3. Active: = True; f: = 1 to For mВІ . ADOQuery3. RecordCount do. ComboBox3. Items. Add (For mВІ . ADOQuery3. FieldbyName ('FIO'). Value); mВІ . ADOQuery3. Next;; end; end; end;
// вирівнювання форми по центру екранаTFor mВІ . FormShow (Sender: TObject);: = (screen. Width -Width) div 2;: = (Screen. Height-Height) div 2;; TFor mВІ . Button4Click (Sender: TObject);, Sheet, Colum: Variant;, i: Integer;: = CreateOleObject ('Excel. Application');. Visible: = true;
. Workbooks. Add (-4167);. Workbooks [1]. Worksheets [1]. Name: = 'Звіт';: = XLApp. Workbooks [1]. Worksheets ['Звіт']. Columns;. Columns [1]. ColumnWidth: = 20;. Columns [2]. ColumnWidth: = 20;. Columns [3]. ColumnWidth: = 20;. Columns [4]. C...