unit3.~pas

学生选课系统 DELPHI+ ACCE

unit Unit3;

interface

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

type
  TFormmaster = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    DBLookupComboBox1: TDBLookupComboBox;
    Table1: TTable;
    DataSource1: TDataSource;
    procedure button3click(Sender: TObject);
    procedure FormClose(Sender: TObject;var Action:TCloseAction);
    procedure Init;

    procedure button1click(Sender: TObject);
    procedure button4click(Sender: TObject);
    procedure button2click(Sender: TObject);
    procedure button5click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formmaster: TFormmaster;

implementation

{$R *.dfm}
procedure TFormmaster.button3click(Sender: TObject);
var
id:string;
begin
    if DBLookupComboBox1.Text=''then
    begin
       Showmessage('请选择课程！');
       Exit;
    end;
    id:=Table1.Lookup('课程名称',DBLookupComboBox1.Text,'课程编号');
    FormRep.Query1.ParamByName('id').Asstring:=id;
    FormRep.Query1.Open;
    FormRep.QRSysData1.Text:=DBLookupComboBox1.Text+'课程选课人数报表';
    FormRep.QuickRep1.Preview;
    FormRep.Query1.Close;
end;
procedure TFormmaster.FormClose(Sender: TObject;var Action:TCloseAction);
begin
 Table1.Close;
 Application.Terminate;
end;
procedure TFormmaster.Init;
begin
    Table1.Open;
end;
procedure TFormmaster.button1click(Sender: TObject);
begin
    FormRep.Query1.ParamByName('id').Asstring:='%';
    FormRep.Query1.Open;
    FormRep.QRSysData1.Text:='所有课程选课学生报表';
    FormRep.QuickRep1.Preview;
    FormRep.Query1.Close;
end;
procedure TFormmaster.button4click(Sender: TObject);
begin
    //Formchart.DecisionQuery1.Open;
    //Formchart.ShowModal;
    //Formchart.DecisionQuery1.Close;
end;
procedure TFormmaster.button2click(Sender: TObject);
begin
Formchpwd.User:='2002152001';
Formchpwd.ShowModal;
end;
procedure TFormmaster.button5click(Sender: TObject);
begin
    Formfchpwd.Table1.Open;
    Formfchpwd.ShowModal;
    Formfchpwd.Table1.Close;
end;
end.