ch1.pas

档案信息管理系统

unit ch1;
interface
uses
   ArchDB;
type
   DepDBManager = class;
   DepartmentInfo = class;
   SystemDBManager = class;
   StuffDBManager = class;
   InputStuffInfo = class;
   ConditionInfo = class;
   AccountDBManager = class;
   UserAccount = class;
   // 部门数据库的管理类
   DepDBManager = class
   public
      theDepartmentDB : DepartmentTable;
      // 添加一个新的部门
      procedure AddNewDep;
      // 显示现有库中的所有部门信息
      procedure ShowDepRecords;
      // 选择一个部门
      procedure SelectDepRecord;
      // 删除一个部门
      procedure DelDepartment;
      // 修改一个部门信息
      procedure ModifyDepInfo;
   end;
   // 用来保存输入部门信息的数据类
   DepartmentInfo = class
   private
      // 部门名称
      DepartName : String;
      // 部门领导人
      DepLeader : String;
   public
      // 将输入窗体中的数据保存到数据对象中
      procedure SetDepartmentInfo;
      // 添加一条新的部门信息
      procedure AddDepInfo;
      function ValidCheck : Integer;
   end;
   // 系统数据库维护类
   SystemDBManager = class
   public
      theStuffDB : StuffTable;
      theDepartmentDB : DepartmentTable;
      theAccountDB : AccountTable;

      procedure RestoreSysDB;
      procedure BackupSysDB;
   end;

   StuffDBManager = class
   public
      theStuffDB : StuffTable;
      procedure AddStuffInfo;
      procedure SearchStuff;
      procedure PirntStuffInfo;
      procedure ModifyStufInfo;
      procedure SetStuffInfoForm;
      procedure ModifyStuffInfo;
      procedure DelStuffInfo;
   end;

   // 保存输入窗体中信息的数据类
   InputStuffInfo = class
   private
      // 名称
      name : String;
      // 性别
      Gender : bool;
      // 出生日期
      Birthday : Date;
      // 学历
      Degree : String;
      // 职位
      Position : String;
      // 签约时间
      JobStartDate : Date;
      // 合同终止时间
      JobEndDate : Date;
      // 档案号
      ArchiveNo : int;
      // 部门号
      Department : String;
      Creater : String;
      CreateTime : DateTime;
   public
      theStuffDBManager : StuffDBManager;
      // 将输入窗体中的数据保存到数据对象中
      procedure SetStuffInfo;
      // 添加一条新的记录
      procedure AddStuffInfo;
      function ValidCheck : Integer;
   end;

   // 保存输入条件的数据类
   ConditionInfo = class
   private
      // 名称
      Name : String;
      // 性别
      Gender : Boolean;
      // 学历
      Degree : String;
      // 签约时间
      JobStartDate : Date;
      // 工作种
      JobType : String;
      // 档案号
      ArchiveNo : Integer;
      // 部门号
      Department : String;
      // 年龄
      Age : int;
      // 建档时间
      ArchiveCreateDate : DateTime;
   public
      theStuffDBManager : StuffDBManager;
      procedure SetCondition;
      function ValidCheck : integer;
   end;

   // 用来完成数据库操作的管理类
   AccountDBManager = class
   public
      theAccountDB : AccountTable;
      // 添加一条新的帐户记录
      procedure AddNewAccount;
      // 删除一条现有的帐户记录
      procedure DeleteAccount;
      // 修改一条现有的帐户记录
      procedure ModifyAccount;
      // 查询帐户记录
      procedure SearchAccount;
      function IsExist : Integer;
   end;

   // 用来保存输入帐户信息的类
   UserAccount = class
   private
      UserName : String;
      Password : String;
      Right : char;
   public
      theAccountDBManager : AccountDBManager;
      // 将输入窗体中的数据填入保存帐户信息的数据对象中
      function SetUserAccount : void;
      // 设置登录角色的操作权限
      procedure SetRight;
      procedure ValidCheck;
      function ValidCheck2 : boolean;
   end;

implementation

procedure DepDBManager.AddNewDep;
begin
end;

procedure DepDBManager.ShowDepRecords;
begin
end;

procedure DepDBManager.SelectDepRecord;
begin
end;

procedure DepDBManager.DelDepartment;
begin
end;

procedure DepDBManager.ModifyDepInfo;
begin
end;

procedure DepartmentInfo.SetDepartmentInfo;
begin
end;

procedure DepartmentInfo.AddDepInfo;
begin
end;

function DepartmentInfo.ValidCheck : Integer;
begin
end;

procedure SystemDBManager.RestoreSysDB;
begin
end;

procedure SystemDBManager.BackupSysDB;
begin
end;

procedure StuffDBManager.AddStuffInfo;
begin
end;

procedure StuffDBManager.SearchStuff;
begin
end;

procedure StuffDBManager.PirntStuffInfo;
begin
end;

procedure StuffDBManager.ModifyStufInfo;
begin
end;

procedure StuffDBManager.SetStuffInfoForm;
begin
end;

procedure StuffDBManager.ModifyStuffInfo;
begin
end;

procedure StuffDBManager.DelStuffInfo;
begin
end;

procedure InputStuffInfo.SetStuffInfo;
begin
end;

procedure InputStuffInfo.AddStuffInfo;
begin
end;

function InputStuffInfo.ValidCheck : Integer;
begin
end;

procedure ConditionInfo.SetCondition;
begin
end;

function ConditionInfo.ValidCheck : integer;
begin
end;

procedure AccountDBManager.AddNewAccount;
begin
end;

procedure AccountDBManager.DeleteAccount;
begin
end;

procedure AccountDBManager.ModifyAccount;
begin
end;

procedure AccountDBManager.SearchAccount;
begin
end;

function AccountDBManager.IsExist : Integer;
begin
end;

function UserAccount.SetUserAccount : void;
begin
end;

procedure UserAccount.SetRight;
begin
end;

procedure UserAccount.ValidCheck;
begin
end;

function UserAccount.ValidCheck2 : boolean;
begin
end;

end.