idal.pas

来自「delphi写的一款不错的通讯录软件,适合初学者下载．」· PAS 代码 · 共 23 行

unit IDAL;

interface

uses
  SysUtils, Classes, ADODB, DB,
  Person;

type
    IPersonInfo = interface

        function  ListPersonInfo(KeyWords:string;const PersonType:string;const ConType:string):TDataSource;
        function  GetPersonInfo(ID:Integer):TPerson;

        procedure InsertPersonInfo(Perinfo:TPerson);
        procedure UpdatePersonInfo(ID:Integer;Perinfo:TPerson);
        procedure DeletePersonInfo;
    end;

implementation

end.