u_changecard.pas

人事考勤系统

unit U_changecard;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, Db, DBTables;

type
  TF_changecard = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Query1: TQuery;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    MaskEdit3: TMaskEdit;
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure MaskEdit1Enter(Sender: TObject);
  private
    { Private declarations }
    empid:integer;
    Function check_cardnum(cardnum,tablename:string):Boolean;
  public
    { Public declarations }
  end;

var
  F_changecard: TF_changecard;

implementation

uses U_dm;

{$R *.DFM}

Function TF_changecard.check_cardnum(cardnum,tablename:string):Boolean;
begin
  with Query1 do
    begin
      close;
      sql.Clear;
      sql.add('select * from '+tablename+' where card_num='+''''+cardnum+'''');
      open;
    end;
  if Query1.RecordCount=0 then
    Result:=false
  else
    Result:=true;

end;

procedure TF_changecard.FormDestroy(Sender: TObject);
begin
 F_changecard:=nil;
end;

procedure TF_changecard.Button1Click(Sender: TObject);
var
  Query:TQuery;
  s:string;
begin
  if Length(TRIM(maskedit3.text))<>10 then
    begin
      showmessage('块