АРМ менеджера в автосалоне "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 Кб (Скачать файл)

DBCheckBox7: TDBCheckBox;

DBCheckBox8: TDBCheckBox;

OpenPictureDialog1: TOpenPictureDialog;

OpenPictureDialog2: TOpenPictureDialog;

Image3: TImage;

DBLookupComboBox1: TDBLookupComboBox;

procedure LMDSpeedButton12Click(Sender: TObject);

procedure LMDSpeedButton10Click(Sender: TObject);

procedure LMDSpeedButton8Click(Sender: TObject);

procedure LMDSpeedButton9Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

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

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

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Fedit: TFedit;

pic1,pic2:string;

pole1,pole2,pole1_1,pole2_2:string;

y,t:integer;

implementation

uses dm, DB;

{$R *.dfm}

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

procedure TFedit.LMDSpeedButton12Click(Sender: TObject);

begin

close;

end;

procedure TFedit.LMDSpeedButton10Click(Sender: TObject);

var st1,q1,st2,q2:string;

i,u,k2:integer;

begin

dm1.avto.Edit;

dm1.komplect.Edit;

dm1.avto.FieldByName('TIP_KUZ').Value:=ComboBox1.text;

dm1.komplect.FieldByName('KOLESO').value:=ComboBox2.text;

dm1.komplect.FieldByName('KOROBKA').value:=ComboBox3.text;

dm1.komplect.FieldByName('PRIVOD').value:=ComboBox4.text;

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

if (pic1<>'') then begin

pole1_1:='';

pole1:='';

pole1:=dm1.avto.fieldbyname('FOTO_1').AsString;

for y:=1 to length(pole1) do

if pole1[y]='.' then pole1_1:=copy(pole1,1,y-1);

st1:='';

q1:='';

for i:=length(pic1) downto 1 do

if pic1[i]<>'.' then insert(pic1[i],q1,0) else break;

st1:=ExtractFilePath(Application.Exename);

ForceDirectories(st1+'FOTO');

if dm1.avto.FieldByName('foto_1').AsString<>'' then

DeleteFile(st1+'FOTO\'+dm1.avto.FieldByName('foto_1').AsString);

if copyfileto(pchar(pic1),pchar(st1+'FOTO\'+pole1_1+ '.'+q1)) then

else begin

MessageBox(Handle,'Невозможно скопировать файл!','Внимание',MB_OK);

exit;

end;

dm1.avto.FieldByName('foto_1').AsString:=pole1_1 + '.'+q1;

end;

if (pic2<>'') then begin

pole2_2:='';

pole2:='';

pole2:=dm1.avto.fieldbyname('FOTO_2').AsString;

for t:=1 to length(pole2) do

if pole2[t]='.' then pole2_2:=copy(pole2,1,t-1);

st2:='';

q2:='';

for u:=length(pic2) downto 1 do

if pic2[u]<>'.' then insert(pic2[u],q2,0) else break;

st2:=ExtractFilePath(Application.Exename);

ForceDirectories(st2+'FOTO');

if dm1.avto.FieldByName('foto_2').AsString<>'' then

DeleteFile(st2+'FOTO\'+dm1.avto.FieldByName('foto_2').AsString);

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

if copyfileto(pchar(pic2),pchar(st2+'FOTO\'+pole2_2+ '.'+q2)) then

else begin

MessageBox(Handle,'Невозможно скопировать файл!','Внимание',MB_OK);

exit;

end;

dm1.avto.FieldByName('foto_2').AsString:=pole2_2 + '.'+q2;

end;

dm1.avto.Post;

// dm1.komplect.Post;

end;

procedure TFedit.LMDSpeedButton8Click(Sender: TObject);

begin

OpenPictureDialog1.Execute;

pic1:=OpenPictureDialog1.FileName;

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

else begin

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

exit;

end;

procedure TFedit.LMDSpeedButton9Click(Sender: TObject);

begin

OpenPictureDialog2.Execute;

pic2:=OpenPictureDialog2.FileName;

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

else begin

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

exit;

end;

procedure TFedit.FormActivate(Sender: TObject);

begin

if (dm1.avto.fieldbyname('FOTO_1').Value<>'') then

Image4.Picture.LoadFromFile(ExtractFilePath(Application.Exename)+'FOTO\'+dm1.avto.fieldbyname('FOTO_1').AsString)

else MessageBox(Handle,'Фотографии кузова НЕТ!','',MB_OK);

if (dm1.avto.fieldbyname('FOTO_2').Value<>'') then

Image5.Picture.LoadFromFile(ExtractFilePath(Application.Exename)+'FOTO\'+dm1.avto.fieldbyname('FOTO_2').AsString)

else MessageBox(Handle,'Фотографии салона НЕТ!','',MB_OK);

end;

procedure TFedit.DBEdit6KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9',#8: key:=key

else key:=#0;

end;

procedure TFedit.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

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

case key of

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

else key:=#0;

end;

procedure TFedit.DBEdit3KeyPress(Sender: TObject; var Key: Char);

begin

case key of

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

else key:=#0;

end;

end.

А.6 Модуль заставки

unit logo;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, ComCtrls, RxGIF;

type

TFlogo = class(TForm)

Timer1: TTimer;

Image1: TImage;

ProgressBar1: TProgressBar;

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

procedure Timer1Timer(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Flogo: TFlogo;

i : integer;

implementation

{$R *.dfm}

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

begin

if i=100 then

Action:=caFree

else

Action := caNone;

end;

procedure TFlogo.Timer1Timer(Sender: TObject);

begin

i:=i+1;

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

ProgressBar1.Position:=i;

if i=100 then begin

Timer1.Enabled:=false;

close;

end;

procedure TFlogo.FormActivate(Sender: TObject);

begin

i:=0;

end;

end.

А.7 Модуль главной формы

unit main;

interface

uses

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

Dialogs, ComCtrls, Menus, Grids, DBGrids, Buttons, LMDSpeedButton,

StdCtrls, XPMan, LMDBaseGraphicButton, LMDCustomSpeedButton, LMDControl,

LMDBaseControl, DBCtrls, ImgList, LMDBaseGraphicControl,

LMDGraphicControl, LMDBaseMeter, LMDCustomProgress,

ExtCtrls, DBTables, DB, LMDLEDCustomLabel, LMDLEDLabel,IDGlobal;

type

TFmain = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N11: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N81: TMenuItem;

N82: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

ColorDialog1: TColorDialog;

XPManifest1: TXPManifest;

ImageList1: TImageList;

Panel1: TPanel;

DBGrid2: TDBGrid;

DBGrid1: TDBGrid;

DBGrid3: TDBGrid;

Timer1: TTimer;

N7: TMenuItem;

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

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

Panel9: TPanel;

Panel6: TPanel;

Image3: TImage;

Image4: TImage;

Panel5: TPanel;

DBText1: TDBText;

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