unit17.pas

用Delphi做一个公寓管理系统

unit Unit17;

interface

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

type
  TForm_userconfig = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    Memo1: TMemo;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1: TButton;
    Label5: TLabel;
    Button2: TButton;
    Query1: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_userconfig: TForm_userconfig;

implementation

{$R *.dfm}

procedure TForm_userconfig.Button1Click(Sender: TObject);
begin


  if RadioButton1.Checked then  //新增一个用户
  begin
    if Edit1.Text='' then           //未填写用户名
      showmessage('请填写用户名！')
    else
      if edit2.Text='' then
      begin
        showmessage('请填写密码!');
        edit2.SetFocus;
      end
      else
      if edit3.Text='' then
        begin
        showmessage('请确认密码!');
        edit3.SetFocus;
      end
      else
      if  edit3.Text<>edit2.Text then
      begin
        showmessage('确认密码错误!');
        edit2.Text:='' ;
        edit3.Text:='' ;
        edit2.SetFocus;
      end
      else
        begin
          query1.Close;
          query1.SQL.Clear;
          query1.SQL.Add('select * from userinfo where username=:username');
          query1.ParamByName('username').AsString:=Edit1.Text;
          query1.Open;
          if query1.RecordCount>=1 then
            begin
              showmessage('用户名重复，请另填写用户名!');
              query1.Close;
              query1.SQL.Clear;
              query1.SQL.Add('select * from userinfo ');
              query1.Open;
              edit1.SetFocus;
            end

            else
              begin
                query1.Close;
                query1.SQL.Clear;
                query1.SQL.Add('insert into userinfo values(:username,:password,:pawor,:remark)');
                query1.ParamByName('username').AsString:=Edit1.Text;
                query1.ParamByName('password').AsString:=Edit2.Text;
                query1.ParamByName('pawor').AsString:=ComboBox1.Text;
                query1.ParamByName('remark').AsString:=Memo1.Text;
                query1.ExecSQL;
                query1.Close;
                query1.SQL.Clear;
                query1.SQL.Add('select * from userinfo ');
                query1.Open;
                edit1.Text:='';
                edit2.Text:='';
                edit3.Text:='';
                memo1.Text:='';
              end;
          end;
    end;
  if RadioButton2.Checked then
  begin
    if edit1.Text<>'' then
    begin
    query1.Close;
    query1.SQL.Clear;
    query1.SQL.Add('select * from userinfo where username=:username ');
    query1.ParamByName('username').AsString:=edit1.Text;
    query1.Open;

    if query1.RecordCount<1 then
      begin
        query1.Close;
        query1.SQL.Clear;
        query1.SQL.Add('select * from userinfo ');
        query1.Open;
        showmessage(edit1.Text+'不存在');
      end
      else

        if query1.FieldList.Fields[2].Value='超级用户' then
          begin
            showmessage(edit1.Text+'是超级用户，不可以删除');
            query1.Close;
            query1.SQL.Clear;
            query1.SQL.Add('select * from userinfo ');
            query1.Open;
            edit1.Text:='';
            edit1.SetFocus;
          end
          else
            if (query1.RecordCount>=1) and (query1.FieldList.Fields[2].Value<>'超级用户') then
              begin
                if MessageDlg('确认删除',mtConfirmation,mbOkCancel,0)=mrOk then
                 begin
                   query1.Close;
                   query1.SQL.Clear;
                   query1.SQL.Add('delete from userinfo where username=:username');
                   query1.ParamByName('username').AsString:=edit1.Text;
                   query1.ExecSQL;
                 end;
                 query1.Close;
                 query1.SQL.Clear;
                 query1.SQL.Add('select * from userinfo ');
                 query1.Open;
                 edit1.Text:='';
               end

  end
  else
    showmessage('请填写用户名！');
  end;


end;


procedure TForm_userconfig.Button2Click(Sender: TObject);
begin
  Form_userconfig.Close;
end;

end.