unitbrowseachieve.pas.~40~

初中成绩录入系统网络版(firebird) firebird下的网络编程

unit UnitBrowseAchieve;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, DBGridEh, DB, StdCtrls, Buttons,EhlibIBX,DBGridEhImpExp,
  ShellApi, interPret;

type
  TfmBrowseAchieve = class(TForm)
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    SaveDialog1: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    Interpret:TInterpret;
    procedure SetGridTitle;
  public
    { Public declarations }
  end;

implementation

uses unitDatamodule, unitAchieve;

{$R *.dfm}

procedure TfmBrowseAchieve.FormShow(Sender: TObject);
var
  Achieve:TAchieve;
begin
  Achieve:=TAchieve.Create;
  Achieve.CalculateTotal;
  Achieve.Free;
  dm.Trans1.Active:=false;
  dm.Query1.Close;
  dm.Query1.SQL.Text:='select * from student order by zkzh';
  dm.Query1.Open;
  DataSource1.DataSet:=dm.Query1;
end;

procedure TfmBrowseAchieve.BitBtn1Click(Sender: TObject);
begin
  dm.Query1.Close;
  case ComboBox1.ItemIndex of
    0:dm.Query1.SQL.Text:='select * from student where stdname like ''%'+edit1.Text+'%''';
    1:dm.Query1.SQL.Text:='select * from student where zkzh like ''%'+edit1.Text+'%''';
  end;
  dm.Query1.Open;
end;

procedure TfmBrowseAchieve.BitBtn2Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  try
    saveDBGridEhToExportFile(TDBGridEhExportAsXLS,DBGridEh1,SaveDialog1.FileName,true);
    if Application.MessageBox('导出数据成功，是否打开Excel文件？','请选择',MB_YESNO or MB_ICONINFORMATION)=ID_YES then
       ShellExecute(handle,'open',pchar(SaveDialog1.FileName),'0','0',SW_MAXIMIZE);
  except
    Application.MessageBox('发生意外，生成Excel文件失败！','警告',MB_OK or MB_ICONERROR);
  end;
end;

procedure TfmBrowseAchieve.SetGridTitle;
begin

end;

procedure TfmBrowseAchieve.FormCreate(Sender: TObject);
begin
  Interpret:=TInterpret.Create;
end;

end.