【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了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.