Search options (Page 157 of 400)

привет
привет
здравствуйте

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    i,c: integer;
    sl: TStringList;
begin
    sl := TStringList.Create;

    c := Form1.Memo1.Lines.Count-1;
    for i := 0 to c do
    begin
        if sl.IndexOf(Form1.Memo1.Lines[i]) = -1 then
            sl.Add(Form1.Memo1.Lines[i]);
    end;


    Form1.Memo2.Lines := sl;
    sl.free;
end;

UPDATE doctor

SET    doctor.firstname='{edDoctorFName}',
       doctor.lastname='{edDoctorLName}',
       doctor.phone='{edDoctorPhone}',
       doctor.mail='{edDoctorMail}',
       doctor.id_hospital={cbDoctorHospital},
       doctor.id_ratingdoctor={cbDoctorRating},
       doctor.id_specialtydoctor={cbDoctorSpecialty}

WHERE  doctor.id={tgDoctor}

SELEC MAX(dates) FROM tablename

SELEC MIN(dates) FROM tablename

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    Start: double;
begin
    start := GetTickCount;

    // ваш код

    Form1.Label1.Caption := FormatDateTime('hh:mm:ss', ((GetTickCount-start) div 1000) / 86400  );
end;

Form1.GridEmployees.Columns[i].VerticalAlignment := taAlignTop;

procedure Form1_GridEmployees_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
     Form1.DBImage1.Clear;
     Form1.DBImage1.LoadFromDatabase('employees', 'photo', Form1.GridEmployees.dbItemID);
end;

begin
end.

doctor.id_specialtydoctor={cbDoctorSpecialty} 

var
    isChanged: boolean; // необходимо, чтобы знать если пользователь открывал ComboBox


procedure frmEmployee_cbFavoriteFood_OnCloseUp (Sender: string);
begin
    isChanged := True; // запоминаем, если пользователь открывал ComboBox
end;

procedure frmEmployee_OnShow (Sender: string; Action: string);
var
    idEmp: string;
    idFood: integer;
    Results: TDataSet;
    i,c: integer;
begin
    isChanged := False;
    frmEmployee.cbFavoriteFood.SetAllCheckBoxes(false);

    if Action='ShowRecord' then // если окно появилось для показа существующей записи
    begin
        idEmp := IntToStr(frmEmployee.bSave.dbGeneralTableID); // запоминаем id редактируемой записи
        SQLQuery('SELECT id_food FROM FavoriteFood WHERE id_employees='+idEmp, Results); // sql запрос для получения значений поля id_food для редактируемой записи, в этих значениях сохранены выбранные пункты в ComboBox

        while not Results.Eof do // читаем результат sql запрос
        begin
            idFood := Results.FieldByName('id_food').asInteger; // id еды, которую необходимо отметить в ComboBox

            c := frmEmployee.cbFavoriteFood.Items.Count-1;
            for i := 1 to c do // цикл перебора значений в ComboBox для нахождения и отметки необходимого пункта
            begin
                if frmEmployee.cbFavoriteFood.dbIndexToID(i) = idFood then
                    frmEmployee.cbFavoriteFood.ItemsChecked[i] := True;
            end;
                       
            Results.Next; // переход к следующей записи результата sql запроса
        end;

    end;
end;

procedure frmEmployee_bSave_OnAfterClick (Sender: string);
var
    i,c: integer;
    idFood: string;
    idEmp: string;
begin
    if isChanged then // если пользователь открывал ComboBox, значит он там возможно что то изменил
    begin
            idEmp := IntToStr(frmEmployee.bSave.dbGeneralTableID); // запоминаем id редактируемой записи
            SQLExecute('DELETE FROM FavoriteFood WHERE id_employees='+idEmp); // удаляем записи о выбранных значениях в ComboBox
        
            c := frmEmployee.cbFavoriteFood.Items.Count-1;
            for i := 1 to c do // цикл перебора пунктов в ComboBox
            begin
                if frmEmployee.cbFavoriteFood.ItemsChecked[i] then // если пункт в ComboBox выбран, то создаем об этом запись в БД
                begin
                    idFood := IntToStr(frmEmployee.cbFavoriteFood.dbIndexToID(i));
                    SQLExecute('INSERT INTO FavoriteFood (id_employees, id_food) VALUES('+idEmp+','+idFood+')');
                end;
            end;
    end;
end;

procedure MenuClick1 (Sender: string);
var
    SaveDialog: TSaveDialog;
    sFileName: string;
begin
    sFileName := FormatDateTime('dd-mm-yyyy hh-nn-ss', now)+'.db';

    SaveDialog := TSaveDialog.Create(Form1);
    SaveDialog.FileName := sFileName;
    SaveDialog.Filter := 'Database|*.db|Any file|*.*';

    if SaveDialog.Execute then
    begin
        CopyFile(ExtractFilePath(Application.ExeName)+'sqlite.db', SaveDialog.FileName);
    end;

    SaveDialog.Free;
end;