127
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls,
RpDefine, RpCon, RpConDS,
RpRenderText, RpRender, RpRenderCanvas, RpRenderPre-
view, RpBase,
RpSystem, RpRave;
type
TForm11 = class(TForm)
Label1: TLabel;
ADOTable1: TADOTable;
DataSource1: TDataSource;
Button2: TButton;
Button3: TButton;
ADOTable2: TADOTable;
RvDataSetConnection11: TRvDataSetConnection;
DBGrid1: TDBGrid;
RvProject11: TRvProject;
RvSystem1: TRvSystem;
RvRenderPreview1: TRvRenderPreview;
RvRenderText1: TRvRenderText;
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
128
uses Unit_Products, Spr_Postav, Spr_GR_Product,
SPR_Product, Postavki,
Kol_spisan,Spisan,Pereochenka,Prodaji;
{$R *.dfm}
procedure TForm11.Button3Click(Sender: TObject);
begin
Form11.Close;
end;
procedure TForm11.FormCreate(Sender: TObject);
begin
form11.DBGrid1.Columns[0].width:=40;
form11.DBGrid1.Columns[1].width:=60;
form11.DBGrid1.Columns[2].width:=140;
form11.DBGrid1.Columns[3].width:=60;
form11.DBGrid1.Columns[4].width:=60;
form11.DBGrid1.Columns[5].width:=80;
form11.DBGrid1.Columns[6].width:=100;
form11.DBGrid1.Columns[7].width:=110;
form11.DBGrid1.Columns[8].width:=140;
form11.DBGrid1.Columns[0].title.caption:= '¹ ';
form11.DBGrid1.Columns[1].title.caption:= '¹ ';
form11.DBGrid1.Columns[2].title.caption:= 'Íàèìåíîâàíèå
òîâàðîâ';
form11.DBGrid1.Columns[3].title.caption:= 'Êîë-âî';
form11.DBGrid1.Columns[4].title.caption:= 'Åä. èçì.';
form11.DBGrid1.Columns[5].title.caption:= 'Öåíà';
form11.DBGrid1.Columns[6].title.caption:= 'Ñóììà';
form11.DBGrid1.Columns[7].title.caption:= 'Äàòà';
form11.DBGrid1.Columns[8].title.caption:= 'Ïîñòàâùèê';
end;
procedure TForm11.Button2Click(Sender: TObject);
129
begin
form11.RvProject11. Open ;
form11.RvProject11.Execute;
Form11.RvProject11.Close;
end;
end.