Hi,
Please I need help with MVD v6.5
I have issue with ComboBox in appearance when enable MultiSelect for ComboBox
1st. I can't change the height of ComboBox specially when I change the font size I need to change the height. How to change the height with MultiSelect ?
2nd The drop list of ComboBox there is a square appear over 1st choice look like Select All button, make selecting 1st choice very hard. How to remove this option or make the 1st choice below this square ?
76 2022-02-22 16:50:58
Re: ComboBox MultiSelect - Visual Problems (3 replies, posted in General)
77 2022-02-22 05:48:57
Re: combobox to select different Forms (2 replies, posted in Script)
Hello everyone good day!
I introduce myself
My name is Antonio and I am new to the forum (Beginner)
I need your help to make the project work I appreciate your time and attention
waiting and can you help me
greetings!!..I need some script that through combobox shows me a form.
Best regards
78 2022-02-18 08:36:44
Re: search a phrase/ word in database irrespective of column & row (9 replies, posted in General)
hiii,
I want to make a search field with button. my aim is to search the word/ phrase in the entire database irrespective of column & show in the table grid.
a sample screen shot made in excel attached.
any help is highly appreciate because in my existing programm i am able to do search by column wise linked to different fields in the interface.
if you need to request this program from scratch, then prepare your wallet.
if you already have a program and you need help, then attach your project
если вам нужно запросить эту программу с нуля, то подготовьте свой кошелек.
если у вас уже есть программа и вам нужна помощь, то прикрепите свой проект
79 2022-02-16 04:14:04
Re: Sms (6 replies, posted in General)
If your modem uses the AT command set, I would think it possible.
There is a large project on here somewhere that sends SMS, I think was called iAPPt
Hello..
I did not found any project about at command set.. please share link or project..
80 2022-02-15 17:28:04
Re: Thanks and need help - about talbegrid (4 replies, posted in Script)
try like this
81 2022-02-15 16:42:05
Re: Thanks and need help - about talbegrid (4 replies, posted in Script)
can't be used here
82 2022-02-15 16:40:17
Re: Thanks and need help - about talbegrid (4 replies, posted in Script)
the table works correctly, you have no links.
83 2022-02-14 08:31:23
Re: Trigger (8 replies, posted in General)
Thank you sibprogsistem. Next I want to know where trigger will be created. For example I have a project and a button is used to display records on a form1 and tablegrid1 and procedure is click button. After line of (procedure Form1_Button1_OnClick (Sender: TObject);
begin) --------- so here we enter script for trigger?
You can write triggers in any part.
Triggers are written to the database and fire automatically depending on how you program them.
triggers can be written between
begin
there is a trigger
end
or at the moment of launching the form itself
procedure Form1_OnShow(Sender: TObject; Action: string);
begin
there is a trigger
end;
you can also create triggers on button clicks.
84 2022-02-13 16:19:11
Re: Trigger (8 replies, posted in General)
Thank you again sibprogsistem. Some question about trigger. what is trigger and why is it created. Any page that help me to understand trigger.
"my_log_insert" is trigger name or table name?
A trigger is a special kind of stored procedure in a database. The peculiarity of triggers is that the SQL code written in the body of the trigger will be executed after an event occurs in the database. UPDATE, INSERT, DELETE and SELECT.
"my_log_insert" - is trigger name
AFTER UPDATE ON request -- after update in table (request)
85 2022-02-12 14:20:34
Re: Trigger (8 replies, posted in General)
Thank you sibprogsistem. Would you like to explain this script? Especially ( ' INSERT INTO statistic(data, status) VALUES (datetime(''now'', ''localtime''),''New''); '+)
INSERT INTO - create a new entry
Table_Name(field_1, field_1) VALUES(vlue_1, value_2)
field_1 = value_1 - the value is written to the field
86 2022-02-12 04:20:07
Re: Trigger (8 replies, posted in General)
any one can tell about trigger and how it is created?
procedure triggerCreate;
begin
SQLExecute(
'CREATE TRIGGER IF NOT EXISTS my_log_insert AFTER UPDATE ON request '+
'BEGIN '+
' INSERT INTO statistic(data, status) VALUES (datetime(''now'', ''localtime''),''New''); '+
'END;'
);
end;
procedure triggerDelete;
begin
SQLExecute('DROP TRIGGER IF EXISTS my_log_insert');
end;
87 2022-02-01 20:04:30
Re: How to Use the DaysBetween function in select sentence? (5 replies, posted in Script)
Функция DaysBetween вычитает FromDate из ToDate, возвращая разность в целых днях.
var
fromdate, toDate : TDateTime;
begin
// Установка наших переменных дат
fromDate := EncodeDateTime(2000, 02, 26, 10, 0, 0, 0);
toDate := EncodeDateTime(2000, 02, 29, 9, 0, 0, 0);
// Отображение этих дат и дней между ними
ShowMessage('С даты = '+DateTimeToStr(fromDate));
ShowMessage('До даты = '+DateTimeToStr(toDate));
ShowMessage('Целых дней = '+
IntToStr(DaysBetween(toDate, fromDate))+' дней');
end;
88 2022-01-31 04:39:06
Re: Connect database (3 replies, posted in General)
Thanks...
But i need complete procedure to connect and retrieve data..
I mean connection strings, query procedure ,loops, load data in table grid using script
// отключаемся от старой БД
frmStart.SQLConnection.Connected := False;
// подключаемся к новой БД
frmStart.SQLConnection.Params.Add('Database='+listBox.Items[listBox.ItemIndex]+'\sqlite.db');
89 2022-01-31 04:33:35
Re: point components in loop (10 replies, posted in Script)
ссылайте все компоненты на одно имя процедуры..
а вообще уточните, что Вы хотите сделать..
refer all components to the same procedure name..
and in general, specify what you want to do.
90 2022-01-20 14:58:50
Re: [решено] Размер Label (15 replies, posted in Russian)
Добрый день.
А как сделать тоже самое, но с таблицей? Вот так не работает:for i:=0 to Form1.ComponentCount -1 do IF Form1.Components[i] is TdbStringGridEx Then TdbStringGridEx(Form1.Components[i]).Font.Size:=12;
Таблицы находит, но шрифт не меняет.
Form1.TableGrid1.Font.Size:=8;
91 2022-01-16 13:40:21
Re: Максимальный id (11 replies, posted in Russian)
sibprogsistem wrote:мне нужен был счетчик для того, что бы номер договора ни когда не повторялся, обычный счетчик (который есть по умолчанию) не подходит так как он может начаться заново если удалить записи.. будет странно если на руках будут разные договора с одинаковыми номерами..
Повторюсь, что если система многопользовательская, то велика вероятность одновременного создания документов с одинаковым номером.
В этом случае нужна хранимая процедура, которая определяет нужный номер и прописывает его в базу в рамках одной транзакции.
Одним запросом это сделать не получится, так как MySQL не разрешает делать в одной команде обновление таблицы, из которой идет чтение данных.Вот пример процедуры, которая создает уникальные номера (DocNum) в рамках одного календарного года (RegDate - дата документа) для каждого типа документа (id_folder)
CREATE PROCEDURE `updnum`( IN AIDdoc int ) BEGIN DECLARE tmpNextNumber INT; DECLARE tmpIDFolder; DECLARE tmpDate DATE; SELECT RegDate INTO tmpDate FROM doc WHERE id = AIDdoc; SELECT id_folder INTO tmpIDFolder FROM doc WHERE id = AIDdoc; SELECT coalesce( res.NNum, 1 ) INTO tmpNextNumber FROM ( SELECT max(rd.DocNum)+1 as NNum FROM doc rd WHERE rd.id_Folder = tmpIDFolder AND YEAR( rd.RegDate ) = YEAR( tmpDate ) ) res; UPDATE doc SET DocNum = tmpNextNumber WHERE id = AIDdoc; END
Вызывать её нужно после сохранения записи в базу:
procedure frmDocEdit_rbtOK_OnAfterClick(Sender: TObject); var tmpID: string; begin tmpID := IntToStr(frmDocEdit.rbtOK.dbGeneralTableId); SQLExecute( 'call updnum('+tmpID+') ' ); end;
это не большой, однопользовательский проект, но спасибо за информацию и пример, я намотал на ус..
92 2022-01-16 08:56:32
Re: Максимальный id (11 replies, posted in Russian)
Чисто из любопытства: зачем нужен id перед добавлением записи? Замечу, что для многопользовательских БД это может привести к ошибке из-за попытки добавления двух записей с одинаковыми ID.
мне нужен был счетчик для того, что бы номер договора ни когда не повторялся, обычный счетчик (который есть по умолчанию) не подходит так как он может начаться заново если удалить записи.. будет странно если на руках будут разные договора с одинаковыми номерами..
93 2022-01-08 08:19:13
Re: Максимальный id (11 replies, posted in Russian)
SELECT * FROM SQLITE_SEQUENCE WHERE name = '<table>';
спасибо, но без упоминания поля хранимого инкремент значение не выводит а только возвращает имя таблицы
так работает:
SQLExecute('SELECT seq FROM SQLITE_SEQUENCE WHERE name="a"');
94 2022-01-07 20:35:16
Topic: Максимальный id (11 replies, posted in Russian)
мне нужно перед сохранением записи получить максимальный id записи для создания своего счётчика, использовать встроенный счетчик не вариант, так как он начинается с ноля если записи в таблице удалить, а идентификатор всегда продолжает счет, но я не могу понять как получить id если записи в таблице были удалены ...
95 2022-01-06 09:44:14
Re: Save button (2 replies, posted in Script)
Hi friends,
How are you all? Today I am asking about how to create save button to save records of various tables using script?
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
SQLExecute('INSERT INTO a(qq)VALUES("'+Form1.Edit1.Text+'")');
SQLExecute('INSERT INTO b(ww,id_a)VALUES("'+Form1.Edit2.Text+'","'+IntToStr(Last_Insert_id)+'")');
UPDATEDATABASE('a');
UPDATEDATABASE('b');
end;
96 2022-01-01 11:25:19
Topic: С НОВЫМ ГОДОМ / HAPPY NEW YEAR !!!!!! (3 replies, posted in Talks about all)
97 2021-12-25 15:32:28
Re: Viewer (15 replies, posted in General)
Hello Sibprogsistem,
Great program! Is it possible to add keyboard arrow key option to select a particular photo from the scrollbox?
Regards,
Eyeman
option with buttons forward backward
99 2021-12-24 11:22:15
Re: Место нахождения курсора мышки (3 replies, posted in Russian)
Читай последнее положение (X Y) курсора, сравнивай в ..Leave с координатами рисунка.
Если я правильно понял вопрос, вы можете попробовать вот так (см. Вложение).
Вам нужно переместить «мышь» в нижнюю часть формы 1).
Затем вместо использования onmouseleave для панели используйте onmouseenter для другого объекта
Может быть, это ответ на ваш вопрос.
Derek.
спасибо за подсказку
procedure mouseLeavePI (Sender: TObject);
var
x0,y0:integer;
begin
GetCursorPos(x0,y0);
x0 := x0 - frmQuestion.Left -2;
y0 := y0 - frmQuestion.Top - 31;
if (x0<=0)OR(y0<=0)OR(x0>=442)OR(y0>=211)then frmQuestion.pImgButton.Visible := False;
end;
100 2021-12-24 07:38:02
Topic: Место нахождения курсора мышки (3 replies, posted in Russian)
хочу сменить панель с кнопками у imageDataBase.
отключил у компонента imageDataBase кнопки и разместил свою панель с кнопками
хотел повесить управление свойством панели visible на события onMauseEnter и onMauseLeave
но проблема возникает при переходе курсора с рисунка на панель ( зацикливает между событиями onMauseEnter и onMauseLeave )
как я понимаю мне нужно ориентироваться только на рисунок, но я не могу понять как мне определять находиться курсор в пределах рисунка или нет ведь если перевести курсор на панель программа считает что курсор ушел с рисунка (панель находиться на рисунке)..