Мәліметтер өңдеуге негізделген қажетті формалар жасау
Microsoft Delphi -де жасалынған мәліметтер қорын Access клиенттік қолданбалы бағдарламасына шығару — клиенттің немесе дүкен қызметкерінің жұмысын жеңілдететін артықшылық. Мұндай бағдарлама жасағанда ең бастысы — қолданатын адамға ыңғайлы етіп жасау. Ең алғашқы форма — бағдарламаның негізгі формасы. Сол форма арқылы басқа формаларды ашып, «мәліметтерді өзгерту немесе іздеу функциясы бар» формаға және «сұраныстар мен отчеттар» формасына өтуге болады.
Ал «мәліметтерді өзгерту функциясы бар» формада TDBNavigator жаңа кітапханасын қостым. Кестелерді көрсету үшін сол кітапханадан TDBGrid компонентін қолдандым. Жасалған бағдарлама сұранысқа ие болу үшін арзанырақ және қолдануға ыңғайлы болу керек. Мәліметтер қосу үшін btn1Click мен Edit компонентін қолдандым. Button компонентіне еңгізген сұраныс жасауға
Бағдарлама бірнеше Unit-терден¹ тұрады:
Unit1(бірінші бетке арналған форма)
¹ Delphi-дегі модульдер тізімін белгілеу үшін қолданылады
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
img1: TImage;
btn1: TButton;
btn2: TButton;
btn3: TButton;
btn4: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure img1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit5;
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
form2.show;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
Form3.Show;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
Form5.Show;
end;
procedure TForm1.btn4Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.img1Click(Sender: TObject);
begin
end;
end.
Unit2(барлық кестелерді экранға шығару үшін)
procedure TForm2.btn1Click(Sender: TObject);
begin
Form1.Show;
end;
procedure TForm2.btn2Click(Sender: TObject);
begin
Form1.Show;
end;
procedure TForm2.btn3Click(Sender: TObject);
begin
Form1.Show;
end;
procedure TForm2.btn4Click(Sender: TObject);
begin
Form1.Show;
end;
procedure TForm2.btn5Click(Sender: TObject);
begin
Form1.Show;
end;
end.
Unit3(дүкен аты бойынша сұраныс жасауға арналған форма)
procedure TForm3.btn1Click(Sender: TObject);
begin
If not DBGrd1.DataSource.DataSet.Locate('MAG_ATAUI', Edt1.Text, [])
then ShowMessage('нету такого');
end;
procedure TForm3.btn2Click(Sender: TObject);
begin
Close;
end;
end.
Unit5(мәліметтерді өзгертуге арналған форма)
procedure TForm5.btn2Click(Sender: TObject);
begin
Form6.Show;
qry1.Insert;
end;
procedure TForm5.btn3Click(Sender: TObject);
begin
Form6.Show;
end;
procedure TForm5.btn4Click(Sender: TObject);
begin
Form1.Show;
end;
procedure TForm5.btn1Click(Sender: TObject);
begin
qry1.Delete;
end;
end.
Unit6(мәлімет қосу,өшіру, өзгерту үшін арналған форма)
procedure TForm6.btn1Click(Sender: TObject);
begin
form5.Show;
end;
procedure TForm6.btn2Click(Sender: TObject);
begin
Form5.qry1.Post;
end;
end.