Анықтамалық ақпараттық жүйесін құру
//жазбаның жалпы санын шығару
жүктеу/скачать 192.89 Kb.
|
- Бұл бет үшін навигация:
- //Бағытты өңдеу
- Page 69 Ф-ОБ-001/033
- //Жазбаны жою
- // сорттау панелін көрсету
| //жазбаның жалпы санын шығару
status.Panels[0].text:=format('Всего %d тура(ов)',[qry.recordcount]); end; //Жазба қосу procedure TFrmmain.BtnAddClick(Sender: TObject); var i:integer; begin Application.CreateForm(TFrmEdit, FrmEdit); //Өңдеу үлгісін құру i:=-1; with FrmEdit do begin caption := 'Бағытты қосу'; //терезедегі белгі dm.TblTurs.Open; dm.TblTurs.Append; //Бос жазбаны қосу if ShowModal=mrOk then begin dm.TblTurs.post; //ок басылса сақтау i:=dm.TblTursid.Value; end else dm.TblTurs.Cancel;//Болдырмау басылса қайта оралу free; //үлгі жадысын босату end; Refresh(i); //мәліметті жаңалау end; //Бағытты өңдеу procedure TFrmmain.BtnEditClick(Sender: TObject); begin Application.CreateForm(TFrmEdit, FrmEdit); //үлгі құру with FrmEdit do begin caption := ' Бағытты өңдеу '; dm.TblTurs.Open; dm.TblTurs.Locate('id',QryId.AsInteger,[]);
Ф-ОБ-001/033 70 dm.TblTurs.edit; //өңдеу режиміне көшу if ShowModal=mrOk then begin dm.TblTurs.post; //ОК басылса сақтау end else dm.TblTurs.Cancel; //немесе барлық өзгертулерді болдырмау free; end; refresh(QryId.AsInteger); //мәліметті жаңалау end; //Жазбаны жою procedure TFrmmain.BtnDelClick(Sender: TObject); begin if not (MessageBox(0, 'Сіз шынымен таңдалған бағытты жойғыңыз келе ма?', 'Жою', MB_ICONQUESTION or MB_YESNO) = idYes) then exit; dm.TblTurs.Open; dm.TblTurs.Locate('id',QryId.AsInteger,[]); dm.TblTurs.Delete(); refresh(-1); //жаңалау end; // сорттау панелін көрсету procedure TFrmmain.ComboSortChange(Sender: TObject); begin sort2:=''; if ComboSort2.ItemIndex<>0 then sort2:=grid.Columns[ComboSort2.ItemIndex].FieldName; GridTitleClick(grid.Columns[ComboSort.ItemIndex]); end; жүктеу/скачать 192.89 Kb. Достарыңызбен бөлісу:
|