u_user.pas

c/s系统。 delphi 6+access 运行前先配置数据环境：把db文件夹复制到c：下 要编译请安装第三方控件fastreport2.47 这是我的小小的毕业设计

unit u_user;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Mask, DBCtrls, DB, DBTables, Grids, DBGrids,
  ExtCtrls, ADODB, Menus;

type
  Tuser_f = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBRadioGroup1: TDBRadioGroup;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit1: TEdit;
    Button2: TButton;
    Button1: TButton;
    GroupBox3: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
   

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  user_f: Tuser_f;

implementation
  uses u_dm;
{$R *.dfm}





procedure Tuser_f.Button1Click(Sender: TObject);


begin


   if length(edit1.text)=0 then

       begin
        showmessage('请输入用户名');
       if length(edit2.text)=0 then
       showmessage('请输入密码')
      end
   else
      begin
        if length(edit2.text)=0 then
        showmessage('请输入密码')
        else

       if edit2.Text=edit3.Text then
            with dm.user do
              begin

   
   edit;
   fieldvalues['id']:=edit1.text;
   fieldvalues['passwd']:=edit2.Text;
   if radiobutton1.checked=true
     then fieldvalues['authority']:=0;
  if radiobutton2.checked=true
     then  fieldvalues['authority']:=1;
   post;
   showmessage('你已成功修改用户信息');
   edit1.Text:='';
   edit2.text:='';
   edit3.text:='';
   end
   else
    application.messagebox('请重新确认密码！','确认失败',mb_ok);
   end;
   
 end;


procedure Tuser_f.Button2Click(Sender: TObject);
begin

   if length(edit1.text)=0 then

       begin
        showmessage('请输入用户名');
       if length(edit2.text)=0 then
       showmessage('请输入密码')
      end
  else
    begin
     if length(edit2.text)=0 then
     showmessage('请输入密码')
     else
     if edit2.Text=edit3.Text then
    with dm.user do
    begin

    append;
    fieldvalues['id']:=edit1.text;
    fieldvalues['passwd']:=edit2.Text;
   if radiobutton1.checked=true
     then fieldvalues['authority']:=0;
   if radiobutton2.checked=true
     then  fieldvalues['authority']:=1;
     post;
   showmessage('你已成功添加了新用户');
   edit1.Text:='';
   edit2.text:='';
   edit3.Text:='';
   end
   else
    application.messagebox('请重新确认密码！','确认失败',mb_ok);
   end;
 
 end;

procedure Tuser_f.Button3Click(Sender: TObject);
begin
 if (Application.MessageBox('是否确定要删除记录','确认删除',MB_YESNO+MB_ICONQUESTION)<>IDNO) then
        if (dm.user.Recordcount>0)then
            dm.user.Delete;
end;

end.