Анықтамалық ақпараттық жүйесін құру
жүктеу/скачать 192.89 Kb.
|
- Бұл бет үшін навигация:
- Page 85 Ф - ОБ -001/033
| Page 84
Ф-ОБ-001/033 85 FileViewLog: TAction; Qryid: TAutoIncField; QryName: TStringField; QrySityName: TStringField; QryTranspName: TStringField; QryHotelName: TStringField; QryCost: TBCDField; QryDays: TSmallintField; Qryinfo: TMemoField; PageFIndType: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Label1: TLabel; Edit: TEdit; CheckFilter: TCheckBox; CheckIn: TCheckBox; Label4: TLabel; ComboStran: TComboBox; Label6: TLabel; ComboSity: TComboBox; Label7: TLabel; CheckTransp: TCheckListBox; CheckZwezw: TCheckBox; CheckCost: TCheckBox; EditCost: TEdit; BtnRefrFilterParam: TBitBtn; QrySityId: TIntegerField; QryTranspId: TIntegerField; QryCountryId: TIntegerField; QryZwezd: TSmallintField; SpinZwesd: TSpinEdit; FrmDoc: TAction; procedure BtnAddClick(Sender: TObject); procedure BtnEditClick(Sender: TObject); procedure BtnDelClick(Sender: TObject); procedure ComboSortChange(Sender: TObject); procedure EditChange(Sender: TObject); procedure DataSource1DataChange(Sender: TObject; Field: TField); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure GridTitleClick(Column: TColumn); procedure BtnFontClick(Sender: TObject); procedure ActExitExecute(Sender: TObject);
Ф-ОБ-001/033 86 procedure ActAboutExecute(Sender: TObject); procedure ActFindExecute(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure ShowAddExecute(Sender: TObject); procedure ActUserExecute(Sender: TObject); procedure KlUsersExecute(Sender: TObject); procedure KlAdminsExecute(Sender: TObject); procedure ActiKlOperationExecute(Sender: TObject); procedure ActPrintExecute(Sender: TObject); procedure ActTechTypeExecute(Sender: TObject); procedure BtnHideSortPanelClick(Sender: TObject); procedure ActShowSortPanelExecute(Sender: TObject); procedure QryFilterRecord(DataSet: TDataSet; var Accept: Boolean); procedure CheckFilterClick(Sender: TObject); procedure CheckInClick(Sender: TObject); procedure ComboStranChange(Sender: TObject); procedure BtnRefrFilterParamClick(Sender: TObject); procedure AnyCh(Sender: TObject); procedure PageFIndTypeChange(Sender: TObject); procedure FormActivate(Sender: TObject); procedure FrmDocExecute(Sender: TObject); private { Private declarations } procedure LoadFiltres; public procedure Refresh(ph:Integer=-1); procedure ShowHint(Sender: TObject); { Public declarations } end; var Frmmain: TFrmmain; SortField : string = 'Name'; sort2 : string; implementation uses about,dat, SmplTbl,msword,sg2word, users; {$R *.DFM} //Показать строку подсказки procedure TFrmmain.ShowHint(Sender: TObject); begin status.Panels[1].text:=Application.Hint; end; //Обновить таблицу данных procedure TFrmmain.Refresh(ph:integer);
жүктеу/скачать 192.89 Kb. Достарыңызбен бөлісу:
|