unit Unit2;

interface

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

type
  TFormstu = class(TForm)
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Table1: TTable;
    Query1: TQuery;
    Query2: TQuery;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    procedure Init;
    procedure FormClose(Sender: TObject;
var Action:TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    User:string;
  end;

var
  Formstu: TFormstu;

implementation

//uses Unit4;

{$R *.dfm}
procedure TFormstu.FormClose(Sender: TObject;
var Action:TCloseAction);
begin
    Table1.Close;
    Query1.Close;
    Application.Terminate;
end;
procedure TFormstu.Init;
begin
    Table1.Open;
    Query1.ParamByName('User').Value:=User;
    Query1.Open;
end;


procedure TFormstu.Button1Click(Sender: TObject);
begin
Query2.sql.Text:='Insert into select values("'+User+'","'+Table1.FieldByName('課程編號(hào)').AsString+'"';
Query2.ExecSQL;
 Query2.Close;
 Query1.Close;
 Query1.Open;
end;
procedure TFormstu.Button2Click(Sender: TObject);
begin
Query2.sql.Text:='Delete From select where 學(xué)號(hào)="'+User+'"and 課程編號(hào)="'+Query1.FieldByName('課程編號(hào)').AsString+'"';
Query2.ExecSQL;
 Query2.Close;
 Query1.Close;
 Query1.Open;
end;
procedure TFormstu.Button3Click(Sender: TObject);
begin
Formchpwd.User:=User;
Formchpwd.ShowModal;
end;
procedure TFormstu.FormCreate(Sender: TObject);
begin
{object Query1:TQuery
DatabaseName='course'
SQL.Strings=('select select.課程編號(hào)，subject.課程名稱，subject.任課教師，subject.周學(xué)時(shí)，subject.學(xué)分，subject.起始周，subject.結(jié)束周，'+
'subject.上課地點(diǎn)，'
'From "select" 已選課程'
'Inner Join "subject" 課程'
'On(course.課程編號(hào)=subject.課程編號(hào))'
'Where select.學(xué)號(hào)=：User;')
paramData=<
  item
     DataType=ftUnknown
     Name='User'
     paramType=ptUnknown
     end>
end }
end;

end.