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

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

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

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

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

ВВЕДЕНИЕ 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 Кб (Скачать файл)

         LMDSpeedButton7: TLMDSpeedButton;

         LMDSpeedButton8: TLMDSpeedButton;

         LMDSpeedButton9: TLMDSpeedButton;

         Image3: TImage;

         Image4: TImage;

         procedure LMDSpeedButton1Click(Sender: TObject);

         procedure FormCreate(Sender: TObject);

         procedure LMDSpeedButton4Click(Sender: TObject);

         procedure LMDSpeedButton5Click(Sender: TObject);

        procedure LMDSpeedButton2Click(Sender: TObject);

         procedure LMDSpeedButton7Click(Sender: TObject);

         procedure LMDSpeedButton9Click(Sender: TObject);

         procedure FormActivate(Sender: TObject);

         procedure LMDSpeedButton8Click(Sender: TObject);

         procedure LMDSpeedButton6Click(Sender: TObject);

         procedure LMDSpeedButton3Click(Sender: TObject);

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

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

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

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

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

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

       private

         { Private declarations }

       public

         { Public declarations }

       end;

 

     var

       Fsotr: TFsotr;

 

     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 TFsotr.LMDSpeedButton1Click(Sender: TObject);

     begin

     if edit1.Text<>'' then begin

       if RadioGroup1.ItemIndex=0 then

       if dm1.sot.Locate('FAM',edit1.Text,[loCaseInsensitive]) then

       else MessageBox(Handle,'Нет записи с такой фамилией...','',MB_OK);

 

       if RadioGroup1.ItemIndex=1 then

       if dm1.sot.Locate('NAME',edit1.Text,[loCaseInsensitive]) then

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

       else MessageBox(Handle,'Нет записи с таким именем...','',MB_OK);

     end

     else MessageBox(Handle,'Введите значение для поиска!','',MB_OK);

     end;

 

     procedure TFsotr.FormCreate(Sender: TObject);

     begin

     dm1.sot.IndexName:='FAM';

     RadioGroup1.ItemIndex:=-1;

     end;

 

     procedure TFsotr.LMDSpeedButton4Click(Sender: TObject);

     begin

     if messagedlg('Удалить?!',mtconfirmation, [mbYes, mbNo],0)=mrYes then begin

     if dm1.sot.State=dsbrowse then dm1.sot.delete;

       end;

     end;

 

     procedure TFsotr.LMDSpeedButton5Click(Sender: TObject);

     begin

     //dm1.sot.Edit;

     //dm1.sot.Append;

     pedit.Visible:=true;

     Edit7.Text:=dm1.sot.fieldbyname('fam').Value;

     Edit6.Text:=dm1.sot.fieldbyname('name').Value;

     Edit5.Text:=dm1.sot.fieldbyname('oth').Value;

     end;

     procedure TFsotr.LMDSpeedButton2Click(Sender: TObject);

     begin

     pnew.Visible:=true;

 

     end;

 

     procedure TFsotr.LMDSpeedButton7Click(Sender: TObject);

     begin

     pedit.Visible:=false;

     Edit5.Text:='';

     Edit6.Text:='';

     Edit7.Text:='';

     dm1.sot.Cancel;

     end;

 

     procedure TFsotr.LMDSpeedButton9Click(Sender: TObject);

     begin

     pnew.Visible:=false;

     Edit2.Text:='';

     Edit3.Text:='';

     Edit4.Text:='';

     dm1.sot.Cancel;

     end;

 

     procedure TFsotr.FormActivate(Sender: TObject);

     begin

     pedit.Visible:=true;

     pnew.Visible:=true;

     pedit.Visible:=false;

     pnew.Visible:=false;

     end;

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

 

     procedure TFsotr.LMDSpeedButton8Click(Sender: TObject);

     var v:string;

         k:integer;

     begin

     if (Edit2.Text='') or (Edit3.Text='') or (Edit4.Text='') then begin

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

     exit;

     end

     else begin

     v:='KOD_sot';

     k:=gen_id(dm1.sot,v);

       dm1.sot.Insert;

       dm1.sot.FieldByName('KOD_sot').Value:=k;

       dm1.sot.FieldByName('FAM').Value:=edit2.text;

       dm1.sot.FieldByName('NAME').value:=edit3.Text;

       dm1.sot.FieldByName('OTH').value:=edit4.text;

       dm1.sot.Post;

       pnew.Visible:=false;

       Edit2.Text:='';

       Edit3.Text:='';

       Edit4.Text:='';

     end;

     end;

 

     procedure TFsotr.LMDSpeedButton6Click(Sender: TObject);

     begin

     if (Edit5.Text='') or (Edit6.Text='') or (Edit7.Text='') then begin

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

     exit;

     end

     else begin

       dm1.sot.Edit;

       dm1.sot.FieldByName('FAM').Value:=edit7.text;

       dm1.sot.FieldByName('NAME').value:=edit6.Text;

       dm1.sot.FieldByName('OTH').value:=edit5.text;

       dm1.sot.Post;

       pedit.Visible:=false;

       Edit5.Text:='';

       Edit6.Text:='';

       Edit7.Text:='';

     end;

     end;

 

     procedure TFsotr.LMDSpeedButton3Click(Sender: TObject);

     begin

       edit1.Text:='';

       edit2.Text:='';

       edit3.Text:='';

       edit4.Text:='';

       edit5.Text:='';

       edit6.Text:='';

       edit7.Text:='';

       close;

     end;

 

     procedure TFsotr.Edit2KeyPress(Sender: TObject; var Key: Char);

     begin

       case key of

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

       'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

         else key:=#0;

       end;

     end;

 

     procedure TFsotr.Edit3KeyPress(Sender: TObject; var Key: Char);

     begin

       case key of

       'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

         else key:=#0;

       end;

     end;

 

     procedure TFsotr.Edit4KeyPress(Sender: TObject; var Key: Char);

     begin

       case key of

       'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

         else key:=#0;

       end;

     end;

 

     procedure TFsotr.Edit5KeyPress(Sender: TObject; var Key: Char);

     begin

       case key of

       'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

         else key:=#0;

       end;

     end;

 

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

     begin

       case key of

       'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

         else key:=#0;

       end;

     end;

 

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

     begin

       case key of

       'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

         else key:=#0;

       end;

     end;

 

     end.

     А.10 Модуль формы о владельцах

     unit vladel;

 

     interface

 

     uses

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

       Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, LMDControl, LMDBaseControl,

       LMDBaseGraphicButton, LMDCustomSpeedButton, DB, LMDSpeedButton, Buttons;

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

     type

       TFvlad = class(TForm)

         Panel1: TPanel;

         DBGrid1: TDBGrid;

         Panel2: TPanel;

         Panel3: TPanel;

         RadioGroup1: TRadioGroup;

         Edit1: TEdit;

         LMDSpeedButton1: TLMDSpeedButton;

         Image1: TImage;

         RadioGroup2: TRadioGroup;

         LMDSpeedButton2: TLMDSpeedButton;

         Panel4: TPanel;

         Image2: TImage;

         Image3: TImage;

         LMDSpeedButton4: TLMDSpeedButton;

         pedit: TPanel;

         Label4: TLabel;

         Label5: TLabel;

         Label6: TLabel;

         LMDSpeedButton8: TLMDSpeedButton;

         LMDSpeedButton9: TLMDSpeedButton;

         Edit2: TEdit;

         Edit3: TEdit;

         Edit4: TEdit;

         Label1: TLabel;

         Label2: TLabel;

         Label3: TLabel;

         Label7: TLabel;

         Edit5: TEdit;

         Edit6: TEdit;

         Edit7: TEdit;

         Edit8: TEdit;

         Image4: TImage;

         procedure FormCreate(Sender: TObject);

         procedure LMDSpeedButton1Click(Sender: TObject);

         procedure LMDSpeedButton2Click(Sender: TObject);

         procedure FormActivate(Sender: TObject);

         procedure LMDSpeedButton8Click(Sender: TObject);

         procedure LMDSpeedButton4Click(Sender: TObject);

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