Отчёт по практике в Локомотивном Эксплуатационном депо Воркуты (ТЧЭ-24) Северной Дирекции Тяги филиала ОАО «РЖД»

Автор работы: Пользователь скрыл имя, 06 Февраля 2014 в 12:32, отчет по практике

Краткое описание

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

Содержание

Введение ……………………………………………...…………………….. 3
Цели и задачи предприятия ……………………………………………….. 4
Структура предприятия ……………………………………………...……. 7
Функции предприятия ……………………………………………...……… 9
Взаимодействие подразделений ……………………………...………….. 13
Описание изучаемого подразделения …………………………………… 14
Описание объекта автоматизации …………………………………….…. 17
Структура базы данных …………………………………………..……… 18
Модель базы данных …………………………………………………..…. 21
Инструкция пользователю ………………………………………..……… 22
Компоненты модулей данных ………………………………………..….. 26
Заключение ……………………………………………………………….. 40
Литература ……………………………………………………………...… 41

Скачать полностью (1.45 Мб) Сколько стоит заказать работу?
Прикрепленные файлы: 1 файл

Predproektnoe_obsledovanie.doc

— 2.89 Мб (Скачать документ)

        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>

        <DCC_UsePackage>fs17;frx17;bindcompfmx;DBXSqliteDriver;vcldbx;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;TeeDB;bindcomp;inetdb;vclib;inetdbbde;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DBXOdbcDriver;DataSnapServer;Tee;DataSnapProviderClient;xmlrtl;svnui;ibxpress;DbxCommonDriver;DBXSybaseASEDriver;vclimg;IndyProtocols;dbxcds;DBXMySQLDriver;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vclactnband;bindengine;vcldb;soaprtl;bindcompdbx;vcldsnap;bindcompvcl;FMXTee;TeeUI;vclie;vcltouch;DBXDb2Driver;websnap;DBXOracleDriver;CustomIPTransport;vclribbon;VclSmp;dsnap;IndyIPServer;DBXInformixDriver;Intraweb;fmxase;vcl;IndyCore;DataSnapConnectors;IndyIPCommon;CloudService;DBXMSSQLDriver;dsnapcon;DBXFirebirdDriver;FmxTeeUI;inet;fsDB17;fmxobj;frxDB17;CodeSiteExpressPkg;vclx;frxe17;inetdbxpress;webdsnap;svn;DBXSybaseASADriver;fmxdae;bdertl;dbexpress;adortl;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>

        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>

        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>

        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>

    </PropertyGroup>

    <PropertyGroup Condition="'$(Base_Win64)'!=''">

        <DCC_UsePackage>bindcompfmx;DBXSqliteDriver;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;bindcomp;inetdb;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DBXOdbcDriver;DataSnapServer;DataSnapProviderClient;xmlrtl;DbxCommonDriver;DBXSybaseASEDriver;vclimg;IndyProtocols;dbxcds;DBXMySQLDriver;vclactnband;bindengine;vcldb;soaprtl;bindcompdbx;vcldsnap;bindcompvcl;vclie;vcltouch;DBXDb2Driver;websnap;DBXOracleDriver;CustomIPTransport;VclSmp;dsnap;IndyIPServer;DBXInformixDriver;fmxase;vcl;IndyCore;IndyIPCommon;DBXMSSQLDriver;dsnapcon;DBXFirebirdDriver;inet;fmxobj;vclx;inetdbxpress;webdsnap;DBXSybaseASADriver;fmxdae;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>

    </PropertyGroup>

    <PropertyGroup Condition="'$(Cfg_1)'!=''">

        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>

        <DCC_DebugDCUs>true</DCC_DebugDCUs>

        <DCC_Optimize>false</DCC_Optimize>

        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>

        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>

        <DCC_RemoteDebug>true</DCC_RemoteDebug>

    </PropertyGroup>

    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">

        <DCC_RemoteDebug>false</DCC_RemoteDebug>

    </PropertyGroup>

    <PropertyGroup Condition="'$(Cfg_2)'!=''">

        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>

        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>

        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>

        <DCC_DebugInformation>false</DCC_DebugInformation>

    </PropertyGroup>

    <ItemGroup>

        <DelphiCompile Include="$(MainSource)">

            <MainSource>MainSource</MainSource>

        </DelphiCompile>

        <DCCReference Include="ufMain.pas">

            <Form>fMain</Form>

            <FormType>dfm</FormType>

        </DCCReference>

        <DCCReference Include="udm.pas">

            <Form>dm</Form>

            <DesignClass>TDataModule</DesignClass>

        </DCCReference>

        <BuildConfiguration Include="Release">

            <Key>Cfg_2</Key>

            <CfgParent>Base</CfgParent>

        </BuildConfiguration>

        <BuildConfiguration Include="Base">

            <Key>Base</Key>

        </BuildConfiguration>

        <BuildConfiguration Include="Debug">

            <Key>Cfg_1</Key>

            <CfgParent>Base</CfgParent>

        </BuildConfiguration>

    </ItemGroup>

    <ProjectExtensions>

        <Borland.Personality>Delphi.Personality.12</Borland.Personality>

        <Borland.ProjectType/>

        <BorlandProject>

            <Delphi.Personality>

                <VersionInfo>

                    <VersionInfo Name="IncludeVerInfo">False</VersionInfo>

                    <VersionInfo Name="AutoIncBuild">False</VersionInfo>

                    <VersionInfo Name="MajorVer">1</VersionInfo>

                    <VersionInfo Name="MinorVer">0</VersionInfo>

                    <VersionInfo Name="Release">0</VersionInfo>

                    <VersionInfo Name="Build">0</VersionInfo>

                    <VersionInfo Name="Debug">False</VersionInfo>

                    <VersionInfo Name="PreRelease">False</VersionInfo>

                    <VersionInfo Name="Special">False</VersionInfo>

                    <VersionInfo Name="Private">False</VersionInfo>

                    <VersionInfo Name="DLL">False</VersionInfo>

                    <VersionInfo Name="Locale">1049</VersionInfo>

                    <VersionInfo Name="CodePage">1251</VersionInfo>

                </VersionInfo>

                <VersionInfoKeys>

                    <VersionInfoKeys Name="CompanyName"/>

                    <VersionInfoKeys Name="FileDescription"/>

                    <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>

                    <VersionInfoKeys Name="InternalName"/>

                    <VersionInfoKeys Name="LegalCopyright"/>

                    <VersionInfoKeys Name="LegalTrademarks"/>

                    <VersionInfoKeys Name="OriginalFilename"/>

                    <VersionInfoKeys Name="ProductName"/>

                    <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>

                    <VersionInfoKeys Name="Comments"/>

                    <VersionInfoKeys Name="CFBundleName"/>

                    <VersionInfoKeys Name="CFBundleDisplayName"/>

                    <VersionInfoKeys Name="CFBundleIdentifier"/>

                    <VersionInfoKeys Name="CFBundleVersion"/>

                    <VersionInfoKeys Name="CFBundlePackageType"/>

                    <VersionInfoKeys Name="CFBundleSignature"/>

                    <VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>

                    <VersionInfoKeys Name="CFBundleExecutable"/>

                </VersionInfoKeys>

                <Source>

                    <Source Name="MainSource">reyting_v1.dpr</Source>

                </Source>

            </Delphi.Personality>

            <Deployment/>

            <Platforms>

                <Platform value="Win32">True</Platform>

                <Platform value="Win64">False</Platform>

            </Platforms>

            <ModelSupport>False</ModelSupport>

        </BorlandProject>

        <ProjectFileVersion>12</ProjectFileVersion>

    </ProjectExtensions>

    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>

    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>

</Project>

 

Файл udm.pas проекта Delphi XE3 содержит:

unit udm;

interface

uses

  System.SysUtils, System.Classes, Data.DB, Data.Win.ADODB;

type

  Tdm = class(TDataModule)

    ADOData: TADOConnection;

    tKolon: TADOTable;

    tMash: TADOTable;

    tNar: TADOTable;

    tPripis: TADOTable;

    tSlujba: TADOTable;

    dstKolon: TDataSource;

    dstMash: TDataSource;

    dstNar: TDataSource;

    dstPripis: TDataSource;

    dstSlujba: TDataSource;

    dstTipnar: TDataSource;

    tTipnar: TADOTable;

    tKolonidkolon: TAutoIncField;

    tKolonkolon: TIntegerField;

    tMashidmash: TAutoIncField;

    tMashtabnomer: TWideStringField;

    tMashfiomash: TWideStringField;

    tMashidpripis: TIntegerField;

    tMashidkolon: TIntegerField;

    tNaridnar: TIntegerField;

    tNaridmash: TIntegerField;

    tNardnar: TDateTimeField;

    tNaridslujba: TIntegerField;

    tNaridtipnar: TIntegerField;

    tPripisidpripis: TAutoIncField;

    tPripispripis: TWideStringField;

    tSlujbaidslujba: TAutoIncField;

    tSlujbaslujba: TWideStringField;

    tTipnaridtipnar: TAutoIncField;

    tTipnartipnar: TWideStringField;

    tTipnarball: TIntegerField;

    tMashkolon: TStringField;

    tMashpripis: TStringField;

    tNartipnar: TStringField;

    tNarslujba: TStringField;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  dm: Tdm;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

end.

 

Файл ufMain.pas проекта Delphi XE3 содержит:

unit ufMain;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls,

  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.Mask, Vcl.DBCGrids;

type

  TfMain = class(TForm)

    pcMain: TPageControl;

    sb: TStatusBar;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    TabSheet3: TTabSheet;

    dbgPripis: TDBGrid;

    dbgSlujba: TDBGrid;

    dbnPripis: TDBNavigator;

    dbnKolon: TDBNavigator;

    dbnSlujba: TDBNavigator;

    dbnTipnar: TDBNavigator;

    dbgTipnar: TDBGrid;

    dbgKolon: TDBGrid;

    dbgNar: TDBGrid;

    dbnNar: TDBNavigator;

    pcnar: TPageControl;

    TabSheet5: TTabSheet;

    Memo1: TMemo;

    DBNavigator1: TDBNavigator;

    DBGrid1: TDBGrid;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  fMain: TfMain;

implementation

{$R *.dfm}

uses udm;

end.  
Заключение

 

В ходе выполнения это работы была проведена предпроектное исследования предприятия ОАО «РЖД» и подразделения для внедрения продукта автоматизации, были определены основные характеристики проекта и были разработаны следующие документы:

    • основные свойства продукта – раздел, описывающий основные свойства продукта автоматизации;
    • инструкция пользования продуктом.

 

Литература

 

  1. Фёдоров А., Елманова Н. ADO в Delphi, – «БХВ-Петербург» - 2002, 816 с.
  2. Осипов Д. Delphi XE2, - «БХВ-Петербург» - 2012, 912 с.
  3. Фленов М. Программирование в Delphi глазами хакера, - «БХВ-Петербург» - 2007, 480с.
  4. Мартюшев С.М., Лапина. – Ухта: УГТУ, 2013. – 66 с.
  5. Дейт, К.Дж. Введение в системы баз данных, 8-е издание.: Пер. с англ. – М.: Издательский

Информация о работе Отчёт по практике в Локомотивном Эксплуатационном депо Воркуты (ТЧЭ-24) Северной Дирекции Тяги филиала ОАО «РЖД»