ufrmfactory.pas

来自「小银行系统」· PAS 代码 · 共 84 行

unit UfrmFactory;

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
  TfrmFactory = class(TF_child1_1)
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    ADOQpub: TADOQuery;
    ClientDataSet1fac_no: TStringField;
    ClientDataSet1fac_nm: TStringField;
    ClientDataSet1grp_no: TStringField;
    ClientDataSet1add_date: TStringField;
    ClientDataSet1edit_date: 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
  frmFactory: TfrmFactory;

implementation

uses U_main,UDM;

{$R *.dfm}

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

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

end;

procedure TfrmFactory.DBEdit2Enter(Sender: TObject);
var sqlstr:string;
begin
  inherited;
  sqlstr:='select count(*) as nn from factory where fac_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 TfrmFactory.DBEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key=13 then f_main.B_update.SetFocus ;

end;

end.