pas_usr.~pas

比较详细的功能

unit pas_usr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm_usr = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure addClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_usr: TForm_usr;

implementation
   uses pas_dm;
{$R *.dfm}

procedure TForm_usr.addClick(Sender: TObject);
var
   sql:string;
begin
   if (edit1.Text='') or (edit2.Text='') or (edit4.Text='') or (edit5.Text='')
   then
     begin
        showmessage('用户编号/中文名/密码不能为空');
        exit;
     end;

     if(edit4.Text<>edit5.Text)
     then
     begin
        showmessage('两次输入密码不同，请重输');
        exit;
     end;

     with pas_dm.DM.usrQuery do
     begin
        close;
        sql.Clear;
        sql.Add('select * from usr where U_no='''+edit1.Text+'''');
        open;
        if recordcount>0 then
        begin
          showmessage('用户编号重复，请重输编号');
          edit1.SetFocus;
          exit;
        end;
     end;

      try
          pas_dm.DM.usrQuery.Close;
          pas_dm.DM.usrQuery.SQL.Clear;
          sql:='insert into usr values('''+edit1.Text+''','''+
                edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit6.Text+''')';
//          showmessage(sql);
          pas_dm.DM.usrQuery.SQL.Add(sql);
          pas_dm.DM.usrQuery.ExecSQL;
          showmessage('添加 '+edit2.Text+' 成功！');  
        except
          showmessage('添加'+edit2.Text+'失败！');
        end;



end;

procedure TForm_usr.Button2Click(Sender: TObject);
begin
   if edit1.Text='' then
      begin
         showmessage('必须输入用户编号！！！');
         edit1.SetFocus;
         exit;
      end;
   dm.usrQuery.Close;
   dm.usrQuery.SQL.Clear;
   dm.usrQuery.SQL.Add('select * from usr where u_no='''+edit1.text+'''');
   dm.usrQuery.Open;
   if dm.usrQuery.RecordCount<>1 then
      begin
          showmessage('没有这个用户，请重输');
          edit1.SetFocus;
          exit;
      end;
   if IDOK=messagebox(handle,pchar(edit1.text+'将被删除'),'警告', MB_OKCANCEL)
   then
   begin

   dm.usrQuery.Close;
   dm.usrQuery.SQL.Clear;
   dm.usrQuery.SQL.Add('delete from usr where u_no='''+edit1.text+'''');
   dm.usrQuery.ExecSQL;

   if dm.usrQuery.RowsAffected=1 then
   begin
      showmessage(edit1.text+'删除成功');
   end;

   end;
end;

end.