editstudentunit.pas

delphi语言编写的简单图书馆管理系统页面适合初学者模仿练习！

unit EditStudentUnit;

interface

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

type
  TEditStudentForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    Button2: TButton;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EditStudentForm: TEditStudentForm;

implementation
uses Unit1,studentinfounit;
{$R *.dfm}

procedure TEditStudentForm.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TEditStudentForm.Button1Click(Sender: TObject);
begin
  if (dbedit1.Text='') or (dbedit2.Text='') or (dbedit3.Text='') or (dbedit4.Text='')
     or (dbedit5.Text='') then messagedlg(#10'请输入完整的学生信息',mtwarning,[mbOk],0)
  else begin
      ADOQuery2.close;
      ADOQuery2.SQL.Clear;
      ADOQuery2.SQL.Add('update student set sno=:Psno,sname=:Psname,sage=:Psage,idno=:Pidno,dept=:Pdept where sno=:ssno');
      ADOQuery2.Parameters.ParamByName('ssno').value:=ssno;
      ADOQuery2.Parameters.ParamByName('Psno').value:=DBEdit1.text;
      ADOQuery2.Parameters.ParamByName('Psname').value:=DBEdit2.text;
      ADOQuery2.Parameters.ParamByName('Psage').value:=DBEdit3.text;
      ADOQuery2.Parameters.ParamByName('Pidno').value:=DBEdit4.text;
      ADOQuery2.Parameters.ParamByName('Pdept').value:=DBEdit5.text;
                          //修改课程信息

            ADOQuery3.close;        //核对是否已存在相同的课号
            ADOQuery3.SQL.Clear;
            ADOQuery3.SQL.Add('select * from student where sno=:Psno');
            ADOQuery3.Parameters.ParamByName('Psno').value:=dbedit1.text;
            ADOQuery3.open;
          if  not ADOQuery3.Eof then
               if (ssno=dbedit1.text) then
                      begin ADOQuery2.ExecSQL;
                            StudentInfoForm.FormCreate(Sender);
                            StudentInfoForm.Edit1.Clear;
                            EditStudentForm.Close;
                      end
                   else
                       messagedlg(#10'该学号已存在,请核对输入!', mtwarning,[mbOk],0)
              else begin ADOQuery2.ExecSQL;
                         StudentInfoForm.FormCreate(Sender);
                         StudentInfoForm.Edit1.Clear;
                         EditStudentForm.Close;
                 end

  end;
end;

end.