Создание БД и программирование в Delphi

Автор работы: Пользователь скрыл имя, 30 Апреля 2015 в 18:39, курсовая работа

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

Основные цели данного курсового проекта:
1. Разработать АИС по автосалону.
2. Закрепить знания программирования в среде Delphi.
3. Познакомится со всеми этапами создания готового продукта.
Результат проекта – готовый продукт (программа), которую в дальнейшем можно использовать в магазинах специализированных на продаже автомобилей.

Содержание

ВВЕДЕНИЕ 3
ГЛАВА 1. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ 4
ГЛАВА 2. ПРАКТИЧЕСКАЯ ЧАСТЬ 20
2.1 Описание внешнего вида пользовательского интерфейса 20
2.2 Форма fDM 21
2.3 Описание программного кода 24
ЗАКЛЮЧЕНИЕ 33
ЛИТЕРАТУРА 34

Скачать полностью (863.82 Кб) Сколько стоит заказать работу?

Прикрепленные файлы: 1 файл

Kursach.docx

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

Edit1: TEdit;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

Edit4: TEdit;

Label6: TLabel;

Edit5: TEdit;

Label7: TLabel;

Label8: TLabel;

Button10: TButton;

Button11: TButton;

Label9: TLabel;

Label10: TLabel;

Edit6: TEdit;

Label11: TLabel;

Edit7: TEdit;

Label12: TLabel;

Label13: TLabel;

Button1: TButton;

Image1: TImage;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Edit13: TEdit;

Label14: TLabel;

Label15: TLabel;

Edit14: TEdit;

Edit15: TEdit;

Label16: TLabel;

GroupBox3: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

GroupBox4: TGroupBox;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

PopupMenu2: TPopupMenu;

N2: TMenuItem;

Button2: TButton;

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses

DM;

{$R *.dfm}

// поиск покупателя

procedure TForm1.Button1Click(Sender: TObject);

begin

fDM.SearchPokupateli(Edit15.Text);

end;

// поиск автомобиля

procedure TForm1.Button3Click(Sender: TObject);

begin

fDM.SearchCar(Edit14.Text);

end;

// удаление данных о покупателе

procedure TForm1.Button11Click(Sender: TObject);

begin

if (fDM.TablePokupateli.RecordCount > 0) then

begin

if MessageDlg('Удалить запись о данном покупателе?',mtWarning,[mbYes,mbNo],

0)= mrYes then

fDM.TablePokupateli.Delete;

end else

MessageDlg('Нет записей для удаления!',mtInformation,[mbOK],0);

end;

// удаление данных об автомобиле

procedure TForm1.Button5Click(Sender: TObject);

begin

if (fDM.TableCar.RecordCount > 0) then

begin

if MessageDlg('Удалить запись о данном автомобиле?',mtWarning,[mbYes,mbNo],

0)= mrYes then

fDM.TableCar.Delete;

end else

MessageDlg('Нет записей для удаления!',mtInformation,[mbOK],0);

end;

// добавление данных о новом автомобиле

procedure TForm1.Button4Click(Sender: TObject);

begin

if (Trim(Edit9.Text)<>'') and (Trim(Edit2.Text)<>'') and (Trim(Edit3.Text)<>'') then

begin

if fDM.TableCar.Locate('Номер',Trim(Edit9.Text),[])=true then

begin

MessageDlg('Запись с таким номером уже существует!',mtError,[mbOK],0);

Abort;

end;

if fDM.TableCar.Locate('Марка',Trim(Edit2.Text),[])=true then

begin

MessageDlg('Автомобиль такой марки уже зарегистрирован!',mtInformation,[mbOK],0);

Abort;

end;

fDM.TableCar.Append;

fDM.TableCar.FieldByName('Номер').AsInteger := StrToInt(Trim(Edit9.Text));

fDM.TableCar.FieldByName('Марка').AsString := Trim(Edit2.Text);

fDM.TableCar.FieldByName('Состояние').AsString := Trim(Edit3.Text);

fDM.TableCar.FieldByName('Год выпуска').AsString := Trim(Edit10.Text);

fDM.TableCar.FieldByName('Цена').AsString := Trim(Edit11.Text);

fDM.TableCar.FieldByName('Особая характеристика').AsString := Trim(Edit1.Text);

fDM.TableCar.FieldByName('КПП').AsString := Trim(Edit8.Text);

fDM.TableCar.Post;

MessageDlg('Запись добавлена успешно!',mtInformation,[mbOK],0);

end else

MessageDlg('Заполните необходимые поля!',mtInformation,[mbOK],0);

end;

// добавление данных о покупателе

procedure TForm1.Button10Click(Sender: TObject);

begin

if (Trim(Edit4.Text)<>'') and (Trim(Edit5.Text)<>'') and (Trim(Edit12.Text)<>'') then

begin

if fDM.TablePokupateli.Locate('НомерМарки',Trim(Edit12.Text),[])=true then

begin

MessageDlg('Запись с таким номером уже существует!',mtError,[mbOK],0);

Abort;

end;

fDM.TablePokupateli.Append;

fDM.TablePokupateli.FieldByName('НомерМарки').AsInteger := StrToInt(Trim(Edit12.Text));

fDM.TablePokupateli.FieldByName('Фамилия').AsString := Trim(Edit4.Text);

fDM.TablePokupateli.FieldByName('Имя').AsString := Trim(Edit5.Text);

fDM.TablePokupateli.FieldByName('Отчество').AsString := Trim(Edit13.Text);

fDM.TablePokupateli.FieldByName('Контакты').AsString := Trim(Edit6.Text);

fDM.TablePokupateli.FieldByName('Финансовые возможности').AsString := Trim(Edit7.Text);

fDM.TablePokupateli.Post;

MessageDlg('Запись добавлена успешно!',mtInformation,[mbOK],0);

end else

MessageDlg('Заполните необходимые поля!',mtInformation,[mbOK],0);

end;

// сортировка по возрастанию в таблице автомобили

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if RadioButton1.Checked = True then

begin

fDM.TableCar.Sort := '[Год выпуска] ASC';

DBGrid2.SetFocus;

end;

// сортировка по убыванию в таблице автомобили

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if RadioButton2.Checked = True then

begin

fDM.TableCar.Sort := '[Год выпуска] DESC';

DBGrid2.SetFocus;

end;

// сортировка по возрастанию в таблице покупатели

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

if RadioButton3.Checked = True then

begin

fDM.TablePokupateli.Sort := '[Фамилия] ASC';

DBGrid3.SetFocus;

end;

// сортировка по убыванию в таблице покупатели

procedure TForm1.RadioButton4Click(Sender: TObject);

begin

if RadioButton4.Checked = True then

begin

fDM.TablePokupateli.Sort := '[Фамилия] DESC';

DBGrid3.SetFocus;

end;

// завершение работы программы

procedure TForm1.Button2Click(Sender: TObject);

begin

if MessageDlg('Завершить работу программы?',mtWarning,[mbYes,mbNo],0)= mrYes then

Close;

end;

procedure TForm1.Image1Click(Sender: TObject);

begin

end;

end.

Заключение

При проектировании данной курсовой работы, были использованы материалы по теоретической части, а именно SQL запросы. В данной работы использовались многие возможности программы Delphi. Использовались возможности операции If, которая выполняет решение поставленных задач, при помощи определения ложности или истинности некоторого выражения или условия. При помощи данного оператора я поместил в форму программы фільтр. При помощи графического интерфейса Image Editor использовались стилистические компоненты своей программы. Все эти действия помогли мне создать достойную для реализации программу. Отрицательных сторон в ходе выполнения работы не выявлено. Сейчас многие озадачены проблемой упрощения поиска информации, ведь даже самые современные технологии в области поисковых структур сложны для восприятия и требуют длительного времени для освоения. В будущем я хотел бы еще более упростить структуру поисковых программ даже в самых сложных отраслях производства.

литература

Галисеев Г. В. “Компоненты в Delphi 7.”

Санкт-Петербург: “Вильямс”, 2004 год. - 642 стр.

Коржинский С.Н. “Изучаем Delphi”

SNK Press Online (электронное издание), 2007год. cтр.- 344

Петров К.Д. “Delphi.Help.”

Казань: “Пром”, 2004 год. - 230 cтр.

Пиренеев А.Н. “Delphi:Самоучитель.”

Казань: “Абри”, 2005 год. - 120 стр.

Поган А. “Delphi: Руководство программиста.”

Москва: “Эксмо”, 2006. - 480 cтр.

Стив Тейксейр, Ксавье Пачеко “Borland Delphi 6. Руководство разработчика.“

Санкт-Петербург: “Вильямс”, 2002 год. - 1120 стр.

Хомкин Б.А. “Delphi: Сделай сам.”

Москва “Эксмо”, 2005 год. - 110 стр.

Чиртик А. “Delphi: Трюки и эффекты”

Санкт-Петербург: “Питер”; 2007 год. – 400 стр.

Шабров В.Н. “Delphi: Программируй сам.”

Казань: “Абри”; 2

Информация о работе Создание БД и программирование в Delphi