Назначение и условия применения

Form1

unit Unit1;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, Buttons, jpeg, DBCtrls;

type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

RadioGroup1: TRadioGroup;

BitBtn1: TBitBtn;

RadioGroup2: TRadioGroup;

RadioGroup3: TRadioGroup;

GroupBox5: TGroupBox;

DBGrid5: TDBGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Image1: TImage;

DBNavigator1: TDBNavigator;

procedure RadioGroup1Click(Sender: TObject);

procedure RadioGroup2Click(Sender: TObject);

procedure RadioGroup3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedureFormShow(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, ComObj, Unit3, Unit4;

{$R *.dfm}

varFirstShow: boolean = true;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex of

0: begin

RadioGroup2.Show;

RadioGroup3.Hide;

GroupBox1.Hide;

GroupBox2.Hide;

GroupBox3.Hide;

GroupBox5.Hide;

Button1.Hide;

Button2.Hide;

Button3.Hide;

DBNavigator1.Hide;

RadioGroup2.ItemIndex:=-1;

end;

1: begin

RadioGroup2.Hide;

RadioGroup3.Show;

GroupBox1.Hide;

GroupBox2.Hide;

GroupBox3.Hide;

GroupBox5.Hide;

Button1.Hide;

Button2.Hide;

Button3.Hide;

DBNavigator1.Hide;

RadioGroup3.ItemIndex:=-1;

end;

2: begin

RadioGroup2.Hide;

RadioGroup3.Hide;

GroupBox1.Hide;

GroupBox2.Hide;

GroupBox3.Hide;

GroupBox5.Hide;

Button1.Hide;

Button2.Hide;

Button3.Hide;

DBNavigator1.Hide;

RadioGroup2.ItemIndex:=-1;

RadioGroup3.ItemIndex:=-1;

Form3.Show;

end;

end;

end;

procedure TForm1.RadioGroup2Click(Sender: TObject);

begin

case RadioGroup2.ItemIndex of

0: begin

GroupBox1.Show;

GroupBox2.Hide;

GroupBox3.Hide;

GroupBox5.Hide;

Button1.Hide;

Button2.Hide;

Button3.Hide;

DBNavigator1.Show;

DBNavigator1.DataSource:=dm.dsVivz;

end;

1: begin

GroupBox1.Hide;

GroupBox2.Show;

GroupBox3.Hide;

GroupBox5.Hide;

Button1.Hide;

Button2.Hide;

Button3.Hide;

DBNavigator1.Show;

DBNavigator1.DataSource:=dm.dsIskop;

end;

2: begin

GroupBox1.Hide;

GroupBox2.Hide;

GroupBox3.Show;

GroupBox5.Hide;

Button1.Hide;

Button2.Hide;

Button3.Hide;

DBNavigator1.Show;

DBNavigator1.DataSource:=dm.dsMest;

end;

end;

end;

procedure TForm1.RadioGroup3Click(Sender: TObject);

begin

case RadioGroup3.ItemIndex of

0: begin

GroupBox1.Hide;

GroupBox2.Hide;

GroupBox3.Hide;

GroupBox5.Show;

Button1.Show;

Button2.Hide;

Button3.Hide;

GroupBox5.Caption:='Ископаемыедороже 160';

dm.Query.active:=false;

dm.Query.SQL.Clear;

dm.Query.SQL.Add('SELECT Ископаемые.[ID], Ископаемые.[ID_Mest] as [ID месторождения], Ископаемые.[PoIs] as [Названиеполезногоископаемого], Ископаемые.[EdIz] as [Единицаизмерения], Ископаемые.[GPt] as [Потребность],');

dm.Query.SQL.Add('Ископаемые.[CZE] as [Ценазаединицу], Ископаемые.[Type] as [Типископаемого]');

dm.Query.SQL.Add('FROM Ископаемые');

dm.Query.SQL.Add('WHERE Ископаемые.[CZE]>=160;');

dm.Query.active:=true;

DBGrid5.Columns[0].Width:=30;

DBGrid5.Columns[1].Width:=147;

DBGrid5.Columns[2].Width:=267;

DBGrid5.Columns[3].Width:=161;

DBGrid5.Columns[4].Width:=171;

DBGrid5.Columns[5].Width:=184;

DBGrid5.Columns[6].Width:=213;

GroupBox5.Width:=1217;

end;

1: begin

GroupBox1.Hide;

GroupBox2.Hide;

GroupBox3.Hide;

GroupBox5.Show;

Button1.Hide;

Button2.Show;

Button3.Hide;

GroupBox5.Caption:='Ископаемые, неудовлетворяющиепотребности';

dm.Query.active:=false;

dm.Query.SQL.Clear;

dm.Query.SQL.Add('SELECT DISTINCTROW Ископаемые.PoIs as [Названиеполезногоископаемого], Месторождения.NzMe as [Названиеместорождения], Ископаемые.GPt AS ["Годоваяпотребность"], Месторождения.GodDob AS ["Годоваядобыча"]');

dm.Query.SQL.Add('FROM Месторождения INNER JOIN Ископаемые ON Месторождения.ID = Ископаемые.ID_Mest');

dm.Query.SQL.Add('GROUP BY Ископаемые.PoIs, Месторождения.NzMe, Ископаемые.GPt, Месторождения.GodDob');

dm.Query.SQL.Add('HAVING (((Месторождения.GodDob)<[GPt]));');

dm.Query.active:=true;

DBGrid5.Columns[0].Width:=267;

DBGrid5.Columns[1].Width:=210;

DBGrid5.Columns[2].Width:=159;

DBGrid5.Columns[3].Width:=126;

GroupBox5.Width:=802;

end;

2: begin

GroupBox1.Hide;

GroupBox2.Hide;

GroupBox3.Hide;

GroupBox5.Show;

Button1.Hide;

Button2.Hide;

Button3.Show;

GroupBox5.Caption:='Ископаемые, добываемые в "Эльдорадо"';

dm.Query.active:=false;

dm.Query.SQL.Clear;

dm.Query.SQL.Add('SELECT DISTINCTROW Месторождения.NzMe as [Названиеместорождения], First(Ископаемые.PoIs) AS [Полезноеископаемое], Ископаемые.CZE AS [Ценазаединицу], [Ценазаединицу]+[SebeSt] AS Прибыль');

dm.Query.SQL.Add('FROM Месторождения INNER JOIN Ископаемые ON Месторождения.ID = Ископаемые.ID_Mest');

dm.Query.SQL.Add('GROUP BY Месторождения.NzMe, Ископаемые.CZE, Месторождения.SebeSt');

dm.Query.SQL.Add('HAVING (((Месторождения.NzMe)="Эльдорадо"));');

dm.Query.active:=true;

DBGrid5.Columns[0].Width:=267;

DBGrid5.Columns[1].Width:=210;

DBGrid5.Columns[2].Width:=159;

DBGrid5.Columns[3].Width:=126;

GroupBox5.Width:=802;

end;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:integer;

begin

XLApp:=CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Отчет';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Columns;

Colum.Columns[1].ColumnWidth:=4;

Colum.Columns[2].ColumnWidth:=20;

Colum.Columns[3].ColumnWidth:=36;

Colum.Columns[4].ColumnWidth:=24;

Colum.Columns[5].ColumnWidth:=14;

Colum.Columns[6].ColumnWidth:=18;

Colum.Columns[7].ColumnWidth:=25;

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlack;

Colum.Rows[1].Font.Size:=28;

Colum.Rows[3].Font.Size:=12;

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчет'];

Sheet.Cells[1,2]:='Ископаемые дороже 160';

Sheet.Cells[3,1]:='ID';

Sheet.Cells[3,2]:='ID месторождения';

Sheet.Cells[3,3]:='Название полезного ископаемого';

Sheet.Cells[3,4]:='Единица измерения';

Sheet.Cells[3,5]:='Потребность';

Sheet.Cells[3,6]:='Цена за единицу';

Sheet.Cells[3,7]:='Тип ископаемого';

index:=4;

dm.Query.First;

for i:=0 to dm.Query.RecordCount-1 do

begin

Sheet.Cells[index,1]:=dm.Query.Fields.Fields[0].AsString;

Sheet.Cells[index,2]:=dm.Query.Fields.Fields[1].AsString;

Sheet.Cells[index,3]:=dm.Query.Fields.Fields[2].AsString;

Sheet.Cells[index,4]:=dm.Query.Fields.Fields[3].AsString;

Sheet.Cells[index,5]:=dm.Query.Fields.Fields[4].AsString;

Sheet.Cells[index,6]:=dm.Query.Fields.Fields[5].AsString;

Sheet.Cells[index,7]:=dm.Query.Fields.Fields[6].AsString;

Inc(index);

dm.Query.Next;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:integer;

begin

XLApp:=CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Отчет';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Columns;

Colum.Columns[1].ColumnWidth:=36;

Colum.Columns[2].ColumnWidth:=26;

Colum.Columns[3].ColumnWidth:=21;

Colum.Columns[4].ColumnWidth:=17;

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlack;

Colum.Rows[1].Font.Size:=20;

Colum.Rows[3].Font.Size:=12;

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчет'];

Sheet.Cells[1,1]:='Ископаемые, не удовлетворяющие потребности';

Sheet.Cells[3,1]:='Название полезного ископаемого';

Sheet.Cells[3,2]:='Название месторождения';

Sheet.Cells[3,3]:='Годовая потребность';

Sheet.Cells[3,4]:='Годовая добыча';

index:=4;

dm.Query.First;

for i:=0 to dm.Query.RecordCount-1 do

begin

Sheet.Cells[index,1]:=dm.Query.Fields.Fields[0].AsString;

Sheet.Cells[index,2]:=dm.Query.Fields.Fields[1].AsString;

Sheet.Cells[index,3]:=dm.Query.Fields.Fields[2].AsString;

Sheet.Cells[index,4]:=dm.Query.Fields.Fields[3].AsString;

Inc(index);

dm.Query.Next;

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:integer;

begin

XLApp:=CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Отчет';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Columns;

Colum.Columns[1].ColumnWidth:=26;

Colum.Columns[2].ColumnWidth:=24;

Colum.Columns[3].ColumnWidth:=18;

Colum.Columns[4].ColumnWidth:=10;

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlack;

Colum.Rows[1].Font.Size:=20;

Colum.Rows[3].Font.Size:=12;

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчет'];

Sheet.Cells[1,1]:='Ископаемые, не удовлетворяющие потребности';

Sheet.Cells[3,1]:='Название месторождения';

Sheet.Cells[3,2]:='Полезное ископаемое';

Sheet.Cells[3,3]:='Цена за единицу';

Sheet.Cells[3,4]:='Прибыль';

index:=4;

dm.Query.First;

for i:=0 to dm.Query.RecordCount-1 do

begin

Sheet.Cells[index,1]:=dm.Query.Fields.Fields[0].AsString;

Sheet.Cells[index,2]:=dm.Query.Fields.Fields[1].AsString;

Sheet.Cells[index,3]:=dm.Query.Fields.Fields[2].AsString;

Sheet.Cells[index,4]:=dm.Query.Fields.Fields[3].AsString;

Inc(index);

dm.Query.Next;

end;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

ifFirstShow then

begin

RadioGroup1.ItemIndex:=0;

RadioGroup2.ItemIndex:=0;

end;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Form1.Close;

Form3.Close;

Form4.Close;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

type

TForm3 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

BitBtn1: TBitBtn;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

Uses DateUtils, ShellApi;

procedure TForm3.Button1Click(Sender: TObject);

begin

ShellExecute(0, nil, PChar('Руководство.docx'), nil, nil, SW_SHOWNORMAL);

end;

end.

unit Unit4;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, jpeg;

type

TForm4 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Timer1: TTimer;

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.Timer1Timer(Sender: TObject);

begin

Form1.Show;

Form4.Hide;

Timer1.Enabled:=false;

end;

end.

Приложение Ж

Руководство пользователя

ВВЕДЕНИЕ

Данный документ содержит описание основных возможностей и порядка работы с программой.

Руководство пользователя предназначено для работников, занимающихся учетом процесса инсталляции программных продуктов.

Для работы с программой пользователь должен обладать начальными навыками эксплуатации ПЭВМ:

- уметь включать и выключать ПЭВМ;

- уметь работать на клавиатуре;

- уметь пользоваться мышью;

- подготовить принтер к работе.

НАЗНАЧЕНИЕ И УСЛОВИЯ ПРИМЕНЕНИЯ

Программа предназначена для автоматизации учета процесса Добыча полезных ископаемых.

В программе реализованы следующие задачи:

1) Таблицы.

2) Запросы.

3) Отчеты.

4) Справка.

Задача «Таблицы» предоставляет следующие возможности:

­ добавление, редактирование, удаление, обновление данных.

Задача «Запросы» предоставляет следующие возможности:

­ сформировать количество лицензии не превышающие четырех;

- формирования пользователей в регионе «Россия»;

- сформировать программный продукт производителей «Borland»;

- сформировать список пользователей по убыванию;

Задача «Отчеты» предоставляет следующие возможности:

­ сформировать количество лицензии не превышающие четырех;

- формирования пользователей в регионе «Россия»;

- сформировать программный продукт производителей «Borland»;

- сформировать список пользователей по убыванию;

- печать документов на бумажные носители.

Минимальные требования к аппаратным средствам ПЭВМ: Pentium-166, 1 Гбайт оперативной памяти, 1,5 Гбайта свободного дискового пространства.

Минимальные требования к программным средствам на ПЭВМ: Windows 98, Microsoft Office 2003.

Для корректной работы с программой минимальным требованием к разрешению области экрана является 800 на 600 точек.

ПОДГОТОВКА К РАБОТЕ

Чтобы установить программу необходимо выполнить следующие действия:

1.Создать папку на жестком диске.

2.Переписать в созданную папку на жестком диске файлы:

- Ископаемые. еxe - запускающий файл;

- Руководство.doc – руководство пользователя;

- Программный продукт.mdb.

Запустить программу можно 2 способами:

1.Выполнить “двойной клик” на ярлыке рабочего стола (Рис.Ж.1).

2.Перейти в папку, куда была установлена программа, и запустить файл resource.exe (Рис.Ж.2).

Рис. Ж.2 Приложение «Ископаемые.exe»

После запуска проекта, отображается окно заставки (Рис.Ж.2) с информацией о названии проекта и авторе программы.

Рис.Ж.2 Заставка проекта

В главном окне программы (Рис.Ж.4) в меню «База данных» реализованы режимы: «Таблицы»,«Запросы» и «Справка».

Рис.Ж.4.Главное окно программы

Рис. Ж.5. Режимы БД

В режиме «Таблицы» (Рис.Ж.5) можно выбрать нужную таблицу.

Рис. Ж.5 Режим выбора «Таблицы»

В режиме «Запросы» (рис.Ж.5) можно выбрать нужный запрос.

Рис.Ж.5 Режим выбора «Запросы»

При выборе режима «Справка» форма с информацией о программе и авторе программы.

На этой форме имеется кнопка открытия руководства пользователя, который ознакамливает пользователя с функционалом программы.

Для выхода из БД «Добыча полезных ископаемых» нажмите на кнопку «Выход».