Проектирование приложения «Кинотеатр»

Автор работы: Пользователь скрыл имя, 20 Октября 2013 в 19:26, курсовая работа

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

Жұмыстың мақсаты «Кинотеатр» деректер базасын жасау болып табылады. Кез-келген деректер базасын құрғанда, алдымен кесте құрылады. Кесте құру үшін бірнеше деректер базасының басқару жүйелері қолданылады.
Деректер базасы дегеніміз – қиылысқан сілтемелері бар, әртүрлі типті өрістері бар жазбалар тобы. Деректер базасына алдымен кестелер жиыны, сосын процедуралар және басқа да объектілер енуі мүмкін.

Содержание работы

КІРІСПЕ
3
1
НЕГІЗГІ БӨЛІМ
5
1.1
Қазіргі заманғы деректер базасы туралы жалпы мағлұмат
5
1.2
Деректер базасының кең түрде қолданылуының алғы шарттары
6
1.3
Деректер базасы администраторының байланыстары
6
2
ТЕОРИЯЛЫҚ БӨЛІМ
9
2.1
Delphi бағдарламалау ортасымен танысу
9
2.2
DataBase Desktop кесте құру ортасы
10
2.3
Delphi мәліметтер базасында кесте құру
12
3
ТӘЖІРИБЕЛІК БӨЛІМ
14
3.1
«Кинотеатр» деректер базасын құру
14
3.2
«Мән – байланыс» диаграммасы
15
3.3
Қалыпты кесте қатынастары құру
16

ҚОРЫТЫНДЫ
26

ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ
27

ҚОСЫМША
28

Скачать архив (1.74 Мб) Сколько стоит заказать работу?

Файлы: 1 файл

курсовой СУБД.doc

— 1.94 Мб (Скачать файл)

8. Математическая  экономика на персональном компьютере /Под ред. Кубонива. – М.: 1991. –304 с.

9. Липаев В.В.  Проектирование программных средств.  – М.: 1990.

10. XMethods Utility Services. http://www.xmethods.net/.

11. Шураков В.В.  Надежность программного обеспечения  систем обработки данных. – М.: Финансы и Статистика, 1987.

12. Федоров А.Г.  Создание Windows –приложений в среде   Delphi.- М.: Компьютер  Пресс, 1995, - 28с.

13. DS Data Systems. http://www.dsdata. co. uk/WS/.

13. Дарахвелидзе  П.Г., Марков Е.П.  Delphi – среда визуального программирования. – СПб.: BNV, 1996, - 352с.

14. Джон Матчо,  Дэвид Р.Фолкнер.  Delphi Пер. с  англ. - М.: Бином, 1995,- 464с.

15. Орлик С.В.  Секреты Delphi  на примерах. - М.:Бином, 1996, - 316с.

16. SOAP Version 1.2 part 2: Adjuncts. http://www.w3c.org/TR/soap12-part2/.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ҚОСЫМША

 

unit Unit 1;

procedure Tkinoteatr.Button5Click(Sender: TObject);

begin

form10.QuickRep1.Preview;

end;

procedure Tkinoteatr.Button6Click(Sender: TObject);

begin

form8.show;

end;

procedure Tkinoteatr.Button7Click(Sender: TObject);

begin

form6.show;

end;

procedure Tkinoteatr.Button8Click(Sender: TObject);

begin

form9.show;

end;

end.

 

unit Unit2;

interface

uses

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

  Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls,

  Buttons, Spin, Mask, jpeg;

type

  Tkino = class(TForm)

    DataSource1: TDataSource;

    Table1: TTable;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    Button1: TButton;

    Button2: TButton;

    DBImage1: TDBImage;

    DBMemo1: TDBMemo;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    BitBtn5: TBitBtn;

    Button3: TButton;

    Edit1: TEdit;

    Image1: TImage;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  kino: Tkino;

implementation

uses Unit3, Unit1;

{$R *.dfm}

procedure Tkino.Button1Click(Sender: TObject);

begin

mesto.show;

end;

procedure Tkino.Button2Click(Sender: TObject);

begin

      kinoteatr.show;

end;

procedure Tkino.BitBtn2Click(Sender: TObject);

begin

Table1.Insert

end;

procedure Tkino.BitBtn3Click(Sender: TObject);

begin

Table1.Post;

end;

procedure Tkino.BitBtn4Click(Sender: TObject);

begin

Table1.Delete;

end;

procedure Tkino.Button3Click(Sender: TObject);

begin

Table1.IndexFieldNames:='Zal';

Table1.SetKey;

Table1.FieldByName('Zal').AsString:=Edit1.Text;

Table1.GotoKey;

end;

end.

 

unit Unit3;

interface

uses

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

  Dialogs, ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, StdCtrls, jpeg;

type

  Tmesto = class(TForm)

    DBGrid1: TDBGrid;

    DataSource1: TDataSource;

    Table1: TTable;

    DBNavigator1: TDBNavigator;

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    Button3: TButton;

    Image1: TImage;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  mesto: Tmesto;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure Tmesto.Button1Click(Sender: TObject);

begin

kino.show;

end;

procedure Tmesto.Button2Click(Sender: TObject);

begin

kinoteatr.show;

end;

procedure Tmesto.Button3Click(Sender: TObject);

begin

Table1.IndexFieldNames:='Zal';

Table1.SetKey;

Table1.FieldByName('Zal').AsString:=Edit1.Text;

Table1.GotoKey;

end;

end.

 

unit Unit4;

interface

uses

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

  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, StdCtrls, jpeg;

type

  Tspravochnik = class(TForm)

    DataSource1: TDataSource;

    Table1: TTable;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    Button3: TButton;

    Image1: TImage;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  spravochnik: Tspravochnik;

implementation

uses Unit1, Unit5;

{$R *.dfm}

procedure Tspravochnik.Button2Click(Sender: TObject);

begin

kinoteatr.show;

end;

procedure Tspravochnik.Button1Click(Sender: TObject);

begin

svedenie.show;

end;

procedure Tspravochnik.Button3Click(Sender: TObject);

begin

Table1.IndexFieldNames:='kinoteatr';

Table1.SetKey;

Table1.FieldByName('kinoteatr').AsString:=Edit1.Text;

Table1.GotoKey;

end;

end.

 

unit Unit5;

interface

uses

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

  Dialogs, ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, StdCtrls, jpeg;

type

  Tsvedenie = class(TForm)

    DBGrid1: TDBGrid;

    DataSource1: TDataSource;

    Table1: TTable;

    DBNavigator1: TDBNavigator;

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    Button3: TButton;

    Image1: TImage;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  svedenie: Tsvedenie;

implementation

uses Unit1, Unit4;

{$R *.dfm}

procedure Tsvedenie.Button2Click(Sender: TObject);

begin

kinoteatr.show;

end;

procedure Tsvedenie.Button1Click(Sender: TObject);

begin

spravochnik.show;

end;

procedure Tsvedenie.Button3Click(Sender: TObject);

begin

Table1.IndexFieldNames:='Kinoteatr';

Table1.SetKey;

Table1.FieldByName('Kinoteatr').AsString:=Edit1.Text;

Table1.GotoKey;

end;

end.

 

unit Unit6;

interface

uses

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

  Dialogs, jpeg, ExtCtrls, StdCtrls;

type

  TForm6 = class(TForm)

    Image1: TImage;

    Memo1: TMemo;

    Label1: TLabel;

    Label2: TLabel;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form6: TForm6;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

kinoteatr.show;

end;

end.

 

unit Unit7;

interface

uses

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

  Dialogs, DBCtrls, DB, DBTables, Mask, ExtCtrls;

type

  TForm7 = class(TForm)

    Table1N_Filma: TFloatField;

    Table1Film: TStringField;

    Table1Janr: TStringField;

    Table1Rejisser: TStringField;

    Table1Proiz: TStringField;

    Table1God_Vipusk: TFloatField;

    ScrollBox: TScrollBox;

    Label1: TLabel;

    EditN_Filma: TDBEdit;

    Label2: TLabel;

    EditFilm: TDBEdit;

    Label3: TLabel;

    EditJanr: TDBEdit;

    Label4: TLabel;

    EditRejisser: TDBEdit;

    Label5: TLabel;

    EditProiz: TDBEdit;

    Label6: TLabel;

    EditGod_Vipusk: TDBEdit;

    DBNavigator: TDBNavigator;

    Panel1: TPanel;

    DataSource1: TDataSource;

    Panel2: TPanel;

    Table1: TTable;

    Button1: TButton;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { private declarations }

  public

    { public declarations }

  end;

var

  Form7: TForm7;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm7.FormCreate(Sender: TObject);

begin

  Table1.Open;

end;

procedure TForm7.Button1Click(Sender: TObject);

begin

kinoteatr.show;

end;

end.

 

unit Unit8;

interface

uses

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

  Dialogs, DBCtrls, DB, DBTables, Mask, ExtCtrls;

type

  TForm8 = class(TForm)

    Table1Kinoteatr: TStringField;

    Table1Adress: TStringField;

    ScrollBox: TScrollBox;

    Label1: TLabel;

    EditKinoteatr: TDBEdit;

    Label2: TLabel;

    EditAdress: TDBEdit;

    DBNavigator: TDBNavigator;

    Panel1: TPanel;

    DataSource1: TDataSource;

    Panel2: TPanel;

    Table1: TTable;

    Button1: TButton;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { private declarations }

  public

    { public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm8.FormCreate(Sender: TObject);

begin

Table1.Open;

end;

procedure TForm8.Button1Click(Sender: TObject);

begin

kinoteatr.show;

end;

end.

unit Unit9;

interface

uses

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

Dialogs, DBCtrls, DB, DBTables, Mask, ExtCtrls;

type

TForm9 = class(TForm)

Table1Film: TStringField;

Table1Janr: TStringField;

Table1Rejisser: TStringField;

Table1Proiz: TStringField;

Table1God_Vipusk: TFloatField;

Table1Photo: TGraphicField;

ScrollBox: TScrollBox;

Label1: TLabel;

EditFilm: TDBEdit;

Label2: TLabel;

EditJanr: TDBEdit;

Label3: TLabel;

EditRejisser: TDBEdit;

Label4: TLabel;

EditProiz: TDBEdit;

Label5: TLabel;

EditGod_Vipusk: TDBEdit;

Label6: TLabel;

ImagePhoto: TDBImage;

DBNavigator: TDBNavigator;

Panel1: TPanel;

DataSource1: TDataSource;

Panel2: TPanel;

Table1: TTable;

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm9.FormCreate(Sender: TObject);

begin

Table1.Open;

end;

procedure TForm9.Button1Click(Sender: TObject);

begin

kinoteatr.show;

end;

end.

unit Unit10;

interface

uses

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

Dialogs, Menus, QRCtrls, QuickRpt, ExtCtrls, DB, DBTables;

Информация о работе Проектирование приложения «Кинотеатр»