pgrd.pas

小银行系统

unit pgrd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  PrnDbgeh, Menus, Grids, DBGridEh, Placemnt, DBGridEhImpExp,dbclient,
  DBSumLst, StdCtrls, DBFilter, ExtCtrls, Buttons, DBGrids, ComCtrls;

type
  TPgrdf = class(TForm)
    Popmenu: TPopupMenu;
    ppmCut: TMenuItem;
    ppmCopy: TMenuItem;
    ppmPaste: TMenuItem;
    ppmDelete: TMenuItem;
    ppmSelectAll: TMenuItem;
    N1: TMenuItem;
    ppmPreview: TMenuItem;
    ppmSaveSelection: TMenuItem;
    FormStorage1: TFormStorage;
    sumlst: TDBSumList;
    dlgsave: TSaveDialog;
    edtrecordcount: TEdit;
    prtgrd: TPrintDBGridEh;
    grdlst: TDBGridEh;
    procedure ppmCutClick(Sender: TObject);
    procedure ppmCopyClick(Sender: TObject);
    procedure ppmPasteClick(Sender: TObject);
    procedure ppmDeleteClick(Sender: TObject);
    procedure ppmSelectAllClick(Sender: TObject);
    procedure ppmPreviewClick(Sender: TObject);
    procedure ppmSaveSelectionClick(Sender: TObject);
    procedure grdlstSortMarkingChanged(Sender: TObject);
    procedure BbnfindClick(Sender: TObject);
    procedure grdlstKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure grdlstEnter(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Pgrdf: TPgrdf;

implementation
uses hrtlib,main ;
{$R *.DFM}

procedure TPgrdf.ppmCutClick(Sender: TObject);
begin
  if (ActiveControl is TDBGridEh) then
    with TDBGridEh(ActiveControl) do
      if CheckCutAction and (geaCutEh in EditActions) then
        DBGridEh_DoCutAction(TDBGridEh(ActiveControl),False);
end;

procedure TPgrdf.ppmCopyClick(Sender: TObject);
begin
  if (ActiveControl is TDBGridEh) then
    with TDBGridEh(ActiveControl) do
      if CheckCopyAction and (geaCopyEh in EditActions) then
        DBGridEh_DoCopyAction(TDBGridEh(ActiveControl),False);
end;

procedure TPgrdf.ppmPasteClick(Sender: TObject);
begin
  if (ActiveControl is TDBGridEh) then
    with TDBGridEh(ActiveControl) do
      if CheckPasteAction and (geaPasteEh in EditActions) then
        DBGridEh_DoPasteAction(TDBGridEh(ActiveControl),False);
end;

procedure TPgrdf.ppmDeleteClick(Sender: TObject);
begin
  if (ActiveControl is TDBGridEh) then
    with TDBGridEh(ActiveControl) do
      if CheckDeleteAction and (geaDeleteEh in EditActions) then
        DBGridEh_DoDeleteAction(TDBGridEh(ActiveControl),False);
end;

procedure TPgrdf.ppmSelectAllClick(Sender: TObject);
begin
  if (screen.ActiveControl is TDBGridEh) then
    with TDBGridEh(screen.ActiveControl) do
      if CheckSelectAllAction and (geaSelectAllEh in EditActions) then
        Selection.SelectAll;
end;

procedure TPgrdf.ppmPreviewClick(Sender: TObject);
var Strshead,strsfoot:Tstringlist ;
begin
  if (screen.ActiveControl is TDBGridEh) then
  begin
    Strshead := Tstringlist.Create ;
    strsfoot := Tstringlist.Create ;
    strshead.Add(hrtlib.gltd + ' ' +self.caption + '