bjgqkunit.pas

高校学生学籍管理系统源码

unit bjgqkunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,datadomule,teexport, TeEngine, Series, StdCtrls, ExtCtrls,
  TeeProcs, Chart, DbChart, DB, DBTables;

type
  Tbjgqk = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DBChart1: TDBChart;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Series1: TBarSeries;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bjgqk: Tbjgqk;

implementation

uses bjgunit;

{$R *.dfm}

procedure Tbjgqk.Button1Click(Sender: TObject);
begin
close;
end;

procedure Tbjgqk.FormCreate(Sender: TObject);
begin
table1.Open;
label3.caption:=bjg.combobox1.text+'各班级'+bjg.combobox3.text+'课的成绩分布情况';
end;

procedure Tbjgqk.Button2Click(Sender: TObject);
var myexport:tteeexportform;
begin
 myexport:=tteeexportform.create(self);
 myexport.exportpanel:=dbchart1;
 myexport.showmodal;
end;

end.