gridsaveasform.pas

进销存·完整的·有数据库的·非常完整·只得参考

unit GridSaveAsForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, EditForm, KsSkinLabels, KsSkinButtons, KsSkinCheckBoxs, dxCntner,
  dxEditor, dxEdLib, KsSkinGroupBoxs, KsSkinForms, dxExEdtr, dxDBELib,
  dxDBGrid, dxDBCtrl, SysPublic, se_controls, DB, ADODB,
  KsSkinSpeedButtons;

type
  TfrmGridSaveAs = class(TfrmEditForm)
    Radiog1: TSeSkinRadioGroup;
    cbx1: TSeSkinCheckBox;
    bbOk: TSeSkinButton;
    bbNo: TSeSkinButton;
    SeSkinLabel1: TSeSkinLabel;
    SaveFileDialog: TSaveDialog;
    edtPath: TdxButtonEdit;
    Radiog2: TSeSkinRadioGroup;
    procedure edtPathButtonClick(Sender: TObject; AbsoluteIndex: Integer);
    procedure Radiog1Click(Sender: TObject);
    procedure bbNoClick(Sender: TObject);
    procedure bbOkClick(Sender: TObject);
  private
    { Private declarations }
    sFileCaption: string;
    bReturn: Boolean;
    PubGird1: TdxDBGrid;
    procedure LoadData;
    procedure MainShow;
  public
    { Public declarations }
  end;

function GridSaveAsShow(sCaption: string; Gird1: TdxDBGrid): Boolean;
implementation

{$R *.dfm}

function GridSaveAsShow(sCaption: string; Gird1: TdxDBGrid): Boolean;
var
  frmGridSaveAs: TfrmGridSaveAs;
begin
  frmGridSaveAs := TfrmGridSaveAs.Create(Application);
  with frmGridSaveAs do
  begin
    PubGird1 := nil;
    sFileCaption := sCaption;
    PubGird1 := Gird1;
    MainShow;
    Result := bReturn;
    Free;
  end;
end;

procedure TfrmGridSaveAs.MainShow;
begin
  bOperateLog := False;
  LoadData;
  ShowModal;
end;

procedure TfrmGridSaveAs.LoadData;
begin
  bReturn := False;
  Radiog1Click(nil);
end;

procedure TfrmGridSaveAs.edtPathButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
  inherited;
  SaveFileDialog.FileName := edtPath.Text;
  if SaveFileDialog.Execute then
  begin
    edtPath.Text := SaveFileDialog.FileName;
  end;
end;

procedure TfrmGridSaveAs.Radiog1Click(Sender: TObject);
var
  sType, sExte: string;
begin
  inherited;
  sType := Radiog1.Items.Strings[Radiog1.ItemIndex];
  sExte := Radiog2.Items.Strings[Radiog1.ItemIndex];
  SaveFileDialog.Filter := sType + ' *' + sExte + '|*' + sExte;
  edtPath.Text := GetExePath + FILE_SAVE_DIR + '\' + sFileCaption + sExte;
end;

procedure TfrmGridSaveAs.bbNoClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmGridSaveAs.bbOkClick(Sender: TObject);
begin
  inherited;
  if PubGird1 <> nil then
    case Radiog1.ItemIndex of
      1: PubGird1.SaveToHTML(edtPath.Text, True);
      2: PubGird1.SaveToText(edtPath.Text, True, #9, '|', '|');
      3: PubGird1.SaveToXML(edtPath.Text, True);
    else
      PubGird1.SaveToXLS(edtPath.Text, True);
    end;
  if cbx1.Checked then
    ExecFile(edtPath.Text);
  bReturn := True;
  Close;
end;

end.