Список  использованной литературы

 
     

1. Богс М., Богс У. UML и Rational Rose. – М.: Лори, 2001. – 618 с.
2. Буч Г., Рамбо Д., Джекобсон А. Язык UML. Руководство пользователя. – СПб.: ДМК Пресс, 2004. – 580 с.
3. Вондров А. М. Проектирование программного обеспечения ЭИС. – М.: Финансы и статистика, 2000. – 467 с.
4. Глушаков С. В., Ломотько Д. В. Базы данных. – СПб.: Питер, 2000. – 387 с.
5. Гончаров А.С. Компьютер для менеджера. Самоучитель. – СПб: Питер, 2000. – 216 с.
6. Грабауров В.А. Информационные технологии для менеджеров. – М.: Финансы и статистика, 2001. – 388 с.
7. Информационные технологии управления: Учебное пособие / Под ред. Ю.М. Черкасова. – М.: ИНФРА-М, 2003. – 410 с.
8. Кватрани Т. Rational Rose 2000 и UML. Визуальное моделирование. – М.: ДМК Пресс, 2001. – 613 с.
9. Ларман к. Применение UML и шаблонов проектирования. – М.: Издательский дом «Вильямс», 2002. – 410 с.
10. Маняшек Г., Лешек А. Анализ требований и проектирование систем с использованием UML.: Пер. с англ. – М.: Издательский дом «Вильямс», 2000. – 570 с.
11. Мюллер Р. Базы данных и UML. Проектирование. – М.: Издательский дом «Вильямс», 2000. – 590 с.
12. Фаронов В. В., Шумаков П. В. Delphi 5. Руководство разработчика баз данных. – М.: Нолидж, 2001. – 636 с.
13. Хомоненко А. Д., Гофман В. Э. Работа с базами данных в Delphi. – СПб.: БХВ – Петербург, 2005. – 640 с.

 

Приложение 1

 

Исходный код  программы 

Форма №1 «Информационная  система «Гостиница» 

unit Unit1;

interface

uses

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

Dialogs, ComCtrls, Menus, ExtCtrls, Grids, DBGrids, DB, DBTables, DBCtrls,

StdCtrls, Mask;

type

TForm1 = class(TForm)

Panel1: TPanel;

MainMenu1: TMainMenu;

Panel2: TPanel;

Panel3: TPanel;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

PageControl2: TPageControl;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

TabSheet6: TTabSheet;

PageControl3: TPageControl;

TabSheet7: TTabSheet;

TabSheet8: TTabSheet;

TabSheet9: TTabSheet;

PageControl4: TPageControl;

TabSheet10: TTabSheet;

TabSheet11: TTabSheet;

N1: TMenuItem;

N2: TMenuItem;

N6: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

DataSource1: TDataSource;

DBNavigator1: TDBNavigator;

Table1: TTable;

DBGrid1: TDBGrid;

Label1: TLabel;

DataSource2: TDataSource;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

Table2: TTable;

DataSource3: TDataSource;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

DBGrid4: TDBGrid;

DBNavigator4: TDBNavigator;

DataSource4: TDataSource;

Table3: TTable;

Table4: TTable;

Table5: TTable;

Table6: TTable;

DataSource5: TDataSource;

DBGrid5: TDBGrid;

DBNavigator5: TDBNavigator;

DBGrid6: TDBGrid;

DBNavigator6: TDBNavigator;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

RadioGroup1: TRadioGroup;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

RadioGroup2: TRadioGroup;

Label23: TLabel;

 Label24: TLabel;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Label33: TLabel;

Label34: TLabel;

 Label35: TLabel;

Label41: TLabel;

Label42: TLabel;

Label43: TLabel;

Button11: TButton;

Button12: TButton;

Button13: TButton;

Label44: TLabel;

Label45: TLabel;

Label46: TLabel;

Button14: TButton;

Table1Nom_kom: TSmallintField;

Table1Klass: TStringField;

Table1Kolvo_mest: TSmallintField;

Table1Stoimost: TCurrencyField;

Table1Opisanie: TStringField;

Table2Nom_kom: TSmallintField;

Table2K_post: TSmallintField;

Table2Data_zas: TDateField;

Table2Data_vus: TDateField;

Table2Bron: TBooleanField;

Table2K_zan: TSmallintField;

Table3K_post: TSmallintField;

Table3Fam: TStringField;

Table3Im: TStringField;

Table3Otch: TStringField;

Table3Nazv_org: TStringField;

Table3Nom_ydost: TStringField;

Table4K_post: TSmallintField;

Table4Fam: TStringField;

Table4Im: TStringField;

Table4Otch: TStringField;

Table4Nom_ydost: TStringField;

Table4Nom_kom: TSmallintField;

Table4Srok_proj: TIntegerField;

Table5K_ysl: TSmallintField;

Table5Naim: TStringField;

Table6K_ysl: TSmallintField;

Table6Nom_kom: TSmallintField;

Table6Data_okaz: TDateField;

Table6K_zan: TSmallintField;

Button15: TButton;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

Button16: TButton;

Label47: TLabel;

DBEdit6: TDBEdit;

Edit4: TEdit;

Button17: TButton;

RadioGroup4: TRadioGroup;

Edit5: TEdit;

StringGrid1: TStringGrid;

Edit6: TEdit;

Label16: TLabel;

Button18: TButton;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

DBEdit13: TDBEdit;

Button19: TButton;

Button20: TButton;

Edit8: TEdit;

Label17: TLabel;

Edit1: TEdit;

Label7: TLabel;

DataSource6: TDataSource;

Edit2: TEdit;

Label8: TLabel;

Edit3: TEdit;

Label9: TLabel;

Table5Cena: TIntegerField;

Label10: TLabel;

DBEdit7: TDBEdit;

DBEdit14: TDBEdit;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

Button1: TButton;

Edit7: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Edit13: TEdit;

Button10: TButton;

Edit14: TEdit;

Edit15: TEdit;

procedure FormActivate(Sender:TObject);

procedure N6Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Button17Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button18Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button19Click(Sender: TObject);

procedure Button20Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm} 

procedure TForm1.FormActivate(Sender:TObject);

Var k : string;

begin

k:=GetCurrentDir+'\Table\';

Table1.Active:=false;

Table2.Active:=False;

Table3.Active:=False;

Table4.Active:=False;

Table5.Active:=False;

Table6.Active:=False;

Table1.DatabaseName:=k;

Table2.DatabaseName:=k;

Table3.DatabaseName:=k;

Table4.DatabaseName:=k;

Table5.DatabaseName:=k;

Table6.DatabaseName:=k;

Table1.TableName:='Nomera';

Table2.TableName:='Zan_nom';

Table3.TableName:='Post';

Table4.TableName:='Arhiv';

Table5.TableName:='Dop_ysl';

Table6.TableName:='Okaz_dy';

Table1.Active:=True;

Table2.Active:=True;

Table3.Active:=True;

Table4.Active:=True;

Table5.Active:=True;

Table6.Active:=True;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

PageControl1.Visible:=True;

PageControl1.ActivePage:=TabSheet1;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

PageControl1.Visible:=True;

PageControl1.ActivePage:=TabSheet2;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

PageControl1.Visible:=True;

PageControl1.ActivePage:=TabSheet3;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

DBEdit1.Clear;

DBEdit2.Clear;

dbEdit3.Clear;

dbEdit4.Clear;

dbEdit5.Clear;

DBEdit6.Clear;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

DBEdit8.Clear;

DBEdit9.Clear;

DBEdit10.Clear;

DBEdit11.Clear;

DBEdit12.Clear;

DBEdit13.Clear;