You are not logged in. Please login or register.
My Visual Database → Posts by DriveSoft
Т. Е получается, что в любом случае подписи графиков берутся из базы? И если встанет необходимость их поменять, нужно будет менять значения в самой базе?
При необходимости вы можете задать любое значение переменной StatusValue, но в принципе логично брать значение из базы.
Доброго времени суток!!!
Друзья, подскажите у нас в гриде...
возможно в заголовке менять цвет в определённых колонках...как в рисунке...
Посмотрите пожалуйста данный пример
http://myvisualdatabase.com/forum/misc. … download=1
Добрый день, Дмитрий!
Есть база оборудования, в каждой строке оборудорвания указывается ФИО сотрудника(несколько типов оборудования закреплены за одним и тем же сотрудником), так вот, как должен выглядеть SQL запрос, чтобы результатом вывода в таблицу, все значения типов оборудования и их параметров появлялись в одной строке закрепленных за этим сотрудником.
Это все нужно для отчета на одном листе, где будет информация всех типов, моделей оборудования, серийников и т.д. закрепленных за ОДНИМ сотрудником.
Заранее большое спасибо.
Приветствую,
Думаю это можно сделать без SQL запроса, используйте кнопку с действием "Отчет", затем в отчете можно сделать групировку по сотруднику. Если не получится, приложите пожалуйста ваш проект.
Попробуйте так
procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
if Form1.TableGrid1.SelectedRow = -1 then Cancel := True;
end;RZ-007
Пожалуйста приложите тестовый проект с данными таблицами и данными, постараюсь что нибудь придумать.
Скриншот в приложении.
Это надпись задается переменной StatusValue
if ValidInt(QtyValue) then ChartBar.Series[0].AddXY(x, StrToInt(QtyValue), StatusValue);мне как раз нужно что бы человек внес данные и он их не мог редактировать а я мог а что вы исправили не вижу ошибки так и выскакивают
видимо я исправил не все ошибки, пожалуйста описывайте подробней, какие действия приводят к ошибкам.
Hello,
Example, how to get all Labels on form and change caption of them
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
i,c: integer;
begin
c := Form1.ComponentCount-1;
for i := 0 to c do
begin
if Form1.Components[i] is TLabel then TLabel(Form1.Components[i]).Caption := 'Hello';
end;
end;Всем хорошего настроения!!!
Пожалуйста опишите словами, что именно необходимо.
не принципиально но....
1.) линии чертились не просто сглажено, а через точки...
2.) если значение больше нулевого значения...точка(маленький кругляшок) зелёным цветом,
если меньше красным....
В событии OnShow где создается график, добавьте эти строки
ChartLine.View3D := False;
TLineSeries(ChartLine.Series[0]).Pointer.Visible := True;
TLineSeries(ChartLine.Series[0]).Pointer.Style := psCircle;
TLineSeries(ChartLine.Series[0]).Pointer.Size := 10;пример процедуры заполнения графика, правда линии тоже будут окрашены
{== LINE CHART ===========================================================================================}
procedure Form1_bLineUpdate_OnClick (Sender: string; var Cancel: boolean);
var
Results: TDataSet;
DateValue: Double;
ProfitValue: string;
col: TColor;
begin
ChartLine.Series[0].Clear;
SQLQuery('SELECT date, profit FROM line_data ORDER BY date DESC', Results);
while not Results.Eof do
begin
DateValue := SQLDateTimeToDateTime( Results.FieldByName('date').asString );
ProfitValue := Results.FieldByName('profit').asString;
if ValidFloat(ProfitValue) then
begin
if StrToFloat(ProfitValue) < 0 then col := clRed else col := clGreen;
ChartLine.Series[0].AddXY(DateValue, StrToFloat(ProfitValue), '', col );
end;
Results.Next;
end;
end;
{== LINE CHART ===========================================================================================}Подскажите пож как сделать чтобы курсор на главной таблице был всегда сверху. Заранее спс.
например так, курсор будет утснавливаться на первую запись при изменении сожержимого грида
procedure Form1_GridEmployees_OnChange (Sender: string);
begin
if Form1.TableGrid1.RowCount > 0 then
begin
Form1.TableGrid1.SelectedRow := 0;
Form1.TableGrid1.ScrollToRow(0);
end;
end;Приложите пожалуйста ваш проект, с указанием формы, грида и имя поля, которое необходимо округлить.
Приведите еще пару разных примеров по созданию графиков. У вас только числа и дата. Дата и вид ячейки и тд
Пожалуйста опишите подробней, какой именно вам необходим пример.
В этой теме можете найти новый пример
http://myvisualdatabase.com/forum/viewt … 778#p14778
Большое спасибо за помощь. А можете еще прояснить по поводу имени легенды? как его поменять на свое?
Не совсем понимаю, о каком имени легенды идет речь, приложите пожалуйста рисунок графика, с указанием какую именно надпись необходимо изменить.
Приветствую,
немного исправил ваш проект, в принципе весь скрипт в данном проекте относится к распределении привелегий пользователей, если они вам не нужны, можете просто отключить скрипты в проекте.
Доработал ваш пример:
Дмитрий, спасибо за помощь!
Принцип работы скриптов понятен, но, как применить данные скрипты я так и не понял. Не найдется ли у вас примерчика ))
Что именно необходимо? применить как?
Я могу помочь только с конкретными вопросами, либо с понятно сфорулированным вопросом, который займет совсем немного времени для реализации.
Пожалуйста описывайте подробней, где вы производите данные вычисления? в скрипте? в вычисляемых поля? куда выводиться результат? в грид или в куда либо еще?
Hello Dmitry
all of them except the datetimepicker one. they are all basically the same so if this one
works, the rest should work as well.line 68:
form1.edit42.Value := sqlexecute('select wksplayed from matches where id =' +inttostr(playersform.combobox1.dbitemid))+1;thanks
lee
ComboBox1 have foreign key "teammates.id_Teams"
but in your SQL query you try to find in the table "matches"
It does not make sense.
Здравствуйте.
Как отменить срабатывание события OnChange у текстового поля, при открытии формы?
Спасибо.
Приветствую,
Увы отменить нельзя.
В карточке клиента есть история посещений. Вот эта история и должна выводиться в главной форме, в закладке посещении, и группировать фамилии по времени, если они назначены на одно время и день. Как показано на картинке в первом посту
Вы так и не назвали имя формы и используемые таблицы БД.
перед LIKE стереть два пробела выдаёт ошибку.....
добавляю + '(пробел+пробел с клавиатуры)LIKE работает....
НЕ сочтите за трудность взгляните на скриптик.....между командой LIKE и параметрами поиска должен быть пробел, правда достаточно одного.
Дмитрий это просто чудесно!!!
данные из грида для графика работают...ОК!!!
ПОСТ №12.) Суть вопроса изложена в рисунку, который прикреплён ниже
Пожалуйста опишите словами, что именно необходимо.
Дмитрий, извините за назойливость
Не могли бы вы подсказать пример скрипта с командами AES_ENCRYPT и AES_DECRYPT .
шифрование
INSERT INTO testtable (fieldname) VALUE(AES_ENCRYPT('mytext','passw')); расшифровка
SELECT AES_DECRYPT(fieldname,'passw') FROM testtable; My Visual Database → Posts by DriveSoft
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi