udbadapter.pas

千年源代码,只缺少控件,可以做二次开发用,好不容易得来的

   FQuery.SQL.Add (mStr);

   try
      FQuery.ExecSQL;
   except
      frmMain.AddSQL (mStr);
   end;

   if FQuery.RowsAffected < 1 then begin
      Result := DB_ERR_NOTFOUND;
   end;

   FQuery.Close;
end;

function TDBAdapter.ChangeDataToStr (aLGRecord : PTLGRecord) : String;
var
   i : Integer;
   RetStr : String;
begin
   RetStr := aLGRecord^.PrimaryKey;
   RetStr := RetStr + ',' + aLGRecord^.PassWord;

   for i := 0 to 5 - 1 do begin
      if aLGRecord^.CharInfo [i].CharName <> '' then begin
         RetStr := RetStr + ',' + aLGRecord^.CharInfo[i].CharName + ':' + aLGRecord^.CharInfo [i].ServerName;
      end else begin
         RetStr := RetStr + ',';
      end;
   end;

   RetStr := RetStr + ',' + aLGRecord^.IpAddr;
   RetStr := RetStr + ',' + aLGRecord^.UserName;
   RetStr := RetStr + ',' + aLGRecord^.Birth;
   RetStr := RetStr + ',' + aLGRecord^.Phone;
   RetStr := RetStr + ',' + aLGRecord^.MakeDate;
   RetStr := RetStr + ',' + aLGRecord^.LastDate;
   RetStr := RetStr + ',' + aLGRecord^.Address;
   RetStr := RetStr + ',' + aLGRecord^.Email;
   RetStr := RetStr + ',' + aLGRecord^.NativeNumber;
   RetStr := RetStr + ',' + aLGRecord^.MasterKey;
   RetStr := RetStr + ',' + aLGRecord^.ParentName;
   RetStr := RetStr + ',' + aLGRecord^.ParentNativeNumber;

   Result := RetStr;
end;

// TSDBAdapter;
constructor TSDBAdapter.Create (aDsn, aDatabase : String);
begin
   FDSN := aDsn;
   FDatabaseName := aDatabase;
   FSDB := TUserStringDB.Create;
   FSDB.Clear;
   if not FileExists (FILE_NAME) then exit;

   FSDB.LoadFromFile (FILE_NAME);
end;

destructor TSDBAdapter.Destroy;
begin
   FSDB.SaveToFile (FILE_NAME);
   FSDB.Free;
   inherited Destroy;
end;

function TSDBAdapter.Select (aIndexName : String; aLGRecord : PTLGRecord) : Byte;
var
   i, nCount : Integer;
   str : String;
   iName, uPrimaryKey, uPassword : String;
   uCharInfo : array [0..5 - 1] of String;
   uIpAddr, uUserName, uBirth, uTelephone, uMakeDate : String;
   uLastDate, uAddress, uEmail, uNativeNumber, uMasterKey : String;
   uCharName, uServerName : String;
   uParentName, uParentNativeNumber : String;
begin
   Result := DB_OK;
   if aIndexName = '' then begin
      Result := DB_ERR_INVALIDDATA;
      exit;
   end;

   Str := FSDB.GetDbString (aIndexName);

   if Str = '' then begin
      Result := DB_ERR_NOTFOUND;
      exit;
   end;

   nCount := FSDB.GetNameIndex (aIndexName);
   iName := FSDB.GetIndexName (nCount);
//   if iName = '' then exit;

   uPrimaryKey := iName;
   uPassWord := FSDB.GetFieldValueString (iName, 'PassWord');
   for i := 0 to 5 - 1 do begin
      uCharInfo [i] := FSDB.GetFieldValueString (iName, 'CharInfo' + InttoStr (i));
      if uCharInfo [i] = ':' then uCharInfo [i] := '';
   end;
   uIpAddr := FSDB.GetFieldValueString (iName, 'IpAddr');
   uUserName := FSDB.GetFieldValueString (iName, 'UserName');
   uBirth := FSDB.GetFieldValueString (iName, 'Birth');
   uTelephone := FSDB.GetFieldValueString (iName, 'Telephone');
   uMakeDate := FSDB.GetFieldValueString (iName, 'MakeDate');
   uLastDate := FSDB.GetFieldValueString (iName, 'LastDate');
   uAddress := FSDB.GetFieldValueString (iName, 'Address');
   uEmail := FSDB.GetFieldValueString (iName, 'Email');
   uNativeNumber := FSDB.GetFieldValueString (iName, 'NativeNumber');
   uMasterKey := FSDB.GetFieldValueString (iName, 'MasterKey');
   uParentName := FSDB.GetFieldValueString (iName, 'PtName');
   uParentNativeNumber := FSDB.GetFieldValueString (iName, 'PtNativeNumber');

   aLGRecord^.PrimaryKey := Copy (uPrimaryKey, 1, 20);
   aLGRecord^.PassWord := Copy (uPassWord, 1, 20);

   for i := 0 to 5 - 1 do begin
      str := uCharInfo[i];
      str := GetTokenStr (str, uCharName, ':');
      str := GetTokenStr (str, uServerName, ':');

      aLGRecord^.CharInfo [i].CharName := Copy (uCharName, 1, 20);
      aLGRecord^.CharInfo [i].ServerName := Copy (uServerName, 1, 20);
   end;

   aLGRecord^.IpAddr := Copy (uIpAddr, 1, 16);
   aLGRecord^.MakeDate := Copy (uMakeDate, 1, 20);
   aLGrecord^.LastDate := Copy (uLastDate, 1, 20);
   aLGRecord^.Birth := Copy (uBirth, 1, 20);
   aLGRecord^.Address := Copy (uAddress, 1, 50);
   aLGRecord^.UserName := Copy (uUserName, 1, 20);
   aLGRecord^.NativeNumber := Copy (uNativeNumber, 1, 20);
   aLGRecord^.MasterKey := Copy (uMasterKey, 1, 20);
   aLGRecord^.Email := Copy (uEmail, 1, 50);
   aLGRecord^.Phone := Copy (uTelePhone, 1, 20);
   aLGRecord^.ParentName := Copy (uParentName, 1, 20);
   aLGRecord^.ParentNativeNumber := Copy(uParentNativeNumber, 1, 20);
end;

function TSDBAdapter.Insert (aIndexName : String; aLGRecord : PTLGRecord) : Byte;
var
   i : Integer;
   mStr, str : String;
   uPrimaryKey, uPassword : String;
   uCharInfo : array [0..5 - 1] of String;
   uIpAddr, uUserName, uBirth, uTelephone, uMakeDate : String;
   uLastDate, uAddress, uEmail, uNativeNumber, uMasterKey : String;
   uParentName, uParentNativeNumber : String;
   LGRecord : TLGRecord;
begin
   Result := DB_OK;
   if aIndexName = '' then begin
      Result := DB_ERR_INVALIDDATA;
      exit;
   end;

   if Select (aIndexName, @LGRecord) = DB_OK then begin
      Result := DB_ERR_DUPLICATE;
      exit;
   end;

   uPrimaryKey := aLGRecord^.PrimaryKey;
   uPassWord := aLGRecord^.PassWord;

   for i := 0 to 5 - 1 do begin
      Str := aLGRecord^.CharInfo[i].CharName + ':' + aLGRecord^.CharInfo [i].ServerName;
      if str = ':' then str := '';
      uCharInfo [i] := str;
   end;

   uIpAddr := aLGRecord^.IpAddr;
   uMakeDate := aLGRecord^.MakeDate;
   uLastDate := aLGRecord^.LastDate;
   uUserName := aLGRecord^.UserName;
   uNativeNumber := aLGRecord^.NativeNumber;
   uMasterKey := aLGRecord^.MasterKey;
   uEmail := aLGRecord^.Email;
   uTelePhone := aLGRecord^.Phone;
   uParentName := aLGRecord^.ParentName;
   uParentNativeNumber := aLGRecord^.ParentNativeNumber;

   uBirth := '';
   uAddress := '';

   // account, password, char1, char2, char3, char4, char5, ipaddr, username, birth
   // telephone, makedate, lastdate, address, email, nativenumber, masterkey
   // ptname, ptnativenumber

   mStr := mStr + uPrimaryKey + ',';
   mStr := mStr + uPassword + ',';
   mStr := mStr + uCharInfo[0] + ',';
   mStr := mStr + uCharInfo[1] + ',';
   mStr := mStr + uCharInfo[2] + ',';
   mStr := mStr + uCharInfo[3] + ',';
   mStr := mStr + uCharInfo[4] + ',';
   mStr := mStr + uIpAddr + ',';
   mStr := mStr + uUserName + ',';
   mStr := mStr + uBirth + ',';
   mStr := mStr + uTelephone + ',';
   mStr := mStr + uMakeDate + ',';
   mStr := mStr + uLastDate + ',';
   mStr := mStr + uAddress + ',';
   mStr := mStr + uEmail + ',';
   mStr := mStr + uNativeNumber + ',';
   mStr := mStr + uMasterKey + ',';
   mStr := mStr + uParentName + ',';
   mStr := mStr + uParentNativeNumber;

   FSDB.AddDbString (mStr);

   FSDB.SaveToFile (FILE_NAME);
end;

function TSDBAdapter.Delete (aIndexName : String) : Byte;
begin
   //
end;

function TSDBAdapter.Update (aIndexName : String; aLGRecord : PTLGRecord) : Byte;
var
   i : Integer;
   mStr, str : String;
   uPrimaryKey, uPassword : String;
   uCharInfo : array [0..5 - 1] of String;
   uIpAddr, uUserName, uBirth, uTelephone, uMakeDate : String;
   uLastDate, uAddress, uEmail, uNativeNumber, uMasterKey : String;
   uParentName, uParentNativeNumber : String;
   LGRecord : TLGRecord;
begin
   Result := DB_OK;
   if aIndexName = '' then begin
      Result := DB_ERR_INVALIDDATA;
      exit;
   end;

   if Select (aIndexName, @LGRecord) <> DB_OK then begin
      Result := DB_ERR_NOTFOUND;
      exit;
   end;

   uPrimaryKey := aLGRecord^.PrimaryKey;
   uPassWord := aLGRecord^.PassWord;

   for i := 0 to 5 - 1 do begin
      Str := aLGRecord^.CharInfo [i].CharName + ':' + aLGRecord^.CharInfo [i].ServerName;
      if str = ':' then str := '';
      uCharInfo [i] := str;
   end;
   uIpAddr := aLGRecord^.IpAddr;
   uMakeDate := aLGRecord^.MakeDate;
   uLastDate := aLGRecord^.LastDate;

   uUserName := aLGRecord^.UserName;
   uNativeNumber := aLGRecord^.NativeNumber;
   uMasterKey := aLGRecord^.MasterKey;
   uEmail := aLGRecord^.Email;
   uTelePhone := aLGRecord^.Phone;
   uParentName := aLGRecord^.ParentName;
   uParentNativeNumber := aLGRecord^.ParentNativeNumber;

   uBirth := aLGRecord^.Birth;
   uAddress := aLGRecord^.Address;

   // account, password, char1, char2, char3, char4, char5, ipaddr, username, birth
   // telephone, makedate, lastdate, address, email, nativenumber, masterkey
   // parentname, parentnativenumber

   mStr := mStr + uPrimaryKey + ',';
   mStr := mStr + uPassword + ',';
   mStr := mStr + uCharInfo[0] + ',';
   mStr := mStr + uCharInfo[1] + ',';
   mStr := mStr + uCharInfo[2] + ',';
   mStr := mStr + uCharInfo[3] + ',';
   mStr := mStr + uCharInfo[4] + ',';
   mStr := mStr + uIpAddr + ',';
   mStr := mStr + uUserName + ',';
   mStr := mStr + uBirth + ',';
   mStr := mStr + uTelephone + ',';
   mStr := mStr + uMakeDate + ',';
   mStr := mStr + uLastDate + ',';
   mStr := mStr + uAddress + ',';
   mStr := mStr + uEmail + ',';
   mStr := mStr + uNativeNumber + ',';
   mStr := mStr + uMasterKey + ',';
   mStr := mStr + uParentName + ',';
   mStr := mStr + uParentNativeNumber;

   FSDB.SetDbString (uPrimaryKey, mStr);

//   FSDB.SaveToFile (FILE_NAME);
end;

function TSDBAdapter.ChangeDataToStr (aLGRecord : PTLGRecord) : String;
var
   i : Integer;
   RetStr : String;
begin
   RetStr := aLGRecord^.PrimaryKey;
   RetStr := RetStr + ',' + aLGRecord^.PassWord;

   for i := 0 to 5 - 1 do begin
      if aLGRecord^.CharInfo [i].CharName <> '' then begin
         RetStr := RetStr + ',' + aLGRecord^.CharInfo[i].CharName + ':' + aLGRecord^.CharInfo [i].ServerName;
      end else begin
         RetStr := RetStr + ',';
      end;
   end;

   RetStr := RetStr + ',' + aLGRecord^.IpAddr;
   RetStr := RetStr + ',' + aLGRecord^.UserName;
   RetStr := RetStr + ',' + aLGRecord^.Birth;
   RetStr := RetStr + ',' + aLGRecord^.Phone;
   RetStr := RetStr + ',' + aLGRecord^.MakeDate;
   RetStr := RetStr + ',' + aLGRecord^.LastDate;
   RetStr := RetStr + ',' + aLGRecord^.Address;
   RetStr := RetStr + ',' + aLGRecord^.Email;
   RetStr := RetStr + ',' + aLGRecord^.NativeNumber;
   RetStr := RetStr + ',' + aLGRecord^.MasterKey;
   RetStr := RetStr + ',' + aLGRecord^.ParentName;
   RetStr := RetStr + ',' + aLGRecord^.ParentNativeNumber;

   Result := RetStr;
end;

procedure TSDBAdapter.SaveToSDBFile (aFileName : String);
begin
   FSDB.SaveToFile (aFileName);
end;

end.