unit8.~pas

来自「本例是用delphi开发的学生与课程信息管理系统」· ~PAS 代码 · 共 87 行

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls;

type
  TFormcou_del = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Editcno: TEdit;
    Label2: TLabel;
    Editcname: TEdit;
    Button1: TButton;
    Button2: TButton;
    Querycou_del: TQuery;
    DataSourcecou_del: TDataSource;
    DBGridcou_del: TDBGrid;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Label3: TLabel;
    procedure DBGridcou_delCellClick(Column: TColumn);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formcou_del: TFormcou_del;

implementation

{$R *.dfm}

procedure TFormcou_del.DBGridcou_delCellClick(Column: TColumn);
begin
  editcno.Text:=dbgridcou_del.fields[0].asstring;
  editcname.text:=dbgridcou_del.fields[1].asstring;
end;

procedure TFormcou_del.Button1Click(Sender: TObject);
var
  cno,cname:string;
  flag:integer;
begin
  cno:=editcno.Text;
  cname:=editcname.text;
  flag:=messagedlg('确实注销该课程吗！',mtconfirmation,[mbyes,mbno],0);
  if flag=mryes then
  begin
    with querycou_del do
      begin
        close;
        sql.Clear;
        sql.add('delete from course where cno= :cnoname');
        parambyname('cnoname').AsString:=cno;
        prepare;
        execsql;
      end;
    with querycou_del do
      begin
        close;
        sql.clear;
        sql.add('select * from course');
        sql.add('order by cno');
        prepare;
        open;
      end;
  end;
  editcno.Text:='';
  editcname.text:='';
end;

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

end.