Search options (Page 153 of 400)

procedure Form1_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
    Form1.Label1.Caption := SQLExecute('SELECT strftime(''%d.%m.%Y'',DateOfBirth) FROM tablename WHERE id='+Form1.TableGrid1.sqlValue);
    Form1.ComboBox1.dbItemID := SQLExecute('SELECT id_groups FROM tablename WHERE id='+Form1.TableGrid1.sqlValue);
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    i: integer;
    S : String;
    buttonSelected : Integer;
begin

    i := Form1.TableGrid1.RowCount - 1;

    //считаем количество записей в Б/Д...
    S := VarToStr ( SQLExecute('SELECT count(id) FROM GIS ;') );

    if  S <>'' then 
    begin
        buttonSelected := MessageDlg('  ВЫВЕСТИ   ВСЕ   <<  ' + S + '  >>   ЗАПИСЕЙ ? ? ? '  , mtInformation, mbYes+mbNo, 0);
        if buttonSelected = mrYes then
        begin
            Form2.Show;
        end;    
        
        if buttonSelected = mrNo then
        begin
            Form3.Show;
        end;    
        
        if buttonSelected = mrCancel then
        begin
            Cancel := True;
        end;        
    end else
    begin
        ShowMessage('Записей нет');
        Cancel := True;
    end;

end;

procedure ClearAllComponents(Form: TAForm);
var
    i,c : Integer;
begin
    c := Form.ComponentCount - 1;
    For i := 0 to c do
    begin
       IF Form.Components[i] is TdbEdit Then TdbEdit(Form.Components[i]).Clear;
       IF Form.Components[i] is TdbEditCount Then TdbEditCount(Form.Components[i]).Clear;
       IF Form.Components[i] is TdbMemo Then TdbMemo(Form.Components[i]).Clear;
       IF Form.Components[i] is TdbComboBox Then TdbComboBox(Form.Components[i]).dbItemID := -1;
       IF Form.Components[i] is TdbCheckBox Then TdbCheckBox(Form.Components[i]).State := TdbCheckBox(Form.Components[i]).dbDefaultState;
       IF Form.Components[i] is TdbDateTimePicker Then TdbDateTimePicker(Form.Components[i]).Checked := False;
       IF Form.Components[i] is TdbImageDataBase Then TdbImageDataBase(Form.Components[i]).Clear;
       IF Form.Components[i] is TdbMonthCalendar Then TdbMonthCalendar(Form.Components[i]).Date := now;
       IF Form.Components[i] is TdbStringGridEx Then TdbStringGridEx(Form.Components[i]).ClearRows;
       IF Form.Components[i] is TdbFileToDatabase Then
       begin
           TdbFileToDatabase(Form.Components[i]).Text := '';
           TdbFileToDatabase(Form.Components[i]).dbFileName := '';
       end;
    end;
end;

procedure frmAbonent_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    ClearAllComponents(frmAbonent);
end;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    frmSendMail.TableGrid1.dbUpdate;
    if frmSendMail.TableGrid1.RowCount > 0 then frmSendMail.ShowModal;

    Form1.Button1.Click;
end;

(employees.sent <> 1) and ( date(employees.dateEvent) < date('now',  '+10 days') )

SQLExecute('INSERT INTO OrgUch (id_parent, comment) VALUES ('+IntToStr(Form1.Button1.dbGeneralTableId)+',"'+your comment+'")');

procedure KP_OnShow (Sender: string; Action: string);
begin
     if Action='NewRecord' then idKP:=SQLExecute('SELECT count(id) FROM KP')+1;
     if Action='ShowRecord' then idKP:=Form1.TableGrid1.dbItemID;
     KP.TableGrid1.dbUpdate; // <<-----уберите эту строку 
end;