📄 global.pas
字号:
//=========================================================
// Global.pas
// 共享模块，保存字符串资源和共享常量、变量、函数及过程
//=========================================================
unit Global;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,comobj,ComCtrls, StdCtrls, DB,DBGrids, ADODB,Gauges;
Resourcestring
//===========================================================
// application information
//===========================================================
SAppName ='文具仓库管理（ACCESS版）';
SAPPVersion ='V2.0.0 build 0330';
SAppAuthor ='罗祖术';
//===========================================================
// DataBase Information
//===========================================================
SConnectString ='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
+'Jet OLEDB:Database Password=%s;';
SDefDataBaseName ='Data.mdb';
SDefDataBasePwd ='§№☆★○●◎◇◆□'; //设置为特殊字符，以尽量避免被破解
//============================================================
// Database TableName and FieldName
//============================================================
STLogin ='登录';
SFLoginPwd ='登录密码';
STDataChange ='修改数据'; //保存修改数据的密码，该密码经加密处理
STChgData ='修改数据';
STDept ='部门';
SFDept ='部门';
STSkin ='皮肤';
SFSkin ='皮肤';
STMonthStock ='月结存表';
SFName ='姓名';
STCompanyName ='公司名称';
SFCompanyName ='公司名称';
STDepotStock ='仓库库存';
SFAutoNumber ='编号';
SFStockDate ='进仓日期';
SFOutStockDate ='出仓日期';
SFAmount ='数量';
SFUnit ='单位';
SFGuiGe ='规格';
SFPrice ='单价';
SFMemo ='备注';
STGoodsInHistory ='进仓历史';
sFNo ='编号';
sFParentNo ='根编号';
STGoodsOutHistory ='出仓历史';
STGoodsName ='物品名称';
SFGoodsNumber ='物品编号';
SFGoodsName ='物品名称';
SFNowStock ='现存仓';
STInStockStat ='进仓统计';
STOutStockStat ='出仓统计';
//============================================================
// Message Information
//============================================================
STitleError ='错误提示';
STitleHint ='提示信息';
STitleConfirm ='信息确认';
sTitleAdd ='增加';
sTitleImportantHint ='重要提示';
sMsgDataFileNoExists ='找不到数据库文件，你确定生成数据库文件吗？';
sMsgDataFileCreateOk ='数据库文件成功创建！软件需要重新启动方可正常运行！';
sMsgEnterClassName ='请输入要增加的"物品种类"的名称！';
sMsgEnterGoodsName ='请输入要增加的"物品名称"！';
SMsgNotFindDataBase ='程序不能找到数据库文件：“%s”，'+#13#10+
'程序则不能继续运行！';
sMsgEnterPwdChanceTime ='您有 %s 资输入密码的机会！';
sMsgRepeatSaveError ='数据己存在！';
sMsgSaveError ='数据存储失败！';
sMsgImportantDelete ='※※※重要提示※※※'+#13#10#13#10+
' 如果之前该物品进行过进/出仓数据入或各数据统'+#13#10#13#10+
'计，删除该物品名称将导致以往所有的进/出仓数据/统'+#13#10#13#10+
'计数据中的该物品相关数据丢失，您确定要删除吗？';
sMsgDeleteConfirm ='数据被删除后是不可恢复的，你确定要删除吗？';
sMsgDeleteError ='数据删除失败！';
sMsgSaveOk ='数据保存成功！';
sMsgNumberRepeat ='物品编号 %s 重复，请重新输入！';
sMsgNameRepeat ='物品名称 %s 重复，请重新输入！';
sMsgClassRepeat ='种类名称 %s 重复！';
sMsgGoodsRepeat ='物品名称 %s 重复！';
sMsgOldPasswordError ='旧密码错误！';
sMsgNewOrCfmPwdError ='新密码两次输入不同！';
sMsgPwdSetupError ='密码设置失败';
sMsgPwdSetupOk ='密码成功设置，请牢记您所设置的新密码！';
sMsgBaseSetupIsChanged ='如果您修改过基础信息设置，请重新启动软件方可正常使用！';
sMsgGoodsNoExist ='该物品没有存货！';
sMsgGoodsExistAmount ='物品：%s 库存数量为 %d 。';
sMsgAddGoodsOk ='物品成功录入！';
sMsgGetGoodsExceed ='领取物品超出存货量！';
sMsgLoadInfo1 ='载入基础信息中......';
sMsgLoadInfo2 ='读取相关进仓出仓数据......';
sMsgLoadInfo3 ='读取部门信息......';
sMsgLoadInfo4 ='读取物品种类信息......';
sMsgLoadInfo5 ='读取月结存数据信息......';
sMsgOptimizeFail ='数据库优化失败，请重启动本程序后再进行优化！';
sMsgOptimizeSucceed =' 数据库己经成功的进行了优化，可能会造成部份数'+#13#10+
'据的显示问题，请重新启动本软件己解决这个问题。你'+#13#10+
'确定退出吗？';
sMsgDataDeleteOk ='数据己经成功删除，为了软件正常运行，请重新启动软件！';
sMsgDataBaseBackupOk ='数据库备份成功，备份文件及路径为：'+#13#10+
'%s';
sMsgRevertOk ='数据库还原成功，请重新启动本程序！';
sMsgRevertFail =' 数据库还原失败！由于试图还原数据库，己将数据'+#13#10+
'连接关闭，为继续正常使用本软件，请重新启动本程序！';
sMsgNothingError ='没有数据，导入失败！';
sMsgNotInstallExcel ='您的系统中没有安装Microsoft Excel 或安装不正确！';
sMsgExportSucceed ='数据导出成功！';
sMsgStatIsExist =' [%s] 的统计数据己经存在，重新统计将会删除原'+#13#10+
'[%s] 统计数据，确定要重新统计吗？';
//============================================================
// SQL Information
//============================================================
SSQLTY0 ='Select * from %s ';
SSQLTY1 ='Select * from %s order by %s';
SSQLTY2 ='Select * from %s order by autono';
SSQLStrTerm ='Select * from %s where %s="%s"';
//SSQLStrNoShowOut ='Select * from AllInsurance where FEarlyOut=False order by autono';
//SSQLStrTermInt ='Select * from %s where %s=%d';
SSQLDeleteData ='Delete from %s where %s="%s"';
SSQLDeleteDataTable ='Delete * from %s';
sSQLAddClassName ='insert into 物品名称(物品名称,根编号,规格,单位,单价,备注) '+
'values(:pName,:pNo,:pGG,:pDW,:pDJ,:pBZ)';
sSQLReadAllClassName ='select 物品名称,根编号,编号 from 物品名称 where 根编号=-1 order by 物品名称';
sSQLUpdateIncName ='Update 公司名称 set 公司名称=:pInc';
sSqlInsertIncNmae ='insert into 公司名称(公司名称) values(:pInc)';
sSQLInsertDeptName ='insert into 部门(部门) Values(:pDept)';
sSQLDeleteAllData ='delete from 物品名称 where 编号=:pID1 or 根编号=:pID2';
sSQLDeleteGoodsData ='delete from 物品名称 where 编号=:pID';
sSQLUpdatePwd ='update 登录 set 登录密码=:pPwd';
sSQLReadClassOfGoods ='select 根编号,物品名称 from 物品名称 '+
'where 根编号=:pParent order by 物品名称';
sSQLReadGoodsInfo ='select 物品名称,规格,单位,单价 from 物品名称 '+
'where 物品名称=:pGoodsName';
sSQLInsertGoodsToStock ='insert into 仓库库存(物品名称,数量,备注) '+
'values(:pGoods,:pAcount,:pMemo)';
sSQLInsertGoodsToInHistory ='insert into 进仓历史(进仓日期,年月,物品名称,数量,备注) '+
'values(:pDate,:pYm,:pGoods,:pAcount,:pMemo)';
sSQLUpdateGoodsToStock ='Update 仓库库存 set 数量= 数量 + :pAmount,备注=:pMemo where 物品名称=:pGoods';
sSQLGoodsExist ='select 物品名称,数量 from 仓库库存 where 物品名称=:pGoods';
sSQLShowNowStock ='select 仓库库存.编号,物品种类,仓库库存.物品名称,物品名称.物品名称,'+
'规格,单位,单价,数量,仓库库存.备注 '+
'from 仓库库存,物品名称 '+
'where 仓库库存.物品名称=物品名称.物品名称 '+
'order by 仓库库存.物品名称';
sSQLShowInStock ='select 进仓历史.编号,进仓日期,物品种类,进仓历史.物品名称,物品名称.物品名称,'+
'规格,单位,单价,数量,进仓历史.备注 '+
'from 进仓历史,物品名称 '+
'where 进仓历史.物品名称=物品名称.物品名称 '+
'order by 进仓历史.物品名称';
sSQLShowOutStock ='select 出仓历史.编号,出仓日期,部门,姓名,物品种类,出仓历史.物品名称,物品名称.物品名称,'+
'规格,单位,单价,数量,出仓历史.备注 '+
'from 出仓历史,物品名称 '+
'where 出仓历史.物品名称=物品名称.物品名称 '+
'order by 出仓历史.物品名称';
sSQLInsertGoodsToOutHistory ='insert into 出仓历史(出仓日期,年月,部门,姓名,物品名称,数量,备注) '+
'Values(:pDate,:pYm,:pDept,:pName,:pGoods,:pAmount,:pMemo)';
sSQLAllGet ='Delete from 仓库库存 where 物品名称=:pGoods';
sSQLInsertStatIn ='insert into 进仓统计(年月,物品名称,数量) '+
'select 年月,物品名称, sum(数量) from 进仓历史 '+
'where 进仓日期>=#%s# and 进仓日期<=#%s# '+
'Group by 年月,物品名称';
sSQLShowStatIn ='select 年月,物品种类,物品名称.物品名称,进仓统计.物品名称,规格,单位,单价,数量 '+
'from 进仓统计,物品名称 '+
'where 物品名称.物品名称=进仓统计.物品名称';
sSQLInsertStatOut ='insert into 出仓统计(年月,物品名称,数量) '+
'select 年月,物品名称, sum(数量) from 出仓历史 '+
'where 出仓日期>=#%s# and 出仓日期<=#%s# '+
'Group by 年月,物品名称';
sSQLShowStatOut ='select 年月,物品种类,物品名称.物品名称,出仓统计.物品名称,规格,单位,单价,数量 '+
'from 出仓统计,物品名称 '+
'where 物品名称.物品名称=出仓统计.物品名称';
{sSQLStatIn ='select 年月,物品种类,进仓历史.物品名称,规格,单位,单价,sum(数量) as 数量 '+
'from '+
'(select 物品种类,进仓日期,进仓历史.物品名称,物品名称.物品名称,规格,单位,单价,数量,年月 '+
'from 物品名称,进仓历史 '+
'where 物品名称.物品名称=进仓历史.物品名称 and 进仓日期>=#%s# and 进仓日期 <=#%s# ) '+
'Group by 进仓历史.物品名称,物品名称.物品名称,物品种类,年月,规格,单位,单价'; }
{sSQLStatOut ='select 年月,物品种类,出仓历史.物品名称,规格,单位,单价,sum(数量) as 数量 '+
'from '+
'(select 物品种类,出仓日期,出仓历史.物品名称,物品名称.物品名称,规格,单位,单价,数量,年月 '+
'from 物品名称,出仓历史 '+
'where 物品名称.物品名称=出仓历史.物品名称 and 出仓日期>=#%s# and 出仓日期 <=#%s# ) '+
'Group by 出仓历史.物品名称,物品名称.物品名称,物品种类,年月,规格,单位,单价'; }
sSQLStatOutDept ='select 年月,部门,物品种类,出仓历史.物品名称,规格,单位,单价,sum(数量) as 数量 '+
'from '+
'(select 物品种类,出仓日期,出仓历史.物品名称,物品名称.物品名称,规格,单位,单价,数量,年月,部门 '+
'from 物品名称,出仓历史 '+
'where 物品名称.物品名称=出仓历史.物品名称 and 出仓日期>=#%s# and 出仓日期 <=#%s# ) '+
'Group by 出仓历史.物品名称,物品名称.物品名称,物品种类,年月,规格,单位,单价,部门';
sSQLStatOutPerson ='select 年月,部门,姓名,物品种类,出仓历史.物品名称,规格,单位,单价,sum(数量) as 数量 '+
'from '+
'(select 物品种类,出仓日期,出仓历史.物品名称,物品名称.物品名称,规格,单位,单价,数量,年月,姓名,部门 '+
'from 物品名称,出仓历史 '+
'where 物品名称.物品名称=出仓历史.物品名称 and 出仓日期>=#%s# and 出仓日期 <=#%s# ) '+
'Group by 姓名,出仓历史.物品名称,物品名称.物品名称,物品种类,年月,规格,单位,单价,部门';
//sSQLStatIn ='select 年月,物品名称,sum(数量) from 进仓历史 where 进仓日期>=#%s# and 进仓日期<=#%s# group by 年月,物品名称';
//sSQLShowMonthStock ='select 物品名称.';
// select name,age,sum(money) from total group by name,age
SSQLInsertGetGoods ='Insert into 物品出仓(出仓日期,部门,姓名,物品编号,物品名称,规格,数量,单位,备注) '+
'values (:S_Date,:S_Dept,:S_Name,:S_Number,:S_GoodsName,:S_GG,:S_Acount,:S_Unit,:S_Memo) ';
SSQLGoodsStock ='insert into 货物进仓(进货日期,物品编号,物品名称,规格,数量,单位,单价,备注) '+
'values(:S_Date,:S_Number,:S_Name,:S_GG,:S_Acount,:S_Unit,:S_Price,:S_Memo)';
SSqlAddGoods ='Update 仓库存货 set 数量=数量+%s,备注=:S_Memo where 物品编号="%s"';
SSQLUpdateStock ='Update 仓库存货 set 数量=数量-%s where 物品编号="%s"';
SSQLdistinct ='Select distinct %s from %s';
//============================================================
// Form Caption
//============================================================
SFormLogin ='登录';
SFormBaseSetup ='基础信息设置';
SFormStock ='进货信息录入';
SFormDataMgr ='数据管理';
SFormGetGoods ='领取物品登记';
SFormStat ='综合数据统计';
SFormSystemMgr ='系统管理';
SFormAbout ='关于程序';
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -