login_util.pas

彩票销售系统

unit login_util;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, DBCtrls, Db, DBTables, Mask, ADODB,registry;

type
  Tlogin_form = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    Panel2: TPanel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    UserCon: TADOConnection;
    User_Query: TADOQuery;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private

    number:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login_form: Tlogin_form;
  dluser:string;
implementation
  uses HardNumber;
{$R *.DFM}
{$Link SoftDogMini.obj}

function DOGOPEN(wAgentNO,wClientNO,wGroutNO,wSerialNO:DWORD):DWORD;external;
function DOGSERIAL(Para1,Para2,Para3,Para4:DWORD; Serial : PCHAR ):DWORD;external;
function DOGCLOSE():WORD;external ;

procedure Tlogin_form.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
  begin
     BitBtn3Click(Sender);
  end;
end;



procedure Tlogin_form.BitBtn2Click(Sender: TObject);
begin
 login_form.ModalResult:=mrcancel;
end;



procedure Tlogin_form.BitBtn3Click(Sender: TObject);
var
  sqlstr,aa:string;

begin
  sqlstr:='select * from T_User where FUserName='''+combobox1.Text+'''';
  sqlstr:=sqlstr+' and FUserPassWord='''+encryptstr(Edit1.text,'GetIdeSerialNumber')+'''';
  User_Query.Close;
  User_Query.SQL.Clear;
  User_Query.SQL.add(sqlstr);
  User_Query.open;
  if User_Query.RecordCount>0 then
  begin
    login_form.ModalResult :=mrok;
    UserCon.Close;
    exit;
  end
  else
  begin
    Application.MessageBox('用户/密码不正确，你无权使用本系统!', '系统提示', 0 or MB_ICONINFORMATION);
    login_form.ModalResult :=mrcancel;
  end;
end;

procedure Tlogin_form.FormCreate(Sender: TObject);
var
  dataset: Tdataset;
  dbname:string;
  svrname:string;
  reg:tregistry;
  username:string;
  pwd:string;
  iNum1,iNum2,iNum3,iNum4,Result,Mode:integer;
  iResult : WORD ;
  para1,para2,para3,para4 :integer ;
  SerialNo : array[0..128] of Char;
begin
	iNum1 :=23091;
	iNum2 :=26140 ;

	Result := DOGOPEN(iNum1,iNum2,0,0);
 	if (Result <> 0) then
  begin
    Application.MessageBox('请插入加密锁!', '系统提示', 0 or MB_ICONINFORMATION);
    
    application.Terminate ;
  end
  else
  begin
  para1 := 1971;
  para2 := 2006;
  para3 := 02;
  para4 := 23;

  iResult := DOGSERIAL(para1,para2,para3,para4,SerialNo) ;

   if iResult <> 0 then
     begin
		 Application.MessageBox('请插入加密锁!', '系统提示', 0 or MB_ICONINFORMATION);

     application.Terminate ;
     end;
    end;
  reg:=tregistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  REG.OpenKey('SOFTWARE',FALSE);
  REG.OpenKey('BestFriend',FALSE);
  svrname:=REG.ReadString('ServerName');
  dbname:=reg.ReadString('DataBaseName');
  //StatusBar1.Panels[5].text:=dbname;
  username:=reg.ReadString('Username');
  pwd:=reg.ReadString('PassWord');
  //************registry operation end******
  if UserCon.Connected=true then    UserCon.Close;

  UserCon.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;'+'Initial Catalog='+dbname+';Data Source='+svrname;
  try
    UserCon.Connected:=true;
    User_Query.Close;
    User_Query.SQL.Clear;
    User_Query.SQL.add('select FUserName from T_User order by FUserId');
    User_Query.open;
    if User_Query.RecordCount>0 then
    begin
      combobox1.Items.Clear;
      while not User_Query.Eof do
      begin
        combobox1.Items.Add(User_Query.Fields[0].value);
        User_Query.Next;
      end;
    end;
  except
    application.MessageBox('数据连接失败,请设置连接！','系统提示',MB_ICONERROR);
    dataset:=Tdataset.Create(application); 
  END;
end;

procedure Tlogin_form.ComboBox1Change(Sender: TObject);
begin
  dluser:=combobox1.Text;
end;

end.