1,076 Reply by sibprogsistem

(6 replies, posted in Russian)

(
SELECT julianday(date2) - julianday(date1) FROM a  
)

Разница в часах

Select Cast ((
    JulianDay(ToDate) - JulianDay(FromDate)
) * 24 As Integer)
Разница в минутах

Select Cast ((
    JulianDay(ToDate) - JulianDay(FromDate)
) * 24 * 60 As Integer)
Разница в секундах

Select Cast ((
    JulianDay(ToDate) - JulianDay(FromDate)
) * 24 * 60 * 60 As Integer)

Go to forum: Russian

1,077 Reply by sibprogsistem

(6 replies, posted in Russian)

как-то криво у меня получается

Go to forum: Russian

1,078 Topic by sibprogsistem

(6 replies, posted in Russian)

Не получается в вычесляемом поле объдинить строки
CONCAT
CONCAT_WS
GROUP_CONCAT
на все получаю   no such function

Go to forum: Russian

1,079 Reply by sibprogsistem

(2 replies, posted in Russian)

.

Go to forum: Russian

1,080 Reply by sibprogsistem

(8 replies, posted in General)

you need to create a calculated field in the table

Go to forum: General

1,081 Reply by sibprogsistem

(28 replies, posted in Russian)

Вроди так

if (not isAdmin) then FrmSch.TableGrid1.dbFilter:='(id_rab= "1") AND (id_departament= "'+IntToStr(idDepartament)+'")';

Go to forum: Russian

1,082 Reply by sibprogsistem

(28 replies, posted in Russian)

если фильтр указываете скриптом , то фильтр указанный в настройках грида не работает (его перекрывает скрипт)

Go to forum: Russian

1,083 Reply by sibprogsistem

(15 replies, posted in General)

AD1408 wrote:

Hi sibprogsistem,


Thanks for the script... However, it doesn't do anything different other than moving child nodes, unless I'm doing something wrong.

Да, к сожалению я не могу понять как узлы связаны с записями..

Go to forum: General

1,084 Reply by sibprogsistem

(6 replies, posted in Russian)

создайте вычисляемое поле в самой БД а через SQL запрос просто выведите это поле в результат

Go to forum: Russian

1,085 Reply by sibprogsistem

(15 replies, posted in General)

procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
var
    id1, id2, row: integer;
    record_count1, record_count2, parent, parent2: string;
begin
    if (Form1.TreeView1.SelectedRow > 0) then
    begin
        id1 := Form1.TreeView1.dbItemID;
        id2 := Form1.TreeView1.dbIndexToID(Form1.TreeView1.SelectedRow-1);

        parent:=SQLExecute('SELECT IFNULL (ParentID,0) FROM OrgStructure WHERE id='+IntToStr(Form1.TreeView1.dbItemID));
        parent2:=SQLExecute('SELECT IFNULL (ParentID,0) FROM OrgStructure WHERE id='+IntToStr(id2));


        if parent2>parent then begin
         row:=Form1.TreeView1.SelectedRow-1;
          while parent2>parent do
           begin
            row:= row-1;
            id2 := Form1.TreeView1.dbIndexToID(row);
            parent2:=SQLExecute('SELECT IFNULL (ParentID,0) FROM OrgStructure WHERE id='+IntToStr(id2));
          end;
        end;

        record_count1 := SQLExecute('SELECT  id FROM OrgStructure WHERE id='+IntToStr(id1)+' AND ParentID='+parent);
        record_count2 := SQLExecute('SELECT  id FROM OrgStructure WHERE id='+IntToStr(id2)+' AND ParentID='+parent);


        if (record_count1<>'') and (record_count2<>'') then
        begin

            SQLExecute('UPDATE OrgStructure SET id="0" WHERE id='+IntToStr(Form1.TreeView1.dbItemID));
            SQLExecute('UPDATE OrgStructure SET id='+record_count1+' WHERE id='+IntToStr(id2));
            SQLExecute('UPDATE OrgStructure SET id='+record_count2+' WHERE id="0"' );
            Form1.TreeView1.dbUpdate;
            Form1.TreeView1.dbItemID := id1;
       end;
    end;
end;

Go to forum: General

1,086 Reply by sibprogsistem

(3 replies, posted in General)

.

Go to forum: General

1,087 Topic by sibprogsistem

(1 replies, posted in Russian)

как скриптом подключить к ( TableName, FieldName)

Go to forum: Russian

1,088 Reply by sibprogsistem

(15 replies, posted in General)

AD1408 wrote:

Hi BR,

Thanks for the reply...
However, I still have no idea of how to do it.
Could somebody apply it to sample project (post #1)  and post it here please?

только это

procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
var
    id1, id2: integer;
    record_count1, record_count2, parent, parent2: string;
begin
    if (Form1.TreeView1.SelectedRow > 0) then
    begin
        id1 := Form1.TreeView1.dbItemID;
        id2 := Form1.TreeView1.dbIndexToID(Form1.TreeView1.SelectedRow-1);

        parent:=SQLExecute('SELECT IFNULL (ParentID,0) FROM OrgStructure WHERE id='+IntToStr(Form1.TreeView1.dbItemID));

        record_count1 := SQLExecute('SELECT  id FROM OrgStructure WHERE id='+IntToStr(id1)+' AND ParentID='+parent);
        record_count2 := SQLExecute('SELECT  id FROM OrgStructure WHERE id='+IntToStr(id2)+' AND ParentID='+parent);

        showmessage(record_count1);
        showmessage(record_count2);

        if (record_count1<>'') and (record_count2<>'') then
        begin
            SQLExecute('UPDATE OrgStructure SET id="0" WHERE id='+IntToStr(Form1.TreeView1.dbItemID));
            SQLExecute('UPDATE OrgStructure SET id='+record_count1+' WHERE id='+IntToStr(id2));
            SQLExecute('UPDATE OrgStructure SET id='+record_count2+' WHERE id="0"' );
            Form1.TreeView1.dbUpdate;
            Form1.TreeView1.dbItemID := id1;
        end;
    end;
end;

Go to forum: General

1,089 Reply by sibprogsistem

(7 replies, posted in Script)

procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
var
    sSQL: string;
    sFileName: string;
    sFieldName: string;

    Params: TParams;
    MemoryStream: TMemoryStream;
    Param: TParam;
begin
    sFileName := 'd:\db 1.jpg';
    sFieldName := 'somefile';

    sSQL := 'UPDATE test SET ' +sFieldName+'= :'+sFieldName+', '+sFieldName+'_filename="'+ExtractFileName(sFileName)+'" WHERE id=1';
    Params := TParams.Create(nil);


    // BLOB
    MemoryStream := TMemoryStream.Create;
    MemoryStream.LoadFromFile(sFileName); // load file to memory
    MemoryStream.Position := 0;
    Params.CreateParam(ftBlob, sFieldName, ptInput).LoadFromStream(MemoryStream, 15);  // 15 ftBlob (TBlobType)

    Form1.SQLConnection.Execute(sSQL, Params);

    MemoryStream.Free;
    Params.Free;
    Form1.TableGrid1.dbUpdate;
end;

Go to forum: Script

1,090 Reply by sibprogsistem

(28 replies, posted in Russian)

id_rab>1

Go to forum: Russian

1,091 Reply by sibprogsistem

(28 replies, posted in Russian)

Andrei wrote:

Проще говоря моя задумка ошибочна и неисполнима.
Я хотел наложить фильтр на ComboBox, что если id_print <> 1 то не отображать модель принтера. Но принтеров одной модели много и у кого-то может быть id_print = 1...

тогда попробуйте дополнить коким-либо полем которое будет делить эти принтеры

типа.. офис №  или испольуйте инвентаризационные номера

Go to forum: Russian

1,092 Reply by sibprogsistem

(28 replies, posted in Russian)

у Вас ошибка в Формировании БД
имя принтера всегда должно быть одно, и наче говоря у Вас в записях таблицы mod_print есть много id c  одним и тем же именем принтера ..

Go to forum: Russian

1,093 Reply by sibprogsistem

(28 replies, posted in Russian)

frmAddSch.ComboBox2.dbSQLExecute('SELECT name FROM mod_print LEFT OUTER JOIN print ON mod_print.id=print.id_mod_print WHERE print.id_rab=1');

Go to forum: Russian

1,094 Reply by sibprogsistem

(7 replies, posted in Script)

.

Go to forum: Script

1,095 Reply by sibprogsistem

(7 replies, posted in Reports)

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&amp;item=5674&amp;download=0



  

var
ini:TIniFile;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
a1,b1:integer ;
begin
  ini:=TIniFile.Create(ExtractFilePath (ParamStr (0))+'setReport.ini');
  Form1.frxReport.Variables.Clear;
  Form1.frxReport.Variables[' ' + 'Seller'] := Null;
  Form1.frxReport.Variables['edit11'] :=ini.ReadInteger('company','edit1',a1);
  Form1.frxReport.Variables['edit22'] :=ini.ReadInteger('company','edit2',b1);
end;

Go to forum: Reports

1,096 Reply by sibprogsistem

(7 replies, posted in Reports)

var
ini:TIniFile;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
  ini:=TIniFile.Create(ExtractFilePath (ParamStr (0))+'setReport.ini');
  Form1.frxReport.Variables.Clear;
  Form1.frxReport.Variables[' ' + 'Seller'] := Null;
  Form1.frxReport.Variables['edit11'] := ini.ReadString('company','edit1','');
  Form1.frxReport.Variables['edit22'] := ini.ReadString('company','edit2','');
end;

Go to forum: Reports

1,097 Reply by sibprogsistem

(7 replies, posted in Reports)

.

Go to forum: Reports

1,098 Reply by sibprogsistem

(28 replies, posted in Russian)

попробуйте, это 

SQLExecute('SELECT name FROM mod_print LEFT OUTER JOIN print ON mod_print.id=print.id_mod_print WHERE print.id_rab=1');

Go to forum: Russian

1,099 Reply by sibprogsistem

(28 replies, posted in Russian)

в данном случае

SELECT id_mod_print FROM print WHERE id_rab =1

будет не верно, это скрипт запроса в одну таблицу

дайте хотябы скрин этих баз, а то так сложно все понять

Go to forum: Russian

1,100 Reply by sibprogsistem

(28 replies, posted in Russian)

id_mod_print
это ссылка на другую таблицу?

Go to forum: Russian