АРМ менеджера в автосалоне "A-Motors"

Дипломная работа, 16 Марта 2011, автор: пользователь скрыл имя

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

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

Содержание работы

ВВЕДЕНИЕ 6
1. ПОСТАНОВОЧНАЯ ЧАСТЬ 8
1.1 Формулировка задачи 8
1.2 Описание входной и выходной документации 8
1.3 Требования к интерфейсу Windows-приложения 8
2. ПРОЕКТНАЯ ЧАСТЬ 16
2.1 Описание информационной базы 16
2.2 Спецификации набора данных 18
2.3 Спецификации набора данных 18
2.4 Проект базы данных, используемой в задаче 19
2.5 Разработка алгоритмов обработки данных 20
2.6 Разработка SQL-запросов к базе данных 22
2.7 Разработка форм приложения, меню, отчетов 23
3. ИНСТРУМЕНТАЛЬНЫЕ СРЕДСТВА РЕАЛИЗАЦИИ ДИПЛОМНОГО ПРОЕКТА 26
3.1 Краткая характеристика операционных систем 26
3.2 Краткая характеристика языка программирования Object Pascal и среды Delphi 26
3.3 Краткая характеристика используемой СУБД 28
4. ЭКСПЛУАТАЦИЯ 31
4.1.Требования к аппаратному обеспечению 31
4.2.Инструкция пользователю 31
4.3 Инструкция программисту 39

5. ЭКОНОМИЧЕСКАЯ ЧАСТЬ 40
5.1. Определение затрат на создание программного продукта 40
5.2 Расчет себестоимости и цены программного продукта 42
5.3 Расчет экономической эффективности проекта 44
5.4 Технико-экономические показатели проекта 46
6. МЕРОПРИЯТИЯ ПО ТЕХНИКЕ БЕЗОПАСНОСТИ И ОКРУЖАЮЩЕЙ СРЕДЫ. 47
6.1. Охрана труда 47
6.2. Техника безопасности 49
6.3 Охрана окружающей среды 56
7. ЗАКЛЮЧЕНИЕ 59
8. СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ 60
ПРИЛОЖЕНИЕ

Скачать целиком (146.74 Кб) Сколько стоит заказать работу?

Содержимое работы - 1 файл

АРМ мененджер автосалона А-моторс1.doc

— 738.00 Кб (Скачать файл)

       FAbout: TFAbout;

 

     implementation

 

     {$R *.dfm}

 

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

     begin

       Action:=caFree;

     end;

 

     end.

     А.2 Модуль формы окна «Зарегистрировать автомобиль»

     unit add;

 

     interface

 

     uses

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

       Dialogs, Buttons, glLabel, DBTables,ExtCtrls, glBevel, StdCtrls, RxGIF,

       DBCtrls, LMDControl, LMDBaseControl, LMDBaseGraphicButton,

       LMDCustomSpeedButton, LMDSpeedButton, ExtDlgs,IDGlobal, ToolEdit, Mask,

       LMDCustomControl, LMDCustomPanel, LMDCustomBevelPanel,

       LMDBaseEdit, LMDCustomEdit, LMDCustomBrowseEdit, LMDCustomFileEdit,

       LMDFileOpenEdit, jpeg;

 

     type

       TFadd = class(TForm)

         Panel1: TPanel;

         glLabel1: TglLabel;

 

      Продолжение приложения А

         Label1: TLabel;

         Label2: TLabel;

         Label3: TLabel;

         Label4: TLabel;

         Label5: TLabel;

         Label6: TLabel;

         Label7: TLabel;

         Edit1: TEdit;

         Edit2: TEdit;

         Edit3: TEdit;

         Edit4: TEdit;

         Edit5: TEdit;

         Edit6: TEdit;

         Edit7: TEdit;

         Panel2: TPanel;

         Panel3: TPanel;

         glLabel2: TglLabel;

         glLabel3: TglLabel;

         Label8: TLabel;

         Label9: TLabel;

         Label10: TLabel;

         Label11: TLabel;

         Label12: TLabel;

         Label13: TLabel;

         Label14: TLabel;

         Edit8: TEdit;

         Edit9: TEdit;

         Edit10: TEdit;

         Edit11: TEdit;

         ComboBox1: TComboBox;

         Edit12: TEdit;

         CheckBox1: TCheckBox;

         CheckBox2: TCheckBox;

         CheckBox3: TCheckBox;

         CheckBox4: TCheckBox;

         CheckBox5: TCheckBox;

         CheckBox6: TCheckBox;

         CheckBox7: TCheckBox;

         CheckBox8: TCheckBox;

         Edit13: TEdit;

         ComboBox2: TComboBox;

         Label15: TLabel;

         ComboBox3: TComboBox;

         ComboBox4: TComboBox;

         Label16: TLabel;

         Label17: TLabel;

         Memo1: TMemo;

         Label18: TLabel;

         Label19: TLabel;

         Memo2: TMemo;

         Image2: TImage;

         Panel4: TPanel;

         Panel5: TPanel;

         LMDSpeedButton1: TLMDSpeedButton;

         LMDSpeedButton2: TLMDSpeedButton;

         LMDSpeedButton3: TLMDSpeedButton;

         Label20: TLabel;

         DBLookupComboBox1: TDBLookupComboBox;

         Image3: TImage;

     Продолжение приложения А

         glLabel4: TglLabel;

         LMDSpeedButton4: TLMDSpeedButton;

         LMDSpeedButton5: TLMDSpeedButton;

         OpenPictureDialog2: TOpenPictureDialog;

         Image4: TImage;

         Image5: TImage;

         glLabel5: TglLabel;

         Label21: TLabel;

         Label22: TLabel;

         Edit14: TEdit;

         DateEdit1: TDateEdit;

         OpenPictureDialog1: TOpenPictureDialog;

         Image1: TImage;

         DBLookupComboBox2: TDBLookupComboBox;

         procedure LMDSpeedButton4Click(Sender: TObject);

         procedure LMDSpeedButton5Click(Sender: TObject);

         procedure LMDSpeedButton2Click(Sender: TObject);

         procedure FormCreate(Sender: TObject);

         procedure LMDSpeedButton3Click(Sender: TObject);

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

         procedure LMDSpeedButton1Click(Sender: TObject);

         procedure OpenPictureDialog1CanClose(Sender: TObject;

           var CanClose: Boolean);

         procedure Edit6KeyPress(Sender: TObject; var Key: Char);

         procedure Edit7KeyPress(Sender: TObject; var Key: Char);

         procedure Edit13KeyPress(Sender: TObject; var Key: Char);

         procedure Edit14KeyPress(Sender: TObject; var Key: Char);

         procedure DBLookupComboBox2Click(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end;

 

     var

       Fadd: TFadd;

       pic1,pic2:string;

     implementation

 

     uses dm;

 

     {$R *.dfm}

 

     function gen_id(table:TTable; var name:string):integer;

     var n:integer;

     begin

     table.First;

     n:=table.FieldByName(name).asinteger;

     while not table.Eof do begin

       if table.FieldByName(name).Value>n then

         n:=table.FieldByName(name).Value;

         table.Next;

         end;

       gen_id:=n+1;

     end;

 

     procedure TFadd.LMDSpeedButton4Click(Sender: TObject);

     begin

     OpenPictureDialog1.Execute;

     Продолжение приложения А

     pic1:=OpenPictureDialog1.FileName;

     if pic1<>'' then Image4.Picture.LoadFromFile(pic1)

     else  begin

     MessageBox(Handle,'Фотография кузова не выбрана!','',MB_OK);

     exit;

     end;

     end;

 

     procedure TFadd.LMDSpeedButton5Click(Sender: TObject);

     begin

     OpenPictureDialog1.Execute;

     pic2:=OpenPictureDialog1.FileName;

     if pic2<>'' then Image5.Picture.LoadFromFile(pic2)

     else  begin

     MessageBox(Handle,'Фотография салона не выбрана!','',MB_OK);

     exit;

     end;

     end;

 

     procedure TFadd.LMDSpeedButton2Click(Sender: TObject);

     begin

       edit1.Text:='';

       edit2.Text:='';

       edit3.Text:='';

       edit4.Text:='';

       edit5.Text:='';

       edit6.Text:='';

       edit7.Text:='';

       edit8.Text:='';

       edit9.Text:='';

       edit10.Text:='';

       edit11.Text:='';

       edit12.Text:='';

       edit13.Text:='';

       edit14.Text:='';

       CheckBox1.Checked:=false;

       CheckBox2.Checked:=false;

       CheckBox3.Checked:=false;

       CheckBox4.Checked:=false;

       CheckBox5.Checked:=false;

       CheckBox6.Checked:=false;

       CheckBox7.Checked:=false;

       CheckBox8.Checked:=false;

       Memo1.Clear;

       Memo2.Clear;

     end;

 

     procedure TFadd.FormCreate(Sender: TObject);

     begin

     //  dm1.vlad.Close;

      // dm1.vlad.Open;

       Memo1.Clear;

       Memo2.Clear;

     end;

 

     procedure TFadd.LMDSpeedButton3Click(Sender: TObject);

     begin

     close;

     end;

     Продолжение приложения А

 

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

     begin

       edit1.Text:='';

       edit2.Text:='';

       edit3.Text:='';

       edit4.Text:='';

       edit5.Text:='';

       edit6.Text:='';

       edit7.Text:='';

       edit8.Text:='';

       edit9.Text:='';

       edit10.Text:='';

       edit11.Text:='';

       edit12.Text:='';

       edit13.Text:='';

       edit14.Text:='';

       CheckBox1.Checked:=false;

       CheckBox2.Checked:=false;

       CheckBox3.Checked:=false;

       CheckBox4.Checked:=false;

       CheckBox5.Checked:=false;

       CheckBox6.Checked:=false;

       CheckBox7.Checked:=false;

       CheckBox8.Checked:=false;

       Memo1.Clear;

       Memo2.Clear;

     end;

 

     procedure TFadd.LMDSpeedButton1Click(Sender: TObject);

     var k1,k2,k3:integer;

         st1,q1,st2,q2,v,a,a_i:string;

         i,u:integer;

     begin

     if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') or (edit4.Text='')

     or (DBLookupComboBox2.KeyValue=Null) or (edit9.Text='') or (edit10.Text='') or (edit11.Text='')

     or (edit12.Text='') or (edit13.Text='') or (edit14.Text='') or (pic1='')

     or (pic2='') then begin

     MessageBox(Handle,'Возможно некоторые поля не заполнены!','Внимание',MB_OK);

     exit;

     end

     else begin

 

             dm1.komplect.Append;

             dm1.avto_in.Append;

 

     v:='KOD_vlad';

     k1:=gen_id(dm1.vlad,v);

             dm1.vlad.Append;

       dm1.vlad.FieldByName('KOD_vlad').Value:=k1;

       dm1.vlad.FieldByName('FAM').Value:=edit1.text;

       dm1.vlad.FieldByName('NAME').value:=edit2.Text;

       dm1.vlad.FieldByName('OTH').value:=edit3.text;

       dm1.vlad.FieldByName('adres').value:=edit4.text;

       dm1.vlad.fieldByName('mail').value:=edit5.Text;

       dm1.vlad.FieldByName('tel').value:=edit6.text;

       dm1.vlad.FieldByName('sot').value:=edit7.text;

     Продолжение приложения А

     a:='KOD_avto';

     k2:=gen_id(dm1.avto,a);

             dm1.avto.Append;

 

       dm1.avto.FieldByName('KOD_avto').Value:=k2;

       dm1.avto.FieldByName('KOD_vlad').Value:=k1;

Информация о работе АРМ менеджера в автосалоне "A-Motors"

Связанные документы

Лекции по "АРМ менеджера"

Описание АРМ менеджера ООО фирмы «Консоль ЛТД»

Армия

Менеджер

A Trip by Train

Практика АРМ

A Mother's Love essay

Типы менеджеров

Living in a foreign country

Имидж менеджера

Имидж менеджера

Типы менеджеров

Похожие темы

Армия

Роли менеджера

Работа менеджера