JiCangHai/PingTai/Newprint/Uprint.pas

unit Uprint;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Mask, DBCtrlsEh, Buttons, ExtCtrls, Grids,
  DBGridEh, frxDesgn, frxClass,IniFiles, frxDBSet, frxExportXLS,
  frxExportImage, frxExportCSV, frxExportPDF, frxOLE, frxDCtrl,
  frxADOComponents, DBCtrls, bsSkinCtrls, frxExportMail, frxExportText,
  frxExportHTML, frxExportRTF, frxCross, bsDialogs, Menus;


type
  TfrmPrint = class(TForm)
    conn: TADOConnection;
    DBGridEh1: TDBGridEh;
    Panel3: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton3: TSpeedButton;
    DBEditEh1: TDBEditEh;
    frxReport1: TfrxReport;
    frxDesigner1: TfrxDesigner;
    t_sys_reportfile: TADOQuery;
    SaveDialog1: TSaveDialog;
    DataSource1: TDataSource;
    qry1: TADOQuery;
    db1: TfrxDBDataset;
    db2: TfrxDBDataset;
    db3: TfrxDBDataset;
    db4: TfrxDBDataset;
    db5: TfrxDBDataset;
    frxXLSExport1: TfrxXLSExport;
    qry2: TADOQuery;
    qry3: TADOQuery;
    qry4: TADOQuery;
    qry5: TADOQuery;
    ADOQuery1: TADOQuery;
    Splitter1: TSplitter;
    db6: TfrxDBDataset;
    db7: TfrxDBDataset;
    db8: TfrxDBDataset;
    db9: TfrxDBDataset;
    qry6: TADOQuery;
    qry7: TADOQuery;
    qry8: TADOQuery;
    qry9: TADOQuery;
    frxPDFExport1: TfrxPDFExport;
    frxCSVExport1: TfrxCSVExport;
    frxJPEGExport1: TfrxJPEGExport;
    frxDialogControls1: TfrxDialogControls;
    frxOLEObject1: TfrxOLEObject;
    frxADOComponents1: TfrxADOComponents;
    ds9: TDataSource;
    frxHTMLExport1: TfrxHTMLExport;
    frxBMPExport1: TfrxBMPExport;
    frxTIFFExport1: TfrxTIFFExport;
    frxGIFExport1: TfrxGIFExport;
    frxSimpleTextExport1: TfrxSimpleTextExport;
    frxMailExport1: TfrxMailExport;
    frxRTFExport1: TfrxRTFExport;
    QryUserEdit: TADOQuery;
    Panel1: TPanel;
    SpeedButton7: TSpeedButton;
    t_sys_report: TADOQuery;
    frxCrossObject1: TfrxCrossObject;
    t_sys_reportfileGID: TStringField;
    t_sys_reportfileRPTNAME: TStringField;
    t_sys_reportfileRPTCONTENT: TMemoField;
    t_sys_reportfileRPTPROP: TStringField;
    t_sys_reportfileISDEFAULT: TBooleanField;
    t_sys_reportfileCOMPANYID: TStringField;
    ADOQuery2: TADOQuery;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    EXCEL1: TMenuItem;
    N5: TMenuItem;
    RTF1: TMenuItem;
    N3: TMenuItem;
    WORD1: TMenuItem;
    N4: TMenuItem;
    PDF1: TMenuItem;
    SpeedButton8: TSpeedButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton9: TSpeedButton;
    procedure SpeedButton4Click(Sender: TObject);
    function frxDesigner1SaveReport(Report: TfrxReport;
      SaveAs: Boolean): Boolean;
    procedure SpeedButton5Click(Sender: TObject);
    procedure connBeforeConnect(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    function frxReport1UserFunction(const MethodName: String;
      var Params: Variant): Variant;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure EXCEL1Click(Sender: TObject);
    procedure RTF1Click(Sender: TObject);
    procedure WORD1Click(Sender: TObject);
    procedure PDF1Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   Comp,OpType,dsr,Uid,RmServer,dbstr,database,userid,password:string;
   function connect_string(file_name:string):string;
   function CreateAdoQuery(sql:string): TAdoQuery;
   function AyalisisPararm(wepararm:string):string;
   function GetGid: string;
   procedure RegPrintDataset(myName:string;mydb1,mydb2,mydb3,mydb4,mydb5,mydb6,mydb7,mydb8,mydb9:TDataset);
  end;

var
  frmPrint: TfrmPrint;
  billno:string;
  function ReadPassword(target:string):   string;

implementation
uses u_sys_progress,my_sys_function, U_SendMail;
{$R *.dfm}

function ReadPassword(target:string):   string;
var
    s:string[20];
    i:byte;
    s1:string;
begin
{
    setlength(s,length(target));
    for   i:=1   to   length(target)   do
        s[i]:=chr(ord(target[i])-ord('d'));
    result:=s;
}
  s1:=Copy(Trim(target),7,Length(Trim(target)));
  result:=Copy(Trim(s1),1,Length(Trim(s1))-9);
end;

function TfrmPrint.GetGid: string;
begin
  ADOQuery2.Close;
  ADOQuery2.SQL.Text:='select newid() as GID ';
  ADOQuery2.Open;
  result:=ADOQuery2.fieldbyname('GID').AsString;
end;
function TfrmPrint.AyalisisPararm(wepararm:string):string;
begin
    wepararm:=StringReplace(wepararm,'%20',' ',[rfReplaceAll]);
  if pos('Password',wepararm)>1 then begin
  wepararm:=Copy(wepararm,Pos('?',wepararm)+1,Length(wepararm));
  Comp:=Copy(wepararm,Pos('=',wepararm)+1,Pos('&',wepararm)-Pos('=',wepararm)-1);

  wepararm:=Copy(wepararm,Pos('&',wepararm)+1,Length(wepararm));
  OpType:=Copy(wepararm,Pos('=',wepararm)+1,Pos('&',wepararm)-Pos('=',wepararm)-1);


  wepararm:=Copy(wepararm,Pos('&',wepararm)+1,Length(wepararm));
  dsr:=Copy(wepararm,Pos('=',wepararm)+1,Pos('&',wepararm)-Pos('=',wepararm)-1);

  wepararm:=Copy(wepararm,Pos('&',wepararm)+1,Length(wepararm));
  Uid:=Copy(wepararm,Pos('=',wepararm)+1,Pos('&',wepararm)-Pos('=',wepararm)-1);

  wepararm:=Copy(wepararm,Pos('&',wepararm)+1,Length(wepararm));
  RmServer:=Copy(wepararm,Pos('=',wepararm)+1,Pos('&',wepararm)-Pos('=',wepararm)-1);

  wepararm:=Copy(wepararm,Pos('&',wepararm)+1,Length(wepararm));
  dbstr:=Copy(wepararm,Pos('=',wepararm)+1,Length(wepararm));
  wepararm:=Copy(dbstr,Pos('Database',dbstr)+8,Length(dbstr));
  database:=Copy(wepararm,Pos('=',wepararm)+1,Pos(';',wepararm)-Pos('=',wepararm)-1);

  wepararm:=Copy(dbstr,Pos('User ID',dbstr)+7,Length(dbstr));
  userid:=Copy(wepararm,Pos('=',wepararm)+1,Pos(';',wepararm)-Pos('=',wepararm)-1);


  wepararm:=Copy(wepararm,Pos('Password',wepararm)+8,Length(wepararm));
  password:=Copy(wepararm,Pos('=',wepararm)+1,Length(wepararm));
  end else begin
    wepararm:=Copy(wepararm,Pos('?',wepararm)+1,Length(wepararm));
    Comp:=Copy(wepararm,Pos('=',wepararm)+1,Pos('&',wepararm)-Pos('=',wepararm)-1);

    wepararm:=Copy(wepararm,Pos('&',wepararm)+1,Length(wepararm));
    OpType:=Copy(wepararm,Pos('=',wepararm)+1,Pos('&',wepararm)-Pos('=',wepararm)-1);


    wepararm:=Copy(wepararm,Pos('&',wepararm)+1,Length(wepararm));
    dsr:=Copy(wepararm,Pos('=',wepararm)+1,Pos('&',wepararm)-Pos('=',wepararm)-1);

    wepararm:=Copy(wepararm,Pos('&',wepararm)+1,Length(wepararm));
    Uid:=Copy(wepararm,Pos('=',wepararm)+1,Length(wepararm));
  end;


end;

function TfrmPrint.connect_string(file_name:string):string;
var
  str,psw:WideString;
  inifile1:Tinifile;
begin
  str:='';
  if RmServer='' then begin
  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+file_name);
  psw:=inifile1.ReadString('database','Password','');
  psw:=ReadPassword(psw);
  str:='Provider='+inifile1.ReadString('database','Provider','');
  str:=str+' Password='+Trim(psw)+';';
  str:=str+' Persist Security Info='+inifile1.ReadString('database','Persist Security Info','');
  str:=str+'User ID='+inifile1.ReadString('database','User ID','');
  str:=str+'Initial Catalog='+inifile1.ReadString('database','Initial Catalog','');
  str:=str+'Data Source='+inifile1.ReadString('database','Data Source','');
    inifile1.Free;
  end else begin
    str:='Provider=SQLOLEDB.1;';
    str:=str+' Password='+Trim(password)+';';
    str:=str+' Persist Security Info=False;';
    str:=str+'User ID='+userid+';';
    str:=str+'Initial Catalog='+database+';';
    str:=str+'Data Source='+RmServer+';';
  end;

  result:=str;
end;
procedure TfrmPrint.RegPrintDataset(myName: string; mydb1, mydb2, mydb3,
  mydb4,mydb5,mydb6,mydb7,mydb8,mydb9: TDataset);
var ifdefault:boolean ;
begin
  ifdefault:=False ;
  caption:=myname+'-<2D><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' ;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;      //11
  db1.DataSet:=mydb1;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;      //12
  db2.DataSet:=mydb2;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;      //13
  db3.DataSet:=mydb3;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;      //14
  db4.DataSet:=mydb4;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;      //15
  db5.DataSet:=mydb5;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;      //16
  db6.DataSet:=mydb6;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;      //17
  db7.DataSet:=mydb7;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;      //18
  db8.DataSet:=mydb8;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;      //19
  db9.DataSet:=mydb9;
end;


procedure TfrmPrint.SpeedButton4Click(Sender: TObject);
var
  gid:string;
begin
  {
  if t_sys_report.IsEmpty then begin
    t_sys_report.Close;
    t_sys_report.SQL.Clear;
    t_sys_report.SQL.Add('select top 0 * from sys_report ');
    t_sys_report.Open;
  end else begin
  end;
  }
  gid:=GetGid;
  t_sys_reportfile.Insert;
  t_sys_reportfile['RPTNAME']:=InputBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27>µ<EFBFBD><C2B5><EFBFBD><EFBFBD><EFBFBD>',t_sys_reportfile.fieldbyname('RPTNAME').asstring);
  t_sys_reportfile['RPTCONTENT']:='1';
  t_sys_reportfile['GID']:=gid;
  t_sys_reportfile['RPTPROP']:=OpType;
  t_sys_reportfile['ISDEFAULT']:=false;
  t_sys_reportfile['COMPANYID']:=Comp;
  t_sys_reportfile.post;

   t_sys_report.close;
   t_sys_report.Parameters.ParamByName('GID').Value:=t_sys_reportfile['GID'];
   t_sys_report.Open;


  frxReport1.DesignReport;

end;

function TfrmPrint.CreateAdoQuery(sql:string): TAdoQuery;
begin
  Result:=TAdoQuery.Create(nil);
  with Result do begin
    Close;SQL.Clear;
    connection:=conn;
  end;
end;


function TfrmPrint.frxDesigner1SaveReport(Report: TfrxReport;
  SaveAs: Boolean): Boolean;
var template : TStream;
begin
  if saveas then begin
    try
       if SaveDialog1.Execute then
         frxReport1.savetofile(SaveDialog1.filename);
    except
      showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽʧ<CABD>ܣ<EFBFBD>');
    end;
  end else begin
    template := TMemoryStream.Create;
    template.Position := 0;
    frxReport1.SaveToStream(template);
   
    t_sys_report.Edit;
    {
    t_sys_report['RPTNAME']:=t_sys_reportfile['RPTNAME'];
    t_sys_report['RPTPROP']:=OpType;
    t_sys_report['ISDEFAULT']:=false;
    t_sys_report['COMPANYID']:=Comp;
    }
    try
      t_sys_report.DisableControls;
      (t_sys_report.FieldByName('Report') as TBlobField).LoadFromStream(template);
      t_sys_report.Post;
    finally
      t_sys_report.EnableControls;
      template.Free;
    end;
    result:=true;
    t_sys_reportfile.Requery();    
  end;

end;

procedure TfrmPrint.SpeedButton5Click(Sender: TObject);
var
   template : TStream;
begin
   t_sys_report.close;
   t_sys_report.Parameters.ParamByName('GID').Value:=t_sys_reportfile['GID'];
   t_sys_report.Open;

  if t_sys_report.isempty then
    exit;
  if t_sys_report.isempty then
  begin
    showmessage('û<><C3BB>Ҫ<EFBFBD><D2AA><EFBFBD>Ƶĸ<C6B5>ʽ<EFBFBD><CABD>');
    exit;
  end;
  try
    if not t_sys_report.fieldbyname('report').IsNull then begin
      try
        template := t_sys_report.CreateBlobStream(t_sys_report.FieldByName('report'), bmRead);
        template.Position := 0;
        frxReport1.LoadFromStream(template);

      finally
        template.Free;
      end;
    end;
    frxReport1.DesignReport;
  except
    showmessage('<27><>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
  end;

end;

procedure TfrmPrint.connBeforeConnect(Sender: TObject);
begin
//  Conn.ConnectionString:=connect_string('main.ini');
end;

procedure TfrmPrint.SpeedButton6Click(Sender: TObject);
begin
  if t_sys_reportfile.isempty then
  begin
    showmessage('û<><C3BB>Ҫɾ<D2AA><C9BE><EFBFBD>ĸ<EFBFBD>ʽ<EFBFBD><CABD>');
    exit;
  end;
  if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD>ʽ<EFBFBD><CABD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
    t_sys_reportfile.delete;


end;

procedure TfrmPrint.SpeedButton1Click(Sender: TObject);
var
  template : TStream;
begin
   t_sys_report.close;
   t_sys_report.Parameters.ParamByName('GID').Value:=t_sys_reportfile['GID'];
   t_sys_report.Open;
  if t_sys_report.isempty then
    exit;
  try

    try
      template := t_sys_report.CreateBlobStream(t_sys_report.FieldByName('report'), bmRead);
      template.Position := 0;
      frxReport1.LoadFromStream(template);
    finally
      template.Free;
    end;
     frxReport1.ShowReport;
  except
    showmessage('<27><>ӡԤ<D3A1><D4A4>ʧ<EFBFBD>ܣ<EFBFBD>');
  end;

end;

procedure TfrmPrint.SpeedButton2Click(Sender: TObject);
var
  template : TStream;
begin
   t_sys_report.close;
   t_sys_report.Parameters.ParamByName('GID').Value:=t_sys_reportfile['GID'];
   t_sys_report.Open;

  if t_sys_report.isempty then
    exit;
  try
    try
      template := t_sys_report.CreateBlobStream(t_sys_report.FieldByName('report'), bmRead);
      template.Position := 0;
      frxReport1.LoadFromStream(template);
    finally
      template.Free;
    end;
     frxReport1.PrepareReport;
     frxReport1.Print;
  except
    showmessage('<27><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
  end;

end;

procedure TfrmPrint.SpeedButton3Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmPrint.FormShow(Sender: TObject);
var s : string;
begin
  
  if not ASSIGNED(frm_sys_progress) then
      frm_sys_progress:=tfrm_sys_progress.Create(application);
    frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݡ<EFBFBD><DDA1><EFBFBD><EFBFBD><EFBFBD>';
    frm_sys_progress.Show;
    frm_sys_progress.bsSkinGauge1.MaxValue:=100;
    frm_sys_progress.bsSkinGauge1.MinValue:=0;
    frm_sys_progress.bsSkinGauge1.Value:=0;
  try

   OpType:='SEAEOP';
   AyalisisPararm(ParamStr(1));
   Conn.ConnectionString:=connect_string('main.ini');
//  s:='select * from op_seae where bsno=''EDI512997f4bc3a461a827b9fe932882f90''';
  frm_sys_progress.bsSkinGauge1.Value:=10;
  Conn.Connected:=True;
  with ADOQuery1 do
  begin
    Close;SQL.Clear;
    SQL.Add('Select * from sys_report_dbsource');
    SQL.Add('Where GID=:GID');
    Parameters.ParamByName('GID').Value:=dsr;
    Open;
    if not IsEmpty then
    begin
      if FieldByName('SQLSTRING1').AsString<>'' then
      begin
       qry1.Close;
       qry1.SQL.Clear;
       qry1.SQL.Add(FieldByName('SQLSTRING1').AsString);
       qry1.Open;
      end;
      frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+5;
      if FieldByName('SQLSTRING2').AsString<>'' then
      begin
       qry2.Close;
       qry2.SQL.Clear;
       qry2.SQL.Add(FieldByName('SQLSTRING2').AsString);
       qry2.Open;
      end;
      frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+5;
      if FieldByName('SQLSTRING3').AsString<>'' then
      begin
       qry3.Close;
       qry3.SQL.Clear;
       qry3.SQL.Add(FieldByName('SQLSTRING3').AsString);
       qry3.Open;
      end;
      frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+5;
      if FieldByName('SQLSTRING4').AsString<>'' then
      begin
       qry4.Close;
       qry4.SQL.Clear;
       qry4.SQL.Add(FieldByName('SQLSTRING4').AsString);
       qry4.Open;
      end;
      frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+5;
      if FieldByName('SQLSTRING5').AsString<>'' then
      begin
       qry5.Close;
       qry5.SQL.Clear;
       qry5.SQL.Add(FieldByName('SQLSTRING5').AsString);
       qry5.Open;
      end;
      frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+5;
      if FieldByName('SQLSTRING6').AsString<>'' then
      begin
       qry6.Close;
       qry6.SQL.Clear;
       qry6.SQL.Add(FieldByName('SQLSTRING6').AsString);
       qry6.Open;
      end;
      frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+5;
      if FieldByName('SQLSTRING7').AsString<>'' then
      begin
       qry7.Close;
       qry7.SQL.Clear;
       qry7.SQL.Add(FieldByName('SQLSTRING7').AsString);
       qry7.Open;
      end;
      frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+5;
      if FieldByName('SQLSTRING8').AsString<>'' then
      begin
       qry8.Close;
       qry8.SQL.Clear;
       qry8.SQL.Add(FieldByName('SQLSTRING8').AsString);
       qry8.Open;
      end;
      billno:=FieldByName('DESCRIPTION').AsString;
      if (billno<>'') then
       frxReport1.FileName:=billno;


      frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+5;      //9
    end;
  end;

  with qry9 do
  begin
    Close;SQL.Clear;
    SQL.Add('Select * from company');
    SQL.Add('Where GID=:GID');
    Parameters.ParamByName('GID').Value:=Comp;
    Open;
  end;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+5;      //10

  RegPrintDataset(OpType+'1',qry1,qry2,qry3,qry4,qry5,qry6,qry7,qry8,qry9);

  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+5;      //11

  with QryUserEdit do
  begin
    Close;SQL.Clear;
    SQL.Add('select V.OPERATERANGE from VW_User_Authority v ');
    SQL.Add(' where V.USERID=:USERID AND V.NAME=:RptPrint');
    SQL.Add(' and V.ISDELETE=0');
    Parameters.ParamByName('USERID').Value:=Uid;
    Parameters.ParamByName('RptPrint').Value:='modRptPrintSet';
    Open;
    if not IsEmpty then begin
      if (FieldByName('OPERATERANGE').AsInteger=1) or (FieldByName('OPERATERANGE').AsInteger=2)
      or (FieldByName('OPERATERANGE').AsInteger=3) or (FieldByName('OPERATERANGE').AsInteger=0) then begin
        SpeedButton4.Enabled:=True;
        SpeedButton3.Enabled:=True;
        SpeedButton5.Enabled:=True;
        SpeedButton6.Enabled:=True;
        SpeedButton7.Enabled:=True;
      end else begin
        SpeedButton4.Enabled:=false;
        SpeedButton3.Enabled:=false;
        SpeedButton5.Enabled:=false;
        SpeedButton6.Enabled:=false;
        SpeedButton7.Enabled:=false;
      end;
    end else begin
      SpeedButton4.Enabled:=false;
      SpeedButton3.Enabled:=false;
      SpeedButton5.Enabled:=false;
      SpeedButton6.Enabled:=false;
      SpeedButton7.Enabled:=false;
    end;
  end;


  with t_sys_reportfile do
  begin
    Close;SQL.Clear;
    SQL.Add('select GID,RPTNAME,RPTCONTENT,RPTPROP,ISDEFAULT,COMPANYID from sys_report');
    SQL.Add('where RPTPROP=:RPTPROP and COMPANYID=:COMPANYID  and GID NOT IN (SELECT RPTGID FROM sys_report_userrange WHERE USERID=:USERID) ');
    Parameters.ParamByName('RPTPROP').Value:=OpType;
    Parameters.ParamByName('COMPANYID').Value:=Comp;
    Parameters.ParamByName('USERID').Value:=Uid;
    SQL.Add('order by  RPTPROP,COMPANYID');
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+5;      //11
    Open;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+5;      //11
  
  end;
  frm_sys_progress.bsSkinGauge1.Value:=100;
  finally
    frm_sys_progress.close;
    frm_sys_progress:=nil;
  end;  

end;

function TfrmPrint.frxReport1UserFunction(const MethodName: String;
  var Params: Variant): Variant;
begin
  if uppercase(MethodName)='MONEYCN' then
   Result := MoneyCn(Params[0],Params[1]);

  if uppercase(MethodName)='ENGDATEFMT' then
   Result := EngDateFmt(Params[0],Params[1],Params[2],Params[3],Params[4],Params[5],Params[6]);

  if uppercase(MethodName)='GETCUSTBALDATE' then
   Result :=formatdatetime('YYYY-MM-DD',getstlDate(Params[0],Params[1],Params[2]));

  if uppercase(MethodName)='GETCUSTBALDAY' then
   Result :=inttostr(getstlDay(Params[0],Params[1],Params[2]));

  if uppercase(MethodName)='MONEYEN' then
   Result := EWords(Params[0],0);
  if uppercase(MethodName)='AMOUNT2STR' then
   Result :=Amount2Str(Params[0],Params[1],Params[2]);
  if uppercase(MethodName)='MONEYEN2' then
   Result := FloatToEnglish(Params[0],Params[1]);



end;

procedure TfrmPrint.FormCreate(Sender: TObject);
begin

  frxReport1.AddFunction('function MoneyCn(num:real;lx:boolean=false):widestring;','<27>Զ<EFBFBD><D4B6><EFBFBD>');
  frxReport1.AddFunction('function MoneyEn(num:real;):widestring;','<27>Զ<EFBFBD><D4B6><EFBFBD>');
  frxReport1.AddFunction('function MoneyEn2(num:real,curr:String;):widestring;','<27>Զ<EFBFBD><D4B6><EFBFBD>');
  frxReport1.AddFunction('function EngDateFmt(ADateTime:TDateTime;JX,DX:boolean;MDY:Boolean=true;MD:Boolean=false;DIAN:Boolean=false;MY:Boolean=false):string;','<27>Զ<EFBFBD><D4B6><EFBFBD>');
  frxReport1.AddFunction('function GETCUSTBALDATE(ADateTime:TDateTime;Cust,Sale:String):TDateTime;','<27>Զ<EFBFBD><D4B6><EFBFBD>');
  frxReport1.AddFunction('function GETCUSTBALDAY(ADateTime:TDateTime;Cust,Sale:String):integer;','<27>Զ<EFBFBD><D4B6><EFBFBD>');
  frxReport1.AddFunction('function Amount2Str(amount:Real;numpos:Integer;curr:string):widestring;','<27>Զ<EFBFBD><D4B6><EFBFBD>');

end;

procedure TfrmPrint.SpeedButton7Click(Sender: TObject);
begin
  if t_sys_reportfile.isempty then
  begin
    showmessage('û<><C3BB>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƶĸ<C6B5>ʽ<EFBFBD><CABD>');
    exit;
  end;
  t_sys_reportfile.edit;
  t_sys_reportfile['RPTNAME']:=InputBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27>µ<EFBFBD><C2B5><EFBFBD><EFBFBD><EFBFBD>',t_sys_reportfile.fieldbyname('RPTNAME').asstring);
  t_sys_reportfile.post;
end;

procedure TfrmPrint.N1Click(Sender: TObject);
var
  template : TStream;
begin
   t_sys_report.close;
   t_sys_report.Parameters.ParamByName('GID').Value:=t_sys_reportfile['GID'];
   t_sys_report.Open;

  if t_sys_report.isempty then
    exit;
  try
    try
      template := t_sys_report.CreateBlobStream(t_sys_report.FieldByName('report'), bmRead);
      template.Position := 0;
      frxReport1.LoadFromStream(template);
    finally
      template.Free;
    end;
     frxReport1.PrepareReport;
     frxReport1.Export(frxJPEGExport1);
  except
    showmessage('<27><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
  end;
end;

procedure TfrmPrint.EXCEL1Click(Sender: TObject);
var
  template : TStream;
begin
   t_sys_report.close;
   t_sys_report.Parameters.ParamByName('GID').Value:=t_sys_reportfile['GID'];
   t_sys_report.Open;

  if t_sys_report.isempty then
    exit;
  try
    try
      template := t_sys_report.CreateBlobStream(t_sys_report.FieldByName('report'), bmRead);
      template.Position := 0;
      frxReport1.LoadFromStream(template);
    finally
      template.Free;
    end;
     frxReport1.PrepareReport;
     frxReport1.Export(frxXLSExport1);
  except
    showmessage('<27><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
  end;
end;

procedure TfrmPrint.RTF1Click(Sender: TObject);
var
  template : TStream;
begin
   t_sys_report.close;
   t_sys_report.Parameters.ParamByName('GID').Value:=t_sys_reportfile['GID'];
   t_sys_report.Open;

  if t_sys_report.isempty then
    exit;
  try
    try
      template := t_sys_report.CreateBlobStream(t_sys_report.FieldByName('report'), bmRead);
      template.Position := 0;
      frxReport1.LoadFromStream(template);
    finally
      template.Free;
    end;
     frxReport1.PrepareReport;
     frxReport1.Export(frxRTFExport1);
  except
    showmessage('<27><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
  end;
end;

procedure TfrmPrint.WORD1Click(Sender: TObject);
var
  template : TStream;
begin
   t_sys_report.close;
   t_sys_report.Parameters.ParamByName('GID').Value:=t_sys_reportfile['GID'];
   t_sys_report.Open;

  if t_sys_report.isempty then
    exit;
  try
    try
      template := t_sys_report.CreateBlobStream(t_sys_report.FieldByName('report'), bmRead);
      template.Position := 0;
      frxReport1.LoadFromStream(template);
    finally
      template.Free;
    end;
     frxReport1.PrepareReport;
     frxReport1.Export(frxHTMLExport1);
  except
    showmessage('<27><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
  end;
end;

procedure TfrmPrint.PDF1Click(Sender: TObject);
var
  template : TStream;
begin
   t_sys_report.close;
   t_sys_report.Parameters.ParamByName('GID').Value:=t_sys_reportfile['GID'];
   t_sys_report.Open;

  if t_sys_report.isempty then
    exit;
  try
    try
      template := t_sys_report.CreateBlobStream(t_sys_report.FieldByName('report'), bmRead);
      template.Position := 0;
      frxReport1.LoadFromStream(template);
    finally
      template.Free;
    end;
     frxReport1.PrepareReport;
     frxReport1.Export(frxPDFExport1);
  except
    showmessage('<27><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
  end;
end;

procedure TfrmPrint.SpeedButton8Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=SpeedButton8.ClientToScreen(Point(0,SpeedButton8.Height));
  PopupMenu1.Popup(Pnt.x,Pnt.y);
end;

procedure TfrmPrint.SpeedButton9Click(Sender: TObject);
begin
  frmSendMail := TfrmSendMail.Create(self);
  try
    frmSendMail.ShowModal;
  finally
    freeandnil(frmSendMail);
  end;
end;

end.