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

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 Unit1;

interface

uses

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

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

type

TForm1 = class(TForm)

ADOTable1: TADOTable;

DataSource1: TDataSource;

MainMenu1: TMainMenu;

OpenDialog1: TOpenDialog;

PrintDialog1: TPrintDialog;

SaveDialog1: TSaveDialog;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N21: TMenuItem;

N31: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N31Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

Uses Unit2,Unit3,Unit4,Unit5;

{$R *.dfm}

procedure TForm1.N21Click(Sender: TObject);

begin

Form2.Show;

Form1.Visible:=false;

end

procedure TForm1.N2Click(Sender: TObject);

begin

Opendialog1.Execute();

end;

procedure TForm1.N31Click(Sender: TObject);

begin

Form3.Show;

Form1.Visible:=false;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Savedialog1.Execute();

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Opendialog1.Execute();

end;

procedure TForm1.N7Click(Sender: TObject);

begin

About.Show;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Help.Show;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form1.Close;

Form2.Close;

Form3.Close;

end;

end.

unit Unit2;

interface

ues

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

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

type

TForm2 = class(TForm)

ADOTable1: TADOTable;

DataSource1: TDataSource;

MainMenu1: TMainMenu;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

PrintDialog1: TPrintDialog;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N11: TMenuItem;

N21: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

Uses Unit1,Unit3,Unit4,Unit5;

{$R *.dfm}

procedure TForm2.N11Click(Sender: TObject);

begin

Form1.Show;

Form2.Visible:=false;

end;

procedure TForm2.N21Click(Sender: TObject);

begin

Form3.Show;

Form2.Visible:=false;

end;

procedure TForm2.N2Click(Sender: TObject);

begin

Opendialog1.Execute();

end;

procedure TForm2.N3Click(Sender: TObject);

begin

Savedialog1.Execute();

end;

procedure TForm2.N4Click(Sender: TObject);

begin

Printdialog1.Execute();

end;

procedure TForm2.N7Click(Sender: TObject);

begin

About.Show;

end;

procedure TForm2.N8Click(Sender: TObject);

begin

Help.Show;

end;

procedure TForm2.N9Click(Sender: TObject);

begin

Form1.Close;

Form2.Close;

Form3.Close;

end;

end.

unit Unit3;

interface

uses

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

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

type

TForm3 = class(TForm)

ADOTable1: TADOTable;

DataSource1: TDataSource;

MainMenu1: TMainMenu;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

PrintDialog1: TPrintDialog;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N11: TMenuItem;

N21: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

Uses Unit1,Unit2,Unit4,Unit5;

{$R *.dfm}

procedure TForm3.N11Click(Sender: TObject);

begin

Form1.Show;

Form3.Visible:=false;

end;

procedure TForm3.N21Click(Sender: TObject);

begin

Form2.Show;

Form3.Visible:=false;

end;

procedure TForm3.N2Click(Sender: TObject);

begin

Savedialog1.Execute();

end;

procedure TForm3.N3Click(Sender: TObject);

begin

Savedialog1.Execute();

end;

procedure TForm3.N4Click(Sender: TObject);

begin

Printdialog1.Execute();

end;

procedure TForm3.N7Click(Sender: TObject);

begin

About.Show;

end;

procedure TForm3.N8Click(Sender: TObject);

begin

Help.Show;

end;

procedure TForm3.N9Click(Sender: TObject);

begin

Form1.Close;

Form2.Close;

Form3.Close;

end;

end.

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TAbout = class(TForm)

Memo1: TMemo;

Panel1: TPanel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

About: TAbout;

implementation

{$R *.dfm}

procedure TAbout.Button1Click(Sender: TObject);

begin

About.Close;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

THelp = class(TForm)

Memo1: TMemo;

Panel1: TPanel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Help: THelp;

implementation

{$R *.dfm}

procedure THelp.Button1Click(Sender: TObject);

begin

Help.Close;

end;

end.