Формирование нескольких баз данных, основная из которых – «Морские сражения», страница 3

SET EXCLUSIVE OFF

do mymenu.mpr with this, .T.

thisform.Height=680

thisform.Width=800

thisform.GRDMList.Height=thisform.Height-172

thisform.GRDMList.all

thisform.GRDMList.RecordSource='all'

thisform.GRDMList.Width=thisform.Width-1

thisform.CMBMan1.Left = thisform.TXTMan.Left

thisform.LBLMan2.Left = thisform.CMBMan1.Left+thisform.CMBMan1.Width+9

thisform.CMBMan2.Left = thisform.CMBMan1.Left+thisform.CMBMan1.Width+25

thisform.CMBMan3.Left = thisform.TXTMan.Left

thisform.CMBQueries.Top=thisform.GRDMList.Top+thisform.GRDMList.Height+12

thisform.CNTRMain.Top=thisform.CMBQueries.Top+thisform.CMBQueries.Height+12

thisform.LBLMan.Top=thisform.CNTRMain.Top+12

thisform.TXTMan.Top=thisform.LBLMan.Top+thisform.LBLMan.Height+12

thisform.CMBMan1.Top=thisform.LBLMan.Top+thisform.LBLMan.Height+12

thisform.CMBMan2.Top=thisform.LBLMan.Top+thisform.LBLMan.Height+12

thisform.LBLMan2.Top=thisform.LBLMan.Top+thisform.LBLMan.Height+12

thisform.CMBMan3.Top=thisform.LBLMan.Top+thisform.LBLMan.Height+12

thisform.CMDMan.Top=thisform.TXTMan.Top+thisform.TXTMan.Height+12

Здесь происходит настройка размеров, положения и содержания объектов главного окна.

Событие FRMMain.Resize()

thisform.GRDMList.Height=thisform.Height-172

thisform.GRDMList.all

thisform.GRDMList.RecordSource='all'

thisform.GRDMList.Width=thisform.Width-1

thisform.CMBMan1.Left = thisform.TXTMan.Left

thisform.LBLMan2.Left = thisform.CMBMan1.Left+thisform.CMBMan1.Width+9

thisform.CMBMan2.Left = thisform.CMBMan1.Left+thisform.CMBMan1.Width+25

thisform.CMBMan3.Left = thisform.TXTMan.Left

thisform.CMBQueries.Top=thisform.GRDMList.Top+thisform.GRDMList.Height+12

thisform.CNTRMain.Top=thisform.CMBQueries.Top+thisform.CMBQueries.Height+12

thisform.LBLMan.Top=thisform.CNTRMain.Top+12

thisform.TXTMan.Top=thisform.LBLMan.Top+thisform.LBLMan.Height+12

thisform.CMBMan1.Top=thisform.LBLMan.Top+thisform.LBLMan.Height+12

thisform.CMBMan2.Top=thisform.LBLMan.Top+thisform.LBLMan.Height+12

thisform.LBLMan2.Top=thisform.LBLMan.Top+thisform.LBLMan.Height+12

thisform.CMBMan3.Top=thisform.LBLMan.Top+thisform.LBLMan.Height+12

thisform.CMDMan.Top=thisform.TXTMan.Top+thisform.TXTMan.Height+12

thisform.CMBQueries.Click

thisform.CMDMan.Click

Код этого события исполняется только тогда, когда размер окна изменился. Здесь осуществляется пересчет размеров и положений объектов окна.

Инициализация выпадающего списка содержит следующий код:

thisform.CMBQueries.AddItem("Вывести все корабли",1)

thisform.CMBQueries.AddItem("Найти корабли обладающие MAX огневой мощью")

thisform.CMBQueries.AddItem("Найти страны, корабли которых принимали участие в указанном сражении")

thisform.CMBQueries.AddItem("Найти страны, понесшие наибольшие потери из-за того, что их корабли были потоплены и повреждены")

thisform.CMBQueries.AddItem("Найти страны выпуска для всех кораблей, на которых установлено не менее ... главных орудий")

thisform.CMBQueries.AddItem("Найти корабли, спущенные на воду до ... года")

thisform.CMBQueries.AddItem("Найти корабли, потопленные в морских сражениях")

thisform.CMBQueries.AddItem("Найти корабли, названия которых начинается с ...")

thisform.CMBQueries.AddItem("Найти корабли с водоизмещением свыше ... тонн")

thisform.CMBQueries.AddItem("Найти корабли, которые принимали участие в заданном сражении, их водоимещение и кол-во главных орудий")

thisform.CMBQueries.AddItem("Найти все страны, в которых строились и ... и ...")

thisform.CMBQueries.AddItem("Найти все корабли, которые, получив повреждения в одном сражении, впоследствии участвовали в других")

thisform.CMBQueries.AddItem("Найти названия сражений, в которых участвовало не менее ... кораблей одной страны")

thisform.CMBQueries.AddItem("Найти страны, строившие корабли с наибольшим кол-вом главных орудий")

thisform.CMBQueries.AddItem("Найти названия сражений, в которых принимали участие корабли заданного класса")