База Данных Государственной Инспекции Безопасности Дорожного Движения

Автор работы: Пользователь скрыл имя, 12 Сентября 2011 в 16:43, дипломная работа

Описание

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

Содержание

Введение

1. Характеристика предприятия

2. Экономическая сущность задачи

2.1 Первичные документы

2.2 Сводные документы

2.3 Процесс ручной обработки исходных данных и формирование результатов

2.4 Выводы и предложения

3. Предлагаемое программное обеспечение и изменение технологии обработки данных

3.1 Характеристика вычислительной техники и общего программного обеспечения

3.2 Программы и их описание

3.2.1 Структуры данных

3.2.2 Описание полей, переменных и процедур

3.2.3 Результат работы программы

3.2.4 Руководство работы с программой

3.3 Изменения технологии обработки данных

4. Оценка затрат на разработку ПО

4.1 Методика расчета

4.2 Оценка размера программного продукта

4.3 Оценка трудоемкости программного продукта

4.4 Оценка стоимости

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

6. Список условных обозначений и сокращений

7. Список литературы

8. Приложение

Скачать (153.82 Кб) Сколько стоит заказать работу?
Работа состоит из  1 файл

Диплом .doc

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

DBGrid1.DataSource.DataSet.Delete;

end;

procedure TFormMain.Button3Click(Sender: TObject);

begin

formdobts.showmodal;

end;

procedure TFormMain.Button4Click(Sender: TObject);

begin

if MessageDlg('Удалить?',mtConfirmation,[mbYes,mbNo],0)=mrYes then

DBGrid2.DataSource.DataSet.Delete;

end;

procedure TFormMain.Button5Click(Sender: TObject);

begin

FormEditV.showmodal;

end;

procedure TFormMain.Button6Click(Sender: TObject);

begin

formeditts.showmodal;

end;

procedure TFormMain.Button7Click(Sender: TObject);

begin

FormRez.showmodal;

end;

procedure TFormMain.Button8Click(Sender: TObject);

begin

ExcelApp:= CreateOleObject('Excel.Application'); // открываем Excel

ExcelApp.Application.EnableEvents:= false; // так будет быстрее

ExcelApp.Workbooks.Open(ExtractFilePath(Application.ExeName)+'\1.xls');

ExcelApp.cells[3,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('znak').AsString;

ExcelApp.cells[5,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('marka').AsString;

ExcelApp.cells[6,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('TipTS').AsString;

ExcelApp.cells[7,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('Izgotovitel').AsString;

ExcelApp.cells[8,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('Kategor').AsString;

ExcelApp.cells[9,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('GodV').AsString;

ExcelApp.cells[10,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('NDvig').AsString;

ExcelApp.cells[11,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('NShassi').AsString;

ExcelApp.cells[12,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('nkuzov').AsString;

ExcelApp.cells[13,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('cvet').AsString;

ExcelApp.cells[14,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('mosch').AsString;

ExcelApp.cells[15,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('rmassa').AsString;

ExcelApp.cells[16,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('massa').AsString;

ExcelApp.cells[17,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('passts').AsString;

ExcelApp.cells[18,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('datavyd').AsString;

ExcelApp.cells[19,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('regdoc').AsString;

ExcelApp.cells[20,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('datavydr').AsString;

ExcelApp.Visible:=true;

end;

procedure TFormMain.FormShow(Sender: TObject);

begin

FormDataModule.ADOQueryTS.Active:=true;

FormDataModule.ADOQueryV.Active:=true;

formmain.PageControl1.ActivePageIndex:=0;

end;

procedure TFormMain.N10Click(Sender: TObject);

begin

formsearchVFIO.showmodal;

end;

procedure TFormMain.N11Click(Sender: TObject);

begin

formeditts.showmodal;

end;

procedure TFormMain.N12Click(Sender: TObject);

begin

ExcelApp:= CreateOleObject('Excel.Application'); // открываем Excel

ExcelApp.Application.EnableEvents:= false; // так будет быстрее

ExcelApp.Workbooks.Open(ExtractFilePath(Application.ExeName)+'\1.xls');

ExcelApp.cells[3,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('znak').AsString;

ExcelApp.cells[5,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('marka').AsString;

ExcelApp.cells[6,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('TipTS').AsString;

ExcelApp.cells[7,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('Izgotovitel').AsString;

ExcelApp.cells[8,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('Kategor').AsString;

ExcelApp.cells[9,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('GodV').AsString;

ExcelApp.cells[10,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('NDvig').AsString;

ExcelApp.cells[11,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('NShassi').AsString;

ExcelApp.cells[12,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('nkuzov').AsString;

ExcelApp.cells[13,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('cvet').AsString;

ExcelApp.cells[14,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('mosch').AsString;

ExcelApp.cells[15,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('rmassa').AsString;

ExcelApp.cells[16,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('massa').AsString;

ExcelApp.cells[17,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('passts').AsString;

ExcelApp.cells[18,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('datavyd').AsString;

ExcelApp.cells[19,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('regdoc').AsString;

ExcelApp.cells[20,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('datavydr').AsString;

ExcelApp.Visible:=true;

end;

procedure TFormMain.N13Click(Sender: TObject);

begin

FormRez.showmodal;

end;

procedure TFormMain.N3Click(Sender: TObject);

begin

formdobv.showmodal;

end;

procedure TFormMain.N4Click(Sender: TObject);

begin

formdobts.showmodal;

end;

procedure TFormMain.N5Click(Sender: TObject);

begin

FormEditV.showmodal;

end;

procedure TFormMain.N6Click(Sender: TObject);

begin

close;

end;

procedure TFormMain.N8Click(Sender: TObject);

begin

FormAbout.showmodal;

end;

procedure TFormMain.PageControl1Change(Sender: TObject);

begin

if PageControl1.ActivePageIndex=1 then

begin

   with FormDataModule.ADOQueryTS do

   begin

     sql.clear;

     sql.add('select * from ts where keyv='+

     DBGrid1.DataSource.DataSet.FieldByName('idv').AsString);

     Active:=true;

   end;

Caption:=DBGrid1.DataSource.DataSet.FieldByName('fam').AsString+' '+

DBGrid1.DataSource.DataSet.FieldByName('ima').AsString+' '+

DBGrid1.DataSource.DataSet.FieldByName('otch').AsString;

end else

Caption:='ГИБДД';

end;

end.

unit UnitRezOsm;

interface

uses

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

  Dialogs, StdCtrls,ComObj;

type

  TFormRez = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FormRez: TFormRez;   ExcelApp: Variant;

implementation

uses UnitMain;

{$R *.dfm}

procedure TFormRez.Button1Click(Sender: TObject);

begin

with formmain do begin

ExcelApp:= CreateOleObject('Excel.Application'); // открываем Excel

ExcelApp.Application.EnableEvents:= false; // так будет быстрее

ExcelApp.Workbooks.Open(ExtractFilePath(Application.ExeName)+'\2.xls');

ExcelApp.cells[6,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('znak').AsString;

ExcelApp.cells[10,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('marka').AsString;

ExcelApp.cells[11,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('Izgotovitel').AsString;

ExcelApp.cells[12,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('Kategor').AsString;

ExcelApp.cells[13,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('GodV').AsString;

ExcelApp.cells[15,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('NDvig').AsString;

ExcelApp.cells[16,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('NShassi').AsString;

ExcelApp.cells[17,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('nkuzov').AsString;

ExcelApp.cells[18,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('cvet').AsString;

ExcelApp.cells[19,5].value:='Исправен';

ExcelApp.Visible:=true;

end;

end;

procedure TFormRez.Button2Click(Sender: TObject);

begin

with formmain do begin

ExcelApp:= CreateOleObject('Excel.Application'); // открываем Excel

ExcelApp.Application.EnableEvents:= false; // так будет быстрее

ExcelApp.Workbooks.Open(ExtractFilePath(Application.ExeName)+'\2.xls');

ExcelApp.cells[6,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('znak').AsString;

ExcelApp.cells[10,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('marka').AsString;

ExcelApp.cells[11,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('Izgotovitel').AsString;

ExcelApp.cells[12,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('Kategor').AsString;

ExcelApp.cells[13,5].value:=

  DBGrid2.DataSource.DataSet.FieldByName('GodV').AsString;

ExcelApp.cells[15,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('NDvig').AsString;

ExcelApp.cells[16,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('NShassi').AsString;

ExcelApp.cells[17,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('nkuzov').AsString;

ExcelApp.cells[18,5].value:=

   DBGrid2.DataSource.DataSet.FieldByName('cvet').AsString;

ExcelApp.cells[19,5].value:='Не  исправен';

ExcelApp.Visible:=true;

end;

end;

end.

unit UnitPoiskFIO;

interface

uses

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

  Dialogs, StdCtrls;

type

  TformsearchVFIO = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  formsearchVFIO: TformsearchVFIO;

Информация о работе База Данных Государственной Инспекции Безопасности Дорожного Движения