Вверх ↑
Ответов: 52
Рейтинг: 0
#1: 2021-01-19 20:45:32 ЛС | профиль | цитата
Открывать базу и работа с ней, у меня выходит хорошо. Только я хотел сделать первую и еще несколько строк цветными, и это у меня не получается сделать второй вечер.
Если взять список строк и перебором массива занести его в таблицу проблемы вроде как нету, а если заполнять таблицу из SQLite - проблема.

сама база:скачать
Схема:

Add(MainForm,2953706,329,70)
{
link(onCreate,3468868:doOpen,[])
}
Add(SQLite_DB,3468868,385,84)
{
FileName="calen.db"
link(onOpen,3754693:doQuery,[])
}
Add(SQLite_Query,3754693,441,84)
{
SQL="select * from ssss"
link(onQuery,4147241:doAddRow,[])
link(onColumns,4147241:doAddCols,[])
link(dbHandle,3468868:dbHandle,[(447,72)(562,72)(562,134)(391,134)])
}
Add(MTStrTbl,5741977,280,119)
{
Left=460
Top=605
Align=5
Font=[Times New Roman,16,0,0,204]
Name="micro"
DoubleBuffered=0
ColDelimiter="_"
ColorItems=0
Redaction=0
Grid=0
DrawManager="otris"
Point(onBeforeLineChange)
Point(onLineChange)
Point(MTStrTbl)
Point(onChangeWidth)
AddHint(197,77,40,13,Name)
}
Add(MST_DrawManager,3048265,280,70)
{
Name="otris"
TabGrid=0
Gradient=0
BkFrameColor=65280
LightTxtColor=255
}
Add(MST_RowAction,15531054,343,399)
{
Action=5
Index=1
MSTControl="micro"
link(onChange,15671187:doRedraw,[])
AddHint(98,-178,40,13,MSTControl)
AddHint(28,-44,21,13,Index)
}
Add(RedrawManager,15671187,399,399)
{
ControlManager="micro"
Point(doEndUpdate)
AddHint(41,-156,40,13,ControlManager)
}
Add(ColorBox,13329345,273,308)
{
Left=45
Top=295
Width=110
Height=21
TypeListColors=1
DefColor=128
AddHint(20,-37,62,13,DefColor)
}
Add(ColorBox,12019882,294,350)
{
Left=210
Top=295
Width=110
Height=21
DefColor=15780518
}
Add(MT_AddData,5177677,287,399)
{
Data=Integer(0)
InputMT=0
link(onAdd,15531054:doRowAction,[])
link(Data1,13329345:Index,[(293,387)(286,387)])
link(Data2,12019882:CurrentColor,[])
}
Add(Timer,14208224,231,399)
{
Interval=1
link(onTimer,5177677:doAdd,[])
}
Add(MST_DB,4147241,511,84)
{
MSTControl="micro"
}
Add(MST_RowAction,7718808,721,399)
{
Action=5
Index=1
MSTControl="micro"
link(onChange,11657367:doRedraw,[])
AddHint(-216,-178,40,13,MSTControl)
}
Add(RedrawManager,11657367,777,399)
{
ControlManager="micro"
Point(doEndUpdate)
AddHint(-273,-155,40,13,ControlManager)
}
Add(ColorBox,10670215,658,287)
{
Left=45
Top=295
Width=110
Height=21
TypeListColors=1
DefColor=128
AddHint(20,-37,62,13,DefColor)
}
Add(ColorBox,1281785,679,329)
{
Left=210
Top=295
Width=110
Height=21
DefColor=15780518
}
Add(MT_AddData,11575558,665,399)
{
Count=3
Data=Integer(0)
InputMT=0
link(onAdd,7718808:doRowAction,[])
link(Data1,1051421:Text,[(671,375)(650,375)])
link(Data2,10670215:Index,[(678,369)(671,369)])
link(Data3,1281785:CurrentColor,[])
}
Add(Timer,12717164,609,399)
{
Interval=1
link(onTimer,11575558:doAdd,[])
}
Add(Edit,1051421,644,245)
{
Left=375
Top=530
Text="1"
DataType=2
}

Скриншот схемы:


--- Добавлено в 2021-01-19 21:20:27

Проблема решена!

карма: 0

0
Редактировалось 1 раз(а), последний 2021-01-19 21:20:27