unit1.pas

office oa,delphi,oa1 ,oa2,oa3,oa4,oa5

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, CoolTrayIcon, SUIPopupMenu, WinSkinData,
   SUIMgr, SUIForm,comobj, QExport3Dialog, DB, ADODB, FR_DSet, FR_DBSet,
  FR_Class, WinSkinStore,shellapi;

type
  TForm1 = class(TForm)
    suiPopupMenu1: TsuiPopupMenu;
    CoolTrayIcon1: TCoolTrayIcon;
    Timer1: TTimer;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Timer2: TTimer;
    suiMSNPopForm1: TsuiMSNPopForm;
    N6: TMenuItem;
    ADOQuery1: TADOQuery;
    QExport3Dialog1: TQExport3Dialog;
    N7: TMenuItem;
    ADOQuery2: TADOQuery;
    ADOQuery2sc_id: TStringField;
    ADOQuery2sc_mc: TStringField;
    ADOQuery2sc_lxr: TStringField;
    ADOQuery2sc_dz: TStringField;
    ADOQuery2sc_yysj: TStringField;
    ADOQuery2sc_kzrq: TDateTimeField;
    ADOQuery2sc_lxdh: TStringField;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    suiThemeManager1: TsuiThemeManager;
    suiFileTheme1: TsuiFileTheme;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);
var
excelapp:variant;
begin
excelapp:=createoleobject('excel.application');
excelapp.visible:=false;
excelapp.caption:='启动信息部未配排名流程';
excelapp.workbooks.open('C:\windows\desktop\统计表.xls',UpdateLinks:=3);
excelapp.Sheets['星期一星期四B门店'].Select;
excelapp.activesheet.printout;
excelapp.activeworkbook.saved:=true;
excelapp.workbooks.close;
excelapp.quit;
end;

procedure TForm1.N2Click(Sender: TObject);
var
excelapp:variant;
begin
excelapp:=createoleobject('excel.application');
excelapp.visible:=false;
excelapp.caption:='启动信息部未配排名流程';
excelapp.workbooks.open('C:\windows\desktop\统计表.xls',UpdateLinks:=3);
excelapp.Sheets['星期二星期五c门店'].Select;
excelapp.activesheet.printout;
excelapp.activeworkbook.saved:=true;
excelapp.workbooks.close;
excelapp.quit;

end;

procedure TForm1.N3Click(Sender: TObject);
var
excelapp:variant;
begin
excelapp:=createoleobject('excel.application');
excelapp.visible:=false;
excelapp.caption:='启动信息部未配排名流程';
excelapp.workbooks.open('C:\windows\desktop\统计表.xls',UpdateLinks:=3);
excelapp.Sheets['星期三星期六a门店'].Select;
excelapp.activesheet.printout;
excelapp.activeworkbook.saved:=true;
excelapp.workbooks.close;
excelapp.quit;
//excelapp.disconnect;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.N5Click(Sender: TObject);
var
excelapp:variant;
begin
excelapp:=createoleobject('excel.application');
excelapp.visible:=false;
excelapp.caption:='启动信息部未配排名流程';
excelapp.workbooks.open('C:\windows\desktop\统计表.xls',UpdateLinks:=3);
excelapp.Sheets['宁波'].Select;
excelapp.activesheet.printout;
excelapp.activeworkbook.saved:=true;
excelapp.workbooks.close;
excelapp.quit;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//randomize;
//suipopupmenu1.selectedborderColor:=rgb(random(255),random(255),random(255));
suimsnpopform1.Popup;
//suimsnpopform1.MessageText:='今天是星期' + Copy('日一二三四五六', DayOfWeek(Date) * 2 - 1, 2);
//suimsnpopform1.Title:='1';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//if '周' + Copy('日一二三四五六', DayOfWeek(Date) * 2 - 1, 2)='周三'
//then   timer1.OnTimer:=n1click;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
//close;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
suimsnpopform1.Close;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
QExport3Dialog1.Execute;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
  //  QExport3Dialog2.Execute;
  frreport1.PrepareReport;
frreport1.PrintPreparedReportDlg;

end;

procedure TForm1.N8Click(Sender: TObject);
begin
 ShellExecute(0, 'Open', 'C:\My Documents\办公自动化\未配排名.exe', nil, nil, SW_SHOW);
end;

procedure TForm1.N9Click(Sender: TObject);
begin
ShellExecute(0, 'Open', 'C:\My Documents\办公自动化\昨日销售.exe', nil, nil, SW_SHOW);
end;

procedure TForm1.N11Click(Sender: TObject);
begin
 ShellExecute(0, 'Open', 'C:\My Documents\办公自动化\清场.exe', nil, nil, SW_SHOW);
end;

procedure TForm1.N12Click(Sender: TObject);
begin
 ShellExecute(0, 'Open', 'C:\My Documents\办公自动化\充值卡.exe', nil, nil, SW_SHOW);
end;

procedure TForm1.N10Click(Sender: TObject);
begin
ShellExecute(0, 'Open', 'C:\My Documents\办公自动化\残次.exe', nil, nil, SW_SHOW);

end;

procedure TForm1.N13Click(Sender: TObject);
begin
 ShellExecute(0, 'Open', 'C:\My Documents\办公自动化\邮件.exe', nil, nil, SW_SHOW);

end;

end.