main_unit.~pas

来自「一個強大的定時服務程序」· ~PAS 代码 · 共 121 行

unit Main_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,IniFiles, DB, ADODB, ExtCtrls, IdMessage,uCiaServiceTools,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,DateUtils,
  IdMessageClient, IdSMTP, StdCtrls, cxControls, cxContainer, cxEdit,
  cxTextEdit, cxCheckBox, cxGroupBox, Menus, cxLookAndFeelPainters,
  cxButtons, cxRadioGroup, cxMaskEdit, cxSpinEdit, cxTimeEdit, cxGraphics,
  cxDropDownEdit, ImgList,shellapi,ComObj,excel2000;
const
  MI_ICONEVENT=WM_USER+1;
type
  TMainForm = class(TForm)
    qry_con: TADOQuery;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    tmr1: TTimer;
    tmr2: TTimer;
    lbl1: TLabel;
    edt_server: TcxTextEdit;
    lbl2: TLabel;
    edt_dbname: TcxTextEdit;
    lbl3: TLabel;
    edt_Username: TcxTextEdit;
    lbl4: TLabel;
    edt_pass: TcxTextEdit;
    lbl5: TLabel;
    edt_Mailserver: TcxTextEdit;
    lbl6: TLabel;
    edt_Mailuser: TcxTextEdit;
    lbl7: TLabel;
    edt_mailpass: TcxTextEdit;
    lbl8: TLabel;
    edt_port: TcxTextEdit;
    grp1: TcxGroupBox;
    btn_Save: TcxButton;
    btn_exit: TcxButton;
    lbl11: TLabel;
    edt_mailfrom: TcxTextEdit;
    lbl12: TLabel;
    edt_mailto: TcxTextEdit;
    lbl13: TLabel;
    edt_sql: TcxTextEdit;
    rd1: TcxRadioGroup;
    grp2: TcxGroupBox;
    lbl9: TLabel;
    lbl10: TLabel;
    grp4: TcxGroupBox;
    grp3: TcxGroupBox;
    lbl15: TLabel;
    sedt_z: TcxSpinEdit;
    lbl16: TLabel;
    chk_xq1: TcxCheckBox;
    chk_xq2: TcxCheckBox;
    chk_xq3: TcxCheckBox;
    chk_xq4: TcxCheckBox;
    chk_xq5: TcxCheckBox;
    chk_xq6: TcxCheckBox;
    chk_xq7: TcxCheckBox;
    rb_onetime: TcxRadioButton;
    rb_repeat: TcxRadioButton;
    cxt1: TcxTimeEdit;
    sedt_repeat: TcxSpinEdit;
    cbb_pl: TcxComboBox;
    sedt_t: TcxSpinEdit;
    lbl14: TLabel;
    sedt_yt: TcxSpinEdit;
    lbl17: TLabel;
    sedt_y: TcxSpinEdit;
    lbl18: TLabel;
    il1: TImageList;
    qry_op: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure tmr1Timer(Sender: TObject);
    procedure tmr2Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btn_SaveClick(Sender: TObject);
    procedure btn_exitClick(Sender: TObject);
    procedure rd1PropertiesChange(Sender: TObject);
    procedure rb_onetimeClick(Sender: TObject);
    procedure rb_repeatClick(Sender: TObject);
  private
    IsYC:Boolean;
    procedure InstallIcon;
    procedure UnInstallIcon;
    procedure SaveExcel;
    function IntToZ(i:Integer):string;
    procedure IconOnClick(var message:TMessage); message MI_ICONEVENT;
    { Private declarations }
  public
    sendTime,sendDate:TDateTime;
    procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY;
    procedure SysButtonMsg(var Msg: TMessage); message WM_SYSCOMMAND;
    procedure SendMail;
    procedure PcSendMail;
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  ShowMe,nClose:Integer;
  gbcanclose:Boolean;

implementation
{$R *.dfm}

procedure TMainForm.SaveExcel;
var
  iLoop,i,n,k:Integer;
  ExcelApp: Variant;
  ColumnName:TStringList;
begin
  try
    ExcelApp:=CreateOleObject('Excel.Application');
  except
    MessageDlg('癸ぃ癬,