Анықтамалық ақпараттық жүйесін құру
жүктеу/скачать 192.89 Kb.
|
- Бұл бет үшін навигация:
- Page 83 Ф - ОБ -001/033
| Page 82
Ф-ОБ-001/033 83 Қосымша Негізгі форма. program Tur; uses Forms, Controls, main in 'main.pas' {Frmmain}, editu in 'editu.pas' {FrmEdit}, about in 'about.pas' {AboutBox}, dat in 'dat.pas' {dm: TDataModule}, MSWord in 'MSWord.pas', sg2word in 'sg2word.pas', SmplTbl in 'SmplTbl.pas' {FrmSmplTbl}, login in 'login.pas' {FrmLogin}, users in 'users.pas' {FrmUsers}; {$R *.RES} begin Application.Initialize; Application.Title := 'Справочная туристических маршрутов ЮКО'; Application.CreateForm(Tdm, dm); Application.CreateForm(TFrmMain, FrmMain); Application.CreateForm(TFrmLogin, FrmLogin); Application.CreateForm(TFrmUsers, FrmUsers); if FrmLogin.ShowModal=mrOk then FrmMain.ShowModal; FrmMain.Free; FrmLogin.Free; dm.Free; Application.Run; end. unit main; //Главный модуль interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db,DBTables, ComCtrls, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, editu,inifiles,ToolWin, Menus, ActnList, ImgList, Mask, DBCtrls, ADODB,mapi, ActnMan, ActnCtrls, ActnMenus,
Ф-ОБ-001/033 84 Spin, CheckLst, XPStyleActnCtrls; type TFrmmain = class(TForm) PanelFind: TPanel; DataSource1: TDataSource; Grid: TDBGrid; Status: TStatusBar; DataSource2: TDataSource; FontDialog: TFontDialog; Panel2: TPanel; BitBtn1: TBitBtn; ImageList1: TImageList; PanelAdd: TPanel; Panel3: TPanel; DBMemo1: TDBMemo; Label5: TLabel; Splitter1: TSplitter; Qry: TADOQuery; PabelSort: TPanel; Label2: TLabel; Panel4: TPanel; BtnHideSortPanel: TBitBtn; ComboSort: TComboBox; ComboSort2: TComboBox; Label3: TLabel; ActionMainMenuBar1: TActionMainMenuBar; ActionToolBar1: TActionToolBar; ActionManager1: TActionManager; ActExit: TAction; ActDel: TAction; ActEdit: TAction; Action3: TAction; ActPrint: TAction; ActAbout: TAction; ActFind: TAction; ShowAdd: TAction; ActShowSortPanel: TAction; ActUser: TAction; ActTechType: TAction; KlUsers: TAction; KlAdmins: TAction; ActiKlOperation: TAction; BtnAdd: TAction;
жүктеу/скачать 192.89 Kb. Достарыңызбен бөлісу:
|