frmoupt.pas

应用Ehlib导出显示数据的源代码

UNIT frmoupt;

INTERFACE

USES
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DBGridEh, DBGridEhImpExp;

TYPE
  Tfmoupt = CLASS(TForm)
    RadioGroup1: TRadioGroup;
    btnOUt: TBitBtn;
    btncancel: TBitBtn;
    R1: TRadioButton;
    R5: TRadioButton;
    R4: TRadioButton;
    R3: TRadioButton;
    R2: TRadioButton;
    SDLG: TSaveDialog;
    PROCEDURE btnOUtClick(Sender: TObject);
  Private
    { Private declarations }
  Public
    Adbg: Tdbgrideh;
    { Public declarations }
  END;

VAR
  fmoupt: Tfmoupt;

IMPLEMENTATION

USES frmdb;

{$R *.dfm}

PROCEDURE Tfmoupt.btnOUtClick(Sender: TObject);
BEGIN
  IF r1.Checked THEN
  BEGIN
    sdlg.InitialDir := dm.ep;
    sdlg.DefaultExt := 'XLS';
    sdlg.Filter := '*.XLS|*.XLS';
    sdlg.FileName := '导出数据.xls';
    IF sdlg.Execute THEN
    BEGIN

      IF sdlg.FileName <> '' THEN
      BEGIN
        SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, Adbg, sdlg.FileName,
          true);
      END;
    END;
  END;

  IF r2.Checked THEN
  BEGIN
    sdlg.InitialDir := dm.ep;
    sdlg.DefaultExt := 'txt';
    sdlg.Filter := '*.TXT|*.TXT';
    sdlg.FileName := '导出数据.txt';
    IF sdlg.Execute THEN
    BEGIN

      IF sdlg.FileName <> '' THEN
      BEGIN
        SaveDBGridEhToExportFile(TDBGridEhExportAsText, Adbg, sdlg.FileName,
          true);
      END;
    END;
  END;

  IF r3.Checked THEN
  BEGIN
    sdlg.InitialDir := dm.ep;
    sdlg.DefaultExt := 'csv';
    sdlg.Filter := '*.csv|*.csv';
    sdlg.FileName := '导出数据.csv';
    IF sdlg.Execute THEN
    BEGIN

      IF sdlg.FileName <> '' THEN
      BEGIN
        SaveDBGridEhToExportFile(TDBGridEhExportAsCSV, Adbg, sdlg.FileName,
          true);
      END;
    END;
  END;

  IF r4.Checked THEN
  BEGIN
    sdlg.InitialDir := dm.ep;
    sdlg.DefaultExt := 'html';
    sdlg.Filter := '*.html|*.html';
    sdlg.FileName := '导出数据.html';
    IF sdlg.Execute THEN
    BEGIN
      IF sdlg.FileName <> '' THEN
      BEGIN
        SaveDBGridEhToExportFile(TDBGridEhExportAsHTML, Adbg, sdlg.FileName,
          true);
      END;
    END;
  END;

  IF r5.Checked THEN
  BEGIN
    sdlg.InitialDir := dm.ep;
    sdlg.DefaultExt := 'rtf';
    sdlg.Filter := '*.rtf|*.rtf';
    sdlg.FileName := '导出数据.rtf';
    IF sdlg.Execute THEN
    BEGIN

      IF sdlg.FileName <> '' THEN
      BEGIN
        SaveDBGridEhToExportFile(TDBGridEhExportAsRTF, Adbg, sdlg.FileName,
          true);
      END;
    END;
  END;
  application.MessageBox(pchar('成功输出数据到' + sdlg.filename + '!'), '恭喜',
    0);

END;

END.