库存库位扫描
This commit is contained in:
“zfp”
parent
97408f18a7
commit
61d962fc85
|
|
@ -124,7 +124,7 @@
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||||
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\testDll.exe</Debugger_HostApplication>
|
<Debugger_HostApplication>D:\RTFormwork\项目代码\RTBasicsV1\T04贸易明细仓库\testDll.exe</Debugger_HostApplication>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<DelphiCompile Include="$(MainSource)">
|
<DelphiCompile Include="$(MainSource)">
|
||||||
|
|
|
||||||
|
|
@ -1,73 +1,75 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions>
|
<Transactions>
|
||||||
<Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.163,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.987,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothStkList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.987,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothStkList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.585,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.dfm=C:\Users\Administrator\Desktop\U_TatClothOutList.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.997,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothOutEdit.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.997,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothOutEdit.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas=</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.pas=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.073,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.585,C:\Users\Administrator\Desktop\U_TatClothOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas=</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.073,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.003,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.dfm=C:\Users\Administrator\Desktop\U_TatClothInList.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothInList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothInList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.585,C:\Users\Administrator\Desktop\U_TatClothOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.163,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.585,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.pas=C:\Users\Administrator\Desktop\U_TatClothOutList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.432,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothOutList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.432,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothOutList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.299,=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeDRSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.003,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.pas=C:\Users\Administrator\Desktop\U_TatClothInList.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.611,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas=C:\Users\Administrator\Desktop\U_TatClothStkList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.003,C:\Users\Administrator\Desktop\U_TatClothInList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.793,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.868,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothWaitStorage.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.868,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothWaitStorage.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.793,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.pas=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas=</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequest.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.611,C:\Users\Administrator\Desktop\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.035,C:\Users\Administrator\Desktop\U_TatClothInList.pas=</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.003,C:\Users\Administrator\Desktop\U_TatClothInList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.413,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.347,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.891,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.891,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.035,C:\Users\Administrator\Desktop\U_TatClothInList.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.dfm=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequest.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.611,C:\Users\Administrator\Desktop\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.084,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequestInPut.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.084,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequestInPut.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.347,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.413,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas=</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.611,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.dfm=C:\Users\Administrator\Desktop\U_TatClothStkList.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.299,=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeDRSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeClothInEdit.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeClothInEdit.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||||
|
<Transaction>2024-08-02 12:17:47.024,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用窗体\U_PositionSel.pas</Transaction>
|
||||||
|
<Transaction>2024-08-02 12:18:44.529,D:\RTFormwork\项目代码\RTBasicsV1\A00通用窗体\U_PositionSel.pas=</Transaction>
|
||||||
</Transactions>
|
</Transactions>
|
||||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||||
<File Path="android-support-v4.dex.jar"/>
|
<File Path="android-support-v4.dex.jar"/>
|
||||||
|
|
|
||||||
Binary file not shown.
|
|
@ -17,7 +17,7 @@ implementation
|
||||||
uses
|
uses
|
||||||
U_DataLink, U_iniParam, U_TradeDeliveryRequest, U_TradeClothDROutEdit,
|
U_DataLink, U_iniParam, U_TradeDeliveryRequest, U_TradeClothDROutEdit,
|
||||||
U_TradeClothInEdit, U_TradeClothInList, U_TradeClothOutEdit,
|
U_TradeClothInEdit, U_TradeClothInList, U_TradeClothOutEdit,
|
||||||
U_TradeClothOutList, U_TradeClothStkList, U_TradeRRList;
|
U_TradeClothOutList, U_TradeClothStkList, U_TradeRRList, U_StockScanInEdit;
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////
|
/////////////////////////////////////////////////////////////////
|
||||||
// 功能说明:取Dll中得窗体 //
|
// 功能说明:取Dll中得窗体 //
|
||||||
|
|
@ -138,6 +138,18 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
112: //¿â´æ¿âλɨÃè
|
||||||
|
begin
|
||||||
|
with TfrmStockScanInEdit.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||||
|
begin
|
||||||
|
fFormID := FormID;
|
||||||
|
FormStyle := mstyle;
|
||||||
|
WindowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
mnewHandle := Handle;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
121: //成品入库
|
121: //成品入库
|
||||||
begin
|
begin
|
||||||
with TfrmTradeClothInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
with TfrmTradeClothInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||||
|
|
|
||||||
986
项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.dfm
Normal file
986
项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.dfm
Normal file
|
|
@ -0,0 +1,986 @@
|
||||||
|
inherited frmPositionSel: TfrmPositionSel
|
||||||
|
Left = 342
|
||||||
|
Top = 13
|
||||||
|
Caption = #25968#25454#36873#25321
|
||||||
|
ClientHeight = 668
|
||||||
|
ClientWidth = 731
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Position = poScreenCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
ExplicitWidth = 747
|
||||||
|
ExplicitHeight = 707
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 12
|
||||||
|
object ScrollBox1: TScrollBox [0]
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 731
|
||||||
|
Height = 668
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
object btn1: TSpeedButton
|
||||||
|
Left = 23
|
||||||
|
Top = 3
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn2: TSpeedButton
|
||||||
|
Left = 111
|
||||||
|
Top = 3
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn3: TSpeedButton
|
||||||
|
Left = 199
|
||||||
|
Top = 3
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn4: TSpeedButton
|
||||||
|
Left = 287
|
||||||
|
Top = 3
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn5: TSpeedButton
|
||||||
|
Left = 375
|
||||||
|
Top = 3
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn6: TSpeedButton
|
||||||
|
Left = 463
|
||||||
|
Top = 3
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn7: TSpeedButton
|
||||||
|
Left = 551
|
||||||
|
Top = 3
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn8: TSpeedButton
|
||||||
|
Left = 639
|
||||||
|
Top = 3
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn58: TSpeedButton
|
||||||
|
Left = 23
|
||||||
|
Top = 81
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn9: TSpeedButton
|
||||||
|
Left = 111
|
||||||
|
Top = 81
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn10: TSpeedButton
|
||||||
|
Left = 199
|
||||||
|
Top = 81
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn11: TSpeedButton
|
||||||
|
Left = 287
|
||||||
|
Top = 81
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn12: TSpeedButton
|
||||||
|
Left = 375
|
||||||
|
Top = 81
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn13: TSpeedButton
|
||||||
|
Left = 463
|
||||||
|
Top = 81
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn14: TSpeedButton
|
||||||
|
Left = 551
|
||||||
|
Top = 81
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn15: TSpeedButton
|
||||||
|
Left = 639
|
||||||
|
Top = 81
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn59: TSpeedButton
|
||||||
|
Left = 23
|
||||||
|
Top = 158
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn16: TSpeedButton
|
||||||
|
Left = 111
|
||||||
|
Top = 158
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn17: TSpeedButton
|
||||||
|
Left = 199
|
||||||
|
Top = 158
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn18: TSpeedButton
|
||||||
|
Left = 287
|
||||||
|
Top = 158
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn19: TSpeedButton
|
||||||
|
Left = 375
|
||||||
|
Top = 158
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn20: TSpeedButton
|
||||||
|
Left = 463
|
||||||
|
Top = 158
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn21: TSpeedButton
|
||||||
|
Left = 551
|
||||||
|
Top = 158
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn22: TSpeedButton
|
||||||
|
Left = 639
|
||||||
|
Top = 158
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn60: TSpeedButton
|
||||||
|
Left = 23
|
||||||
|
Top = 236
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn23: TSpeedButton
|
||||||
|
Left = 111
|
||||||
|
Top = 236
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn24: TSpeedButton
|
||||||
|
Left = 199
|
||||||
|
Top = 236
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn25: TSpeedButton
|
||||||
|
Left = 287
|
||||||
|
Top = 236
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn26: TSpeedButton
|
||||||
|
Left = 375
|
||||||
|
Top = 236
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn27: TSpeedButton
|
||||||
|
Left = 463
|
||||||
|
Top = 236
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn28: TSpeedButton
|
||||||
|
Left = 551
|
||||||
|
Top = 236
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn29: TSpeedButton
|
||||||
|
Left = 639
|
||||||
|
Top = 236
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn61: TSpeedButton
|
||||||
|
Left = 23
|
||||||
|
Top = 314
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn30: TSpeedButton
|
||||||
|
Left = 111
|
||||||
|
Top = 314
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn31: TSpeedButton
|
||||||
|
Left = 199
|
||||||
|
Top = 314
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn32: TSpeedButton
|
||||||
|
Left = 287
|
||||||
|
Top = 314
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn33: TSpeedButton
|
||||||
|
Left = 375
|
||||||
|
Top = 314
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn34: TSpeedButton
|
||||||
|
Left = 463
|
||||||
|
Top = 314
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn35: TSpeedButton
|
||||||
|
Left = 551
|
||||||
|
Top = 314
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn36: TSpeedButton
|
||||||
|
Left = 639
|
||||||
|
Top = 314
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn62: TSpeedButton
|
||||||
|
Left = 23
|
||||||
|
Top = 392
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn37: TSpeedButton
|
||||||
|
Left = 111
|
||||||
|
Top = 392
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn38: TSpeedButton
|
||||||
|
Left = 199
|
||||||
|
Top = 392
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn39: TSpeedButton
|
||||||
|
Left = 287
|
||||||
|
Top = 392
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn40: TSpeedButton
|
||||||
|
Left = 375
|
||||||
|
Top = 392
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn41: TSpeedButton
|
||||||
|
Left = 463
|
||||||
|
Top = 392
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn42: TSpeedButton
|
||||||
|
Left = 551
|
||||||
|
Top = 392
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn43: TSpeedButton
|
||||||
|
Left = 639
|
||||||
|
Top = 392
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn63: TSpeedButton
|
||||||
|
Left = 23
|
||||||
|
Top = 469
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn44: TSpeedButton
|
||||||
|
Left = 111
|
||||||
|
Top = 469
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn45: TSpeedButton
|
||||||
|
Left = 199
|
||||||
|
Top = 469
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn46: TSpeedButton
|
||||||
|
Left = 287
|
||||||
|
Top = 469
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn47: TSpeedButton
|
||||||
|
Left = 375
|
||||||
|
Top = 469
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn48: TSpeedButton
|
||||||
|
Left = 463
|
||||||
|
Top = 469
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn49: TSpeedButton
|
||||||
|
Left = 551
|
||||||
|
Top = 469
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn50: TSpeedButton
|
||||||
|
Left = 639
|
||||||
|
Top = 469
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn64: TSpeedButton
|
||||||
|
Left = 23
|
||||||
|
Top = 547
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn51: TSpeedButton
|
||||||
|
Left = 111
|
||||||
|
Top = 547
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn52: TSpeedButton
|
||||||
|
Left = 199
|
||||||
|
Top = 547
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn53: TSpeedButton
|
||||||
|
Left = 287
|
||||||
|
Top = 547
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn54: TSpeedButton
|
||||||
|
Left = 375
|
||||||
|
Top = 547
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn55: TSpeedButton
|
||||||
|
Left = 463
|
||||||
|
Top = 547
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn56: TSpeedButton
|
||||||
|
Left = 551
|
||||||
|
Top = 547
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object btn57: TSpeedButton
|
||||||
|
Left = 639
|
||||||
|
Top = 547
|
||||||
|
Width = 70
|
||||||
|
Height = 70
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 352
|
||||||
|
Top = 626
|
||||||
|
Width = 33
|
||||||
|
Height = 19
|
||||||
|
Caption = '1/1'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -19
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 199
|
||||||
|
Top = 623
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = #19978#19968#39029
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = Button1Click
|
||||||
|
end
|
||||||
|
object Button2: TButton
|
||||||
|
Left = 445
|
||||||
|
Top = 623
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = #19979#19968#39029
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = Button2Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseCmd: TADOQuery
|
||||||
|
Connection = ADOConnection1
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseTemp: TADOQuery
|
||||||
|
Connection = ADOConnection1
|
||||||
|
end
|
||||||
|
object ADOTmp: TADOQuery
|
||||||
|
Connection = ADOConnection1
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 120
|
||||||
|
Top = 176
|
||||||
|
end
|
||||||
|
object ADOConnection1: TADOConnection
|
||||||
|
LoginPrompt = False
|
||||||
|
Left = 296
|
||||||
|
Top = 192
|
||||||
|
end
|
||||||
|
object CDS_All: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 296
|
||||||
|
Top = 272
|
||||||
|
end
|
||||||
|
end
|
||||||
237
项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.pas
Normal file
237
项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.pas
Normal file
|
|
@ -0,0 +1,237 @@
|
||||||
|
unit U_PositionSel;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, Buttons, DB, ADODB, U_BaseHelp, System.ImageList, Vcl.ImgList,
|
||||||
|
Datasnap.DBClient, Vcl.StdCtrls, math;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmPositionSel = class(TfrmBaseHelp)
|
||||||
|
ScrollBox1: TScrollBox;
|
||||||
|
btn1: TSpeedButton;
|
||||||
|
btn2: TSpeedButton;
|
||||||
|
btn3: TSpeedButton;
|
||||||
|
btn4: TSpeedButton;
|
||||||
|
btn5: TSpeedButton;
|
||||||
|
btn6: TSpeedButton;
|
||||||
|
btn7: TSpeedButton;
|
||||||
|
btn8: TSpeedButton;
|
||||||
|
btn58: TSpeedButton;
|
||||||
|
btn9: TSpeedButton;
|
||||||
|
btn10: TSpeedButton;
|
||||||
|
btn11: TSpeedButton;
|
||||||
|
btn12: TSpeedButton;
|
||||||
|
btn13: TSpeedButton;
|
||||||
|
btn14: TSpeedButton;
|
||||||
|
btn15: TSpeedButton;
|
||||||
|
btn59: TSpeedButton;
|
||||||
|
btn16: TSpeedButton;
|
||||||
|
btn17: TSpeedButton;
|
||||||
|
btn18: TSpeedButton;
|
||||||
|
btn19: TSpeedButton;
|
||||||
|
btn20: TSpeedButton;
|
||||||
|
btn21: TSpeedButton;
|
||||||
|
btn22: TSpeedButton;
|
||||||
|
btn60: TSpeedButton;
|
||||||
|
btn23: TSpeedButton;
|
||||||
|
btn24: TSpeedButton;
|
||||||
|
btn25: TSpeedButton;
|
||||||
|
btn26: TSpeedButton;
|
||||||
|
btn27: TSpeedButton;
|
||||||
|
btn28: TSpeedButton;
|
||||||
|
btn29: TSpeedButton;
|
||||||
|
btn61: TSpeedButton;
|
||||||
|
btn30: TSpeedButton;
|
||||||
|
btn31: TSpeedButton;
|
||||||
|
btn32: TSpeedButton;
|
||||||
|
btn33: TSpeedButton;
|
||||||
|
btn34: TSpeedButton;
|
||||||
|
btn35: TSpeedButton;
|
||||||
|
btn36: TSpeedButton;
|
||||||
|
btn62: TSpeedButton;
|
||||||
|
btn37: TSpeedButton;
|
||||||
|
btn38: TSpeedButton;
|
||||||
|
btn39: TSpeedButton;
|
||||||
|
btn40: TSpeedButton;
|
||||||
|
btn41: TSpeedButton;
|
||||||
|
btn42: TSpeedButton;
|
||||||
|
btn43: TSpeedButton;
|
||||||
|
btn63: TSpeedButton;
|
||||||
|
btn44: TSpeedButton;
|
||||||
|
btn45: TSpeedButton;
|
||||||
|
btn46: TSpeedButton;
|
||||||
|
btn47: TSpeedButton;
|
||||||
|
btn48: TSpeedButton;
|
||||||
|
btn49: TSpeedButton;
|
||||||
|
btn50: TSpeedButton;
|
||||||
|
btn64: TSpeedButton;
|
||||||
|
btn51: TSpeedButton;
|
||||||
|
btn52: TSpeedButton;
|
||||||
|
btn53: TSpeedButton;
|
||||||
|
btn54: TSpeedButton;
|
||||||
|
btn55: TSpeedButton;
|
||||||
|
btn56: TSpeedButton;
|
||||||
|
btn57: TSpeedButton;
|
||||||
|
ADOTmp: TADOQuery;
|
||||||
|
ADOConnection1: TADOConnection;
|
||||||
|
CDS_All: TClientDataSet;
|
||||||
|
Button1: TButton;
|
||||||
|
Button2: TButton;
|
||||||
|
Label1: TLabel;
|
||||||
|
procedure FormDestroy(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure btn1Click(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure Button2Click(Sender: TObject);
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
procedure InitGrid();
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
FPOSNO: string;
|
||||||
|
FPage: Integer;
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmPositionSel: TfrmPositionSel;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_RTFun;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmPositionSel.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
frmPositionSel := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPositionSel.InitGrid();
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
str: string;
|
||||||
|
begin
|
||||||
|
|
||||||
|
with ADOTmp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select POSNO,POSName ');
|
||||||
|
sql.Add(',ROW_NUMBER() over(order by A.POSNO) as keyNo ');
|
||||||
|
sql.Add('from Bs_Position A ');
|
||||||
|
SQL.Add('order by POSNO,POSName ');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if ADOTmp.IsEmpty then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('没有定义数据！', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADOTmp, CDS_All);
|
||||||
|
SInitCDSData(ADOTmp, CDS_All);
|
||||||
|
|
||||||
|
if CDS_All.RecordCount < FPage * 64 then
|
||||||
|
begin
|
||||||
|
FPage := FPage - 1;
|
||||||
|
end;
|
||||||
|
if FPage <= 0 then
|
||||||
|
begin
|
||||||
|
FPage := 1;
|
||||||
|
end;
|
||||||
|
if CDS_All.RecordCount mod 64 > 0 then
|
||||||
|
Label1.Caption := IntToStr(FPage) + '/' + IntToStr(Floor(CDS_All.RecordCount / 64 + 1))
|
||||||
|
else
|
||||||
|
Label1.Caption := IntToStr(FPage) + '/' + IntToStr(Floor(CDS_All.RecordCount / 64));
|
||||||
|
|
||||||
|
for i := 0 to 63 do
|
||||||
|
begin
|
||||||
|
if CDS_All.Locate('keyNo', (FPage - 1) * 64 + i + 1, []) then
|
||||||
|
begin
|
||||||
|
with ScrollBox1 do
|
||||||
|
begin
|
||||||
|
TSpeedButton(Controls[i]).Visible := True;
|
||||||
|
TSpeedButton(Controls[i]).Hint := CDS_All.fieldbyname('POSNO').AsString;
|
||||||
|
TSpeedButton(Controls[i]).Caption := CDS_All.fieldbyname('POSNO').AsString;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
with ScrollBox1 do
|
||||||
|
begin
|
||||||
|
TSpeedButton(Controls[i]).Visible := False;
|
||||||
|
TSpeedButton(Controls[i]).Hint := '';
|
||||||
|
TSpeedButton(Controls[i]).Caption := '';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPositionSel.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FPage := 1;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPositionSel.btn1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FPOSNO := Trim(TSpeedButton(Sender).Hint);
|
||||||
|
ModalResult := 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPositionSel.Button1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FPage := FPage - 1;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPositionSel.Button2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FPage := FPage + 1;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPositionSel.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
// Action:=caHide;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPositionSel.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
try
|
||||||
|
with ADOConnection1 do
|
||||||
|
begin
|
||||||
|
Connected := false;
|
||||||
|
ConnectionString := DConString;
|
||||||
|
Connected := true;
|
||||||
|
end;
|
||||||
|
ADOQueryBaseCmd.Connection := ADOConnection1;
|
||||||
|
ADOQueryBaseTemp.Connection := ADOConnection1;
|
||||||
|
except
|
||||||
|
{if Application.MessageBox('网络连接失败,是否要再次连接?','提示',32+4)=IDYES then
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
with ADOConnection1 do
|
||||||
|
begin
|
||||||
|
Connected:=false;
|
||||||
|
ConnectionString:=DConString;
|
||||||
|
//ConnectionString:='23242';
|
||||||
|
Connected:=true;
|
||||||
|
end;
|
||||||
|
except
|
||||||
|
end;
|
||||||
|
end; }
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
403
项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.dfm
Normal file
403
项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.dfm
Normal file
|
|
@ -0,0 +1,403 @@
|
||||||
|
inherited frmStockScanInEdit: TfrmStockScanInEdit
|
||||||
|
Caption = #24211#23384#24211#20301#25195#25551
|
||||||
|
ClientHeight = 632
|
||||||
|
ClientWidth = 1350
|
||||||
|
ExplicitWidth = 1366
|
||||||
|
ExplicitHeight = 671
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 17
|
||||||
|
object Panel1: TPanel [0]
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1350
|
||||||
|
Height = 145
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
TabOrder = 0
|
||||||
|
object Panel3: TPanel
|
||||||
|
Left = 2
|
||||||
|
Top = 2
|
||||||
|
Width = 1346
|
||||||
|
Height = 141
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 844
|
||||||
|
Top = 80
|
||||||
|
Width = 48
|
||||||
|
Height = 17
|
||||||
|
Caption = #20837#24211#26102#38388
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 864
|
||||||
|
Top = 49
|
||||||
|
Width = 48
|
||||||
|
Height = 17
|
||||||
|
Caption = #20837#24211#21333#21495
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label11: TLabel
|
||||||
|
Left = 854
|
||||||
|
Top = 106
|
||||||
|
Width = 48
|
||||||
|
Height = 17
|
||||||
|
Caption = #20837#24211#31867#22411
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 13
|
||||||
|
Top = 68
|
||||||
|
Width = 66
|
||||||
|
Height = 33
|
||||||
|
Caption = #25195#25551
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlue
|
||||||
|
Font.Height = -32
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 470
|
||||||
|
Top = 68
|
||||||
|
Width = 66
|
||||||
|
Height = 33
|
||||||
|
Caption = #24211#20301
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -32
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object CRTime: TDateTimePicker
|
||||||
|
Left = 892
|
||||||
|
Top = 76
|
||||||
|
Width = 100
|
||||||
|
Height = 20
|
||||||
|
Date = 41337.000000000000000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 0.663190821760508700
|
||||||
|
TabOrder = 0
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object InNo: TEdit
|
||||||
|
Left = 918
|
||||||
|
Top = 45
|
||||||
|
Width = 100
|
||||||
|
Height = 25
|
||||||
|
TabOrder = 1
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object CRType: TComboBox
|
||||||
|
Left = 902
|
||||||
|
Top = 102
|
||||||
|
Width = 100
|
||||||
|
Height = 25
|
||||||
|
Style = csDropDownList
|
||||||
|
ItemIndex = 0
|
||||||
|
TabOrder = 2
|
||||||
|
Text = #26816#39564#20837#24211
|
||||||
|
Visible = False
|
||||||
|
Items.Strings = (
|
||||||
|
#26816#39564#20837#24211
|
||||||
|
#36864#36135#20837#24211)
|
||||||
|
end
|
||||||
|
object ToolBar3: TToolBar
|
||||||
|
Tag = 1
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 1344
|
||||||
|
Height = 38
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 38
|
||||||
|
ButtonWidth = 91
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
Images = DataLink_TradeClothStk.ImageList_new32
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 3
|
||||||
|
object ToolButton3: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #30721#21333#25171#21360
|
||||||
|
ImageIndex = 21
|
||||||
|
OnClick = ToolButton3Click
|
||||||
|
end
|
||||||
|
object ToolButton5: TToolButton
|
||||||
|
Left = 95
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #24211#20301#36873#25321
|
||||||
|
ImageIndex = 8
|
||||||
|
OnClick = ToolButton5Click
|
||||||
|
end
|
||||||
|
object ToolButton8: TToolButton
|
||||||
|
Left = 190
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384#26684#24335
|
||||||
|
ImageIndex = 16
|
||||||
|
OnClick = ToolButton8Click
|
||||||
|
end
|
||||||
|
object ToolButton7: TToolButton
|
||||||
|
Left = 285
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 7
|
||||||
|
OnClick = ToolButton7Click
|
||||||
|
end
|
||||||
|
object btnGetOutNo: TToolButton
|
||||||
|
Left = 356
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21462#21495
|
||||||
|
ImageIndex = 2
|
||||||
|
Visible = False
|
||||||
|
OnClick = btnGetOutNoClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object edtScan: TEdit
|
||||||
|
Left = 85
|
||||||
|
Top = 45
|
||||||
|
Width = 379
|
||||||
|
Height = 72
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -64
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 4
|
||||||
|
OnKeyPress = edtScanKeyPress
|
||||||
|
end
|
||||||
|
object IOPosition: TEdit
|
||||||
|
Left = 542
|
||||||
|
Top = 45
|
||||||
|
Width = 227
|
||||||
|
Height = 72
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -64
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 5
|
||||||
|
OnKeyPress = edtScanKeyPress
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel2: TPanel [1]
|
||||||
|
Left = 0
|
||||||
|
Top = 145
|
||||||
|
Width = 1350
|
||||||
|
Height = 487
|
||||||
|
Align = alClient
|
||||||
|
Caption = 'Panel2'
|
||||||
|
TabOrder = 1
|
||||||
|
object cxGrid3: TcxGrid
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 1348
|
||||||
|
Height = 485
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
object Tv3: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
DataController.DataSource = DS_3
|
||||||
|
DataController.Filter.AutoDataSetFilter = True
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = cxGridDBColumn6
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = #21367#25968#37327#65306'#'
|
||||||
|
Kind = skCount
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v3Column1
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skCount
|
||||||
|
Column = v3MJID
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
object cxGridDBColumn4: TcxGridDBColumn
|
||||||
|
Caption = #21367#21495
|
||||||
|
DataBinding.FieldName = 'PieceNo'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 52
|
||||||
|
end
|
||||||
|
object v3MJID: TcxGridDBColumn
|
||||||
|
Caption = #21367#26465#30721
|
||||||
|
DataBinding.FieldName = 'StkId'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 60
|
||||||
|
end
|
||||||
|
object v3Column3: TcxGridDBColumn
|
||||||
|
Caption = #39068#33394
|
||||||
|
DataBinding.FieldName = 'C_Color'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv3Column1: TcxGridDBColumn
|
||||||
|
Caption = #33394#21495
|
||||||
|
DataBinding.FieldName = 'C_ColorNo'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 67
|
||||||
|
end
|
||||||
|
object cxGridDBColumn6: TcxGridDBColumn
|
||||||
|
Caption = #31859#25968
|
||||||
|
DataBinding.FieldName = 'StkMeter'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 69
|
||||||
|
end
|
||||||
|
object v3Column1: TcxGridDBColumn
|
||||||
|
Caption = #27611#37325
|
||||||
|
DataBinding.FieldName = 'StkGrossWeight'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 59
|
||||||
|
end
|
||||||
|
object Tv3Column2: TcxGridDBColumn
|
||||||
|
Caption = #32568#21495
|
||||||
|
DataBinding.FieldName = 'BatchNO'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv3Column3: TcxGridDBColumn
|
||||||
|
Caption = #33457#22411
|
||||||
|
DataBinding.FieldName = 'C_Pattern'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv3Column4: TcxGridDBColumn
|
||||||
|
Caption = #24211#20301
|
||||||
|
DataBinding.FieldName = 'IOPosition'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridLevel1: TcxGridLevel
|
||||||
|
GridView = Tv3
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseCmd: TADOQuery
|
||||||
|
Connection = DataLink_TradeClothStk.ADOLink
|
||||||
|
Left = 649
|
||||||
|
Top = 56
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseTemp: TADOQuery
|
||||||
|
Connection = DataLink_TradeClothStk.ADOLink
|
||||||
|
Left = 593
|
||||||
|
Top = 49
|
||||||
|
end
|
||||||
|
object GPM_1: TcxGridPopupMenu
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 168
|
||||||
|
Top = 400
|
||||||
|
end
|
||||||
|
object CDS_1: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 264
|
||||||
|
Top = 400
|
||||||
|
end
|
||||||
|
object DS_1: TDataSource
|
||||||
|
DataSet = CDS_1
|
||||||
|
Left = 336
|
||||||
|
Top = 408
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_TradeClothStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 704
|
||||||
|
Top = 248
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_TradeClothStk.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 792
|
||||||
|
Top = 256
|
||||||
|
end
|
||||||
|
object ADOQueryMain: TADOQuery
|
||||||
|
Connection = DataLink_TradeClothStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 872
|
||||||
|
Top = 256
|
||||||
|
end
|
||||||
|
object CDS_2: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 264
|
||||||
|
Top = 328
|
||||||
|
end
|
||||||
|
object DS_2: TDataSource
|
||||||
|
DataSet = CDS_2
|
||||||
|
Left = 336
|
||||||
|
Top = 328
|
||||||
|
end
|
||||||
|
object GPM_2: TcxGridPopupMenu
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 176
|
||||||
|
Top = 324
|
||||||
|
end
|
||||||
|
object DS_3: TDataSource
|
||||||
|
DataSet = CDS_3
|
||||||
|
Left = 808
|
||||||
|
Top = 408
|
||||||
|
end
|
||||||
|
object CDS_3: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 760
|
||||||
|
Top = 408
|
||||||
|
end
|
||||||
|
object GPM_3: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid3
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 712
|
||||||
|
Top = 408
|
||||||
|
end
|
||||||
|
end
|
||||||
316
项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.pas
Normal file
316
项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.pas
Normal file
|
|
@ -0,0 +1,316 @@
|
||||||
|
unit U_StockScanInEdit;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, strUtils, SysUtils, Variants, Classes, Graphics, Controls,
|
||||||
|
Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||||
|
cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
|
||||||
|
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, MMSystem,
|
||||||
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||||||
|
cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls,
|
||||||
|
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseList, dxSkinsCore,
|
||||||
|
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, RM_Common, RM_Class,
|
||||||
|
RM_GridReport, RM_Dataset, Vcl.ToolWin, dxSkinBasic, dxSkinBlack, dxSkinBlue,
|
||||||
|
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
|
||||||
|
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||||
|
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||||
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||||
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||||
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||||
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||||
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||||
|
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
|
||||||
|
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
|
||||||
|
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||||
|
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
|
||||||
|
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
|
||||||
|
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
|
||||||
|
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
|
||||||
|
dxSkinXmas2008Blue, dxScrollbarAnnotations;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmStockScanInEdit = class(TfrmBaseList)
|
||||||
|
GPM_1: TcxGridPopupMenu;
|
||||||
|
CDS_1: TClientDataSet;
|
||||||
|
DS_1: TDataSource;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
Panel1: TPanel;
|
||||||
|
CDS_2: TClientDataSet;
|
||||||
|
DS_2: TDataSource;
|
||||||
|
GPM_2: TcxGridPopupMenu;
|
||||||
|
DS_3: TDataSource;
|
||||||
|
CDS_3: TClientDataSet;
|
||||||
|
GPM_3: TcxGridPopupMenu;
|
||||||
|
Panel2: TPanel;
|
||||||
|
cxGrid3: TcxGrid;
|
||||||
|
Tv3: TcxGridDBTableView;
|
||||||
|
cxGridDBColumn4: TcxGridDBColumn;
|
||||||
|
v3MJID: TcxGridDBColumn;
|
||||||
|
v3Column3: TcxGridDBColumn;
|
||||||
|
Tv3Column1: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn6: TcxGridDBColumn;
|
||||||
|
v3Column1: TcxGridDBColumn;
|
||||||
|
cxGridLevel1: TcxGridLevel;
|
||||||
|
Panel3: TPanel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
Label11: TLabel;
|
||||||
|
CRTime: TDateTimePicker;
|
||||||
|
InNo: TEdit;
|
||||||
|
CRType: TComboBox;
|
||||||
|
ToolBar3: TToolBar;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
btnGetOutNo: TToolButton;
|
||||||
|
ToolButton7: TToolButton;
|
||||||
|
ToolButton8: TToolButton;
|
||||||
|
edtScan: TEdit;
|
||||||
|
Label6: TLabel;
|
||||||
|
Tv3Column2: TcxGridDBColumn;
|
||||||
|
Tv3Column3: TcxGridDBColumn;
|
||||||
|
Label1: TLabel;
|
||||||
|
IOPosition: TEdit;
|
||||||
|
ToolButton5: TToolButton;
|
||||||
|
Tv3Column4: TcxGridDBColumn;
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure FormDestroy(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure ToolButton3Click(Sender: TObject);
|
||||||
|
procedure btnGetOutNoClick(Sender: TObject);
|
||||||
|
procedure ToolButton7Click(Sender: TObject);
|
||||||
|
procedure ToolButton8Click(Sender: TObject);
|
||||||
|
procedure edtScanKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure ToolButton5Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
FScan, FSubIds: string;
|
||||||
|
procedure PlayWav(MWav: string);
|
||||||
|
procedure InitKC();
|
||||||
|
procedure ScanKW();
|
||||||
|
procedure ScanCIID();
|
||||||
|
public
|
||||||
|
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmStockScanInEdit: TfrmStockScanInEdit;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_RTFun, U_TradeClothWaitStorage, U_LabelPrint, U_PositionSel;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
procedure TfrmStockScanInEdit.PlayWav(MWav: string);
|
||||||
|
begin
|
||||||
|
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\' + MWav + '.wav')) then
|
||||||
|
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\' + MWav + '.wav'), 0, SND_ASYNC);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmStockScanInEdit.InitKC();
|
||||||
|
begin
|
||||||
|
|
||||||
|
if IOPosition.Text = '' then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select A.IOFlag,A.IONo,A.IOID,A.IOPosition,B.* from Trade_Cloth_IO A ');
|
||||||
|
sql.Add('inner join Trade_Cloth_Stock B on A.StkId=B.StkId and A.IOCycles=B.StkCycles ');
|
||||||
|
sql.Add('where A.IOFlag=''入库'' and B.StkExists=1 ');
|
||||||
|
if IOPosition.Text <> '' then
|
||||||
|
sql.add('and IOPosition =' + QuotedStr(TRIm(IOPosition.Text)))
|
||||||
|
else
|
||||||
|
sql.add('and 1=2');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADOQueryTemp, CDS_3);
|
||||||
|
SInitCDSData(ADOQueryTemp, CDS_3);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmStockScanInEdit.ScanKW();
|
||||||
|
var
|
||||||
|
MStkIds: string;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add('select * from Bs_Position where POSID =''' + trim(FScan) + ''' ');
|
||||||
|
open;
|
||||||
|
end;
|
||||||
|
|
||||||
|
IOPosition.Text := ADOQueryTemp.FieldByName('posno').AsString;
|
||||||
|
|
||||||
|
btnGetOutNo.Click;
|
||||||
|
except
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmStockScanInEdit.ScanCIID();
|
||||||
|
var
|
||||||
|
MStkIds: string;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
if Trim(IOPosition.Text) = '' then
|
||||||
|
raise Exception.Create('库位不能为空!');
|
||||||
|
if Trim(InNo.Text) = '' then
|
||||||
|
raise Exception.Create('入库单号不能为空!');
|
||||||
|
|
||||||
|
MStkIds := FScan;
|
||||||
|
|
||||||
|
try
|
||||||
|
ADOQueryCmd.Connection.BeginTrans;
|
||||||
|
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
Sql.Clear;
|
||||||
|
Sql.Add('exec P_Market_Position_In ');
|
||||||
|
Sql.Add('@StkIds=' + quotedstr(trim(MStkIds)));
|
||||||
|
Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime)));
|
||||||
|
Sql.Add(',@IOType=' + Quotedstr(crtype.Text));
|
||||||
|
Sql.Add(',@IONO=' + Quotedstr(InNo.Text));
|
||||||
|
Sql.Add(',@StkPosition=' + Quotedstr(IOPosition.Text));
|
||||||
|
Sql.Add(',@FillId=' + Quotedstr(DCode));
|
||||||
|
Sql.Add(',@Filler=' + Quotedstr(DName));
|
||||||
|
// ShowMessage(sql.Text);
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||||
|
begin
|
||||||
|
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||||
|
end;
|
||||||
|
ADOQueryCmd.Connection.CommitTrans;
|
||||||
|
PlayWav('正确');
|
||||||
|
except
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
raise Exception.Create(PChar(Exception(ExceptObject).Message));
|
||||||
|
end;
|
||||||
|
|
||||||
|
except
|
||||||
|
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||||
|
// PlayWav('发货错误');
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmStockScanInEdit.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmStockScanInEdit.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
frmStockScanInEdit := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmStockScanInEdit.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ReadCxGrid(self.caption + 'Tv3', Tv3, '成品仓库');
|
||||||
|
InitKC();
|
||||||
|
CRTime.DateTime := SGetServerDate(ADOQueryTemp);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmStockScanInEdit.edtScanKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
var
|
||||||
|
maxno, SMFlag, KYCKFlag, FMainId, ff: string;
|
||||||
|
FFQty: Integer;
|
||||||
|
begin
|
||||||
|
if Key = #13 then
|
||||||
|
begin
|
||||||
|
FScan := TRIM(edtScan.Text);
|
||||||
|
edtScan.Text := '';
|
||||||
|
if Copy(FScan, 1, 2) = 'KW' then
|
||||||
|
begin
|
||||||
|
ScanKW();
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
ScanCIID();
|
||||||
|
end;
|
||||||
|
InitKC();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmStockScanInEdit.ToolButton3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if Trim(InNo.Text) = '' then
|
||||||
|
Exit;
|
||||||
|
|
||||||
|
try
|
||||||
|
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||||
|
with frmLabelPrint do
|
||||||
|
begin
|
||||||
|
FLMType := 'TradeClothIn1';
|
||||||
|
FFiltration1 := Trim(Self.InNo.Text);
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmLabelPrint.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmStockScanInEdit.ToolButton5Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
try
|
||||||
|
frmPositionSel := TfrmPositionSel.Create(Application);
|
||||||
|
with frmPositionSel do
|
||||||
|
begin
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
IOPosition.Text := CDS_1.FieldByName('POSNO').AsString;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmPositionSel.Free;
|
||||||
|
btnGetOutNo.Click;
|
||||||
|
initkc();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmStockScanInEdit.btnGetOutNoClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
maxNo: string;
|
||||||
|
begin
|
||||||
|
if GetLSNo(ADOQueryCmd, maxNo, 'RK', 'Trade_Cloth_IO', 3, 1) = False then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('取入库单号失败!', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
InNo.Text := Trim(maxNo);
|
||||||
|
CRTime.DateTime := SGetServerDate(ADOQueryTemp);
|
||||||
|
InitKC();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmStockScanInEdit.ToolButton7Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
tv3.Controller.EditingController.ShowEdit();
|
||||||
|
Close;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmStockScanInEdit.ToolButton8Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WriteCxGrid(self.caption + 'Tv3', Tv3, '成品仓库');
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user