Автор: Пользователь скрыл имя, 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
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('
StringGrid1.Cells[0,0]:='
StringGrid1.ColWidths[0]:=200;
Panel1.Caption:=
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',
1: Table1.Locate('Klass',Edit5.
2: Table1.Locate('Kol-vo_mest',
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.
begin
StringGrid1.Cells[0,i-1]:=
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:=
Table4Fam.AsString:=Table3Fam.
Table4Im.AsString:=Table3Im.
Table4Otch.AsString:=
Table4Nom_ydost.AsString:=
Table2.First;
While not Table2.Eof do
begin
If Table2K_post.AsString=Table3K_
Table4Nom_kom.AsString:=
table2.Next;
end;
Table4Srok_proj.AsString:=
Table4.Post;
Table1.First;
While not table1.Eof do
begin
If Table1Nom_kom.AsString=
cen:=Table1Stoimost.AsInteger;
Table1.Next;
end;
Edit1.Text:=inttostr(cen*
Table2.Locate('K_post',
Table6.First;
While not Table6.Eof do
begin
If Table6Nom_kom.AsString=
begin
Table5.Locate('K_ysl',Table6K_
cen:=Table5Cena.AsInteger;
st:=st+cen;
end;
Table6.Next;
end;
Edit2.Text:=inttostr(st);
Edit3.Text:=inttostr(strtoint(
Table6.First;
While not Table6.Eof do
begin
If Table6K_zan.AsString=Table2K_
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;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
Table4.Locate('Nom_kom;Fam;Im'
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],
then Edit1.Text:=''
else
begin
Form1.Close;
close;
end;
end;
Form1.Button15.Visible:=false;
end;
end.