u_pgrd.pas

小银行系统

unit U_pgrd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  PrnDbgeh, Menus, Grids, DBGridEh,DBGridEhImpExp,dbclient,
  DBSumLst, StdCtrls, ExtCtrls, Buttons, DBGrids, ComCtrls,
  wwDialog, Wwlocate, DBActns, ActnList, DB;

type
  TF_Pgrd = class(TForm)
    Popmenu: TPopupMenu;
    ppmCut: TMenuItem;
    ppmCopy: TMenuItem;
    ppmPaste: TMenuItem;
    ppmDelete: TMenuItem;
    ppmSelectAll: TMenuItem;
    N1: TMenuItem;
    ppmPreview: TMenuItem;
    ppmSaveSelection: TMenuItem;
    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);
    procedure keyshort(var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Pgrd: TF_Pgrd;

implementation
uses U_main ;
{$R *.DFM}

procedure TF_Pgrd.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 TF_Pgrd.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 TF_Pgrd.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 TF_Pgrd.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 TF_Pgrd.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 TF_Pgrd.ppmPreviewClick(Sender: TObject);
var Strshead,strsfoot:Tstringlist ;
begin
  if (screen.ActiveControl is TDBGridEh) then
  begin
    Strshead := Tstringlist.Create ;
    strsfoot := Tstringlist.Create ;
    strshead.Add(self.caption + '