Search options (Page 2 of 6)

Добрый день!
Помогите, пожалуйста. Использую скрипт для импорта данных из Excel. В файле Excel каждый раз приходится даты из формата (24.12.2024) переводить в формат (2024-24-12). Возможно ли, чтобы в этом скрипте даты конвертировались автоматически?
Приложил скриншот формы и ссылку на файл Excel (https://disk.yandex.ru/i/4vTvT8ztAsJ1qQ)
Спасибо.

//********************//

procedure Frm_Import_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
opendialog : Topendialog ;
begin
    opendialog := Topendialog.Create(Frm_Import) ;
    IF opendialog.execute Then
    Frm_Import.Edit1.Text := opendialog.filename ;
    opendialog.free;
end;

//********************//

procedure Frm_Import_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
Excel : Variant ;
Sheet : Variant ;
rows, columns : Integer;
MaxRow : Integer;
MaxCol : Integer;
result_string : string;
sql_string : string ;
irows : integer ;
begin
    Excel:=CreateOleObject('Excel.Application');
    //Excel.Visible:= True;
    Excel.Workbooks.Open(Frm_Import.Edit1.Text) ;
    Sheet := Excel.WorkSheets[1] ;
    MaxRow := Sheet.Usedrange.EntireRow.count ;
    MaxCol := sheet.Usedrange.EntireColumn.count;
    //special excel[row,column]
    irows := 0 ;
    For  rows := 2 To  MaxRow Do
    Begin
        For  columns := 1 To Maxcol Do
        Begin
            result_string := result_string + '"'+Excel.ActiveSheet.Cells[rows,columns].Value+'",'
        End;
        sql_string := 'INSERT IGNORE INTO Main(id,surname,firstname,patronymic,contract,doplata_cb,doplata,cert_num,ngroup,id_Program,active,data_deactive) values ('+
        copy(result_string,1, Length(result_string)-1)+');';
        Frm_Import.Memo1.Lines.Add(sql_string) ;
        irows := irows +1 ;
        result_string := '' ;
        sql_string := '' ;
        Frm_Import.Label1.Caption := IntToStr(irows);
    End;
// deleted past about kill excel
        Application.ProcessMessages;
        Excel.Workbooks.Close;
        KillTask('EXCEL.EXE');
end;

//********************//

procedure Frm_Import_Button3_OnClick (Sender: TObject; var Cancel: boolean);
var
i_sql : integer ;
begin
    For i_sql := 0 To Strtoint(Frm_Import.Label1.Caption) -1 Do
    Begin
        SQLExecute(Frm_Import.Memo1.Lines[i_sql]) ;
        Frm_Import.Label2.Caption := IntToStr(i_sql+1) ;
        Frm_Import.Label3.Caption := FormatFloat('0.00',(i_sql+1)/StrTOInt((Frm_Import.Label1.Caption))*100)+' %' ;
        Application.ProcessMessages;
    End;
    Application.ProcessMessages;
    FrmMain.Table_Main.dbUpdate;
    Frm_Import.Edit1.Clear;
    Frm_Import.Memo1.Clear;
    Frm_Import.Label1.Caption :='0';
    Frm_Import.Label2.Caption :='0';
    Frm_Import.Label3.Caption :='0.0%';
    Frm_Import.Close;
end;

//********************//

Добрый день!
Подскажите, подалуйста, как сделать, чтобы при вводе документа в поле номер приказа происходило автоматическое присвоение номера приказа, состоящее из следующего по порядку числа, любого знака разделения (лучше "/") и текущего года (две последние цифры "24")

Добрый день! Помогите, пожалуйста.
Есть таблица с ФИО и столбцами (оценки за вопросы и итоговые балы = сумма всех баллов).
Например:
| № | ФИО               | 1 | 2 | 3 | 4 | 5 | 6 | Итого | Место | 
| 1  | Иванов Иван | 2 | 2 | 3 | 2 | 3 | 2 | 13       |            |
| 2  | Ильин Илья   | 2 | 3 | 3 | 3 | 3 | 2 | 15       |            |
| 3  | Петров Петр | 2 | 2 | 3 | 2 | 3 | 1 | 12       |            |
Как сделать, чтобы в столбце "Место" проставлялось место, в соотсветствии с набранной суммой баллов, с группировкой (в случае одинаковых сумм (несколько человек первое место или другое)?
Спасибо заранее!

Добрый день!
Возможно ли на форме установить выпадающий список с данными не из другой таблицы (без внешнего ключа)?
Спасибо