unit3.pas

工廠採購管理系統

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FR_Ctrls, FR_View, ExtCtrls, FR_Class, FR_DSet, FR_DBSet, FR_E_TXT,
  FR_E_CSV, FR_Chart, FR_E_HTM, FR_E_RTF, FR_OLE, FR_Rich, FR_Desgn;

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    frPreview1: TfrPreview;
    frSpeedButton1: TfrSpeedButton;
    frSpeedButton2: TfrSpeedButton;
    frSpeedButton3: TfrSpeedButton;
    frSpeedButton4: TfrSpeedButton;
    frSpeedButton5: TfrSpeedButton;
    frSpeedButton6: TfrSpeedButton;
    frSpeedButton7: TfrSpeedButton;
    frSpeedButton8: TfrSpeedButton;
    frSpeedButton9: TfrSpeedButton;
    frSpeedButton10: TfrSpeedButton;
    frSpeedButton11: TfrSpeedButton;
    frSpeedButton12: TfrSpeedButton;
    SaveDialog1: TSaveDialog;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    frDBDataSet2: TfrDBDataSet;
    frCSVExport1: TfrCSVExport;
    frRTFExport1: TfrRTFExport;
    frHTMExport1: TfrHTMExport;
    frTextExport1: TfrTextExport;
    frChartObject1: TfrChartObject;
    frRichObject1: TfrRichObject;
    frOLEObject1: TfrOLEObject;
    frDesigner1: TfrDesigner;
    procedure frSpeedButton4Click(Sender: TObject);
    procedure frSpeedButton5Click(Sender: TObject);
    procedure frSpeedButton6Click(Sender: TObject);
    procedure frSpeedButton7Click(Sender: TObject);
    procedure frSpeedButton8Click(Sender: TObject);
    procedure frSpeedButton9Click(Sender: TObject);
    procedure frSpeedButton10Click(Sender: TObject);
    procedure frSpeedButton1Click(Sender: TObject);
    procedure frSpeedButton2Click(Sender: TObject);
    procedure frSpeedButton3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure frSpeedButton11Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure frSpeedButton12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.DFM}

procedure TForm3.frSpeedButton4Click(Sender: TObject);
begin
  frPreview1.First;
end;

procedure TForm3.frSpeedButton5Click(Sender: TObject);
begin
  frPreview1.Prev;
end;

procedure TForm3.frSpeedButton6Click(Sender: TObject);
begin
  frPreview1.Next;
end;

procedure TForm3.frSpeedButton7Click(Sender: TObject);
begin
  frPreview1.Last;
end;

procedure TForm3.frSpeedButton8Click(Sender: TObject);
begin
  frPreview1.LoadFromFile;
end;

procedure TForm3.frSpeedButton9Click(Sender: TObject);
begin
  frPreview1.SaveToFile;
end;

procedure TForm3.frSpeedButton10Click(Sender: TObject);
begin
  frPreview1.Print;
end;

procedure TForm3.frSpeedButton1Click(Sender: TObject);
begin
  frPreview1.OnePage;
end;

procedure TForm3.frSpeedButton2Click(Sender: TObject);
begin
  frPreview1.Zoom := 100;
end;

procedure TForm3.frSpeedButton3Click(Sender: TObject);
begin
  frPreview1.PageWidth;
end;

procedure TForm3.FormActivate(Sender: TObject);
begin
  frSpeedButton2.Down := True;
  frSpeedButton2Click(nil);
end;

procedure TForm3.frSpeedButton11Click(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  frPreview1.Window.FormKeyDown(Sender, Key, Shift);
end;

procedure TForm3.frSpeedButton12Click(Sender: TObject);
begin
if SaveDialog1.Execute then
   begin
   frReport1.ExportTo(frCSVExport1,SaveDialog1.FileName);
   showmessage('导入excel文件'+SaveDialog1.FileName+'成功');
   end;
end;

end.