![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Листинг приложения База данных ⇐ ПредыдущаяСтр 5 из 5
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls; type TForm1 = class(TForm) DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Table1: TTable; DataSource1: TDataSource; MainMenu1: TMainMenu; N1: TMenuItem; N11: TMenuItem; N12: TMenuItem; DBGrid2: TDBGrid; DBNavigator2: TDBNavigator; Table2: TTable; DataSource2: TDataSource; Label1: TLabel; Label2: TLabel; N2: TMenuItem; N21: TMenuItem; N22: TMenuItem; Table1Tovar: TStringField; Table1Cena: TCurrencyField; Table2Key: TIntegerField; Table2Por_nom: TStringField; Table2Oxotnik: TStringField; Table2Adres: TStringField; Table2Tovar: TStringField; Table2Kol_wo: TSmallintField; procedure FormCreate(Sender: TObject); procedure N21Click(Sender: TObject); procedure N22Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure Table1AfterClose(DataSet: TDataSet); procedure N12Click(Sender: TObject); procedure Table1AfterOpen(DataSet: TDataSet); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //Обработчик процедур, выполняемых при создании формы //приложения procedure TForm1.FormCreate(Sender: TObject); begin BorderStyle: =BsSingle; Width: =808; DBGrid1.Width: =800; DBNavigator1.Width: =800; DBGrid2.Width: =800; DBNavigator2.Width: =800; Label1.Top: =0; DBGrid1.Top: =Label1.Height; DBNavigator1.Top: =Label1.Height+DBGrid1.Height; Label2.Top: =Label1.Height+DBGrid1.Height+DBNavigator1.Height; DBGrid2.Top: =Label1.Height+DBGrid1.Height+DBNavigator1.Height +Label2.Height; DBNavigator2.Top: =Label1.Height+DBGrid1.Height+ DBNavigator1.Height+Label2.Height+DBGrid1.Height; HorzScrollBar.Visible: =False; VertScrollBar.Visible: =False; //Height: =612; ClientHeight: =566; DBNavigator2.Enabled: =false; Application.HintHidePause: =5000; DBGrid2.ShowHint: =true; DBGrid2.Hint: ='В настоящий момент прямой доступ к'+ ' таблице " Охотник" через панель навигатора не возможен.'+ #13#10'Для непосредственного доступа к таблице через панель'+ ' навигатора следует разорвать установленную между таблицами' +' связь.'; N12.Enabled: =false; end; //Отключение связи между таблицами БД - обработчик процедур, //выполняемых при выборе соответствующего пункта в меню на //вкладке " Управление БД" procedure TForm1.N21Click(Sender: TObject); begin Table2.MasterFields: =''; DBNavigator2.Enabled: =true; //DBNavigator2.ShowHint: =false; DBGrid2.ShowHint: =false; N12.Enabled: =true; N12.Checked: =true; Label2.Caption: =' Таблица " Охотник" '; end; //Установка связи между таблицами БД - обработчик процедур, //выполняемых при выборе соответствующего пункта в меню на //вкладке " Управление БД" procedure TForm1.N22Click(Sender: TObject); begin Table2.MasterFields: ='tovar'; DBNavigator2.Enabled: =false; DBGrid2.ShowHint: =true; N12.Enabled: =false; N12.Checked: =false; Label2.Caption: =' Сведения о выбранном товаре из таблицы'+ ' " Охотник" '; end; //N11Click - N12Click //Обработчики процедур, выполняемых при выборе пунктов меню //на вкладке " Таблицы" procedure TForm1.N11Click(Sender: TObject); begin With N11 do If Checked then begin Checked: =false; Table1.Active: =false; Label2.Caption: =' Таблица " Охотник" '; end else begin Checked: =true; Table1.Active: =true; Label2.Caption: =' Сведения о выбранном товаре из таблицы'+ ' " Охотник" '; end; end; procedure TForm1.N12Click(Sender: TObject); begin With N12 do If Checked then begin Checked: =false; Table2.Active: =false; end else begin Checked: =true; Table2.Active: =true; Label2.Caption: =' Таблица " Охотник" '; end; end; //Обработчики процедур, выполняемых при открытии файла данных //(в момент, когда таблица становится активной) procedure TForm1.Table1AfterOpen(DataSet: TDataSet); begin Table2.Active: =true; //Открытие ведомой таблицы " Охотник" //происходит автоматически после открытия главной N12.Enabled: =false; N12.Checked: =false; end; //Обработчики процедур, выполняемых при закрытии файла данных //(в момент, когда таблица становится неактивной) procedure TForm1.Table1AfterClose(DataSet: TDataSet); begin N12.Enabled: =true; N12.Checked: =true; end; end.
|