Автор: Пользователь скрыл имя, 28 Февраля 2013 в 14:25, практическая работа
Алғашқы кілт - объектінің (жазбаның) әрбір данасын біреғей түрде жағастыратын атрибут (немесе атрибуттар тобы), Екінші реттегі кілт - бірнеше жазбалар (объект даналары) үшін мәні қайталанатын атрибут (немесе атрибуттар тобы). Ен алдымен, екінгиі реттегі кілттер жазбаларды іздестіру операцияларында қолданылады. Мәліметгер базасы ұғымымен мәліметтер базасын басқару жүйесінің ұғымы тығыз (МББЖ) байланысты.
3.1.5 Енгізілген мәліметтер
Енгізілген мәліметтер А қосымшасындағы суреттер
3.1.6 Шығарылған мәліметтер
Шығарылған мәліметтер Ә қосымшасындағы суреттер
Қорытынды
Бұл жұмыста екі кесте құрылады. Осы екі кестені байланыстырамыз: мұнда басты кесте бірінші кесте. Байланыстар бірінші кестедегі «Название блюда» өрісін екінші кестедегі «Название блюда» өрісімен байланыстырамыз, ал екінші байланыс бірінші кестедегі «Количество» өрісін екінші кестедегі «Количество» өрісімен байланыстырдым.
Бұл жұмыста
мен екі байланысқан кесте
бойынша мәліметтерді шығардым.
Осы жұмыстар
бойынша қорытындылайтын болсам
Delphi тілі арқылы қолданушыларға
қарапайым интерфейсті база
3.1.7 Қосымша А
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus, jpeg;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
procedure N2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
type zakaz=record
fio:String[20];
otdel:string[20];
naz_bl:string[20];
kol:INTEGER;
cena:integer;
end;
var kafe:array[1..50] of zakaz;
l,i,j:INTEGER;
implementation
uses Unit2, Unit4;
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
form4.show;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Label4: TLabel;
Label5: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit3;
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
{if (Edit2.Text='1') and(Edit1.Text='1') then
begin
{form3.Visible:=false;
form2.Visible:=true;
end else label3.Caption:='кате логин немесе пароль';
}end;
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.Close;
form1.show;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
if (Edit2.Text='uljan') and(Edit1.Text='12345') then
begin
form3.Visible:=true;
end else label3.Caption:='пароль
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm3 = class(TForm)
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
type zakaz=record
fio:String[20];
otdel:String[20];
naz:String[100];
kol:integer;
cena:integer;
end;
var bl:array[1..50] of zakaz;
l,i,j:INTEGER;
implementation
uses Unit1, Unit2;
{$R *.dfm}
procedure TForm3.Button2Click(Sender: TObject);
begin
form1.close;
form2.close;
form3.Close;
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
with stringgrid1 do
begin
cells[1,0]:=' ФИО';
cells[2,0]:=' Отдел';
cells[3,0]:=' Название блюда ';
cells[4,0]:=' кол-во ';
cells[5,0]:= 'Цена';
cells[0,1]:=' 1. ';
cells[0,2]:=' 2.';
cells[0,3]:=' 3. ';
Cells[0,4]:=' 4.'
end;
with stringgrid2 do
begin
cells[1,0]:=' Название блюда ';
cells[2,0]:=' кол-во ';
cells[3,0]:= 'Цена';
cells[4,0]:= 'Стоимость';
cells[0,1]:=' 1. ';
cells[0,2]:=' 2.';
cells[0,3]:=' 3. ';
Cells[0,4]:=' 4.'
end;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
for i:=1 to 4 do
with bl[i] do
begin
bl[i].fio:=string(stringgrid1.
bl[i].otdel:=string(
bl[i].naz:=string(stringgrid1.
bl[i].kol:=StrToInt(
bl[i].cena:=StrToInt(
end;
for i:=1 to 4 do
with bl[i] do
begin
stringgrid2.cells[1,i]:=
stringgrid2.cells[2,i]:=
stringgrid2.cells[3,i]:=
l:=bl[i].kol*bl[i].cena;
stringgrid2.cells[4,i]:=
end;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm4 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit3, Unit1;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
form4.Close;
form1.show;
end;
end.
Қосымша Ә
Қолданылған әдебиеттер тізімі