ch1.dpr

档案信息管理系统

unit ch1dpr;

interface

uses
   ArchDB;

type
   DepDBManager = class;
   DepartmentInfo = class;
   SystemDBManager = class;
   StuffDBManager = class;
   InputStuffInfo = class;
   ConditionInfo = class;
   AccountDBManager = class;
   UserAccount = class;

   // 部门数据库的管理类
   DepDBManager = class
   public
      theDepartmentDB : DepartmentDB;

      // 添加一个新的部门
      procedure AddNewDep;
      
      // 显示现有库中的所有部门信息
      procedure ShowDepRecords;
      
      // 选择一个部门
      procedure SelectDepRecord;
      
      // 删除一个部门
      procedure DelDepartment;
      
      // 修改一个部门信息
      procedure ModifyDepInfo;
   end;

   // 用来保存输入部门信息的数据类
   DepartmentInfo = class
   private
      // 部门名称
      DepartName : String;
      
      // 部门领导人
      DepLeader : String;
   public
      // 将输入窗体中的数据保存到数据对象中
      procedure SetDepartmentInfo;
      
      // 添加一条新的部门信息
      procedure AddDepInfo;
   end;

   // 系统数据库维护类
   SystemDBManager = class
   public
      theStuffDB : StuffDB;
      theDepartmentDB : DepartmentDB;
      theAccountDB : AccountDB;

      procedure RestoreSysDB;
      procedure BackupSysDB;
   end;

   StuffDBManager = class
   public
      theStuffDB : StuffDB;

      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;
      
      // 工种
      JobType : String;
      
      // 档案号
      ArchiveNo : int;
      
      // 部门号
      Department : String;
   public
      theStuffDBManager : StuffDBManager;

      // 将输入窗体中的数据保存到数据对象中
      procedure SetStuffInfo;
      
      // 添加一条新的记录
      procedure AddStuffInfo;
   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;
   end;

   // 用来完成数据库操作的管理类
   AccountDBManager = class
   public
      theAccountDB : AccountDB;

      // 添加一条新的帐户记录
      procedure AddNewAccount;
      
      // 删除一条现有的帐户记录
      procedure DeleteAccount;
      
      // 修改一条现有的帐户记录
      procedure ModifyAccount;
      
      // 查询帐户记录
      procedure SearchAccount;
   end;

   // 用来保存输入帐户信息的类
   UserAccount = class
   private
      UserName : String;
      Password : String;
      Right : char;
   public
      theAccountDBManager : AccountDBManager;

      // 将输入窗体中的数据填入保存帐户信息的数据对象中
      function SetUserAccount : void;
      
      // 设置登录角色的操作权限
      procedure SetRight;
   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;

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;

procedure ConditionInfo.SetCondition;
begin
end;

procedure AccountDBManager.AddNewAccount;
begin
end;

procedure AccountDBManager.DeleteAccount;
begin
end;

procedure AccountDBManager.ModifyAccount;
begin
end;

procedure AccountDBManager.SearchAccount;
begin
end;

function UserAccount.SetUserAccount : void;
begin
end;

procedure UserAccount.SetRight;
begin
end;

end.