Search options (Page 365 of 400)

procedure frmAddPay_bPayOk_OnClick (Sender: string; var Cancel: boolean);
var
   val: string;
   valEUR: string;
   idEUR: string;
begin
       idEUR := IntToStr(SQLExecute('SELECT count(id) FROM Currancy WHERE (cur_name = "EUR");'));// получение id EUR из таблицы Currancy
       valEUR := IntToStr(SQLExecute('SELECT sum FROM CurrancyEx WHERE (date = ''' + FormatDateTime('yyyy-MM-DD 00:00:00.000', frmAddPay.DateTimePicker1.DateTime) + ''') AND (id_Currancy = ' + idEUR +');'));  //получение курса EUR на заданную дату из таблицы CurrancyEx

       // делаем SQL запрос, для проверки, есть ли такая валюта на такую дату в базе
        val:= IntToStr(SQLExecute('SELECT sum FROM CurrancyEx WHERE (date = ''' + FormatDateTime('yyyy-MM-DD 00:00:00.000', frmAddPay.DateTimePicker1.DateTime) + ''') AND (id_Currancy =' + IntToStr(frmAddPay.ComboBox1.dbItemID) + ');'));// получение курса валюты платежа на заданную дату из таблицы CurrancyEx
          if val <> '0' then    // если результат не равен нулю, значит такая валюта на такую дату в базе есть

           begin
               if frmAddPay.ComboBox1.Text='EUR'  then
                 begin
                   SQLExecute('INSERT INTO Payments (sum_euro) VALUES (''' +frmAddPay.Edit1.Text + ''');');

                 end;

              // if frmAddPay.ComboBox1.Text='BRB'  then
              // begin
              //   SQLExecute('INSERT INTO Payments (sum_euro)   VALUES ("frmAddPay.Edit1.Text");');

             //  end else SQLExecute('INSERT INTO Payments (sum_euro)   VALUES (''' +frmAddPay.Edit1.Text + ''');');

           end else
           begin
                    ShowMessage('В базе нет курса на данную дату.'); // ваше сообщение
                    Cancel := True; // отменяем действие кнопки
           end;
end;

SELECT * FROM tablename 
WHERE  (Date(finish_fact) >= Date({DateTimePicker1}) OR (finish_fact is null)

procedure Form1_OnClose (Sender: string; Action: string);
var
   ini: TIniFile;
   s: string;
begin
     ini := TiniFile.Create(ExtractFilePath(Application.ExeName) +'file.ini');
     ini.WriteDate('SectionName', 'ValueName', Form1.DateTimePicker1.DateTime);
     ini.Free;
end;

procedure Form1_OnShow (Sender: string; Action: string);
var
   ini: TIniFile;
   s: string;
begin
     ini := TiniFile.Create(ExtractFilePath(Application.ExeName) +'file.ini');
     Form1.DateTimePicker1.DateTime := ini.ReadDate('SectionName', 'ValueName', now);
     ini.Free;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
     Form1.mniReport.Click;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
     frmOptionsdbCore.ShowModal;
end;

SQLExecute ('UPDATE tablename SET field1="data1", field2="data2"  WHERE id = ' + IntToStr(Form1.TableGrid.dbItemID));

procedure Form1_TableGrid1_OnChange (Sender: string);
var
    i,c: integer;
begin
    c := Form1.TableGrid1.RowCount - 1;
    for i := 0 to c do
    begin
         if  Pos('T', Form1.TableGrid1.Cells[3,i])>0 then Form1.TableGrid1.Cell[3,i].Color := clRed;
    end;
end;