📄 datamanage.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 + -