unit2.pas

这是一个关于delphi数据库方面的源程序

unit Unit2;

interface

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

type
  TFormStuMain = class(TForm)
    Query1: TQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Table1: TTable;
    DBGrid2: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Query2: TQuery;
    Button3: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    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 := 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;
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;

procedure TFormStuMain.Button3Click(Sender: TObject);
begin
  FormChPwd.User := User;
  FormChPwd.ShowModal;
end;
end.