Приветствую,
в другую таблицу куда именно? в ячейку или в подвал?
6,226 2015-11-06 14:04:36
Re: Как вывести сумму столбца Grida в другую таблицу (8 replies, posted in Russian)
6,227 2015-11-06 13:18:14
Re: DateTimePicker (22 replies, posted in Russian)
nikolai_nn wrote:
здравейте,искам да добавам 1 месец,а не 30 дни,защото има месеци с 31 ден,а февруари с 28 и т.н.
это не совсем тривиальная задача. Допустим у вас дата 31.10.2015, необходимо прибавить месяц, но в ноябре только 30 дней, какая дата должна быть в результате?
или даже сегодня 29.02.2016, нужно прибавить месяц, какая будет итоговая дата? 29.03 ? 30.03? или 31.03?
сначала необходимо знать какой именно алгоритм прибавления месяца вам необходим.
6,228 2015-11-06 09:32:12
Re: Подскажите с скриптом... (131 replies, posted in Russian)
не совсем
procedure Form3_TableGrid1_OnChange (Sender: string);
var i,c: integer;
s: string;
begin
c := Form3.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
s := Form3.TableGrid1.Cells[10,i];
if ValidFloat(s) then
if StrToFloat(s) < 0 then
then Form3.TableGrid1.Cell[10,i].TextColor := clGreen
else Form3.TableGrid1.Cell[10,i].TextColor := clRed;
if Form3.TableGrid1.Cells[3,i] = 'Real'
then Form3.TableGrid1.Cell[3,i].Color := clSilver
else Form3.TableGrid1.Cell[3,i].Color := clYellow;
end;
end;6,229 2015-11-06 09:26:35
Re: Barcode (3 replies, posted in General)
Usually you don't need any script when you using scanner, you need just set focus to textbox after scanning you will see code from barcode in the textbox, because scanner will send code like keystrokes.
6,230 2015-11-05 22:15:08
Re: How to extend time for hint text (12 replies, posted in Script)
But for hint into textboxes or comboboxes there is no way to set the pause time
Form1.Edit1.TextHint := 'Enter the last name';6,231 2015-11-05 22:11:34
Re: How To Change Keyboard Tab Order From TAB To ENTER (6 replies, posted in Script)
An example for you, to demonstrate try to edit record:
6,232 2015-11-05 22:01:36
Re: Parsing text (2 replies, posted in Script)
Example, how to extract Some product name
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
sStart, sEnd: string;
sSource: string;
begin
sSource := '<ProductName VALUE="Some product name"/> ?';
sStart := '<ProductName VALUE="';
sEnd := '"/> ?';
Form1.Edit1.Text := Copy(sSource, Length(sStart)+1, Length(sSource) - Length(sStart)-Length(sEnd) );
end;6,233 2015-11-05 21:52:09
Re: [Script] Opening e-mail program with the addressee (2 replies, posted in FAQ)
No, you can only to send email with attached file directly from MVD.
6,234 2015-11-05 21:49:29
Re: Подскажите с скриптом... (131 replies, posted in Russian)
забыли точку с запятой
procedure Form3_TableGrid1_OnChange (Sender: string);
var
i,c: integer;
s: string;
begin
c := Form3.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
s := Form3.TableGrid1.Cells[10,i];
if ValidInt(s) then
if StrToFloat(s) < 0 then Form3.TableGrid1.Cell[10,i].TextColor := clRed;
if Form3.TableGrid1.Cells[3,i] = 'Real'
then Form3.TableGrid1.Cell[3,i].Color := clSilver
else Form3.TableGrid1.Cell[3,i].Color := clYellow;
end;
end;в скрипте у компонента может быть только одно событие одного вида, поэтому нужно объединять.
6,235 2015-11-05 21:45:40
Re: Change Textbox background when Read Only (7 replies, posted in Script)
You should use begin end keywords
if Admin.Edit_typ.Text<>'' then
begin
Admin.Edit_typ.ReadOnly := True;
Admin.Edit_typ.color := $003333FF;
end
else
begin
Admin.Edit_typ.ReadOnly := False;
Admin.Edit_typ.color := clWindow;
end;6,236 2015-11-05 21:43:04
Re: DateTimePicker (22 replies, posted in Russian)
nikolai_nn wrote:
здравейте,имам въпрос:
Form1.DateTimePicker2.Date := Form1.DateTimePicker1.Date+ ????
как да добавя 1 месец
можно так
Form1.DateTimePicker2.Date := Form1.DateTimePicker1.Date + 30;6,237 2015-11-05 21:41:16
Re: связанные таблицы (10 replies, posted in Russian)
wertyby
Программа не может автоматически связать более двух таблиц, поэтому в данном случае эти таблицы необходимо связать вручную с помощью вычисляемых полей.
по этой же причине поиск можно произвести только по сорту, с помощью стандартной кнопки Поиск.
Чтобы можно было искать по категориям, видам и подвидам, необходимо использовать кнопку "SQL запрос" в котором вы можете организовать любой поиск с помощью SQL запросе.
Добавил в ваш проект вычисляемые поля в таблицу sort
6,238 2015-11-05 21:03:29
Re: List filtered rows in Grid (13 replies, posted in General)
Hello,
I made some changes, please try it:
6,239 2015-11-05 11:52:49
Re: вычислительное поле (54 replies, posted in Russian)
достаточно просто написать название первого поля (но нельзя в вычисляемое поле вписывать другие вычисляемые поля)
6,240 2015-11-05 10:33:11
Re: I need help with the attached Database. (8 replies, posted in General)
imcisco
In the settings of button "Search" I just changed a option "2. Select the database table for the query" from "StockInfo" to "DesignInfo"
6,241 2015-11-05 00:16:32
Re: I need help with the attached Database. (8 replies, posted in General)
imcisco
I made some changes in the settings of button "Search"
project attached:
6,242 2015-11-04 19:30:11
Re: How to extend time for hint text (12 replies, posted in Script)
tcoton
An example for you:
6,243 2015-11-04 11:07:54
Re: связанные таблицы (10 replies, posted in Russian)
wertyby
Приветствую,
посмотрел проект, не нашел где не работает связанный список, пожалуйста описывайте подробней, на какой форме и в каких компонентах не работает.
6,244 2015-11-03 23:42:32
Re: Подскажите с скриптом... (131 replies, posted in Russian)
procedure Form1_GridEmployees_OnChange (Sender: string);
var
i,c: integer;
s: string;
begin
c := Form1.GridEmployees.RowCount - 1;
for i := 0 to c do
begin
s := Form1.GridEmployees.Cells[5,i];
if ValidFloat(s) then
if StrToFloat(s) < 0 then Form1.GridEmployees.Cell[5,i].TextColor := clRed
end;
end;6,245 2015-11-03 23:40:24
Re: Saving multiple values in one database field (4 replies, posted in Script)
mathmathou
You can get ID of record from button with action "Save Record"
Form1.ButtonSave.dbGeneralTableIdor
new_product_keywords.Label_prod_id.Caption := IntToStr(new_product.ButtonSave.dbGeneralTableId);6,246 2015-11-03 15:40:37
Re: mysql comun. server and mvd (2 replies, posted in General)
I can only help you with specific questions.
Here you can find how to install MySQL server:
http://myvisualdatabase.com/forum/viewt … p?pid=9770
6,247 2015-11-03 15:37:14
Re: Подскажите с скриптом... (131 replies, posted in Russian)
procedure Form1_GridEmployees_OnChange (Sender: string);
var
i,c: integer;
s: string;
begin
c := Form1.GridEmployees.RowCount - 1;
for i := 0 to c do
begin
s := Form1.GridEmployees.Cells[5,i];
if ValidFloat(s) then
if StrToFloat(s) < 0 then Form1.GridEmployees.Cell[5,i].TextColor := clRed
end;
end;6,248 2015-11-03 12:44:33
Re: Подскажите с скриптом... (131 replies, posted in Russian)
procedure Form3_TableGrid1_OnChange (Sender: string);
var
i,c: integer;
s: string;
begin
c := Form3.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
s := Form3.TableGrid1.Cells[10,i];
if ValidInt(s) then
if StrToInt(s) <= 0 then Form3.TableGrid1.Cell[10,i].TextColor := clRed;
s := Form3.TableGrid1.Cells[4,i];
if ValidInt(s) then
if StrToInt(s) >= 0 then Form3.TableGrid1.Cell[4,i].Color := clGreen
else Form3.TableGrid1.Cell[4,i].Color := clRed;
end;
end;6,249 2015-11-02 20:22:53
Re: Подскажите с скриптом... (131 replies, posted in Russian)
вместо Cell[4,i].Color используйте Cell[4,i].TextColor
6,250 2015-11-02 17:32:59
Re: Подскажите с скриптом... (131 replies, posted in Russian)
попробуйте так
procedure Form1_GridEmployees_OnChange (Sender: string);
var
i,c: integer;
s: string;
begin
c := Form1.GridEmployees.RowCount - 1;
for i := 0 to c do
begin
s := Form1.GridEmployees.Cells[4,i];
if ValidInt(s) then
if StrToInt(s) >= 0 then Form1.GridEmployees.Cell[4,i].Color := clGreen
else Form1.GridEmployees.Cell[4,i].Color := clRed;
end;
end;