Управление базой данных Sport Shoes NIKE
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
/p>
Рисунок 3-Модуль добавления
2. Практическая часть
.1 Листинг программы с комментариями
Рассмотрим подробнее листинг блоков и форм.
Данный проект содержит 11 форм, которые являются основой проектируемого приложения Delphi.
Первая форма представлено загрузочным окном, её листинг выглядит следующим образом:
1)XPmanifest - использование оформление стиля WindowsXP.
2)Label - предназначен для помещения на форму надписей.
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, ExtCtrls, XPMan, jpeg, StdCtrls;= class(TForm): TXPManifest;: TTimer;: TProgressBar;: TImage;: TLabel;: TLabel;Timer1Timer(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;Unit3;
{$R *.dfm}TForm1.Timer1Timer(Sender: TObject);.Position:=5;(150);.Position:=10;(150);.Position:=20;(150);.Position:=25;(150);.Position:=30;(150);.Position:=35;(150);.Position:=40;(150);.Position:=45;(150);.Position:=50;(150);.Position:=55;(150);.Position:=60;(150);.Position:=65;(150);.Position:=70;(150);.Position:=75;(150);.Position:=80;(150);.Position:=85;(150);.Position:=90;(150);.Position:=98;(150);.Position:=100;.Enabled:=false;.Visible:=false;.show;
end;.
Вторая форма. На этой форме представлен просмотр базы данных. Листинг данной формы выглядит следующим образом:
unit Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, jpeg, ExtCtrls, DBCtrls, XPMan, Grids, DBGrids, StdCtrls,, Xmlxform;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TXPManifest;: TDBNavigator;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TDBGrid;: TMenuItem;: TMenuItem;: TButton;: TPanel;: TTimer;: TLabel;: TLabel;: TXMLTransformClient;: TImage;: TMenuItem;N8Click(Sender: TObject);Button7Click(Sender: TObject);Button6Click(Sender: TObject);Button5Click(Sender: TObject);N7Click(Sender: TObject);Button2Click(Sender: TObject);N4Click(Sender: TObject);N6Click(Sender: TObject);Button4Click(Sender: TObject);N5Click(Sender: TObject);Button3Click(Sender: TObject);N3Click(Sender: TObject);Button1Click(Sender: TObject);N10Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);N12Click(Sender: TObject);N9Click(Sender: TObject);N11Click(Sender: TObject);Timer1Timer(Sender: TObject);Button8Click(Sender: TObject);N13Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm2;Unit2, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,Unit12,
Unit11;
{$R *.dfm}
Третья форма является формой сортировки базы данных. На ней представлено множество компонентов: RadioGroup1, RadioGroup2, Edit1, DataSource1, Query1, XPManifest1, button1, button2. Листинг третьей формы:
Edit1, Edit2, Edit3, Edit4, Edit5, Edit6 - предназначены для ввода данных в базу данных;
unit Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, XPMan, StdCtrls, jpeg, ExtCtrls;= class(TForm): TGroupBox;: TRadioButton;: TButton;: TButton;: TRadioButton;: TRadioButton;: TRadioButton;: TRadioButton;: TRadioButton;: TImage;Button1Click(Sender: TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm3;Unit2, Unit3;
{$R *.dfm}TForm3.Button1Click(Sender: TObject);RADIOBUTTON1.Checked THEN.ADOTable1.SORT:=Код_товара;RADIOBUTTON2.Checked THEN.ADOTable1.SORT:=Наименование;RADIOBUTTON3.Checked THEN.ADOTable1.SORT:=Цена у е;RADIOBUTTON4.Checked THEN.ADOTable1.SORT:=Цена руб;RADIOBUTTON5.Checked THEN.ADOTable1.SORT:=Гарантия;RADIOBUTTON6.Checked THEN.ADOTable1.SORT:=Колличество;;TForm4.Button2Click(Sender: TObject);.show;.Visible:=False;;
end.
Четвёртая форма является окном добавления данных в базу данных. Листинг четвёртой формы:
unit Unit4;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, jpeg, ExtCtrls, StdCtrls, XPMan;= class(TForm): TButton;: TButton;: TPanel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TImage;: TImage;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Edit1KeyPress(Sender: TObject; var Key: Char);Edit4KeyPress(Sender: TObject; var Key: Char);Edit5KeyPress(Sender: TObject; var Key: Char);Edit7KeyPress(Sender: TObject; var Key: Char);Edit8KeyPress(Sender: TObject; var Key: Char);
{ Private declarations }
{ Public declarations };: TForm4;Unit2, Unit3;
{$R *.dfm}TForm5.Button1Click(Sender: TObject);.ADOTable1.Insert;
DATAMODULE2.ADOTable1.FieldByName(_).AsString
:=EDIT1.Text;
DATAMODULE2.ADOTable1.FieldByName().AsString
:=EDIT2.Text;
DATAMODULE2.ADOTable1.FieldByName().AsString
:=EDIT3.Text;
DATAMODULE2.ADOTable1.FieldByName(__).AsString
:=EDIT4.Text;
DATAMODULE2.ADOTable1.FieldByName(_).AsString
:=edit5.Text;
DATAMODULE2.ADOTable1.FieldByName().AsString
:=edit6.Tеxt;.ADOTable1.Post;.Text:=;.Text:=;.Text:=;.Text:=;.Text:=;.Text:=;.Visible:=False;;;TForm5.Button2Click(Sender: TObject);.Text:=;.Text:=;.Text:=;.Text:=;.Text:=;.Text:=;.Show;.Visible:=False;;TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#13 : Edit1.SetFocus;Key:=Chr(0);;;TForm4.Edit4KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#13 : Edit1.SetFocus;Key:=Chr(0);;;TForm4.Edit5KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#13 : Edit1.SetFocus;Key:=Chr(0);;;TForm4.Edit7KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#13 : Edit1.SetFocus;Key:=Chr(0);;;TForm4.Edit8KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#13 : Edit1.SetFocus;Key:=Chr(0);;
end;end.
Пятая форма: форма поиска, поиск значений по заданному пользователем критерию.
unit Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, jpeg, StdCtrls, XPMan;= class(TForm): TGroupBox;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;: TButton;: TButton;: TXPManifest;: TImage;: TEdit;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button5Click(Sender: TObject);Edit1KeyPress(Sender: TObject; var Key: Char);Edit3KeyPress(Sender: TObject; var Key: Char);Edit4KeyPress(Sender: TObject; var Key: Char);Edit6KeyPress(Sender: TObject; var Key: Char);Edit7KeyPress(Sender: TObject; var Key: Char);Edit9KeyPress(Sender: TObject; var Key: Char);Edit10KeyPress(Sender: TObject; var Key: Char);Edit13KeyPress(Sender: TObject; var Key: Char);Edit15KeyPress(Sender: TObject; var Key: Char);Edit16KeyPress(Sender: TObject; var Key: Char);
{ Private declarations }
{ Public declarations };: TForm6;Unit2, Unit3;
{$R *.dfm}TForm5.Button1Click(Sender: TObject);,b,c,d,e,f:variant;:=DataModule2.ADOTable1.Lookup(;VarType(a)=varNull then:=DataModule2.ADOTable1.Lookup;.Text:=b;:=DataModule2.ADOTable1.Lookup;.Text:=c;:=DataModule2.ADOTable1.Lookup;.Text:=d;:=DataModule2.ADOTable1.Lookup.Text:=e;:=DataModule2.ADOTable1.Lookup;.Text:=f;;;TForm5.Button2Click(Sender: TObject);.Text:=;.Text:=;.Text:=;.Text:=;.Text:=;.Text:=;;TForm5.Button5Click(Sender: TObject);.Text:=;.Text:=;.Text:=;.Text:=;.Text:=;.Text:=;.Show;.Visible:=False;;TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#13 : Edit1.SetFocus;Key:=Chr(0);;;TForm5.Edit3KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#13 : Edit1.SetFocus;Key:=Chr(0);;;TForm5.Edit4KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#13 : Edit1.SetFocus;Key:=Chr(0);;;TForm5.Edit6KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#13 : Edit1.SetFocus;Key:=Chr(0);;;TForm5.Edit7KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#1