Delphida ma`lumotlar omborini yaratish

Muallif: Mengliyuev Sh.

Qo`shilgan sana: 2016-02-08

Delphida ma`lumotlar omborini yaratish

Bizda talaba.mdb access da ma’lumotlar ombori mavjud bu quyidagi strukturaga ega.

Forma1 strukturasi quyida berilgan

Kodi quyida keltirilgan
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, Grids, DBGrids, ADODB, Menus;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
MainMenu1: TMainMenu;
Fayl1: TMenuItem;
Xisobot1: TMenuItem;
Chiqish1: TMenuItem;
Export1: TMenuItem;
Pdf1: TMenuItem;
Word1: TMenuItem;
Excell1: TMenuItem;
Chiqish2: TMenuItem;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure Chiqish1Click(Sender: TObject);
procedure Xisobot1Click(Sender: TObject);
procedure Pdf1Click(Sender: TObject);
procedure Word1Click(Sender: TObject);
procedure Excell1Click(Sender: TObject);
procedure Chiqish2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form2.show;
ADOQuery1.Insert;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form2.Show;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm1.Chiqish1Click(Sender: TObject);
begin
Form4.frxReport1.ShowReport;
Form4.frxReport1.Print;
end;

procedure TForm1.Xisobot1Click(Sender: TObject);
begin
form4.show;
Form4.frxReport1.ShowReport;
end;

procedure TForm1.Pdf1Click(Sender: TObject);
begin
Form4.frxReport1.Export(form4.frxPDFExport1);
end;

procedure TForm1.Word1Click(Sender: TObject);
begin
Form4.frxReport1.Export(form4.frxRtfExport1);
end;

procedure TForm1.Excell1Click(Sender: TObject);
begin
Form4.frxReport1.Export(form4.frxXLSExport1);
end;

procedure TForm1.Chiqish2Click(Sender: TObject);
begin
close;
end;

end.

Forma 2

Kodi quyida keltirilgan
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DBCtrls, Mask;

type
TForm2 = class(TForm)
DBEdit1: TDBEdit;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form1.ADOQuery1.Post;
end;

end.

Forma 3

Kodi quyida keltirilgan
unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm3 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
Form1.ADOQuery1.Delete;
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.

Dasturni yuklab olish

4522 marta o`qildi.

shoydullo adminstrator