main1.pas

DBchart的高级使用

unit main1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, wiaTile, GradBtn,
  DBTables, Db;

type
  Tf_main1 = class(TForm)
    wiaTile1: TwiaTile;
    GradBtn1: TGradBtn;
    GradBtn2: TGradBtn;
    GradBtn3: TGradBtn;
    GradBtn4: TGradBtn;
    Label1: TLabel;
    procedure GradBtn1Click(Sender: TObject);
    procedure GradBtn2Click(Sender: TObject);
    procedure GradBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure GradBtn3Click(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_main1: Tf_main1;

implementation

uses datamd,basic,vote,resultprt, printtp, about, enterform;

{$R *.DFM}

procedure Tf_main1.GradBtn1Click(Sender: TObject);
begin
 f_enter.Show;
end;

procedure Tf_main1.GradBtn2Click(Sender: TObject);
begin
 f_vote.showModal;
end;

procedure Tf_main1.GradBtn4Click(Sender: TObject);
begin
 if Application.MessageBox('确认要退出系统吗？','提示',MB_YESNO)=IDNO then exit;

     Application.Terminate;
     exit;
end;

procedure Tf_main1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if  Application.MessageBox('确认要退出系统吗？','提示',MB_YESNO)=IDNO then begin
        Action:=caNone;
        exit;
     end;
     
     Application.Terminate;
     exit;
end;

procedure Tf_main1.GradBtn3Click(Sender: TObject);
begin
  printtype.show;

  end;
procedure Tf_main1.Image1DblClick(Sender: TObject);
begin
  f_about.ShowModal;
end;

end.