sqlstr.pas

一个详细功能齐全的档案管理信息系统 跟大家分享一下。这是老师给的光盘里带的

unit SqlStr;

interface
const
  GetDa='SELECT FilesContent.Status as ''状态'',FilesContent.FileId as ''档案编号'',FilesContent.Fname as ''名称'', '
        + ' FilesContent.Contents as ''内容'',FilesContent.CabinetId as ''档案柜号'',Filescabinet.cbname as ''档案柜'', '
        + 'FilesContent.Ftime as ''建档日期'',FilesContent.Remarks as ''备注'' FROM '
        + 'FilesContent,FilesCategory,FilesCabinet where  filescontent.categoryid=filescategory.categoryid '
        + 'and filescabinet.cabinetid=filescontent.cabinetid and filescategory.cgname=''%s'' ';
  ExcUpdate='Exec sp_UpdateFContent %s,''%s'',''%s'',%s,''%s'',''%s'',''%s'',''%s'' ';
  InsertSql='Exec sp_InsertFContent %s,''%s'',''%s'',%s,''%s'',''%s'',''%s'',''%s'' ';
  DeleteSql='Delete from FilesContent where Fileid=%s';
  updateDb='Update filesborrow set borrower=''%s'',btime=''%s'',remarks=''%s'' where fileid=%s ';
  CheckStatus='Select status from filescontent where fileid=%s';
  InsertBorrow='Exec sp_InsertFBorrow %s,''%s'',''%s'',''%s'' ';
  CheckIfGu='select status from filesborrow where fileid=%s';
  DeleteBorrow='Exec sp_DeleteFBorrow %s';
  UpdateFileReturn='update filesreturn set returner=''%s'',rtime=''%s'',remarks=''%s'' where fileid=%s';
  InsertReturn='Exec sp_InsertFReturn %s,''%s'',''%s'',''%s'' ';
  DeleteFReturn='Exec sp_DeleteFReturn %s';

  UpdateCategory='Update FilesCategory set Cgname=''%s'',Creater=''%s'',CreateTime=''%s'',Amender=''%s'',AmendTime=''%s'',remarks=''%s'' where Categoryid=%s ';
  InsertCategory='Exec sp_InsertFCategory %s,''%s'',''%s'',''%s'',''%s'' ' ;
implementation

end.