Разработка программного приложения "Виртуальный магазин по продаже мебели"

Создание программного приложения для осуществления основных функций по заказу мебели, регистрации клиентов, сотрудничеству с поставщиками. Разработка интерфейса прикладной программы. Логическое проектирование базы данных и SQL-скрипт генерации таблиц.

Рубрика Программирование, компьютеры и кибернетика
Вид курсовая работа
Язык русский
Дата добавления 11.02.2013
Размер файла 2,4 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Colum:=XL.workbooks[1].worksheets['поставщик'].Rows;

sheet:=XL.workbooks[1].worksheets['поставщик'];

index:=4;

table1.First;

for i:=0 to table1.RecordCount-1 do

begin

t:=t+1;

sheet.cells[index,1]:=t;

sheet.cells[index,2]:=table1.Fields[0].AsString;

sheet.cells[index,3]:=table1.Fields[1].AsString;

sheet.cells[index,4]:=table1.Fields[2].AsString;

sheet.cells[index,5]:=table1.Fields[3].AsString;

sheet.cells[index,6]:=table1.Fields[4].AsString;

sheet.cells[index,7]:=table1.Fields[5].AsString;

inc(index);

table1.Next;

end; end;

procedure TPostav.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

ReleaseCapture;

Perform ( WM_SYSCOMMAND, SC_MOVE+2, 0 );

end;

procedure TPostav.N4Click(Sender: TObject);

begin

Postav.WindowState := wsMinimized; end; end.

Форма 6 - Заказ

unit Unit6;

interface

uses

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

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls,

Mask, ComCtrls, jpeg, RpCon, RpConDS, RpDefine, RpRave, XPMan, ComObj;

type

TZakaz = class(TForm)

DataSource1: TDataSource;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

DBGrid1: TDBGrid;

Qzakaz: TQuery;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

RadioGroup1: TRadioGroup;

Edit22: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Label7: TLabel;

Edit5: TEdit;

Label8: TLabel;

Edit6: TEdit;

Label9: TLabel;

Edit7: TEdit;

DSpostav: TDataSource;

DBGpostav: TDBGrid;

t_postav: TTable;

T_zakaz: TTable;

T_klient: TTable;

DSklient: TDataSource;

DBGklient: TDBGrid;

T_mebel: TTable;

DSmebel: TDataSource;

DBGmebel: TDBGrid;

T_oplata: TTable;

DSoplata: TDataSource;

DBGoplata: TDBGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

N3: TMenuItem;

N4: TMenuItem;

XPManifest1: TXPManifest;

QzakazZakaz_id: TSmallintField;

QzakazData_zakaza: TDateField;

QzakazData_ispol: TDateField;

QzakazPostav_id: TSmallintField;

QzakazKlient_id: TSmallintField;

QzakazMeb_id: TSmallintField;

QzakazOplata_id: TSmallintField;

Qzakazname_p: TStringField;

Qzakazfam: TStringField;

Qzakazname_m: TStringField;

Qzakazname_b: TStringField;

Qzakaznomer_s: TStringField;

Qzakazcena: TStringField;

T_zakazZakaz_id: TSmallintField;

T_zakazData_zakaza: TDateField;

T_zakazData_ispol: TDateField;

T_zakazPostav_id: TSmallintField;

T_zakazKlient_id: TSmallintField;

T_zakazMeb_id: TSmallintField;

T_zakazOplata_id: TSmallintField;

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

procedure DBGpostavCellClick(Column: TColumn);

procedure Edit2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure DBGklientCellClick(Column: TColumn);

procedure Edit3MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure DBGmebelCellClick(Column: TColumn);

procedure Edit4MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure DBGoplataCellClick(Column: TColumn);

procedure Edit5MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure RadioGroup1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure DateTimePicker1Click(Sender: TObject);

procedure DateTimePicker2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

private

nz,n,postav,oplata,meb,klient:short; a:integer; t:integer;

{ Private declarations }

public

{ Public declarations }

end;

var

Zakaz: TZakaz;

implementation

uses Unit1, Unit3, Unit5;

{$R *.dfm}

procedure TZakaz.N1Click(Sender: TObject);

begin

Glavn.Show;

end;

procedure TZakaz.N2Click(Sender: TObject);

begin

Zakaz.Close;

end;

procedure TZakaz.FormCreate(Sender: TObject);

begin

Zakaz.BorderStyle := bsToolWindow;

//edit0.Text:=datetostr(date);

//edit1.Text:=datetostr(date);

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

edit7.Text:='';

end;

procedure TZakaz.DBGrid1CellClick(Column: TColumn);

begin

nz:=qzakaz.Fields[0].Value;

end;

procedure TZakaz.DBGpostavCellClick(Column: TColumn);

begin

postav:=t_postav.Fields[0].Value;

edit2.Text:=t_postav.Fields[1].Value;

dbgpostav.Visible:=false;

end;

procedure TZakaz.Edit2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

dbgpostav.Visible:=true;

end;

procedure TZakaz.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

ReleaseCapture;

Perform ( WM_SYSCOMMAND, SC_MOVE+2, 0 );

dbgpostav.Visible:=false;

dbgklient.Visible:=false;

dbgoplata.Visible:=false;

dbgmebel.Visible:=false;

end;

procedure TZakaz.DBGklientCellClick(Column: TColumn);

begin

klient:=t_klient.Fields[0].Value;

edit3.Text:=t_klient.Fields[1].Value;

dbgklient.Visible:=false;

end;

procedure TZakaz.Edit3MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

dbgklient.Visible:=true;

end;

procedure TZakaz.DBGmebelCellClick(Column: TColumn);

begin

meb:=t_mebel.Fields[0].Value;

edit4.Text:=t_mebel.Fields[1].Value;

edit7.Text:=t_mebel.Fields[6].Value+' руб';

dbgmebel.Visible:=false;

end;

procedure TZakaz.Edit4MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

dbgmebel.Visible:=true;

end;

procedure TZakaz.DBGoplataCellClick(Column: TColumn);

begin

oplata:=t_oplata.Fields[0].Value;

edit5.Text:=t_oplata.Fields[1].Value;

edit6.Text:=t_oplata.Fields[2].Value;

dbgoplata.Visible:=false;

end;

procedure TZakaz.Edit5MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

dbgoplata.Visible:=true;

end;

procedure TZakaz.RadioGroup1Click(Sender: TObject);

begin

Qzakaz.Filtered:=true;

case RadioGroup1.ItemIndex

of

0:Qzakaz.Filtered:=false;

1:Qzakaz.Filter:='name_p='+ QuotedStr(Edit22.text);

2:Qzakaz.Filter:='fam='+ QuotedStr(Edit22.text);

3:Qzakaz.Filter:='name_m='+ QuotedStr(Edit22.text);

4:Qzakaz.Filter:='name_b='+ QuotedStr(Edit22.text);

5:Qzakaz.Filter:='nomer_s='+ QuotedStr(Edit22.text);

6:Qzakaz.Filter:='cena='+ QuotedStr(Edit22.text);

end; end;

procedure TZakaz.Button1Click(Sender: TObject);

begin

a:=2;

//edit0.Text:=qzakaz.Fields[1].Value;

//edit1.Text:=qzakaz.Fields[2].Value;

edit2.Text:=qzakaz.Fields[7].Value;

edit3.Text:=qzakaz.Fields[8].Value;

edit4.Text:=qzakaz.Fields[9].Value;

edit5.Text:=qzakaz.Fields[10].Value;

edit6.Text:=qzakaz.Fields[11].Value;

edit7.Text:=qzakaz.Fields[12].Value;

postav:=qzakaz.Fields[3].AsInteger;

klient:=qzakaz.Fields[4].AsInteger;

meb:=qzakaz.Fields[5].AsInteger;

oplata:=qzakaz.Fields[6].AsInteger;

end;

procedure TZakaz.Button2Click(Sender: TObject);

begin

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

or(edit4.Text='') or (edit5.Text='') or (edit6.Text='') or (edit7.Text='')

then showmessage('Введите все записи!')

else

if a=2 then

begin

t_zakaz.FindKey([nz]);

t_zakaz.Edit;

t_zakaz.Fields[0].Value:=nz;

t_zakaz.Fields[1].Value:=DateTimePicker1.Date;

//t_zakaz.Fields[1].Value:=strtodate(edit0.Text);

//t_zakaz.Fields[2].Value:=strtodate(edit1.Text);

t_zakaz.Fields[2].Value:=DateTimePicker2.Date;

t_zakaz.Fields[3].Value:=postav;

t_zakaz.Fields[4].Value:=klient;

t_zakaz.Fields[5].Value:=meb;

t_zakaz.Fields[6].Value:=oplata;

t_zakaz.Post;

t_zakaz.Close;

t_zakaz.Open;

qzakaz.Close;

qzakaz.Open;

a:=0;

end

else

begin

t_zakaz.Last;

n:=t_zakaz.Fields[0].Value;

t_zakaz.Append;

t_zakaz.Fields[0].Value:=n+1;

t_zakaz.Fields[1].Value:=DateTimePicker1.Date;

//t_zakaz.Fields[1].Value:=strtodate(edit0.Text);

t_zakaz.Fields[2].Value:=DateTimePicker2.Date;

//t_zakaz.Fields[2].Value:=strtodate(edit1.Text);

t_zakaz.Fields[3].Value:=postav;

t_zakaz.Fields[4].Value:=klient;

t_zakaz.Fields[5].Value:=meb;

t_zakaz.Fields[6].Value:=oplata;

t_zakaz.Post;

t_zakaz.Close;

t_zakaz.Open;

qzakaz.Close;

qzakaz.Open;

end;

//edit0.Text:='';

//edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

edit7.Text:='';

end;

procedure TZakaz.Button3Click(Sender: TObject);

begin

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

or(edit4.Text='') or (edit5.Text='') or (edit6.Text='') or (edit7.Text='')

then showmessage('Введите все записи!')

else

if a=2 then

begin

t_zakaz.FindKey([nz]);

t_zakaz.Edit;

t_zakaz.Fields[0].Value:=nz;

t_zakaz.Fields[1].Value:=DateTimePicker1.Date;

//t_zakaz.Fields[1].Value:=strtodate(edit0.Text);

t_zakaz.Fields[2].Value:=DateTimePicker2.Date;

//t_zakaz.Fields[2].Value:=strtodate(edit1.Text);

t_zakaz.Fields[3].Value:=postav;

t_zakaz.Fields[4].Value:=klient;

t_zakaz.Fields[5].Value:=meb;

t_zakaz.Fields[6].Value:=oplata;

t_zakaz.Post;

t_zakaz.Close;

t_zakaz.Open;

qzakaz.Close;

qzakaz.Open;

a:=0;

end

else

begin

t_zakaz.Last;

n:=t_zakaz.Fields[0].Value;

t_zakaz.Append;

t_zakaz.Fields[0].Value:=n+1;

t_zakaz.Fields[1].Value:=DateTimePicker1.Date;

//t_zakaz.Fields[1].Value:=strtodate(edit0.Text);

t_zakaz.Fields[2].Value:=DateTimePicker2.Date;

//t_zakaz.Fields[2].Value:=strtodate(edit1.Text);

t_zakaz.Fields[3].Value:=postav;

t_zakaz.Fields[4].Value:=klient;

t_zakaz.Fields[5].Value:=meb;

t_zakaz.Fields[6].Value:=oplata;

t_zakaz.Post;

t_zakaz.Close;

t_zakaz.Open;

qzakaz.Close;

qzakaz.Open;

end;

//edit0.Text:='';

//edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

edit7.Text:='';

end;

procedure TZakaz.Button4Click(Sender: TObject);

begin

t_zakaz.FindKey([nz]);

t_zakaz.Delete;

t_zakaz.Close;

t_zakaz.Open;

qzakaz.Close;

qzakaz.Open;

end;

procedure TZakaz.FormPaint(Sender: TObject);

var

bm:TBitMap;

begin

bm:=TBitMap.Create;

bm.Loadfromfile('5.bmp');

Zakaz.Canvas.Draw(0,0,bm);

end;

procedure TZakaz.DateTimePicker1Click(Sender: TObject);

begin

dbgpostav.Visible:=true;

end;

procedure TZakaz.DateTimePicker2Click(Sender: TObject);

begin

dbgpostav.Visible:=true;

end;

procedure TZakaz.N3Click(Sender: TObject);

var

XL,Sheet,Colum:Variant;

index,i:integer;

//Uses модуль ComObj

begin

t:=0;

qzakaz.Close;

qzakaz.Open;

XL:=CreateOLEObject('Excel.Application');

XL.visible:=true;

XL.WorkBooks.add('F:\BD_Kursovik\zakaz.xls');

XL.workbooks[1].worksheets[1].Name:='заказ' ;

Colum:=XL.workbooks[1].worksheets['заказ'].columns;

Colum:=XL.workbooks[1].worksheets['заказ'].Rows;

sheet:=XL.workbooks[1].worksheets['заказ'];

index:=4;

qzakaz.First;

for i:=0 to qzakaz.RecordCount-1 do

begin

t:=t+1;

sheet.cells[index,1]:=t;

sheet.cells[index,2]:=qzakaz.Fields[0].AsString;

sheet.cells[index,3]:=qzakaz.Fields[1].AsString;

sheet.cells[index,4]:=qzakaz.Fields[2].AsString;

sheet.cells[index,5]:=qzakaz.Fields[3].AsString;

sheet.cells[index,6]:=qzakaz.Fields[4].AsString;

sheet.cells[index,7]:=qzakaz.Fields[5].AsString;

sheet.cells[index,8]:=qzakaz.Fields[6].AsString;

sheet.cells[index,9]:=qzakaz.Fields[7].AsString;

sheet.cells[index,10]:=qzakaz.Fields[8].AsString;

inc(index);

qzakaz.Next;

end; end;

procedure TZakaz.N4Click(Sender: TObject);

begin

Zakaz.WindowState := wsMinimized;

end;

end.

Размещено на Allbest.ru


Подобные документы

  • Формирование входных и выходных данных, SQL–скрипт генерации таблиц базы данных. Создание интерфейса программного приложения и проектирование форм базы данных. Требования к аппаратно–программному обеспечению. Инструкции по установке и эксплуатации.

    курсовая работа [1,6 M], добавлен 08.02.2013

  • Разработка программного приложения WindowsForms для работы с базой данных на языке высокого уровня C# в автономном режиме с использованием ADO.NET. Проектирование реляционной модели базы данных, интерфейса приложения, основных функций и возможностей.

    курсовая работа [4,3 M], добавлен 30.06.2015

  • Спецификация требований к разрабатываемому приложению. Разработка структурной схемы интерфейса. Описание алгоритма шифрования DES. Разработка программного кода приложения "DES". Проведение исследования основных шагов для генерации ключей и шифрования.

    курсовая работа [398,4 K], добавлен 13.12.2022

  • Разработка программного приложения по учёту клиентов ОВО при ОВД по Боровскому району. Требования к техническому и программному обеспечению. Аномалии и защитное программирование. Структура таблиц для хранения информации и описание алгоритмов ее обработки.

    курсовая работа [3,9 M], добавлен 17.07.2014

  • Проектирование программного модуля: сбор исходных материалов; описание входных и выходных данных; выбор программного обеспечения. Описание типов данных и реализация интерфейса программы. Тестирование программного модуля и разработка справочной системы.

    курсовая работа [81,7 K], добавлен 18.08.2014

  • Разработка базы данных, позволяющей определять месторасположение на полке и код товаров в магазинных складах, количество и качество товаров. Концепция баз данных. Модели данных, описание данных проектирования. Разработка программного приложения.

    курсовая работа [1,1 M], добавлен 13.06.2014

  • Рассмотрение инфологической и даталогической модели базы данных кинотеатров города. Разработка базы данных в программе MS Access. Описание структуры приложения и интерфейса пользователя. Изучение SQL-запросов на вывод информации о кинотеатре и о фильме.

    курсовая работа [1,1 M], добавлен 04.09.2014

  • Разработка программного продукта - приложения, позволяющего заносить данные анкетирования в базу данных MS SQL. Описание логики работы приложения, особенности пользовательского интерфейса. Формы просмотра анкет, описание процедур и функций программы.

    курсовая работа [1,2 M], добавлен 16.08.2012

  • Рассмотрение теоретических основ проектирования. Анализ предметной области и разработка таблиц базы данных. Заполнение таблиц, поиск данных с помощью фильтра. Создание форм, разработка запросов. Создание и настройка отчетов, составление приложения.

    курсовая работа [2,8 M], добавлен 01.06.2014

  • Определение этапов разработки программного обеспечения. Разработка модели представления данных и структуры интерфейса. Проектирование входных и выходных форм. Этапы программирование приложения. Проверка функциональности на контрольном примере.

    курсовая работа [1,2 M], добавлен 25.05.2009

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.