sysuserfrm.pas

delphi 编制的服务器程序

unit SysUserFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DbChildFrm, DB, ADODB, ImgList, Grids, DBGrids, ComCtrls,
  Buttons, ExtCtrls, StdCtrls, Mask, DBCtrls;

type
  TSysUserForm = class(TDbChildForm)
    ADOQuery1User_ID: TAutoIncField;
    ADOQuery1UserCode: TWideStringField;
    ADOQuery1UserName: TWideStringField;
    ADOQuery1Enterpass: TWideStringField;
    ADOQuery1ISSUPER: TWideStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    procedure sbqueryClick(Sender: TObject);
    procedure ADOQuery1AfterInsert(DataSet: TDataSet);
    procedure sbimportClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SysUserForm: TSysUserForm;
  procedure CallSysUserForm;
  
implementation

uses MainDm, PublicFunc;

{$R *.dfm}
procedure CallSysUserForm;
begin
  if SysUserForm = nil then
    SysUserForm := TSysUserForm.Create(Application);
  SysUserForm.ShowModal;
  SysUserForm.Free;
  SysUserForm := nil;
end;
procedure TSysUserForm.sbqueryClick(Sender: TObject);
begin
  inherited;
//  if AdoQuery1.State in [DsEdit,DsInsert] then Exit;
  if AdoQuery1.RecordCount = 0 then Exit;
  MessageBoxInfo(AdoQuery1UserName.Value+'的密码为'+Decrypt(AdoQuery1EnterPass.Value,'zzy'));
end;

procedure TSysUserForm.ADOQuery1AfterInsert(DataSet: TDataSet);
begin
  inherited;
  AdoQuery1EnterPass.Value := EnCrypt('123456','zzy');
end;

procedure TSysUserForm.sbimportClick(Sender: TObject);
var
  s,s1,s2: string;
begin
  inherited;
  s := '123456';
  s1 := EnCryPt(s,'zzy');
  s2 := Decrypt(s1,'zzy');
  ShowMessage(s1);
  ShowMessage(s2);


end;

end.