u_xgmm.pas

从同学哪里拷贝来的程序,毕业设计用的,大家看看,有帮助的哦

unit u_xgmm;

interface

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

type
  Tyonghu = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    Label6: TLabel;
    Button3: TButton;
    CheckBox1: TCheckBox;
    Button6: TButton;
    aaa: TComboBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Label5: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Table1: TTable;
    Query1: TQuery;
    Table2: TTable;
    Table3: TTable;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
   
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  yonghu: Tyonghu;

implementation

uses Unit1;

{$R *.DFM}

procedure Tyonghu.Button1Click(Sender: TObject);
begin
if edit1.text='' then
   showmessage('用户名不能为空！')
else
   begin
      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add('select * from mima.db where 姓名='+''''+edit1.Text+''''+'');
      query1.Open;
      if query1.RecordCount>0 then
         begin
            showmessage('此用户名已经存在！请重新输入');
            edit1.Text:='';
            edit1.SetFocus;
         end
      else
         begin
             if edit2.text=edit3.Text then
                begin
                   table1.Open;
                   table1.Edit;
                   table1.Insert;
                   table1.FieldByName('姓名').AsString:=edit1.Text;
                   table1.FieldByName('密码').AsString:=edit2.text;
                   if checkbox1.Checked then
                      begin
                         table1.FieldByName('权限').AsString:='12345';
                         showmessage('添加系统管理员成功！');
                      end
                   else
                      begin
                         table1.FieldByName('权限').AsString:='';
                         showmessage('成功添加为普通用户！');
                      end;
                   table1.Post;
                   edit1.Text:='';
                   Edit2.Text:='';
                   Edit3.Text:='';
                   checkbox1.Checked:=false;
                   edit1.SetFocus;
                end
             else
                begin
                   showmessage('你两次输入的密码不同，请重新输入！');
                   edit2.Text:='';
                   edit3.Text:='';
                end;
         end;
   end;
end;

procedure Tyonghu.Button2Click(Sender: TObject);
begin
yonghu.Close;
end;

procedure Tyonghu.Button4Click(Sender: TObject);
begin
  if radiobutton1.Checked then
begin
table2.Filter:='姓名='+''''+username+''''+'';
table2.Filtered:=true;
table2.Open;
if table2.RecordCount=0 then
   begin
      showmessage('旧密码输入错误！请重新输入');
      edit4.SetFocus;
      edit4.Text:='';
   end
else
   begin
      if  edit5.text<>edit6.Text then
         begin
            showmessage('你两次输入的密码不同，请重新输入');
            edit5.SetFocus;
            edit5.text:='';
            edit6.Text:='';
         end
      else
        begin
           table2.Edit;
           table2.FieldByName('密码').AsString:=edit5.Text;
           table2.Post;
           showmessage('密码修改成功！');
           close;
        end;
   end;
end;
if radiobutton2.Checked then
   begin
     table2.Filter:='姓名='+''''+edit9.text+''''+'';
     table2.Filtered:=true;
     table2.Open;
      if table2.RecordCount>0 then
         begin
            showmessage('该用户名已经存在，请重新输入！');
            edit9.SetFocus;
            edit9.Text:='';
         end
      else
         begin
            table2.Filter:='姓名='+''''+username+''''+'';
            table2.Filtered:=true;
            table2.Open;
            table2.Edit;
            table2.FieldByName('姓名').AsString:=edit9.Text;
            table2.Post;
            showmessage('用户名修改成功！');
            username:=edit9.Text;
            close;
         end;
   end;
end;

procedure Tyonghu.Button3Click(Sender: TObject);
begin
yonghu.Close;
end;

procedure Tyonghu.Button5Click(Sender: TObject);
begin
   table3.Filter:='姓名='+''''+aaa.Text+''''+'';
table3.Filtered:=true;
table3.Open;
if table3.RecordCount>0 then
   begin
   table3.Edit;
   table3.Delete;
   showmessage('已删除该用户！');
   aaa.Text:='';
   aaa.Clear;
   table3.Filter:='姓名<>'+''''+username+''''+'';
   table3.Filtered:=true;
   table3.Open;
   aaa.Text:=query1.Fieldbyname('姓名').asstring;
   table3.First;
   while not table3.Eof   do
       begin
          aaa.Items.Add(table3.Fieldbyname('姓名').asstring);
          table3.next;
       end;
   end
else showmessage('不存在该用户！');
end;

procedure Tyonghu.Button6Click(Sender: TObject);
begin
close;
end;

procedure Tyonghu.FormCreate(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select 姓名 from mima');
query1.Open;
query1.first;
aaa.Clear;
while not query1.Eof do
   begin
      aaa.Items.Add(query1['姓名']);
      query1.Next;
   end;
end;

end.