kctj.pas

教务管理系统

unit kctj;

interface

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

type
  TForm2 = class(TForm)
    qry: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    num: TEdit;
    Label2: TLabel;
    nam: TEdit;
    Label3: TLabel;
    dep: TEdit;
    fgfhh: TLabel;
    cla: TEdit;
    Label4: TLabel;
    cre: TEdit;
    butu: TButton;
    butd: TButton;
    butc: TButton;
    procedure butuClick(Sender: TObject);
    procedure butcClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure butdClick(Sender: TObject);
  private
    { Private declarations }
    procedure frsdbgride;
    procedure setEnable (f:boolean);
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses UnitData;

{$R *.dfm}
procedure Tform2.frsdbgride;
var
  query: TADOQuery;
begin
qry.Close;
qry.SQL.Clear;
qry.SQL.Add('select * from COURSE ');
qry.open;
SetEnable(not qry.Eof);
if not qry.Eof then begin
    query := TADOQuery.Create(self);
    query.Connection := data.adoc;
    query.Close;
    query.SQL.Clear;
    query.SQL.Add('select * from COURSE where id=' + qry.FieldByName('id').AsString);
    query.Open;
    num.Text := query.FieldByName('id').AsString;
    nam.Text := query.FieldByName('name').AsString;
    dep.Text := query.FieldByName('dept').AsString;
    cla.Text := query.FieldByName('class').AsString;
    cre.Text := query.FieldByName('credit').AsString;
    query.Free;
end;
end;

procedure Tform2.setEnable(f:boolean);
begin
   butu.Enabled := f;
   butd.Enabled := f;
end;

procedure TForm2.butuClick(Sender: TObject);
var
  s: string;
begin
  s := qry.FieldByName('id').AsString;
  qry.Close;
  qry.SQL.Clear;
  qry.SQL.Add('update COURSE set name= ''' + nam.text +''',dept= ''' + dep.text +''',class= '''+ cla.text +''',credit= ''' +cre.Text+''' where id='+s);
  qry.ExecSQL;
  frsdbgride;
end;

procedure TForm2.butcClick(Sender: TObject);
begin
close;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  frsdbgride;
end;

procedure TForm2.DBGrid1CellClick(Column: TColumn);
var
  query: TADOQuery;
begin
   SetEnable(not qry.Eof);
  if not qry.Eof then begin
    query := TADOQuery.Create(self);
    query.Connection := data.adoc;
    query.Close;
    query.SQL.Clear;
    query.SQL.Add('select * from COURSE where id=' + qry.FieldByName('id').AsString);
    query.Open;
    num.Text := query.FieldByName('id').AsString;
    nam.Text := query.FieldByName('name').AsString;
    dep.Text := query.FieldByName('dept').AsString;
    cla.Text := query.FieldByName('class').AsString;
    cre.Text := query.FieldByName('credit').AsString;
    query.Free;
  end;
end;


procedure TForm2.butdClick(Sender: TObject);
var
  s: string;
begin

  s := qry.FieldByName('id').AsString;
if application.MessageBox(PAnsiChar('真的要删除吗？'), PAnsiChar('确认删除'), MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) = IDYES then begin
qry.Close;
qry.SQL.Clear;
qry.SQL.Add('delete * from COURSE where id=' + s);
qry.ExecSQL;
frsdbgride;

end;
   end;

end.