data.txt

来自「这个工资管理系统是我今年的毕业设计」· 文本 代码 · 共 53 行

var
  vIniFile : TIniFile;
  Data     : String;
begin
  vIniFile:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'Config.Ini');
  Data:='Provider='+vIniFile.Readstring('System','Provider','')+';';
  Data:=Data+'Data Source='+vIniFile.Readstring('System','Data Source','')+';';
  Data:=Data+'Persist Security Info=False';
  ADOConnection1.ConnectionString:=Data;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from ManaGer');
  Try
    ADOQuery1.Active:=True;
  Except
    Fr_Pass.Hide;
    Fr_DataLink:=TFr_DataLink.Create(Application);
    Fr_DataLink.ShowModal;
  end;






ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from ManaGer Where UserID="'+Edit1.Text+'"');
  ADOQuery1.Open;
  if ADOQuery1.RecordCount<>0 then
    Edit1.Text:=ADOQuery1.FieldByName('UserName').AsString;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from ManaGer Where UserName="'+Edit1.Text+'"');
  ADOQuery1.Open;
  if (ADOQuery1.FieldByName('UserPass').AsString=MD5.MD5Print(MD5.MD5String(Edit2.Text)))and(ADOQuery1.RecordCount<>0) then
  begin
    if MyIntToBin(ADOQuery1.FieldByName('Purview').AsInteger)[1]<>'1' then begin
      ShowMessage('您无此权限,请与管理员联系~~!');
      Edit1.Text:='';
      Edit2.Text:='';
      Edit1.SetFocus;
      Exit;
    end;
    FORM3.hide;
    form1:=tform1.Create(Application);
    form1.Show;
  end
  else
  begin
    ShowMessage('用户名或密码错误请重新输入~~!');
    Edit2.Text:='';
    Edit2.SetFocus;
  end;
end;