Готовая курсовая работа
на тему:«Разработка базы данных»
Цена: 1,200 руб.
Номер: V12875
Предмет: Программирование
Год: 2008
Тип: курсовые
Отзывы
Вас беспокоит автор статьи Айжамал из Кыргызстана, моя статья опубликована, и в этом ваша заслуга. Огромная благодарность Вам за оказанные услуги.
Спасибо Вам за сотрудничество! Я ВКР защитила на 5 (пять). Огромное спасибо Вам и Вашей команде Курсовой проект.
Мы стали Магистрами)))
Мария,добрый день! Спасибо большое. Защитился на 4!всего доброго
Добрый день,хочу выразить слова благодарности Вашей и организации и тайному исполнителю моей работы.Я сегодня защитилась на 4!!!! Отзыв на сайт обязательно прикреплю,друзьям и знакомым буду Вас рекомендовать. Успехов Вам!!!
Курсовая на "5"! Спасибо огромное!!!
После новогодних праздников буду снова Вам писать, заказывать дипломную работу.
После новогодних праздников буду снова Вам писать, заказывать дипломную работу.
Спасибо большое!!! Очень приятно с Вами сотрудничать!
Светлана, добрый день! Хочу сказать Вам и Вашим сотрудникам огромное спасибо за курсовую работу!!! оценили на \5\!))
Буду еще к Вам обращаться!!
СПАСИБО!!!
Буду еще к Вам обращаться!!
СПАСИБО!!!
Защита прошла на отлично. Спасибо большое :)
Большое спасибо Вам и автору!!! Это именно то, что нужно!!!!!
Спасибо, что ВЫ есть!!!
Спасибо, что ВЫ есть!!!
Введение
Содержание
Литература
Исходный текст программ.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
uses Unit3, Unit4, Unit5, Unit7, Unit10;
{$R *.dfm}
procedure TMainForm.N3Click(Sender: TObject);
begin
fmModel.show
end;
procedure TMainForm.N5Click(Sender: TObject);
begin
fmCustom.show
end;
procedure TMainForm.N6Click(Sender: TObject);
begin
fmAccount.show
end;
procedure TMainForm.N9Click(Sender: TObject);
begin
close
end;
procedure TMainForm.N8Click(Sender: TObject);
begin
fmReport.show
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TfmModel = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
procedure FormActivate(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
flag:integer;
end;
var
fmModel: TfmModel;
implementation
uses Unit2, Unit4, Unit7;
{$R *.dfm}
procedure TfmModel.FormActivate(Sender: TObject);
begin
if flag1 then
Datamodule2.Model.Filtered:=false;
end;
procedure TfmModel.FormDeactivate(Sender: TObject);
var i:integer;
str:TStrings;
begin
if flag = 1
then
for i:=0 to Datamodule2.Model.FieldCount-1 do
fmCustomAdd.StringGrid1.Rows[fmCustomAdd.k].Append(Datamodule2.Model.Fields[i].AsString);
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls;
type
TfmCustomAdd = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
GroupBox2: TGroupBox;
Label5: TLabel;
Edit1: TEdit;
Label6: TLabel;
Edit2: TEdit;
Button2: TButton;
Label7: TLabel;
Button1: TButton;
StringGrid1: TStringGrid;
Button3: TButton;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure init;
private
{ Private declarations }
public
k:integer;
end;
var
fmCustomAdd: TfmCustomAdd;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TfmCustomAdd.Button2Click(Sender: TObject);
begin
fmModel.flag:=1;
inc(k);
Stringgrid1.RowCount:= Stringgrid1.RowCount+1;
caption:=inttostr(k);
if edit1.Text''
then
Begin
Datamodule2.Model.Filtered:=false;
Datamodule2.Model.Filter:='CIDavto = '''+edit1.Text+'''';
Datamodule2.Model.Filtered:=true;
End;
if edit2.Text''
then
Begin
Datamodule2.Model.Filtered:=false;
Datamodule2.Model.Filter:='Firm = '''+edit2.Text+'''';
Datamodule2.Model.Filtered:=true;
End;
if (edit1.text='') and (edit2.Text='') then Datamodule2.Model.Filtered:=false;
caption:= Datamodule2.Model.Filter;
fmModel.Show;
end;
procedure TfmCustomAdd.FormCreate(Sender: TObject);
begin
k:=-1;
StringGrid1.RowCount:=0;
end;
procedure TfmCustomAdd.Button1Click(Sender: TObject);
var c,i:integer;
begin
edit6.text:='Select IDclient from client where ISeria='+edit4.text+' and INomer='+edit5.text;
Datamodule2.Query1.SQL.Add('Select IDclient from Client where ISeria='+edit4.text+' and INomer='+edit5.text);
Datamodule2.Query1.Open;
if Datamodule2.Query1.Eof
then
Begin
Datamodule2.Clients.Active:=true;
Datamodule2.Clients.Append;
datamodule2.Clients.fields[1].AsString:=Edit3.Text;
datamodule2.Clients.fields[2].AsString:=Edit4.Text;
datamodule2.Clients.fields[3].AsString:=Edit5.Text;
datamodule2.Clients.Post;
c:= datamodule2.Clients.fields[0].AsInteger;
End
else
c:=Datamodule2.Query1.Fields[0].AsInteger;
edit1.Text:=inttostr(c);
Datamodule2.Custom.Active:=true;
for i:=0 to k do
begin
Datamodule2.Custom.Append;
Datamodule2.Custom.fields[1].asinteger:=c;
Datamodule2.Custom.fields[2].AsString:=StringGrid1.Cells[0,i];
Datamodule2.Custom.fields[3].AsInteger:=0;
Datamodule2.Custom.Post;
end;
Datamodule2.QCustoms.Active:=false;
Datamodule2.QCustoms.Active:=true;
init;
Datamodule2.Query1.SQL.Clear;
end;
procedure TfmCustomAdd.init;
var i:integer;
begin
for i:=0 to k do
StringGrid1.Rows[i].Clear;
k:=-1;
end;
procedure TfmCustomAdd.Button3Click(Sender: TObject);
begin
init
end;
procedure TfmCustomAdd.Edit3Change(Sender: TObject);
begin
init;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Mask, Grids, DBGrids, StdCtrls,DB, DBCtrls;
type
TfmAccount = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Label2: TLabel;
DBGrid1: TDBGrid;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Button2: TButton;
Button3: TButton;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
Button4: TButton;
Button5: TButton;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmAccount: TfmAccount;
implementation
uses Unit2, Unit6, Unit9;
{$R *.dfm}
procedure TfmAccount.Button1Click(Sender: TObject);
begin
Datamodule2.Clients.Filtered:=false;
Datamodule2.Clients.Filter:='VFIO='''+edit1.Text+'*''';
Datamodule2.Clients.Filtered:=true;
fmClient.show;
label2.Show;
dbgrid1.Show;
button3.Show;
button4.Show;
end;
procedure TfmAccount.Button3Click(Sender: TObject);
begin
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
uses Unit3, Unit4, Unit5, Unit7, Unit10;
{$R *.dfm}
procedure TMainForm.N3Click(Sender: TObject);
begin
fmModel.show
end;
procedure TMainForm.N5Click(Sender: TObject);
begin
fmCustom.show
end;
procedure TMainForm.N6Click(Sender: TObject);
begin
fmAccount.show
end;
procedure TMainForm.N9Click(Sender: TObject);
begin
close
end;
procedure TMainForm.N8Click(Sender: TObject);
begin
fmReport.show
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TfmModel = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
procedure FormActivate(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
flag:integer;
end;
var
fmModel: TfmModel;
implementation
uses Unit2, Unit4, Unit7;
{$R *.dfm}
procedure TfmModel.FormActivate(Sender: TObject);
begin
if flag1 then
Datamodule2.Model.Filtered:=false;
end;
procedure TfmModel.FormDeactivate(Sender: TObject);
var i:integer;
str:TStrings;
begin
if flag = 1
then
for i:=0 to Datamodule2.Model.FieldCount-1 do
fmCustomAdd.StringGrid1.Rows[fmCustomAdd.k].Append(Datamodule2.Model.Fields[i].AsString);
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls;
type
TfmCustomAdd = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
GroupBox2: TGroupBox;
Label5: TLabel;
Edit1: TEdit;
Label6: TLabel;
Edit2: TEdit;
Button2: TButton;
Label7: TLabel;
Button1: TButton;
StringGrid1: TStringGrid;
Button3: TButton;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure init;
private
{ Private declarations }
public
k:integer;
end;
var
fmCustomAdd: TfmCustomAdd;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TfmCustomAdd.Button2Click(Sender: TObject);
begin
fmModel.flag:=1;
inc(k);
Stringgrid1.RowCount:= Stringgrid1.RowCount+1;
caption:=inttostr(k);
if edit1.Text''
then
Begin
Datamodule2.Model.Filtered:=false;
Datamodule2.Model.Filter:='CIDavto = '''+edit1.Text+'''';
Datamodule2.Model.Filtered:=true;
End;
if edit2.Text''
then
Begin
Datamodule2.Model.Filtered:=false;
Datamodule2.Model.Filter:='Firm = '''+edit2.Text+'''';
Datamodule2.Model.Filtered:=true;
End;
if (edit1.text='') and (edit2.Text='') then Datamodule2.Model.Filtered:=false;
caption:= Datamodule2.Model.Filter;
fmModel.Show;
end;
procedure TfmCustomAdd.FormCreate(Sender: TObject);
begin
k:=-1;
StringGrid1.RowCount:=0;
end;
procedure TfmCustomAdd.Button1Click(Sender: TObject);
var c,i:integer;
begin
edit6.text:='Select IDclient from client where ISeria='+edit4.text+' and INomer='+edit5.text;
Datamodule2.Query1.SQL.Add('Select IDclient from Client where ISeria='+edit4.text+' and INomer='+edit5.text);
Datamodule2.Query1.Open;
if Datamodule2.Query1.Eof
then
Begin
Datamodule2.Clients.Active:=true;
Datamodule2.Clients.Append;
datamodule2.Clients.fields[1].AsString:=Edit3.Text;
datamodule2.Clients.fields[2].AsString:=Edit4.Text;
datamodule2.Clients.fields[3].AsString:=Edit5.Text;
datamodule2.Clients.Post;
c:= datamodule2.Clients.fields[0].AsInteger;
End
else
c:=Datamodule2.Query1.Fields[0].AsInteger;
edit1.Text:=inttostr(c);
Datamodule2.Custom.Active:=true;
for i:=0 to k do
begin
Datamodule2.Custom.Append;
Datamodule2.Custom.fields[1].asinteger:=c;
Datamodule2.Custom.fields[2].AsString:=StringGrid1.Cells[0,i];
Datamodule2.Custom.fields[3].AsInteger:=0;
Datamodule2.Custom.Post;
end;
Datamodule2.QCustoms.Active:=false;
Datamodule2.QCustoms.Active:=true;
init;
Datamodule2.Query1.SQL.Clear;
end;
procedure TfmCustomAdd.init;
var i:integer;
begin
for i:=0 to k do
StringGrid1.Rows[i].Clear;
k:=-1;
end;
procedure TfmCustomAdd.Button3Click(Sender: TObject);
begin
init
end;
procedure TfmCustomAdd.Edit3Change(Sender: TObject);
begin
init;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Mask, Grids, DBGrids, StdCtrls,DB, DBCtrls;
type
TfmAccount = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Label2: TLabel;
DBGrid1: TDBGrid;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Button2: TButton;
Button3: TButton;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
Button4: TButton;
Button5: TButton;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmAccount: TfmAccount;
implementation
uses Unit2, Unit6, Unit9;
{$R *.dfm}
procedure TfmAccount.Button1Click(Sender: TObject);
begin
Datamodule2.Clients.Filtered:=false;
Datamodule2.Clients.Filter:='VFIO='''+edit1.Text+'*''';
Datamodule2.Clients.Filtered:=true;
fmClient.show;
label2.Show;
dbgrid1.Show;
button3.Show;
button4.Show;
end;
procedure TfmAccount.Button3Click(Sender: TObject);
begin
1,200 руб.
Похожие работы:
ВВЕДЕНИЕ
На предприятии ТОО «Каскад+» ведутся работы по внедрению в эксплуатацию различных высокотехнологичных ...
Разработка небольшой базы данных с помощью языка программирования C++ ➨
В данной работе рассматриваются экономические предпосылки и факторы для создания программного изделия. И в частности ...
Разработка базы данных для ювелирного интернет-магазина (среда разработки - MySql) ➨
Введение В современном обществе то место, которое занимает торговый бизнес невозможно переоценить. Каждый день ...
Поиск по базе выполненных нами работ:
Разделы по направлениям
Готовые дипломы по специальностям
Готовые работы по предметам