cset.~pas

邮件系统的代码

unit cSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, se_controls, KsSkinForms, KsSkinButtons,
  ksskinstdcontrol, KsSkinEdits, KsSkinLabels, KsSkinGroupBoxs,
  KsSkinComboBoxs, KsSkinTabs, KsSkinItems, Menus, KsSkinMenus,
  KsSkinListBoxs;

type
  TfrmSet = class(TForm)
    SeSkinForm1: TSeSkinForm;
    SeSkinPageControl1: TSeSkinPageControl;
    SeCustomTabSheet4: TSeCustomTabSheet;
    ed_Company: TSeSkinEdit;
    Label1: TSeSkinLabel;
    Label2: TSeSkinLabel;
    ed_LCompany: TSeSkinEdit;
    mo_JCompany: TSeSkinMemo;
    Label3: TSeSkinLabel;
    btnCancle: TSeSkinButton;
    btnSave: TSeSkinButton;
    SeSkinGroupBox1: TSeSkinGroupBox;
    ed_domain: TSeSkinEdit;
    btn_add: TSeSkinButton;
    btn_del: TSeSkinButton;
    SeSkinLabel2: TSeSkinLabel;
    cb_Domain: TSeSkinComboBox;
    SeSkinLabel1: TSeSkinLabel;
    SeCustomTabSheet3: TSeCustomTabSheet;
    SeSkinButton1: TSeSkinButton;
    SeSkinButton2: TSeSkinButton;
    ed_upass: TSeSkinEdit;
    ed_uname: TSeSkinEdit;
    SeSkinLabel3: TSeSkinLabel;
    SeSkinLabel4: TSeSkinLabel;
    lst_User: TSeSkinListBox;
    SeSkinLabel6: TSeSkinLabel;
    SeSkinPopupMenu1: TSeSkinPopupMenu;
    mnuDel: TSeSkinItem;
    procedure btnSaveClick(Sender: TObject);
    procedure btnCancleClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure mnuDelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    function SaveUser(UserName,UserPass:string):boolean;
    procedure SeSkinButton1Click(Sender: TObject);
    procedure lst_UserClick(Sender: TObject);
    procedure GetList();
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSet: TfrmSet;

implementation

uses Utility, cMain, cLog,ADODB_TLB;

{$R *.dfm}

procedure TfrmSet.btnSaveClick(Sender: TObject);
begin
   rPutValue('Company',ed_company.Text);
   rPutValue('LCompany',ed_LCompany.Text);
   rPutValue('JCompany',CorrectStr(CorrectStr(mo_JCompany.Text,#13),#10));
   Company:=ed_company.text;
   Lcompany:=ed_lcompany.Text;
   jcompany:=CorrectStr(CorrectStr(mo_JCompany.Text,#13),#10);
   Application.Title:=Company+'邮件服务器';
   frmMain.Caption:=Application.Title;
   if assigned(frmlog) then frmlog.Caption:=Application.Title;
   frmMain.lbl_company.Caption:=LCompany;
   frmMain.lbl_jcompany.Caption:=mo_JCompany.Text;
   close;
end;

procedure TfrmSet.btnCancleClick(Sender: TObject);
begin
  close;
end;

procedure TfrmSet.FormShow(Sender: TObject);
begin
   ed_company.text:=Company;
   ed_lcompany.Text:=Lcompany;
   mo_jcompany.text:=CorrectStr(jcompany,'|');
end;

procedure TfrmSet.mnuDelClick(Sender: TObject);
begin
  if lst_User.ItemIndex<0 then exit;
  MailDataSet.ExecSQL('delete from MailUser where UserName='''+lst_User.items[lst_User.ItemIndex]+'''');
  lst_User.Items.Delete(lst_User.ItemIndex);
end;

procedure TfrmSet.FormCreate(Sender: TObject);
begin
  GetList();
end;

procedure TfrmSet.GetList();
var
  tRs:TRecordSet;
  lsql:string;
  ErrText:string;
begin
  lst_User.Clear;
  lsql:='select * from MailUser';
  tRs:=MailDataSet.GetData(lsql,ErrText);
  while not tRs.EOF do
  begin
    lst_User.Items.Add(trs.Fields['UserName'].Value);
  trs.MoveNext;
  end;
end;

function TfrmSet.SaveUser(UserName, UserPass: string): boolean;
var
  lsql:string;
  tRs:TRecordSet;
begin
  result:=false;
  lsql:='select * from MailUser where UserName='''+UserName+'''';
  tRs:=MailDataSet.GetData(lsql);
  if not tRs.EOF then
    lsql:='update MailUser set UserPass='''+UserPass+''' where UserName='''+UserName+''''
  else
    lsql:='insert into MailUser ( UserName,UserPass,[Domain],Power,[Size]) values ('
      +''''+ Username+''','''+UserPass+''',''local'',1,100)';
  if MailDataSet.ExecSQL(lsql)='' then result:=true;
end;

procedure TfrmSet.SeSkinButton1Click(Sender: TObject);
begin
   if (pos('''',ed_uname.Text)<>0) or (pos('''',ed_upass.Text)<>0) then
   begin
     frmMain.SeMsg.MessageDlg('保存失败！'+#13#10+'[非法字符]',mtInformation,[mbOK],0);
     exit;
   end;
   if (trim(ed_uname.Text)<>'') and (trim(ed_upass.Text)<>'') then
   begin
     if SaveUser(ed_uname.Text,ed_upass.Text) then
     begin
       frmMain.SeMsg.MessageDlg('保存成功!',mtInformation,[mbOK],0);
       //mtWarning mtError mtInformation mtConfirmation
       GetList();
     end
     else
       frmMain.SeMsg.MessageDlg('保存失败！',mtError,[mbOK],0);
   end
   else
     frmMain.SeMsg.MessageDlg('请填写用户名和密码',mtInformation,[mbOK],0);
end;

procedure TfrmSet.lst_UserClick(Sender: TObject);
begin
  if lst_User.ItemIndex<0 then exit;
  ed_uname.Text:=lst_User.Items[lst_User.ItemIndex];
  ed_upass.Text:='';
end;

end.