gridsaveasform.pas

胜天财务进销存2003源代码,SQLSERVER版,目前最完整的财务进销存系统.

unit GridSaveAsForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, EditForm, KsControls, KsLabels, KsSkinLabels, KsButtons,
  KsSkinButtons, KsCheckBoxs, KsSkinCheckBoxs, dxCntner, dxEditor, dxEdLib,
  KsGroupBoxs, KsSkinGroupBoxs, KsHooks, KsForms, KsSkinForms, dxExEdtr,
  dxDBELib, dxDBGrid, dxDBCtrl, SysPublic;

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.