Осымша в

Листинг

unit ufmMain;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, ComCtrls, ToolWin, ActnList, ImgList, ExtCtrls, DBCtrls,

Grids, DBGrids, StdCtrls, StdActns;

type

TMain = class(TForm)

ActionList1: TActionList;

MainMenu1: TMainMenu;

ImageList1: TImageList;

Splitter1: TSplitter;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

dbnPrihod: TDBNavigator;

dbnSpisanie: TDBNavigator;

dbgPrihod: TDBGrid;

dbgSpisanie: TDBGrid;

Panel5: TPanel;

Bevel1: TBevel;

Label1: TLabel;

Panel6: TPanel;

Bevel2: TBevel;

Label2: TLabel;

ActionExit: TFileExit;

N1: TMenuItem;

Exit1: TMenuItem;

ActionSclad: TAction;

ActionPodrazd: TAction;

ActionNomGrup: TAction;

ActionMat: TAction;

ActionStatiya: TAction;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

ActionMatVed: TAction;

N9: TMenuItem;

procedure dbgPrihodDblClick(Sender: TObject);

procedure dbnPrihodClick(Sender: TObject; Button: TNavigateBtn);

procedure dbgSpisanieDblClick(Sender: TObject);

procedure dbnSpisanieClick(Sender: TObject; Button: TNavigateBtn);

procedure ActionMatExecute(Sender: TObject);

procedure ActionScladExecute(Sender: TObject);

procedure ActionPodrazdExecute(Sender: TObject);

procedure ActionNomGrupExecute(Sender: TObject);

procedure ActionStatiyaExecute(Sender: TObject);

procedure ActionMatVedExecute(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

TMain: Tmain;

implementation

uses

udmMain, ufmPrihod, ufmSpisanie, ufmNSI, ufmMatVed;

{$R *.dfm}

procedure Tmain.ActionMatExecute(Sender: TObject);

begin

ShowNSIForm('Ì à ò å ð è à ë û ', 'Ì à ò å ð è à ë û ');

end;

procedure Tmain.ActionMatVedExecute(Sender: TObject);

begin

fmMatVed: = TfmMatVed.Create(Application);

fmMatVed.ShowModal;

fmMatVed.Free;

end;

procedure Tmain.ActionNomGrupExecute(Sender: TObject);

begin

ShowNSIForm('Í î ì å í ê ë à ò ó ð í û å Ã ð ó ï ï û ', 'Í î ì å í ê ë à ò ó ð í û å ã ð ó ï ï û ');

end;

procedure Tmain.ActionPodrazdExecute(Sender: TObject);

begin

ShowNSIForm('Ï î ä ð à ç ä å ë å í è ÿ ', 'Ï î ä ð à ç ä å ë å í è ÿ ');

end;

procedure Tmain.ActionScladExecute(Sender: TObject);

begin

ShowNSIForm('Ñ ê ë à ä û ', 'Ñ ê ë à ä û ');

end;

procedure Tmain.ActionStatiyaExecute(Sender: TObject);

begin

ShowNSIForm('Ñ ò à ò ü è Ç à ò ð à ò ', 'Ñ ò à ò ü è ç à ò ð à ò ');

end;

procedure Tmain.dbgPrihodDblClick(Sender: TObject);

begin

fmPrihod: = TfmPrihod.Create(Application);

fmPrihod.ShowModal;

fmPrihod.Free;

end;

procedure Tmain.dbgSpisanieDblClick(Sender: TObject);

begin

fmSpisanie: = TfmSpisanie.Create(Application);

fmSpisanie.ShowModal;

fmSpisanie.Free;

end;

procedure Tmain.dbnSpisanieClick(Sender: TObject; Button: TNavigateBtn);

begin

if Button in [nbEdit, nbInsert] then

dbgSpisanieDblClick(Sender);

end;

procedure Tmain.dbnPrihodClick(Sender: TObject; Button: TNavigateBtn);

begin

if Button in [nbEdit, nbInsert] then

dbgPrihodDblClick(Sender);

end;

end.

unit ufmMatVed;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, RpBase, RpSystem, RpDefine, RpRave, StdCtrls, Buttons, ComCtrls,

RpCon, RpConDS;

type

TfmMatVed = class(TForm)

RvProject: TRvProject;

RvSystem: TRvSystem;

bbtnStart: TBitBtn;

dtpBegin: TDateTimePicker;

dtpEnd: TDateTimePicker;

Label1: TLabel;

Label2: TLabel;

RvDataSetConnection: TRvDataSetConnection;

procedure bbtnStartClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmMatVed: TfmMatVed;

implementation

uses

udmMain;

{$R *.dfm}

procedure TfmMatVed.bbtnStartClick(Sender: TObject);

var

DBegin, DEnd: TDateTime;

Year, Month, Day: Word;

begin

with dmMain do

begin

DecodeDate(dtpBegin.DateTime, Year, Month, Day);

DBegin: = EncodeDate(Year, Month, Day);

DecodeDate(dtpEnd.DateTime, Year, Month, Day);

DEnd: = EncodeDate(Year, Month, Day) + EncodeTime(23, 59, 59, 999);

adospMatVed.Parameters.FindParam('ПериодС').Value: = DBegin;

adospMatVed.Parameters.FindParam('ПериодПо').Value: = DEnd;

adospMatVed.Open;

RvProject.Open;

RvProject.SelectReport('RaveProject', False);

RvProject.Execute;

RvProject.Close;

adospMatVed.Close;

end;

end;

procedure TfmMatVed.FormCreate(Sender: TObject);

begin

RvProject.ProjectFile: = ChangeFileExt(ParamStr(0), '.rav');

dtpBegin.DateTime: = Now;

dtpEnd.DateTime: = dtpBegin.DateTime;

end;

end.