, поставте галочку
Зберегти пароль .
Завантажиться сторінка Microsoft Internet Explorer, на якій ви можете формувати звіти.
Так само в програмі передбачена можливість перегляду введеної інформації засобом Excel. Для перегляду інформації необхідно натиснути кнопку Excel на панелі інструментів. Після натискання кнопку з'явиться вікно Зберегти як , а якому необхідно ввести ім'я файлу і натиснути кнопку Ок. Після натискання кнопку відкриється збережений файл.
3.2 АС В«Облік роботи автотранспортуВ»
Програмний код
Код головної форми:
procedure TForm1.N10Click (Sender: TObject);. Show;; TForm1.N9Click (Sender: TObject);. Show;; TForm1. TrayIconClick (Sender: TObject);; TForm1.N8Click (Sender: TObject);. Show;; TForm1.N7Click (Sender: TObject);. Show; TForm1.N6Click (Sender: TObject);. Show; TForm1.N5Click (Sender: TObject);. Show; TForm1.N4Click (Sender: TObject);. Show; TForm1.N11Click (Sender: TObject);. Show;; TForm1.N16Click (Sender: TObject);. Show;; TForm1.N17Click (Sender: TObject);. Show;; TForm1.N18Click (Sender: TObject);. Show;; TForm1.N1Click (Sender: TObject);. Show;; TForm1.DBLookupComboBox11Click (Sender: TObject); KAT: string; ((ADOTable2. Fields [7]. AsBoolean = True) or (ADOTable2. Fields [8]. AsBoolean = True) (ADOTable2. Fields [9]. AsBoolean = True)) AND
(ADOTable2. Fields [23]. AsString = '2 ') then. Enabled: = True;. Enabled: = True;. Enabled: = True;. Enabled: = True;. Enabled: = True;. Enabled: = True;. Enabled: = True;. Enabled: = True;. Enabled: = True;. Enabled: = True;. Enabled: = True;. Enabled: = True;. Enabled: = True;. Enabled: = True;. Enabled: = True;. Fields [7]. AsString: = '11 ';. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = False;. Enabled: = False;; (ADOTable2. Fields [6]. AsBoolean = True) then KAT: = 'A'; (ADOTable2. Fields [7]. AsBoolean = True) then KAT: = 'B'; (ADOTable2. Fields [8]. AsBoolean = True) then KAT: = 'C'; (ADOTable2. Fields [9]. AsBoolean = True) then KAT: = 'D'; (ADOTable2. Fields [13]. AsBoolean = True) then KAT : = 'PA'; (ADOTable2. Fields [14]. AsBoolean = True) then KAT: = 'PB'; (ADOTable2. Fields [15]. AsBoolean = True) then KAT: = 'PC'; (ADOTable2. Fields [16]. AsBoolean = True) then KAT: = 'PD'; (ADOTable2. Fields [17]. AsBoolean = True) then KAT: ...
