ufrmsec.pas

小银行系统

unit UfrmSec;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_child1_1, DosMove, DBTables, DB, DBClient, Provider, ADODB,

  StdCtrls, ExtCtrls,  Mask, DBCtrls, Grids, DBGridEh;

type
  TfrmSec = class(TF_child1_1)
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    ADOQpub: TADOQuery;
    ClientDataSet1SEC_NO: TStringField;
    ClientDataSet1sec_nm: TStringField;
    ClientDataSet1dep_no: TStringField;
    ClientDataSet1add_date: TStringField;
    ClientDataSet1edit_date: TStringField;
    ClientDataSet1sec_mrk: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure DBEdit2Enter(Sender: TObject);
    procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSec: TfrmSec;

implementation

uses U_main,UDM;

{$R *.dfm}

procedure TfrmSec.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  frmSec :=nil;
end;

procedure TfrmSec.FormActivate(Sender: TObject);
begin
  inherited;
  Memo1.Visible :=false;
  dbgrid1.Visible :=true;

end;

procedure TfrmSec.DBEdit2Enter(Sender: TObject);
var sqlstr:string;
begin
  inherited;
  sqlstr:='select count(*) as nn from sec where sec_no='''+DBEdit1.Text +'''';
  self.ADOQpub.Close ;
  self.ADOQpub.SQL.Text :=sqlstr ;
  self.ADOQpub.Active :=true;
  if (self.ClientDataSet1.State=dsInsert)  then
  begin
     if self.ADOQpub.FieldByName('nn').AsInteger >0 then
     begin
        MessageDlg('对不起该资料'+char(10)+'在你存档前已经存在.', mtInformation,[mbOk], 0);
        f_main.B_cancel.Click ;
        exit ;
     end;
  end;

end;

procedure TfrmSec.DBEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key=13 then f_main.B_update.SetFocus ;

end;

end.