Разработка информационной системы

Автор: Пользователь скрыл имя, 21 Сентября 2011 в 13:48, курсовая работа

Описание работы

Целью выполнения данной курсовой работы является разработка информационной системы для предприятия гостиничного комплекса.

Для достижения поставленной цели в работе необходимо выполнить следующие задачи:

1. Изучить основные понятия технологии проектирования информационных систем;

2. Разработать информационную систему для гостиницы.

Содержание

Введение 3
1. Основные понятия технологии проектирования информационных систем (ИС) 5
1.1. Роль и место информационных систем в деятельности предприятия 5
1.2. Классификация информационных систем 6
1.3. Методология проектирования информационных систем 18
2. Разработка информационной системы 21
2.1. Описание предметной области 21
2.2. Проектирование программного обеспечения. Логическое представление 26
2.3. Инструкция пользователю 34
2.4. Контрольный пример 37
Заключение 39
Список использованной литературы 40
Приложение 1 41

Работа содержит 1 файл

Разработка информационной системы.doc

— 485.00 Кб (Скачать)

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

DBEdit7.Clear;

DBEdit14.Clear;

DBEdit15.Clear;

DBEdit16.Clear;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Table2.Insert;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

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

Table2.Delete;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

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

Table3.Delete;

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

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

Table6.Delete;

end; 

procedure TForm1.Button15Click(Sender: TObject);

begin

Form2.Show;

Edit6.Text:=FormatDateTime('dd.mm.yyyy',now());

StringGrid1.Cells[0,0]:='Íîìåð';

StringGrid1.ColWidths[0]:=200;

Panel1.Caption:=FormatDateTime('dd.mm.yyyy',now());

end;

procedure TForm1.Button16Click(Sender: TObject);

begin

try

Table2.Edit;

Table2.Post;

except

MessageDlg('Введены некорректные данные',mtError,[mbOK],0);

Table2.Cancel;

end;

end;

procedure TForm1.Button17Click(Sender: TObject);

begin

If RadioGroup1.ItemIndex=0 then Table1.Filtered:=false else

begin

Case RadioGroup1.ItemIndex of

1: Table1.Filter:='Klass = '+edit4.Text;

2: Table1.Filter:='Nom_kom = '+edit4.Text;

3: Table1.Filter:='Kol-vo_mest = '+edit4.Text;

4: Table1.Filter:='Stoimost = '+edit4.Text;

end;

Table1.Filtered:=true;

end;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Case RadioGroup4.ItemIndex of

0: Table1.Locate('Nom_kom',strtoint(Edit5.Text),[]);

1: Table1.Locate('Klass',Edit5.Text,[]);

2: Table1.Locate('Kol-vo_mest',strtoint(Edit5.Text),[]);

end;

end;

procedure TForm1.Button18Click(Sender: TObject);

Var i:integer;

begin

Table2.First;

StringGrid1.RowCount:=2;

While not Table2.Eof do

begin

i:=StringGrid1.RowCount;

If Table2Data_vus.AsString=Edit6.Text then

begin

StringGrid1.Cells[0,i-1]:=Table2Nom_kom.AsString;

StringGrid1.RowCount:=i+1;

end;

Table2.Next;

end;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Table3.Insert;

end;

procedure TForm1.Button19Click(Sender: TObject);

begin

try

Table3.Edit;

table3.Post;

except

 MessageDlg(‘Введены некорректные данные', mtError,[mbOK],0);

 table3.Cancel;

end;

end;

procedure TForm1.Button20Click(Sender: TObject);

Var cen,st:integer;

begin

st:=0;

Table4.Insert;

Table4K_post.AsString:=Table3K_post.AsString;

Table4Fam.AsString:=Table3Fam.AsString;

Table4Im.AsString:=Table3Im.AsString;

Table4Otch.AsString:=Table3Otch.AsString;

Table4Nom_ydost.AsString:=Table3Nom_ydost.AsString;

Table2.First;

While not Table2.Eof do

begin

If Table2K_post.AsString=Table3K_post.AsString then

Table4Nom_kom.AsString:=Table2Nom_kom.AsString;

table2.Next;

end;

Table4Srok_proj.AsString:=edit8.Text;

Table4.Post;

Table1.First;

While not table1.Eof do

begin

If Table1Nom_kom.AsString=Table4Nom_kom.AsString then

cen:=Table1Stoimost.AsInteger;

Table1.Next;

end;

Edit1.Text:=inttostr(cen*Table4Srok_proj.AsInteger);

Table2.Locate('K_post',Table3K_post.AsInteger,[]);

Table6.First;

While not Table6.Eof do

begin

If Table6Nom_kom.AsString=Table2Nom_kom.asstring then

begin

Table5.Locate('K_ysl',Table6K_ysl.AsInteger,[]);

cen:=Table5Cena.AsInteger;

st:=st+cen;

end;

Table6.Next;

end;

Edit2.Text:=inttostr(st);

Edit3.Text:=inttostr(strtoint(edit1.Text)+st);

Table6.First;

While not Table6.Eof do

begin

If Table6K_zan.AsString=Table2K_zan.AsString

then Table6.Delete;

Table6.Next;

end;

Table2.Delete;

Table3.Delete;

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

Table6.Insert;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

try

Table6.Edit;

Table6.Post;

Except

Table6.Cancel;

end;

end;

procedure TForm1.Button14Click(Sender: TObject);

begin

Table6.Locate('K_ysl;Nom_kom;Data_okaz',VarArrayOf([StrToInt(Edit7.Text),StrToInt(Edit9.Text),StrToDate(Edit10.Text)]),[]);

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

Table4.Locate('Nom_kom;Fam;Im',VarArrayOf([StrToInt(Edit11.Text),Edit12.Text,Edit13.Text]),[]);

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

If RadioGroup2.ItemIndex=0 then Table3.Filtered:=false else

begin

Case RadioGroup2.ItemIndex of

1: Table3.Filter:='Fam = '+ edit14.Text;

2: Table3.Filter:='K_post = '+ edit15.Text;

end;

Table3.Filtered:=true;

end;

end;

end. 

Форма №2 «Пароль» 

unit Unit2;

interface

uses

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

Dialogs, StdCtrls;

type

TForm2 = class(TForm)

Edit1: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

const s=123;

var

Form2: TForm2;

implementation

uses unit1;

{$R *.dfm} 

procedure TForm2.Button1Click(Sender: TObject);

begin

If Edit1.Text=inttostr(s)

then

begin

Form1.N1.Enabled:=true;

close;

end

else

begin

If MessageDlg('Повторить попытку?',mtError,[mbOK,mbNo],0)=mrOK

then Edit1.Text:=''

else

begin

Form1.Close;

close;

end;

end;

Form1.Button15.Visible:=false;

end;

end.

Информация о работе Разработка информационной системы