Вверх ↑
Этот топик читают: Гость
Этот топик был перемещен из раздела "Помощь по среде"
Ответов: 14
Рейтинг: 0
#1: 2020-12-12 12:15:38 ЛС | профиль | цитата
Собственно пытаюсь сделать программу, в качестве базы данных Access. Принцип работы: оператор заполняет все поля и добавляет файл письма в формате pdf. Проблема 1 не корректно читает дату. Проблема 2 не запускается программа если в базе данных есть вложения (объект Ole)

мой код

Add(MainForm,2953706,42,203)
{
Width=797
Height=864
Caption="Корреспонденция"
BorderStyle=3
link(onCreate,7383877:doEvent1,[])
}
Add(TabControl,11552616,98,49)
{
Width=790
Height=60
Tabs=#9:Исходящие|8:Входящие|9:Настройки|
Bitmaps=[]
link(onChange,7640323:doEvent,[(152,55)(152,118)])
}
Add(ChildGroupBox,5442225,399,35)
{
}
BEGIN_SDK
Add(EditMulti,11901883,21,21)
{
WorkCount=4
Width=741
Height=669
link(doWork1,2675819:doWork1,[(53,27)])
link(doWork2,3260145:doEvent1,[(25,34)(25,48)])
}
Add(GroupBox,9439833,63,126)
{
Left=-10
Top=20
Width=800
Height=815
Caption=""
Point(doBringToFront)
}
Add(Label,13878432,238,42)
{
Left=20
Top=21
Width=41
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="Поиск"
}
Add(Edit,11630968,511,147)
{
Left=20
Top=60
Width=230
WinStyle=3
Text=""
Point(doEnabled)
}
Add(RadioButton,11268995,238,98)
{
Left=20
Top=37
Width=95
Ctl3D=0
WinStyle=1
Caption="Получатель"
}
Add(RadioButton,2055903,355,84)
{
Left=120
Top=37
Width=75
Ctl3D=0
WinStyle=1
Caption="Номер"
}
Add(Button,144734,112,231)
{
Left=20
Top=123
Width=230
Height=30
Ctl3D=0
WinStyle=2
Caption="Найти"
}
Add(ChildPanel,7182492,42,182)
{
}
BEGIN_SDK
Add(EditMulti,649821,21,21)
{
}
Add(Panel,10754540,35,105)
{
Left=15
Top=12
Width=775
Height=5
}
END_SDK
Add(Edit,11537365,427,161)
{
Left=80
Top=92
Width=70
WinStyle=3
Text=""
Point(doEnabled)
}
Add(Label,420053,301,36)
{
Left=156
Top=92
Width=16
Height=17
Caption="по"
}
Add(Edit,1292554,466,260)
{
Left=175
Top=92
Width=75
WinStyle=3
Text=""
Point(doEnabled)
}
Add(RadioButton,820755,517,304)
{
Left=20
Top=91
Width=60
Ctl3D=0
WinStyle=1
Caption="Период"
}
Add(ChildPanel,13962470,43,225)
{
}
BEGIN_SDK
Add(EditMulti,8848878,21,21)
{
}
Add(Panel,10621864,35,105)
{
Left=16
Top=155
Width=775
Height=5
}
END_SDK
Add(Button,1394894,567,252)
{
Left=261
Top=23
Width=125
Height=35
Ctl3D=0
WinStyle=2
Caption="Новое письмо"
link(onClick,5604588:doWork1,[(615,258)(615,279)(649,279)(649,230)])
}
Add(Button,1381664,112,144)
{
Left=261
Top=106
Width=125
Height=35
Ctl3D=0
WinStyle=2
Caption="Удалить письмо"
}
Add(Button,13053855,114,268)
{
Left=261
Top=64
Width=125
Height=35
Ctl3D=0
WinStyle=2
Caption="Редактировать"
}
Add(Button,13030539,112,361)
{
Left=407
Top=23
Width=125
Height=35
Ctl3D=0
WinStyle=2
Caption="Печать письма"
}
Add(Button,12222317,116,312)
{
Left=406
Top=106
Width=125
Height=35
Ctl3D=0
WinStyle=2
Caption="Экспорт в Excel"
}
Add(Button,16061067,425,71)
{
Left=407
Top=64
Width=125
Height=35
Ctl3D=0
WinStyle=2
Caption="Печать журнала "
}
Add(Label,16073883,560,42)
{
Left=541
Top=32
Width=7
Height=17
Caption="-"
}
Add(Label,5076719,588,63)
{
Left=556
Top=32
Width=120
Height=17
Caption="Информация о письме"
}
Add(Label,12360356,662,84)
{
Left=535
Top=75
Width=7
Height=17
Caption="-"
}
Add(Label,12674449,690,105)
{
Left=555
Top=76
Width=194
Height=17
Caption="Журнал корреспонденции за период "
}
Add(Label,13264421,607,126)
{
Left=537
Top=120
Width=7
Height=17
Caption="-"
}
Add(Label,7236302,635,147)
{
Left=557
Top=120
Width=187
Height=17
Caption="Выгрузка данных таблицы в эксель"
}
Add(StringTable,16685810,609,420)
{
Left=15
Top=160
Width=775
Height=650
Columns=#5:№=100|8:Дата=150|14:Получатель=150|8:Тема=180|12:Вложение=194|
Grid=0
Point(doInsert)
Point(doAddColumn)
}
Add(ChildForm,5604588,672,224)
{
}
BEGIN_SDK
Add(EditMulti,10669795,21,28)
{
WorkCount=2
Width=713
Height=585
link(doWork1,8294007:doShowModal,[(73,34)(73,111)])
link(doWork2,8294007:doClose,[(73,41)(73,104)])
}
Add(MainForm,8294007,126,77)
{
Left=35
Top=105
Width=436
Height=452
Visible=1
Caption="Новое письмо"
BorderStyle=3
Point(doShowModal)
}
Add(Edit,1163292,406,308)
{
Left=10
Top=100
Width=115
Font=[Times New Roman,12,0,0,204]
WinStyle=2
Text=""
}
Add(Label,11243136,133,161)
{
Left=10
Top=75
Width=54
Height=23
Font=[Times New Roman,12,1,0,204]
Caption="Дата"
}
Add(Label,12560056,184,163)
{
Left=10
Top=20
Width=51
Height=23
Font=[Times New Roman,12,1,0,204]
Caption="Номер"
}
Add(Edit,426275,346,314)
{
Left=10
Top=45
Width=115
Font=[Times New Roman,12,0,0,204]
WinStyle=2
Text=""
}
Add(Edit,10746843,471,283)
{
Left=10
Top=165
Width=195
WinStyle=2
Text=""
}
Add(Label,2884267,226,528)
{
Left=10
Top=135
Width=91
Height=23
Font=[Times New Roman,12,1,0,204]
Caption="Получатель"
}
Add(Button,14293692,35,553)
{
Left=220
Top=165
Width=105
Height=25
Font=[Times New Roman,12,0,0,204]
Caption="Справочник"
}
Add(Edit,5796132,437,368)
{
Left=10
Top=235
Width=310
WinStyle=2
Text=""
}
Add(Label,6932370,61,158)
{
Left=10
Top=205
Width=41
Height=23
Font=[Times New Roman,12,1,0,204]
Caption="Тема"
}
Add(Edit,11290542,515,348)
{
Left=10
Top=305
Width=240
WinStyle=2
Text=""
}
Add(Label,7186429,240,166)
{
Left=10
Top=275
Width=78
Height=23
Font=[Times New Roman,12,1,0,204]
Caption="Вложение"
}
Add(Button,16644189,35,440)
{
Left=265
Top=305
Width=80
Height=25
Font=[Times New Roman,12,0,0,204]
Caption="Файл"
link(onClick,14018116:doExecute,[(107,446)(107,440)])
}
Add(Button,8651870,184,357)
{
Left=15
Top=375
Width=105
Height=25
Font=[Times New Roman,12,0,0,204]
Caption="Добавить"
}
Add(Button,12792599,34,496)
{
Left=295
Top=375
Width=105
Height=25
Font=[Times New Roman,12,0,0,204]
Caption="Отмена"
}
Add(ODialog,14018116,147,434)
{
Filter="pdf|*.pdf*"
FileName=""
}
END_SDK
Add(Hub,3260145,28,42)
{
OutCount=3
link(onEvent2,5366140:doOpen,[(161,55)(161,391)])
link(onEvent3,5366140:doClose,[(161,62)(161,398)])
}
Add(HubEx,2675819,49,77)
{
Angle=1
link(onEvent,9439833:doBringToFront,[(53,132)])
}
Add(HubEx,12267596,364,609)
{
}
Add(DS_OLEDB,5366140,280,385)
{
Name="ole_driver_1"
Driver="Provider=Microsoft.Jet.OLEDB.4.0;\r\nUser ID=Admin;\r\nData Source=base.mdb;\r\nMode=Share Deny None;\r\nExtended Properties="";\r\nLocale Identifier=1033;\r\nPersist Security Info=False;"
link(onCreate,13233332:doQuery,[(352,391)(352,405)])
}
Add(DSC_Query,13233332,392,399)
{
SQL="select nomber,date_pi, recipient, thema, file from pisma_inbox"
DSManager="ole_driver_1"
link(onQuery,16321824:doStr,[(450,405)(450,384)])
}
Add(MT_String,16321824,476,378)
{
link(onResult,16685810:doAdd,[(558,384)(558,426)])
}
Add(FormatStr,8188797,266,203)
{
DataCount=1
Point(FString)
}
END_SDK
Add(ChildGroupBox,12275903,294,126)
{
}
BEGIN_SDK
Add(EditMulti,12869758,21,21)
{
WorkCount=1
Height=396
link(doWork1,7556526:doBringToFront,[(77,27)(77,111)])
}
Add(GroupBox,7556526,133,98)
{
Left=-10
Top=20
Width=800
Height=815
Caption=""
Point(doBringToFront)
}
END_SDK
Add(IndexToChanel,7640323,189,112)
{
Count=3
Point(Index)
link(onEvent1,9277547:doWork3,[(243,118)])
link(onEvent2,12275903:doWork1,[(247,125)(247,132)])
link(onEvent3,9260660:doWork1,[(265,132)(265,230)])
}
Add(HubEx,9277547,239,91)
{
Angle=3
link(onEvent,5442225:doWork1,[(243,41)])
}
Add(ChildGroupBox,9260660,308,224)
{
}
BEGIN_SDK
Add(EditMulti,8557017,21,21)
{
WorkCount=2
Width=720
Height=396
link(doWork1,12697371:doBringToFront,[(77,27)(77,48)])
link(doWork2,11682084:doRead,[(269,34)(269,244)])
}
Add(GroupBox,12697371,196,42)
{
Left=-10
Top=20
Width=800
Height=815
Caption=""
Point(doBringToFront)
}
Add(Label,5161307,49,77)
{
Left=25
Top=35
Width=88
Height=23
Font=[Times New Roman,12,0,0,204]
Caption="База данных"
}
Add(Edit,12532830,462,91)
{
Left=25
Top=60
Width=285
WinStyle=2
Text=""
link(onChange,5696196:doStrCat,[(516,97)(516,83)])
}
Add(Button,2089538,126,175)
{
Left=205
Top=90
Width=105
Height=25
Font=[Times New Roman,12,0,0,204]
Ctl3D=0
WinStyle=2
Caption="Выбрать"
link(onClick,6401265:doExecute,[(261,181)(261,160)])
}
Add(Edit,15706583,35,175)
{
Left=25
Top=160
Width=285
Text=""
}
Add(Label,16241268,99,80)
{
Left=25
Top=135
Width=47
Height=23
Font=[Times New Roman,12,0,0,204]
Caption="Логин"
}
Add(Edit,244490,40,214)
{
Left=25
Top=225
Width=285
Text=""
}
Add(Label,453006,153,84)
{
Left=25
Top=200
Width=53
Height=23
Font=[Times New Roman,12,0,0,204]
Caption="Пароль"
}
Add(Button,16077826,285,278)
{
Left=195
Top=265
Width=105
Height=25
Font=[Times New Roman,12,0,0,204]
Ctl3D=0
WinStyle=2
Caption="Сохранить"
link(onClick,11682084:doWrite,[(417,284)(417,251)])
}
Add(RadioButton,1016254,189,322)
{
Left=25
Top=310
Width=130
Caption="Включить заставку"
}
Add(RadioButton,9221549,101,318)
{
Left=25
Top=335
Width=130
Caption="Выключить заставку"
}
Add(ODialog,6401265,273,154)
{
Filter=".mdb|*.mdb*"
FileName=""
link(onExecute,475104:doWork2,[(383,160)(383,97)])
}
Add(FormatStr,66217,441,280)
{
DataCount=1
Mask="%1"
Point(FString)
}
Add(Ini,11682084,518,238)
{
FileName="param.ini"
link(onResult,475104:doWork3,[(562,244)(562,172)(410,172)])
link(Section,5696196:Result,[(531,174)(545,174)])
}
Add(HubEx,475104,406,91)
{
link(onEvent,12532830:doText,[])
}
Add(StrCat,5696196,539,77)
{
Str1="base="
link(Str2,12532830:Text,[(552,65)(510,65)(510,135)(468,135)])
}
END_SDK
Add(Hub,7383877,98,217)
{
OutCount=4
link(onEvent1,9277547:doWork2,[(157,223)(157,97)])
link(onEvent2,5442225:doWork2,[(189,230)(189,48)])
link(onEvent3,5442225:doWork3,[(189,237)(189,55)])
}





база данных: https://yadi.sk/d/1VKVHRWnL07kqA?w=1

Редактировалось 1 раз(а), последний 2020-12-12 12:17:18
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 5126
Рейтинг: 578
#2: 2020-12-12 13:11:56 ЛС | профиль | цитата
AlphaCentarva, Проблема 3, не умение обращаться за помощью, тут волшебное слово "быстро б.я" может и не проканать

Редактировалось 2 раз(а), последний 2020-12-12 14:51:35
карма: 5
0
Ответов: 14
Рейтинг: 0
#3: 2020-12-12 14:57:44 ЛС | профиль | цитата
Если нечего сказать то лучше промолчать.
карма: 0

0
Ответов: 5126
Рейтинг: 578
#4: 2020-12-12 15:55:28 ЛС | профиль | цитата
Если не правильно обращаться за помощью то наверно не стоит этого делать.
p.s нужно ведь понимать что человек тратит время, а то даже не деньги.
карма: 5
0
Ответов: 14
Рейтинг: 0
#5: 2020-12-13 10:19:41 ЛС | профиль | цитата
Решил проблему.

Если кто столкнется с такой проблемой, то нужно в строке запроса написать следующий код: Format(date_field, "dd/mm/yyyy") as date_field
карма: 0

0
5
Сообщение
...
Прикрепленные файлы
(файлы не залиты)