Список используемой литературы

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

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

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

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

5. Род Стивенс. Delphi. Готвые алгоритмы г. Санткт Петербург: издательство «Питер», 2004г. – 384с.

6. Галисеев Г. В. Программирование в среде Delphi . Самоучитель;

7.Жуков А. В. Изучаем Delphi. г. Санкт-Петербург: издательство «Питер», 2001 г. - 352 с.;

8. Фаронов В. В. Delphi. Программирование на языке высокого уровня г. Санкт-Перетбург: издательство «Питер», 2007 г. - 640 с.;

9. Бобровский С.И. Delphi - Учебный курс. г. Санкт-Петербург: издательство «Питер», 2004 г. - 736 с.;

10. www.edelphi.ru/

11. www.delphi.int.ru/

12. www.delphiexpert.ru/

Приложение. Код программы

unit Unit1;

interface

uses

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

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

ComCtrls, jpeg;

type

TForm1 = class(TForm)

con1: TADOConnection;

qry1: TADOQuery;

mm1: TMainMenu;

btn1: TButton;

btn2: TButton;

btn3: TButton;

btn4: TButton;

ds: TDataSource;

File1: TMenuItem;

Exit1: TMenuItem;

N1: TMenuItem;

Print1: TMenuItem;

N2: TMenuItem;

Save1: TMenuItem;

dlgOpen1: TOpenDialog;

dlgSave1: TSaveDialog;

N3: TMenuItem;

dlgPnt1: TPrintDialog;

Button1: TButton;

MonthCalendar1: TMonthCalendar;

Timer1: TTimer;

Image1: TImage;

Label1: TLabel;

procedure btn1Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

procedure Exit1Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Save1Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Print1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit3, Unit2, Unit5, Unit6, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

begin

form5.show;

qry1.Active:=false;

qry1.SQL.clear;

qry1.sql.Add('select * from jilie');

qry1.ExecSQL;

qry1.Active:=true;

end;

procedure TForm1.btn2Click(Sender: TObject);

begin

form6.show;

qry1.Active:=false;

qry1.SQL.clear;

qry1.sql.Add('select * from mun');

qry1.ExecSQL;

qry1.Active:=true;

end;

procedure TForm1.btn3Click(Sender: TObject);

begin

form7.show;

qry1.Active:=false;

qry1.SQL.clear;

qry1.sql.Add('select * from sluj');

qry1.ExecSQL;

qry1.Active:=true;

end;

procedure TForm1.btn4Click(Sender: TObject);

begin

form8.show;

qry1.Active:=false;

qry1.SQL.clear;

qry1.sql.Add('select * from soc');

qry1.ExecSQL;

qry1.Active:=true;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

XL: Variant;

AppLocation:string;

begin

try XL := CreateOLEObject('Excel.Application'); // Создание OLE объекта

except

ShowMessage('Cannot start MS Excel.');

end;

GetDir(0,AppLocation); // Возвращает текущий каталог диска

XL.WorkBooks.Open(AppLocation +'\Test.xls');

XL.visible := true;

end;

procedure TForm1.Exit1Click(Sender: TObject);

begin

case MessageBox(0,'Выйти из программы?','Выход из программы', MB_YESNO) of

IDYES:

begin

Form1.Close;

end;

IDNO:

end;

form2.Close;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form2.close;

end;

procedure TForm1.N3Click(Sender: TObject);

var

PathToDb:string;

begin

con1.Connected:=false;

If dlgOpen1.Execute then

PathToDb:=dlgOpen1.FileName

else ShowMessage('Ошибка');

begin

con1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +PathToDb+';Persist Security Info=False';

con1.LoginPrompt := False;

con1.Connected:=true;

end;

end;

procedure TForm1.N4Click(Sender: TObject);

var fn: string;

begin

if dlgsave1.Execute then

begin

fn := dlgsave1.FileName;

Case Form1.dlgsave1.FilterIndex of

1 : fn:=ChangeFileExt(fn,'.txt');

end;

end;

end;

procedure TForm1.Print1Click(Sender: TObject);

begin

dlgpnt1.execute;

end;

procedure TForm1.Save1Click(Sender: TObject);

begin

if not dlgsave1.Execute then exit;

if CopyFile(Pchar(dlgopen1.FileName),Pchar(dlgsave1.FileName+'.mdb'),true)

then ShowMessage('Фаил сохранен')

else ShowMessage('Ошибка сохранения');

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

label1.Caption:=timetostr(time);

end;

end.