Разработка программного приложения "Виртуальный магазин по продаже мебели"
Создание программного приложения для осуществления основных функций по заказу мебели, регистрации клиентов, сотрудничеству с поставщиками. Разработка интерфейса прикладной программы. Логическое проектирование базы данных и 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
