HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуПомогите ← Ctrl123456789Ctrl →
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#46: 2008-06-23 13:59:14 ЛС | профиль | цитата
nesco, есть схема : 


Add(MainForm,16638351,21,14)
{
 Left=20
 Top=105
 Width=623
 Height=363
 link(onCreate,96678:doEvent1,[])
}
Add(SQLite_DB,8598513,140,28)
{
 FileName="avtoservis.db"
 link(onOpen,1796533:doValue,[])
}
Add(GlobalVar,1796533,189,28)
{
 Name="dbHandle"
}
Add(Hub,96678,77,28)
{
 link(onEvent1,8598513:doOpen,[])
 link(onEvent2,13925343:doWork1,[(125,41)(125,76)])
}
Add(GlobalVar,6299670,189,49)
{
 Name="IDklient"
}
Add(ChildGroupBox,13925343,140,70)
{
 @Hint=#13:Выбор клиента|
 link(onEvent1,9230561:doEvent1,[])
 link(onEvent2,11914802:doEvent,[(199,83)(199,125)])
 link(onEvent3,9601380:doWork1,[(181,90)(181,110)(128,110)(128,125)])
}
BEGIN_SDK
Pos(64,0)
  Add(EditMulti,16380003,-43,21)
  {
   EventCount=3
   WorkCount=1
   Width=461
   Height=207
   link(doWork1,8961639:doEvent1,[(-22,27)(-22,90)])
  }
  Add(GroupBox,2683215,-1,154)
  {
   Left=5
   Top=5
   Width=605
   Font=[MS Sans Serif,8,1,16711680,1]
   Caption="ВЫБОР КЛИЕНТА"
  }
  Add(ComboBox,6318176,202,119)
  {
   Left=5
   Top=20
   Width=595
   Height=21
   Color=11271934
   Font=[Fixedsys,10,0,0,204]
   Text=""
   DataType=1
   ReadOnly=0
   Point(doAdd)
   Point(onClick)
   Point(doClear)
   Point(Index)
   Point(onMouseDown)
   Point(String)
   Point(doSelect)
   link(onClick,7063384:doWork2,[])
   link(onMouseDown,10657391:doEvent,[(239,132)(239,167)])
  }
  Add(SQLite_Query,13880287,69,63)
  {
   @Hint=#22:Читаем список клиентов|
   SQL="Select * from klient order by f,i,o,adres"
   link(onQuery,5766732:doValue,[])
   link(onError,16380003:onEvent1,[(253,83)(253,27)])
   link(dbHandle,1421821:Var,[])
  }
  Add(MT_MultiMem,5766732,118,63)
  {
   Count=7
   link(onData,14334224:doString,[(181,69)(181,107)(106,107)(106,125)])
  }
  Add(FormatStr,14334224,118,119)
  {
   DataCount=7
   Mask="%1.%2 %3 %4  %5  %6  %7"
   link(onFString,6318176:doAdd,[])
   link(Str1,5766732:Value1,[])
   link(Str2,5766732:Value2,[])
   link(Str3,5766732:Value3,[])
   link(Str4,5766732:Value4,[])
   link(Str5,5766732:Value5,[])
   link(Str6,5766732:Value6,[])
   link(Str7,5766732:Value7,[])
  }
  Add(StrPart,5881254,300,119)
  {
   Char="."
   Point(Left)
   link(onSplit,13523444:doCreate,[(348,125)(348,41)])
   link(onPart,8472392:doValue,[])
   link(Str,6318176:String,[(306,107)(246,107)(246,161)(215,161)])
  }
  Add(Hub,8961639,6,84)
  {
   OutCount=3
   link(onEvent1,13880287:doQuery,[(50,90)(50,69)])
   link(onEvent2,2663249:doData,[(50,97)(50,167)])
   link(onEvent3,7063384:doWork1,[(283,104)])
  }
  Add(DoData,2663249,125,161)
  {
   Data=Integer(0)
   link(onEventData,6318176:doSelect,[(179,167)(179,139)])
  }
  Add(HubEx,7063384,279,112)
  {
   link(onEvent,5881254:doSplit,[])
  }
  Add(GlobalVar,1421821,69,28)
  {
   Name="dbHandle"
  }
  Add(GlobalVar,8472392,349,126)
  {
   Name="IDklient"
  }
  Add(IndexToChanel,10657391,279,161)
  {
   link(onEvent2,11042838:doPopupHere,[])
  }
  Add(PopupMenu,11042838,328,161)
  {
   Menu=#12:Новый клиент|20:Редактировать данные|
   link(onClick,16380003:onEvent2,[(382,167)(382,34)])
  }
  Add(Events,13523444,363,35)
  {
   link(onCreate,16380003:onEvent3,[])
  }
END_SDK
Add(ChildGroupBox,9601380,140,119)
{
 @Hint=#35:Вывод списка автомобилей в  таблицу|
 link(onEvent1,9230561:doEvent2,[(194,125)(194,83)])
}
BEGIN_SDK
  Add(EditMulti,11942235,21,21)
  {
   EventCount=2
   WorkCount=1
   Width=412
   Height=221
   link(doWork1,14052121:doEvent1,[(73,27)(73,41)])
  }
  Add(GroupBox,4538031,35,42)
  {
   Left=5
   Top=65
   Width=400
   Height=212
   Font=[MS Sans Serif,8,1,16711680,1]
   Caption="СПИСОК АВТОМОБИЛЕЙ"
  }
  Add(FormatStr,12359393,35,140)
  {
   DataCount=1
   Mask="select  transport.id AS "Рег.№",marka AS МАРКА,gos_nomer AS "ГОС.НОМЕР",Vdata AS "ГОД ВЫПУСКА" from  transport,model  where (model.id=transport.id_marka) and  (transport.id_klient=%1)"
   link(onFString,6779814:doQuery,[])
   link(Str1,6299670:Var,[])
  }
  Add(StringTable,2317802,224,140)
  {
   Left=5
   Top=20
   Width=385
   Height=160
   Grid=0
   ClearAll=0
   Point(doAdd)
   Point(doAddColumn)
   Point(doClear)
   Point(onMouseDown)
   Point(Select)
   Point(Count)
   Point(onClick)
   link(onMouseDown,8189675:doEvent,[])
  }
  Add(SQLite_Query,6779814,84,140)
  {
   link(onQuery,7923535:doStr,[(145,146)(145,118)])
   link(onColumns,16605905:doEnum,[])
   link(onError,11942235:onEvent1,[(203,160)(203,27)])
   link(dbHandle,1796533:Var,[])
  }
  Add(MT_Enum,16605905,161,147)
  {
   link(onItem,2317802:doAddColumn,[])
  }
  Add(MT_String,7923535,161,112)
  {
   link(onResult,2317802:doAdd,[(209,118)(209,146)])
  }
  Add(IndexToChanel,8189675,266,140)
  {
   link(onEvent2,15119340:doPopupHere,[])
  }
  Add(PopupMenu,15119340,350,140)
  {
   Menu=#8:Добавить|13:Редактировать|7:Удалить|
   Point(onSelectStr)
   link(onClick,11942235:onEvent2,[(408,146)(408,34)])
  }
  Add(Hub,14052121,126,35)
  {
   OutCount=3
   link(onEvent1,2317802:doClear,[(216,41)(216,160)])
   link(onEvent2,12359393:doString,[(168,48)(168,82)(30,82)(30,146)])
   link(onEvent3,2729211:doConvert,[(191,55)(191,202)])
  }
  Add(Label,6887054,322,196)
  {
   Left=5
   Top=185
   Width=295
   Font=[MS Sans Serif,8,0,16711935,1]
   Caption=""
   AutoSize=1
   Alignment=2
   Point(Text)
  }
  Add(GlobalVar,1796533,84,105)
  {
   Name="dbHandle"
  }
  Add(GlobalVar,6299670,35,91)
  {
   Name="IDklient"
  }
  Add(Convertor,2729211,231,196)
  {
   Mode=16
   Word_1="единица"
   Word_2="единицы"
   Word_5="единиц"
   link(onResult,6445257:doStrCat,[])
   link(Data,2317802:Count,[])
  }
  Add(StrCat,6445257,273,196)
  {
   Str2=" техники."
   link(onStrCat,6887054:doText,[])
  }
  Add(Button,7438163,147,196)
  {
   Left=350
   Top=185
   Width=40
   Caption="Test"
  }
END_SDK
Add(Message,7833109,259,70)
{
}
Add(Hub,9230561,217,70)
{
 InCount=5
 OutCount=1
 link(onEvent1,7833109:doMessage,[])
}
Add(ChildFormEx,11914802,217,119)
{
 @Hint=#30:Редактирование данных клиента |28:и регистрация нового клиента|
}
BEGIN_SDK
  Add(EditMultiEx,12737114,21,21)
  {
   WorkCount=#78:doEvent=Вызов формы редактирования данных клиента и регистрация нового клиента|
   Width=377
   Height=291
   link(doEvent,6856883:doEvent1,[(25,27)(25,34)])
  }
  Add(MainForm,4531214,329,28)
  {
   Left=35
   Top=10
   Height=500
   Visible=1
   Point(doVisible)
  }
  Add(IndexToChanel,3100956,77,28)
  {
   link(onEvent1,5487355:doEvent1,[])
   link(onEvent2,6821739:doEvent1,[(121,41)(121,76)])
  }
  Add(Hub,6856883,28,28)
  {
   link(onEvent1,3100956:doEvent,[])
   link(onEvent2,6732940:doWork3,[(149,41)(149,48)])
  }
  Add(Hub,6821739,133,70)
  {
   link(onEvent1,6732940:doWork2,[(181,76)(181,41)])
  }
  Add(Hub,5487355,133,28)
  {
   link(onEvent1,6732940:doWork1,[])
  }
  Add(MultiElement,6732940,238,28)
  {
   link(onEvent1,4531214:doCaption,[])
   link(onEvent2,4531214:doVisible,[(285,41)(285,62)])
  }
  BEGIN_SDK
    Add(EditMulti,9443219,21,21)
    {
     EventCount=2
     WorkCount=4
     Width=146
     Height=123
     link(doWork1,13395361:doData,[])
     link(doWork2,9006134:doData,[(73,34)(73,69)])
     link(doWork3,7209912:doWork2,[(53,41)(53,111)])
     link(doWork4,7209912:doWork1,[(41,48)(41,104)])
    }
    Add(ChanelToIndex,7209912,84,98)
    {
     link(onIndex,9443219:onEvent2,[(146,104)(146,34)])
    }
    Add(DoData,9006134,84,63)
    {
     Data=String(РЕДАКТИРОВАНИЕ ДАННЫХ КЛИЕНТА)
     link(onEventData,9283327:doWork3,[(137,69)])
    }
    Add(DoData,13395361,84,21)
    {
     Data=String(РЕГИСТРАЦИЯ НОВОГО КЛИЕНТА)
     link(onEventData,9283327:doWork2,[])
    }
    Add(HubEx,9283327,133,14)
    {
     link(onEvent,9443219:onEvent1,[])
    }
  END_SDK
END_SDK
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#47: 2008-06-23 14:00:27 ЛС | профиль | цитата
Tad писал(а):
есть схема

Ну есть, и что дальше
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#48: 2008-06-23 14:05:55 ЛС | профиль | цитата
При щелчке на StringTable правой кнопкой появляется PopupMenu
Хотелось бы:
1. Если есть выделенная строка в StringTable, то в PopupMenu активно "Редактировать и Удалить"
2. Если нет выделенной строки в StringTable, то в PopupMenu активно только "Добавить"
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#49: 2008-06-23 14:08:25 ЛС | профиль | цитата
Tad, для этого есть Index = -1 и два меню
Таблицу кинь для проверки, а то схемка ругается
карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#50: 2008-06-23 14:08:53 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2021-05-22 09:07:53
карма: 0

0
Разработчик
Ответов: 26151
Рейтинг: 2127
#51: 2008-06-23 14:10:21 ЛС | профиль | цитата
Tad, а у меня отслеживание сообщений стоит
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#52: 2008-06-23 14:16:30 ЛС | профиль | цитата
Таблица только что был зарегистрированый и уже
форум писал(а):
У вас не хватает прав для выполнения этой операции

------------ Дoбавленo:


Вот ты какой !
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1avtoservis.rar [1.1KB] [211]
Разработчик
Ответов: 26151
Рейтинг: 2127
#53: 2008-06-23 14:52:37 ЛС | профиль | цитата
Вот о чем я писАл 


Add(StringTable,2317802,224,140)
{
 Left=5
 Top=20
 Width=385
 Height=160
 Grid=0
 ClearAll=0
 Point(doAddColumn)
 Point(onMouseDown)
 Point(Index)
 link(onMouseDown,8189675:doEvent,[])
}
Add(IndexToChanel,8189675,266,147)
{
 link(onEvent2,2264978:doCompare,[(310,160)(310,241)(226,241)(226,258)])
}
Add(PopupMenu,15119340,392,147)
{
 Menu=#8:Добавить|13:Редактировать|7:Удалить|
 Point(onSelectStr)
 link(onClick,3072914:doWork2,[])
}
Add(PopupMenu,7698029,392,252)
{
 Menu=#8:Добавить|
 Point(onSelectStr)
 link(onClick,3072914:doWork3,[(438,258)])
}
Add(If_else,2264978,238,252)
{
 Type=4
 Op2=Integer(0)
 link(onTrue,15119340:doPopupHere,[(335,258)(335,160)])
 link(onFalse,7698029:doPopupHere,[])
 link(Op1,2317802:Index,[])
}
Add(HubEx,3072914,434,140)
{
 Angle=3
}
карма: 22

0
Ответов: 184
Рейтинг: 0
#54: 2008-06-23 15:37:05 ЛС | профиль | цитата
всем спасибо, и все же мне нужен контроллер страниц, может кто подскажет как сохранять колличество
code_9331.txt
карма: 0

0
файлы: 1code_9331.txt [513B] [199]
Ответов: 16884
Рейтинг: 1239
#55: 2008-06-23 15:43:43 ЛС | профиль | цитата
У меня тоже так получается, а вот, чтобы небыло "Добавить", когда выделена строка, и что-бы индекс выдавался 0-1-2 (дальше в схеме используется индекс) .
Вот (ничего умнее в голову не лезет. 


Add(StringTable,2317802,115,301)
{
 Top=100
 Width=385
 Height=160
 Grid=0
 ClearAll=0
 Point(doAddColumn)
 Point(onMouseDown)
 Point(Index)
 Point(doAdd)
 link(onMouseDown,8189675:doEvent,[])
}
Add(IndexToChanel,8189675,157,301)
{
 link(onEvent2,2264978:doCompare,[])
}
Add(PopupMenu,15119340,276,259)
{
 Menu=#13:Редактировать|7:Удалить|
 Point(onSelectStr)
 link(onSelectStr,3072914:doWork2,[])
}
Add(PopupMenu,7698029,276,308)
{
 Menu=#8:Добавить|
 Point(onSelectStr)
 link(onSelectStr,3072914:doWork3,[(322,321)])
}
Add(If_else,2264978,213,308)
{
 Type=4
 Op2=Integer(0)
 link(onTrue,15119340:doPopupHere,[(261,314)(261,272)])
 link(onFalse,7698029:doPopupHere,[])
 link(Op1,2317802:Index,[(219,296)(203,296)(203,345)(121,345)])
}
Add(HubEx,3072914,318,259)
{
 link(onEvent,11591340:doGetIndex,[])
}
Add(Label,7509928,388,231)
{
 Left=70
 Top=300
 Point(Caption)
}
Add(StrList,11591340,339,224)
{
 Strings=#8:Добавить|13:Редактировать|7:Удалить|
 Point(StrToFind)
 Point(doGetIndex)
 Point(onGetIndex)
 link(onGetIndex,7509928:doText,[])
}
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#56: 2008-06-23 15:44:23 ЛС | профиль | цитата
Ну есть точка TabCount, разве нельзя ее использовать
карма: 22

0
Ответов: 184
Рейтинг: 0
#57: 2008-06-23 15:50:03 ЛС | профиль | цитата
А она есть в стандартном наборе HiAsmа или ее нужно через редактор элемента добавлять вот хоть убей не могу ее обнаружить
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#58: 2008-06-23 15:54:57 ЛС | профиль | цитата
A_S_X, code_9332.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_9332.txt [894B] [243]
Разработчик
Ответов: 26151
Рейтинг: 2127
#59: 2008-06-23 15:57:15 ЛС | профиль | цитата
Tad, а вот так, что нельзя 



Add(MainForm,2148595,266,161)
{
 Left=20
 Top=105
}
Add(StringTable,2317802,269,273)
{
 Top=100
 Width=385
 Height=160
 Columns=#3:123|3:456|
 Grid=0
 ClearAll=0
 Point(doAddColumn)
 Point(onMouseDown)
 Point(Index)
 link(onMouseDown,8189675:doEvent,[])
}
Add(IndexToChanel,8189675,325,280)
{
 link(onEvent2,2264978:doCompare,[])
}
Add(PopupMenu,15119340,444,238)
{
 Menu=#13:Редактировать|7:Удалить|
 Point(onSelectStr)
 link(onClick,10828030:doOperation,[])
}
Add(PopupMenu,7698029,444,287)
{
 Menu=#8:Добавить|
 Point(onSelectStr)
 link(onClick,6165456:doEvent1,[])
}
Add(If_else,2264978,381,287)
{
 Type=4
 Op2=Integer(0)
 link(onTrue,15119340:doPopupHere,[(429,293)(429,251)])
 link(onFalse,7698029:doPopupHere,[])
 link(Op1,2317802:Index,[(387,275)(345,275)(345,337)(289,337)])
}
Add(HubEx,3072914,612,231)
{
 link(onEvent,11591340:doGetString,[])
}
Add(Label,7509928,710,203)
{
 Left=70
}
Add(Hub,6165456,560,287)
{
 link(onEvent1,12966534:doData,[(598,293)(598,210)(198,210)(198,279)])
 link(onEvent2,3072914:doWork3,[(616,300)])
}
Add(DoData,12966534,210,273)
{
 link(onEventData,2317802:doAdd,[])
}
Add(Math,10828030,504,238)
{
 Op2=1
 ResultType=0
 link(onResult,3072914:doWork2,[])
}
Add(StrList,11591340,654,196)
{
 Strings=#8:Добавить|13:Редактировать|7:Удалить|
 Point(StrToFind)
 Point(doGetString)
 Point(onGetString)
 link(onGetString,7509928:doText,[])
}
карма: 22

0
Ответов: 184
Рейтинг: 0
#60: 2008-06-23 16:31:09 ЛС | профиль | цитата
Я имел ввиду нельзя ли сделать так чтоб в элементе TabControl к свойству Tabs можно было прикрутить галочку как напимер у visible или enabled
карма: 0

0
ФорумыПомощь по пакетуПомогите ← Ctrl123456789Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика