= 'PE'; (ADOTable2. Fields [18]. AsBoolean = True) then KAT : = 'TA'; (ADOTable2. Fields [19]. AsBoolean = True) then KAT: = 'TB'; (ADOTable2. Fields [20]. AsBoolean = True) then KAT: = 'TC'; (ADOTable2. Fields [21]. AsBoolean = True) then KAT: = 'TD'; (ADOTable2. Fields [22]. AsBoolean = True) then KAT: = 'TE';. Filtered: = False;. Active: = False;. Filter: = KAT + '= True';. Filtered: = True;. Active: = True;;; TForm1.DBLookupComboBox2Click (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: = 'PE'; (ADOTable2. Fields [18]. AsBoolean = True) then KAT : = 'TA'; (ADOTable2. Fields [19]. AsBoolean = True) then KAT: = 'TB'; (ADOTable2. Fields [20]. AsBoolean = True) then KAT: = 'TC'; (ADOTable2. Fields [21]. AsBoolean = True) then KAT: = 'TD'; (ADOTable2. Fields [22]. AsBoolean = True) then KAT: = 'TE';. Filtered: = False;. Active: = False;. Filter: = KAT + '= True';. Filtered: = True;. Active: = True;;; TForm1.DBLookupComboBox3Click (Sender: TObject); (ADOTable3. Fields [3]. AsBoolean = False) then. Filtered: = False;. Active: = False;. Filter: = 'EC = True';. Filtered: = True;. Active: = True;;; TForm1. FormCloseQuery (Sender: TObject; var CanClose: Boolean);. Close;; TForm1. FormCreate (Sender: TObject);. Last;;; TForm1. Image1Click (Sender: TObject);. Show; TForm1. JvXPButton10Click (Sender: TObject);. Cancel;; TForm1. JvXPButton11Click (Sender: TObject);. Refresh;; TForm1. JvXPButton120Click (Sender:...
