updatereader.pas

来自「图书馆管理系统设计用delphi开发的系统」· PAS 代码 · 共 104 行

unit updatereader;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, Menus, Mask, DBCtrls,
  Buttons;

type
  TupdateForm8 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Label6: TLabel;
    user: TEdit;
    Button1: TButton;
    DBGrid2: TDBGrid;
    GroupBox3: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    BitBtn1: TBitBtn;
    no: TEdit;
    sex: TEdit;
    student_name: TEdit;
    xibie: TEdit;
    zhuanye: TEdit;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  updateForm8: TupdateForm8;

implementation

uses module;

{$R *.dfm}

procedure TupdateForm8.Button1Click(Sender: TObject);
begin
with  datamodule1.admin_sADOQuery2 do
  begin
   close;
   sql.Clear;
     sql.Add('delete from student');
   sql.Add(' where 姓名='''+user.text+'''');
   execsql;
   close;
   sql.Clear;
   sql.add('select * from student');
   open;
   user.clear;
end;
end;
procedure TupdateForm8.BitBtn1Click(Sender: TObject);
begin
//edit1.text:=DBGrid2.SelectedField.AsString;
with  datamodule1.studentADOQuery1 do
  begin
   close;
   sql.Clear;
 SQL.Add('update student set 姓名=:n1,性别=:n2,系别=:n3,专业=:n4,已借数目=:n6 '+
   'where 学生证号=:n5');
   Parameters.ParamByName('n1').value:=student_name.Text ;
  Parameters.ParamByName('n2').value:=sex.Text;
    Parameters.ParamByName('n3').value:=xibie.Text ;
   Parameters.ParamByName('n4').value:=zhuanye.text ;
    Parameters.ParamByName('n5').value:=no.text;
   Parameters.ParamByName('n6').value:=Edit1.Text;

 ExecSQL ;
   messagedlg('修改成功！',mtinformation,[mbYes],0);
     close;
sql.clear;
sql.add('select * from student');
open;
   end;
   student_name.clear;
   sex.Clear;xibie.Clear;no.Clear;zhuanye.clear;edit1.clear;
end;

procedure TupdateForm8.DBGrid2DblClick(Sender: TObject);
begin

  edit1.Text:=dbgrid2.SelectedField.AsString;
end;


end.