Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
| Код |
187264 |
| Дата создания |
2015 |
| Страниц |
36
|
| Источников |
13 |
Мы сможем обработать ваш заказ (!) 25 апреля в 14:00 [мск] Файлы будут доступны для скачивания только после обработки заказа.
|
Содержание
Содержание
Введение 3
1. Исследование и описание предметной области 4
2. ER-модель предметной области 6
3. Реляционная модель 7
4. Описание приложения 10
Заключение 16
Список литературы 17
Приложения 18
Приложение 1. Форма документа «Ордер» 18
Приложение 2. Фрагменты исходного кода приложения 19
Фрагмент работы для ознакомления
Clear; SQL.Add(Qtxt); ExecSQL; end;GetOrders(); Form1.MYDB.Commitexcepton E: EDatabaseError do ErrSoob:= E.Message+#10#13#10#13+Qtxt;else ErrSoob:= Qtxt;end;ifErrSoob>'' thenbegin Form1.MyDB.Rollback;MessageBoxEx(Self.Handle,PCHAR('Отказприпопытке '+'удалить товар. Возможно, у Вас нет прав на '+ 'совершение этой операции. '+#10#13+#10#13+ErrSoob),'Ошибкаудаления', MB_OK or MB_ICONERROR, (SUBLANG_DEFAULT shl 10) or LANG_RUSSIAN);end;GetOrders1();end;procedure TForm6.ToolButton3Click(Sender: TObject);begin Panel1.Visible:=True; Button5.Visible:=True; Edit1.Text:=QueryOrd.FieldByName('RashodID').AsString; Edit2.Text:=QueryOrd.FieldByName('NdocRas').AsString; Edit3.Text:=QueryOrd.FieldByName('DataRas').AsString; Edit4.Text:=QueryOrd.FieldByName('ClientID').AsString;end;procedure TForm6.ToolButton10Click(Sender: TObject);begin Panel2.Visible:=True; Button7.Visible:=True; Edit5.Text:=QueryOrd1.FieldByName('RashodID').AsString; Edit10.Text:=QueryOrd1.FieldByName('TovID').AsString; Edit9.Text:=QueryOrd1.FieldByName('KolvoRas').AsString;end;procedure TForm6.ToolButton4Click(Sender: TObject);beginQtxt:= 'selectRashodID,NdocRas,DataRas,ClientID,Name from Rashod inner join Client on Rashod.ClientID=Client.ClientID Where DataRas between '''+edit6.text+ ''' and '''+edit7.text+''' '''+ 'Order By NdocRas';withQueryOrd do begin SQL.clear; sql.add(Qtxt); Open; end;end;procedure TForm6.Button2Click(Sender: TObject);beginQtxt:= 'select RashodID,NdocRas,DataRas,ClientID,Name,TovNaz,KolvoRas from RashodR,ClientC,Tovary T, TovToRashTr WHERE R.ClientID=C.ClientID and R.RashodID=Tr.RashodID and Tr.TovID=T.TovID and Rashod.RashodID = '+IntToStr(Form6.QueryOrd['RashodID']); With QueryOtch do begin SQL.Clear; SQL.Add(Qtxt); Open; end; frReport2.Clear; With frReport2 do begin // взятьформуотчета с дискаLoadFromFile(ExtractFilePath(Application.ExeName)+'Order.frf');// показать готовый отчетShowReport;end;end;procedure TForm6.Button3Click(Sender: TObject);beginQtxt:= 'selectRashodID,NdocRas,DataRas,ClientID,Name from Rashod inner join Client on Rashod.ClientID=Client.ClientID Where DataRas between '''+edit6.text+ ''' and '''+edit7.text+''' '''+ 'Order By NdocRas'; With QueryOtch do begin SQL.Clear; SQL.Add(Qtxt); Open; end; frReport1.Clear; With frReport1 do begin // взятьформуотчета с дискаLoadFromFile(ExtractFilePath(Application.ExeName)+'Orders.frf'); // присвоитьпеременнойотчетазначениеDictionary.Variables['DateOt']:=''''+Edit6.Text+'''';Dictionary.Variables['DateDo']:=''''+Edit7.Text+'''';// показать готовый отчетShowReport;end;end;procedure TForm6.N7Click(Sender: TObject);begin Form8.ShowModal;end;procedure TForm6.GridObCellClick(Column: TColumn);beginGetOrders1();end;procedure TForm6.Button6Click(Sender: TObject);begin Form1.MYDB.StartTransaction;ErrSoob:=''; TryQtxt:='Select RashodID As NewRashodID from Rashod';with Form6.QueryMody do begin SQL.Clear; SQL.Add(Qtxt); Open; end;Qtxt:= 'Insert into TovToRash( RashodID,TovID,KolvoRas ) '+ 'Values ( '+IntToStr(Form6.QueryOrd['RashodID'])+','+Edit10.Text+','+Edit9.Text+')' ;with Form6.QueryMody do begin SQL.Clear; SQL.Add(Qtxt); ExecSQL; end ;GetOrders1(); Panel1.Visible:=False; Button1.Visible:=False; Button2.Visible:=False; Form1.MYDB.Commitexcepton E: EDatabaseError do ErrSoob:= E.Message+#10#13#10#13+Qtxt;else ErrSoob:= Qtxt;end;ifErrSoob>'' thenbegin Form1.MyDB.Rollback;MessageBoxEx(Self.Handle,PCHAR('Отказприпопытке '+'добавить товар. Возможно, у Вас нет прав на '+ 'совершение этой операции. '+#10#13+#10#13+ErrSoob),'Ошибкадобавления', MB_OK or MB_ICONERROR, (SUBLANG_DEFAULT shl 10) or LANG_RUSSIAN);end;GetOrders1(); Panel2.Visible:=False; Button6.Visible:=False; Button7.Visible:=False;end;procedure TForm6.Button4Click(Sender: TObject);begin Form1.MYDB.StartTransaction;ErrSoob:=''; TryQtxt:='Select max(RashodID)+1 As NewRashodID from Rashod';with Form6.QueryMody do begin SQL.Clear; SQL.Add(Qtxt); Open; end;Qtxt:= 'Insert into Rashod( RashodID,NdocRas,DataRas,ClientID ) '+ 'Values ( '+IntToStr(Form6.QueryMody['NewRashodID'])+','''+Edit2.Text+''', '''+Edit3.Text+''', '+Edit4.Text+')' ;with Form6.QueryMody do begin SQL.Clear; SQL.Add(Qtxt); ExecSQL; end ;GetOrders(); Panel1.Visible:=False; Button1.Visible:=False; Button2.Visible:=False; Form1.MYDB.Commitexcepton E: EDatabaseError do ErrSoob:= E.Message+#10#13#10#13+Qtxt;else ErrSoob:= Qtxt;end;ifErrSoob>'' thenbegin Form1.MyDB.Rollback;MessageBoxEx(Self.Handle,PCHAR('Отказприпопытке '+'добавить ордер. Возможно, у Вас нет прав на '+ 'совершение этой операции. '+#10#13+#10#13+ErrSoob),'Ошибкадобавления', MB_OK or MB_ICONERROR, (SUBLANG_DEFAULT shl 10) or LANG_RUSSIAN);end;GetOrders(); Panel1.Visible:=False; Button4.Visible:=False; Button5.Visible:=False;end;procedure TForm6.Button5Click(Sender: TObject);begin Form1.MYDB.StartTransaction;ErrSoob:=''; TryQtxt:='Update Rashod Set NdocRas='''+edit2.text+''', DataRas='''+edit3.text+''', '+ 'ClientID='+edit4.text+' whereRashodID = '+QueryOrd.FieldByName('RashodID').AsString;with QueryMody do begin SQL.Clear; SQL.Add(Qtxt); ExecSQL; end;GetOrders(); Panel1.Visible:=False; Button1.Visible:=False; Form1.MYDB.Commitexcepton E: EDatabaseError do ErrSoob:= E.Message+#10#13#10#13+Qtxt;else ErrSoob:= Qtxt;end;ifErrSoob>'' thenbegin Form1.MyDB.Rollback;MessageBoxEx(Self.Handle,PCHAR('Отказприпопытке '+'изменить ордер. Возможно, у Вас нет прав на '+ 'совершение этой операции. '+#10#13+#10#13+ErrSoob),'Ошибкаизменения', MB_OK or MB_ICONERROR, (SUBLANG_DEFAULT shl 10) or LANG_RUSSIAN);end;GetOrders(); Panel1.Visible:=False; Button5.Visible:=False;end;procedure TForm6.Button7Click(Sender: TObject);beginForm1.MYDB.StartTransaction;ErrSoob:=''; TryQtxt:='Update TovToRash Set TovID='+edit10.text+', KolvoRas='+edit9.text+' whereRashodID = '+QueryOrd1.FieldByName('RashodID').AsString;with QueryMody do begin SQL.Clear; SQL.Add(Qtxt); ExecSQL; end;GetOrders1(); Panel2.Visible:=False; Button7.Visible:=False; Form1.MYDB.Commitexcepton E: EDatabaseError do ErrSoob:= E.Message+#10#13#10#13+Qtxt;else ErrSoob:= Qtxt;end;ifErrSoob>'' thenbegin Form1.MyDB.Rollback;MessageBoxEx(Self.Handle,PCHAR('Отказприпопытке '+'изменить ордер. Возможно, у Вас нет прав на '+ 'совершение этой операции. '+#10#13+#10#13+ErrSoob),'Ошибкаизменения', MB_OK or MB_ICONERROR, (SUBLANG_DEFAULT shl 10) or LANG_RUSSIAN);end;GetOrders1(); Panel2.Visible:=False; Button7.Visible:=False;end;end.
Список литературы [ всего 13]
Список литературы
1. Баженова И.Ю. Delphi 7. Самоучитель программиста – М.: КУДИЦ-Образ, 2004. – 448 с.
2. Гарсиа-Молина Г., Ульман Дж., Уидом Дж. Системы баз данных. Полный курс. Пер. с англ.: — М.: Изд. дом «Вильямс», 2004. — 1088 с.
3. Голицына О.Л., Максимов Н.В., Попов И.И. Базы данных: Учебное пособие. – М.: ФОРУМ: ИНФРА-М, 2007.
4. Дейт К. Введение в системы баз данных: проектирование. Реализация и управление. Пер. с англ. – СПб.: БХВ-Петербург, 2004. – 324 с.
5. Дж. Грофф, П. Вайнберг SQL: Полное руководство: Пер. с англ. – 3-е изд., перераб. и доп. – К.: Издательская группа BHV, 2015 – 960 с.
6. К. Дж. Дейт SQL и реляционная теория. Как грамотно писать код на SQL. – Пер. с англ. – СПб.: Символ-Плюс, 2010. – 480 с., ил.
7. Кузин А.В. Базы данных: учебное пособие / А.В. Кузин, С.В. Левонисова. – 5-е издание, исправ., – Москва: Академия, 2012. – 320 с.
8. Кузнецов С. Д. Основы баз данных. — 2-е изд. — М.: Интернет-Университет Информационных Технологий; БИНОМ. Лаборатория знаний, 2007. — 484 с.
9. Малыхина М.П. Базы данных: основы, проектирование, использование, 2-е изд. перераб. и доп. – СПб.: БХВ-Петербург, 2007. – 528 с.
10. Мартин Грабер. Введение в SQL, БХВ-Петербург, 2010. – 228 с.
11. Фараонов В.В. Программирование баз данных в Delphi 7 / В.В. Фараонов. СПб.: Питер, 2004.
12. Фленов М.Е. Библия Delphi – 3-е изд., перераб. и доп. – СПб.: БХВ-Петербург, 2011. – 688 с.
13. Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений / Под ред. Проф. А.Д. Хомоненко. – 6-е изд., СПб.: КОРОНА принт, 2009. – 736 с.
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
bmt: 0.00457