providersdb.pas

请使用Mobile FBUS——用来创建与NOKIA手机连接的软件的理想解决方案！功能包括：发送SMS

unit providersDB;

interface
  uses stdctrls,sysutils,mainunit;
Type
  TProviders =
      Record
        CountryCode   : String[3];
        ProviderCode  : String[2];
        ProviderName  : String[25];
        Country       : String[25];
      end;
var
  sProviderCountry:string;

  procedure LoadCountry(cmboCountry:TComboBox);
  procedure LoadProvider(cmboProvider:TComboBox;sCountry:String);
  procedure LoadCode(txtCountry,txtcode:TEdit;sProvider,sCountry:String);
implementation

procedure LoadCountry(cmboCountry:TComboBox);
var
  Provider : TProviders;
  iLastPos:Longint;
  fFile:File;
  sLastCountry:String;
begin
  iLastPos:=0;
  sLastCountry:='';

  cmboCountry.items.clear;

  assignfile(fFile,frmMain.sApplicationPath+'Providers.da0');
  Reset(fFile,1);

  while iLastPos <= (filesize(fFile)-sizeof(Provider)) do
    begin
      seek(fFile,iLastPos);
      BlockRead(fFile,Provider,sizeof(Provider));
      iLastPos:=iLastPos+sizeof(Provider);
      if sLastCountry <> Provider.Country then
        cmboCountry.items.add(Provider.Country);

      sLastCountry:=Provider.Country;
    end;

  closeFile(fFile);
  cmboCountry.itemindex:=0;
end;

procedure LoadProvider(cmboProvider:TComboBox ;sCountry:String);
var
  Provider : TProviders;
  iLastPos:Longint;
  fFile:File;
  sLastCountry:String;
begin
  iLastPos:=0;
  sLastCountry:='';

  assignfile(fFile,frmMain.sApplicationPath+'Providers.da0');
  Reset(fFile,1);

  cmboProvider.items.clear;
  cmboProvider.text:='';

  while iLastPos <= (filesize(fFile)-sizeof(Provider)) do
    begin
      seek(fFile,iLastPos);
      BlockRead(fFile,Provider,sizeof(Provider));
      iLastPos:=iLastPos+sizeof(Provider);
      if Provider.Country = sCountry then
        begin
          cmboProvider.items.add(Provider.ProviderName);
          sProviderCountry:=Provider.Country;
        end;

      sLastCountry:=Provider.Country;
    end;

  closeFile(fFile);
  cmboProvider.itemindex:=0;
end;

procedure LoadCode(txtCountry,txtcode:TEdit;sProvider,sCountry:String);
var
  Provider : TProviders;
  iLastPos:Longint;
  fFile:File;
  sLastCountry:String;
begin
  iLastPos:=0;
  sLastCountry:='';

  assignfile(fFile,frmMain.sApplicationPath+'Providers.da0');
  Reset(fFile,1);

  txtCountry.text:='';
  txtcode.text:='';

  while iLastPos <= (filesize(fFile)-sizeof(Provider)) do
    begin
      seek(fFile,iLastPos);
      BlockRead(fFile,Provider,sizeof(Provider));
      iLastPos:=iLastPos+sizeof(Provider);
      if (Provider.ProviderName = sProvider) and (sCountry =Provider.Country)  then
        begin
          txtCountry.text:=Provider.CountryCode;
          txtcode.text:=Provider.ProviderCode;
        end;
    end;

  closeFile(fFile);
end;

end.