yonghu.~pas

来自「湖滨小区物业管理系统主要是针对湖滨小区的物业管理公司作为使用对象而开发的」· ~PAS 代码 · 共 136 行

unit yonghu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,connectdlg, DB, ADODB, Buttons, ComCtrls, jpeg,
  ExtCtrls, Grids, DBGrids;

type
  Tyonghu1 = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    StatusBar1: TStatusBar;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Panel2: TPanel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yonghu1: Tyonghu1;

implementation

{$R *.dfm}

procedure Tyonghu1.BitBtn1Click(Sender: TObject);
begin
   if (edit1.Text='')or (edit2.Text='') then
     begin
     messagedlg('请输入用户名和密码',mtwarning,[mbok],0);
     exit;
     end;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from chzy where adminname='''+edit1.text+'''');
  adoquery1.Open;
if adoquery1.Recordset.RecordCount <> 0 then
  begin
    showmessage('该用户已经存在');
    end
    else
    begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('insert into chzy values('''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''')');
    adoquery1.ExecSQL;
    showmessage('添加用户成功!');
    end;
    end;

procedure Tyonghu1.BitBtn2Click(Sender: TObject);
begin
adoquery1.SQL.Clear;
 adoquery1.SQL.Add('select * from chzy where adminname='''+edit1.text+'''');
    adoquery1.open;
    if adoquery1.Recordset.RecordCount=0 then
    begin
       showmessage('目标用户不存在');
       end
       else
       begin
       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add('delete from chzy where adminname='''+edit1.text+'''');
       adoquery1.ExecSQL;
       showmessage('用户删除成功');
       edit1.Text:='';
       end;
end;

procedure Tyonghu1.BitBtn6Click(Sender: TObject);
begin
  
   adoquery1.Refresh;
  
end;

procedure Tyonghu1.BitBtn4Click(Sender: TObject);
begin

   adoquery1.SQL.Clear;
   adoquery1.SQL.Add('select * from chzy ');
   adoquery1.ExecSQL;
   adoquery1.Open;
  dbgrid1.Columns[0].FieldName:='adminname';
 dbgrid1.Columns[1].FieldName:='adminpass';
 dbgrid1.Columns[2].FieldName:='adminclass';

end;

procedure Tyonghu1.BitBtn5Click(Sender: TObject);
begin
   if adoquery1.FieldByName('adminname').AsString='' then
     showmessage('数据表表与空,无法删除')
     else
   begin
        adoquery1.Delete;
        showmessage('删除成功');
       end;
end;

procedure Tyonghu1.FormShow(Sender: TObject);
begin
     edit1.Text:='';
     edit2.Text:='';
     edit3.Text:='';
     
end;

end.