www.pudn.com > MailServer.rar > cSet.pas, change:2003-06-15,size:4910b

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.