«Учет поступления инструментов в отдел главного механика ОАО»

Открытое акционерное общество «Нефтекамский автозавод» является правопреемником Нефтекамского завода автосамосвалов, созданного в соответствии с Постановлением Совета Министров СССР «О строительстве и реконструкции заводов министерства автомобильной промышленности для обеспечения Камского автомобильного завода комплектующими изделиями».

Первая очередь завода введена в эксплуатацию в 1977 году. В 1993 году завод преобразован в открытое акционерное общество «НефАЗ».

Отдел главного механика (ОГМ) предприятия является самостоятельным структурным подразделением предприятия и подчиняется главному механику.

На сегодняшний день учет поступления инструментов в ОГМ ведется в бумажной форме: заполнение карточек, специальных журналов, а также программы MS Excel.

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

Все это обусловило тему дипломной работы – «Создание программного продукта учета поступления инструментов в отдел главного механика ОАО «НефАЗ»

Целью дипломного проектирования является изучение материала по организации базы данных (БД) для отдела главного механика и создание программного продукта по учету поступления инструментов в отдел главного механика ОАО «НефАЗ».

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

В ходе выполнения работы будут исследованы анализ предметной области по теме дипломной работы, разработан программный продукт учета выполнения заказов на станках с программным управлением, также будет сделан выбор и обоснование программных и аппаратных средств разработки, проведены испытания программного продукта и будет произведен расчет экономической эффективности программного продукта.

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

Анализируемой предметной областью является отдел главного механика ОАО «НефАЗ». Данный отдел является самостоятельным структурным подразделением предприятия и подчиняется главному инженеру или его заместителю по техническому обслуживанию.

Отдел имеет свою структуру управления и определенную структуру (см. рисунок 1).

Главный механик организует всю работу по выполнению основных задач, поставленных перед отделом. Обязанности между работниками отдела распределяет главный механик в соответствии с распорядительными и исполнительными функциями, определенными положениями, процедурами и должностными инструкциями.

Отметим, что отдел главного механика (ОГМ), создан по приказу Генерального директора ОАО «НефАЗ» и в административном подчинении у главного механика находятся следующие подразделения:

 бюро анализа, планирования и подготовки ремонтных работ;

 бюро технической помощи и надзора за эксплуатацией и ремонтом оборудования;

 конструкторско-технологическое бюро;

 группа обеспечения запасными частями и материалами;

 группа по ремонту грузоподъемных механизмов;

 группа организации и развития ремонтообслуживания;

 лаборатория промышленной электроники;

 ремонтные подразделения ОАО "НефАЗ".

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

На сегодняшний день на предприятии, для учета инструментов используется программа MS Excel.

Microsoft Excel предназначен для работы с электронными таблицами. Основное назначение Microsoft Excel – решение практически любых задач расчетного характера, входные данные которых можно представить в виде таблиц. Применение электронных таблиц упрощает работу с данными и позволяет получать результаты без программирования расчётов.

Существуют и другие программы, которые могут учитывать поступление инструментов, программа «Учет инструмента» - программа автоматизирует ввод-вывод документации, сопровождающей процесс оформления заявок на покупной инструмент. В программе ведется учет заявок от подразделений, составление на их базе сводной заявки поставщику, отслеживание статуса заявки. Так же ведется складской учет: приход, расход, перемещение по складам. На каждого поставщика создан свой каталог цен. Кроме того, имеется возможность организовать обмен данными между уже существующими системами учета через Excel файлы. На случай непредвиденного сбоя программы предусмотрена процедура резервного копирования базы. Она может быть автоматической и ручной, что позволяет потом легко восстановить базу из резервных копий.

Основной режим работы с программой – диалоговый, при котором пользователь работает с базой, используя формы, вводя данные в соответствующие поля и получая результаты в виде отчетов Access, документов Word, Excel. В программе реализовано разделения прав доступа к базе данных. Уровень доступа задается администратором при помощи специальной формы.

Другим примером может служить программа «Лайт-учет» проста в использовании, легка в обучении. Не требует сопровождения программиста, может быть легко освоена даже неподготовленными пользователями. Учет товаров по срокам годности, возможность использования процентных скидок, учет транспортных и оказанных услуг; настраиваемая фасовка товаров и единиц измерения, удобная работа, как с фасованным, так и с весовым товаром.

Таким образом, создаваемый программный продукт должен соответствовать требованиям, которые предъявляет предприятие.

unit uDmAll;

interface

uses

SysUtils, Classes, DB, ADODB,DIALOGS;

type

TdmAll = class(TDataModule)

ADOConnection1: TADOConnection;

adsInstr: TADODataSet;

adsInstrnum: TAutoIncField;

adsInstrnazvanie: TWideStringField;

adsInstrmaterial: TWideStringField;

adsInstrkolvo: TIntegerField;

dsInstr: TDataSource;

adsOborud: TADODataSet;

adsUchet: TADODataSet;

adsZayavki: TADODataSet;

dsOborud: TDataSource;

dsUchet: TDataSource;

dsZayavki: TDataSource;

adsInstrNot0: TADODataSet;

AutoIncField1: TAutoIncField;

WideStringField1: TWideStringField;

WideStringField2: TWideStringField;

IntegerField1: TIntegerField;

dsInstrNot0: TDataSource;

adsUchetnum: TAutoIncField;

adsUchetinstr_num: TIntegerField;

adsUchetoper: TWideStringField;

adsUchetkolvo: TIntegerField;

adsUchetnum_zayavki: TIntegerField;

adsUchetdata_oper: TDateTimeField;

adsUchetInstrum: TStringField;

adsZayavkinum: TAutoIncField;

adsZayavkivid_remont: TWideStringField;

adsZayavkinum_ceh: TIntegerField;

adsZayavkibrigada: TIntegerField;

adsZayavkinum_oborud: TIntegerField;

adsZayavkidata_zayav: TDateTimeField;

adsOborudnum: TAutoIncField;

adsOborudInv_num: TIntegerField;

adsOborudceh: TIntegerField;

adsOborudnazvan: TWideStringField;

adsOborudmodel: TWideStringField;

adsOborudzav_num: TWideStringField;

adsOboruddata_ust: TDateTimeField;

adsZayavkiField: TStringField;

adsVidannie: TADODataSet;

dsVidannie: TDataSource;

adsVidannienum_zayavki: TIntegerField;

adsVidannieinstr_num: TIntegerField;

adsVidanniemater: TStringField;

adsVidanniekolvo: TIntegerField;

adsVidannienazvanie: TStringField;

adsUchetForReport: TADODataSet;

AutoIncField2: TAutoIncField;

IntegerField2: TIntegerField;

StringField1: TStringField;

WideStringField3: TWideStringField;

IntegerField3: TIntegerField;

IntegerField4: TIntegerField;

DateTimeField1: TDateTimeField;

dsUchetForReport: TDataSource;

procedure adsZayavkiAfterScroll(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

dmAll: TdmAll;

implementation

uses uglav;

{$R *.dfm}

procedure TdmAll.adsZayavkiAfterScroll(DataSet: TDataSet);

begin

dmAll.adsVidannie.Parameters.ParamByName('nzayav').Value:= adsZayavkinum.Value;

end;

end.

unit uVidatKol;

interface

uses

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

Dialogs, DBCtrls, StdCtrls, Spin, Buttons;

type

TfmVidatKol = class(TForm)

Label1: TLabel;

SpinEdit1: TSpinEdit;

GroupBox1: TGroupBox;

DBText1: TDBText;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBText2: TDBText;

DBText3: TDBText;

DBText4: TDBText;

DBText5: TDBText;

DBText6: TDBText;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DBText7: TDBText;

Label8: TLabel;

procedure FormShow(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmVidatKol: TfmVidatKol;

implementation

uses uDmAll;

{$R *.dfm}

procedure TfmVidatKol.FormShow(Sender: TObject);

begin

SpinEdit1.Value:=dmall.adsInstrNot0.fields.fieldbyname('kolvo').Value;

SpinEdit1.MaxValue:=dmall.adsInstrNot0.fields.fieldbyname('kolvo').Value;

SpinEdit1.SetFocus;

end;

procedure TfmVidatKol.BitBtn1Click(Sender: TObject);

begin

dmAll.adsInstrNot0.Edit;

dmall.adsInstrNot0.fields.fieldbyname('kolvo').Value:=dmall.adsInstrNot0.fields.fieldbyname('kolvo').Value-SpinEdit1.Value;

dmAll.adsInstrNot0.Post;

dmAll.adsUchet.Append;

dmAll.adsUchetinstr_num.Value:=dmall.adsInstrNot0.fields.fieldbyname('num').Value;

dmAll.adsUchetoper.value:='Выдача инструмента';

dmAll.adsUchetkolvo.value:=SpinEdit1.Value;

dmAll.adsUchetnum_zayavki.Value:= dmall.adsZayavkinum.Value;

dmAll.adsUchet.Post;

dmAll.adsInstrNot0.Requery([]);

end;

end.

unit uVidat;

interface

uses

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

Dialogs, StdCtrls, DBCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart,

DbChart, Grids, DBGrids, ActnMan, ActnColorMaps,db;

type

TfmVidat = class(TForm)

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

GroupBox1: TGroupBox;

Button2: TButton;

Button1: TButton;

DBGrid3: TDBGrid;

DBGrid2: TDBGrid;

Label1: TLabel;

Label2: TLabel;

Panel1: TPanel;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Label5: TLabel;

ComboBox3: TComboBox;

Button3: TButton;

Edit2: TEdit;

Label6: TLabel;

Button4: TButton;

Button5: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure DBGrid1TitleClick(Column: TColumn);

procedure DBGrid2TitleClick(Column: TColumn);

procedure ComboBox1Change(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

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

procedure DBGrid1CellClick(Column: TColumn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmVidat: TfmVidat;

implementation

uses udmall, uVidatKol, uVernutKol;

{$R *.dfm}

procedure TfmVidat.Button1Click(Sender: TObject);

begin

fmVidatKol.ShowModal;

end;

procedure TfmVidat.Button2Click(Sender: TObject);

begin

fmVernutKol.ShowModal;

end;

procedure TfmVidat.DBGrid1TitleClick(Column: TColumn);

begin

if not(Column.Field.Lookup) then dmall.adsZayavki.Sort:=Column.FieldName+' ASC';

end;

procedure TfmVidat.DBGrid2TitleClick(Column: TColumn);

begin

if not(Column.Field.Lookup) then dmall.adsInstrNot0.Sort:=Column.FieldName+' ASC';

end;

procedure TfmVidat.ComboBox1Change(Sender: TObject);

var i:integer;

begin

case ComboBox1.ItemIndex of

0: begin

ComboBox2.Clear;

ComboBox3.Clear;

for i:=0 to DBGrid1.Columns.Count-1 do

if not(DBGrid1.Columns.Items[i].Field.Lookup) then begin

ComboBox2.Items.Add(DBGrid1.Columns.Items[i].Title.Caption);

ComboBox3.Items.Add(DBGrid1.Columns.Items[i].FieldName);

end;

end;

1: begin

ComboBox2.Clear;

ComboBox3.Clear;

for i:=0 to DBGrid2.Columns.Count-1 do

if not(DBGrid2.Columns.Items[i].Field.Lookup) then begin

ComboBox2.Items.Add(DBGrid2.Columns.Items[i].Title.Caption);

ComboBox3.Items.Add(DBGrid2.Columns.Items[i].FieldName);

end;

end;

2: begin

ComboBox2.Clear;

ComboBox3.Clear;

for i:=0 to DBGrid3.Columns.Count-1 do

if not(DBGrid3.Columns.Items[i].Field.Lookup) then begin

ComboBox2.Items.Add(DBGrid3.Columns.Items[i].Title.Caption);

ComboBox3.Items.Add(DBGrid3.Columns.Items[i].FieldName);

end;

end;

end;

ComboBox2.ItemIndex:=0;

ComboBox2.OnChange(Self);

end;

procedure TfmVidat.ComboBox2Change(Sender: TObject);

begin

ComboBox3.ItemIndex:=ComboBox2.ItemIndex;

end;

procedure TfmVidat.FormShow(Sender: TObject);

begin

ComboBox1Change(Self);

end;

procedure TfmVidat.Button3Click(Sender: TObject);

begin

case ComboBox1.ItemIndex of

0: dmall.adsZayavki.Locate(ComboBox3.Text,Edit1.Text,[]);

1: dmall.adsInstrNot0.Locate(ComboBox3.Text,Edit1.Text,[]);

2: dmall.adsVidannie.Locate(ComboBox3.Text,Edit1.Text,[]);

end;

end;

procedure TfmVidat.Button4Click(Sender: TObject);

begin

case ComboBox1.ItemIndex of

0: begin if (ComboBox3.Text='vid_remont') then dmall.adsZayavki.Filter:=ComboBox3.Text+'='+quotedstr(Edit2.Text)

else dmall.adsZayavki.Filter:=ComboBox3.Text+'='+Edit2.Text;

dmall.adsZayavki.Filtered:=true;

end;

1: begin if (ComboBox3.Text='nazvanie') or (ComboBox3.Text='material') then dmall.adsInstrNot0.Filter:=ComboBox3.Text+'='+quotedstr(Edit2.Text)

else dmall.adsInstrNot0.Filter:=ComboBox3.Text+'='+Edit2.Text;

showmessage(dmall.adsInstrNot0.Filter);

dmall.adsInstrNot0.Filtered:=true;

end;

2: begin if (ComboBox3.Text='nazvanie') or (ComboBox3.Text='material') then dmall.adsVidannie.Filter:=ComboBox3.Text+'='+quotedstr(Edit2.Text)

else dmall.adsVidannie.Filter:=ComboBox3.Text+'='+Edit2.Text;

dmall.adsVidannie.Filtered:=true;

end;

end;

end;

procedure TfmVidat.Button5Click(Sender: TObject);

begin

dmall.adsVidannie.Filtered:=false;

dmall.adsInstrNot0.Filtered:=false;

dmall.adsZayavki.Filtered:=false;

end;

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

begin

Button5Click(self);

end;

procedure TfmVidat.DBGrid1CellClick(Column: TColumn);

begin

dmAll.adsVidannie.Requery([]);

end;

end.

unit uVernutKol;

interface

uses

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

Dialogs, StdCtrls, Buttons, DBCtrls, Spin;

type

TfmVernutKol = class(TForm)

Label1: TLabel;

SpinEdit1: TSpinEdit;

GroupBox1: TGroupBox;

DBText1: TDBText;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBText2: TDBText;

DBText3: TDBText;

DBText4: TDBText;

DBText5: TDBText;

DBText6: TDBText;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DBText7: TDBText;

Label8: TLabel;

procedure FormShow(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmVernutKol: TfmVernutKol;

implementation

uses uDmAll;

{$R *.dfm}

procedure TfmVernutKol.FormShow(Sender: TObject);

begin

SpinEdit1.Value:=dmall.adsVidannie.fields.fieldbyname('kolvo').Value;

SpinEdit1.MaxValue:=dmall.adsVidannie.fields.fieldbyname('kolvo').Value;

SpinEdit1.SetFocus;

end;

procedure TfmVernutKol.BitBtn1Click(Sender: TObject);

begin

dmAll.adsInstr.Locate('num',dmall.adsVidannieinstr_num.value,[]);

dmAll.adsInstr.Edit;

dmall.adsInstr.fields.fieldbyname('kolvo').Value:=dmall.adsInstr.fields.fieldbyname('kolvo').Value+SpinEdit1.Value;

dmAll.adsInstr.Post;

dmAll.adsVidannie.Edit;

dmAll.adsVidanniekolvo.Value:= dmAll.adsVidanniekolvo.Value-SpinEdit1.Value;

dmAll.adsVidannie.Post;

dmAll.adsUchet.Append;

dmAll.adsUchetinstr_num.Value:=dmall.adsInstr.fields.fieldbyname('num').Value;

dmAll.adsUchetoper.value:='Возврат инструмента';

dmAll.adsUchetkolvo.value:=SpinEdit1.Value;

dmAll.adsUchetnum_zayavki.Value:= dmall.adsZayavkinum.Value;

dmAll.adsUchet.Post;

dmAll.adsInstr.Requery([]);

dmAll.adsInstrNot0.Requery([]);

end;

end.

unit uPostupInstr;

interface

uses

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

Dialogs, Spin, StdCtrls, Mask, DBCtrls, Buttons, Grids, DBGrids, db,

ExtCtrls;

type

TfmPostupInstr = class(TForm)

DBGrid1: TDBGrid;

GroupBox1: TGroupBox;

DBEdit1: TDBEdit;

SpinEdit1: TSpinEdit;

DBText1: TDBText;

DBEdit2: TDBEdit;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Panel1: TPanel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure DBGrid1ColEnter(Sender: TObject);

procedure DBGrid1TitleClick(Column: TColumn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmPostupInstr: TfmPostupInstr;

implementation

uses uDmAll;

{$R *.dfm}

procedure TfmPostupInstr.BitBtn1Click(Sender: TObject);

begin

dmAll.adsInstr.Append;

end;

procedure TfmPostupInstr.BitBtn2Click(Sender: TObject);

begin

if dmAll.adsInstr.State= dsBrowse then dmAll.adsInstr.Edit;

if dbEdit1.Field.Value<>'' then dmAll.adsInstrkolvo.Value:=dmAll.adsInstrkolvo.Value+SpinEdit1.Value;

dmAll.adsInstr.Post;

dmAll.adsUchet.Append;

dmAll.adsUchetinstr_num.value:=dbText1.Field.Value;

dmAll.adsUchetoper.Value:='Поступление инструмента';

dmAll.adsUchetkolvo.Value:=SpinEdit1.Value;

dmAll.adsUchet.Post;

end;

procedure TfmPostupInstr.BitBtn3Click(Sender: TObject);

begin

dmAll.adsInstr.Cancel;

end;

procedure TfmPostupInstr.DBGrid1ColEnter(Sender: TObject);

begin

SpinEdit1.Value:=0;

end;

procedure TfmPostupInstr.DBGrid1TitleClick(Column: TColumn);

begin

if not(Column.Field.Lookup) then dmall.adsInstr.Sort:=Column.FieldName+' ASC';

end;

end.

unit uPeriodOtchet;

interface

uses

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

Dialogs, RpCon, RpConDS, RpBase, RpSystem, RpDefine, RpRave, StdCtrls,

ComCtrls, Buttons, Grids, DBGrids;

type

TfmPeriodOtchet = class(TForm)

GroupBox1: TGroupBox;

DateTimePicker2: TDateTimePicker;

DateTimePicker1: TDateTimePicker;

Label1: TLabel;

Label2: TLabel;

RvProject2: TRvProject;

RvSystem2: TRvSystem;

RvDataSetConnection2: TRvDataSetConnection;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmPeriodOtchet: TfmPeriodOtchet;

implementation

uses uDmAll;

{$R *.dfm}

procedure TfmPeriodOtchet.BitBtn1Click(Sender: TObject);

begin

dmAll.adsUchetForReport.Parameters.ParamByName('otdata').Value:=datetostr(DateTimePicker1.Date);

dmAll.adsUchetForReport.Parameters.ParamByName('dodata').Value:=datetostr(DateTimePicker2.Date);

dmAll.adsUchetForReport.Requery([]);

RvProject2.Execute;

end;

end.

unit uOborud;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids;

type

TfmOborud = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

procedure DBGrid1TitleClick(Column: TColumn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmOborud: TfmOborud;

implementation

uses uDmAll;

{$R *.dfm}

procedure TfmOborud.DBGrid1TitleClick(Column: TColumn);

begin

if not(Column.Field.Lookup) then dmall.adsOborud.Sort:=Column.FieldName+' ASC';

end;

end.

unit uInstr;

interface

uses

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

Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls;

type

TfmInstr = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

procedure DBGrid1TitleClick(Column: TColumn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmInstr: TfmInstr;

implementation

uses uDmAll;

{$R *.dfm}

procedure TfmInstr.DBGrid1TitleClick(Column: TColumn);

begin

if not(Column.Field.Lookup) then dmall.adsInstr.Sort:=Column.FieldName+' ASC';

end;

end.

unit uGlav;

interface

uses

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

Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, ActnList, XPStyleActnCtrls,

ActnMan, ActnColorMaps, Buttons, XPMan, Menus, ExtCtrls, DBCtrls, RpCon,

RpConDS, RpBase, RpSystem, RpDefine, RpRave;

type

TfmGlav = class(TForm)

ActionManager1: TActionManager;

aVidat: TAction;

aPrinyat: TAction;

BitBtn1: TBitBtn;

XPManifest1: TXPManifest;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

GroupBox1: TGroupBox;

DBGrid3: TDBGrid;

DBNavigator1: TDBNavigator;

N8: TMenuItem;

N10: TMenuItem;

RvProject1: TRvProject;

RvSystem1: TRvSystem;

RvDataSetConnection1: TRvDataSetConnection;

procedure N4Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure DBGrid3TitleClick(Column: TColumn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmGlav: TfmGlav;

implementation

uses udmall, uVidat, uInstr, uOborud, uPostupInstr, uPeriodOtchet;

{$R *.dfm}

procedure TfmGlav.N4Click(Sender: TObject);

begin

fmVidat.ShowModal;

end;

procedure TfmGlav.N2Click(Sender: TObject);

begin

fmInstr.ShowModal;

end;

procedure TfmGlav.N3Click(Sender: TObject);

begin

fmOborud.ShowModal;

end;

procedure TfmGlav.N7Click(Sender: TObject);

begin

Close;

end;