Search options (Page 2 of 7)

procedure FrmOth1_Button14_OnClick (Sender: TObject; var Cancel: boolean);
begin
 frmOth1.Button14.dbSQL :=   ' select res.id_print, print.name, res.date, MAX(res.res)  '+
                                    ' FROM res LEFT OUTER JOIN print ON res.id_print=print.id '+
                                    ' WHERE res.id_Priznzam = 1 '+
                                    ' GROUP BY res.id_print ';
end;

if value then s := Form1.dtDateOfBirth.sqlDate;

procedure Form1_Button7_OnClick (Sender: TObject; var Cancel: boolean);
      begin
    ChangeValues1(True);
end;
    procedure ChangeValues1(value: boolean);
var
    i,c: integer;
    s: string;
begin
    if value then s := Form1.dtDateOfBirth.sqlDate;
    c := Form1.GridEmployees.RowCount-1;
    for i := 0 to c do
    begin
        if Form1.GridEmployees.Selected[i] then
        begin
            SQLExecute('UPDATE employees SET DateOfBirth = '+s + ' WHERE id='+IntToStr(Form1.GridEmployees.dbIndexToID(i)));
        end;
    end;
    Form1.GridEmployees.dbUpdate;
end;

procedure Form_Zapr_ComboBox1_Change(Sender: TObject);
   begin
        Form_Zapr.Edit1.Text := Form_Zapr.ComboBox1.Text;
 end;
procedure Form_Zapr_ComboBox1_OnDropDown (Sender: TObject);
   begin
        Form_Zapr.ComboBox1.dbSQLExecute ('SELECT vhod_numer FROM Zapros GROUP BY vhod_numer ');
 end;
procedure Form_Zapr_Button1_OnClick (Sender: TObject; var Cancel: boolean);
    begin
          Form_Zapr.Button1.dbSQL :=   'select distinct a.id, b.Kod, c.inn, c.name, a.vhod_numer, a.vhod_data, d.name '+
                                'from zapros a '+
                                'join departament b on a.id_departament=b.id '+
                                'join plat c on a.id_plat=c.id '+
                                'join org_zap d on a.id_org_zap=d.id '+
                                'where (a.vhod_numer = {edit1})';

 end;

procedure Form_oth_Button6_OnClick (Sender: TObject; var Cancel: boolean);
     begin
           if (not isAdmin) then
         Form_oth.Button6.dbSQL :=   'distinct a.id, b.name,  a.vhod_numer, a.vhod_data, a.otvet_data, a.otvet_numer '+
                                'from zapros a '+
                                'join departament b on a.id_departament=b.id '+
                                 'where a.otvet_data = is Null and  a.id_departament = '+ inttostr (iddepartament) +
                                else
         Form_oth.Button6.dbSQL :=   'distinct a.id, b.name,  a.vhod_numer, a.vhod_data, a.otvet_data, a.otvet_numer '+
                                'from zapros a '+
                                'join departament b on a.id_departament=b.id '+
                                 'where a.otvet_data = is Null ';

end;

select distinct a.id, b.name, a.otvet_data, a.otvet_numer  
from zapros a            
join departament b on a.id_departament=b.id
where a.otvet_data IS NULL