Автор работы: Пользователь скрыл имя, 28 Февраля 2013 в 09:23, дипломная работа
Целью дипломного проекта является разработка программного продукта для автоматизации складского учета Регионального отделения ФСС РФ по РХ. Одним из необходимых требований, предъявленных руководством организации, является минимизация затрат на ввод программы в эксплуатацию и сопровождение. Новая программа позволит оптимизировать складской учет в Региональном отделении ФСС РФ по РХ.
В ходе проведенной работы были сформулированы и решены следующие задачи:
Изучение предметной области;
Анализ входных и выходных данных;
Разработка подсистемы ввода документов, обработки и вывода отчетной информации;
Анализ рынка программных продуктов, для решения задач складского учета;
ВВЕДЕНИЕ 6
1. ХАРАКТЕРИСТИКА СИСТЕМЫ СОЦИАЛЬНОГО СТРАХОВАНИЯ 9
1.1. История развития системы социального страхования в России 9
1.2. Общие положения 10
1.3. Структура Фонда социального страхования РФ 11
1.4. Характеристика организации 12
1.5. Основные задачи Регионального отделения ФСС РФ по РХ 13
1.8. Аппаратное обеспечение Регионального отделения 18
1.9. Единая интегрированная информационная система (ЕИИС) «Соцстрах» 19
1.10. Структура ЕИИС «Соцстрах» 23
Выводы 25
2. ПРОЕКТИРОВАНИЕ И РЕАЛИЗАЦИЯ ПРОГРАММЫ АВТОМАТИЗАЦИИ СКЛАДСКОГО УЧЕТА 26
2.1. Задачи и общие принципы учета материалов 26
2.2. Постановка задачи 29
2.3. Обзор программного обеспечения автоматизации складского учета 29
2.4. Программа Sklad v. 1.00 34
2.5. Описание программы 34
Выводы 41
3. ТЕХНИКА БЕЗОПАСНОСТИ И САНИТАРНЫЕ НОРМЫ 42
3.1. Описание рабочих мест 42
3.2. Расчет освещенности 42
3.3. Расчет вентиляции 46
3.4. Расчет для помещения 46
3.5. Оценка технических условий труда 48
Выводы 50
4. ЭКОНОМИЧЕСКОЕ ОБОСНОВАНИЕ ЭФФЕКТИВНОСТИ ПРОГРАММНОГО ПРОДУКТА 51
Выводы 55
ЗАКЛЮЧЕНИЕ 56
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ 57
ГЛОССАРИЙ 59
СПИСОК АББРЕВИАТУР 61
ПРИЛОЖЕНИЯ 62
П.1. Комплексы задач, реализуемые подсистемами ЕИИС «Соцстрах» 62
П.2. Листинг программы 71
П. 3. Материалы внедрения дипломного проекта 101
П. 4 Демонстрационный материал 103
begin
if FileExists(SaveDialog1.
MessageBox(Self.Handle,PChar('
else
if not ExecuteCommand(ToolsPath+'\
MessageBox(Self.Handle,'Ошибка при создании архива','Внимание',MB_OK+MB_
else
if FileExists(SaveDialog1.
MessageBox(Self.Handle,PChar('
else MessageBox(Self.Handle,'
end;
end;
procedure TfrmMain.mnServiceRepairClick(
begin
//Восстанавливаем из архива
if OpenDialog1.Execute then
if MessageBox(Self.Handle,PChar('
if not ExecuteCommand(ToolsPath+'\
MessageBox(Self.Handle,'Ошибка при извлечении из архива','Внимание',MB_OK+MB_
else
MessageBox(Self.Handle,PChar('
end;
end.
unit untLogin;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Db, ADODB;
type
TfrmLogin = class(TForm)
edtName: TEdit;
Label1: TLabel;
Label2: TLabel;
btnOK: TBitBtn;
btnCancel: TBitBtn;
edtPassword: TEdit;
ADOQueryLogin: TADOQuery;
procedure btnOKClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmLogin: TfrmLogin;
implementation
uses untMain;
{$R *.DFM}
procedure TfrmLogin.btnOKClick(Sender: TObject);
begin
ADOQueryLogin.Parameters[0].
//Self.Cursor:=crHourGlass;
//frmMain.Cursor:=crHourGlass;
ADOQueryLogin.
ADOQueryLogin.Active:=True;
//Self.Cursor:=crDefault;
//frmMain.Cursor:=crDefault;
if (edtPassword.Text=
begin
if ADOQueryLogin.FieldByName('IS_
frmMain.ADOConnectionMain.
frmMain.ADOConnectionMain.
end
else
MessageBox(Self.Handle,'
ADOQueryLogin.Active:=False;
end;
procedure TfrmLogin.FormShow(Sender: TObject);
begin
edtPassword.Text:='';
edtName.SetFocus;
end;
end.
unit untUsers;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, Grids, DBGrids, Db, ADODB, StdCtrls, Mask, DBCtrls, ComCtrls,
ToolWin, DBGridEh;
type
TfrmUsers = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
ADOQuery1ID: TAutoIncField;
ADOQuery1USER: TWideStringField;
ADOQuery1PASSWORD: TWideStringField;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
ADOQuery1IS_ADMIN: TBooleanField;
DBCheckBox1: TDBCheckBox;
DBGridEh1: TDBGridEh;
ToolBar1: TToolBar;
tbAdd: TToolButton;
tbDelete: TToolButton;
tbEdit: TToolButton;
tbSave: TToolButton;
ToolButton1: TToolButton;
procedure FormShow(Sender: TObject);
procedure DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmUsers: TfrmUsers;
implementation
uses untMain;
{$R *.DFM}
procedure TfrmUsers.FormShow(Sender: TObject);
begin
ADOQuery1.Active:=False;
ADOQuery1.Active:=True;
end;
procedure TfrmUsers.
Column: TColumnEh; AFont: TFont; var Background: TColor;
State: TGridDrawState);
begin
if DBGridEh1.DataSource.DataSet.
if DBGridEh1.DataSource.DataSet.
begin
AFont.Color:=clBlack;
Background:=clAqua;
end
else
if DBGridEh1.DataSource.DataSet.
begin
AFont.Color:=clBlack;
Background:=clCream;
end;
end;
end.
unit untAbout;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, jpeg;
type
TAboutBox = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Shape1: TShape;
TimerAbout: TTimer;
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure TimerAboutTimer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClick(Sender: TObject);
procedure Panel1Click(Sender: TObject);
procedure ProgramIconClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutBox: TAboutBox;
implementation
{$R *.DFM}
procedure TAboutBox.FormKeyPress(Sender: TObject; var Key: Char);
begin
TimerAbout.Enabled:=False;
Self.Close;
end;
procedure TAboutBox.TimerAboutTimer(
begin
TimerAbout.Enabled:=False;
Self.Close;
end;
procedure TAboutBox.FormCreate(Sender: TObject);
begin
TimerAbout.Enabled:=True;
end;
procedure TAboutBox.FormClick(Sender: TObject);
begin
TimerAbout.Enabled:=False;
Self.Close;
end;
procedure TAboutBox.Panel1Click(Sender: TObject);
begin
Self.Click;
end;
procedure TAboutBox.ProgramIconClick(
begin
Self.Click;
end;
end.
unit untOptions;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, Buttons, ExtCtrls;
type
TfrmOptions = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel1: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
MemoDBPath: TMemo;
Panel2: TPanel;
OpenDialog1: TOpenDialog;
TabSheet3: TTabSheet;
MemoArchivPath: TMemo;
Panel4: TPanel;
btnArch: TButton;
Panel3: TPanel;
btnDbPath: TButton;
TabSheet2: TTabSheet;
Panel5: TPanel;
btnTools: TButton;
MemoToolsPath: TMemo;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure btnArchClick(Sender: TObject);
procedure btnToolsClick(Sender: TObject);
procedure btnDbPathClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmOptions: TfrmOptions;
implementation
uses untMain,IniFiles,FileCtrl;
{$R *.DFM}
procedure TfrmOptions.FormShow(Sender: TObject);
begin
MemoDBPath.Text:=frmMain.
MemoToolsPath.Text:=frmMain.
MemoArchivPath.Text:=frmMain.
end;
procedure TfrmOptions.BitBtn1Click(
var myIni:TIniFile;
begin
myIni:=TIniFile.Create(
frmMain.DbPath:=MemoDBPath.
myIni.WriteString('Options','
myIni.WriteString('Options','
myIni.WriteString('Options','
myIni.Free;
end;
procedure TfrmOptions.btnArchClick(
var Dir: string;
begin
Dir:=frmMain.ArchivPath;
if SelectDirectory('Укажите папку для архива','',Dir) then
MemoArchivPath.Text:=Dir;
end;
procedure TfrmOptions.btnToolsClick(
var Dir: string;
begin
Dir:=frmMain.ToolsPath;
if SelectDirectory('Укажите
папку для инструментов','',
MemoToolsPath.Text:=Dir;
end;
procedure TfrmOptions.btnDbPathClick(
begin
OpenDialog1.FileName:=frmMain.
if OpenDialog1.Execute then MemoDBPath.Text:=OpenDialog1.
end;
end.
unit untSprNom;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, ComCtrls, DBCtrls,
DBGridEh, ToolWin;
type
TfrmSprNom = class(TForm)
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel2: TPanel;
DBGridEh1: TDBGridEh;
ToolBar1: TToolBar;
tbAdd: TToolButton;
tbDelete: TToolButton;
tbEdit: TToolButton;
tbSave: TToolButton;
ToolButton1: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure ADOQuery1AfterScroll(DataSet: TDataSet);
procedure DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmSprNom: TfrmSprNom;
implementation
uses untMain;
{$R *.dfm}
procedure TfrmSprNom.FormClose(Sender: TObject; var Action: TCloseAction);
var ColRow:Word;
Rs:TADOQuery;
begin
Rs:=TADOQuery.Create(
Rs.Connection:=frmMain.
Rs.SQL:=ADOQuery1.SQL;
Rs.Active:=True;
ColRow:=0;
Rs.First;
while not Rs.Eof do
begin
Rs.Edit;
Rs.FieldByName('Color').Value:
Rs.Post;
if ColRow=0 then ColRow:=1 else ColRow:=0;
Rs.Next;
end;
Rs.Active:=False;
Rs.Close;
Rs.Free;
Action:=caFree;
end;
procedure TfrmSprNom.FormCreate(Sender: TObject);
begin
ADOQuery1.Active:=True;
end;
procedure TfrmSprNom.
begin
if ADOQuery1.RecNo<>-1 then
StatusBar1.Panels[0].Text:=
else
StatusBar1.Panels[0].Text:='
end;
procedure TfrmSprNom.
Column: TColumnEh; AFont: TFont; var Background: TColor;
State: TGridDrawState);
begin
if DBGridEh1.DataSource.DataSet.
if DBGridEh1.DataSource.DataSet.
begin
AFont.Color:=clBlack;
Background:=clAqua;
end
else
if DBGridEh1.DataSource.DataSet.
begin
AFont.Color:=clBlack;
Background:=clCream;
end;
end;
end.
unit untSprPeriod;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, dbcgrids, StdCtrls, Mask, DBCtrls,
ExtCtrls, ComCtrls, DBGridEh, ToolWin;
type
TfrmSprPeriod = class(TForm)
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
ADOQuery1DSDesigner: TDateTimeField;
ADOQuery1DSDesigner2: TBooleanField;
Panel2: TPanel;
StatusBar1: TStatusBar;
Panel1: TPanel;
DBGridEh1: TDBGridEh;
ToolBar1: TToolBar;
tbAdd: TToolButton;
tbDelete: TToolButton;
tbEdit: TToolButton;
tbSave: TToolButton;
ToolButton1: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure ADOQuery1AfterScroll(DataSet: TDataSet);
procedure DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmSprPeriod: TfrmSprPeriod;
implementation
uses untMain;
{$R *.dfm}
procedure TfrmSprPeriod.FormClose(
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmSprPeriod.FormCreate(Sende
begin
ADOQuery1.Active:=True;
end;
procedure TfrmSprPeriod.
begin
if ADOQuery1.RecNo<>-1 then
StatusBar1.Panels[0].Text:=
else
StatusBar1.Panels[0].Text:='
end;
procedure TfrmSprPeriod.
Column: TColumnEh; AFont: TFont; var Background: TColor;
State: TGridDrawState);
begin
if DBGridEh1.DataSource.DataSet.
begin
AFont.Color:=clBlack;
AFont.Style:=[];
Background:=clAqua;
end
else
if not DBGridEh1.DataSource.DataSet.
begin
AFont.Color:=clGray;
AFont.Style:=[fsItalic];
Background:=clCream;
end;
end;
end.
unit untTypes;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ComCtrls, DBCtrls,
ExtCtrls, DBGridEh, ImgList, ToolWin;
type
TfrmTypes = class(TForm)
Panel2: TPanel;
StatusBar1: TStatusBar;
Panel1: TPanel;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
DBGridEh1: TDBGridEh;
ADOQuery1DSDesigner: TAutoIncField;
ADOQuery1DSDesigner2: TWideStringField;
ADOQuery1DSDesigner3: TIntegerField;
ImageListStatus: TImageList;
ToolBar1: TToolBar;
tbAdd: TToolButton;
tbDelete: TToolButton;
tbEdit: TToolButton;
tbSave: TToolButton;
ToolButton1: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ADOQuery1AfterScroll(DataSet: TDataSet);
procedure FormCreate(Sender: TObject);
procedure DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmTypes: TfrmTypes;
implementation
uses untMain;
{$R *.dfm}
procedure TfrmTypes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmTypes.
begin
if ADOQuery1.RecNo<>-1 then
StatusBar1.Panels[0].Text:=
else
StatusBar1.Panels[0].Text:='но
end;
procedure TfrmTypes.FormCreate(Sender: TObject);
begin
ADOQuery1.Active:=True;
end;
procedure TfrmTypes.
Column: TColumnEh; AFont: TFont; var Background: TColor;
State: TGridDrawState);
begin
if DBGridEh1.DataSource.DataSet.
begin
AFont.Color:=clBlack;
Background:=clAqua;
end
else
if DBGridEh1.DataSource.DataSet.
begin
AFont.Color:=clBlack;
Background:=clCream;
end;
end;
end.
unit untOtvet;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ComCtrls, DBCtrls,
ExtCtrls, ToolWin, DBGridEh;
type
TfrmOtvet = class(TForm)
Panel2: TPanel;
StatusBar1: TStatusBar;
Panel1: TPanel;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
DBGridEh1: TDBGridEh;
ToolBar1: TToolBar;
tbAdd: TToolButton;
tbDelete: TToolButton;
tbEdit: TToolButton;
tbSave: TToolButton;
ToolButton1: TToolButton;
procedure ADOQuery1AfterScroll(DataSet: TDataSet);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmOtvet: TfrmOtvet;
implementation
{$R *.dfm}
procedure TfrmOtvet.
begin
if ADOQuery1.RecNo<>-1 then
StatusBar1.Panels[0].Text:=
else
StatusBar1.Panels[0].Text:='
end;
procedure TfrmOtvet.FormCreate(Sender: TObject);
begin
ADOQuery1.Active:=True;
end;
procedure TfrmOtvet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmOtvet.
Column: TColumnEh; AFont: TFont; var Background: TColor;
State: TGridDrawState);
begin
if DBGridEh1.DataSource.DataSet.
if DBGridEh1.DataSource.DataSet.
begin
AFont.Color:=clBlack;
Background:=clAqua;
end
else
if DBGridEh1.DataSource.DataSet.
begin
AFont.Color:=clBlack;
Background:=clCream;
end;
end;
end.
unit untSprMat;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, DB, ADODB, Grids, DBGrids,
DBCtrls, StdCtrls, Buttons, ToolWin, DBGridEh, ImgList;
type
TfrmSprMat = class(TForm)
Panel1: TPanel;