Skip to forum content
My Visual Database
A Simple Solution for Creating Databases
You are not logged in. Please login or register.
Active topics Unanswered topics
Search options (Page 272 of 400)
Topics by DriveSoft User defined search
Posts found: 6,776 to 6,800 of 9,999
попробуйте так
procedure NovayaForma_dtpData_vipiski_OnChange (Sender: string);
begin
NovayaForma.edDni_prebivaniya.Value:= DaysBetween(NovayaForma.dtpData_vipiski.DateTime,NovayaForma.dtpData_gospitalizatsii.DateTime);
if NovayaForma.dtpData_vipiski.DateTime < NovayaForma.dtpData_gospitalizatsii.DateTime then NovayaForma.edDni_prebivaniya.Value := NovayaForma.edDni_prebivaniya.Value * -1;
end;
procedure NovayaForma_dtpData_gospitalizatsii_OnChange (Sender: string);
begin
NovayaForma.edDni_prebivaniya.Value:= DaysBetween(NovayaForma.dtpData_vipiski.DateTime,NovayaForma.dtpData_gospitalizatsii.DateTime);
if NovayaForma.dtpData_vipiski.DateTime < NovayaForma.dtpData_gospitalizatsii.DateTime then NovayaForma.edDni_prebivaniya.Value := NovayaForma.edDni_prebivaniya.Value * -1;
end;
Unfortunately I can not understand the reason for this, to advise.
voukefalas76
You can do it, but there is no easy way.
You should use the example in my previous link and SQL queries for that.
You want to store some big files in the another database?
Nervis
if Form1.ComboBox1.dbItemID = -1 then ...
I think you wrong, it's not the same.
Try type it to google for check:
2*5/(1+sqrt(5))
5/((1+sqrt(5)/2))
inter1292
Настройки SMTP есть, как закрепить их в форме что бы каждый раз не вводит?
Проще всего настройки прописать в скрипте, тогда не будет необходимости из закреплять на форме.
например:
SendMail('smtp.mail.ru', 'login', 'password', 465, 'yourmail@mail.ru', 'tomail@gmail.com', 'Тема письма', 'Сообщение', '');
также для корректной работы с почтовым сервером mail.ru пожалуйста скачайте снова последнюю версию программы, добавил поддержку SSL, которая требует данный SMTP сервер (как и многие другие )
http://myvisualdatabase.com/thank_you_f … ading.html
Nervis wrote:1. По умолчанию имя этого окна соответствует названию файла базы. Хотелось бы его изменить.+Форматирование текста сообщения в самом окошке. Спасибо)
Изменить заголовок сообщения пока нельзя.
В тексте сообщения можете вставлять перенос строки, например:
ShowMessage('Строка 1' + #13 + 'Строка 2');
dobro.vasiliy wrote:отправляю
Куда?
можете на support@drive-software.com
inter1292 wrote:Доброго времени суток! Как можно сделать настрйки почтовика поумолчании и скрытную отправку почты на выбраный автоматически адрес??? Заранее большое спасибо!
Приветствую,
чтоб вы имеете ввиду под настройками по умолчанию?
вам необходим SMTP сервер для отправки e-mail сообщений, обычно каждый почтовый сервер предоставляет такой доступ, например тот же mail.ru
http://help.mail.ru/mail-help/mailer/popsmtp
Здравствуйте,
Выберите для кнопки действие "Отчет", затем необходимо настроить ее и создать шаблон для печати.
Можете приложить к сообщению ваш проект (zip файл без exe и dll) и картинку, как должна выглядеть итоговая печать, постараюсь помочь.
You should create event OnChange for these two TableGrids
procedure Form1_TableGrid1_OnChange (Sender: string);
begin
Form1.Edit1.Value := Form1.TableGrid2.Columns[3].Footer.FormulaValue - Form1.TableGrid1.Columns[2].Footer.FormulaValue;
end;
procedure Form1_TableGrid2_OnChange (Sender: string);
begin
Form1.Edit1.Value := Form1.TableGrid2.Columns[3].Footer.FormulaValue - Form1.TableGrid1.Columns[2].Footer.FormulaValue;
end;
Also you can attach your project for the help.
Hello,
You should create event OnShow for this form:
procedure Form2_OnShow (Sender: string; Action: string);
begin
Form2.ButtonSave.Default := False;
end;
support@drive-software.com
Please, download latest version again
http://myvisualdatabase.com/thank_you_f … ading.html
I added property 'AutoSize" for the component Label thus you can set this property to False to avoid such behavior.
Thanks for the bug report.
Sergey wrote:а если в этом же столбце имеется несколько значений , и каждому присвоить нужно цвет? например если "да" то зеленый а если "может быть" то голубой (claqua) ?? а если нет то так и остаётся белый ???
procedure Form1_GridEmployees_OnChange (Sender: string);
var
i,c: integer;
begin
c := Form1.GridEmployees.RowCount - 1;
for i := 0 to c do
begin
if Form1.GridEmployees.Cells[3,i] = 'Да' then Form1.GridEmployees.Cell[3,i].Color := clGreen
else if Form1.GridEmployees.Cells[3,i] = 'Может быть' then Form1.GridEmployees.Cell[3,i].Color := claqua;
end;
end;
Здравствуйте,
1. О каких именно настройках идет речь?
2. Это зависит от темы Windows, нет возможности это изменить.
Здравствуйте.
Пожалуйста, приложите ваш проект с пошаговым описанием действий, который приводят к этому.
pha1984 wrote:Ошибка выглядит так: undeclared identifier: 'MainMenu' at 317:50
Т.е. Вот в этом участке
MyAboutMenu := TMenuItem.Create (Code.MainMenu);
Только на главной форме есть MainMenu, куда вы можете добавлять новые пункты меню.
Как создать MainMenu и на других формах, можно посмотреть в данном проекте
http://myvisualdatabase.com/forum/misc. … download=1
pha1984
Обычно место ошибки указывается в программе, также вы должны были получить сообщение об ошибке.
pha1984 wrote:Спс, сам разобрался, есть еше вопрос.
Code_edit11_onenter
Begin
Changekeyboardlayout(lang_english);
End;
Раскладка клавиатуры переключается автоматически на англ., это норма. Надо чтобы при нажатии alt+shift, которая присутствует в стандартной функции виндовс, не переключала на руский язык.
К сожалению заблокировать функцию Windows не получиться, но вы можете скриптом запретить писать русские буквы.
procedure Form1_Edit1_OnKeyPress (Sender: string; var Key: Char);
begin
If (Key in ['А'..'Я']) or (Key in ['а'..'я']) then Key:=#0;
end;
Для формы Code не создано событие OnClose, хотя в коде оно присутствует, возможно случайно удалили, просто пересоздайте данное событие заново.
Т.о. программа не закрывалась, а размер колонок грида сохраняется как раз при закрытии программы.
Данный код активации у меня не работает.
pha1984
Вы сперва говорите про записи, затем про колонки, речь идет о сортировке записей? или о ширине колонок?
pha1984 wrote:Вы не ответили на счет хаотичности грида, я их подправляю, а при след. запуске опят безпорядок в гриде отмечается.
Я вам уже ответил на этот вопрос, если мой ответ не помог, опишите более подробно, о чем идет речь.
Posts found: 6,776 to 6,800 of 9,999