dbset_unit.pas

ceshi de bu yao xiazai

unit dbset_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBTables, ExtCtrls, DB ,inifiles,IdSMTP,IdMessage;

type
  Tdbset_form = class(TForm)
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    SFCDB: TComboBox;
    SFCUSER: TEdit;
    SFCPASS: TEdit;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    SFCTEST: TButton;
    TIPTEST: TButton;
    testdatabase: TDatabase;
    Label4: TLabel;
    tiptopdb: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure SFCTESTClick(Sender: TObject);
    procedure TIPTESTClick(Sender: TObject);
    procedure SFCPASSKeyPress(Sender: TObject; var Key: Char);
    procedure TIPDBKeyPress(Sender: TObject; var Key: Char);
    procedure SFCDBKeyPress(Sender: TObject; var Key: Char);
    procedure SFCUSERKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SFCDBChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    IdMessage:TidMessage;
    IdSmtp:TidSmtp;
  public
    { Public declarations }
    function encrypt(varstr:string):string;
    function decrypt(varstr:string):string;
    function SendMail(MailBody,MailSubject:string):string;
  end;

var
  dbset_form: Tdbset_form;

implementation

{$R *.dfm}

uses unit1;

function Tdbset_form.encrypt(varstr:string):string;
var
  i:integer;
  asc,encryptstr:string;
begin
  encryptstr:='';
  for i:=1 to length(varstr) do
    begin
      asc:=inttostr(ord(varstr[i]));
      while length(asc)<3 do
        begin
          asc:='0'+asc;
        end;
      encryptstr:=encryptstr+asc;
    end;
  result:=encryptstr;
end;

function Tdbset_form.decrypt(varstr:string):string;
var
  asc:integer;
  decryptstr:string;
begin
  decryptstr:='';
  while length(varstr)>0 do
    begin
      asc:=strtoint(copy(varstr,1,3));
      decryptstr:=decryptstr+char(asc);
      if length(varstr)>3 then
        begin
          varstr:=copy(varstr,4,length(varstr)-3);
        end
      else
        begin
          varstr:='';
        end;
    end;
  result:=decryptstr;
end;

procedure Tdbset_form.FormShow(Sender: TObject);
var
  MyStringList:TStringList;
  i:integer;
  timebookini:Tinifile;
begin
   MyStringList := TStringList.Create;
   session.GetAliasNames(MyStringList);
   SFCDB.Clear;
   tiptopdb.Clear;
   for i:=0 to MyStringList.Count-1 do
   begin
     SFCDB.Items.Add(MyStringList[i]);
     tiptopdb.Items.Add(MyStringList[i]);
   end;

   try
     timebookini:=tinifile.Create(extractfilepath(application.ExeName)+'timebook.INI');
     tiptopdb.Text:=timebookini.ReadString('TIPTOP','alias','');
     sfcdb.Text := timebookini.ReadString('SFC','alias','');
     sfcuser.Text:=timebookini.ReadString('SFC','username','');
     sfcpass.Text:=decrypt(timebookini.ReadString('SFC','password',''));
   finally
     timebookini.Free;
   end;
   SFCDB.SetFocus;
end;

procedure Tdbset_form.SFCTESTClick(Sender: TObject);
begin
  if sfcdb.Text='' then
    begin
      showmessage('叫匡拒SFC戈