ГлавнаяГотовые работы Разработка базы данных

Готовая курсовая работа

на тему:

«Разработка базы данных»









Y N

Цена: 1,200 руб.

Номер: V12875

Предмет: Программирование

Год: 2008

Тип: курсовые

Отзывы

Айжамал 26.08.2020
Вас беспокоит автор статьи Айжамал из Кыргызстана,  моя статья опубликована, и в этом ваша заслуга. Огромная благодарность Вам за оказанные услуги.
Татьяна М. 12.06.2020
Спасибо Вам за сотрудничество! Я ВКР защитила на 5 (пять). Огромное спасибо Вам и Вашей команде Курсовой проект.
Юлианна В. 09.04.2018
Мы стали Магистрами)))
Николай А. 01.03.2018
Мария,добрый день! Спасибо большое. Защитился на 4!всего доброго
Инна М. 14.03.2018
Добрый день,хочу выразить слова благодарности Вашей и организации и тайному исполнителю моей работы.Я сегодня защитилась на 4!!!! Отзыв на сайт обязательно прикреплю,друзьям и знакомым  буду Вас рекомендовать. Успехов Вам!!!
Ольга С. 09.02.2018
Курсовая на "5"! Спасибо огромное!!!
После новогодних праздников буду снова Вам писать, заказывать дипломную работу.
Ксения 16.01.2018
Спасибо большое!!! Очень приятно с Вами сотрудничать!
Ольга 14.01.2018
Светлана, добрый день! Хочу сказать Вам и Вашим сотрудникам огромное спасибо за курсовую работу!!! оценили на \5\!))
Буду еще к Вам обращаться!!
СПАСИБО!!!
Вера 07.03.18
Защита прошла на отлично. Спасибо большое :)
Яна 06.10.2017
Большое спасибо Вам и автору!!! Это именно то, что нужно!!!!!
Спасибо, что ВЫ есть!!!

Поделиться

Введение
Содержание
Литература
Исходный текст программ.

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 руб.

Похожие работы:

Назначение и функционирование Единой государственной системы управления и передачи данных 2. Создание и управление базами данных в MS Excel (база данных прилагается) 3. Создание и управление базами данных в MS Access ➨

...

Разработка электронного учебника "Электронные базы данных" с тестированием знаний. в среде Delphi 7 + исходники и компоненты ➨

ВВЕДЕНИЕ

На предприятии ТОО «Каскад+» ведутся работы по внедрению в эксплуатацию различных высокотехнологичных ...

«Создание базы данных «Книга - почтой»». База данных(MS Access) + отчет. ➨

...

Разработка небольшой базы данных с помощью языка программирования C++ ➨

В данной работе рассматриваются экономические предпосылки и факторы для создания программного изделия. И в частности ...

Разработка базы данных для ювелирного интернет-магазина (среда разработки - MySql) ➨

Введение В современном обществе то место, которое занимает торговый бизнес невозможно переоценить. Каждый день ...

Поиск по базе выполненных нами работ: