Search options (Page 1 of 2)

Hi,
i am using myvisualdatabase version v1.52

on my project i am using comcobox.
when type in combo box it filters by name

i am using this function to filter from db

procedure Form1_ComboBox1_OnKeyPress (Sender: string; var Key: Char);
var
    id: integer;
begin

    if ord(Key)= 13 then
    begin
        id := Form1.ComboBox1.dbItemID;
        Form1.ComboBox1.DroppedDown:=False;
        Form1.ComboBox1.dbItemID := id;
        Key := #0;
        Exit;
    end;

if ((ord(Key)= 8) OR (ord(Key)= VK_ESCAPE ))  then // for backspace button
    begin
        s_cbGroups := '';
        Form1.ComboBox1.Text := '';
        UpdateDatabase('kim');
        Key := #0;
        Form1.ComboBox1.DroppedDown:=False;
        Form1.ComboBox1.dbItemID := -1;
        Exit;
    end;

    s_cbGroups := s_cbGroups + Key;
    Key := #0;

    Form1.ComboBox1.dbFilter := '(isim LIKE ''%'+ s_cbGroups +'%'''+')';

    id := Form1.ComboBox2.dbItemID;
    UpdateDatabase('kim');
    Form1.ComboBox2.dbItemID := id;

    Form1.ComboBox1.DroppedDown:=True;

    Form1.ComboBox1.Text := s_cbGroups;
    Form1.ComboBox1.SelStart := Length(s_cbGroups);
end;

procedure Form1_ComboBox1_OnCloseUp (Sender: string);
var
    id,id2: integer;
begin

    id := Form1.ComboBox1.dbItemID;
    id2 := Form1.ComboBox2.dbItemID;
    Form1.ComboBox1.dbFilter := '';
    UpdateDatabase('kim');
    Form1.ComboBox1.dbItemID := id;
    Form1.ComboBox2.dbItemID := id2;
    s_cbGroups := '';
end;

For example when i try to find name "John"
i type jo
and normally it was finding john instantly.
But now the name number increased to 600 customer so it become slow
how can i make it fast?

Thanx

Hi,
i am using mvd v1.49

i have 2 combobox list names of person

i want to filter result in combo box so i used example on this url
http://myvisualdatabase.com/forum/misc. … download=1

problme is: i filtered combobox1 and select person name
when i click on combobox2 to filter combobox1 selected person become empty

i tried it on latest version of mvd it works fine.
i think theremust be a bug on my version

is it possible to fix it?

hi i attached sample project.
trying to print the orders of tomorrow

i have filtered grid results (order of tomorrow )
i have put a print button but its not showing results.

take a look please

hi,
i am using version 1.49
i have 2 text field as integer to store debt
text field 1 -> debt
text field2 -> remaining debt

when debt amount is entered
remaining debt must be automatically the same value.

after some payment i will redude the remainbg debt manually

how can i give default valur for remaining debt as debt value ?

Hi,
i am using a button with sqlquery action
when click on button i want ->      list all orders older than 15 days. so i used this query

SELECT *
FROM siparis
WHERE (julianday('now') - julianday(orderday))>14;

result comes but it looks like below
2016-08-03 00:00:00.000

what i want is 03-08-2016 only

Another qustion.
i want  orders older tha 15 days with the name of person

person name is in person table.
how can i get person.name and orders older than 15 days with one query?

attached my files

teslimtarihi: orderdate
kim : person table
siparis : order table