u_sele.pas

小银行系统

unit U_sele;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_pgrd, StdCtrls, Buttons, ExtCtrls, DBCtrls, ToolWin, ComCtrls,
  PrnDbgeh, DBSumLst, Menus, Grids, DBGridEh, wwDialog, Wwlocate,
  DBActns, ActnList, DB, Wwintl;

type
  TF_sele = class(TF_Pgrd)
    ToolBar2: TToolBar;
    DBNavigator2: TDBNavigator;
    SbQuery: TSpeedButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    ActionList1: TActionList;
    DataSetCancel1: TDataSetCancel;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetFirst1: TDataSetFirst;
    DataSetInsert1: TDataSetInsert;
    DataSetLast1: TDataSetLast;
    DataSetNext1: TDataSetNext;
    DataSetPost1: TDataSetPost;
    DataSetPrior1: TDataSetPrior;
    DataSetRefresh1: TDataSetRefresh;
    DataSetSearch1: TDataSetRefresh;
    DataSetCancel0: TDataSetRefresh;
    DataSetFilter1: TDataSetRefresh;
    DataSetPrint1: TDataSetRefresh;
    DataSetClose: TDataSetRefresh;
    DataSetApprove: TDataSetRefresh;
    wwLocateDialog1: TwwLocateDialog;
    wwIntl1: TwwIntl;
    procedure wwLocateDialog1InitDialog(Dialog: TwwLocateDlg);
    procedure grdlstDblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure SbQueryClick(Sender: TObject);
    procedure grdlstKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormActivate(Sender: TObject);
    procedure DataSetSearch1Execute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_sele: TF_sele;

implementation

{$R *.dfm}

procedure TF_sele.wwLocateDialog1InitDialog(Dialog: TwwLocateDlg);
begin
  inherited;
  Dialog.CancelBtn.Font.Name :='宋体';
  Dialog.CancelBtn.Font.Size :=9;

  Dialog.Font.Name:='宋体';
  Dialog.Font.Size :=9;
end;

procedure TF_sele.grdlstDblClick(Sender: TObject);
begin
  inherited;
  F_sele.ModalResult:=mrOK;
end;

procedure TF_sele.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //inherited;
  Action:=caFree;

end;

procedure TF_sele.FormDestroy(Sender: TObject);
begin
  //inherited;
  F_sele:=nil;

end;

procedure TF_sele.SbQueryClick(Sender: TObject);
begin
  inherited;
  if wwLocateDialog1.DataSource.DataSet.IsEmpty then exit;
  wwLocateDialog1.Execute;

end;

procedure TF_sele.grdlstKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key=vk_return then ModalResult:=mrOK;

end;

procedure TF_sele.FormActivate(Sender: TObject);
begin
  inherited;
  grdlst.SetFocus ;

end;

procedure TF_sele.DataSetSearch1Execute(Sender: TObject);
begin
  inherited;
  if wwLocateDialog1.DataSource.DataSet.IsEmpty then exit;
  wwLocateDialog1.Execute;

end;

end.