unit10.pas

成绩管理系统 主要实现：学生（学号

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TForm10 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button3: TButton;
    Button4: TButton;
    Label8: TLabel;
    Label9: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Button5: TButton;
    Button6: TButton;
    Label7: TLabel;
    Edit7: TEdit;
    Label10: TLabel;
    Edit10: TEdit;
    Button7: TButton;
    ADOQuery1: TADOQuery;
    procedure Button7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.Button7Click(Sender: TObject);
begin
form10.Close;
end;

procedure TForm10.Button1Click(Sender: TObject);
begin
     if Edit1.Text='' then
         showmessage('帐号不能够为空，请重新输入！')
      else
          begin
               if (Edit2.Text='')and(Edit3.Text='')then
                    showmessage('密码和确认码不能够为空，请确认后重新输入！')
                else
                   begin
                      if Edit1.text<>Edit3.Text then
                            showmessage('两次输入的密码不一致，请重新输入！')
                       else
                         begin
                            adoquery1.Close;
                            adoquery1.SQL.Clear;
                            adoquery1.SQL.Add('select * from [user] where user_no='''+Edit1.Text+'''');
                            adoquery1.Open;
                            if adoquery1.RecordCount=0 then
                               showmessage('不存在帐号为'''+Edit1.Text+'''的记录信息！')
                            else
                                begin
                                   adoquery1.Close;
                                   adoquery1.SQL.Clear;
                                   adoquery1.SQL.Add('select * from [user] where user_no='''+Edit1.Text+'''and user_pwd='''+Edit2.Text+'''');
                                   adoquery1.Open;
                                   if adoquery1.RecordCount=0 then
                                       showmessage('密码不对，请重新输入！')
                                   else
                                      begin
                                          adoquery1.Close;
                                          adoquery1.SQL.Clear;
                                          adoquery1.SQL.Add('delete from [user] where user_no='''+Edit1.Text+'''and user_pwd='''+Edit2.Text+'''');
                                          adoquery1.ExecSQL;
                                          showmessage('帐号删除成功！');
                                       end
                                 end
                         end
                  end
          end

end;

procedure TForm10.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;

procedure TForm10.Button3Click(Sender: TObject);
begin
     if Edit4.Text='' then
         showmessage('帐号不能够为空，请重新输入！')
      else
          begin
               if (Edit5.Text='')and(Edit6.Text='')and(Edit7.text='')then
                    showmessage('密码和确认码不能够为空，请确认后重新输入！')
                else
                   begin
                      if Edit6.text<>Edit7.Text then
                            showmessage('两次输入的新密码不一致，请重新输入！')
                       else
                         begin
                            adoquery1.Close;
                            adoquery1.SQL.Clear;
                            adoquery1.SQL.Add('select*from [user] where user_no='''+Edit4.Text+'''');
                            adoquery1.Open;
                            if adoquery1.RecordCount=0 then
                               showmessage('不存在帐号为'''+Edit4.Text+'''的记录信息！')
                            else
                                begin
                                   adoquery1.Close;
                                   adoquery1.SQL.Clear;
                                   adoquery1.SQL.Add('select*from [user] where user_no='''+Edit4.Text+'''and user_pwd='''+Edit5.Text+'''');
                                   adoquery1.Open;
                                   if adoquery1.RecordCount=0 then
                                       showmessage('密码不对，请重新输入！')
                                   else
                                      begin
                                          adoquery1.Close;
                                          adoquery1.SQL.Clear;
                                          adoquery1.SQL.Add('update [user] set user_pwd='''+Edit6.Text+'''where user_no='''+Edit4.Text+'''and user_pwd='''+Edit5.Text+'''');
                                          adoquery1.ExecSQL;
                                          showmessage('帐号修改成功！');
                                       end
                                 end
                         end
                  end
          end

end;

procedure TForm10.Button4Click(Sender: TObject);
begin
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
end;

procedure TForm10.Button5Click(Sender: TObject);
begin
     if Edit8.Text='' then
         showmessage('帐号不能够为空，请重新输入！')
      else
          begin
               if (Edit9.Text='')and(Edit10.Text='')then
                    showmessage('密码和确认码不能够为空，请确认后重新输入！')
                else
                   begin
                      if Edit9.text<>Edit10.Text then
                            showmessage('两次输入的密码不一致，请重新输入！')
                       else
                         begin
                            adoquery1.Close;
                            adoquery1.SQL.Clear;
                            adoquery1.SQL.Add('select*from [user] where user_no='''+Edit9.Text+'''');
                            adoquery1.Open;
                            if adoquery1.RecordCount=1 then
                               showmessage('已经存在帐号为'''+Edit9.Text+'''的记录信息！请重新输入')
                            else
                                begin
                                   adoquery1.Close;
                                   adoquery1.SQL.Clear;
                                   adoquery1.SQL.Add('insert into [user](user_no,user_pwd)values('''+Edit9.Text+''','''+Edit9.Text+''') ');
                                   adoquery1.ExecSQL;
                                   showmessage('密码添加成功！');
                                 end
                         end
                  end
          end
end;

procedure TForm10.Button6Click(Sender: TObject);
begin
Edit8.Text:='';
Edit9.Text:='';
Edit10.Text:='';
end;

end.