utpubdata.pas

代码变更管理工具。当对程序代码进行变更以后可以用改工具记录变更内容

{*******************************************************}
{  Name    : 公共数据单元文件                           }
{  Purpose : 保存从数据库中提取的数据                   }
{  Author  : 刘 鹏                                      }
{  BegDate : 2008-04-30                               	}
{*******************************************************}

unit UtPubData;

interface

type
  // 存放开发人员信息，同数据库中DevpTab表结构对应
  RecDevp = record
    id     : Integer;      // 开发人员id号，该字段为自动编号
    name   : string;       // 开发人员姓名
    active : Integer;      // 开发人员状态(在职为1，离职为0)
  end;
  PRecDevp = ^RecDevp;
  ArrRecDevp   = array of RecDevp;

  // 存放修改日志信息，同数据库中LogTab表结构对应
  RecLog = record
    id         : Integer;   // LogID
    branchId   : string;    // 分支ID,和BranchTab表关联
    devpId     : Integer;   // 开发人员id，和DevpTab表关联
    notes      : string;    // 编辑说明
    devpNotes  : string;    // 编辑说明(供开发人员)
    modType    : string;    // 编辑类型(增加，修改，删除)
    lDateTime  : TDateTime; // 编辑时间
  end;
  PRecLog = ^RecLog;
  ArrRecLog    = array of RecLog;

  // 存放版本分支信息，同数据库中BranchTab表结构对应
  RecBranch = record
    id         : Integer;   // 分支ID
    name       : string;    // 分支名称
    bDateTime  : TDateTime; // 分支切出时间
    active     : Integer;   // 分支状态
  end;
  PRecBranch = ^RecBranch;
  ArrRecBranch = array of RecBranch;   // RecBranch类型的数组，用于返回数据库中的数据

  // 存放快速查询数据
  RecFastQuery = record
    branchId   : string;       // 版本分id
    devpId     : Integer;      // 记录开发人员的id
    startTime  : TDateTime;    // 修改开始时间
    endTime    : TDateTime;    // 修改结束时间
    notes      : string;       // 修改内容
  end;
  arrSelectBranch = array of Integer;
//-------常量定义-------
const
  ADO_STRING = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ChangeLog.mdb;Persist Security Info=False';
    // 数据库连接字符串
  SPLITER_CHAR = ';';
    // 分割BranchId的标识符
  SQLQUERY = 'Select * from LogTab order by LogTab.lDateTime desc';
    // 取出主界面显示的内容
    
implementation

end.