Анықтамалық ақпараттық жүйесін құру
жүктеу/скачать 192.89 Kb.
|
- Бұл бет үшін навигация:
- Page 89 Ф - ОБ -001/033
| Page 88
Ф-ОБ-001/033 89 actedit .Enabled :=not qry.IsEmpty and admin; actdel .Enabled :=not qry.IsEmpty and admin; ActPrint.Enabled :=not qry.IsEmpty; FrmDoc.Enabled :=not qry.IsEmpty; end; //Создание формы procedure TFrmmain.FormCreate(Sender: TObject); begin Application.OnHint := ShowHint; //инициализация показа подсказок end; //Закрытие формы procedure TFrmmain.FormClose(Sender: TObject; var Action: TCloseAction); begin qry.Close; //закрыть запрос application.OnHint := nil; end; //клик на заголовке таблицы procedure TFrmmain.GridTitleClick(Column: TColumn); var s:string; i:integer; begin s:=column.FieldName; for i := 0 to Grid.Columns.Count-1 do begin if Grid.Columns[i].fieldname=s then Grid.Columns[i].title.Font.Style := Grid.Columns[i].title.Font.Style+[fsBold] else Grid.Columns[i].title.Font.Style := Grid.Columns[i].title.Font.Style-[fsBold] end; i:=-1; if not Qry.IsEmpty then i:=QryId.AsInteger; qry.Close; SortField := s; s:='order by ['+s+']'; if (sort2<>'') and (sort2<>SortField) then begin s:=s+',['+sort2+']'; end; qry.sql[1]:=s; Refresh(i); end;
Ф-ОБ-001/033 90 //изменение шрифта procedure TFrmmain.BtnFontClick(Sender: TObject); begin FontDialog.Font := grid.Font; if not FontDialog.Execute then exit; grid.Font:=FontDialog.Font; end; //выход procedure TFrmmain.ActExitExecute(Sender: TObject); begin close; end; // о программе procedure TFrmmain.ActAboutExecute(Sender: TObject); begin Application.CreateForm(TAboutBox, AboutBox); AboutBox.ShowModal; AboutBox.free; end; // панель поиска procedure TFrmmain.ActFindExecute(Sender: TObject); begin ActFind.Checked := not ActFind.Checked; PanelFind.Visible := ActFind.Checked; PageFIndTypeChange(nil); end; // скрыть панель поиска procedure TFrmmain.BitBtn1Click(Sender: TObject); begin // ActFind.Checked:=False; ActFindExecute(nil); end; // панель доп информациии procedure TFrmmain.ShowAddExecute(Sender: TObject); begin ShowAdd.Checked:= not ShowAdd.Checked; PanelAdd.Visible := ShowAdd.Checked; end; // настройки пользователя procedure TFrmmain.ActUserExecute(Sender: TObject); begin Application.CreateForm(TFrmUsers, FrmUsers); FrmUsers.ShowModal;
жүктеу/скачать 192.89 Kb. Достарыңызбен бөлісу:
|