51

(34 replies, posted in Russian)

в Tablegrid выводится информация по запросу:
select
CASE when bdog.shifr is NULL then Type.type_gk_dog||' "'||trim(BDog.nameGK)||'"'
else Type.type_gk_dog||' "'||trim(BDog.nameGK)||'"'||', шифр "' ||trim(bdog.shifr)|| '"' end,
GLIsp.nameGI,
GZak.ZakName,                   
GLIsp.nameGI,
case when strftime('%d.%m.%Y',bdog.date_gk) is null then 'ГК '||BDog.num_gk
else 'ГК '||BDog.num_gk || ' от ' || strftime('%d.%m.%Y',bdog.date_gk) || ' г. ' end,
BDog.osnovanie,                           
strftime('%d.%m.%Y',VedIsp.startstage),
strftime('%d.%m.%Y',vedisp.endstage),
vedisp.id_bdog,
Type.id,
BDog.id_Type,
BDog.id,                                             
BDog.id_GLIsp,
BDog.id_GZak,
BDog.num_GK

from bdog, glisp, Gzak, vedisp, type
where BDog.id_Type=Type.id and vedisp.id_bdog=bdog.id and GZak.id=BDog.id_GZak and (GZak.id={combobox2} or {combobox2}=-1)
and GLisp.id=bdog.id_Glisp and ({combobox1}=-1 or GLIsp.nameGI='{edit1}')
and (strftime('%Y',{DateTimePicker1})= strftime('%Y',vedisp.endstage) or  strftime('%Y',{DateTimePicker1})= strftime('%Y',VedIsp.startstage))
group by BDog.num_GK

UNION ALL
select
CASE when SoispDog.shifr_dog is NULL then Type.type_gk_dog||' "'||trim(SoispDog.name_dog)||'"'
else Type.type_gk_dog||' "'||trim(SoispDog.name_dog)||'"'||', шифр "' ||trim(SoispDog.shifr_dog)||'"' end,
Soisp.nameIsp,
GZak.ZakName,
GLIsp.nameGI,
case when strftime('%d.%m.%Y',bdog.date_gk) is null then 'ГК '||BDog.num_gk
else 'ГК '||BDog.num_gk || ' от ' || strftime('%d.%m.%Y',bdog.date_gk) || ' г. ' end,
SoispDog.osn_dog,
strftime('%d.%m.%Y',VedIsp.startstage),
strftime('%d.%m.%Y',vedisp.endstage),
VedIsp.id_SoispDog,
Type.id,
SoispDog.id_Type,
SoispDog.id,
SoispDog.id_GLIsp,
SoispDog.id_BDog,
SoispDog.num_dog

from soispDog, bdog, glisp, soisp, Gzak, vedisp, type
where SoispDog.id_Type=Type.id and vedisp.id_soispdog=soispdog.id and GZak.id=BDog.id_GZak and (GZak.id={combobox2} or {combobox2}=-1)
and SoispDog.id_BDog=BDog.id and GLisp.id=SoispDog.id_GLIsp
and Soisp.id=SoispDog.id_Soisp and (soisp.id={combobox1} or {combobox1}=-1)
and (strftime('%Y',{DateTimePicker1})= strftime('%Y',vedisp.endstage) or  strftime('%Y',{DateTimePicker1})= strftime('%Y',VedIsp.startstage))
and soisp.skontr=1
group by SoispDog.num_dog
order by Soisp.nameIsp

Такой же запрос хочу сделать Отчет (SQL). Подскажите правильно ли я делаю и как в Репорте сделать отчет?

Вот как это выглядит на экране

Вот что на экране

Возникает такая неприятность при работе с программой. При изменении размера шрифта с мелкого(100%) на средний(125%) в настройках Windows 7, в программе почему-то перемещаются объекты со своих мест и шрифт становится жирным!??? Проверялось не на одном компьютере. В чем причина?

55

(36 replies, posted in Russian)

Дмитрий, в версии 3.6 ошибку больше не выдает, но при этом при выполнении SQL запроса значение vedisp.cashstage выдается с запятой (тип REAL), а значение vedisp.NDS выдается с точкой (тип REAL). Я думаю тут нет ошибок ни в SQL запросе ни в скрипте, поскольку там скрипт работает только по раскраске ячеек. Но с чем связана данная ситуация остается загадкой.

delphinsl wrote:

При выполнении данного SQL запроса, появляется вот такая ошибка. Началось с версии 3.3

select
SoispDog.num_dog,
strftime('%d.%m.%Y',SoispDog.date_dog),
soispdog.shifr_dog,
SoispDog.name_dog,
vedisp.numstage,                       
vedisp.namestage,
vedisp.ONTD,
strftime('%d.%m.%Y',vedisp.startstage),
strftime('%d.%m.%Y',vedisp.endstage)as dateend,
vedisp.trud,
vedisp.cashstage,
vedisp.NDS,
vedisp.vidcash,
Glisp.nameGi,
Soisp.nameisp,
vedisp.Zakl_OC,
vedisp.Zakl_TFC,
vedisp.udost,
(case when vedisp.otmstage=1 then 'да' else 'нет' end),
soispdog.id,               
soispdog.id_GLisp,
soispdog.id_soisp

from vedisp, soispdog, Glisp, soisp

where vedisp.id_soispdog=soispdog.id and soispdog.id_soisp=soisp.id and soispdog.id_Glisp=GLisp.id
and strftime('%m.%Y',vedisp.endstage)= strftime('%m.%Y',{DateTimePicker1}) and vedisp.otmstage='0'
order by dateend

56

(36 replies, posted in Russian)

При выполнении данного SQL запроса, появляется вот такая ошибка. Началось с версии 3.3

select
SoispDog.num_dog,
strftime('%d.%m.%Y',SoispDog.date_dog),
soispdog.shifr_dog,
SoispDog.name_dog,
vedisp.numstage,                       
vedisp.namestage,
vedisp.ONTD,
strftime('%d.%m.%Y',vedisp.startstage),
strftime('%d.%m.%Y',vedisp.endstage)as dateend,
vedisp.trud,
vedisp.cashstage,
vedisp.NDS,
vedisp.vidcash,
Glisp.nameGi,
Soisp.nameisp,
vedisp.Zakl_OC,
vedisp.Zakl_TFC,
vedisp.udost,
(case when vedisp.otmstage=1 then 'да' else 'нет' end),
soispdog.id,               
soispdog.id_GLisp,
soispdog.id_soisp

from vedisp, soispdog, Glisp, soisp

where vedisp.id_soispdog=soispdog.id and soispdog.id_soisp=soisp.id and soispdog.id_Glisp=GLisp.id
and strftime('%m.%Y',vedisp.endstage)= strftime('%m.%Y',{DateTimePicker1}) and vedisp.otmstage='0'
order by dateend

57

(36 replies, posted in Russian)

DriveSoft wrote:
delphinsl wrote:

Пишу такой скрипт:
procedure NewDog_CheckBox4_OnClick (Sender: string);
begin
    if  newdog.CheckBox4.Checked=false then newdog.TableGrid2.allowedit:=false //изменение таблицы
    else newdog.TableGrid2.allowedit:=true; //изменение таблицы
end;

хочу чтобы при активном чекбоксе в таблице можно было редактировать данные, получается чтобы свойство таблицы активировать необходимо закрыть окно и снова открыть. Как сделать чтобы свойство активировалось без закрытия окна. Стандартно сразу включать это свойство не хочется. Нужно именно из этого окна его активировать. Спасибо.

попробуйте так

procedure NewDog_CheckBox4_OnClick (Sender: string);
begin
    newdog.TableGrid2.allowedit := newdog.CheckBox4.Checked;
    newdog.TableGrid2.dbUpdate;    
end;

СПАСИБО!!! То что надо!

58

(36 replies, posted in Russian)

Пишу такой скрипт:
procedure NewDog_CheckBox4_OnClick (Sender: string);
begin
    if  newdog.CheckBox4.Checked=false then newdog.TableGrid2.allowedit:=false //изменение таблицы
    else newdog.TableGrid2.allowedit:=true; //изменение таблицы
end;

хочу чтобы при активном чекбоксе в таблице можно было редактировать данные, получается чтобы свойство таблицы активировать необходимо закрыть окно и снова открыть. Как сделать чтобы свойство активировалось без закрытия окна. Стандартно сразу включать это свойство не хочется. Нужно именно из этого окна его активировать. Спасибо.

при запуске программы в версии 3.3. возникает такая ошибка:

Дмитрий, а нельзя как то это исправить, вернуть как было?

Last_Insert_id () в версии 3.3 при компиляции ругается!

62

(63 replies, posted in Russian)

Как решить эту проблему можно? Желательно с информацией в том виде как она сейчас (10 колонок).

63

(63 replies, posted in Russian)

С чистой базой, запуск программы происходит нормально без ошибок, а вот работать с ней нельзя возникает ошибка!

64

(63 replies, posted in Russian)

Так она никуда и не исчезла, просто информация в БД не для распространения. Я отчистил БД, ошибка не исчезла.

65

(63 replies, posted in Russian)

Дмитрий, это и ежу понятно, что при удалении файла БД все пропадает. Я о другом говорю, Вы что-то дорабатываете, а у нас рабочие проекты не работают и дать файл с полной базой я Вам ну никак не могу!

66

(63 replies, posted in Russian)

Дмитрий, приложить проект не могу, поскольку обнаружил, что при удалении файла БД создается новый файл БД и с ним ошибок нет. Это не устраивает поскольку теряется вся информация! Посмотрите в чем проблема в новой версии!

67

(63 replies, posted in Russian)

Здравствуйте!
при запуске проекта должна высвечиваться форма логина и пароля, но выдает ошибку в версии 3.1, в версии 2.8 все работало!

Здравствуйте! Подскажите пожалуйста как можно из БД SQLLite сформировать в WORD таблицу либо заполнить шаблон в WORD, при этом есть условия помещения данных в таблицу и должно быть много строк. Есть какой-нибудь пример, что-то типа передачи данных из GRIDa в документ WORD?

69

(13 replies, posted in Russian)

Так я добавил туда еще одну вкладку и сделал ее скрытой. Теперь все работает. Смысл в том, что когда в Pagecontrol одна страница с индексом 0 TableGrid пропадает на ней, не отображается. В версии 2.2. было все в норме.

70

(13 replies, posted in Russian)

нет Дмитрий не исчезла к сожалению. Даже не знаю в чем может быть проблема. В свойствах ничего не менял, только на другой форме включил в комбобоксе мультилинии, они то работают, а когда выбираешь в таблице запись открывается окно в котором PageControl, а на нем TableGrid, причем есть еще одно подобное окно в котором две вкладки, если с одной на другую перещелкнуть и вернуться на первую то все появляется. Заметил одну вещь: если страниц в PageControl больше одной то все ОК, а если одна то вот эта проблема, на ней почему-то нет TableGrida. Пытался поместить PageControl на задний план а TableGrid на передний, ничего не поменялось. Добавил еще одну страницу и сделал ее не видимой все заработало, но проблему надо решать, где-то косяк.

71

(13 replies, posted in Russian)

Да Дмитрий на PageControl.

72

(13 replies, posted in Russian)

Дмитрий, в версии 2.3 есть ошибка. Почему-то в Tablegrid перестали загружаться данные либо отображатсья в нем и пропала разлиновка. В версии 2.2 мой проект работал и все было в порядке.

73

(13 replies, posted in Russian)

Дмитрий, скажите пожалуйста реализована ли или планируется к реализации свойство TableGrid выравнивание по центру заголовков таблицы?

Почему то это не работает dict.TableGrid8.Cells[3,4]:= 'год заключения государственного контракта';?

75

(63 replies, posted in Russian)

Нашел ошибку. Во втором запросе надо было сделать также. У меня объединение двух таблиц