Создание автоматизированной информационной системы гостиница «Окские луга»

 

 

Выбор таблицы

 

 

 

 

Таблица: Должность

 

Таблица: Отделы

 

 

Руководство пользователя

 

 

О программе

 

 

 

 

Работа кнопки: Выход

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение Д  - Листинг исходного кода приложения.

 

 

unit Unit2;

 

 

interface

 

uses

 

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, jpeg,

  Menus;

 

type

  TForm2 = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    ComboBox1: TComboBox;

    Image1: TImage;

    Button1: TButton;

    Button2: TButton;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    DataSource1: TDataSource;

    ADOTable1: TADOTable;

    ADOConnection1: TADOConnection;

 

    procedure Button1Click(Sender: TObject);

 

    procedure Button2Click(Sender: TObject);

 

    procedure N4Click(Sender: TObject);

 

    procedure N2Click(Sender: TObject);

 

    procedure N3Click(Sender: TObject);

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

 

implementation

 

uses Unit3, Unit4;

 

{$R *.dfm}

 

 

procedure TForm2.Button1Click(Sender: TObject);

begin

Adotable1.Active:=false;

Adotable1.TableName:=combobox1.Text;

Adotable1.Active:=true;

end;

 

 

procedure TForm2.Button2Click(Sender: TObject);

begin

  if MessageDlg('Вы действительно хотите выйти?', mtConfirmation, [mbYes, mbNo], 0) = mrYes

  then Close;

end;

 

procedure TForm2.N4Click(Sender: TObject);

begin

  Close;

end;

 

 

procedure TForm2.N2Click(Sender: TObject);

begin

  Form3.ShowModal;

end;

 

 

 

procedure TForm2.N3Click(Sender: TObject);

begin

Form4.ShowModal;

end;

 

end.

 

unit Unit3;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, jpeg, ExtCtrls;

 

type

  TForm3 = class(TForm)

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

 

implementation

 

{$R *.dfm}

 

end.

 

unit Unit4;

 

interface

 

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, jpeg, ExtCtrls;

 

 

type

  TForm4 = class(TForm)

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

 

{$R *.dfm}

 

end.