u_system.~pas

是一小型门诊挂号软件

unit U_system;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons, jpeg;

type
  TF_system = class(TForm)
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    E_name: TEdit;
    Label1: TLabel;
    E_password: TEdit;
    Label2: TLabel;
    E_authority: TEdit;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    RadioGroup1: TRadioGroup;
    Image1: TImage;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
    procedure deleteuser(name:string);
    procedure editUser(name,password,authority:string);
    procedure insertUser(name,password,authority:string);
  public
    { Public declarations }
  end;

var
  F_system: TF_system;

implementation

uses u_datamodule;

{$R *.dfm}

procedure TF_system.FormShow(Sender: TObject);
begin
  f_dm.T_user.Open;
end;
//删除用户
procedure TF_system.deleteuser(name:string);
begin
     f_dm.Q.SQL := f_dm.UQ_user.DeleteSQL;
     f_dm.Q.ParamByName('name').AsString := name;
     f_dm.Q.ExecSQL ;
     f_dm.Q.Close ;
end;
 //修改用户
procedure TF_system.editUser(name,password,authority:string);
begin
     f_dm.Q.SQL := f_dm.UQ_user.ModifySQL ;
     f_dm.Q.ParamByName('name').AsString := name;
     f_dm.Q.ParamByName('password').AsString := password;
     f_dm.Q.ParamByName('authority').AsString := authority;
     f_dm.Q.ExecSQL ;
     f_dm.Q.Close ;
end;
//添加用户
procedure TF_system.insertUser(name,password,authority:string);
begin
     f_dm.Q.SQL := f_dm.UQ_user.InsertSQL ;
     f_dm.Q.ParamByName('name').AsString := name;
     f_dm.Q.ParamByName('password').AsString := password;
     f_dm.Q.ParamByName('authority').AsString := authority;
     f_dm.Q.ExecSQL ;
     f_dm.Q.Close ;
end;

procedure TF_system.BitBtn1Click(Sender: TObject);
var
  ch:integer;
begin
  case RadioGroup1.ItemIndex of
     0:     //添加
     begin
       ch:=messagedlg('确认添加用户吗？',mtconfirmation,[mbYes,mbNo],0);
       if ch=mrNo then exit;
       insertUser(e_name.text,e_password.text,e_authority.Text);  //添加这个用户
     end;
     1:     //修改
     begin
       ch:=messagedlg('确认修改用户吗？',mtconfirmation,[mbYes,mbNo],0);
       if ch=mrNo then exit;
       editUser(e_name.text,e_password.Text,e_authority.Text);  //修改这个用户
     end;
     2:     //删除
     begin
       ch:=messagedlg('确认删除用户吗？',mtconfirmation,[mbYes,mbNo],0);
       if ch=mrNo then exit;
       deleteuser(e_name.Text);  //删除这个用户
     end;
  end;//end case
  f_dm.T_user.Refresh;//更新列表
end;

procedure TF_system.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0,1:     //添加  //修改
    begin
       e_password.Enabled:=true;
       e_authority.Enabled:=true;
    end;
    2:     //删除
    begin
       e_password.Enabled:=false;
       e_authority.Enabled:=false;
    end;
  end;
end;

end.