?? 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 + -