Вверх ↑
Ответов: 20
Рейтинг: 0
#1: 2013-06-22 14:30:12 ЛС | профиль | цитата
Как все сложно то. В таблицу данные поступают с файлов .txt, с нескольких. При выборе нужного файла, его можно редактировать в таблице строк, ну и если есть необходимость, то чтобы все эти изменения можно было скинуть на принтер.
------------ Дoбавленo в 14.30:
Примерно вот так:

Add(MainForm,2953706,238,133)
{
}
Add(StringTable,4436019,441,224)
{
Left=590
Top=30
Width=980
Height=770
Font=[MS Sans Serif,12,0,0,1]
WinStyle=3
Columns=#7:Пара=55|14:Провод=80 |21:Наименование=220 |26:Кросс.данные(исх)=300 |24:Кросс.данные(вх)=300 |0:|
Grid=0
SaveWidth=0
StaticColumn=0
Point(Index)
Point(FileName)
Point(doInsert)
link(FileName,4480112:Var,[(454,212)(408,212)(408,247)(363,247)])
}
Add(Edit,1068883,350,112)
{
Left=335
Top=100
Visible=1
Text="1.txt"
}
Add(GetIndexData,4480112,357,203)
{
Count=6
link(Data1,1068883:Text,[(363,173)(356,173)])
link(Data2,15390012:Text,[(370,173)(398,173)])
link(Data3,14294117:Text,[(377,173)(447,173)])
link(Data4,5221467:Text,[(384,173)(489,173)])
link(Data5,9539119:Text,[(391,173)(538,173)])
link(Data6,1270119:Text,[(398,173)(587,173)])
}
Add(Hub,15990060,259,266)
{
InCount=6
link(onEvent1,4480112:doIndex,[(315,272)(315,209)])
link(onEvent2,4436019:doLoad,[(357,279)(357,251)])
}
Add(Edit,15390012,392,112)
{
Left=335
Top=140
Visible=1
Text="2.txt"
}
Add(Button,11528340,392,294)
{
Left=155
Top=415
Width=110
Height=30
Font=[MS Sans Serif,10,0,0,1]
Caption="Сохранить"
link(onClick,4436019:doSave,[(432,300)(432,258)])
}
Add(Button,7797554,175,231)
{
Left=100
Top=90
Height=120
Ctl3D=0
WinStyle=1
Caption="1-25"
link(onClick,15990060:doEvent1,[(233,237)(233,272)])
}
Add(Button,16450415,175,404)
{
Left=255
Top=90
Height=120
Ctl3D=0
WinStyle=1
Caption="101-125"
Data=Integer(4)
link(onClick,15990060:doEvent5,[(230,410)(230,300)])
}
Add(Button,12490639,177,359)
{
Left=180
Top=230
Height=120
Ctl3D=0
WinStyle=1
Caption="76-100"
Data=Integer(3)
link(onClick,15990060:doEvent4,[(230,365)(230,293)])
}
Add(Button,13629386,175,451)
{
Left=255
Top=230
Height=120
Ctl3D=0
WinStyle=1
Caption="126-150"
Data=Integer(5)
link(onClick,15990060:doEvent6,[(230,457)(230,307)])
}
Add(Edit,14294117,441,112)
{
Left=335
Top=180
Visible=1
Text="3.txt"
}
Add(Edit,5221467,483,112)
{
Left=335
Top=240
Visible=1
Text="4.txt"
}
Add(Edit,9539119,532,112)
{
Left=335
Top=280
Visible=1
Text="5.txt"
}
Add(Edit,1270119,581,112)
{
Left=335
Top=320
Visible=1
Text="6.txt"
}
Add(Button,9184128,175,273)
{
Left=100
Top=230
Height=120
Caption="26-50"
Data=Integer(1)
link(onClick,15990060:doEvent2,[])
}
Add(Button,5911451,175,315)
{
Left=180
Top=90
Height=120
Caption="51-75"
Data=Integer(2)
link(onClick,15990060:doEvent3,[(233,321)(233,286)])
}
Add(Printer,4912851,504,294)
{
Point(doSettings)
Point(doPrintDlg)
link(Text,4436019:Select,[(510,282)(454,282)])
}
Add(Button,11391630,448,294)
{
Left=155
Top=460
Width=110
Height=30
Font=[MS Sans Serif,10,0,0,1]
Caption="Печать"
link(onClick,4912851:doPrint,[])
}


карма: 1

0