unit2.~pas

学生选课是高校教务管理工作的一部分

unit Unit2;

interface

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

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

var
  FormStuMain: TFormStuMain;

implementation

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

Query2.SQL.Text:='Insert Into 学号课程.db values('''+User+''','''+Table1.FieldByName('课程编号').AsString+''')';
Query2.ExecSQL;
Query2.Close;
Query1.Close;
Query1.Open;
Table1.Next;
end;

procedure TFormStuMain.Button3Click(Sender: TObject);
begin
//FormChPwd.User:=User;
//FormChPwd.ShowModal;
end;
procedure TFormStuMain.Button2Click(Sender: TObject);
begin
Query2.SQL.Text:='Delete From 学号课程.db Where 学号='''+User+'''and 课程编号='''+Query1.FieldByname('课程编号').AsString+'''';
Query2.ExecSQL;
Query2.Close;
Query1.Close;
Query1.Open;

end;

end.