Список литературы

1. ГОСТ 7.1-84 Библиографическое описание документа. Общие требования и правила составления.

2. ГОСТ 19.201 – 78. Единая система программной документации. Техническое задание. Требования к содержанию и оформлению.

3. ГОСТ 19.401 – 78. Текст программы. Требования к содержанию и оформлению.

4. ГОСТ 19.402 – 78. Описание программы.

5. ГОСТ 19.503 – 79. Руководство системного программиста. Требования к содержанию и оформлению.

6. ГОСТ 19.505 – 79. Руководство оператора. Требования к содержанию и оформлению.

7. ГОСТ 24.207 – 80. Требования к содержанию документов по программному обеспечению.

8. Фленов М.Е. Библия программиста в среде Delphi, 2009.

9. Стандарты Единой системы программной документации (ЕСПД).

10. Шишкин В.В. Методические указания к курсовому проекту. – Смоленск, 2002.

Приложение №1. Листинг программы

unit Main;

interface

uses

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

Dialogs, DB, ADODB, Menus, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;

type

TMainForm = class(TForm)

ADOConnection1: TADOConnection;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

N8: TMenuItem;

procedure FormCreate(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TMainForm;

implementation

uses Load, Avtor, Spravka, SQL, Search;

{$R *.dfm}

var ts:string;

strok:string;

procedure sqlzapros;

begin

with MainForm.ADOQuery1 do

begin

sql.Clear;

sql.Add('SELECT * FROM '+ts);

open;

end;

end;

procedure TMainForm.Button1Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbPrior);

end;

procedure TMainForm.Button2Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbNext);

end;

procedure TMainForm.Button3Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbInsert)

end;

procedure TMainForm.Button4Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbDelete);

end;

procedure TMainForm.Button5Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbEdit);

end;

procedure TMainForm.FormCreate(Sender: TObject);

begin

ADOConnection1.ConnectionString:=

'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+GetCurrentDir+'\DB\Kino.mdb;Persist Security Info=False';

end;

procedure TMainForm.N10Click(Sender: TObject);

begin

AvtorForm.Show;

end;

procedure TMainForm.N11Click(Sender: TObject);

begin

SpravkaForm.Show;

end;

procedure TMainForm.N12Click(Sender: TObject);

begin

SearchForm.Show;

end;

procedure TMainForm.N13Click(Sender: TObject);

begin

SQLForm.Show;

end;

procedure TMainForm.N14Click(Sender: TObject);

begin

with MainForm.ADOQuery1 do

begin

sql.Clear;

sql.Add('SELECT Kinoteatr.Наименование, Kinoteatr.Адрес, Kinoteatr.Телефон, Kinoteatr.Email, Kinozal.Наименование FROM Kinoteatr, Kinozal where Kinoteatr.ID=Kinozal.ID');

open;

end;

end;

procedure TMainForm.N15Click(Sender: TObject);

begin

close;

end;

procedure TMainForm.N5Click(Sender: TObject);

begin

ts:='Kinozal';

sqlzapros;

end;

procedure TMainForm.N6Click(Sender: TObject);

begin

ts:='Kinoteatr';

sqlzapros;

end;

procedure TMainForm.N7Click(Sender: TObject);

begin

ts:='Seans';

sqlzapros;

end;

procedure TMainForm.N8Click(Sender: TObject);

begin

ts:='Stoimost';

sqlzapros;

end;

procedure TMainForm.N9Click(Sender: TObject);

var s:string; i:integer; textf:textfile;

begin

i:=0;

AssignFile(textf,'Otchet.doc');

if FileExists('Otchet.doc') then Append(textf) else Rewrite(textf);

writeln(textf);

while i<ADOQuery1.RecordCount do begin

s:=ADOQuery1.Fields.Fields[1].value+' '+ADOQuery1.Fields.Fields[2].value;

writeln(textf,s);

i:=i+1;

DBNavigator1.BtnClick(nbNext);

end;

closefile(textf);

end;

end.

unit Avtor;

interface

uses

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

Dialogs, StdCtrls;

type

TAvtorForm = class(TForm)

Label1: TLabel;

Label2: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

AvtorForm: TAvtorForm;

implementation

{$R *.dfm}

end.

unit Load;

interface

uses

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

Dialogs, ExtCtrls, jpeg;

type

TZastavka = class(TForm)

Image1: TImage;

Image2: TImage;

Timer1: TTimer;

procedure Timer1Timer(Sender: TObject);

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Zastavka: TZastavka;

implementation

{$R *.dfm}

procedure TZastavka.Image1Click(Sender: TObject);

begin

close;

end;

procedure TZastavka.Timer1Timer(Sender: TObject);

begin

Image2.Left:=Image2.Left+1;

end;

end.

unit Search;

interface

uses

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

Dialogs, StdCtrls;

type

TSearchForm = class(TForm)

Edit1: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

SearchForm: TSearchForm;

implementation

uses Main;

{$R *.dfm}

procedure TSearchForm.Button1Click(Sender: TObject);

begin

MainForm.ADOQuery1.sql.Clear;

MainForm.ADOQuery1.sql.Add('SELECT * FROM Kinoteatr where Наименование like "'+Edit1.Text+'%" ');

MainForm.ADOQuery1.open;

end;

end.

unit Spravka;

interface

uses

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

Dialogs, StdCtrls;

type

TSpravkaForm = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

SpravkaForm: TSpravkaForm;

implementation

{$R *.dfm}

end.

unit SQL;

interface

uses

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

Dialogs, StdCtrls;

type

TSQLForm = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

SQLForm: TSQLForm;

implementation

uses Main;

{$R *.dfm}

procedure TSQLForm.Button1Click(Sender: TObject);

begin

MainForm.ADOQuery1.sql.Clear;

MainForm.ADOQuery1.sql.Add('SELECT Kinoteatr.Наименование, Kinoteatr.Адрес, Kinoteatr.Телефон FROM Kinoteatr');

MainForm.ADOQuery1.open;

end;

procedure TSQLForm.Button2Click(Sender: TObject);

begin

MainForm.ADOQuery1.sql.Clear;

MainForm.ADOQuery1.sql.Add('SELECT Kinozal.Наименование, Kinozal.Количество_мест_всего FROM Kinozal');

MainForm.ADOQuery1.open;

end;

procedure TSQLForm.Button3Click(Sender: TObject);

begin

MainForm.ADOQuery1.sql.Clear;

MainForm.ADOQuery1.sql.Add('SELECT Seans.Начало_сеанса, Seans.Окончание_сеанса, Seans.Название_фильма, Seans.Жанр FROM Seans');

MainForm.ADOQuery1.open;

end;

procedure TSQLForm.Button4Click(Sender: TObject);

begin

MainForm.ADOQuery1.sql.Clear;

MainForm.ADOQuery1.sql.Add('SELECT Stoimost.Тип_сеанса, Stoimost.Стоимость FROM Stoimost');

MainForm.ADOQuery1.open;

end;

end.