main_xjgl_xjtjform.pas

来自「腾龙校园综合管理系统delphi源码 也是在网络上找到的 不过很好」· PAS 代码 · 共 45 行

unit main_xjgl_xjtjform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, mxpivsrc, Grids, mxgrid, mxDB, Db, DBTables, mxtables, mxstore,
  StdCtrls, Buttons;

type
  Tmain_xjgl_xjtj = class(TForm)
    Bevel1: TBevel;
    DecisionCube1: TDecisionCube;
    DecisionQuery1: TDecisionQuery;
    DecisionSource1: TDecisionSource;
    DecisionGrid1: TDecisionGrid;
    DecisionPivot1: TDecisionPivot;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_xjgl_xjtj: Tmain_xjgl_xjtj;

implementation

{$R *.DFM}

procedure Tmain_xjgl_xjtj.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure Tmain_xjgl_xjtj.FormShow(Sender: TObject);
begin
  DecisionQuery1.Open;
end;

end.