3.1.2 Delphi ортасында мәліметтерді өңдеу үшін пішіндер құру
Дельфи ортасында пішін құру қадамдары: Пішін құру үшін Delphi7 (Пуск/Программы/Borland Delphi7) утилитасын жүктеу керек. Delphi7 жүктелген кезде Form1 терезесі пайда болады. BDE парағынан Table компонентін түсіріп DataBaseName, TableName алиас пен кесте атын беріп, Active қасиетінде True таңдау керек. DataSourse компонентін Form1 түсіріп, Dataset қасиетін беру керек. DBGrid компонентін Form1 түсіріп DataSourse қасиетін берген кезде Form1 таңдалған кестенің жазбаларымен толады. BitBtn түсіріп Kind қасиетінің керегін таңдап, жазбаларды қимылға келтіруге болады. Пішінді іске қосу үшін F9 басу керек.
3.1.3 Delphi ортасында байланысқан кестелер бойынша пішіндер құру
Delphi ортасында бірнеше байланысқан кестелер бойынша пішін құру үшін TQuery компонентін қолдану керек. Пішін құру үшін Delphi7 (Пуск/Программы/Borland Delphi7) утилитасын жүктеу керек. Delphi7 жүктелген кезде Formх терезесі пайда болады. BDE парағынан Query компонентін түсіріп, объекттер инспекторында SQL қасиетін беру керек. Мысалы:
DataSourse компонентін Form1 түсіріп, Dataset қасиетін беру керек. DBGrid компонентін Form1 түсіріп DataSourse қасиетін беру керек. Енді терезені безендіру үшін Label компонентін және Dbedit компоненттерін түсірі, керекті қасиеттерін,беріп жазбаларды қимылға келтіруге болады.
3.1.4 Delphi ортасында байланысқан кестелер бойынша есеп беруді құрастыру
Байланысқан кестелер бойынша пішін құру қадамдары жоғарыда көрсетілген, және формаға bitBtn компонентін қойып, caption қасиетіне «опубликовать отчет» деп береміз:
Сол терезеге RvTableConnection немесе RvQueryConnection (Rave парағынан )түсіріп, қасиеттерін беру керек. Енді Tools/RaveDesigner жүктеп, есеп беруді құруға болады. Rave Designer өз компоненттер палитрасына, объекттер инспекторына, объекттер ағашына және батырма құралдарының жиынтығына ие. Жобаға жаңа объект енгізу керек:File/New Data object. Бұл жерде жұмысқа мастер кіріседі. Келесі терезеден DataView таңдау керек, сонда есеп беру мәліметтер базасымен байланысады.
Tools/ReportWizards/SimpleTable таңдалған кестенің бағандарын көрсетеді, барлығын таңдаған кезде All таңдау керек.
Қажетті өлшемдерін береміз және есептеулер жүргіз үшін агрегаттық функцияларды қолданамыз. CalsType қасиетінде өзімізге керекті функцияны таңдаймыз және де қай баған бойынша есептеу жүретінін DataField қасиетінде беру керек.
Осы жұмыстағы бірінші пішінге қайта оралып, «Опубликовать отчет» батырмасын екі рет басып келесі программа жазу керек:
procedure TForm12.BitBtn1Click(Sender: TObject);
begin
RvProject1.Execute;
end;
4. ПРАКТИКАЛЫҚ БӨЛІМ
4.1 Программаның баяндалуы:
4.1.1 Жалпы мағұлматтар:
Бұл программа Delphi7 тілінде жазылған. Программаның орындалуы үшін MS-DOS операциялық жүйесі , Windows XP графикалық операциялық жүйесі және Borland Delphi программалау пакеті қажет, және C/SBD/sbddd да орналасқан.
4.1.2 Функционалдық арналуы:
Бұл программа жоғарыда көрсетілген есептің шығарылу жолын тексеріп, соларды салыстыруға арналған Delphi7 тілі арқылы іске асады. Бұл программа берілген үш таблица бойынша берілген адамның паспорты және туу туралы куәлігін шығарады.
4.1.3 Қолданылған техникалық құрал –жабдықтар:
4.1.4 Программаның жүктелуі және шақырылуы
Компьютерді қосу
Delphi программасын ашу
Программаны орындау
Нәтижені көру F9
Программаны сақтау Ctrl+S
Программадан шығу Exit or Ctrl+Q
4.1.5 Енгізілген мәліметтер
Енгізілген мәліметтер Ә қосымшасындағы суреттер
4.1.6 Шығарылған мәліметтер
Шығарылған мәліметтер Ә қосымшасындағы 21 беттегі суреттер
Косымша А
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
RabotasBD1: TMenuItem;
Klinet1: TMenuItem;
Nomer1: TMenuItem;
Servis1: TMenuItem;
Sxemadannuh1: TMenuItem;
Dokumenty1: TMenuItem;
Statistika1: TMenuItem;
oprogramme1: TMenuItem;
Vuhod1: TMenuItem;
Vuhodwindows1: TMenuItem;
obavtore1: TMenuItem;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
informaciyaklienta1: TMenuItem;
informciya1: TMenuItem;
informaciyaservisa1: TMenuItem;
cenaot4eta1: TMenuItem;
skidkiot4eta1: TMenuItem;
procedure Vuhodwindows1Click(Sender: TObject);
procedure Klinet1Click(Sender: TObject);
procedure Nomer1Click(Sender: TObject);
procedure Servis1Click(Sender: TObject);
procedure Sxemadannuh1Click(Sender: TObject);
procedure informaciyaklienta1Click(Sender: TObject);
procedure informciya1Click(Sender: TObject);
procedure informaciyaservisa1Click(Sender: TObject);
procedure obavtore1Click(Sender: TObject);
procedure cenaot4eta1Click(Sender: TObject);
procedure skidkiot4eta1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses unit2, Unit3, Unit4, Unit5, Unit6, Unit8, Unit11, Unit12, Unit15,
Unit13, Unit14;
{$R *.dfm}
procedure TForm1.Vuhodwindows1Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.Klinet1Click(Sender: TObject);
begin
form3.show;
end;
procedure TForm1.Nomer1Click(Sender: TObject);
begin
form4.show;
end;
procedure TForm1.Servis1Click(Sender: TObject);
begin
form5.show;
end;
procedure TForm1.Sxemadannuh1Click(Sender: TObject);
begin
form6.show;
end;
procedure TForm1.informaciyaklienta1Click(Sender: TObject);
begin
form8.show;
end;
procedure TForm1.informciya1Click(Sender: TObject);
begin
form11.show;
end;
procedure TForm1.informaciyaservisa1Click(Sender: TObject);
begin
form12.show;
end;
procedure TForm1.obavtore1Click(Sender: TObject);
begin
form15.show;
end;
procedure TForm1.cenaot4eta1Click(Sender: TObject);
begin
form13.show;
end;
procedure TForm1.skidkiot4eta1Click(Sender: TObject);
begin
form14.show;
end;
end.
unit Unit2;
interface
uses
SysUtils, Classes, DB, DBTables;
type
TDataModule2 = class(TDataModule)
DataSource1: TDataSource;
DataSource2: TDataSource;
DataSource3: TDataSource;
DataSource4: TDataSource;
DataSource5: TDataSource;
DataSource6: TDataSource;
Table1: TTable;
Table2: TTable;
Table3: TTable;
Query1: TQuery;
Query2: TQuery;
Query3: TQuery;
Database1: TDatabase;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
implementation
{$R *.dfm}
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Buttons;
type
TForm3 = class(TForm)
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
Label1: TLabel;
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses unit2;
{$R *.dfm}
procedure TForm3.BitBtn5Click(Sender: TObject);
begin
close;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
datamodule2.Table1.Edit;
end;
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
datamodule2.Table1.Append;
end;
procedure TForm3.BitBtn3Click(Sender: TObject);
begin
if(MessageDlg('udalit?',mtConfirmation,[mbYes,mbNo],0)=mrYes)then
Datamodule2.Table1.Delete;
end;
procedure TForm3.BitBtn4Click(Sender: TObject);
begin
datamodule2.Table1.Post;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, DBGrids;
type
TForm4 = class(TForm)
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
Label1: TLabel;
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses unit2;
{$R *.dfm}
procedure TForm4.BitBtn5Click(Sender: TObject);
begin
close;
end;
procedure TForm4.BitBtn4Click(Sender: TObject);
begin
datamodule2.Table2.Post;
end;
procedure TForm4.BitBtn3Click(Sender: TObject);
begin
if(MessageDlg('udalit?',mtConfirmation,[mbYes,mbNo],0)=mrYes)then
Datamodule2.Table2.Delete;
end;
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
datamodule2.Table2.Append;
end;
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
datamodule2.Table2.Edit;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Buttons;
type
TForm5 = class(TForm)
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses unit2;
{$R *.dfm}
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
datamodule2.Table3.Append;
end;
procedure TForm5.BitBtn5Click(Sender: TObject);
begin
close;
end;
procedure TForm5.BitBtn4Click(Sender: TObject);
begin
datamodule2.Table3.Post;
end;
procedure TForm5.BitBtn3Click(Sender: TObject);
begin
if(MessageDlg('udalit?',mtConfirmation,[mbYes,mbNo],0)=mrYes)then
Datamodule2.Table3.Delete;
end;
procedure TForm5.BitBtn2Click(Sender: TObject);
begin
datamodule2.Table3.edit;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm6 = class(TForm)
Image1: TImage;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses unit2;
{$R *.dfm}
procedure TForm6.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons;
type
TForm7 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
uses unit2;
{$R *.dfm}
procedure TForm7.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm8 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Edit1: TEdit;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
uses unit2, Unit7;
{$R *.dfm}
procedure TForm8.BitBtn1Click(Sender: TObject);
begin
Datamodule2.Query1.Active:=false;
DataModule2.Query1.ParamByName('fio').AsString:=Edit1.Text;
DataModule2.Query1.Active:=true;
form7.Show;
form8.Close;
end;
procedure TForm8.BitBtn2Click(Sender: TObject);
begin
close;
end;
end.
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, DBCtrls;
type
TForm9 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
uses unit2;
{$R *.dfm}
procedure TForm9.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.
unit Unit10;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons;
type
TForm10 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form10: TForm10;
implementation
uses unit2;
{$R *.dfm}
procedure TForm10.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm11 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Edit1: TEdit;
Label1: TLabel;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
uses Unit2, Unit9;
{$R *.dfm}
procedure TForm11.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TForm11.BitBtn1Click(Sender: TObject);
begin
Datamodule2.Query2.Active:=false;
DataModule2.Query2.ParamByName('tip').AsString:=Edit1.Text;
DataModule2.Query2.Active:=true;
form9.Show;
form11.Close;
end;
end.
unit Unit12;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm12 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Edit1: TEdit;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form12: TForm12;
implementation
uses unit2, Unit10;
{$R *.dfm}
procedure TForm12.BitBtn1Click(Sender: TObject);
begin
Datamodule2.Query3.Active:=false;
DataModule2.Query3.ParamByName('s').AsString:=Edit1.Text;
DataModule2.Query3.Active:=true;
form10.Show;
form12.Close;
end;
procedure TForm12.BitBtn2Click(Sender: TObject);
begin
close;
end;
end.
unit Unit13;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, Grids, DBGrids,
StdCtrls, Buttons;
type
TForm13 = class(TForm)
DBGrid1: TDBGrid;
RvProject1: TRvProject;
RvTableConnection5: TRvTableConnection;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form13: TForm13;
implementation
uses unit2;
{$R *.dfm}
procedure TForm13.BitBtn1Click(Sender: TObject);
begin
RvProject1.Execute;
end;
procedure TForm13.BitBtn2Click(Sender: TObject);
begin
close;
end;
end.
unit Unit14;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, RpCon, RpConDS, RpConBDE, RpDefine, RpRave,
StdCtrls, Buttons;
type
TForm14 = class(TForm)
DBGrid1: TDBGrid;
RvProject2: TRvProject;
RvTableConnection6: TRvTableConnection;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form14: TForm14;
implementation
uses unit2;
{$R *.dfm}
procedure TForm14.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TForm14.BitBtn1Click(Sender: TObject);
begin
RvProject2.Execute;
end;
end.
unit Unit15;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm15 = class(TForm)
Label1: TLabel;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form15: TForm15;
implementation
{$R *.dfm}
procedure TForm15.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.
Қосымша Ә
