Search options (Page 239 of 400)

2015-12-09 20:12:23

mathmathou
May be this example will be useful for you, search directly in ComboBox:
http://myvisualdatabase.com/forum/misc. … download=1

2015-12-09 19:31:41

Sid.Killsayd
Скачайте пожалуйста данный проект в качестве примера
http://myvisualdatabase.com/forum/misc. … download=1

2015-12-09 13:44:57

tcoton
Please attach your project.

2015-12-09 13:43:34

v_pozidis wrote:

ok but , can anyone send me an exaple to understand how to do that ?

Example for you:

2015-12-09 13:36:29

The fixed project.

2015-12-09 11:27:17

Используйте для этого событие грида OnChange.
Нумерация колонок начинается с нуля, поэтому Form1.Grid1.Columns[32].Visible:= False; скроет 33 колонку.

строка Form1.Grid1.dbUpdate; не нужна.

2015-12-09 11:25:43

In your attached project there is no this code, please attach actual your project.

2015-12-09 11:22:16

tcoton
Because when you click button 2, component Data_edition.Edit_SIMNr is disabled from previous pressed of button1

try this code:

procedure Data_Edition_OnShow (Sender: string; Action: string);
begin // First Tab + 1st button

     Data_edition.Edit_Tariff.Enabled := Data_edition.Tag<>1;
     Data_edition.Button1.Enabled:= Data_edition.Tag<>1;// button save
     Data_edition.Edit_IMEI.Enabled:= Data_edition.Tag<>1;
     Data_edition.Button2.Enabled:= Data_edition.Tag<>1;// button save
     Data_edition.Combo_IMEI_Sttus.Enabled:= Data_edition.Tag<>1;// Combobox
     Data_edition.Edit_SIMNr.Enabled:= Data_edition.Tag<>1;
     Data_edition.ComboSttus.Enabled:= Data_edition.Tag<>1;// Combobox
     Data_edition.Button3.Enabled:= Data_edition.Tag<>1;// button save
     Data_edition.Edit_CC.Enabled:= Data_edition.Tag<>1;
     Data_edition.Edit_Resp_CC.Enabled:= Data_edition.Tag<>1;
     Data_edition.EditDesc_CC.Enabled:= Data_edition.Tag<>1;
     Data_edition.Button4.Enabled:= Data_edition.Tag<>1;// button save
     Data_edition.Edit_Dev_type.Enabled:= Data_edition.Tag<>1;
     Data_edition.Edit_Dev_make.Enabled:= Data_edition.Tag<>1;
     Data_edition.Edit_Dev_model.Enabled:= Data_edition.Tag<>1;
     Data_edition.Button_save_devices.Enabled:= Data_edition.Tag<>1;// button save
     Data_edition.Grid_DeviceList.Enabled:= Data_edition.Tag<>1; // Grid
     Data_edition.Grid_CC_List.Enabled:= Data_edition.Tag<>1;    // Grid
    
     if Data_edition.Tag = 1 then Data_edition.Edit_VodafNr.SetFocus; // Set Focus on textbox

     // Second Tab
     Data_edition.Grid_TariffList.Enabled:= Data_edition.Tag<>1;    // Grid
     Data_edition.GRid_VodafNbrsList.Enabled:= Data_edition.Tag<>1;    // Grid
     Data_edition.Grid_SIMLIst.Enabled:= Data_edition.Tag<>1;    // Grid
     Data_edition.Grid_IMEIList.Enabled:= Data_edition.Tag<>1;    // Grid

     // Second button
     if Data_edition.Tag = 2 then Data_edition.Edit_SIMNr.SetFocus;
     // Third button
     if Data_edition.Tag = 3 then Data_edition.Edit_IMEI.SetFocus;
end;

2015-12-09 10:18:01

I see that you commented this line (attached project without commented this line):

//sHello: string;

You should to comment and this line (first line in your code), because after keyword var variables must be declared:

var

2015-12-09 10:11:58

There is no different to use DateTimePicker or TextBox for filtering records, you should have database field with DATE type and put a Search button on a form.

Just see first video lesson
https://www.youtube.com/watch?v=XffrXjr3qKs

where you can find filtering by date (date of birth)

2015-12-09 10:04:32

prahousefamily
You can't encrypt sqlite.db but you can delete script.pas, after that project will work but user can't open project in MVD to see code.

2015-12-09 09:56:45

roger wrote:

Enclosed, but now I have cleaned up other code in order to try fixing the problem. I just got worse.

I don't get any error messages in your project, how to reproduce the error?

2015-12-08 23:17:05

Роман
Это можно реализовать с помощью вычисляемого поля
(CASE WHEN realvalue>=0 THEN 1 WHEN realvalue<0 THEN 0 ELSE NULL END)

затем на форме расположить CheckBox и присвоить ему данное выч. поле с помощью свойств TableName, FieldName
также данный CheckBox необходимо добавить в настройки кнопки Поиск.

2015-12-08 23:03:31

memult wrote:

Если не сложно, скиньте пример подключения к mysql по скрипту.

http://myvisualdatabase.com/forum/viewtopic.php?id=1804

2015-12-08 23:02:56

Form1.Edit2.Font.Color := clRed;

2015-12-08 17:45:06

roger
Please attach your project (zip file without exe and dll)

2015-12-08 16:17:01

You can't change color of border, you can change only style of border.

2015-12-08 16:15:22

roger
Menu present only on Main form, do you have menu on another form?

2015-12-08 15:41:02

You can't set focus for invisibles components. (limitation by OS Windows)

To set focus, you should use event OnShow for Form2 and small hack )

// several button new record
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    frmEmployee.Tag := 1;
end;

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
    frmEmployee.Tag := 2;
end;

procedure Form1_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
    frmEmployee.Tag := 3;
end;

procedure frmEmployee_OnShow (Sender: string; Action: string);
begin
    if frmEmployee.Tag=1 then frmEmployee.edFistName.SetFocus;
    if frmEmployee.Tag=2 then frmEmployee.edLastName.SetFocus;
    if frmEmployee.Tag=3 then frmEmployee.edComment.SetFocus;
end;

2015-12-08 15:09:43

1.
закрыть форму Form3 получиться только при закрытии формы Form10.
для формы Form10 создайте событие OnClose

procedure Form10_OnClose (Sender: string; Action: string);
begin
    Form3.Close;
end;

2. Для кнопки удаления записи создайте событие OnAfterClick

procedure Form1_Button5_OnAfterClick (Sender: string);
begin
    Form1.Button8.Click;
end;

2015-12-08 15:02:12

memult wrote:

Также еще небольшой вопрос по программе, в плане оформления шапки TableGrid.

Используйте свойство HeaderStyle в инспекторе объектов (свойство введено начиная с версии 2.2)

memult wrote:

Также, при прикреплении файла в соответствующем поле и после его удаления от туда, либо после удаления записи целиком, размер БД не уменьшается. Это можно как то избежать?

Это особенность любой базы данных, это место будет позже использовано для новых записей, также вы можете принудительно сделать "дефрагментацию" базы данных например с помощью бесплатной утилиты SQLite Studio (в меню: Databases > Vacuum)

2015-12-08 14:56:31

memult
На счет экспорта в Word из SQLite.
Для SQLite есть ODBC драйвер ( http://www.ch-werner.de/sqliteodbc/ ), попробовал сделать вставку Поля в Word используя источник данных (User DNS), но к сожалению при подключении Word пишет ошибку "Не удалется получить список таблиц из источника данных"

2015-12-08 14:32:38

Покажите пожалуйста код, который раскрашивает ячейки в желтый цвет.

2015-12-08 14:32:00

abouyahya527911
Unfortunately I don't quite understand the questions, please attach your project with info, where are located these problems.

2015-12-08 14:28:45

Do you mean, to filter records in TableGrid by date selected in DateTimePicker ? Or sorting by date?

Search options (Page 239 of 400)

Posts found: 5,951 to 5,975 of 9,999

5,951 Reply by DriveSoft 2015-12-09 20:12:23

Re: Best way of filtering (4 replies, posted in Script)

5,952 Reply by DriveSoft 2015-12-09 19:31:41

Re: Множественный выбор из ComboBox (4 replies, posted in Russian)

5,953 Reply by DriveSoft 2015-12-09 13:44:57

Re: Set the focus on a textbox in an invisible form (8 replies, posted in Script)

5,954 Reply by DriveSoft 2015-12-09 13:43:34

Re: avoid a particular a record from deleting it from a tablegrid (8 replies, posted in Script)

5,955 Reply by DriveSoft 2015-12-09 13:36:29

Re: File menu (29 replies, posted in General)

5,956 Reply by DriveSoft 2015-12-09 11:27:17

Re: Скрыть колонки в таблице (2 replies, posted in Russian)

5,957 Reply by DriveSoft 2015-12-09 11:25:43

Re: File menu (29 replies, posted in General)

5,958 Reply by DriveSoft 2015-12-09 11:22:16

Re: Set the focus on a textbox in an invisible form (8 replies, posted in Script)

5,959 Reply by DriveSoft 2015-12-09 10:18:01

Re: File menu (29 replies, posted in General)

5,960 Reply by DriveSoft 2015-12-09 10:11:58

Re: Sorting table (4 replies, posted in General)

5,961 Reply by DriveSoft 2015-12-09 10:04:32

Re: How To Encrypt And Open By MVD Only (5 replies, posted in Script)

5,962 Reply by DriveSoft 2015-12-09 09:56:45

Re: File menu (29 replies, posted in General)

5,963 Reply by DriveSoft 2015-12-08 23:17:05

Re: Сбор данных из TableGrid1 в Label (12 replies, posted in Russian)

5,964 Reply by DriveSoft 2015-12-08 23:03:31

Re: Отключиться от db (3 replies, posted in Russian)

5,965 Reply by DriveSoft 2015-12-08 23:02:56

Re: Подскажите с скриптом... (131 replies, posted in Russian)

5,966 Reply by DriveSoft 2015-12-08 17:45:06

Re: File menu (29 replies, posted in General)

5,967 Reply by DriveSoft 2015-12-08 16:17:01

Re: Set the focus on a textbox in an invisible form (8 replies, posted in Script)

5,968 Reply by DriveSoft 2015-12-08 16:15:22

Re: File menu (29 replies, posted in General)

5,969 Reply by DriveSoft 2015-12-08 15:41:02

Re: Set the focus on a textbox in an invisible form (8 replies, posted in Script)

5,970 Reply by DriveSoft 2015-12-08 15:09:43

Re: Сбор данных из TableGrid1 в Label (12 replies, posted in Russian)

5,971 Reply by DriveSoft 2015-12-08 15:02:12

Re: Структура БД (6 replies, posted in Russian)

5,972 Reply by DriveSoft 2015-12-08 14:56:31

Re: Структура БД (6 replies, posted in Russian)

5,973 Reply by DriveSoft 2015-12-08 14:32:38

Re: SQL запрос (11 replies, posted in Russian)

5,974 Reply by DriveSoft 2015-12-08 14:32:00

Re: Hijri date (21 replies, posted in Reports)

5,975 Reply by DriveSoft 2015-12-08 14:28:45

Re: Sorting table (4 replies, posted in General)

Posts found: 5,951 to 5,975 of 9,999