addperson.pas

delphi+sql server 我是delphi的初学者

unit addperson;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DB, Mask, DBCtrls;

type
  Tfrmaddperson = class(TForm)
    pnl1: TPanel;
    btn1: TBitBtn;
    btn2: TBitBtn;
    dbedt1: TDBEdit;
    dbedt2: TDBEdit;
    dbedt3: TDBEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    ds1: TDataSource;
    procedure dbedt1KeyPress(Sender: TObject; var Key: Char);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure dbedt1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dbedt2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmaddperson: Tfrmaddperson;

implementation
uses UDM;

{$R *.dfm}

procedure Tfrmaddperson.dbedt1KeyPress(Sender: TObject; var Key: Char);
begin
    if not (key in ['0'..'9',#8]) then
         key:=#0;
end;

procedure Tfrmaddperson.btn1Click(Sender: TObject);
begin
  if (dbedt1.Text<>'')and(dbedt2.Text<>'')and(dbedt3.Text<>'')then
  begin
    dm.qryLOGIN.Post;
    close;
  end
  else
  begin
    messagebox(handle,'操作员代码，操作员姓名，密码不能为空!','系统提示',mb_iconinformation+mb_ok);
    exit;
  end;
  DM.qrylogin2.Close;
  dm.qrylogin2.Open;
end;

procedure Tfrmaddperson.btn2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrmaddperson.dbedt1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=$0D THEN
  DBEDT2.Text; 
end;

procedure Tfrmaddperson.dbedt2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=$0D THEN
   DBEDT3.SetFocus;
end;

end.