u_add_user.pas

delphi编的排课管理系统

unit u_add_user;

interface

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

type
  Tf_add_user = class(TForm)
    GroupBox1: TGroupBox;
    Bevel1: TBevel;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    e_name: TEdit;
    Label2: TLabel;
    e_mima: TEdit;
    Label3: TLabel;
    e_mima2: TEdit;
    Label4: TLabel;
    e_qx: TComboBox;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Table1: TTable;
    DataSource1: TDataSource;
    Bevel3: TBevel;
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_add_user: Tf_add_user;

implementation

{$R *.dfm}

function add_true(a:string;b:string;c:string;d:string):boolean;
begin
   if a='' then begin result:= false;showmessage('所要添加的用户名不能为空!'); exit end;
   if b='' then begin result:= false;showmessage('密码不能为空!'); exit end;
   if c='' then begin result:= false;showmessage('密码不能为空!'); exit end;
   if d='' then begin result:= false;showmessage('权限不能为空'); exit end;
   if b<>c then begin result:=false; showmessage('两次输入的密码不相同,无法添加!');EXIT END;
result:=true;
end;

procedure Tf_add_user.BitBtn1Click(Sender: TObject);
begin
 if add_true(e_name.Text ,e_mima.Text ,e_mima2.Text,e_qx.Text )=true then
 begin
   table1.Close;
   table1.Filtered:=false;
   table1.Filter :='id='''+e_name.Text+'''';
   table1.Filtered :=true;
   table1.Open;
   if table1.RecordCount =0 then
   begin
    table1.Close ;
    table1.Open;
    table1.Last ;
    table1.Append ;
    table1['id']:=e_name.Text ;
    table1['mima']:=e_mima.Text ;
    table1['jb']:=e_qx.text;
    table1.Post ;
    table1.Close;
    table1.Filtered :=false;
    table1.Filter :='';
    table1.Open;
    showmessage('添加完毕,请返回!');

    end
    else
    begin
    showmessage('该用户名已经存在!');
    table1.Close;
    table1.Filtered :=false;
    table1.Filter :='';
    table1.Open;
    end;

  end;

end;

procedure Tf_add_user.FormShow(Sender: TObject);
begin
table1.Open;

end;

procedure Tf_add_user.FormClose(Sender: TObject; var Action: TCloseAction);
begin
table1.close;

end;

procedure Tf_add_user.BitBtn2Click(Sender: TObject);
begin
table1.Close;
close;
end;

procedure Tf_add_user.BitBtn3Click(Sender: TObject);
begin
table1.Delete ;
end;

end.