unit2.pas

学生选课系统 DELPHI+ ACCE

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('课程编号').AsString+'"';
Query2.ExecSQL;
 Query2.Close;
 Query1.Close;
 Query1.Open;
end;
procedure TFormstu.Button2Click(Sender: TObject);
begin
Query2.sql.Text:='Delete From select where 学号="'+User+'"and 课程编号="'+Query1.FieldByName('课程编号').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.课程编号，subject.课程名称，subject.任课教师，subject.周学时，subject.学分，subject.起始周，subject.结束周，'+
'subject.上课地点，'
'From "select" 已选课程'
'Inner Join "subject" 课程'
'On(course.课程编号=subject.课程编号)'
'Where select.学号=：User;')
paramData=<
  item
     DataType=ftUnknown
     Name='User'
     paramType=ptUnknown
     end>
end }
end;

end.