kcgl.pas

来自「教务管理系统」· PAS 代码 · 共 84 行

unit kcgl;

interface

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

type
  TForm1 = class(TForm)
    qry: TADOQuery;
    DataSource1: TDataSource;
    view: TDBGrid;
    lab1: TLabel;
    num: TEdit;
    Label1: TLabel;
    nam: TEdit;
    Label2: TLabel;
    dep: TEdit;
    cla: TEdit;
    lab2: TLabel;
    cre: TEdit;
    Label3: TLabel;
    buto: TButton;
    butc: TButton;
    procedure butoClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure butcClick(Sender: TObject);
    procedure numChange(Sender: TObject);
  private
    { Private declarations }
    procedure FreshDBGrid;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses UnitData;

{$R *.dfm}

procedure TForm1.FreshDBGrid;
begin
qry.Close;
qry.SQL.Clear;
qry.SQL.Add('select * from COURSE');
qry.Open;
end;

procedure TForm1.butoClick(Sender: TObject);
begin
qry.Close;
qry.SQL.Clear;
qry.SQL.Add('insert into COURSE(id,name,dept,class,credit) values('''+ num.Text +''','''+nam.Text+''','''+dep.Text+''','''+cla.Text+''','+cre.Text+')');
qry.ExecSQL;
FreshDBGrid;
num.Text := '';
nam.Text := '';
dep.Text := '';
cla.Text := '';
cre.Text := '';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
freshdbgrid;
end;

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

procedure TForm1.numChange(Sender: TObject);
begin
buto.Enabled := num.Text <> '';
end;

end.