Анықтамалық ақпараттық жүйесін құру
жүктеу/скачать 192.89 Kb.
|
- Бұл бет үшін навигация:
- Page 95 Ф-ОБ-001/033
| Page 94
Ф-ОБ-001/033 95 with TblTranspType do begin Open; First; CheckTransp.Items.Clear; while not eof do begin CheckTransp.Items.AddObject(TblTranspTypeName.Value, Pointer(TblTranspTypeId.Value)); CheckTransp.Checked[CheckTransp.Items.Count-1] := True; Next; end; Close; end; end; Refresh; end; // изменеие в комбобоксе с районами в фильтрации procedure TFrmmain.ComboStranChange(Sender: TObject); var i:integer; begin i:= ComboStran.ItemIndex; ComboSity.Items.Clear; ComboSity.Items.AddObject('<Все равно>', Pointer(-1)); ComboSity.ItemIndex := 0; if i<1 then Exit; i:= integer(ComboStran.Items.Objects[i]); with dm, TblSity do begin Open; First; while not eof do begin if TblSityCountryId.Value = i then ComboSity.Items.AddObject(TblSityName.Value, Pointer(TblSityId.Value)); Next; end; Close; end; Refresh; end; // кнопка обновить procedure TFrmmain.BtnRefrFilterParamClick(Sender: TObject);
Ф-ОБ-001/033 96 begin LoadFiltres; end; // любые изм в фильтрации procedure TFrmmain.AnyCh(Sender: TObject); begin Refresh; end; // переключение закладок в фильтрации procedure TFrmmain.PageFIndTypeChange(Sender: TObject); begin qry.Filtered:= PanelFind.Visible and ( ((PageFIndType.ActivePageIndex=0) and CheckFilter.Checked) or (PageFIndType.ActivePageIndex=1) ); end; // показз формы procedure TFrmmain.FormActivate(Sender: TObject); begin BtnAdd.Enabled := admin; ActUser.Enabled := admin; GridTitleClick(Grid.Columns[0]); LoadFiltres; Refresh(-1); end; // печать информации по туру procedure TFrmmain.FrmDocExecute(Sender: TObject); var word:TMSWord; i:integer; begin i:=0; word:=TMSWord.Create; //создать класс TMSWord if not word.Open then //открыть связь с Ole объектом begin MessageBox(0, 'Ошибка открытия Word. '+#13+#10+ 'Возможно не установлен пакет Microsoft Office', 'Ошибка', MB_ICONSTOP or MB_OK); exit; end; word.New; //новый документ
жүктеу/скачать 192.89 Kb. Достарыңызбен бөлісу:
|