⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 datamanage.pas

📁 《Visual C++视频技术方案宝典》配套光盘
💻 PAS
字号:
unit DataManage;

interface
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB,ADOInt;
type
  _RecordsetPtr = ^_Recordset;
  _ConnectionPtr = ^ _Connection;
  _CommandPtr = ^_Command;
  _PRecordsetPtr = ^_RecordsetPtr;
  _PPRecordsetPtr = ^_PRecordsetPtr;
  //数据库管理
  CDataManage = class
  private
   	m_pConnect: _ConnectionPtr ;
   	m_pRecordset: _RecordsetPtr;
   	m_pCommand: _CommandPtr;
  public
    function  ExecOpt( optSQL: PChar): Boolean stdcall ;virtual ; abstract ;
    procedure ExecSelect(selSQL: PChar; var pRecord: _RecordsetPtr )stdcall ;virtual ; abstract;
    function InitDatabase(strConnect: PChar): Boolean stdcall ;virtual ; abstract;
  end;
  //员工信息抽象类
  CComStuff = class
    public
    function GetID(): Integer stdcall;virtual; abstract;
    function GetName(): PChar stdcall ;virtual; abstract;
    function GetSex(): PChar stdcall;virtual; abstract;
    function GetKnowledge(): PChar stdcall ; virtual; abstract;
    function GetWage(): Double stdcall;virtual ;abstract;
    procedure SetID(uID: Integer) stdcall ;virtual;abstract;
    procedure SetName(strName: PChar) stdcall ;virtual ;abstract;
    procedure SetSex(strSex: PChar)stdcall;virtual ;abstract;
    procedure SetKnowlegde(strKnowledge: PChar)stdcall ;virtual;abstract;
    procedure SetWage(fWage: double)stdcall ;virtual;abstract;
    procedure FreeSelf()stdcall ;virtual;abstract;
  end;
  //员工信息管理类
  PComStuff = ^ CComStuff;
  CStuffManage = class
  public
    procedure SelectStuff(var pRecord: _RecordsetPtr)stdcall;virtual;abstract;
    function DeleteStuff(var stuff: PComStuff):Boolean stdcall; virtual;abstract;
    function UpdateStuff(var stuff: CComStuff):Boolean stdcall;virtual;abstract;
    procedure IniStuff(var Stuff: CComStuff)stdcall;virtual;abstract;
    function AddStuff(var Stuff: CComStuff): Boolean stdcall;virtual;abstract;
    function ValidCheck(var Stuff: CComStuff): Boolean stdcall;virtual;abstract;
    procedure FreeSelf()stdcall ;virtual;abstract;
  end;

implementation

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -