unit10.~pas

来自「学籍管理系统（MSS）是集计算机技术、网络通信技术为一体的信息系统工程」· ~PAS 代码 · 共 74 行

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, ExtCtrls;

type
  TtjyhForm = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Edituser: TEdit;
    Label3: TLabel;
    editpassword: TEdit;
    Buttonok: TButton;
    Buttoncancel: TButton;
    tableyonghu: TTable;
    procedure ButtonokClick(Sender: TObject);
    procedure ButtoncancelClick(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tjyhForm: TtjyhForm;

implementation

{$R *.dfm}

procedure TtjyhForm.ButtonokClick(Sender: TObject);
begin
 if edituser.Text='' then
 begin
 messagedlg('',mtwarning,[mbok],0);
 exit;
 end;
 with tableyonghu do
   begin
   open;
   setkey;
   if findkey([trim(edituser.Text)]) then
   begin
   messagedlg('该用户已经存在',mtwarning,[mbok],0);
   edituser.Text:='';
   editpassword.Text:='';
   edituser.SetFocus;
   close;
   end
   else
   open;
   append;
   fieldvalues['yonghu']:=trim(edituser.Text);
   fieldvalues['kouling']:=trim(editpassword.text);
   fieldvalues['quanxian']:='';
   post;
   modalresult:=mrok;
   end;
   end;

procedure TtjyhForm.ButtoncancelClick(Sender: TObject);
begin
 close;
end;

end.