Group_DJD/D10myBahong
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-02-14 17:29:15 +08:00
parent 6c19d3209a
commit 3e0a685b19
194 changed files with 190585 additions and 449 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
A00通用窗体/U_LabelPrint.pas
View File

@ -73,7 +73,7 @@ var
implementation
uses
U_DataLink, U_RTFun, U_LabelMapSet, U_printPdf;
U_DataLink, U_RTFun, U_LabelMapSet; //, U_printPdf
{$R *.dfm}
function TfrmLabelPrint.JsonGetChildValue(JsonStr, KeyName: string): string;
@ -160,7 +160,7 @@ begin
mprintFlag := 0;
mprinter := ComboBox_Print.ItemIndex;
printPdf(Application, 1, PChar('title'), PChar(dcode), PChar(dname), PChar(MaxBLCLID), StrToIntDef(ComboBox1.Text, 1), mprintFlag, mprinter, PChar(DConString))// HttpClient := THttpClient.Create;
// printPdf(Application, 1, PChar('title'), PChar(dcode), PChar(dname), PChar(MaxBLCLID), StrToIntDef(ComboBox1.Text, 1), mprintFlag, mprinter, PChar(DConString))// HttpClient := THttpClient.Create;
// JSONStr := '{"reportFileName":"","ciid":"' + MaxBLCLID + '"}';
// Request := TStringStream.Create(JSONStr);
//

BIN
G01贸易生产计划/.rmf Normal file
View File

Binary file not shown.

4
G01贸易生产计划/File.INI Normal file
View File

@ -0,0 +1,4 @@
[生产车间配置]
卷条码机台标志=99
成品DLL文件=CYZZ.dll
成品DLL调用号=11

7
G01贸易生产计划/FileHelp.ini Normal file
View File

@ -0,0 +1,7 @@
[FILEPATH]
FileClass=YP,AA,BB,HT
YP=D:\YP
AA=D:\AA
BB=D:\BB
HT=D:\HT
OTHER=D:\OTHER

BIN
G01贸易生产计划/InformationBase_Icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 766 B

23
G01贸易生产计划/ProjectGroup1.bpg Normal file
View File

@ -0,0 +1,23 @@
#------------------------------------------------------------------------------
VERSION = BWS.01
#------------------------------------------------------------------------------
!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#------------------------------------------------------------------------------
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
testDll.exe: testDll.dpr
$(DCC)
ProductPrice.dll: ProductPrice.dpr
$(DCC)

48
G01贸易生产计划/ProjectGroup1.groupproj Normal file
View File

@ -0,0 +1,48 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{A68C42C7-C260-4304-BB12-DC2070ECFDCC}</ProjectGuid>
</PropertyGroup>
<ItemGroup>
<Projects Include="testDll.dproj">
<Dependencies/>
</Projects>
<Projects Include="djdPackPlan.dproj">
<Dependencies/>
</Projects>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Default.Personality.12</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<Default.Personality/>
</BorlandProject>
</ProjectExtensions>
<Target Name="testDll">
<MSBuild Projects="testDll.dproj"/>
</Target>
<Target Name="testDll:Clean">
<MSBuild Projects="testDll.dproj" Targets="Clean"/>
</Target>
<Target Name="testDll:Make">
<MSBuild Projects="testDll.dproj" Targets="Make"/>
</Target>
<Target Name="djdPackPlan">
<MSBuild Projects="djdPackPlan.dproj"/>
</Target>
<Target Name="djdPackPlan:Clean">
<MSBuild Projects="djdPackPlan.dproj" Targets="Clean"/>
</Target>
<Target Name="djdPackPlan:Make">
<MSBuild Projects="djdPackPlan.dproj" Targets="Make"/>
</Target>
<Target Name="Build">
<CallTarget Targets="testDll;djdPackPlan"/>
</Target>
<Target Name="Clean">
<CallTarget Targets="testDll:Clean;djdPackPlan:Clean"/>
</Target>
<Target Name="Make">
<CallTarget Targets="testDll:Make;djdPackPlan:Make"/>
</Target>
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
</Project>

7
G01贸易生产计划/ProjectGroup1.groupproj.local Normal file
View File

@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions/>
<Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10myOukai\G01贸易生产计划\djdPackPlan.dproj"/>
</Default.Personality>
</BorlandProject>

11
G01贸易生产计划/SYSTEMSET.ini Normal file
View File

@ -0,0 +1,11 @@
[SERVER]
服务器地址=101.132.143.144
服务器地址类型=2002
是否自动更新=1
软件名称=睿特检验包装
系统ID=2
登陆标题=sss
[窗口设置]
字体大小=12
design=1
skin=1

157
G01贸易生产计划/TradePackPlan.dproj.local Normal file
View File

@ -0,0 +1,157 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.478,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.644,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\Unit1.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.478,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_PictureUpload.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.255,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_PictureList.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.815,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.954,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.564,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_SysLogOrderzsd.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.377,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_OrderInPut.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.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.908,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\getpic.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.425,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.440,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_ProductOrderNewList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_TradePlanMgeList.dfm</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.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.763,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_SysLogOrder.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.625,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_ProductOrderListNew.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.568,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_MJSJFX.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.584,D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\TradePlan.dproj=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\TradePackPlan.dproj</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.397,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelpSel.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.586,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_TradePlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.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.222,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_TradePlanMgeList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.291,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
<File Path="cloud-messaging.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\TradePack"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
<File Path="..\A00通用窗体\U_ClothInfoSel.pas"/>
<File Path="..\A00通用窗体\U_ClothInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_CompanySel.pas"/>
<File Path="..\A00通用窗体\U_CompanySel.dfm"/>
<File Path="..\A00通用窗体\U_EmployeeSel.pas"/>
<File Path="..\A00通用窗体\U_EmployeeSel.dfm"/>
<File Path="..\A00通用窗体\U_LabelMapSet.pas"/>
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="..\A00通用窗体\U_PictureList.pas"/>
<File Path="..\A00通用窗体\U_PictureList.dfm"/>
<File Path="..\A00通用窗体\U_PictureUpload.pas"/>
<File Path="..\A00通用窗体\U_PictureUpload.dfm"/>
<File Path="..\G00贸易通用窗体"/>
<File Path="..\G00贸易通用窗体\U_TradeSalesContractSel.pas"/>
<File Path="..\G00贸易通用窗体\U_TradeSalesContractSel.dfm"/>
<File Path="D:\Dp10RepoV1"/>
<File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.dfm"/>
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
<File Path="..\..\..\public10\design\U_BaseHelp.dfm"/>
<File Path="..\..\..\public10\design\U_BaseInput.pas"/>
<File Path="..\..\..\public10\design\U_BaseInput.dfm"/>
<File Path="..\..\..\public10\design\U_BaseList.pas"/>
<File Path="..\..\..\public10\design\U_BaseList.dfm"/>
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Form"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.dfm"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.dfm"/>
<File Path="..\..\..\public10\ThreeFun\Fun"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<File Path="U_GetDllForm.pas"/>
<File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/>
<File Path="U_iniParam.pas"/>
<File Path="U_TradePlanList.pas"/>
<File Path="U_TradePlanList.dfm"/>
<File Path="U_TradeInspSet.pas"/>
<File Path="U_TradeInspSet.dfm"/>
<File Path="U_ProductOrderNewList.pas"/>
<File Path="U_ProductOrderNewList.dfm"/>
<File Path="U_OrderInPut.pas"/>
<File Path="U_OrderInPut.dfm"/>
<File Path="getpic.pas"/>
<File Path="getpic.dfm"/>
<File Path="U_SysLogOrder.pas"/>
<File Path="U_SysLogOrder.dfm"/>
<File Path="U_SysLogOrderzsd.pas"/>
<File Path="U_SysLogOrderzsd.dfm"/>
<File Path="U_MJSJFX.pas"/>
<File Path="U_MJSJFX.dfm"/>
<File Path="U_TradePlanMgeList.pas"/>
<File Path="U_TradePlanMgeList.dfm"/>
<File Path="U_TradePlanInPut.pas"/>
<File Path="U_TradePlanInPut.dfm"/>
</ProjectSortOrder>
</BorlandProject>

BIN
G01贸易生产计划/TradePackPlan.identcache Normal file
View File

Binary file not shown.

BIN
G01贸易生产计划/TradePackPlan.res Normal file
View File

Binary file not shown.

62
G01贸易生产计划/TradePackPlan.skincfg Normal file
View File

@ -0,0 +1,62 @@
[ExpressSkins]
Default=0
ShowNotifications=0
Enabled=1
dxSkinBasic=0
dxSkinBlack=0
dxSkinBlue=0
dxSkinBlueprint=0
dxSkinCaramel=0
dxSkinCoffee=0
dxSkinDarkroom=0
dxSkinDarkSide=0
dxSkinDevExpressDarkStyle=0
dxSkinDevExpressStyle=0
dxSkinFoggy=0
dxSkinGlassOceans=0
dxSkinHighContrast=0
dxSkiniMaginary=0
dxSkinLilian=0
dxSkinLiquidSky=0
dxSkinLondonLiquidSky=0
dxSkinMcSkin=0
dxSkinMetropolis=0
dxSkinMetropolisDark=0
dxSkinMoneyTwins=0
dxSkinOffice2007Black=0
dxSkinOffice2007Blue=0
dxSkinOffice2007Green=0
dxSkinOffice2007Pink=0
dxSkinOffice2007Silver=0
dxSkinOffice2010Black=0
dxSkinOffice2010Blue=0
dxSkinOffice2010Silver=0
dxSkinOffice2013DarkGray=0
dxSkinOffice2013LightGray=0
dxSkinOffice2013White=0
dxSkinOffice2016Colorful=0
dxSkinOffice2016Dark=0
dxSkinOffice2019Black=0
dxSkinOffice2019Colorful=0
dxSkinOffice2019DarkGray=0
dxSkinOffice2019White=0
dxSkinPumpkin=0
dxSkinSeven=0
dxSkinSevenClassic=0
dxSkinSharp=0
dxSkinSharpPlus=0
dxSkinSilver=0
dxSkinSpringtime=0
dxSkinStardust=0
dxSkinSummer2008=0
dxSkinTheAsphaltWorld=0
dxSkinTheBezier=0
dxSkinsDefaultPainters=1
dxSkinValentine=0
dxSkinVisualStudio2013Blue=0
dxSkinVisualStudio2013Dark=0
dxSkinVisualStudio2013Light=0
dxSkinVS2010=0
dxSkinWhiteprint=0
dxSkinWXI=1
dxSkinXmas2008Blue=0

148
G01贸易生产计划/TradePlan.dproj.local Normal file
View File

@ -0,0 +1,148 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.079,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\Unit1.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.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.586,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_TradePlanInPut.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.397,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelpSel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.558,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_SysLogOrderzsd.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.954,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.564,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.377,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_OrderInPut.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.908,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\getpic.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_TradePlanMgeList.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.425,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.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.625,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_ProductOrderListNew.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.568,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_MJSJFX.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.763,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_SysLogOrder.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.291,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.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.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.815,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_ProductOrderNewList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\U_TradePlanMgeList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\TradePack\G01贸易生产计划\Unit2.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>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
<File Path="cloud-messaging.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\TradePack"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
<File Path="..\A00通用窗体\U_ClothInfoSel.pas"/>
<File Path="..\A00通用窗体\U_ClothInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_CompanySel.pas"/>
<File Path="..\A00通用窗体\U_CompanySel.dfm"/>
<File Path="..\A00通用窗体\U_EmployeeSel.pas"/>
<File Path="..\A00通用窗体\U_EmployeeSel.dfm"/>
<File Path="..\A00通用窗体\U_LabelMapSet.pas"/>
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="..\G00贸易通用窗体"/>
<File Path="..\G00贸易通用窗体\U_TradeSalesContractSel.pas"/>
<File Path="..\G00贸易通用窗体\U_TradeSalesContractSel.dfm"/>
<File Path="D:\Dp10RepoV1"/>
<File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
<File Path="..\..\..\public10\design\U_BaseHelp.dfm"/>
<File Path="..\..\..\public10\design\U_BaseInput.pas"/>
<File Path="..\..\..\public10\design\U_BaseInput.dfm"/>
<File Path="..\..\..\public10\design\U_BaseList.pas"/>
<File Path="..\..\..\public10\design\U_BaseList.dfm"/>
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.dfm"/>
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Form"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.dfm"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.dfm"/>
<File Path="..\..\..\public10\ThreeFun\Fun"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/>
<File Path="U_GetDllForm.pas"/>
<File Path="U_iniParam.pas"/>
<File Path="U_TradePlanList.pas"/>
<File Path="U_TradePlanList.dfm"/>
<File Path="U_TradeInspSet.pas"/>
<File Path="U_TradeInspSet.dfm"/>
<File Path="U_ProductOrderNewList.pas"/>
<File Path="U_ProductOrderNewList.dfm"/>
<File Path="U_OrderInPut.pas"/>
<File Path="U_OrderInPut.dfm"/>
<File Path="getpic.pas"/>
<File Path="getpic.dfm"/>
<File Path="U_SysLogOrder.pas"/>
<File Path="U_SysLogOrder.dfm"/>
<File Path="U_SysLogOrderzsd.pas"/>
<File Path="U_SysLogOrderzsd.dfm"/>
<File Path="U_MJSJFX.pas"/>
<File Path="U_MJSJFX.dfm"/>
<File Path="U_TradePlanMgeList.pas"/>
<File Path="U_TradePlanMgeList.dfm"/>
<File Path="U_TradePlanInPut.pas"/>
<File Path="U_TradePlanInPut.dfm"/>
</ProjectSortOrder>
</BorlandProject>

BIN
G01贸易生产计划/TradePlan.identcache Normal file
View File

Binary file not shown.

BIN
G01贸易生产计划/TradePlan.res Normal file
View File

Binary file not shown.

62
G01贸易生产计划/TradePlan.skincfg Normal file
View File

@ -0,0 +1,62 @@
[ExpressSkins]
Default=0
ShowNotifications=0
Enabled=1
dxSkinBasic=0
dxSkinBlack=0
dxSkinBlue=0
dxSkinBlueprint=0
dxSkinCaramel=0
dxSkinCoffee=0
dxSkinDarkroom=0
dxSkinDarkSide=0
dxSkinDevExpressDarkStyle=0
dxSkinDevExpressStyle=0
dxSkinFoggy=0
dxSkinGlassOceans=0
dxSkinHighContrast=0
dxSkiniMaginary=0
dxSkinLilian=0
dxSkinLiquidSky=0
dxSkinLondonLiquidSky=0
dxSkinMcSkin=0
dxSkinMetropolis=0
dxSkinMetropolisDark=0
dxSkinMoneyTwins=0
dxSkinOffice2007Black=0
dxSkinOffice2007Blue=0
dxSkinOffice2007Green=0
dxSkinOffice2007Pink=0
dxSkinOffice2007Silver=0
dxSkinOffice2010Black=0
dxSkinOffice2010Blue=0
dxSkinOffice2010Silver=0
dxSkinOffice2013DarkGray=0
dxSkinOffice2013LightGray=0
dxSkinOffice2013White=0
dxSkinOffice2016Colorful=0
dxSkinOffice2016Dark=0
dxSkinOffice2019Black=0
dxSkinOffice2019Colorful=0
dxSkinOffice2019DarkGray=0
dxSkinOffice2019White=0
dxSkinPumpkin=0
dxSkinSeven=0
dxSkinSevenClassic=0
dxSkinSharp=0
dxSkinSharpPlus=0
dxSkinSilver=0
dxSkinSpringtime=0
dxSkinStardust=0
dxSkinSummer2008=0
dxSkinTheAsphaltWorld=0
dxSkinTheBezier=0
dxSkinsDefaultPainters=1
dxSkinValentine=0
dxSkinVisualStudio2013Blue=0
dxSkinVisualStudio2013Dark=0
dxSkinVisualStudio2013Light=0
dxSkinVS2010=0
dxSkinWhiteprint=0
dxSkinWXI=1
dxSkinXmas2008Blue=0

14166
G01贸易生产计划/U_DataLink.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

116
G01贸易生产计划/U_DataLink.pas Normal file
View File

@ -0,0 +1,116 @@
unit U_DataLink;
interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList,U_BaseDataLink,
dxCore, cxLocalization, dxLayoutLookAndFeels, cxImageList, cxGraphics, cxEdit,
cxContainer, dxSkinsForm, dxSkinsCore, dxSkinsDefaultPainters;
type
TMyThread = class(TThread)
protected
procedure Execute; override;
end;
var
DConString: string; {全局连接字符串}
server, dtbase, user, pswd: string; {数据库连接参数}
DCurHandle: hwnd; //当前窗体句柄
DName: string; //#用户名#//
DCode: string; //#用户编号#//
Ddatabase: string; //#数据库名称#//
DTitCaption: string; //#主窗体名称#//
PicSvr: string;
fDllFileName: string;
DParameters1, DParameters2, DParameters3, DParameters4, DParameters5: string; // 外部参数；
DParameters6, DParameters7, DParameters8, DParameters9, DParameters10: string; //外部参数；
OldDllApp: Tapplication; //保存原有句柄
NewDllApp: Tapplication; //当前句柄
MainApplication: Tapplication;
DFormCode: integer; //当前窗口号
IsDelphiLanguage: integer;
DServerDate: TdateTime; //服务器时间
DCompany: string; //公司
IpCall: Integer;
IpWLDZStr: string;
UserDataFlag: string;
type
TDataLink_TradePlan = class(TBaseDataLink)
AdoDataLink: TADOQuery;
ADOLink: TADOConnection;
ThreeImgList: TImageList;
Timer_link: TTimer;
ImageList_new32: TImageList;
procedure DataModuleDestroy(Sender: TObject);
procedure Timer_linkTimer(Sender: TObject);
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TMakebar = procedure(ucData: pchar; nDataLen: integer; nErrLevel: integer; nMask: integer; nBarEdition: integer; szBmpFileName: pchar; nScale: integer); stdcall;
TMixtext = procedure(szSrcBmpFileName: PChar; szDstBmpFileName: PChar; sztext: PChar; fontsize, txtheight, hmargin, vmargin, txtcntoneline: integer); stdcall;
var
DataLink_TradePlan: TDataLink_TradePlan;
CriticalSection: TCriticalSection; {声明临界}
implementation
{$R *.dfm}
procedure TMyThread.Execute;
begin
FreeOnTerminate := True;
CriticalSection.Enter;
try
with DataLink_TradePlan.AdoDataLink do
begin
close;
sql.Clear;
sql.Add('select getdate()');
open;
end;
except
try
with DataLink_TradePlan.ADOLink do
begin
Connected := false;
ConnectionString := DConString;
LoginPrompt := false;
Connected := true;
end;
except
end;
end;
CriticalSection.Leave;
end;
procedure TDataLink_TradePlan.DataModuleDestroy(Sender: TObject);
begin
CriticalSection.Free;
DataLink_TradePlan := nil;
end;
procedure TDataLink_TradePlan.Timer_linkTimer(Sender: TObject);
begin
TMyThread.Create(False);
end;
procedure TDataLink_TradePlan.DataModuleCreate(Sender: TObject);
begin
inherited;
CriticalSection := TCriticalSection.Create;
end;
end.

239
G01贸易生产计划/U_GetDllForm.pas Normal file
View File

@ -0,0 +1,239 @@
unit U_GetDllForm;
interface
uses
Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, dxCore, cxGridDBTableView,
ActiveX, IniFiles;
function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; export; stdcall;
function ConnData(): Boolean;
//function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
implementation
uses
U_DataLink, U_iniParam,U_globalVar, U_TradePlanList,U_TradePlanMgeList,U_FormLayOutDesign;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
// 参数说明：App>>调用应用程序； //
// FormH>>调用窗口句柄 ； //
// FormID>>窗口号; //
// Language>>语言种类; //
// WinStyle>>窗口类型； //
/////////////////////////////////////////////////////////////////
function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd;
var
i: Integer;
bFound: Boolean;
mnewHandle: hwnd;
mstyle: TFormStyle; // 0:子窗口; 1：普通窗口
mstate: TWindowState;
mborderstyle: TFormBorderStyle;
begin
mnewHandle := 0;
DName := PChar(GName);
DCode := PChar(GCode);
DdataBase := DataBase;
DTitCaption := Title;
DParameters1 := Parameters1;
DParameters2 := Parameters2;
DParameters3 := Parameters3;
DParameters4 := Parameters4;
DParameters5 := Parameters5;
DParameters6 := Parameters6;
DParameters7 := Parameters7;
DParameters8 := Parameters8;
DParameters9 := Parameters9;
DParameters10 := Parameters10;
SetLength(fDllFileName, 255);
GetModuleFileName(HInstance, PChar(fDllFileName), Length(fDllFileName));
fDllFileName := ExtractFileName(PChar(fDllFileName));
MainApplication := App;
DCurHandle := FormH;
IsDelphiLanguage := Language;
gDllFileName:=fDllFileName;
gDllFileCaption:='打卷店包装生产指示单';
Application := TApplication(App);
DCurHandle := 0;
//赋值链接字符串
SetLength(server, 255);
SetLength(dtbase, 255);
SetLength(user, 255);
SetLength(pswd, 255);
if trim(DataBaseStr) = '' then
begin
server := '101.132.143.144,7781';
dtbase := 'bahongdata';
// dtbase := 'sanhaojydata';
user := 'rtsa';
pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '管理';
// dname:='ADMIN'
end
else
begin
DConString := DataBaseStr;
end;
if not ConnData() then
begin
result := 0;
exit;
end;
if IsINIFile() then
ReadINIFile()
else
WriteINIFile;
GetsysParam(DataLink_TradePlan.AdoDataLink,DataLink_TradePlan.ThreeColorBase,'', '');
// 定义窗口类型 、状态
if WinStyle = 0 then
begin
mstyle := fsMDIChild;
mstate := wsMaximized;
mborderstyle := bsSizeable;
end
else
begin
mstyle := fsNormal;
mstate := wsNormal;
mborderstyle := bsSizeable;
end;
bFound := False;
if FormID <> 10000 then
begin
for i := 0 to Application.MainForm.MDIChildCount - 1 do
begin
if Application.MainForm.MDIChildren[i].Caption = Title then
begin
mnewHandle := Application.MainForm.MDIChildren[i].Handle;
Application.MainForm.MDIChildren[i].BringToFront;
bFound := True;
Result := mnewHandle;
exit;
end;
end;
end;
/////////////////////
//调用子模块窗口
case FormID of
1: //生产计划单
begin
// Parameters10:='新增';
with TfrmTradePlanMgeList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),FormID) do //
begin
fFormID := FormID;
// FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
// 111: //生产计划单
// begin
// with TfrmTradePlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),FormID) do //
// begin
// fFormID := FormID;
// FormStyle := mstyle;
// WindowState := mstate;
// BorderStyle := mborderstyle;
// mnewHandle := Handle;
// end;
// end;
10000:
begin
for i := 0 to application.MainForm.MDIChildCount - 1 do
begin
if application.MainForm.MDIChildren[i].Caption = Title then
begin
application.MainForm.MDIChildren[i].Close;
end;
end;
end;
end;
Result := mnewHandle;
end;
//function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
//begin
// result := true;
// //////////////////////////////
//// shortDateFormat := 'yyyy-MM-dd';
// //服务器日期
// with DataLink_TradePlan.AdoDataLink do
// begin
// close;
// sql.Clear;
// sql.Add('select getDate()as dt');
// open;
// DServerDate := fieldByName('dt').AsDatetime;
// end;
// gFontSize:= getSystemFontSize(DataLink_TradePlan.AdoDataLink,PWideChar('01'));
// InitStyleData(DataLink_TradePlan,gFontSize);
// result := true;
//end;
//===========================================================
//建立数据库连接池
//===========================================================
function ConnData(): Boolean;
var
IniFile: TIniFile;
begin
try
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'SYSTEMSET.INI');
PicSvr := IniFile.ReadString('SERVER', '服务器地址', '127.0.0.1');
UserDataFlag := IniFile.ReadString('SERVER', '服务器地址类型', '-1');
finally
IniFile.Free;
end;
if not Assigned(DataLink_TradePlan) then
DataLink_TradePlan := TDataLink_TradePlan.Create(Application);
try
with DataLink_TradePlan.ADOLink do
begin
if not Connected then
begin
Connected := false;
ConnectionString := DConString;
LoginPrompt := false;
Connected := true;
end;
end;
Result := true;
except
Result := false;
application.MessageBox('数据库连接失败！', '错误', mb_Ok + MB_ICONERROR);
end;
end;
initialization
CoInitialize(nil);
dxUnitsLoader.Initialize;
finalization
DataLink_TradePlan.Free;
application := NewDllApp;
dxUnitsLoader.Finalize;
end.

361
G01贸易生产计划/U_KUANNOInfoImport.dfm Normal file
View File

@ -0,0 +1,361 @@
inherited frmClothInfoImport: TfrmClothInfoImport
Left = 189
Top = 138
Caption = #26679#21697#23548#20837
ClientHeight = 562
ClientWidth = 1484
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter
ExplicitWidth = 1500
ExplicitHeight = 601
PixelsPerInch = 107
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1484
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton5: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36873#25321#25991#20214
ImageIndex = 12
OnClick = ToolButton5Click
end
object ToolButton3: TToolButton
Left = 174
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 14
OnClick = ToolButton3Click
end
object ToolButton2: TToolButton
Left = 245
Top = 0
AutoSize = True
Caption = #20445#23384#25968#25454
ImageIndex = 16
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 348
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 451
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid [1]
Left = 0
Top = 30
Width = 1484
Height = 532
Align = alClient
TabOrder = 1
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 60
object v1CYNo: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 116
end
object Tv1Column19: TcxGridDBColumn
Caption = #21152#24037#21035
DataBinding.FieldName = 'CraftCode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 107
end
object v1Column9: TcxGridDBColumn
Caption = #20013#25991#21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 119
end
object Tv1Column11: TcxGridDBColumn
Caption = #33521#25991#21697#21517
DataBinding.FieldName = 'C_EName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 113
end
object v1Column3: TcxGridDBColumn
Caption = #26377#25928#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 97
end
object v1Column1: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1Column2: TcxGridDBColumn
Caption = #20013#25991#25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 97
end
object Tv1Column21: TcxGridDBColumn
Caption = #33521#25991#25104#20998
DataBinding.FieldName = 'C_EComposition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 149
end
object Tv1Column1: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 94
end
object Tv1Column3: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 76
end
object Tv1Column5: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 105
end
object Tv1Column4: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'CINote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column6: TcxGridDBColumn
Caption = #32433#32447#24418#24577
DataBinding.FieldName = 'C_YarnSpec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 140
end
object Tv1Column7: TcxGridDBColumn
Caption = #21518#25972#29702#33521#25991
DataBinding.FieldName = 'CraftEName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 96
end
object Tv1Column8: TcxGridDBColumn
Caption = #21518#25972#29702#20013#25991
DataBinding.FieldName = 'CraftName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 130
end
object Tv1Column22: TcxGridDBColumn
Caption = #26426#22411
DataBinding.FieldName = 'LoomType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
end
object Tv1Column9: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'FtyName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 94
end
object Tv1Column10: TcxGridDBColumn
Caption = #20379#24212#21830#20195#21495
DataBinding.FieldName = 'FtyNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 200
end
object Tv1Column12: TcxGridDBColumn
Caption = #20379#24212#21830#25253#20215
DataBinding.FieldName = 'FtyPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 122
end
object Tv1Column13: TcxGridDBColumn
Caption = #24405#20837#26102#38388
DataBinding.FieldName = 'FILLTIME'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 89
end
object Tv1Column14: TcxGridDBColumn
Caption = #24405#20837#20154
DataBinding.FieldName = 'filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 97
end
object Tv1Column15: TcxGridDBColumn
Caption = #24067#31181
DataBinding.FieldName = 'GC_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
object Tv1Column20: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'FtyPCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 97
end
object Tv1Column16: TcxGridDBColumn
Caption = #24320#21457#20154#21592
DataBinding.FieldName = 'Developer'
DataBinding.IsNullValueType = True
Width = 81
end
object Tv1Column17: TcxGridDBColumn
Caption = #23454#27979#36879#28287
DataBinding.FieldName = 'Test_Soggy'
DataBinding.IsNullValueType = True
Width = 83
end
object Tv1Column18: TcxGridDBColumn
Caption = #23454#27979#27700#21387
DataBinding.FieldName = 'Test_WaterPressure'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_ClothInfo.ADOLink
Left = 121
Top = 160
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_ClothInfo.ADOLink
Left = 249
Top = 161
end
inherited ImageList_new32: TImageList
Left = 528
Top = 144
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 853
Top = 201
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ClothInfo.ADOLink
Parameters = <>
Left = 941
Top = 209
end
object ADOQueryMain: TADOQuery
Connection = DataLink_ClothInfo.ADOLink
Parameters = <>
Left = 741
Top = 209
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 648
Top = 328
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 795
Top = 323
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 720
Top = 328
end
object cxStyleRepository1: TcxStyleRepository
Left = 600
Top = 200
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svTextColor]
TextColor = clRed
end
end
object OpenDialog1: TOpenDialog
Left = 226
Top = 290
end
object CDS_LM: TClientDataSet
Aggregates = <>
Params = <>
Left = 560
Top = 328
end
end

297
G01贸易生产计划/U_KUANNOInfoImport.pas Normal file
View File

@ -0,0 +1,297 @@
unit U_KUANNOInfoImport;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, cxPC, U_BaseHelp, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, ComObj, U_BaseList, System.ImageList,
Vcl.ImgList, dxScrollbarAnnotations;
type
TfrmClothInfoImport = class(TfrmBaseHelp)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
GPM_1: TcxGridPopupMenu;
DS_1: TDataSource;
CDS_1: TClientDataSet;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
OpenDialog1: TOpenDialog;
ToolButton5: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1CYNo: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
CDS_LM: TClientDataSet;
ToolButton3: TToolButton;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
public
{ Public declarations }
FCTID: string;
end;
var
frmClothInfoImport: TfrmClothInfoImport;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmClothInfoImport.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add(' select * from Bs_Cloth_Info where 2= 1 ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmClothInfoImport.FormDestroy(Sender: TObject);
begin
inherited;
frmClothInfoImport := nil;
end;
procedure TfrmClothInfoImport.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := cafree;
end;
procedure TfrmClothInfoImport.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmClothInfoImport.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(self.Caption, Tv1, '样品管理');
with CDS_LM do
begin
FieldDefs.Clear;
FieldDefs.Add('LXH', ftInteger, 0);
FieldDefs.Add('lCode', ftString, 40);
FieldDefs.Add('LName', ftString, 40);
close;
CreateDataSet;
end;
InitGrid();
end;
procedure TfrmClothInfoImport.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmClothInfoImport.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid(self.Caption, Tv1, '样品管理');
end;
procedure TfrmClothInfoImport.ToolButton2Click(Sender: TObject);
begin
try
ADOQueryCmd.Connection.BeginTrans;
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not eof do
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select top 1 * from Bs_Cloth_Info where C_Code=' + quotedstr(Trim(CDS_1.fieldbyname('C_Code').AsString)));
open;
end;
if not ADOQueryCmd.IsEmpty then
raise Exception.Create(PChar('编号：' + Trim(ADOQueryCmd.fieldbyname('C_Code').AsString) + ' 重复！'));
with ADOQueryCmd do
begin
Append;
FieldByName('Fillid').Value := Trim(Dcode);
FieldByName('Filler').Value := Trim(DName);
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Cloth_Info', 0);
FieldByName('BCIID').Value := Trim(CDS_1.fieldbyname('C_Code').AsString);
FieldByName('CTID').Value := FCTID;
Post;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
CDS_1.EnableControls;
except
CDS_1.EnableControls;
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message + '编号' + Trim(CDS_1.fieldbyname('C_Code').AsString)), '提示信息', 0);
end;
end;
procedure TfrmClothInfoImport.ToolButton3Click(Sender: TObject);
begin
CDS_1.Delete;
end;
procedure TfrmClothInfoImport.ToolButton5Click(Sender: TObject);
var
excelApp, WorkBook: Variant;
i, j, k, LX, ExcelRowCount: integer;
maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
begin
try
excelApp := CreateOleObject('Excel.Application');
openDialog1.Filter := '*.CSV;*.xls';
if opendialog1.Execute then
begin
WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName);
end
else
exit;
excelApp.Visible := false;
ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
except
application.MessageBox('加载EXCEL错误！', '错误信息', MB_ICONERROR);
exit;
end;
CDS_LM.EmptyDataSet;
for j := 0 to Tv1.ColumnCount - 1 do
begin
with CDS_LM do
begin
Append;
FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName);
FieldByName('LName').Value := trim(Tv1.Columns[j].Caption);
Post;
end;
end;
try
for i := 1 to 50 do
begin
if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then
continue;
if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then
begin
with CDS_LM do
begin
Edit;
FieldByName('LXH').Value := i;
Post;
end;
end;
end;
except
application.MessageBox('加载数组错误！', '错误信息', MB_ICONERROR);
exit;
end;
try
for i := 2 to ExcelRowCount do
begin
with CDS_1 do
begin
Append;
CDS_LM.First;
while not CDS_LM.Eof do
begin
if CDS_LM.FieldByName('LXH').AsInteger > 0 then
CDS_1.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value;
CDS_LM.Next;
end;
Post;
end;
end;
WorkBook.Close;
excelApp.Quit;
excelApp := Unassigned;
WorkBook := Unassigned;
except
WorkBook.Close;
excelApp.Quit;
excelApp := Unassigned;
WorkBook := Unassigned;
application.MessageBox('写入数据异常，导入中断！', '错误信息', MB_ICONERROR);
exit;
end;
end;
end.

313
G01贸易生产计划/U_LabelAdd.dfm Normal file
View File

@ -0,0 +1,313 @@
object frmLabelAdd: TfrmLabelAdd
Left = 443
Top = 146
BorderIcons = [biMaximize]
Caption = #26631#31614#32534#36753
ClientHeight = 539
ClientWidth = 1011
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 28
Width = 413
Height = 513
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object Label2: TLabel
Left = 31
Top = 21
Width = 60
Height = 12
Caption = #26631#31614#25991#20214#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 31
Top = 95
Width = 60
Height = 12
Caption = #22791' '#27880#65306
end
object Label9: TLabel
Left = 31
Top = 71
Width = 60
Height = 12
Caption = #26631#31614#21517#31216#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 31
Top = 47
Width = 60
Height = 12
Caption = #26631#31614#31867#22411#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object LabelFileName: TBtnEditA
Left = 92
Top = 17
Width = 260
Height = 20
ReadOnly = True
TabOrder = 0
OnBtnClick = LabelFileNameBtnClick
end
object beizhu: TMemo
Left = 92
Top = 92
Width = 257
Height = 149
ScrollBars = ssBoth
TabOrder = 3
end
object LabelCaption: TEdit
Left = 92
Top = 67
Width = 258
Height = 20
ReadOnly = True
TabOrder = 2
end
object LabelType: TRTComboBox
Tag = 99
Left = 92
Top = 43
Width = 260
Height = 20
Style = csDropDownList
ItemIndex = 0
TabOrder = 1
Text = #20013#25991#26631#31614
Items.Strings = (
#20013#25991#26631#31614
#33521#25991#26631#31614
#20013#33521#25991#26631#31614)
end
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1011
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar2'
Color = clBtnFace
Images = DataLink_TradePlan.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
Transparent = False
object Tsave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384#26631#31614
ImageIndex = 4
OnClick = TsaveClick
end
object Tclose: TToolButton
Left = 95
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TcloseClick
end
end
object RMPreview1: TRMPreview
Left = 458
Top = 38
Width = 553
Height = 501
Align = alRight
BevelOuter = bvLowered
Caption = #26631#31614#39044#35272
TabOrder = 1
OnDblClick = RMPreview1DblClick
Options.RulerUnit = rmutScreenPixels
Options.RulerVisible = False
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
CommandTimeout = 300
Parameters = <>
Left = 528
Top = 228
end
object OpenDialog1: TOpenDialog
Filter = 'RMFl(*.rmf)|*.rmf'
InitialDir = '.'
Left = 200
Top = 4
end
object RMGridReport1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
ShowProgress = False
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
Preview = RMPreview1
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 360
Top = 8
ReportData = {}
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
CommandTimeout = 300
Parameters = <>
Left = 528
Top = 184
end
object RMGridReportDesigner1: TRMGridReportDesigner
Left = 432
Top = 8
end
object RMBarCodeObject1: TRMBarCodeObject
Left = 280
Top = 4
end
object RMBMPExport1: TRMBMPExport
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
ExportToOneFile = False
Left = 496
Top = 8
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 10
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 576
Top = 8
end
object RMDS_Main: TRMDBDataSet
Visible = True
AliasName = #26631#31614#25968#25454
Left = 458
Top = 144
end
object RMDataDictionary1: TRMDataDictionary
FieldFieldNames.TableName = 'TableName'
FieldFieldNames.FieldName = 'FieldName'
FieldFieldNames.FieldAlias = 'FieldAlias'
Left = 562
Top = 72
end
object ADOQuery1: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 352
Top = 480
end
object RMGridReport2: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
ShowProgress = False
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDS_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 432
Top = 368
ReportData = {}
end
object ADOQueryCmdSC: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 296
Top = 304
object ADOQueryCmdFileContent: TBlobField
FieldName = 'Files'
end
object ADOQueryCmdFtFileName: TStringField
FieldName = 'FileName'
Size = 40
end
object ADOQueryCmdFileEditDate: TDateTimeField
FieldName = 'FileEditDate'
end
object ADOQueryCmdFileSize: TFloatField
FieldName = 'FileSize'
end
object ADOQueryCmdFiller: TStringField
FieldName = 'Filler'
end
object ADOQueryCmdLastEditTime: TDateTimeField
FieldName = 'LastEditTime'
end
object ADOQueryCmdLastEditer: TStringField
FieldName = 'LastEditer'
end
object ADOQueryCmdFileCreateDate: TDateTimeField
FieldName = 'FileCreateDate'
end
object ADOQueryCmdchildPath: TStringField
FieldName = 'FilePath'
end
object ADOQueryCmdFileType: TStringField
FieldName = 'FileType'
end
end
end

465
G01贸易生产计划/U_LabelAdd.pas Normal file
View File

@ -0,0 +1,465 @@
unit U_LabelAdd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, ExtCtrls, DB, ADODB, RM_System,
RM_Common, RM_Class, RM_GridReport, Buttons, RTComboBox, RM_Preview, RM_e_Xls,
RM_e_Graphic, RM_e_bmp, RM_BarCode, RM_DsgGridReport, RM_Dataset, cxStyles,
cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid;
type
TfrmLabelAdd = class(TForm)
Panel1: TPanel;
Label2: TLabel;
Label3: TLabel;
LabelFileName: TBtnEditA;
beizhu: TMemo;
ToolBar1: TToolBar;
Tsave: TToolButton;
Tclose: TToolButton;
ADOQueryCmd: TADOQuery;
OpenDialog1: TOpenDialog;
RMGridReport1: TRMGridReport;
Label9: TLabel;
LabelCaption: TEdit;
Label10: TLabel;
LabelType: TRTComboBox;
ADOQueryTmp: TADOQuery;
RMPreview1: TRMPreview;
RMGridReportDesigner1: TRMGridReportDesigner;
RMBarCodeObject1: TRMBarCodeObject;
RMBMPExport1: TRMBMPExport;
RMXLSExport1: TRMXLSExport;
RMDS_Main: TRMDBDataSet;
RMDataDictionary1: TRMDataDictionary;
ADOQuery1: TADOQuery;
RMGridReport2: TRMGridReport;
ADOQueryCmdSC: TADOQuery;
ADOQueryCmdFileContent: TBlobField;
ADOQueryCmdFtFileName: TStringField;
ADOQueryCmdFileEditDate: TDateTimeField;
ADOQueryCmdFileSize: TFloatField;
ADOQueryCmdFiller: TStringField;
ADOQueryCmdLastEditTime: TDateTimeField;
ADOQueryCmdLastEditer: TStringField;
ADOQueryCmdFileCreateDate: TDateTimeField;
ADOQueryCmdchildPath: TStringField;
ADOQueryCmdFileType: TStringField;
procedure TcloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TsaveClick(Sender: TObject);
procedure LabelFileNameBtnClick(Sender: TObject);
procedure BtOpenClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure RMPreview1DblClick(Sender: TObject);
private
fIsChg: Boolean;
function SaveData(): Boolean;
function EditData(): Boolean;
procedure InitWinData();
procedure InitVarDictionary();
procedure InitDataSetDictionary();
function PostFileToData(): boolean;
procedure GetFileInfo(mFile: string; var mfileSize: integer; var CreationTime: tdatetime; var WriteTime: tdatetime);
function CovFileDate(Fd: _FileTime): TDateTime;
public
fcustomNo: string;
fKeyNo: string;
fWinStatus: integer;
end;
var
frmLabelAdd: TfrmLabelAdd;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmLabelAdd.TcloseClick(Sender: TObject);
begin
if fIsChg then
begin
if application.MessageBox('标签设计过，是否要保存?', '提示信息', 1) = 1 then
begin
Tsave.Click;
end
else
close;
end
else
close;
end;
procedure TfrmLabelAdd.FormCreate(Sender: TObject);
begin
panel1.Align := alClient;
fIsChg := false;
// ClearWinData(panel1);
// InitVarDictionary();
end;
procedure TfrmLabelAdd.TsaveClick(Sender: TObject);
begin
if trim(labelCaption.Text) = '' then
begin
application.MessageBox('标签名称不能为空！', '提示');
labelCaption.SetFocus;
exit;
end;
if trim(LabelFileName.Text) = '' then
begin
application.MessageBox('标签文件不能为空，请选择标签！', '提示');
LabelFileName.SetFocus;
exit;
end;
PostFileToData();
if fWinStatus = 0 then
begin
if SaveData() then
begin
ModalResult := 1;
end;
end
else
begin
if EditData() then
begin
ModalResult := 1;
end;
end;
end;
function TfrmLabelAdd.PostFileToData(): boolean;
var
mFileName, fFileName, fpathFileName: string;
Stream: TMemoryStream;
mfileSize: integer;
mCreationTime: TdateTime;
mWriteTime: TdateTime;
begin
result := false;
fFileName := Trim(LabelCaption.Text) + '.rmf';
fpathFileName := Trim(LabelFileName.Text);
try
ADOQueryCmdSC.Connection.BeginTrans;
try
with ADOQueryCmdSC do
begin
close;
sql.Clear;
sql.Add('delete from RT_FileUpdate');
sql.Add('where FileName=' + quotedStr(trim(fFileName)));
execsql;
end;
with ADOQueryCmdSC do
begin
close;
sql.Clear;
sql.Add('select * from RT_FileUpdate');
sql.Add('where FileName=' + quotedStr(trim(fFileName)));
Open;
//////////////////////////
//获取文件信息
GetFileInfo(Trim(fpathFileName), mfileSize, mCreationTime, mWriteTime);
if RecordCount <= 0 then
begin
Append;
fieldByName('FileName').AsString := trim(fFileName);
end
else
begin
edit;
end;
fieldByName('FileEditDate').Value := mWriteTime;
fieldByName('FileCreateDate').Value := mCreationTime;
fieldByName('FileSize').Value := mfileSize;
fieldByName('Filler').Value := Dname;
fieldByName('LastEditer').Value := Dname;
fieldByName('LastEditTime').Value := SGetServerDateTime(ADOQueryTmp);
// if pos('.rmf',fFileName)>0 then
begin
fieldByName('FilePath').Value := 'report';
fieldByName('FileType').Value := '公用';
end;
// else if pos('.dll',fFileName)>0 then
// begin
// fieldByName('FilePath').Value :='';
// fieldByName('FileType').Value :='一般';
// end
// else
// begin
// fieldByName('FilePath').Value :='';
// fieldByName('FileType').Value :='公用';
// end;
//将OLE数据存入数据库
ADOQueryCmdFileContent.LoadFromFile(fpathFileName);
//ADOQueryCmdFileContent.LoadFromStream(Stream);
post;
end;
finally
end;
result := true;
ADOQueryCmdSC.Connection.CommitTrans;
except
ADOQueryCmdSC.Connection.RollbackTrans;
Result := False;
application.MessageBox(pchar('提交文件[' + trim(fFileName) + ']失败!'), '提示信息', MB_ICONERROR);
end;
end;
procedure TfrmLabelAdd.GetFileInfo(mFile: string; var mfileSize: integer; var CreationTime: tdatetime; var WriteTime: tdatetime);
var
vSearchRec: TSearchRec;
begin
FindFirst(mFile, faAnyFile, vSearchRec);
mfileSize := vSearchRec.Size;
CreationTime := CovFileDate(vSearchRec.FindData.ftCreationTime); //创建时间
//vSearchRec.FindData.ftLastAccessTime//访问时间
WriteTime := CovFileDate(vSearchRec.FindData.ftLastWriteTime); //修改时间
FindClose(vSearchRec);
end;
function TfrmLabelAdd.CovFileDate(Fd: _FileTime): TDateTime;
var
Tct: _SystemTime;
Temp: _FileTime;
begin
FileTimeToLocalFileTime(Fd, Temp);
FileTimeToSystemTime(Temp, Tct);
CovFileDate := SystemTimeToDateTime(Tct);
end;
/////////////////////////////////////////////////////////////////////
//函数功能：保存数据
/////////////////////////////////////////////////////////////////////
function TfrmLabelAdd.SaveData(): Boolean;
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from P_Label');
sql.Add('where 1<>1');
Open;
Append;
fieldByName('filler').value := DName;
fieldByName('filltime').value := DServerDate;
fieldByName('beizhu').value := trim(beizhu.text);
fieldByName('LabelCaption').value := trim(LabelCaption.text);
fieldByName('LabelType').value := trim(LabelType.text);
fieldByName('LabelFileName').value := trim(LabelFileName.text);
//TBlobField(FieldByName('LabelFile')).LoadFromStream(fStream);
RMGridReport1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
Post;
end;
with ADOQueryTmp do
begin
Close;
sql.Clear;
sql.Add('select * from P_Label where LabelCaption=''' + Trim(LabelCaption.text) + '''');
Open;
end;
if ADOQueryTmp.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('标签名称重复!', '提示', 0);
Exit;
end;
ADOQueryCmd.Connection.CommitTrans;
result := true;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := false;
application.MessageBox('保存标签模板出错!', '警告信息', 0);
end;
end;
/////////////////////////////////////////////////////////////////////
//函数功能：保存数据
/////////////////////////////////////////////////////////////////////
function TfrmLabelAdd.EditData(): Boolean;
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from P_Label');
sql.Add('where labelId=' + fkeyNo);
Open;
Edit;
fieldByName('LabelCaption').value := trim(LabelCaption.text);
fieldByName('LabelType').value := trim(LabelType.text);
fieldByName('LabelFileName').value := trim(LabelFileName.text);
RMGridReport1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
fieldByName('Editer').value := DName;
fieldByName('EditTime').value := DServerDate;
fieldByName('beizhu').value := trim(beizhu.text);
Post;
end;
with ADOQueryTmp do
begin
Close;
sql.Clear;
sql.Add('select * from P_Label where LabelCaption=''' + Trim(LabelCaption.text) + '''');
Open;
end;
if ADOQueryTmp.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('标签名称重复!', '提示', 0);
Exit;
end;
ADOQueryCmd.Connection.CommitTrans;
result := true;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := false;
application.MessageBox('保存标签模板出错!', '警告信息', 0);
end;
end;
procedure TfrmLabelAdd.LabelFileNameBtnClick(Sender: TObject);
var
str: string;
begin
if OpenDialog1.Execute() then
begin
LabelFileName.Text := OpenDialog1.FileName;
str := Trim(ExtractFileName(OpenDialog1.FileName));
LabelCaption.Text := copy(str, 0, Length(str) - 4);
RMGridReport1.LoadFromFile(LabelFileName.Text);
RMGridReport1.Preview := RMPreview1;
RMGridReport1.ShowReport;
end;
end;
procedure TfrmLabelAdd.BtOpenClick(Sender: TObject);
begin
end;
////////////////////////////////////////////////////////////
//初始化窗口数据
////////////////////////////////////////////////////////////
procedure TfrmLabelAdd.InitWinData();
begin
try
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select A.*');
// sql.Add('customNoName=isnull((select customName from BC_customer where customNO=A.customNo),A.customNo)');
sql.Add('from P_Label A');
sql.Add('WHERE LabelId=' + fkeyNo);
Open;
if isEmpty then
begin
close;
exit;
end;
SSetWinData(ADOQueryTmp, panel1);
RMGridReport1.LoadFromBlobField(tblobfield(fieldbyname('labelFile')));
RMGridReport2.FileName := trim(fieldByName('labelFileName').AsString);
RMGridReport2.LoadFromBlobField(tblobfield(fieldbyname('labelFile')));
RMGridReport1.Preview := RMPreview1;
//RMGridReport1.PrepareReport;
RMGridReport1.ShowReport;
end;
except
end;
end;
procedure TfrmLabelAdd.FormShow(Sender: TObject);
begin
if fWinStatus > 0 then
InitWinData();
end;
procedure TfrmLabelAdd.RMPreview1DblClick(Sender: TObject);
begin
//btOpen.Click ;
end;
////////////////////////////////////////////////////////////
//
////////////////////////////////////////////////////////////
procedure TfrmLabelAdd.InitVarDictionary();
var
i: integer;
begin
{ try
with RMGridReport2 do
begin
Dictionary.Variables.Clear ;
Dictionary.Variables.AddCategory('客户单位信息');
with ADOQueryTmp do
begin
close;
sql.clear;
sql.Add('exec P_Label_CustPrintData');
sql.Add(quotedStr(fCustomNo));
Open;
for i:=0 to FieldCount-1 do
begin
Dictionary.Variables.Add(trim(fields[i].FieldName)
,'');
Dictionary.Variables.AsString[trim(fields[i].FieldName)]:=trim(fields[i].AsString);
end;
end;
end;
finally
end; }
end;
/////////////////////////////////////////////////
//
/////////////////////////////////////////////////
procedure TfrmLabelAdd.InitDataSetDictionary();
begin
{ with ADOQuery1 do
begin
close;
sql.Clear ;
sql.Add('exec P_Label_PrintSet');
sql.Add(quotedStr(''));
//sql.Add(','+quotedStr(''));
//sql.Add(','+quotedStr(''));
//sql.Add(','+quotedStr(''));
//sql.Add(','+quotedStr(''));
OPen;
end;
with RMGridReport2 do
begin
Dictionary.FieldAliases.Clear;
Dictionary.FieldAliases['RMDS_Main']:= '标签数据';
Dictionary.FieldAliases['RMDS_Main."barcode"']:='标签条码';
end; }
end;
end.

151
G01贸易生产计划/U_LabelInput.dfm Normal file
View File

@ -0,0 +1,151 @@
object frmLabelInput: TfrmLabelInput
Left = 443
Top = 146
BorderIcons = [biMaximize]
Caption = #26631#31614#32534#36753
ClientHeight = 312
ClientWidth = 445
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #24494#36719#38597#40657
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 17
object Panel1: TPanel
Left = 0
Top = 30
Width = 445
Height = 282
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Label3: TLabel
Left = 26
Top = 68
Width = 52
Height = 17
Caption = #22791' '#27880#65306
end
object Label9: TLabel
Left = 26
Top = 39
Width = 60
Height = 17
Caption = #26631#31614#21517#31216#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 26
Top = 15
Width = 60
Height = 17
Caption = #26631#31614#31867#22411#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object note: TMemo
Tag = 1
Left = 84
Top = 69
Width = 257
Height = 149
ScrollBars = ssBoth
TabOrder = 0
end
object LabelType: TcxComboBox
Tag = 1
Left = 92
Top = 6
ParentFont = False
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
#20013#25991#26631#31614
#33521#25991#26631#31614
#20013#33521#25991#26631#31614)
TabOrder = 1
Width = 257
end
object LabelCaption: TcxButtonEdit
Tag = 1
Left = 92
Top = 34
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = LabelCaptionPropertiesButtonClick
TabOrder = 2
Width = 257
end
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 445
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar2'
Color = clBtnFace
Images = DataLink_TradePlan.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
Transparent = False
object Tsave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384#26631#31614
ImageIndex = 37
OnClick = TsaveClick
end
object Tclose: TToolButton
Left = 87
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TcloseClick
end
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
CommandTimeout = 300
Parameters = <>
Left = 32
Top = 180
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
CommandTimeout = 300
Parameters = <>
Left = 32
Top = 120
end
object OpenDialog1: TOpenDialog
Filter = 'Text files |*.rmf'
Left = 360
Top = 102
end
end

192
G01贸易生产计划/U_LabelInput.pas Normal file
View File

@ -0,0 +1,192 @@
unit U_LabelInput;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, ExtCtrls, DB, ADODB, RM_System,
RM_Common, RM_Class, RM_GridReport, Buttons, RTComboBox, RM_Preview, RM_e_Xls,
RM_e_Graphic, RM_e_bmp, RM_BarCode, RM_DsgGridReport, RM_Dataset, cxStyles,
cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, cxLookAndFeels,
cxLookAndFeelPainters, cxContainer,
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxButtonEdit;
type
TfrmLabelInput = class(TForm)
Panel1: TPanel;
Label3: TLabel;
note: TMemo;
ToolBar1: TToolBar;
Tsave: TToolButton;
Tclose: TToolButton;
ADOQueryCmd: TADOQuery;
Label9: TLabel;
Label10: TLabel;
ADOQueryTmp: TADOQuery;
LabelType: TcxComboBox;
LabelCaption: TcxButtonEdit;
OpenDialog1: TOpenDialog;
procedure TcloseClick(Sender: TObject);
procedure TsaveClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure LabelCaptionPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private
function SaveData(): Boolean;
procedure InitWinData();
public
FLabelId: string;
end;
var
frmLabelInput: TfrmLabelInput;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmLabelInput.TcloseClick(Sender: TObject);
begin
close;
end;
procedure TfrmLabelInput.TsaveClick(Sender: TObject);
begin
if trim(labelCaption.Text) = '' then
begin
application.MessageBox('标签名称不能为空！', '提示');
labelCaption.SetFocus;
exit;
end;
if trim(LabelCaption.Text) = '' then
begin
application.MessageBox('标签类型不能为空！', '提示');
exit;
end;
if SaveData() then
begin
ModalResult := 1;
end;
end;
/////////////////////////////////////////////////////////////////////
//函数功能：保存数据
/////////////////////////////////////////////////////////////////////
function TfrmLabelInput.SaveData(): Boolean;
var
maxno: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if Trim(FLabelId) = '' then
begin
if GetLSNo(ADOQueryCmd, maxno, 'LB', 'Trade_Label', 3, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败!', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(FLabelId);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from Trade_Label where LabelId=''' + Trim(FLabelId) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FLabelId) = '' then
begin
Append;
FieldByName('FillId').Value := Trim(DCode);
FieldByName('Filler').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTmp);
end
else
begin
Edit;
FieldByName('EditId').Value := Trim(DCode);
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTmp);
end;
RTSetsavedata(ADOQueryCmd, 'Trade_Label', Panel1, 1);
FieldByName('LabelId').Value := Trim(maxno);
Post;
end;
with ADOQueryTmp do
begin
Close;
sql.Clear;
sql.Add('select * from Trade_Label where LabelCaption=''' + Trim(LabelCaption.text) + '''');
Open;
end;
if ADOQueryTmp.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('标签名称重复!', '提示', 0);
Exit;
end;
ADOQueryCmd.Connection.CommitTrans;
result := true;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := false;
application.MessageBox('保存标签模板出错!', '警告信息', 0);
end;
end;
////////////////////////////////////////////////////////////
//初始化窗口数据
////////////////////////////////////////////////////////////
procedure TfrmLabelInput.InitWinData();
begin
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select A.*');
sql.Add('from Trade_Label A');
sql.Add('WHERE LabelId=' + QuotedStr(FLabelId));
Open;
SCSHData(ADOQueryTmp, panel1, 1);
end;
end;
procedure TfrmLabelInput.LabelCaptionPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
if OpenDialog1.Execute then
begin
LabelCaption.Text :=ChangeFileExt(ExtractFileName( OpenDialog1.FileName),'');
end;
end;
procedure TfrmLabelInput.FormShow(Sender: TObject);
begin
InitWinData();
end;
end.

278
G01贸易生产计划/U_LabelList.dfm Normal file
View File

@ -0,0 +1,278 @@
object frmLabelList: TfrmLabelList
Left = 296
Top = 79
BorderIcons = [biMaximize]
Caption = #26631#31614#20449#24687
ClientHeight = 654
ClientWidth = 1041
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object RMPreview1: TRMPreview
Left = 488
Top = 91
Width = 553
Height = 563
Align = alRight
BevelOuter = bvLowered
Caption = 'Insert After'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 2
OnDblClick = RMPreview1DblClick
Options.RulerUnit = rmutScreenPixels
Options.RulerVisible = False
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
end
object ToolBar2: TToolBar
Left = 0
Top = 0
Width = 1041
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar2'
Color = clBtnFace
Images = DataLink_TradePlan.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
Transparent = False
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = ToolButton1Click
end
object TOK: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #30830#23450
ImageIndex = 12
OnClick = TOkClick
end
object Tadd: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #26032#22686#26631#31614
ImageIndex = 2
OnClick = TaddClick
end
object Tupd: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20462#25913#26631#31614
ImageIndex = 3
OnClick = TupdClick
end
object Tdel: TToolButton
Left = 332
Top = 0
AutoSize = True
Caption = #21024#38500#26631#31614
ImageIndex = 5
OnClick = TdelClick
end
object Tclose: TToolButton
Left = 427
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TcloseClick
end
end
object Panel4: TPanel
Left = 0
Top = 38
Width = 1041
Height = 53
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Label9: TLabel
Left = 36
Top = 20
Width = 48
Height = 12
Caption = #26631#31614#31867#22411
end
object Label10: TLabel
Left = 280
Top = 20
Width = 48
Height = 12
Caption = #26631#31614#21517#31216
end
object LabelCaption: TEdit
Left = 332
Top = 16
Width = 100
Height = 20
TabOrder = 0
OnChange = LabelTypeChange
end
object LabelType: TRTComboBox
Tag = 99
Left = 88
Top = 17
Width = 100
Height = 20
Style = csDropDownList
ItemIndex = 0
TabOrder = 1
OnChange = LabelTypeChange
Items.Strings = (
''
#20013#25991#26631#31614
#33521#25991#26631#31614
#20013#33521#25991#26631#31614)
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 91
Width = 488
Height = 563
Align = alClient
TabOrder = 3
object tv1: TcxGridDBTableView
OnDblClick = tv1DblClick
Navigator.Buttons.CustomButtons = <>
OnCellClick = tv1CellClick
OnFocusedRecordChanged = tv1FocusedRecordChanged
DataController.DataSource = DS_Label
DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
object tv1labelId: TcxGridDBColumn
Caption = #26631#31614'ID'
DataBinding.FieldName = 'labelId'
Visible = False
Width = 53
end
object tv1labeltype: TcxGridDBColumn
Caption = #26631#31614#31867#22411
DataBinding.FieldName = 'labeltype'
HeaderAlignmentHorz = taCenter
Width = 107
end
object tv1labelCaption: TcxGridDBColumn
Caption = #26631#31614#21517#31216
DataBinding.FieldName = 'labelCaption'
HeaderAlignmentHorz = taCenter
Width = 261
end
object tv1labelFile: TcxGridDBColumn
Caption = #25991#20214#21517
DataBinding.FieldName = 'labelFile'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 167
end
end
object cxGrid1Level1: TcxGridLevel
GridView = tv1
end
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
CommandTimeout = 300
Parameters = <>
Left = 316
Top = 184
end
object OpenDialog1: TOpenDialog
Filter = 'RMFl(*.rmf)|*.rmf'
InitialDir = '.'
Left = 140
Top = 188
end
object RMGridReport1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
ModalPreview = False
ShowProgress = False
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
Preview = RMPreview1
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 236
Top = 184
ReportData = {}
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
CommandTimeout = 300
Parameters = <>
Left = 320
Top = 272
end
object ADOQuery1: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 232
Top = 268
end
object DS_Label: TDataSource
DataSet = ADOQueryLabel
Left = 322
Top = 448
end
object ADOQueryLabel10: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
CommandTimeout = 300
Parameters = <>
Left = 138
Top = 272
end
object ADOQueryLabel: TClientDataSet
Aggregates = <>
Params = <>
Left = 220
Top = 435
end
end

409
G01贸易生产计划/U_LabelList.pas Normal file
View File

@ -0,0 +1,409 @@
unit U_LabelList;
interface
uses
Windows, Messages, SysUtils, StrUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, ExtCtrls, DB, ADODB,
RM_System, RM_Common, RM_Class, RM_GridReport, Buttons, RTComboBox, RM_Preview,
RM_e_Xls, RM_e_Graphic, RM_e_bmp, RM_BarCode, RM_DsgGridReport, RM_Dataset,
cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit,
cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges;
type
TfrmLabelList = class(TForm)
ADOQueryCmd: TADOQuery;
OpenDialog1: TOpenDialog;
RMGridReport1: TRMGridReport;
ADOQueryTmp: TADOQuery;
RMPreview1: TRMPreview;
ADOQuery1: TADOQuery;
DS_Label: TDataSource;
ADOQueryLabel10: TADOQuery;
ToolBar2: TToolBar;
Tadd: TToolButton;
Tupd: TToolButton;
Tdel: TToolButton;
TOK: TToolButton;
Tclose: TToolButton;
Panel4: TPanel;
ToolButton1: TToolButton;
Label9: TLabel;
Label10: TLabel;
LabelCaption: TEdit;
LabelType: TRTComboBox;
ADOQueryLabel: TClientDataSet;
cxGrid1: TcxGrid;
tv1: TcxGridDBTableView;
tv1labelId: TcxGridDBColumn;
tv1labeltype: TcxGridDBColumn;
tv1labelCaption: TcxGridDBColumn;
tv1labelFile: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
procedure TcloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BtOpenClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure RMPreview1DblClick(Sender: TObject);
procedure TaddClick(Sender: TObject);
procedure TupdClick(Sender: TObject);
procedure tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure TdelClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure TOkClick(Sender: TObject);
procedure tv1DblClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure LabelTypeChange(Sender: TObject);
procedure tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
private
isLoad: Boolean;
function DeleteData(): Boolean;
procedure InitWinData();
procedure InitVarDictionary();
procedure InitDataSetDictionary();
procedure InitGrid();
procedure OpenLabel();
procedure DoFilter();
public
fSelLabelId, LBName, LBInt, SLBName: string;
fKeyNo: string;
fchg: Boolean;
fIsShowModal: Boolean;
fWinStatus: integer;
end;
var
frmLabelList: TfrmLabelList;
implementation
uses
U_DataLink, U_LabelAdd, U_RTFun;
{$R *.dfm}
procedure TfrmLabelList.DoFilter();
var
filterStr: string;
begin
filterStr := '';
if trim(LabelType.Text) <> '' then
begin
filterStr := ' and LabelType like ' + quotedStr('%' + trim(LabelType.Text) + '%');
end;
//名称
if trim(LabelCaption.Text) <> '' then
begin
filterStr := filterStr + ' and LabelCaption like ' + quotedStr('%' + trim(LabelCaption.Text) + '%');
end;
try
ADOQueryLabel10.DisableControls;
if trim(filterStr) = '' then
begin
ADOQueryLabel.Filtered := false;
ADOQueryLabel.EnableControls;
exit;
end;
filterStr := trim(RightBStr(filterStr, length(filterStr) - 4));
with ADOQueryLabel do
begin
filtered := false;
filter := filterStr;
filtered := true;
end;
SDofilter(ADOQueryLabel10, filterStr);
SCreateCDS(ADOQueryLabel10, ADOQueryLabel);
SInitCDSData(ADOQueryLabel10, ADOQueryLabel);
finally
ADOQueryLabel10.EnableControls;
end;
end;
procedure TfrmLabelList.TcloseClick(Sender: TObject);
begin
close;
end;
procedure TfrmLabelList.FormCreate(Sender: TObject);
begin
// ClearWinData(panel3);
fSelLabelId := '';
end;
procedure TfrmLabelList.BtOpenClick(Sender: TObject);
begin
end;
////////////////////////////////////////////////////////////
//初始化窗口数据
////////////////////////////////////////////////////////////
procedure TfrmLabelList.InitWinData();
begin
try
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select A.* ,B.customName as customNoName');
sql.Add('from JD_Label A');
sql.Add('INNER JOIN BC_customer B ON A.customNO=B.customNo');
sql.Add('WHERE B.customNo=''' + fkeyNo + '''');
Open;
if isEmpty then
begin
close;
exit;
end;
// SetWinData(ADOQueryTmp,panel3);
{
RMGridReport1.LoadFromBlobField(tblobfield(fieldbyname('labelFile')));
RMGridReport1.Preview :=RMPreview1;
RMGridReport1.PrepareReport;
RMGridReport1.ShowReport ;
}
end;
except
end;
end;
procedure TfrmLabelList.FormShow(Sender: TObject);
begin
if fWinStatus = 1 then
tok.Visible := false;
InitGrid();
if Trim(SLBName) <> '' then
begin
ADOQueryLabel.Locate('labelCaption', SLBName, []);
end;
end;
procedure TfrmLabelList.RMPreview1DblClick(Sender: TObject);
begin
//btOpen.Click ;
end;
////////////////////////////////////////////////////////////
//
////////////////////////////////////////////////////////////
procedure TfrmLabelList.InitVarDictionary();
var
TmpList: Tstrings;
mm: string;
i: integer;
begin
try
TmpList := TstringList.Create();
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select distinct ItemType from JC_LabelSetItems ');
sql.Add('where valid=''Y''');
Open;
TmpList.Clear;
while not Eof do
begin
TmpList.Add(trim(fieldByName('ItemType').AsString));
Next;
end;
end;
finally
TmpList.Free;
end;
end;
/////////////////////////////////////////////////
//
/////////////////////////////////////////////////
procedure TfrmLabelList.InitDataSetDictionary();
begin
{ with ADOQuery1 do
begin
close;
sql.Clear ;
sql.Add('exec P_Get_LabelPrintData');
sql.Add(quotedStr(''));
sql.Add(','+quotedStr(''));
sql.Add(','+quotedStr(''));
OPen;
end; }
end;
procedure TfrmLabelList.TaddClick(Sender: TObject);
begin
try
frmLabelAdd := TfrmLabelAdd.create(self);
with frmLabelAdd do
begin
if showModal = 1 then
begin
fchg := true;
InitGrid();
end;
end;
finally
frmLabelAdd.Free;
end;
end;
procedure TfrmLabelList.TupdClick(Sender: TObject);
begin
if ADOQueryLabel.IsEmpty then
exit;
try
frmLabelAdd := TfrmLabelAdd.create(self);
with frmLabelAdd do
begin
fKeyNo := ADOQueryLabel.fieldByName('LabelId').AsString;
fWinstatus := 1;
if showModal = 1 then
begin
fchg := true;
InitGrid();
end;
end;
finally
frmLabelAdd.Free;
end;
end;
/////////////////////////////////////////////
//
/////////////////////////////////////////////
procedure TfrmLabelList.InitGrid();
begin
try
isLoad := false;
ADOQueryLabel10.DisableControls;
with ADOQueryLabel10 do
begin
close;
sql.Clear;
sql.Add('select * from P_Label');
sql.Add('where valid=''Y''');
sql.Add(' order by labelCaption');
Open;
end;
SCreateCDS(ADOQueryLabel10, ADOQueryLabel);
SInitCDSData(ADOQueryLabel10, ADOQueryLabel);
finally
ADOQueryLabel10.EnableControls;
isLoad := true;
//DoFilter();
//OpenLabel();
end;
end;
////////////////////////////////////////////////////////
//函数功能：打开标签文件
////////////////////////////////////////////////////////
procedure TfrmLabelList.OpenLabel();
begin
if ADOQueryLabel.IsEmpty then
exit;
with RMGridReport1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('labelFile')));
//Preview :=RMPreview1;
ShowReport;
end;
end;
procedure TfrmLabelList.tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
end;
/////////////////////////////////////////////////////////////
function TfrmLabelList.DeleteData(): Boolean;
begin
try
with ADOQueryCmd do
begin
close;
sql.clear;
sql.Add('delete P_Label');
sql.Add('where labelId=' + ADOQueryLabel.fieldByName('LabelID').asString);
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('标签删除')));
sql.Add(',' + quotedstr(trim('标签名称：' + trim(ADOQueryLabel.fieldByName('labelCaption').asString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execSql;
end;
result := true;
except
result := false;
application.MessageBox('删除失败!', '警告信息', 0);
end;
end;
procedure TfrmLabelList.TdelClick(Sender: TObject);
begin
if ADOQueryLabel.IsEmpty then
exit;
if application.MessageBox('确定要删除此标签吗？', '警告信息', 1) = 2 then
exit;
if DeleteData() then
begin
fchg := true;
InitGrid();
end;
end;
procedure TfrmLabelList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmLabelList.FormDestroy(Sender: TObject);
begin
frmLabelList := nil;
end;
procedure TfrmLabelList.TOkClick(Sender: TObject);
begin
if ADOQueryLabel.IsEmpty then
exit;
LBName := Trim(ADOQueryLabel.fieldbyname('labelCaption').AsString);
ModalResult := 1;
end;
procedure TfrmLabelList.tv1DblClick(Sender: TObject);
begin
TOk.Click;
end;
procedure TfrmLabelList.ToolButton1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmLabelList.LabelTypeChange(Sender: TObject);
begin
DoFilter();
end;
procedure TfrmLabelList.tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if isLoad then
OpenLabel();
end;
end.

750
G01贸易生产计划/U_MJSJFX.dfm Normal file
View File

@ -0,0 +1,750 @@
object frmMJSJFX: TfrmMJSJFX
Left = 90
Top = 28
Align = alClient
Caption = #24067#21305#31649#29702
ClientHeight = 778
ClientWidth = 1540
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 120
TextHeight = 15
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1540
Height = 30
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradePlan.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBClose: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 30
Width = 1540
Height = 42
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
Visible = False
object Label1: TLabel
Left = 41
Top = 15
Width = 66
Height = 15
Caption = #35746' '#21333' '#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 41
Top = 60
Width = 9
Height = 15
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Ma: TLabel
Left = 380
Top = 110
Width = 8
Height = 15
Caption = 'M'
end
object Label7: TLabel
Left = 279
Top = 110
Width = 30
Height = 15
Caption = #21407#30721
end
object Label5: TLabel
Left = 385
Top = 145
Width = 8
Height = 15
Caption = 'M'
end
object Label8: TLabel
Left = 279
Top = 150
Width = 30
Height = 15
Caption = #24133#23485
end
object Label9: TLabel
Left = 395
Top = 140
Width = 16
Height = 15
Caption = 'cm'
end
object Label3: TLabel
Left = 414
Top = 125
Width = 30
Height = 15
Caption = #20811#37325
end
object Label11: TLabel
Left = 515
Top = 125
Width = 31
Height = 15
Caption = 'g/'#13217
end
object Label13: TLabel
Left = 549
Top = 150
Width = 30
Height = 15
Caption = #36192#36865
end
object OrderNo: TEdit
Left = 110
Top = 10
Width = 186
Height = 30
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -22
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnKeyPress = OrderNoKeyPress
end
object MJQty1: TEdit
Left = 310
Top = 105
Width = 68
Height = 23
TabOrder = 1
end
object MJFK: TEdit
Left = 310
Top = 145
Width = 68
Height = 23
TabOrder = 3
end
object MJSJKZ: TEdit
Left = 445
Top = 120
Width = 68
Height = 23
TabOrder = 2
end
object MJQty2: TEdit
Left = 580
Top = 145
Width = 68
Height = 23
TabOrder = 4
end
end
object Panel2: TPanel
Left = 0
Top = 72
Width = 1540
Height = 706
Align = alClient
Caption = 'Panel2'
TabOrder = 2
object Label4: TLabel
Left = 635
Top = 180
Width = 48
Height = 15
Caption = 'Label4'
end
object Panel4: TPanel
Left = 1
Top = 1
Width = 712
Height = 704
Align = alLeft
TabOrder = 0
object cxGrid3: TcxGrid
Left = 1
Top = 31
Width = 710
Height = 672
Align = alClient
TabOrder = 0
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
Images = DataLink_TradePlan.ThreeImgList
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Header = DataLink_TradePlan.TextSHuangSe
object cxGridDBColumn7: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'MjXH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'MJID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'SOrddefstr1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #20013#25991#39068#33394
DataBinding.FieldName = 'prtcolor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 74
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #23458#25143#35746#21333#21495
DataBinding.FieldName = 'khorderno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object cxGridDBColumn12: TcxGridDBColumn
Caption = #25171#21367#26102#38388
DataBinding.FieldName = 'filltime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 76
end
object TV3Column1: TcxGridDBColumn
Caption = #38271#24230
DataBinding.FieldName = 'MJLen'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV3Column2: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'mjqty4'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object TV3Column3: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'mjmaoz'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
end
object cxGridLevel3: TcxGridLevel
GridView = TV3
end
end
object Panel5: TPanel
Left = 1
Top = 1
Width = 710
Height = 30
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #25552#20132#36807#24555#25968#25454
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
end
object Panel6: TPanel
Left = 713
Top = 1
Width = 826
Height = 704
Align = alClient
Caption = 'Panel6'
TabOrder = 1
object cxGrid1: TcxGrid
Left = 1
Top = 519
Width = 824
Height = 184
Align = alClient
TabOrder = 0
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource4
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.GroupByBox = False
Styles.Header = DataLink_TradePlan.TextSHuangSe
object cxGridDBColumn1: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'mjxh'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'mjid'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'SOrddefstr1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #20013#25991#39068#33394
DataBinding.FieldName = 'prtcolor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #23458#25143#35746#21333#21495
DataBinding.FieldName = 'khorderno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 87
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #21024#38500#26102#38388
DataBinding.FieldName = 'deltime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object TV1Column1: TcxGridDBColumn
Caption = #21024#38500#20154
DataBinding.FieldName = 'deler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object TV1Column2: TcxGridDBColumn
Caption = #38271#24230
DataBinding.FieldName = 'mjlen'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object TV1Column3: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'mjqty4'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object TV1Column4: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'mjmaoz'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV1
end
end
object Panel7: TPanel
Left = 1
Top = 489
Width = 824
Height = 30
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #21024#38500#25968#25454
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object Panel9: TPanel
Left = 1
Top = 1
Width = 824
Height = 30
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #20462#25913#25968#25454
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object cxGrid4: TcxGrid
Left = 1
Top = 31
Width = 824
Height = 162
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource3
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.GroupByBox = False
Styles.Header = DataLink_TradePlan.TextSHuangSe
object TV4Column1: TcxGridDBColumn
Caption = #25805#20316#20154
DataBinding.FieldName = 'Operor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 59
end
object TV4Column2: TcxGridDBColumn
Caption = #25805#20316#26102#38388
DataBinding.FieldName = 'OperTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 141
end
object cxGridDBColumn19: TcxGridDBColumn
Caption = #35760#24405
DataBinding.FieldName = 'OPEvent'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taRightJustify
Width = 767
end
end
object cxGridLevel4: TcxGridLevel
GridView = TV4
end
end
object Panel8: TPanel
Left = 1
Top = 349
Width = 824
Height = 30
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #37325#25171#25968#25454
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
end
object cxGrid2: TcxGrid
Left = 1
Top = 379
Width = 824
Height = 110
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.GroupByBox = False
Styles.Header = DataLink_TradePlan.TextSHuangSe
object cxGridDBColumn13: TcxGridDBColumn
Caption = #25805#20316#20154
DataBinding.FieldName = 'Operor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #25805#20316#26102#38388
DataBinding.FieldName = 'OperTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #35760#24405
DataBinding.FieldName = 'OPEvent'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 834
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
object Panel3: TPanel
Left = 1
Top = 193
Width = 824
Height = 30
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #36339#21495#25968#25454
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
end
object cxGrid5: TcxGrid
Left = 1
Top = 223
Width = 824
Height = 126
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
object Tv5: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource5
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.GroupByBox = False
Styles.Header = DataLink_TradePlan.TextSHuangSe
object cxGridDBColumn20: TcxGridDBColumn
Caption = #25805#20316#20154
DataBinding.FieldName = 'Operor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 59
end
object cxGridDBColumn21: TcxGridDBColumn
Caption = #25805#20316#26102#38388
DataBinding.FieldName = 'OperTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 141
end
object cxGridDBColumn22: TcxGridDBColumn
Caption = #35760#24405
DataBinding.FieldName = 'OPEvent'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taRightJustify
Width = 767
end
end
object cxGridLevel5: TcxGridLevel
GridView = Tv5
end
end
end
end
object ADOTmp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 832
Top = 72
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 312
Top = 200
end
object ADOCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 832
Top = 40
end
object DataSource1: TDataSource
DataSet = Order_YC
Left = 380
Top = 200
end
object Order_YC: TClientDataSet
Aggregates = <>
Params = <>
Left = 344
Top = 200
end
object Order_CD: TClientDataSet
Aggregates = <>
Params = <>
Left = 856
Top = 476
end
object DataSource2: TDataSource
DataSet = Order_CD
Left = 892
Top = 476
end
object Order_XG: TClientDataSet
Aggregates = <>
Params = <>
Left = 692
Top = 464
end
object DataSource3: TDataSource
DataSet = Order_XG
Left = 720
Top = 464
end
object DataSource4: TDataSource
DataSet = Order_Del
Left = 864
Top = 180
end
object Order_Del: TClientDataSet
Aggregates = <>
Params = <>
Left = 828
Top = 180
end
object Order_TH: TClientDataSet
Aggregates = <>
Params = <>
Left = 1312
Top = 364
end
object DataSource5: TDataSource
DataSet = Order_TH
Left = 1348
Top = 364
end
end

207
G01贸易生产计划/U_MJSJFX.pas Normal file
View File

@ -0,0 +1,207 @@
unit U_MJSJFX;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin,
cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxScrollbarAnnotations, dxSkinsDefaultPainters;
type
TfrmMJSJFX = class(TForm)
ToolBar1: TToolBar;
TBClose: TToolButton;
Panel1: TPanel;
Label1: TLabel;
OrderNo: TEdit;
ADOTmp: TADOQuery;
ADOQueryMain: TADOQuery;
ADOCmd: TADOQuery;
DataSource1: TDataSource;
Order_YC: TClientDataSet;
Label2: TLabel;
Ma: TLabel;
Label7: TLabel;
MJQty1: TEdit;
Label5: TLabel;
Label8: TLabel;
MJFK: TEdit;
Label9: TLabel;
Label3: TLabel;
Label11: TLabel;
MJSJKZ: TEdit;
Label13: TLabel;
MJQty2: TEdit;
Panel2: TPanel;
Order_CD: TClientDataSet;
DataSource2: TDataSource;
Order_XG: TClientDataSet;
DataSource3: TDataSource;
DataSource4: TDataSource;
Order_Del: TClientDataSet;
Label4: TLabel;
Panel4: TPanel;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
TV3Column1: TcxGridDBColumn;
TV3Column2: TcxGridDBColumn;
TV3Column3: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
Panel5: TPanel;
Panel6: TPanel;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
Panel7: TPanel;
Panel9: TPanel;
cxGrid4: TcxGrid;
TV4: TcxGridDBTableView;
cxGridDBColumn19: TcxGridDBColumn;
cxGridLevel4: TcxGridLevel;
Panel8: TPanel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV4Column1: TcxGridDBColumn;
TV4Column2: TcxGridDBColumn;
Panel3: TPanel;
cxGrid5: TcxGrid;
Tv5: TcxGridDBTableView;
cxGridDBColumn20: TcxGridDBColumn;
cxGridDBColumn21: TcxGridDBColumn;
cxGridDBColumn22: TcxGridDBColumn;
cxGridLevel5: TcxGridLevel;
Order_TH: TClientDataSet;
DataSource5: TDataSource;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
function SaveData(): Boolean;
public
{ Public declarations }
end;
var
frmMJSJFX: TfrmMJSJFX;
implementation
uses
U_rtFun, U_ZDYHelp, U_DataLink;
{$R *.dfm}
procedure TfrmMJSJFX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmMJSJFX.FormDestroy(Sender: TObject);
begin
frmMJSJFX := nil;
end;
function TfrmMJSJFX.SaveData(): Boolean;
begin
end;
procedure TfrmMJSJFX.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('²¼Æ¥¹ÜÀí', Tv2, 'Êý¾Ý·ÖÎö');
end;
procedure TfrmMJSJFX.FormShow(Sender: TObject);
var
key: Char;
begin
key := #13;
OrderNoKeyPress(OrderNo, key);
end;
procedure TfrmMJSJFX.OrderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('exec P_Get_YichangData ''' + trim(orderno.Text) + ''' ');
Open;
end;
SCreateCDS(ADOQueryMain, Order_YC);
SInitCDSData(ADOQueryMain, Order_YC);
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('exec P_View_SJFX ''' + trim(orderno.Hint) + ''' ,''0'' ');
Open;
end;
SCreateCDS(ADOQueryMain, Order_CD);
SInitCDSData(ADOQueryMain, Order_CD);
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('exec P_View_SJFX ''' + trim(orderno.Hint) + ''' ,''1'' ');
Open;
end;
SCreateCDS(ADOQueryMain, Order_XG);
SInitCDSData(ADOQueryMain, Order_XG);
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('exec P_View_SJFX ''' + trim(orderno.Hint) + ''' ,''2'' ');
Open;
end;
SCreateCDS(ADOQueryMain, Order_Del);
SInitCDSData(ADOQueryMain, Order_Del);
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('exec P_View_SJFX ''' + trim(orderno.Hint) + ''' ,''3'' ');
Open;
end;
SCreateCDS(ADOQueryMain, Order_TH);
SInitCDSData(ADOQueryMain, Order_TH);
end;
end;
end.

1952
G01贸易生产计划/U_OrderInPut.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

1754
G01贸易生产计划/U_OrderInPut.pas Normal file
View File

File diff suppressed because it is too large Load Diff

120
G01贸易生产计划/U_PrintFr3.dfm Normal file
View File

@ -0,0 +1,120 @@
object frmPrintFr3: TfrmPrintFr3
Left = 0
Top = 0
ClientHeight = 372
ClientWidth = 856
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Scaled = False
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object frxReport1: TfrxReport
Version = '6.7.6'
DotMatrixReport = False
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick, pbCopy, pbSelection]
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 45471.682319444440000000
ReportOptions.LastChange = 45471.682319444440000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'begin'
''
'end.')
ShowProgress = False
Left = 400
Top = 56
Datasets = <>
Variables = <>
Style = <>
object Data: TfrxDataPage
Height = 1000.000000000000000000
Width = 1000.000000000000000000
end
object Page1: TfrxReportPage
PaperWidth = 70.000000000000000000
PaperHeight = 50.000000000000000000
PaperSize = 256
LeftMargin = 10.000000000000000000
RightMargin = 10.000000000000000000
TopMargin = 10.000000000000000000
BottomMargin = 10.000000000000000000
Frame.Typ = []
MirrorMode = []
end
end
object frxDBDataset1: TfrxDBDataset
UserName = 'frxDBDataset1'
CloseDataSource = False
BCDToCurrency = False
Left = 512
Top = 80
end
object frxRichObject1: TfrxRichObject
Left = 536
Top = 144
end
object frxOLEObject1: TfrxOLEObject
Left = 496
Top = 200
end
object frxBarCodeObject1: TfrxBarCodeObject
Left = 576
Top = 72
end
object frxReportTableObject1: TfrxReportTableObject
Left = 416
Top = 136
end
object frxXLSExport1: TfrxXLSExport
UseFileCache = True
ShowProgress = True
OverwritePrompt = False
DataOnly = False
ExportEMF = True
AsText = False
Background = True
FastExport = True
PageBreaks = True
EmptyLines = True
SuppressPageHeadersFooters = False
Left = 240
Top = 104
end
object frxPPTXExport1: TfrxPPTXExport
UseFileCache = True
ShowProgress = True
OverwritePrompt = False
DataOnly = False
OpenAfterExport = False
PictureType = gpPNG
Left = 328
Top = 152
end
object frxXLSXExport1: TfrxXLSXExport
UseFileCache = True
ShowProgress = True
OverwritePrompt = False
DataOnly = False
ChunkSize = 0
OpenAfterExport = False
PictureType = gpPNG
Left = 232
Top = 184
end
object ADOQueryReport: TADOQuery
Connection = DataLink_printpdf.ADOLink
Parameters = <>
Left = 159
Top = 54
end
end

139
G01贸易生产计划/U_PrintFr3.pas Normal file
View File

@ -0,0 +1,139 @@
unit U_PrintFr3;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, RM_Common, RM_Class, RM_GridReport,
RM_E_llPDF, RM_e_Xls, RM_BarCode, RM_RichEdit, RM_Dataset, frxExportXLSX, frxExportPPTX, frxClass,
frxExportBaseDialog,Vcl.Printers, frxExportXLS, frxTableObject, frxBarcode, frxOLE, frxRich, frxDBSet;
type
TfrmPrintFr3 = class(TForm)
frxReport1: TfrxReport;
frxDBDataset1: TfrxDBDataset;
frxRichObject1: TfrxRichObject;
frxOLEObject1: TfrxOLEObject;
frxBarCodeObject1: TfrxBarCodeObject;
frxReportTableObject1: TfrxReportTableObject;
frxXLSExport1: TfrxXLSExport;
frxPPTXExport1: TfrxPPTXExport;
frxXLSXExport1: TfrxXLSXExport;
ADOQueryReport: TADOQuery;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
procedure getReportFile();
public
fFormID:integer;
fCopyNumber:integer;
fBLCLID:string;
fIsPreview:Integer;
fprinterIndex:Integer;
constructor Create(
AOwner: TComponent;
ACaption: String;
mFormID:integer;
recid:string;
CopyNumber:integer;IsPreview:integer;printerIndex:integer);
end;
implementation
uses
U_dataLink,U_CompressionFun;
{$R *.dfm}
constructor TfrmPrintFr3.Create(
AOwner: TComponent;
ACaption: String;
mFormID:integer;
recid:string;
CopyNumber:integer;
IsPreview:integer;printerIndex:integer);
begin
inherited Create(AOwner);
if ACaption<>'' then
Caption := ACaption;
fFormID:=mFormID;
fBLCLID:=recid;
if CopyNumber>0 then
fCopyNumber:= CopyNumber
else
fCopyNumber:=1;
fIsPreview:=IsPreview;
fprinterIndex:= printerIndex ;
end;
/////////////////////////////////////////////////////////////
///
procedure TfrmPrintFr3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
procedure TfrmPrintFr3.FormShow(Sender: TObject);
begin
getReportFile();
end;
procedure TfrmPrintFr3.getReportFile();
var
myStream: TMemoryStream;
mReportFile:string;
// ff: TADOBlobstream;
begin
if fBLCLID='' then
begin
showMessage('!未传入打印记录id') ;
self.Close ;
exit;
end;
try
myStream:= TMemoryStream.Create;
myStream.Position:=0;
with ADOQueryReport do
begin
close;
sql.Clear;
sql.Add('select * from Bs_report_Cloud_File');
sql.Add('where BLCLID='+quotedstr(fBLCLID));
open;
if isEmpty then
begin
showMessage('未获取到要打印的文件!') ;
self.Close ;
exit;
end;
TBlobField(ADOQueryReport.FieldByName('GenerateFiles')).SaveToStream(myStream);
// ff := TADOBlobstream.create(fieldByName('GenerateFiles') as TblobField, bmRead);
// ff.SaveToStream(myStream);
mReportFile:= ExtractFilePath(Application.ExeName) +'report\'+Trim(ADOQueryReport.fieldByName('GenerateFileName').AsString);
myStream.Position:=0;
if fprinterIndex>=0 then
frxReport1.PrintOptions.Printer := Printer.Printers[fprinterIndex];
frxReport1.PreviewPages.LoadFromStream(myStream);
frxReport1.EngineOptions.IgnoreExprError :=true;
if fIsPreview =1 then
begin
frxReport1.ShowPreparedReport ;
end
else
begin
frxReport1.PrintOptions.Copies :=fCopyNumber;
frxReport1.PrintOptions.ShowDialog:=false;
frxReport1.Print() ;
end;
self.Close;
end;
finally
myStream.Free;
end;
end;
end.

1348
G01贸易生产计划/U_ProductOrderNewList.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

1219
G01贸易生产计划/U_ProductOrderNewList.pas Normal file
View File

File diff suppressed because it is too large Load Diff

10652
G01贸易生产计划/U_SysLogOrder.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

183
G01贸易生产计划/U_SysLogOrder.pas Normal file
View File

@ -0,0 +1,183 @@
unit U_SysLogOrder;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel,strUtils,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, ADODB, StdCtrls, ExtCtrls, ImgList,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxScrollbarAnnotations, System.ImageList;
type
TfrmSysLogOrder = class(TForm)
ToolBar1: TToolBar;
TQry: TToolButton;
Tclose: TToolButton;
ADOQueryLog: TADOQuery;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
cxGrid1: TcxGrid;
tv1: TcxGridDBTableView;
tv1OperMan: TcxGridDBColumn;
tv1jopertime: TcxGridDBColumn;
tv1Model: TcxGridDBColumn;
tv1acction: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
tv1Opevent: TcxGridDBColumn;
tv1Result: TcxGridDBColumn;
Panel1: TPanel;
Label2: TLabel;
Label1: TLabel;
begDate: TDateTimePicker;
endDate: TDateTimePicker;
Label3: TLabel;
edt_model: TEdit;
CheckBox1: TCheckBox;
Label4: TLabel;
edt_nr: TEdit;
ThreeImgList: TImageList;
procedure TcloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TQryClick(Sender: TObject);
procedure edt_modelChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
procedure DoQuery();
procedure DoFilter();
public
fModel,facction:string;
fOtherWhere:string;
FMainid:String;
end;
var
frmSysLogOrder: TfrmSysLogOrder;
implementation
uses
U_DataLink;
{$R *.dfm}
procedure TfrmSysLogOrder.TcloseClick(Sender: TObject);
begin
close;
end;
procedure TfrmSysLogOrder.FormCreate(Sender: TObject);
begin
cxGrid1.Align :=alClient;
begDate.DateTime :=date-31;
endDate.DateTime :=date;
with ADOConnection1 do
begin
Connected:=false;
ConnectionString:=DConString;
Connected:=true;
end;
end;
/////////////////////////////////////////////////////////
//
////////////////////////////////////////////////////////
procedure TfrmSysLogOrder.DoQuery();
var
mbegdate,menddate:string;
begin
mbegdate:=formatDatetime('yyyy-MM-dd',begDate.Date); //
menddate:=formatDatetime('yyyy-MM-dd',endDate.Date+1);
try
with ADOQueryLog do
begin
close;
sql.clear;
filtered:=false;
sql.add('select A.* ');
sql.add('from SY_sysLog A');
if CheckBox1.Checked then
begin
sql.Add('where OperTime>='+quotedStr(mbegdate));
sql.Add('and OperTime<'+quotedStr(menddate));
end
else
begin
sql.Add('where 1=1');
end;
sql.Add(' and isnull(Mainid,'''')='''+Trim(FMainid)+''' and isnull(Mainid,'''')<>'''' ');
if trim(facction)<>'' then
sql.add('and acction='+quotedStr(facction));
if trim(fOtherWhere)<>'' then
begin
sql.add(fOtherWhere);
end;
sql.Add('order by operOr,Opertime');
Open;
end;
finally
end;
end;
///////////////////////////////////////////////////////////
//
///////////////////////////////////////////////////////////
procedure TfrmSysLogOrder.DoFilter();
var
filterStr:string;
begin
filterStr:='';
//
if trim(edt_model.text)<>'' then
begin
filterStr:=' and model ='+quotedStr(trim(edt_model.text));
end;
if trim(edt_nr.text)<>'' then
begin
filterStr:=' and OpEvent like '+quotedStr('%'+trim(edt_nr.text)+'%');
end;
try
ADOQueryLog.DisableControls ;
if trim(filterStr)='' then
begin
ADOQueryLog.Filtered:=false;
exit;
end;
filterStr:=trim(RightBStr(filterStr,length(filterStr)-4));
with ADOQueryLog do
begin
filtered:=false;
filter:=filterStr;
filtered:=true;
end;
finally
ADOQueryLog.EnableControls;
end;
end;
procedure TfrmSysLogOrder.FormShow(Sender: TObject);
begin
DoQuery();
end;
procedure TfrmSysLogOrder.TQryClick(Sender: TObject);
begin
DoQuery();
end;
procedure TfrmSysLogOrder.edt_modelChange(Sender: TObject);
begin
DoFilter();
end;
procedure TfrmSysLogOrder.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
action:=cafree;
end;
end.

10652
G01贸易生产计划/U_SysLogOrderzsd.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

183
G01贸易生产计划/U_SysLogOrderzsd.pas Normal file
View File

@ -0,0 +1,183 @@
unit U_SysLogOrderzsd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel,strUtils,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, ADODB, StdCtrls, ExtCtrls, ImgList,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxScrollbarAnnotations, System.ImageList, dxSkinsDefaultPainters;
type
TfrmSysLogOrderzsd = class(TForm)
ToolBar1: TToolBar;
TQry: TToolButton;
Tclose: TToolButton;
ADOQueryLog: TADOQuery;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
cxGrid1: TcxGrid;
tv1: TcxGridDBTableView;
tv1OperMan: TcxGridDBColumn;
tv1jopertime: TcxGridDBColumn;
tv1Model: TcxGridDBColumn;
tv1acction: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
tv1Opevent: TcxGridDBColumn;
tv1Result: TcxGridDBColumn;
Panel1: TPanel;
Label2: TLabel;
Label1: TLabel;
begDate: TDateTimePicker;
endDate: TDateTimePicker;
Label3: TLabel;
edt_model: TEdit;
CheckBox1: TCheckBox;
Label4: TLabel;
edt_nr: TEdit;
ThreeImgList: TImageList;
procedure TcloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TQryClick(Sender: TObject);
procedure edt_modelChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
procedure DoQuery();
procedure DoFilter();
public
fModel,facction:string;
fOtherWhere:string;
FMainid:String;
end;
var
frmSysLogOrderzsd: TfrmSysLogOrderzsd;
implementation
uses
U_DataLink;
{$R *.dfm}
procedure TfrmSysLogOrderzsd.TcloseClick(Sender: TObject);
begin
close;
end;
procedure TfrmSysLogOrderzsd.FormCreate(Sender: TObject);
begin
cxGrid1.Align :=alClient;
begDate.DateTime :=date-31;
endDate.DateTime :=date;
with ADOConnection1 do
begin
Connected:=false;
ConnectionString:=DConString;
Connected:=true;
end;
end;
/////////////////////////////////////////////////////////
//
////////////////////////////////////////////////////////
procedure TfrmSysLogOrderzsd.DoQuery();
var
mbegdate,menddate:string;
begin
mbegdate:=formatDatetime('yyyy-MM-dd',begDate.Date); //
menddate:=formatDatetime('yyyy-MM-dd',endDate.Date+1);
try
with ADOQueryLog do
begin
close;
sql.clear;
filtered:=false;
sql.add('select A.* ');
sql.add('from SY_sysLog A');
if CheckBox1.Checked then
begin
sql.Add('where OperTime>='+quotedStr(mbegdate));
sql.Add('and OperTime<'+quotedStr(menddate));
end
else
begin
sql.Add('where 1=1');
end;
// sql.Add(' and isnull(Mainid,'''')='''+Trim(FMainid)+''' and isnull(Mainid,'''')<>'''' ');
// if trim(facction)<>'' then
sql.add('and acction like ''ָʾµ¥%'' ');
if trim(fOtherWhere)<>'' then
begin
sql.add(fOtherWhere);
end;
sql.Add('order by operOr,Opertime');
Open;
end;
finally
end;
end;
///////////////////////////////////////////////////////////
//
///////////////////////////////////////////////////////////
procedure TfrmSysLogOrderzsd.DoFilter();
var
filterStr:string;
begin
filterStr:='';
//
if trim(edt_model.text)<>'' then
begin
filterStr:=' and model ='+quotedStr(trim(edt_model.text));
end;
if trim(edt_nr.text)<>'' then
begin
filterStr:=' and OpEvent like '+quotedStr('%'+trim(edt_nr.text)+'%');
end;
try
ADOQueryLog.DisableControls ;
if trim(filterStr)='' then
begin
ADOQueryLog.Filtered:=false;
exit;
end;
filterStr:=trim(RightBStr(filterStr,length(filterStr)-4));
with ADOQueryLog do
begin
filtered:=false;
filter:=filterStr;
filtered:=true;
end;
finally
ADOQueryLog.EnableControls;
end;
end;
procedure TfrmSysLogOrderzsd.FormShow(Sender: TObject);
begin
DoQuery();
end;
procedure TfrmSysLogOrderzsd.TQryClick(Sender: TObject);
begin
DoQuery();
end;
procedure TfrmSysLogOrderzsd.edt_modelChange(Sender: TObject);
begin
DoFilter();
end;
procedure TfrmSysLogOrderzsd.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
action:=cafree;
end;
end.

1236
G01贸易生产计划/U_TradeInspSet.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

586
G01贸易生产计划/U_TradeInspSet.pas Normal file
View File

@ -0,0 +1,586 @@
unit U_TradeInspSet;
interface
uses
Windows, Messages, StrUtils, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB,
ADODB, cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxDateUtils, cxImage,
cxDBEdit, IdExplicitTLSClientServerBase, RM_Preview, cxPC, U_BaseHelp,
System.ImageList, Vcl.ImgList, RTComboBox, RM_BarCode, RM_e_Xls,
dxScrollbarAnnotations, dxLayoutcxEditAdapters, dxLayoutContainer,
dxLayoutControl, RM_RichEdit, RM_DsgGridReport;
type
TfrmTradeInspSet = class(TfrmBaseHelp)
ToolBar1: TToolBar;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
Tsave: TToolButton;
cxPageControl1: TcxPageControl;
cxTabSheet4: TcxTabSheet;
cxTabSheet3: TcxTabSheet;
RMPreview2: TRMPreview;
RMPreview1: TRMPreview;
RuleLaterTare: TcxTextEdit;
Coefficient: TcxTextEdit;
ADOQueryLabel: TADOQuery;
RM1: TRMGridReport;
RMDB_1: TRMDBDataSet;
ADO_1: TADOQuery;
RM2: TRMGridReport;
RMDB_2: TRMDBDataSet;
cxTabSheet1: TcxTabSheet;
DS_Label: TDataSource;
CDS_Label: TClientDataSet;
RMDB_Label: TRMDBDataSet;
RMLabel: TRMGridReport;
Panel1: TPanel;
Panel2: TPanel;
cxGridLabel: TcxGrid;
TVLabel: TcxGridDBTableView;
TVLabellabelId: TcxGridDBColumn;
TVLabellabeltype: TcxGridDBColumn;
TVLabellabelCaption: TcxGridDBColumn;
TVLabellabelFile: TcxGridDBColumn;
cxGridLabelLevel1: TcxGridLevel;
RMPreview3: TRMPreview;
Panel4: TPanel;
Label9: TLabel;
Label10: TLabel;
ToolBar2: TToolBar;
TVolumeset: TToolButton;
Tpackset: TToolButton;
Tadd: TToolButton;
Tupd: TToolButton;
Tdel: TToolButton;
ToolButton4: TToolButton;
RMBarCodeObject1: TRMBarCodeObject;
RMXLSExport1: TRMXLSExport;
ADO_Down: TADOQuery;
TVLabelColumn1: TcxGridDBColumn;
TVLabelColumn2: TcxGridDBColumn;
LabVolume: TcxTextEdit;
LabPackage: TcxTextEdit;
RuleAddLen: TcxTextEdit;
LabelType: TcxComboBox;
LabelCaption: TcxTextEdit;
RuleConversion: TcxComboBox;
RulePieceNo: TcxComboBox;
RuleLenUnit: TcxComboBox;
RuleAddwet: TcxTextEdit;
FixedLength: TcxTextEdit;
dxLayoutControl_packsetGroup_Root: TdxLayoutGroup;
dxLayoutControl_packset: TdxLayoutControl;
dxLayoutGroup1: TdxLayoutGroup;
dxLayoutItem1: TdxLayoutItem;
dxLayoutItem2: TdxLayoutItem;
RulePackNo: TcxComboBox;
RuleYardstick: TcxComboBox;
dxLayoutItem3: TdxLayoutItem;
packRolls: TcxTextEdit;
dxLayoutControl_piecesetGroup_Root: TdxLayoutGroup;
dxLayoutControl_pieceset: TdxLayoutControl;
dxLayoutGroup2: TdxLayoutGroup;
dxLayoutGroup3: TdxLayoutGroup;
dxLayoutItem4: TdxLayoutItem;
dxLayoutItem5: TdxLayoutItem;
dxLayoutItem6: TdxLayoutItem;
dxLayoutItem7: TdxLayoutItem;
dxLayoutItem8: TdxLayoutItem;
dxLayoutItem9: TdxLayoutItem;
dxLayoutItem10: TdxLayoutItem;
dxLayoutItem11: TdxLayoutItem;
dxLayoutItem12: TdxLayoutItem;
dxLayoutItem13: TdxLayoutItem;
RMDB_rtfields: TRMDBDataSet;
ADOQueryRtFields: TADOQuery;
ADOConnection1: TADOConnection;
RuleAddwetVirtual: TcxTextEdit;
RuleAddLenVirtual: TcxTextEdit;
dxLayoutItem14: TdxLayoutItem;
dxLayoutItem15: TdxLayoutItem;
DecimalY: TcxTextEdit;
DecimalKg: TcxTextEdit;
dxLayoutItem16: TdxLayoutItem;
dxLayoutItem18: TdxLayoutItem;
dxLayoutGroup4: TdxLayoutGroup;
RMRichObject1: TRMRichObject;
DecimalM: TcxTextEdit;
dxLayoutItem17: TdxLayoutItem;
packlabNumber: TcxComboBox;
packPostAction: TcxComboBox;
dxLayoutItem_packlabNumber: TdxLayoutItem;
dxLayoutItem_packPrintAction: TdxLayoutItem;
RMGridReportDesigner1: TRMGridReportDesigner;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TsaveClick(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure TVolumesetClick(Sender: TObject);
procedure TpacksetClick(Sender: TObject);
procedure TupdClick(Sender: TObject);
procedure TdelClick(Sender: TObject);
procedure TaddClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure LabelTypeChange(Sender: TObject);
procedure TVLabelCellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure FormCreate(Sender: TObject);
procedure TVLabelDblClick(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
function SaveData(): Boolean;
procedure InitLabel();
function SaveLabel(MLabelID: string): Boolean;
procedure InitLabVolume();
procedure InitLabPackage();
public
FDataID: string;
fSubUseFlag:Boolean;
end;
var
frmTradeInspSet: TfrmTradeInspSet;
implementation
uses
U_DataLink, U_RTFun, U_LabelInput, U_LabelList;
{$R *.dfm}
function TfrmTradeInspSet.SaveLabel(MLabelID: string): Boolean;
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Label');
sql.Add('where LabelID=' + Quotedstr(MLabelID));
Open;
Edit;
fieldByName('Editer').value := DName;
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
// RMLabel.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
Post;
end;
ADOQueryCmd.Connection.CommitTrans;
result := true;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := false;
application.MessageBox('保存标签模板出错!', '警告信息', 0);
end;
end;
procedure TfrmTradeInspSet.InitLabel();
begin
with ADOQueryMain do
begin
close;
sql.Clear;
sql.Add(' select * from Trade_Label');
sql.Add(' order by labeltype,labelCaption');
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel4, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Label);
SInitCDSData(ADOQueryMain, CDS_Label);
TVLabel.ApplyBestFit() ;
end;
procedure TfrmTradeInspSet.InitLabVolume();
begin
with ADOQueryLabel do
begin
close;
sql.Clear;
sql.Add('select top 1 * from RT_FileUpdate');
sql.Add('where FileName=' + quotedstr(trim(LabVolume.Text) + '.rmf'));
Open;
end;
if ADOQueryLabel.IsEmpty then
exit;
with RM1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('Files')));
Preview := RMPreview1;
ShowReport;
end;
end;
procedure TfrmTradeInspSet.InitLabPackage();
begin
with ADOQueryLabel do
begin
close;
sql.Clear;
sql.Add('select top 1 * from RT_FileUpdate');
sql.Add('where FileName=' + quotedstr(trim(LabPackage.Text) + '.rmf'));
Open;
end;
if ADOQueryLabel.IsEmpty then
exit;
with RM2 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('Files')));
Preview := RMPreview2;
ShowReport;
end;
end;
procedure TfrmTradeInspSet.LabelTypeChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel4, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Label);
SInitCDSData(ADOQueryMain, CDS_Label);
end;
end;
procedure TfrmTradeInspSet.InitGrid();
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Cloth_Inspect_Rule where RuleID=''' + Trim(FDataID) + '''');
Open;
end;
LSCSHData(ADOQueryTemp, dxLayoutControl_pieceset, 2);
LSCSHData(ADOQueryTemp, dxLayoutControl_packset, 2);
end;
procedure TfrmTradeInspSet.FormDestroy(Sender: TObject);
begin
inherited;
frmTradeInspSet := nil;
end;
procedure TfrmTradeInspSet.cxPageControl1Change(Sender: TObject);
begin
case cxPageControl1.ActivePageIndex of
1:
begin
InitLabVolume();
end;
2:
begin
InitLabPackage();
end;
end;
end;
procedure TfrmTradeInspSet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmTradeInspSet.FormCreate(Sender: TObject);
begin
inherited;
cxPageControl1.Align:=alClient;
fSubUseFlag:=false;
end;
procedure TfrmTradeInspSet.TaddClick(Sender: TObject);
begin
try
frmLabelInput := TfrmLabelInput.create(self);
with frmLabelInput do
begin
FLabelId := '';
if showModal = 1 then
begin
InitLabel();
end;
end;
finally
frmLabelInput.Free;
end;
end;
procedure TfrmTradeInspSet.TBCloseClick(Sender: TObject);
begin
//ModalResult := 1;
close;
end;
procedure TfrmTradeInspSet.FormShow(Sender: TObject);
begin
inherited;
if fSubUseFlag then
begin
ToolBar1.Visible:=false;
dxLayoutControl_packset.Visible:=false;
dxLayoutControl_pieceset.Visible:=False;
Tpackset.Visible:=False;
TVolumeset.Visible:=false;
end;
ExportFtErpFile('模板标签.rmf', ADOQueryTemp);
with ADO_1 do
begin
Close;
SQL.Clear;
sql.Add('exec P_BS_Label_Get_Test');
Open;
end;
Initlabel();
InitGrid();
end;
procedure TfrmTradeInspSet.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTradeInspSet.TdelClick(Sender: TObject);
begin
if application.MessageBox('确定要删除当前选择的标签吗?','警告信息',1)=2 then exit;
try
with ADOQueryCmd do
begin
close;
sql.clear;
sql.Add('delete Trade_Label');
sql.Add('where labelId=' + quotedstr(CDS_Label.fieldByName('LabelID').asString));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('标签删除')));
sql.Add(',' + quotedstr(trim('标签名称：' + trim(CDS_Label.fieldByName('labelCaption').asString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execSql;
end;
CDS_Label.Delete;
except
application.MessageBox('删除失败!', '警告信息', 0);
end;
end;
function TfrmTradeInspSet.SaveData(): Boolean;
var
MaxId, MaxSubId, FCoCode, FCCID, MaxCFID: string;
begin
Result := false;
try
ADOQueryCmd.Connection.BeginTrans;
if Trim(FDataID) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxId, 'R', 'Trade_Cloth_Inspect_Rule', 4, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
end
else
begin
MaxId := Trim(FDataID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Trade_Cloth_Inspect_Rule where RuleID=''' + Trim(FDataID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FDataID) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('RuleID').Value := Trim(MaxId);
LRTSetsavedata(ADOQueryCmd, 'Trade_Cloth_Inspect_Rule', dxLayoutControl_pieceset, 2);
LRTSetsavedata(ADOQueryCmd, 'Trade_Cloth_Inspect_Rule', dxLayoutControl_packset, 2);
Post;
end;
ADOQueryCmd.Connection.CommitTrans;
FCCID := Trim(MaxSubId);
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存异常!', '提示', 0);
end;
end;
procedure TfrmTradeInspSet.TVolumesetClick(Sender: TObject);
begin
if CDS_Label.IsEmpty then
exit;
LabVolume.Text := trim(CDS_Label.fieldbyname('labelCaption').asstring);
end;
procedure TfrmTradeInspSet.TpacksetClick(Sender: TObject);
begin
if CDS_Label.IsEmpty then
exit;
LabPackage.Text := trim(CDS_Label.fieldbyname('labelCaption').asstring);
end;
procedure TfrmTradeInspSet.TsaveClick(Sender: TObject);
begin
if RuleLenUnit.text = '' then
begin
Application.MessageBox('长度单位不能为空!', '提示', 0);
Exit;
end;
//if trim(RuleConversion.text)='无需转换' then
// Coefficient.Text:='';
if SaveData() then
begin
if Tsave.Tag=0 then
Application.MessageBox('保存成功!', '提示', 0)
else
ModalResult:=1;
end;
end;
procedure TfrmTradeInspSet.ToolButton4Click(Sender: TObject);
var
fFileName, fPrintFile: string;
MLabelID, MLabelCaption: string;
begin
if CDS_Label.IsEmpty then
exit;
with ADOQueryRtFields do
begin
close;
sql.Clear;
sql.Add('select * from SY_ReportFields10');
sql.Add('where field_group=''label''');
sql.Add('order by order_no');
open;
end;
MLabelID := TRIM(CDS_Label.fieldByName('LabelID').asString);
MLabelCaption := TRIM(CDS_Label.fieldByName('LabelCaption').asString);
ExportFtErpFile(MLabelCaption + '.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'report\' + MLabelCaption + '.rmf';
if not FileExists(fPrintFile) then
CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'Report\模板标签.rmf'), PChar(fPrintFile), False);
with RMLabel do
begin
RMLabel.Clear;
RMDB_Label.DataSet := nil;
Dictionary.FieldAliases.Clear;
Dictionary.FieldAliases['RMDB_Label'] := '标签数据';
RMVariables.Add('QRBARCODE','[QRBARCODE]');
RMDB_Label.DataSet := ADO_1;
LoadFromFile(fPrintFile);
application.ProcessMessages;
DesignReport();
// RMLabel.SaveToFile(fPrintFile);
SaveLabel(MLabelID);
ExportToFtErp(fPrintFile, ADOQueryCmd);
end;
with RMLabel do
begin
RMLabel.LoadFromFile(fPrintFile);
Preview := RMPreview3;
ShowReport;
end;
end;
procedure TfrmTradeInspSet.TupdClick(Sender: TObject);
begin
if CDS_Label.IsEmpty then
exit;
try
frmLabelInput := TfrmLabelInput.create(self);
with frmLabelInput do
begin
fLabelId := CDS_Label.fieldByName('LabelId').AsString;
if showModal = 1 then
begin
InitLabel();
end;
end;
finally
frmLabelInput.Free;
end;
end;
procedure TfrmTradeInspSet.TVLabelCellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
fPrintFile: string;
begin
if CDS_Label.IsEmpty then
exit;
ExportFtErpFile(TRIM(CDS_Label.fieldByName('LabelCaption').asString) + '.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + CDS_Label.fieldbyname('LabelCaption').AsString + '.rmf';
if not FileExists(fPrintFile) then
CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'Report\模板标签.rmf'), PChar(fPrintFile), False);
with RMLabel do
begin
RMLabel.LoadFromFile(fPrintFile);
Preview := RMPreview3;
ShowReport;
end;
end;
procedure TfrmTradeInspSet.TVLabelDblClick(Sender: TObject);
begin
inherited;
if fSubUseFlag then
begin
ModalResult :=1;
end;
end;
end.

1451
G01贸易生产计划/U_TradePlanInPut.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

1738
G01贸易生产计划/U_TradePlanInPut.pas Normal file
View File

File diff suppressed because it is too large Load Diff

874
G01贸易生产计划/U_TradePlanList.dfm Normal file
View File

@ -0,0 +1,874 @@
inherited frmTradePlanList: TfrmTradePlanList
Left = 165
Top = 13
Caption = #29983#20135#35745#21010#21333#31649#29702
ClientHeight = 760
ClientWidth = 1540
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitWidth = 1556
ExplicitHeight = 799
PixelsPerInch = 96
TextHeight = 17
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradePlan.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 4
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBAdd: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 9
OnClick = TBAddClick
end
object btnCopy: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #22797#21046
ImageIndex = 13
OnClick = btnCopyClick
end
object TBEdit: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBDelClick
end
object ToolButton1: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #25171#21367#35774#32622
ImageIndex = 3
OnClick = ToolButton1Click
end
object TBPrint: TToolButton
Left = 450
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = TBPrintClick
end
object TBCK: TToolButton
Left = 521
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 8
OnClick = TBCKClick
end
object ToolButton4: TToolButton
Left = 592
Top = 0
AutoSize = True
Caption = #38468#20214
ImageIndex = 22
OnClick = ToolButton4Click
end
object TBTJ: TToolButton
Left = 663
Top = 0
AutoSize = True
Caption = #25552#20132
ImageIndex = 12
OnClick = TBTJClick
end
object TBTJCX: TToolButton
Left = 734
Top = 0
AutoSize = True
Caption = #25552#20132#25764#38144
ImageIndex = 11
OnClick = TBTJCXClick
end
object Tchk: TToolButton
Left = 829
Top = 0
AutoSize = True
Caption = #23457#26680
ImageIndex = 12
OnClick = TchkClick
end
object Tnochk: TToolButton
Left = 900
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 11
OnClick = TnochkClick
end
object TWC: TToolButton
Left = 995
Top = 0
AutoSize = True
Caption = #23436#25104
ImageIndex = 12
OnClick = TWCClick
end
object TNowc: TToolButton
Left = 1066
Top = 0
AutoSize = True
Caption = #25764#38144#23436#25104
ImageIndex = 11
OnClick = TNowcClick
end
object ToolButton2: TToolButton
Left = 1161
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 1256
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 51
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = 16242829
ParentBackground = False
TabOrder = 6
object Label3: TLabel
Left = 345
Top = 20
Width = 52
Height = 12
Caption = #35745#21010#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 613
Top = 119
Width = 26
Height = 12
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 665
Top = 20
Width = 26
Height = 12
Caption = #23458#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 506
Top = 20
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 812
Top = 20
Width = 39
Height = 12
Caption = #21512#21516#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 128
Top = 16
Width = 85
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464742650459811600
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 219
Top = 16
Width = 86
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
TabOrder = 2
end
object OrderNo: TEdit
Tag = 2
Left = 403
Top = 16
Width = 77
Height = 25
TabOrder = 1
OnKeyPress = OrderNoKeyPress
end
object MPRTKZ: TEdit
Tag = 2
Left = 654
Top = 99
Width = 56
Height = 25
TabOrder = 3
OnChange = OrderNoMChange
end
object ComboBox1: TComboBox
Left = 51
Top = 20
Width = 71
Height = 25
TabOrder = 4
Text = #21046#21333#26085#26399
OnChange = ComboBox1Change
Items.Strings = (
#21046#21333#26085#26399
#20132#36135#26085#26399)
end
object CustName: TEdit
Tag = 2
Left = 697
Top = 20
Width = 80
Height = 25
TabOrder = 5
OnKeyPress = OrderNoKeyPress
end
object C_Name: TEdit
Tag = 2
Left = 564
Top = 20
Width = 77
Height = 25
TabOrder = 6
OnKeyPress = OrderNoKeyPress
end
object ConNo: TEdit
Tag = 2
Left = 857
Top = 20
Width = 80
Height = 25
TabOrder = 7
OnKeyPress = OrderNoKeyPress
end
object CheckBox1: TCheckBox
Left = 28
Top = 18
Width = 19
Height = 17
Checked = True
State = cbChecked
TabOrder = 8
end
end
object cxGrid1: TcxGrid [2]
Left = 49
Top = 137
Width = 752
Height = 256
PopupMenu = PM_1
TabOrder = 3
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv1Column11
end
item
Kind = skSum
Column = Tv1Column10
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.UseOddEvenStyles = bFalse
object v1Column16: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 38
end
object v1OrdDate: TcxGridDBColumn
Caption = #21046#21333#26085#26399
DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column2: TcxGridDBColumn
Caption = #32463#33829#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 151
end
object Tv1Column4: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object v1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column5: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end
object v1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
OnCustomDrawCell = v1DeliveryDateCustomDrawCell
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column3: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column22: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89
end
object Tv1Column12: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1Column13: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
end
object Tv1Column14: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column15: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1Column16: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column11: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'HZPiQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 54
end
object Tv1Column10: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column11: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column6: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'FILLER'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxSplitter1: TcxSplitter [3]
Left = 0
Top = 556
Width = 1540
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
ExplicitWidth = 8
end
object cxTabControl1: TcxTabControl [4]
Left = 0
Top = 89
Width = 1540
Height = 33
Align = alTop
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 11
Properties.TabIndex = 0
Properties.Tabs.Strings = (
' '#24453#25552#20132' '
' '#24453#23457#26680' '
' '#24050#23457#26680' '
' '#24050#23436#25104' '
' '#20840#37096' ')
OnChange = cxTabControl1Change
ClientRectBottom = 31
ClientRectLeft = 2
ClientRectRight = 1538
ClientRectTop = 26
end
object Panel2: TPanel [5]
Left = 0
Top = 564
Width = 1540
Height = 196
Align = alBottom
BevelOuter = bvNone
Caption = 'Panel2'
TabOrder = 5
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1540
Height = 196
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PopupMenu2
TabOrder = 0
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
Column = v1PRTOrderQty
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = VC_PRTPs
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.UseOddEvenStyles = bFalse
object cxGridDBColumn1: TcxGridDBColumn
Tag = 99
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 66
end
object v1PRTColor: TcxGridDBColumn
Caption = #33521#25991#39068#33394
DataBinding.FieldName = 'C_EColor'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column5: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object VC_PRTPs: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'OrdPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'M'
'Y'
'Kg')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object TV2Column1: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object TV2Column2: TcxGridDBColumn
Caption = #20013#25991#39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Left = 257
Top = 152
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Left = 121
Top = 153
end
object cxgrdpmn1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 660
Top = 428
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 568
Top = 240
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 420
Top = 216
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 320
Top = 224
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 812
Top = 440
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 724
Top = 432
end
object ADOQuerySub: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 312
Top = 600
end
object DataSource2: TDataSource
DataSet = ORDER_SUB
Left = 408
Top = 604
end
object ADOQueryImage: TADOQuery
Connection = DataLink_TradePlan.ADOLink
EnableBCD = False
Parameters = <>
Left = 316
Top = 283
end
object DSImage: TDataSource
DataSet = ADOQueryImage
Left = 416
Top = 288
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 92
Top = 258
end
object ORDER_SUB: TClientDataSet
Aggregates = <>
Params = <>
Left = 212
Top = 608
end
object PopupMenu2: TPopupMenu
Left = 532
Top = 636
object N3: TMenuItem
Caption = #20840#36873
OnClick = N3Click
end
object N4: TMenuItem
Caption = #20840#24323
OnClick = N4Click
end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
end
object cxgrdpmn2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 660
Top = 636
end
object CDS_WXTS: TClientDataSet
Aggregates = <>
Params = <>
Left = 412
Top = 424
end
object PM_1: TPopupMenu
Left = 988
Top = 356
object N1: TMenuItem
Caption = #22797#21046
OnClick = N1Click
end
end
object GPM_3: TcxGridPopupMenu
PopupMenus = <>
Left = 860
Top = 228
end
object DS_3: TDataSource
DataSet = CDS_3
Left = 1096
Top = 404
end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 1092
Top = 304
end
end

1131
G01贸易生产计划/U_TradePlanList.pas Normal file
View File

File diff suppressed because it is too large Load Diff

1602
G01贸易生产计划/U_TradePlanMgeList.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

887
G01贸易生产计划/U_TradePlanMgeList.pas Normal file
View File

@ -0,0 +1,887 @@
unit U_TradePlanMgeList;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ToolWin, cxGraphics,
cxControls, cxLookAndFeels, cxLookAndFeelPainters,
cxContainer, cxEdit, dxLayoutcxEditAdapters, dxBarBuiltInMenu, cxPC,
dxLayoutContainer, cxClasses, cxTextEdit, dxLayoutControl, cxStyles,
cxCustomData, cxFilter, cxData, cxDataStorage, cxNavigator, dxDateRanges,
dxScrollbarAnnotations, Data.DB, cxDBData, cxCalendar, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridCustomView,
cxGrid, U_BaseList, Data.Win.ADODB, cxGridCustomPopupMenu, cxGridPopupMenu,
Datasnap.DBClient, cxCheckBox, cxButtonEdit, cxSplitter, dxCore, cxDateUtils,
cxMaskEdit, cxDropDownEdit, cxProgressBar, Vcl.Menus,
RM_Common, RM_Class, RM_GridReport, RM_Dataset, dxSkinBasic;
type
TfrmTradePlanMgeList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBAdd: TToolButton;
btnCopy: TToolButton;
TBEdit: TToolButton;
TBDel: TToolButton;
Tdjsz: TToolButton;
TBPrint: TToolButton;
TBCK: TToolButton;
ToolButton4: TToolButton;
TWC: TToolButton;
TNowc: TToolButton;
Tbcgs: TToolButton;
TBClose: TToolButton;
dxLayoutControl_query: TdxLayoutControl;
custName: TcxTextEdit;
ConNo: TcxTextEdit;
BuyConNo: TcxTextEdit;
OrderNo: TcxTextEdit;
dxLayoutControl_queryGroup_Root: TdxLayoutGroup;
dxLayoutItem1: TdxLayoutItem;
dxLayoutItem2: TdxLayoutItem;
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet;
cxTabControl1: TcxTabControl;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1OrderNo: TcxGridDBColumn;
v1custName: TcxGridDBColumn;
v1OrdDate: TcxGridDBColumn;
v1DlyDate: TcxGridDBColumn;
v1ZQty: TcxGridDBColumn;
v1OrderUnit3: TcxGridDBColumn;
v1MPRTTeBieNote: TcxGridDBColumn;
v1MPRTBZNote: TcxGridDBColumn;
v1MPRTSCTeBieNote: TcxGridDBColumn;
v1filler: TcxGridDBColumn;
v1OrdPerson2: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
v1ConNo: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
dxLayoutItem_ywy: TdxLayoutItem;
dxLayoutItem_pm: TdxLayoutItem;
ywy: TcxTextEdit;
C_Name: TcxTextEdit;
GPM_1: TcxGridPopupMenu;
ADOQueryMain: TADOQuery;
DataSource1: TDataSource;
Order_Main: TClientDataSet;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
TV2SSel: TcxGridDBColumn;
V2BuyConNo: TcxGridDBColumn;
V2C_StyleNo: TcxGridDBColumn;
V2C_Name: TcxGridDBColumn;
V2C_EName: TcxGridDBColumn;
v1C_ColorNo: TcxGridDBColumn;
v1C_Color: TcxGridDBColumn;
V2PRTCode: TcxGridDBColumn;
TV2C_EColor: TcxGridDBColumn;
v1OrdQty: TcxGridDBColumn;
v1OrdUnit: TcxGridDBColumn;
Tv2OrdSNote: TcxGridDBColumn;
v1C_Pattern: TcxGridDBColumn;
V2C_Width: TcxGridDBColumn;
V2C_GramWeight: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
v1SOrddefstr2: TcxGridDBColumn;
V2C_Spec: TcxGridDBColumn;
V2JYRoll: TcxGridDBColumn;
V2Column8: TcxGridDBColumn;
V2Column9: TcxGridDBColumn;
V2Column10: TcxGridDBColumn;
V2Column11: TcxGridDBColumn;
V2Column12: TcxGridDBColumn;
V2Column13: TcxGridDBColumn;
V2Column14: TcxGridDBColumn;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxSplitter1: TcxSplitter;
endDate: TcxDateEdit;
begdate: TcxDateEdit;
dxLayoutItem_beg: TdxLayoutItem;
dxLayoutItem_end: TdxLayoutItem;
dxLayoutItem_khdh: TdxLayoutItem;
dxLayoutItem_hth: TdxLayoutItem;
DataSource2: TDataSource;
ADOQuerySub: TADOQuery;
ORDER_SUB: TClientDataSet;
GPM_2: TcxGridPopupMenu;
Tcdgl: TToolButton;
Ttoexcel: TToolButton;
cxGrid3: TcxGrid;
tv3: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
cxGridDBColumn21: TcxGridDBColumn;
cxGridDBColumn22: TcxGridDBColumn;
cxGridDBColumn23: TcxGridDBColumn;
cxGridDBColumn24: TcxGridDBColumn;
cxGridDBColumn25: TcxGridDBColumn;
cxGridDBColumn26: TcxGridDBColumn;
cxGridDBColumn27: TcxGridDBColumn;
cxGridDBColumn28: TcxGridDBColumn;
cxGridDBColumn29: TcxGridDBColumn;
cxGridDBColumn30: TcxGridDBColumn;
cxGridDBColumn31: TcxGridDBColumn;
cxGridDBColumn32: TcxGridDBColumn;
cxGridDBColumn33: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
tv3OrderNo: TcxGridDBColumn;
tv3custName: TcxGridDBColumn;
tv3ordDate: TcxGridDBColumn;
DataSource3: TDataSource;
ADOQueryMxList: TADOQuery;
cxProgressBar1: TcxProgressBar;
GPM_3: TcxGridPopupMenu;
tv3ConNo: TcxGridDBColumn;
cds_mxlist: TClientDataSet;
Tfilter: TToolButton;
Tbqyl: TToolButton;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ADOQueryPrint: TADOQuery;
RM1: TRMGridReport;
RMDB_1: TRMDBDataSet;
procedure TBCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
procedure TBAddClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure TbcgsClick(Sender: TObject);
procedure btnCopyClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TdjszClick(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure TBCKClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure TWCClick(Sender: TObject);
procedure TNowcClick(Sender: TObject);
procedure TcdglClick(Sender: TObject);
procedure TtoexcelClick(Sender: TObject);
procedure cxPageControl1Click(Sender: TObject);
procedure OrderNoPropertiesEditValueChanged(Sender: TObject);
procedure TfilterClick(Sender: TObject);
procedure OrderNoPropertiesChange(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
canshu1, canshu2: string;
fIsLoad: Boolean;
procedure InitGrid();
procedure InitMxGrid();
procedure InitForm();
procedure InitSub();
function DelData(): Boolean;
public
end;
var
frmTradePlanMgeList: TfrmTradePlanMgeList;
implementation
uses
U_DataLink, U_RTFun, U_TradePlanInPut, U_globalVar, U_FormLayOutDesign,
U_TradeInspSet, U_AttachmentUpload, U_LabelPrint, U_ZDYHelp;
{$R *.dfm}
procedure TfrmTradePlanMgeList.btnCopyClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
with frmTradePlanInPut do begin PState := 1;
CopyInt := 99;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
canshu1 := Self.canshu1;
if ShowModal = 1 then begin
end;
end;
finally
frmTradePlanInPut.Free;
end;
end;
procedure TfrmTradePlanMgeList.cxPageControl1Click(Sender: TObject);
begin
if cxPageControl1.ActivePageIndex = 0 then begin
dxLayoutItem_khdh.Visible := false;
dxLayoutItem_pm.Visible := false;
end
else begin dxLayoutItem_khdh.Visible := true;
dxLayoutItem_pm.Visible := true;
end;
TBRafresh.Click
end;
procedure TfrmTradePlanMgeList.cxTabControl1Change(Sender: TObject);
begin TBRafresh.Click
end;
procedure TfrmTradePlanMgeList.FormClose(Sender: TObject;
var Action: TCloseAction);
begin inherited;
Action := cafree;
end;
procedure TfrmTradePlanMgeList.FormCreate(Sender: TObject);
begin inherited;
canshu1 := Trim(Self.fParameters1);
cxGrid2.Height := 250;
cxGrid1.Align := alClient;
cxPageControl1.Align := alClient;
cxPageControl1.ActivePageIndex := 0;
cxGrid3.Align := alClient;
end;
procedure TfrmTradePlanMgeList.FormDestroy(Sender: TObject);
begin inherited;
frmTradePlanMgeList := nil;
end;
procedure TfrmTradePlanMgeList.FormShow(Sender: TObject);
var
mdesignCode :string;
begin inherited;
// Scaleby(Screen.Width,1024);
InitForm();
// mdesignCode := fDllFileName +'|'+self.name+ '|' + intTostr(fformId) + '|' + 'cxgrid1';
// addQryContionByLay(ADOQueryBaseTemp,fformId,'cxgrid1',dxLayoutControl_query,7);
end;
procedure TfrmTradePlanMgeList.TBAddClick(Sender: TObject);
begin
try
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
with frmTradePlanInPut do begin PState := 0;
FMainId := '';
canshu1 := Self.canshu1;
if ShowModal = 1 then begin InitGrid();
end;
end;
finally
frmTradePlanInPut.Free;
end;
end;
procedure TfrmTradePlanMgeList.TBCKClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
with frmTradePlanInPut do begin PState := 5;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
ToolBar2.Visible := false;
TBSave.Visible := false;
if ShowModal = 1 then begin
end;
end;
finally
frmTradePlanInPut.Free;
end;
end;
procedure TfrmTradePlanMgeList.TBCloseClick(Sender: TObject);
begin inherited;
close;
end;
procedure TfrmTradePlanMgeList.TBDelClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryBaseTemp do begin close;
sql.Clear;
sql.Add('select * from Trade_Cloth_Inspect where isnull(mainID,'''')<>'''' and mainID='''
+ Trim(Order_Main.fieldbyname('mainID').AsString) + '''');
Open;
end;
if not ADOQueryBaseTemp.IsEmpty then begin
Application.MessageBox('已检验不能删除数据!', '提示', 0);
Exit;
end;
// while Order_Main.Locate('SSel', true, []) do
// begin
if Trim(Order_Main.fieldbyname('MainId').AsString) <> '' then begin DelData()
end;
Order_Main.Delete;
// end;
end;
procedure TfrmTradePlanMgeList.TBEditClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if (canshu1 <> '管理') and (canshu1 <> '高权限') then begin
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
end;
try
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
with frmTradePlanInPut do begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
FOrderNo := Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
canshu1 := Self.canshu1;
if ShowModal = 1 then begin
end;
end;
finally
frmTradePlanInPut.Free;
end;
end;
procedure TfrmTradePlanMgeList.TBPrintClick(Sender: TObject);
var
WSql: string;
begin
if Order_Main.IsEmpty then
Exit;
WSql := (Trim(Order_Main.fieldbyname('MainId').AsString));
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do begin FLMType := 'TradePlanPrint';
FFiltration1 := WSql;
if ShowModal = 1 then begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTradePlanMgeList.TBRafreshClick(Sender: TObject);
begin
if cxPageControl1.ActivePageIndex = 0 then
InitGrid()
else
InitMxGrid();
end;
procedure TfrmTradePlanMgeList.TcdglClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do begin flag := 'WFBCD';
flagname := '疵点';
fnote := true;
V1Note.Caption := '英文名称';
if ShowModal = 1 then begin
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTradePlanMgeList.TdjszClick(Sender: TObject);
begin
try
frmTradeInspSet := TfrmTradeInspSet.Create(Application);
with frmTradeInspSet do begin
FDataID := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
if ShowModal = 1 then begin
end;
end;
finally
frmTradeInspSet.Free;
end;
end;
procedure TfrmTradePlanMgeList.TNowcClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
Exit;
try
with ADOQueryBaseCmd do begin close;
sql.Clear;
sql.Add('update Trade_Plan_Main SET status=''9'' ');
sql.Add('where mainID=' + quotedstr(Trim(Order_Main.fieldbyname('mainID')
.AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(Trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(Trim(Self.Caption)));
sql.Add(',' + quotedstr(Trim('计划单撤销完成')));
sql.Add(',' + quotedstr(Trim('计划单号：' +
Trim(Order_Main.fieldbyname('orderNO').AsString))));
sql.Add(',' + quotedstr(Trim('成功')));
sql.Add(')');
execsql;
end;
Application.MessageBox('计划单撤销完成成功！', '提示信息');
TBRafresh.Click;
except
Application.MessageBox('计划单撤销完成失败！', '提示信息', 0);
end;
end;
procedure TfrmTradePlanMgeList.TbcgsClick(Sender: TObject);
begin
if cxPageControl1.ActivePageIndex = 1 then begin
WriteCxGrid('包装指示单明细列表T3', tv3, gDllFileCaption);
end
else begin WriteCxGrid('包装指示单列表T1', Tv1, gDllFileCaption);
WriteCxGrid('包装指示单列表T2', TV2, gDllFileCaption);
end;
if gIsCanDesign then
begin
saveLayOut(application,dxLayoutControl_query, ADOQueryBaseCmd, pwidechar( fDllFileName + '|' + Self.name + '|' + dxLayoutControl_query.name+ '.ini'));
end;
end;
procedure TfrmTradePlanMgeList.TtoexcelClick(Sender: TObject);
begin
if (cxPageControl1.ActivePageIndex = 0) then begin
if cxGrid2.Focused then begin TcxGridToExcel(Self.Caption, cxGrid2);
end
else begin TcxGridToExcel(Self.Caption + '-明细', cxGrid1);
end;
end
else begin
// TcxGridToExcel(Self.Caption+'-明细',cxGrid1);
end;
end;
procedure TfrmTradePlanMgeList.TfilterClick(Sender: TObject);
begin
inherited;
if cxPageControl1.ActivePageIndex = 0 then begin
try
Tv1.BeginUpdate();
if ADOQueryMain.Active then begin
SDofilter(ADOQueryMain, SLGetFilters(dxLayoutControl_query, 1, 2));
Order_Main.EmptyDataSet;
SInitCDSData(ADOQueryMain, Order_Main);
end;
finally
Tv1.EndUpdate;
end;
end
else begin
try
tv3.BeginUpdate();
if ADOQueryMxList.Active then begin
SDofilter(ADOQueryMxList, SLGetFilters(dxLayoutControl_query, 1, 2));
cds_mxlist.EmptyDataSet;
SInitCDSData(ADOQueryMxList, cds_mxlist);
end;
finally
tv3.EndUpdate;
end;
end;
end;
procedure TfrmTradePlanMgeList.ToolButton4Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do begin
if Trim(canshu1) <> '查询' then
FEditAuthority := true;
fkeyNO := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
fType := '指示单';
if ShowModal = 1 then begin
end;
end;
finally
frmAttachmentUpload.Free;
end;
end;
procedure TfrmTradePlanMgeList.Tv1FocusedRecordChanged
(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord
: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
if fIsLoad then
InitSub();
end;
procedure TfrmTradePlanMgeList.TWCClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
Exit;
try
with ADOQueryBaseCmd do begin close;
sql.Clear;
sql.Add('update Trade_Plan_Main SET status=''10'' ');
sql.Add('where mainID=' + quotedstr(Trim(Order_Main.fieldbyname('mainID')
.AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(Trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(Trim(Self.Caption)));
sql.Add(',' + quotedstr(Trim('计划单完成')));
sql.Add(',' + quotedstr(Trim('计划单号：' +
Trim(Order_Main.fieldbyname('orderNO').AsString))));
sql.Add(',' + quotedstr(Trim('成功')));
sql.Add(')');
execsql;
end;
Application.MessageBox('计划单完成成功！', '提示信息');
TBRafresh.Click;
except
Application.MessageBox('计划单完成失败！', '提示信息', 0);
end;
end;
procedure TfrmTradePlanMgeList.InitGrid();
var
strwhere: string;
mStatus: string;
begin strwhere := '';
mStatus := cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption;
strwhere := SLGetFilters(dxLayoutControl_query, 1, 2);
if Trim(strwhere) <> '' then begin strwhere := ' and ' + Trim(strwhere);
end;
if Trim(DParameters1) <> '高权限' then
strwhere := strwhere + ' and A.Filler=' + quotedstr(Trim(DName));
try
Tv1.BeginUpdate();
fIsLoad := false;
cxProgressBar1.Visible := true;
cxProgressBar1.Refresh;
Order_Main.DisableControls;
with ADOQueryMain do begin
close;
Filtered := false;
sql.Clear;
sql.Add('exec P_View_TradePlanList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql');
Parameters.ParamByName('timeType').Value := '制单日期';
Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd',
begdate.Date);
Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd',
endDate.Date + 1);
Parameters.ParamByName('mStatus').Value := mStatus;
Parameters.ParamByName('WSql').Value := strwhere;
Open;
end;
// if Order_Main.Fields.Count<=1 then
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
finally
Tv1.DataController.Filter.Clear;
Order_Main.EnableControls;
Tv1.EndUpdate;
fIsLoad := true;
InitSub();
cxProgressBar1.Visible := false;
end;
end;
procedure TfrmTradePlanMgeList.InitForm();
begin
ReadCxGrid('包装指示单列表T1', Tv1, gDllFileCaption);
ReadCxGrid('包装指示单列表T2', TV2, gDllFileCaption);
ReadCxGrid('包装指示单明细列表T3', tv3, gDllFileCaption);
endDate.Date := SGetServerDate(ADOQueryBaseTemp);
begdate.Date := endDate.Date - 15;
InitGrid();
end;
procedure TfrmTradePlanMgeList.InitSub();
begin ADOQuerySub.close;
if Order_Main.IsEmpty then
Exit;
try
TV2.BeginUpdate();
ORDER_SUB.DisableControls;
with ADOQuerySub do begin close;
sql.Clear;
sql.Add('exec P_View_TradePlanMxList_for_pack ');
sql.Add('@mainId =' + quotedstr((Order_Main.fieldbyname('mainID')
.AsString)));
Open;
end;
// if ORDER_SUB.Fields.Count<=1 then
SCreateCDS(ADOQuerySub, ORDER_SUB);
SInitCDSData(ADOQuerySub, ORDER_SUB);
finally
ORDER_SUB.EnableControls;
TV2.EndUpdate;
end;
//
end;
procedure TfrmTradePlanMgeList.N1Click(Sender: TObject);
var
FLabVolume, fPrintFile: string;
begin
if ORDER_SUB.IsEmpty then
Exit;
with ADOQueryPrint do begin close;
sql.Clear;
sql.Add(' EXEC P_Trade_Print_djd_Lab ');
sql.Add(' @CIID=''' + Trim(ORDER_SUB.fieldbyname('SUBID').AsString) + '''');
sql.Add(',@isTest =1');
Open;
end;
if Trim(ADOQueryPrint.fieldbyname('SLabVolume').AsString) <> '' then
FLabVolume := Trim(ADOQueryPrint.fieldbyname('SLabVolume').AsString)
else
FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString);
if FLabVolume = '' then begin
Application.MessageBox('还未设置卷标签！', '提示信息', MB_ICONERROR);
Exit;
end;
ExportFtErpFile(FLabVolume + '.rmf', ADOQueryBaseTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' +
FLabVolume + '.rmf';
if FileExists(fPrintFile) then begin RM1.LoadFromFile(fPrintFile);
if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> '次品标签' then
RM1.DefaultCopies := 2
else
RM1.DefaultCopies := 1;
RM1.ShowErrorMsg := false;
RM1.ShowReport;
end
else begin Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
end;
end;
procedure TfrmTradePlanMgeList.N2Click(Sender: TObject);
var
MLabPackage, fPrintFile: string;
begin
if ORDER_SUB.IsEmpty then
Exit;
with ADOQueryPrint do begin close;
sql.Clear;
sql.Add('exec P_Trade_Insp_Prt_djd_PackLab_test ');
sql.Add('@subId =' + quotedstr(Trim(ORDER_SUB.fieldbyname('SUBID')
.AsString)));
Open;
end;
if Trim(ADOQueryPrint.fieldbyname('SLabPackage').AsString) <> '' then
MLabPackage := Trim(ADOQueryPrint.fieldbyname('SLabPackage').AsString)
else
MLabPackage := Trim(ADOQueryPrint.fieldbyname('LabPackage').AsString);
if MLabPackage = '' then begin
Application.MessageBox('还未设置包标签！', '提示信息', MB_ICONERROR);
Exit;
end;
ExportFtErpFile(Trim(MLabPackage) + '.rmf', ADOQueryBaseTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' +
Trim(MLabPackage) + '.rmf';
if not FileExists(fPrintFile) then begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
Exit;
end;
if FileExists(fPrintFile) then begin RM1.LoadFromFile(fPrintFile);
RM1.DefaultCopies := 1;
RM1.ShowErrorMsg := false;
RM1.ShowReport;
end
else begin Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
end;
end;
procedure TfrmTradePlanMgeList.OrderNoPropertiesChange(Sender: TObject);
begin inherited;
Tfilter.Click;
end;
procedure TfrmTradePlanMgeList.OrderNoPropertiesEditValueChanged
(Sender: TObject);
begin inherited;
InitGrid();
end;
procedure TfrmTradePlanMgeList.InitMxGrid();
var
strwhere: string;
mStatus: string;
begin strwhere := '';
try
cxProgressBar1.Visible := true;
cxProgressBar1.Refresh;
cxProgressBar1.Reset;
strwhere := SLGetFilters(dxLayoutControl_query, 1, 2);
mStatus := cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption;
if Trim(DParameters1) <> '高权限' then
strwhere := strwhere + ' and A.Filler=' + quotedstr(Trim(DName));
cds_mxlist.DisableControls;
with ADOQueryMxList do begin close;
Filtered := false;
sql.Clear;
sql.Add('exec P_View_TradePlanMxList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql');
Parameters.ParamByName('timeType').Value := '制单日期';
Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd',
begdate.Date);
Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd',
endDate.Date + 1);
Parameters.ParamByName('mStatus').Value := mStatus;
Parameters.ParamByName('WSql').Value := strwhere;
Open;
end;
// if cds_mxlist.Fields.Count<=1 then
SCreateCDS(ADOQueryMxList, cds_mxlist);
SInitCDSData(ADOQueryMxList, cds_mxlist);
cds_mxlist.EnableControls;
tv3.DataController.Filter.Clear;
finally
cxProgressBar1.Visible := false;
end;
end;
function TfrmTradePlanMgeList.DelData(): Boolean;
begin
try
Result := false;
ADOQueryBaseCmd.Connection.BeginTrans;
with ADOQueryBaseCmd do begin close;
sql.Clear;
sql.Add('delete Trade_Plan_Main where MainId=''' +
Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
sql.Add('delete Trade_Plan_Sub where MainId=''' +
Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
sql.Add('delete Trade_Plan_Fty where MainId=''' +
Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(Trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(Trim(Self.Caption)));
sql.Add(',' + quotedstr(Trim('指示单删除')));
sql.Add(',' + quotedstr(Trim('指示单号：' +
Trim(Order_Main.fieldbyname('OrderNO').AsString))));
sql.Add(',' + quotedstr(Trim('成功')));
sql.Add(')');
execsql;
end;
ADOQueryBaseCmd.Connection.CommitTrans;
Result := true;
except
ADOQueryBaseCmd.Connection.RollbackTrans;
Application.MessageBox('数据删除异常！', '提示', 0);
end;
end;
end.

77
G01贸易生产计划/U_iniParam.pas Normal file
View File

@ -0,0 +1,77 @@
unit U_iniParam;
interface
uses
IniFiles, SysUtils;
var
Filename: string; //文件名
iParam2: integer;
bParam1: Boolean;
bParam2: Boolean;
SCXFlag: string; //生产线 根据此标志获取卷条码前缀 不能包含字母 1,2
SCXCount: string; //机台个数
PortNoStr: string; //端口号
DllName: string; //端口Dll文件
DZCDYDllName: string; //电子秤调用Dll文件
MBDYDllName: string; // 码表调用Dll文件
function IsINIFile(): Boolean; //判断InI配置文件是否存在
procedure ReadINIFile();
procedure WriteINIFile();
implementation
///////////////////////////////////////////////////////////////////
//读取ini文件设置参数
//参数：
////////////////////////////////////////////////////////////////////
procedure ReadINIFile();
var
programIni: Tinifile; //配置文件名
begin
FileName := ExtractFilePath(Paramstr(0)) + 'File.INI';
programIni := Tinifile.create(FileName);
SCXFlag := programIni.ReadString('生产车间配置', '卷条码机台标志', '1');
SCXCount := programIni.ReadString('生产车间配置', '机台个数', '1');
PortNoStr := programIni.ReadString('生产车间配置', '端口号', 'com1');
DllName := programIni.ReadString('生产车间配置', '端口Dll文件', 'JZCRS323C.DLL');
DZCDYDllName := programIni.ReadString('生产车间配置', '电子秤调用Dll文件', '');
MBDYDllName := programIni.ReadString('生产车间配置', '码表调用Dll文件', '');
programIni.Free;
end;
//////////////////////////////////////////////////////////////////
//写设置信息到INI文件
//参数
//////////////////////////////////////////////////////////////////
procedure WriteINIFile();
var
programIni: Tinifile; //配置文件名
begin
FileName := ExtractFilePath(Paramstr(0)) + 'File.INI';
programIni := Tinifile.create(FileName);
programIni.WriteString('生产车间配置', '卷条码机台标志', SCXFlag);
programIni.WriteString('生产车间配置', '机台个数', SCXCount);
programIni.WriteString('生产车间配置', '端口号', PortNoStr);
programIni.WriteString('生产车间配置', '端口Dll文件', DllName);
programIni.Free;
end;
//////////////////////////////////////////////////////////////////
//判断InI文件是否存在
//////////////////////////////////////////////////////////////////
function IsINIFile(): Boolean;
begin
FileName := ExtractFilePath(Paramstr(0)) + 'File.INI';
if FileExists(FileName) then
Result := true
else
Result := false;
end;
end.

263
G01贸易生产计划/U_testdll.dfm Normal file
View File

@ -0,0 +1,263 @@
object Form1: TForm1
Left = 203
Top = 121
Caption = 'Form1'
ClientHeight = 426
ClientWidth = 716
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIForm
Menu = MainMenu1
OldCreateOrder = False
WindowState = wsMaximized
OnClose = FormClose
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 716
Height = 25
ButtonWidth = 57
Caption = 'ToolBar1'
Images = ImageList1
TabOrder = 0
object Edit1: TEdit
Left = 0
Top = 0
Width = 81
Height = 22
TabOrder = 0
Text = '1'
end
object ToolButton1: TToolButton
Left = 81
Top = 0
Caption = #20851#38381
ImageIndex = 0
OnClick = ToolButton1Click
end
object Label1: TLabel
Left = 138
Top = 0
Width = 79
Height = 22
Caption = ' DllName'#65306
end
object DllName: TEdit
Left = 217
Top = 0
Width = 135
Height = 22
TabOrder = 1
end
end
object cxGrid1: TcxGrid
Left = 176
Top = 176
Width = 505
Height = 200
TabOrder = 1
Visible = False
object tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
object tv1Column1: TcxGridDBColumn
DataBinding.IsNullValueType = True
end
object tv1Column2: TcxGridDBColumn
DataBinding.IsNullValueType = True
end
object tv1Column3: TcxGridDBColumn
DataBinding.IsNullValueType = True
end
object tv1Column4: TcxGridDBColumn
DataBinding.IsNullValueType = True
end
object tv1Column5: TcxGridDBColumn
DataBinding.IsNullValueType = True
end
end
object cxGrid1Level1: TcxGridLevel
GridView = tv1
end
end
object MainMenu1: TMainMenu
Left = 232
Top = 40
object test1: TMenuItem
Caption = 'test'
OnClick = test1Click
end
object test11: TMenuItem
Caption = 'test1'
OnClick = test11Click
end
end
object ImageList1: TImageList
Left = 320
Top = 56
Bitmap = {
494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000001000000001002000000000000010
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000EFEFEF000000
0000EFEFEF00EFEFEF000000000000000000EFEFEF0000000000000000000000
0000EFEFEF00EFEFEF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000EFEFEF0000000000EFEFEF00EFEFEF0000000000EFEFEF00000000008080
00008080000000000000C0C0C000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000EFEFEF00EFEFEF000000
0000EFEFEF00EFEFEF000000000000000000C0C0C00000000000000000008080
00008080000080800000EFEFEF00EFEFEF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000EFEFEF0000000000000000000000000000000000000000008080
0000808000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000EFEFEF0000000000808080008080800080808000000000008080
0000808000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000008080000000000000808080008080800080808000000000008080
0000000000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000EFEFEF00EFEF
EF0000000000FFFF000080800000000000008080800080808000000000000000
0000000000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FFFF0000FFFF0000808000000000000080808000000000008080
0000000000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000808000008080
000080800000FFFF0000FFFF0000FFFF00000000000080808000000000008080
0000808000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000FFFF0000FFFF
0000FFFF0000FFFF000000000000FFFF00000000000080808000000000008080
0000808000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FFFF0000FFFF0000FFFF00000000000080808000000000008080
0000808000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000808000000000000080808000808080008080800080808000FFFF
0000808000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000808080008080800080808000808080000000
0000808000008080000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000100000000100010000000000800000000000000000000000
000000000000000000000000FFFFFF00FFFF000000000000D343000000000000
F4810000000000009340000000000000F801000000000000F001000000000000
F001000000000000C001000000000000C001000000000000C001000000000000
C201000000000000C001000000000000F001000000000000F001000000000000
FC03000000000000FFFF00000000000000000000000000000000000000000000
000000000000}
end
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ' +
'ID=sa;Initial Catalog=rzdata;Data Source=6GMFFMYKYMJDZW7'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 408
Top = 64
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 592
Top = 104
end
end

146
G01贸易生产计划/U_testdll.pas Normal file
View File

@ -0,0 +1,146 @@
unit U_testdll;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Menus, ToolWin, ComCtrls, ImgList, DB, ADODB,
System.ImageList, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit, cxNavigator, dxDateRanges,
dxScrollbarAnnotations, cxDBData, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxGridCustomView, cxGrid;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
test1: TMenuItem;
ToolBar1: TToolBar;
Edit1: TEdit;
ToolButton1: TToolButton;
ImageList1: TImageList;
ADOConnection1: TADOConnection;
DllName: TEdit;
Label1: TLabel;
tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
tv1Column1: TcxGridDBColumn;
tv1Column2: TcxGridDBColumn;
tv1Column3: TcxGridDBColumn;
tv1Column4: TcxGridDBColumn;
tv1Column5: TcxGridDBColumn;
test11: TMenuItem;
ADOQuery1: TADOQuery;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure test1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure test11Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
newh: hwnd;
ss:string;
implementation
{$R *.dfm}
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
sendmessage(newh, 1034, 4, 0);
Action := cafree;
end;
procedure TForm1.test11Click(Sender: TObject);
type
TMyFunc = function(mCxGridView: TcxGridDBTableView; ADOCmd: TADOQuery;xx:PWideChar): String; stdcall;
var
Tf: TMyFunc;
Tp: TFarProc;
Th: Thandle;
begin
Th := LoadLibrary('djdPackPlan.dll');
if Th > 0 then
begin
try
Tp := GetProcAddress(Th, 'test1');
if Tp <> nil then
begin
Tf := TMyFunc(Tp);
ss := Tf(Tv1,ADOQuery1,PWideChar('中国'));
ShowMessage(ss);
end
else
begin
ShowMessage('打印执行错误');
end;
finally
// FreeLibrary();
end;
end
else
begin
ShowMessage('找不到' + Trim(DllName.Text));
end;
end;
procedure TForm1.test1Click(Sender: TObject);
type
TMyFunc = function(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; stdcall;
var
Tf: TMyFunc;
Tp: TFarProc;
Th: Thandle;
begin
//静态加载
//newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa'));
//动态加载
// showMessage(intTostr(application.Handle));
Th := LoadLibrary('djdPackPlan.dll');
if Th > 0 then
begin
try
Tp := GetProcAddress(Th, 'GetDllForm');
if Tp <> nil then
begin
Tf := TMyFunc(Tp);
newh := Tf(Application, 0, strToint(edit1.text), 0, 0, PChar('admin'), PChar('admin'), PChar('datebase'), PChar('title'), PChar(''), PChar(''), '', '', '', '', '', '', '', '', '');
end
else
begin
ShowMessage('打印执行错误');
end;
finally
// FreeLibrary();
end;
end
else
begin
ShowMessage('找不到' + Trim(DllName.Text));
end;
end;
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
sendmessage(newh, 1034, 1, 0);
end;
end.

2
G01贸易生产计划/consvr.ini Normal file
View File

@ -0,0 +1,2 @@
[SERVER]
SERVER=192.168.88.254

8069
G01贸易生产计划/devchs.ini Normal file
View File

File diff suppressed because it is too large Load Diff

73
G01贸易生产计划/djdPackPlan.dpr Normal file
View File

@ -0,0 +1,73 @@
library djdPackPlan;
uses
SysUtils,
classes,
forms,
WinTypes,
WinProcs,
midaslib,
U_GetDllForm in 'U_GetDllForm.pas',
U_DataLink in 'U_DataLink.pas' {DataLink_TradePlan: TDataModule},
U_iniParam in 'U_iniParam.pas',
U_BaseHelp in '..\..\..\public10\design\U_BaseHelp.pas' {frmBaseHelp},
U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList},
U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas',
U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
U_CompressionFun in '..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas',
U_RTFun in '..\..\..\public10\ThreeFun\Fun\U_RTFun.pas',
U_AttachmentUpload in '..\A00通用窗体\U_AttachmentUpload.pas' {frmFjList_RZ},
U_ClothInfoSel in '..\A00通用窗体\U_ClothInfoSel.pas' {frmClothInfoSel},
U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
// U_TradeSalesContractSel in '..\G00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
U_TradePlanList in 'U_TradePlanList.pas' {frmTradePlanList},
U_TradeInspSet in 'U_TradeInspSet.pas' {frmTradeInspSet},
U_ProductOrderNewList in 'U_ProductOrderNewList.pas' {frmProductOrderNewList},
U_OrderInPut in 'U_OrderInPut.pas' {frmOrderInPut},
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
U_ZDYHelpSel in '..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
getpic in 'getpic.pas' {FormGetPic},
U_SysLogOrder in 'U_SysLogOrder.pas' {frmSysLogOrder},
U_SysLogOrderzsd in 'U_SysLogOrderzsd.pas' {frmSysLogOrderzsd},
U_MJSJFX in 'U_MJSJFX.pas' {frmMJSJFX},
U_TradePlanMgeList in 'U_TradePlanMgeList.pas' {frmTradePlanMgeList},
U_TradePlanInPut in 'U_TradePlanInPut.pas' {frmTradePlanInPut},
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
U_PictureList in '..\A00通用窗体\U_PictureList.pas' {frmPictureList},
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
{$R *.res}
procedure DllEnterPoint(dwReason: DWORD); far; stdcall;
begin
DLLProc := @DLLEnterPoint;
DllEnterPoint(DLL_PROCESS_ATTACH);
end;
procedure DLLUnloadProc(Reason: Integer); register;
begin
// if (Reason = DLL_PROCESS_DETACH) or (Reason = DLL_THREAD_DETACH) then
// Application := NewDllApp;
end;
exports
GetDllForm;
begin
try
NewDllApp := Application;
DLLProc := @DLLUnloadProc;
except
end;
end.

956
G01贸易生产计划/djdPackPlan.dproj Normal file
View File

@ -0,0 +1,956 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{6FC06C51-7AC1-4C5D-89A2-B001F2902A00}</ProjectGuid>
<MainSource>djdPackPlan.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms>
<AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
<Base_iOSDevice64>true</Base_iOSDevice64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
<Cfg_2_Android64>true</Cfg_2_Android64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
<Cfg_2_OSX64>true</Cfg_2_OSX64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_E>false</DCC_E>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_N>false</DCC_N>
<DCC_S>false</DCC_S>
<DCC_ImageBase>00400000</DCC_ImageBase>
<GenDll>true</GenDll>
<SanitizedProjectName>djdPackPlan</SanitizedProjectName>
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;Data.Win;System.Win;$(DCC_Namespace)</DCC_Namespace>
<VerInfo_Locale>2052</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<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_Locale>1033</VerInfo_Locale>
<Icon_MainIcon>djdPackPlan_Icon.ico</Icon_MainIcon>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<Icon_MainIcon>djdPackPlan_Icon.ico</Icon_MainIcon>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_DebugInformation>0</DCC_DebugInformation>
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<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>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10myBahong\G01贸易生产计划\testDll.exe</Debugger_HostApplication>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="U_GetDllForm.pas"/>
<DCCReference Include="U_DataLink.pas">
<Form>DataLink_TradePlan</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="U_iniParam.pas"/>
<DCCReference Include="..\..\..\public10\design\U_BaseHelp.pas">
<Form>frmBaseHelp</Form>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseInput.pas">
<Form>frmBaseInput</Form>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseList.pas">
<Form>frmBaseList</Form>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<DCCReference Include="..\A00通用窗体\U_AttachmentUpload.pas">
<Form>frmFjList_RZ</Form>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_ClothInfoSel.pas">
<Form>frmClothInfoSel</Form>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_CompanySel.pas">
<Form>frmCompanySel</Form>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_EmployeeSel.pas">
<Form>frmEmployeeSel</Form>
</DCCReference>
<DCCReference Include="U_TradePlanList.pas">
<Form>frmTradePlanList</Form>
</DCCReference>
<DCCReference Include="U_TradeInspSet.pas">
<Form>frmTradeInspSet</Form>
</DCCReference>
<DCCReference Include="U_ProductOrderNewList.pas">
<Form>frmProductOrderNewList</Form>
</DCCReference>
<DCCReference Include="U_OrderInPut.pas">
<Form>frmOrderInPut</Form>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
<Form>BaseDataLink</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_LabelMapSet.pas">
<Form>frmLabelMapSet</Form>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_LabelPrint.pas">
<Form>frmLabelPrint</Form>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas">
<Form>frmZDYHelp</Form>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas">
<Form>frmZDYHelpSel</Form>
</DCCReference>
<DCCReference Include="getpic.pas">
<Form>FormGetPic</Form>
</DCCReference>
<DCCReference Include="U_SysLogOrder.pas">
<Form>frmSysLogOrder</Form>
</DCCReference>
<DCCReference Include="U_SysLogOrderzsd.pas">
<Form>frmSysLogOrderzsd</Form>
</DCCReference>
<DCCReference Include="U_MJSJFX.pas">
<Form>frmMJSJFX</Form>
</DCCReference>
<DCCReference Include="U_TradePlanMgeList.pas">
<Form>frmTradePlanMgeList</Form>
</DCCReference>
<DCCReference Include="U_TradePlanInPut.pas">
<Form>frmTradePlanInPut</Form>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<DCCReference Include="..\A00通用窗体\U_PictureList.pas">
<Form>frmPictureList</Form>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_PictureUpload.pas">
<Form>frmPictureUpload</Form>
</DCCReference>
<DCCReference Include="..\A00通用组件\FrameDateSel.pas">
<Form>frmFrameDateSel</Form>
<FormType>dfm</FormType>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">djdPackPlan.dpr</Source>
</Source>
</Delphi.Personality>
<Platforms>
<Platform value="Android64">True</Platform>
<Platform value="iOSDevice64">True</Platform>
<Platform value="Linux64">True</Platform>
<Platform value="OSX64">True</Platform>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
<Deployment Version="3">
<DeployFile LocalName="djdPackPlan.dll" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32">
<RemoteName>djdPackPlan.dll</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployClass Name="AdditionalDebugSymbols">
<Platform Name="OSX32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidClassesDexFile">
<Platform Name="Android">
<RemoteDir>classes</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>classes</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidFileProvider">
<Platform Name="Android">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidGDBServer">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiFile">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiv7aFile">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeMipsFile">
<Platform Name="Android">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\arm64-v8a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput_Android32">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashImageDef">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStyles">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStylesV21">
<Platform Name="Android">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Colors">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_DefaultAppIcon">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon144">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon192">
<Platform Name="Android">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon24">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage426">
<Platform Name="Android">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage470">
<Platform Name="Android">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage640">
<Platform Name="Android">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage960">
<Platform Name="Android">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Strings">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyFramework">
<Platform Name="OSX32">
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="OSX64">
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="OSX32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="DependencyPackage">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="File">
<Platform Name="Android">
<Operation>0</Operation>
</Platform>
<Platform Name="Android64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>0</Operation>
</Platform>
<Platform Name="OSX32">
<Operation>0</Operation>
</Platform>
<Platform Name="OSX64">
<Operation>0</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iOS_AppStore1024">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_AppIcon152">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_AppIcon167">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_LaunchDark2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Notification40">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Setting58">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_SpotLight80">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_AppIcon120">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_AppIcon180">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch3x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_LaunchDark2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_LaunchDark3x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Notification40">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Notification60">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Setting58">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Setting87">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Spotlight120">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Spotlight80">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectAndroidManifest">
<Platform Name="Android">
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSEntitlements"/>
<DeployClass Name="ProjectiOSInfoPList"/>
<DeployClass Name="ProjectiOSLaunchScreen"/>
<DeployClass Name="ProjectiOSResource">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXDebug"/>
<DeployClass Name="ProjectOSXEntitlements"/>
<DeployClass Name="ProjectOSXInfoPList"/>
<DeployClass Name="ProjectOSXResource">
<Platform Name="OSX32">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="ProjectOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\arm64-v8a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="Linux64">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOutput_Android32">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectUWPManifest">
<Platform Name="Win32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo150">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo44">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
</Deployment>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
</Project>

106
G01贸易生产计划/djdPackPlan.dproj.local Normal file
View File

@ -0,0 +1,106 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
<File Path="cloud-messaging.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10myBahong"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
<File Path="..\A00通用窗体\U_ClothInfoSel.pas"/>
<File Path="..\A00通用窗体\U_ClothInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_CompanySel.pas"/>
<File Path="..\A00通用窗体\U_CompanySel.dfm"/>
<File Path="..\A00通用窗体\U_EmployeeSel.pas"/>
<File Path="..\A00通用窗体\U_EmployeeSel.dfm"/>
<File Path="..\A00通用窗体\U_LabelMapSet.pas"/>
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="..\A00通用窗体\U_PictureList.pas"/>
<File Path="..\A00通用窗体\U_PictureList.dfm"/>
<File Path="..\A00通用窗体\U_PictureUpload.pas"/>
<File Path="..\A00通用窗体\U_PictureUpload.dfm"/>
<File Path="..\A00通用组件"/>
<File Path="..\A00通用组件\FrameDateSel.pas"/>
<File Path="..\A00通用组件\FrameDateSel.dfm"/>
<File Path="..\G00贸易通用窗体"/>
<File Path="..\G00贸易通用窗体\U_TradeSalesContractSel.pas"/>
<File Path="D:\Dp10RepoV1"/>
<File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.dfm"/>
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
<File Path="..\..\..\public10\design\U_BaseHelp.dfm"/>
<File Path="..\..\..\public10\design\U_BaseInput.pas"/>
<File Path="..\..\..\public10\design\U_BaseInput.dfm"/>
<File Path="..\..\..\public10\design\U_BaseList.pas"/>
<File Path="..\..\..\public10\design\U_BaseList.dfm"/>
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Form"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.dfm"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.dfm"/>
<File Path="..\..\..\public10\ThreeFun\Fun"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<File Path="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<File Path="getpic.pas"/>
<File Path="getpic.dfm"/>
<File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/>
<File Path="U_GetDllForm.pas"/>
<File Path="U_iniParam.pas"/>
<File Path="U_MJSJFX.pas"/>
<File Path="U_MJSJFX.dfm"/>
<File Path="U_OrderInPut.pas"/>
<File Path="U_OrderInPut.dfm"/>
<File Path="U_ProductOrderNewList.pas"/>
<File Path="U_ProductOrderNewList.dfm"/>
<File Path="U_SysLogOrder.pas"/>
<File Path="U_SysLogOrder.dfm"/>
<File Path="U_SysLogOrderzsd.pas"/>
<File Path="U_SysLogOrderzsd.dfm"/>
<File Path="U_TradeInspSet.pas"/>
<File Path="U_TradeInspSet.dfm"/>
<File Path="U_TradePlanInPut.pas"/>
<File Path="U_TradePlanInPut.dfm"/>
<File Path="U_TradePlanList.pas"/>
<File Path="U_TradePlanList.dfm"/>
<File Path="U_TradePlanMgeList.pas"/>
<File Path="U_TradePlanMgeList.dfm"/>
</ProjectSortOrder>
</BorlandProject>

BIN
G01贸易生产计划/djdPackPlan.identcache Normal file
View File

Binary file not shown.

BIN
G01贸易生产计划/djdPackPlan.otares Normal file
View File

Binary file not shown.

BIN
G01贸易生产计划/djdPackPlan.res Normal file
View File

Binary file not shown.

62
G01贸易生产计划/djdPackPlan.skincfg Normal file
View File

@ -0,0 +1,62 @@
[ExpressSkins]
Default=1
ShowNotifications=0
Enabled=1
dxSkinBasic=0
dxSkinBlack=0
dxSkinBlue=0
dxSkinBlueprint=0
dxSkinCaramel=0
dxSkinCoffee=0
dxSkinDarkroom=0
dxSkinDarkSide=0
dxSkinDevExpressDarkStyle=0
dxSkinDevExpressStyle=0
dxSkinFoggy=0
dxSkinGlassOceans=0
dxSkinHighContrast=0
dxSkiniMaginary=0
dxSkinLilian=0
dxSkinLiquidSky=0
dxSkinLondonLiquidSky=0
dxSkinMcSkin=0
dxSkinMetropolis=0
dxSkinMetropolisDark=0
dxSkinMoneyTwins=0
dxSkinOffice2007Black=0
dxSkinOffice2007Blue=0
dxSkinOffice2007Green=0
dxSkinOffice2007Pink=0
dxSkinOffice2007Silver=0
dxSkinOffice2010Black=0
dxSkinOffice2010Blue=0
dxSkinOffice2010Silver=0
dxSkinOffice2013DarkGray=0
dxSkinOffice2013LightGray=0
dxSkinOffice2013White=0
dxSkinOffice2016Colorful=0
dxSkinOffice2016Dark=0
dxSkinOffice2019Black=0
dxSkinOffice2019Colorful=0
dxSkinOffice2019DarkGray=0
dxSkinOffice2019White=0
dxSkinPumpkin=0
dxSkinSeven=0
dxSkinSevenClassic=0
dxSkinSharp=0
dxSkinSharpPlus=0
dxSkinSilver=0
dxSkinSpringtime=0
dxSkinStardust=0
dxSkinSummer2008=0
dxSkinTheAsphaltWorld=0
dxSkinTheBezier=0
dxSkinsDefaultPainters=1
dxSkinValentine=0
dxSkinVisualStudio2013Blue=0
dxSkinVisualStudio2013Dark=0
dxSkinVisualStudio2013Light=0
dxSkinVS2010=0
dxSkinWhiteprint=0
dxSkinWXI=1
dxSkinXmas2008Blue=0

BIN
G01贸易生产计划/djdPackPlan_Icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 766 B

140
G01贸易生产计划/getpic.dfm Normal file
View File

@ -0,0 +1,140 @@
object FormGetPic: TFormGetPic
Left = 244
Top = 118
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #33719#21462#22270#29255
ClientHeight = 449
ClientWidth = 670
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Image2: TImage
Left = 464
Top = 8
Width = 160
Height = 120
end
object SpeedButton1: TSpeedButton
Left = 500
Top = 334
Width = 80
Height = 22
Caption = #25171#24320#22270#29255'...'
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 500
Top = 380
Width = 80
Height = 22
Caption = #30830#23450
Enabled = False
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 500
Top = 426
Width = 80
Height = 22
Caption = #25918#24323
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 500
Top = 358
Width = 80
Height = 22
Caption = #22270#29255#21478#23384'...'
OnClick = SpeedButton4Click
end
object SpeedButton5: TSpeedButton
Left = 500
Top = 404
Width = 80
Height = 22
Caption = #21024#38500
OnClick = SpeedButton5Click
end
object ScrollBox1: TScrollBox
Left = 5
Top = 5
Width = 440
Height = 440
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
TabOrder = 0
object Image1: TImage
Left = 0
Top = 0
Width = 437
Height = 436
Cursor = crSizeAll
AutoSize = True
Center = True
IncrementalDisplay = True
OnMouseDown = Image1MouseDown
OnMouseMove = Image1MouseMove
end
end
object Button1: TButton
Left = 464
Top = 252
Width = 81
Height = 21
Caption = #25171#24320#25668#20687#22836
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 560
Top = 252
Width = 81
Height = 21
Caption = #25235#22270
TabOrder = 2
OnClick = Button2Click
end
object OpenPictureDialog1: TOpenPictureDialog
DefaultExt = 'jpg'
Filter = 'JPEG '#22270#24418#25991#20214' (*.jpg)|*.jpg'
Left = 568
Top = 152
end
object ADOQuery1: TADOQuery
Parameters = <>
Left = 504
Top = 280
end
object SaveDialog1: TSavePictureDialog
Filter = 'JPG'#22270#29255#26684#24335' (*.JPG)|*.JPG'
Left = 568
Top = 299
end
object adoqueryImage: TADOQuery
Parameters = <>
Left = 488
Top = 184
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 476
Top = 142
end
end

551
G01贸易生产计划/getpic.pas Normal file
View File

@ -0,0 +1,551 @@
unit getpic;
interface
uses
Windows, Messages, SysUtils, strUtils,Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, ExtCtrls, jpeg, IniFiles, ExtDlgs,
Buttons, StdCtrls, DB, ADODB, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdFTP, IdExplicitTLSClientServerBase;
type
TFormGetPic = class(TForm)
ScrollBox1: TScrollBox;
Image1: TImage;
OpenPictureDialog1: TOpenPictureDialog;
Image2: TImage;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
Button1: TButton;
Button2: TButton;
ADOQuery1: TADOQuery;
SpeedButton4: TSpeedButton;
SaveDialog1: TSavePictureDialog;
adoqueryImage: TADOQuery;
IdFTP1: TIdFTP;
SpeedButton5: TSpeedButton;
procedure ToolButton1Click(Sender: TObject);
procedure TwainTwainAcquire(Sender: TObject; const Index: Integer;
Image: TBitmap; var Cancel: Boolean);
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure Initimage();
procedure SpeedButton5Click(Sender: TObject);
private
hWndC : THandle;
CapturingAVI : bool;
{ Private declarations }
ClickPos: TPoint;
SelectedSource, PicLeft, PicTop, PicWidth, PicHeight: Integer;
procedure CreThumb(Width, Height: Integer);
function SaveImage():Boolean;
public
FilePath:string;
FileName:string;
FTFType:string;
pat1:string;
pic1:string;
fkeyNo:string;
fFlileFlag:string;
{ Public declarations }
MyJpeg: TJPEGImage;
// JPStream: TMemoryStream;
end;
var
FormGetPic: TFormGetPic;
implementation
uses U_DataLink,U_RTFun;
const WM_CAP_START = WM_USER;
const WM_CAP_STOP = WM_CAP_START + 68;
const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10;
const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11;
const WM_CAP_SAVEDIB = WM_CAP_START + 25;
const WM_CAP_GRAB_FRAME = WM_CAP_START + 60;
const WM_CAP_SEQUENCE = WM_CAP_START + 62;
const WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20;
const WM_CAP_SEQUENCE_NOFILE =WM_CAP_START+ 63 ;
const WM_CAP_SET_OVERLAY =WM_CAP_START+ 51 ;
const WM_CAP_SET_PREVIEW =WM_CAP_START+ 50 ;
const WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START +6;
const WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START +2;
const WM_CAP_SET_CALLBACK_STATUSA= WM_CAP_START +3;
const WM_CAP_SET_CALLBACK_FRAME= WM_CAP_START +5;
const WM_CAP_SET_SCALE=WM_CAP_START+ 53 ;
const WM_CAP_SET_PREVIEWRATE=WM_CAP_START+ 52 ;
function capCreateCaptureWindowA(lpszWindowName : PCHAR;
dwStyle : longint;
x : integer;
y : integer;
nWidth : integer;
nHeight : integer;
ParentWin : HWND;
nId : integer): HWND;
STDCALL EXTERNAL 'AVICAP32.DLL';
{$R *.dfm}
procedure TFormGetPic.Initimage();
var
jpg:TJpegImage;
myStream: TADOBlobStream;
sFieldName:string;
JPStream: TMemoryStream;
begin
jpg:=TJpegImage.Create();
JPStream := TMemoryStream.Create;
try
with adoqueryImage do
begin
close;
sql.Clear;
sql.Add('select * from TP_File where WBID='+quotedstr(trim(fkeyNo)));
open;
IF not IsEmpty then
begin
IF not fieldbyname(pic1).IsNull then
begin
myStream:=tadoblobstream.Create(tblobfield(adoqueryImage.fieldbyname(pic1)),bmread);
jpg.LoadFromStream(myStream);
Image2.Picture.Assign(jpg);
myStream.Free;
try
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','服务器地址','127.0.0.1');
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
except
;
end;
JPStream.Clear;
if IdFTP1.Connected then
begin
try
IdFTP1.Get(fFlileFlag+'\'+ Trim(fieldbyname(pat1).AsString), JPStream);
except
Application.MessageBox('客户图样文件不存在', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
end
else
begin
Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
if IdFTP1.Connected then IdFTP1.Quit;
JPStream.Position := 0;
jpg.LoadFromStream(JPStream);
Image1.Picture.Assign(jpg);
end;
end;
end;
finally
jpg.free;
JPStream.Free;
end;
end;
function TFormGetPic.SaveImage():Boolean;
var
myStream: TADOBlobStream;
maxNo:string;
fNewFileName:string;
begin
fNewFileName:=formatdatetime('yyyyMMddhhnnsszzz',now())+ExtractFileExt(FilePath);
IF fkeyNO='' then fkeyNO:=fNewFileName;
result:=false;
try
with adoqueryImage do
begin
close;
sql.Clear;
sql.Add('select * from TP_File where WBID='+quotedstr(trim(fkeyNo)));
sql.Add('and TFType='+quotedstr(trim(FTFType)));
open;
if RecordCount<=0 then
begin
Append;
if GetLSNo(ADOQuery1,maxNo,'FJ','TP_File',4,1)=False then
begin
Application.MessageBox('取最大号失败！','提示',0);
Exit;
end;
fieldByName('TFID').AsString := maxNo;
fieldByName('WBID').AsString := fkeyNO;
end
else
begin
edit;
end;
fieldByName(pat1).AsString :=trim(fNewFileName);
fieldByName('Filler').AsString :=trim(dName);
fieldByName('TFType').AsString :=trim(FTFType);
myStream := TADOBlobStream.Create(TBlobField(FieldByName(pic1)), bmWrite);
MyJpeg.Assign(Image2.Picture.Graphic);
MyJpeg.SaveToStream(myStream);
myStream.Free;
Post;
end;
if FilePath <> '' then
begin
try
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','服务器地址','127.0.0.1');
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
IdFTP1.Put(FilePath, fFlileFlag+'\' + Trim(fNewFileName));
IdFTP1.Quit;
except
IdFTP1.Quit;
Application.MessageBox('上传客户图样文件失败，请检查文件服务器！', '提示', MB_ICONWARNING);
end;
end;
IdFTP1.Quit;
result:=true;
except
myStream.Free;
end;
end;
procedure TFormGetPic.ToolButton1Click(Sender: TObject);
var
Ini: TIniFile;
begin
end;
procedure TFormGetPic.TwainTwainAcquire(Sender: TObject;
const Index: Integer; Image: TBitmap; var Cancel: Boolean);
begin
Image1.Picture.Assign(Image);
Cancel := TRUE;
CreThumb(150, 150);
SpeedButton2.Enabled := TRUE;
end;
procedure TFormGetPic.FormShow(Sender: TObject);
var
Ini: TIniFile;
begin
{ Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'scanner.ini');
try
SelectedSource := Ini.ReadInteger( 'SCANNER', 'Scanner', 0);
PicLeft := Ini.ReadInteger( 'SCANNER', 'Left', 0);
PicTop := Ini.ReadInteger( 'SCANNER', 'Top', 0);
PicWidth := Ini.ReadInteger( 'SCANNER', 'Width', 100);
PicHeight := Ini.ReadInteger( 'SCANNER', 'Height', 100);
finally
Ini.Free;
end; }
Initimage();
end;
{
procedure TFormGetPic.ToolButton6Click(Sender: TObject);
var
Ini: TIniFile;
begin
FormGetPos := TFormGetPos.Create(Self);
FormGetPos.SpinEdit1.Value := PicLeft;
FormGetPos.SpinEdit2.Value := PicTop;
FormGetPos.SpinEdit3.Value := PicWidth;
FormGetPos.SpinEdit4.Value := PicHeight;
if FormGetPos.ShowModal = 1 then
begin
PicLeft := FormGetPos.SpinEdit1.Value;
PicTop := FormGetPos.SpinEdit2.Value;
PicWidth := FormGetPos.SpinEdit3.Value;
PicHeight := FormGetPos.SpinEdit4.Value;
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'scanner.ini');
try
Ini.WriteInteger( 'SCANNER', 'Left', PicLeft);
Ini.WriteInteger( 'SCANNER', 'Top', PicTop);
Ini.WriteInteger( 'SCANNER', 'Width', PicWidth);
Ini.WriteInteger( 'SCANNER', 'Height', PicHeight);
finally
Ini.Free;
end;
end;
FormGetPos.Free;
end;
}
procedure TFormGetPic.CreThumb(Width, Height: Integer);
var
Bitmap: TBitmap;
Ratio: Double;
ARect: TRect;
AHeight, AHeightOffset: Integer;
AWidth, AWidthOffset: Integer;
begin
Bitmap := TBitmap.Create;
try
Ratio := Image1.Picture.Graphic.Width/Image1.Picture.Graphic.Height;
if Ratio > 1.333 then
begin
AHeight := Round(Width/Ratio);
AHeightOffset := (Height-AHeight) div 2;
AWidth := Width;
AWidthOffset := 0;
end
else
begin
AWidth := Round(Height*Ratio);
AWidthOffset := (Width-AWidth) div 2;
AHeight := Height;
AHeightOffset := 0;
end;
Bitmap.Width := Width;
Bitmap.Height := Height;
Bitmap.Canvas.Brush.Color := clBtnFace;
Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height));
// StretchDraw original image
ARect := Rect(AWidthOffset, AHeightOffset, AWidth+AWidthOffset, AHeight+AHeightOffset);
Bitmap.Canvas.StretchDraw(ARect, Image1.Picture.Graphic);
// Assign back to the Jpeg, and save to the file
Image2.Picture.Assign(BitMap);
// MyJpeg1.Assign(Image2.Picture.Graphic);
finally
Bitmap.Free;
end;
end;
procedure TFormGetPic.FormCreate(Sender: TObject);
begin
MyJpeg := TJpegImage.Create;
// MyJpeg1 := TJpegImage.Create;
Button2.Enabled:=false;
end;
procedure TFormGetPic.FormDestroy(Sender: TObject);
begin
// MyJpeg1.Free;
MyJpeg.Free;
end;
procedure TFormGetPic.Image1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ClickPos.x := X;
ClickPos.y := Y;
end;
procedure TFormGetPic.Image1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
NewPos: TPoint;
begin
{The left button was pressed}
if ssLeft in Shift then
begin
{Calculate new position}
NewPos.X := Image1.Left + x - ClickPos.x;
NewPos.Y := Image1.Top + y - ClickPos.y;
if NewPos.x + Image1.Width < ScrollBox1.Width then
NewPos.x := ScrollBox1.Width - Image1.Width;
if NewPos.y + Image1.Height < ScrollBox1.Height then
NewPos.y := ScrollBox1.Height - Image1.Height;
if NewPos.X > 0 then NewPos.X := 0;
if NewPos.Y > 0 then NewPos.Y := 0;
Image1.Top := NewPos.Y;
Image1.Left := NewPos.X;
end {if ssLeft in Shift}
end;
procedure TFormGetPic.SpeedButton1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image1.Top := 0;
Image1.Left := 0;
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
FilePath:=OpenPictureDialog1.FileName;
FileName:=ExtractFileName(FilePath);
CreThumb(240, 180);
SpeedButton2.Enabled := TRUE;
end;
end;
procedure TFormGetPic.SpeedButton2Click(Sender: TObject);
begin
IF SaveImage() then
begin
ModalResult := 1;
end
else
begin
application.MessageBox('数据保存失败！','提示信息',0)
end;
// JPStream := TMemoryStream.Create;
// MyJPeg.Assign(Image1.Picture.Graphic);
// MyJPeg.SaveToStream(JPStream);
end;
procedure TFormGetPic.SpeedButton3Click(Sender: TObject);
begin
ModalResult := 2;
end;
procedure TFormGetPic.Button1Click(Sender: TObject);
begin
hWndC := 0;
try
hWndC := capCreateCaptureWindowA('My Own Capture Window',
WS_CHILD or WS_VISIBLE ,
ScrollBox1.Left,
ScrollBox1.Top,
ScrollBox1.Width,
ScrollBox1.Height,
FormGetPic.Handle,
0);
if hWndC <> 0 then
begin
SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0);
SendMessage(hWndC, WM_CAP_SET_CALLBACK_ERROR, 0, 0);
SendMessage(hWndC, WM_CAP_SET_CALLBACK_STATUSA, 0, 0);
SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0);
SendMessage(hWndC, WM_CAP_SET_SCALE, 1, 0);
SendMessage(hWndC, WM_CAP_SET_PREVIEWRATE, 66, 0);
//SendMessage(hWndC, WM_CAP_SEQUENCE_NOFILE, 1, 0);
SendMessage(hWndC, WM_CAP_SET_OVERLAY, 1, 0);
SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0);
Button1.Enabled:=false;
Button2.Enabled:=true;
end
else
begin
application.MessageBox('连接摄像头失败！','错误信息',MB_ICONERROR);
end;
except
end;
application.ProcessMessages;
end;
procedure TFormGetPic.Button2Click(Sender: TObject);
var
sFieldName:string;
MBMP:TBitmap;
MJPG:TJpegImage;
begin
sFieldName:='D:\抓图';
if not DirectoryExists(pchar(sFieldName)) then
CreateDirectory(pchar(sFieldName),nil);
sFieldName:=sFieldName+'\'+formatdateTime('yyyyMMddhhnnss',SGetServerDateTime(ADOQuery1));
FileName:=ExtractFileName(sFieldName);
if hWndC <> 0 then
begin
SendMessage(hWndC,WM_CAP_SAVEDIB,0,longint(pchar(sFieldName+'.BMP')));
SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);
hWndC := 0;
application.ProcessMessages;
Button1.Enabled:=true;
Button2.Enabled:=false;
try
MBMP:= TBitmap.Create;
MJPG:= TJpegImage.Create;
MBMP.LoadFromFile(pchar(sFieldName+'.BMP'));
MJPG.assign(MBMP);
Image1.Picture.Bitmap.Assign(MJPG);
application.ProcessMessages;
MJPG.SaveToFile(pchar(sFieldName+'.JPG'));
CreThumb(240, 180);
finally
MBMP.Free;
MJPG.Free;
if Fileexists(pchar(sFieldName+'.BMP')) then DeleteFile(pchar(sFieldName+'.BMP'));
FilePath:=sFieldName+'.JPG';
FileName:=ExtractFileName(FilePath);
end;
SpeedButton2.Enabled:=true;
end;
end;
procedure TFormGetPic.SpeedButton4Click(Sender: TObject);
var
MJPG:TJpegImage;
pathFile:string;
begin
if Image1.Picture.Graphic=nil then exit;
MJPG:= TJpegImage.Create;
try
SaveDialog1.FileName:=FileName;
if SaveDialog1.Execute then
begin
if SaveDialog1.FileName<>'' then
begin
pathFile:=trim(SaveDialog1.FileName);
IF (RightStr(UPPERCASE(pathFile),4)<>'.JPG') and (RightStr(UPPERCASE(pathFile),5)<>'.JPEG') then
begin
pathFile:=pathFile+'.JPG';
end;
MJPG.Assign(Image1.Picture.Graphic);
if fileexists(pathFile) then
begin
if application.MessageBox(pchar('文件['+trim(pathFile)+']已存在，是否要替换它？'),'提示信息',MB_YESNO+mb_iconinformation+MB_DEFBUTTON2)=idyes then
MJPG.SaveToFile(pathFile);
end
else
MJPG.SaveToFile(pathFile);
end;
end;
finally
MJPG.Free;
end;
end;
procedure TFormGetPic.SpeedButton5Click(Sender: TObject);
begin
try
with adoqueryImage do
begin
close;
sql.Clear;
sql.Add('select * from TP_File where WBID='+quotedstr(trim(fkeyNo)));
open;
if RecordCount>0 then
begin
edit;
fieldByName(pat1).Value:=null;
FieldByName(pic1).Value:=null;
post;
Image1.Picture.Assign(nil);
Image2.Picture.Assign(nil);
end;
end;
except
end;
end;
end.

38
G01贸易生产计划/testDll.cfg Normal file
View File

@ -0,0 +1,38 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

136
G01贸易生产计划/testDll.dof Normal file
View File

@ -0,0 +1,136 @@
[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=0
UnsafeCode=0
UnsafeCast=0
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\坯布码单待检DDMD.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=2052
CodePage=936
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=

14
G01贸易生产计划/testDll.dpr Normal file
View File

@ -0,0 +1,14 @@
program testDll;
uses
Forms,
U_testdll in 'U_testdll.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

184
G01贸易生产计划/testDll.dproj Normal file
View File

@ -0,0 +1,184 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{6ED24B72-E038-4A45-BA13-AC1AB432C410}</ProjectGuid>
<MainSource>testDll.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms>
<AppType>Application</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
<Base_iOSDevice64>true</Base_iOSDevice64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
<Cfg_2_Android64>true</Cfg_2_Android64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
<Cfg_2_OSX64>true</Cfg_2_OSX64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_E>false</DCC_E>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_N>true</DCC_N>
<DCC_S>false</DCC_S>
<DCC_ImageBase>00400000</DCC_ImageBase>
<DCC_DebugInformation>1</DCC_DebugInformation>
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
<SanitizedProjectName>testDll</SanitizedProjectName>
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;Data.Win;$(DCC_Namespace)</DCC_Namespace>
<VerInfo_Locale>2052</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<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_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<Icon_MainIcon>testDll_Icon.ico</Icon_MainIcon>
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<Icon_MainIcon>testDll_Icon.ico</Icon_MainIcon>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_DebugInformation>0</DCC_DebugInformation>
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<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>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="U_testdll.pas">
<Form>Form1</Form>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">testDll.dpr</Source>
</Source>
</Delphi.Personality>
<Platforms>
<Platform value="Android64">True</Platform>
<Platform value="iOSDevice64">True</Platform>
<Platform value="Linux64">True</Platform>
<Platform value="OSX64">True</Platform>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>

2
G01贸易生产计划/testDll.dproj.local Normal file
View File

@ -0,0 +1,2 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject/>

BIN
G01贸易生产计划/testDll.identcache Normal file
View File

Binary file not shown.

BIN
G01贸易生产计划/testDll.res Normal file
View File

Binary file not shown.

38
G01贸易生产计划/testDllDJ.cfg Normal file
View File

@ -0,0 +1,38 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

136
G01贸易生产计划/testDllDJ.dof Normal file
View File

@ -0,0 +1,136 @@
[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=0
UnsafeCode=0
UnsafeCast=0
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\长阳针织(CYZZ.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=2052
CodePage=936
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=

BIN
G01贸易生产计划/testDllDJ.res Normal file
View File

Binary file not shown.

BIN
G01贸易生产计划/testDll_Icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 766 B

10424
T00贸易通用窗体/U_KnitSelTradePlan.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

234
T00贸易通用窗体/U_KnitSelTradePlan.pas Normal file
View File

@ -0,0 +1,234 @@
unit U_KnitSelTradePlan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox,
cxCalendar, Vcl.Menus,
dxScrollbarAnnotations, cxImageList, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters;
type
TfrmKnitSelTradePlan = class(TfrmBaseHelp)
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
TBSave: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
ADOConnection1: TADOConnection;
Panel1: TPanel;
GPM_1: TcxGridPopupMenu;
ImageList1: TImageList;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column7: TcxGridDBColumn;
v1OrderNo: TcxGridDBColumn;
v1ConNo: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label3: TLabel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
OrderNo: TcxTextEdit;
C_Name: TcxTextEdit;
C_Color: TcxTextEdit;
C_ColorNo: TcxTextEdit;
C_Pattern: TcxTextEdit;
C_Code: TcxTextEdit;
ConNo: TcxTextEdit;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
cxImageList_bar: TcxImageList;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure OrderNoChange(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure Tv1Column6CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
FCoType, FAuthority, FSTKNAME: string;
{ Public declarations }
end;
var
frmKnitSelTradePlan: TfrmKnitSelTradePlan;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmKnitSelTradePlan.FormCreate(Sender: TObject);
begin
inherited;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
except
application.MessageBox('网络连接失败！', '提示信息');
end;
end;
procedure TfrmKnitSelTradePlan.FormDestroy(Sender: TObject);
begin
inherited;
frmKnitSelTradePlan := nil;
end;
procedure TfrmKnitSelTradePlan.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cahide;
end;
procedure TfrmKnitSelTradePlan.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add('from Trade_Plan_Main A ');
sql.add('where Status=''9'' ');
// ShowMessage(sql.Text);
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmKnitSelTradePlan.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, True);
end;
procedure TfrmKnitSelTradePlan.N2Click(Sender: TObject);
begin
SelOKNo(CDS_1, False);
end;
procedure TfrmKnitSelTradePlan.OrderNoChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
end;
procedure TfrmKnitSelTradePlan.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid('单位名称' + Trim(FCoType), TV1, '自定义数据');
InitGrid();
end;
procedure TfrmKnitSelTradePlan.TBCloseClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmKnitSelTradePlan.TBSaveClick(Sender: TObject);
begin
WriteCxGrid('单位名称' + Trim(FCoType), TV1, '自定义数据');
end;
procedure TfrmKnitSelTradePlan.ToolButton1Click(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmKnitSelTradePlan.Tv1Column6CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('SumPiece').Index] = null then
Exit;
if (AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('SumPiece').Index]) > 0 then
ACanvas.Brush.Color := $00FF00;
end;
procedure TfrmKnitSelTradePlan.Tv1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
end.

BIN
T01贸易生产计划/.rmf Normal file
View File

Binary file not shown.

4
T01贸易生产计划/File.INI Normal file
View File

@ -0,0 +1,4 @@
[生产车间配置]
卷条码机台标志=99
成品DLL文件=CYZZ.dll
成品DLL调用号=11

7
T01贸易生产计划/FileHelp.ini Normal file
View File

@ -0,0 +1,7 @@
[FILEPATH]
FileClass=YP,AA,BB,HT
YP=D:\YP
AA=D:\AA
BB=D:\BB
HT=D:\HT
OTHER=D:\OTHER

BIN
T01贸易生产计划/InformationBase_Icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 766 B

23
T01贸易生产计划/ProjectGroup1.bpg Normal file
View File

@ -0,0 +1,23 @@
#------------------------------------------------------------------------------
VERSION = BWS.01
#------------------------------------------------------------------------------
!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#------------------------------------------------------------------------------
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
testDll.exe: testDll.dpr
$(DCC)
ProductPrice.dll: ProductPrice.dpr
$(DCC)

48
T01贸易生产计划/ProjectGroup1.groupproj Normal file
View File

@ -0,0 +1,48 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{D75EC075-444C-40C2-8ACB-0AAD801B39FF}</ProjectGuid>
</PropertyGroup>
<ItemGroup>
<Projects Include="TradePlan.dproj">
<Dependencies/>
</Projects>
<Projects Include="testDll.dproj">
<Dependencies/>
</Projects>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Default.Personality.12</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<Default.Personality/>
</BorlandProject>
</ProjectExtensions>
<Target Name="TradePlan">
<MSBuild Projects="TradePlan.dproj"/>
</Target>
<Target Name="TradePlan:Clean">
<MSBuild Projects="TradePlan.dproj" Targets="Clean"/>
</Target>
<Target Name="TradePlan:Make">
<MSBuild Projects="TradePlan.dproj" Targets="Make"/>
</Target>
<Target Name="testDll">
<MSBuild Projects="testDll.dproj"/>
</Target>
<Target Name="testDll:Clean">
<MSBuild Projects="testDll.dproj" Targets="Clean"/>
</Target>
<Target Name="testDll:Make">
<MSBuild Projects="testDll.dproj" Targets="Make"/>
</Target>
<Target Name="Build">
<CallTarget Targets="TradePlan;testDll"/>
</Target>
<Target Name="Clean">
<CallTarget Targets="TradePlan:Clean;testDll:Clean"/>
</Target>
<Target Name="Make">
<CallTarget Targets="TradePlan:Make;testDll:Make"/>
</Target>
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
</Project>

7
T01贸易生产计划/ProjectGroup1.groupproj.local Normal file
View File

@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions/>
<Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10myOukai\T01贸易生产计划\TradePlan.dproj"/>
</Default.Personality>
</BorlandProject>

13
T01贸易生产计划/SYSTEMSET.ini Normal file
View File

@ -0,0 +1,13 @@
[SERVER]
服务器地址=101.132.143.144
服务器地址类型=797
是否自动更新=1
软件名称=欧凯
登陆标题=sss
主程序名称=oukai.exe
版本号=2.20
[窗口设置]
字体大小=12
design=1
skin=1
grid=0

86
T01贸易生产计划/TradePlan.dpr Normal file
View File

@ -0,0 +1,86 @@
library TradePlan;
uses
SysUtils,
classes,
forms,
WinTypes,
WinProcs,
midaslib,
U_GetDllForm in 'U_GetDllForm.pas',
U_DataLink in 'U_DataLink.pas' {DataLink_TradePlan: TDataModule},
U_iniParam in 'U_iniParam.pas',
U_BaseHelp in '..\..\..\public10\design\U_BaseHelp.pas' {frmBaseHelp},
U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList},
U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas',
U_CompressionFun in '..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas',
U_RTFun in '..\..\..\public10\ThreeFun\Fun\U_RTFun.pas',
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
U_AttachmentUpload in '..\A00通用窗体\U_AttachmentUpload.pas' {frmFjList_RZ},
U_ClothInfoSel in '..\A00通用窗体\U_ClothInfoSel.pas' {frmClothInfoSel},
U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
U_TradePlanMulFtyList in 'U_TradePlanMulFtyList.pas' {frmTradePlanMulFtyList},
U_TradeLabelSel in 'U_TradeLabelSel.pas' {frmTradeLabelSel},
U_ContractSel in 'U_ContractSel.pas' {frmContractSel},
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_UserSel in '..\A00通用窗体\U_UserSel.pas' {frmUserSel},
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
U_ZDYHelpSel in '..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
U_TradePlanScheduleDetail in 'U_TradePlanScheduleDetail.pas' {frmTradePlanScheduleDetail},
U_TradePlanSchedule in 'U_TradePlanSchedule.pas' {frmTradePlanSchedule},
U_SysLogHelp in '..\..\..\public10\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_TradePlanColorList in 'U_TradePlanColorList.pas' {frmTradePlanColorList},
U_TradePlanColorInPut in 'U_TradePlanColorInPut.pas' {frmTradePlanColorInPut},
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
U_TradePlanCard in 'U_TradePlanCard.pas' {frmTradePlanCard},
U_TradeCardInStk in 'U_TradeCardInStk.pas' {frmTradeCardInStk},
U_InputBoxSingleString in '..\A00通用窗体\U_InputBoxSingleString.pas' {frmInputBoxSingleString},
U_InputBoxCard in 'U_InputBoxCard.pas' {frmInputBoxCard},
U_printPdf in '..\..\..\public10\ThreeFun\Fun\U_printPdf.pas',
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
U_PrintLabFun in '..\A00通用方法\U_PrintLabFun.pas',
U_dynamicsDll in '..\..\..\public10\ThreeFun\Fun\U_dynamicsDll.pas',
U_TradePlanList in 'U_TradePlanList.pas' {frmTradePlanList},
U_TradePlanProfitDetails in 'U_TradePlanProfitDetails.pas' {frmTradePlanProfitDetails},
U_TradePlanProfit in 'U_TradePlanProfit.pas' {frmTradePlanProfit},
U_TradePackagePlanInPut in 'U_TradePackagePlanInPut.pas' {frmTradePackagePlanInPut},
U_TotalClothStk in 'U_TotalClothStk.pas' {frmTotalClothStk},
U_TradeDHPlanSel in 'U_TradeDHPlanSel.pas' {frmTradeDHPlanSel},
U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
U_KUANNOInfoImport in 'U_KUANNOInfoImport.pas' {frmkuannoImport},
U_TradePlanMXSel in '..\T00贸易通用窗体\U_TradePlanMXSel.pas' {frmTradePlanMXSel},
U_TradePlanSel in '..\T00贸易通用窗体\U_TradePlanSel.pas' {frmTradePlanSel};
{$R *.res}
procedure DllEnterPoint(dwReason: DWORD); far; stdcall;
begin
DLLProc := @DLLEnterPoint;
DllEnterPoint(DLL_PROCESS_ATTACH);
end;
procedure DLLUnloadProc(Reason: Integer); register;
begin
// if (Reason = DLL_PROCESS_DETACH) or (Reason = DLL_THREAD_DETACH) then
// Application := NewDllApp;
end;
exports
GetDllForm;
begin
try
NewDllApp := Application;
DLLProc := @DLLUnloadProc;
except
end;
end.

1035
T01贸易生产计划/TradePlan.dproj Normal file
View File

File diff suppressed because it is too large Load Diff

2
T01贸易生产计划/TradePlan.dproj.local Normal file
View File

@ -0,0 +1,2 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject/>

BIN
T01贸易生产计划/TradePlan.identcache Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/TradePlan.res Normal file
View File

Binary file not shown.

62
T01贸易生产计划/TradePlan.skincfg Normal file
View File

@ -0,0 +1,62 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=1
dxSkinBasic=0
dxSkinBlack=0
dxSkinBlue=0
dxSkinBlueprint=0
dxSkinCaramel=0
dxSkinCoffee=0
dxSkinDarkroom=0
dxSkinDarkSide=0
dxSkinDevExpressDarkStyle=0
dxSkinDevExpressStyle=0
dxSkinFoggy=0
dxSkinGlassOceans=0
dxSkinHighContrast=0
dxSkiniMaginary=0
dxSkinLilian=0
dxSkinLiquidSky=0
dxSkinLondonLiquidSky=0
dxSkinMcSkin=0
dxSkinMetropolis=0
dxSkinMetropolisDark=0
dxSkinMoneyTwins=0
dxSkinOffice2007Black=0
dxSkinOffice2007Blue=0
dxSkinOffice2007Green=0
dxSkinOffice2007Pink=0
dxSkinOffice2007Silver=0
dxSkinOffice2010Black=0
dxSkinOffice2010Blue=0
dxSkinOffice2010Silver=0
dxSkinOffice2013DarkGray=0
dxSkinOffice2013LightGray=0
dxSkinOffice2013White=0
dxSkinOffice2016Colorful=0
dxSkinOffice2016Dark=0
dxSkinOffice2019Black=0
dxSkinOffice2019Colorful=0
dxSkinOffice2019DarkGray=0
dxSkinOffice2019White=0
dxSkinPumpkin=0
dxSkinSeven=0
dxSkinSevenClassic=0
dxSkinSharp=0
dxSkinSharpPlus=0
dxSkinSilver=0
dxSkinSpringtime=0
dxSkinStardust=0
dxSkinSummer2008=0
dxSkinTheAsphaltWorld=0
dxSkinTheBezier=0
dxSkinsDefaultPainters=1
dxSkinValentine=0
dxSkinVisualStudio2013Blue=0
dxSkinVisualStudio2013Dark=0
dxSkinVisualStudio2013Light=0
dxSkinVS2010=0
dxSkinWhiteprint=0
dxSkinWXI=1
dxSkinXmas2008Blue=0

10672
T01贸易生产计划/U_ContractSel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

275
T01贸易生产计划/U_ContractSel.pas Normal file
View File

@ -0,0 +1,275 @@
unit U_ContractSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox,
Vcl.Menus, dxScrollbarAnnotations, cxImageList, cxContainer,
dxSkinWXI, dxSkinsCore, dxSkinsDefaultPainters, FrameDateSel, cxPC;
type
TfrmContractSel = class(TfrmBaseHelp)
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
TBSave: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
ConNo: TcxTextEdit;
GPM_1: TcxGridPopupMenu;
ImageList1: TImageList;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
VC_SCSCode: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
TV1Column7: TcxGridDBColumn;
PM_1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Label2: TLabel;
C_Name: TcxTextEdit;
Label3: TLabel;
BuyName: TcxTextEdit;
TV1Column8: TcxGridDBColumn;
TV1Column9: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn;
Label4: TLabel;
GC_Name: TcxTextEdit;
Label5: TLabel;
CraftCode: TcxTextEdit;
TV1Column11: TcxGridDBColumn;
TV1Column12: TcxGridDBColumn;
cxImageList_bar: TcxImageList;
ToolButton2: TToolButton;
frmFrameDateSel1: TfrmFrameDateSel;
ToolButton3: TToolButton;
cxTabControl1: TcxTabControl;
TV1Column13: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TV1DblClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ConNoKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton3Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
FCoType, FAuthority, FConNo, FC_Code: string;
{ Public declarations }
end;
var
frmContractSel: TfrmContractSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmContractSel.FormCreate(Sender: TObject);
begin
inherited;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
except
application.MessageBox('网络连接失败！', '提示信息');
end;
end;
procedure TfrmContractSel.ConNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmContractSel.cxTabControl1Change(Sender: TObject);
begin
inherited;
initGrid();
end;
procedure TfrmContractSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ConNo.SetFocus;
Action := cahide;
end;
procedure TfrmContractSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.*,ShrinkageRate=(select ShrinkageRate from Bs_Cloth_Info E WHERE E.C_CODE=B.C_CODE)');
sql.Add(' ,SumOrdQty=ISNULL((select SUM(OrdQty) from Trade_Plan_Sub X where X.ConSid=B.ConSid ),0) ');
sql.Add(' from BS_Contract_Main A inner join BS_Contract_Sub B on A.ConMId=B.ConMId ');
sql.Add(' where isnull(A.status,''0'')=''9''');
sql.Add(' and A.ConType in (''内销'',''外销'') ');
if trim(fconNo) <> '' then
sql.Add(' and conNo=' + quotedstr(fconNo));
if trim(fC_Code) <> '' then
sql.Add(' and C_Code=' + quotedstr(fC_Code));
case cxTabControl1.TabIndex of
1:
begin
sql.Add(' and ISNULL((select SUM(OrdQty) from Trade_Plan_Sub X where X.ConSid=B.ConSid ),0)>=B.ConQty');
end;
2:
begin
sql.Add(' and ISNULL((select SUM(OrdQty) from Trade_Plan_Sub X where X.ConSid=B.ConSid ),0)<B.ConQty');
end;
end;
sql.add(' and A.ConDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
sql.add(' and A.ConDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
// ShowMessage(SQL.text);
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmContractSel.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, True);
end;
procedure TfrmContractSel.N2Click(Sender: TObject);
begin
SelOKNo(CDS_1, False);
end;
procedure TfrmContractSel.FormShow(Sender: TObject);
begin
inherited;
frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180;
frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
InitGrid();
ReadCxGrid(Trim(self.Caption), TV1, '自定义数据');
end;
procedure TfrmContractSel.TBCloseClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmContractSel.TBSaveClick(Sender: TObject);
begin
WriteCxGrid(Trim(self.Caption), TV1, '自定义数据');
end;
procedure TfrmContractSel.ToolButton1Click(Sender: TObject);
begin
ConNo.SetFocus;
ModalResult := 1;
end;
procedure TfrmContractSel.ToolButton2Click(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmContractSel.ToolButton3Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmContractSel.TV1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmContractSel.FormDestroy(Sender: TObject);
begin
inherited;
frmContractSel := nil;
end;
end.

14155
T01贸易生产计划/U_DataLink.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

132
T01贸易生产计划/U_DataLink.pas Normal file
View File

@ -0,0 +1,132 @@
unit U_DataLink;
interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList, U_BaseDataLink,
cxLocalization, cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm,
dxCore,
dxLayoutLookAndFeels, dxSkinWXI, dxSkinsCore, dxSkinsDefaultPainters;
type
TMyThread = class(TThread)
protected
procedure Execute; override;
end;
var
DConString: string; {全局连接字符串}
server, dtbase, user, pswd: string; {数据库连接参数}
DCurHandle: hwnd; //当前窗体句柄
DName: string; //#用户名#//
DCode: string; //#用户编号#//
Ddatabase: string; //#数据库名称#//
DTitCaption: string; //#主窗体名称#//
PicSvr: string;
fDllFileName: string;
DParameters1, DParameters2, DParameters3, DParameters4, DParameters5: string; // 外部参数；
DParameters6, DParameters7, DParameters8, DParameters9, DParameters10: string; //外部参数；
OldDllApp: Tapplication; //保存原有句柄
NewDllApp: Tapplication; //当前句柄
MainApplication: Tapplication;
DFormCode: integer; //当前窗口号
IsDelphiLanguage: integer;
DServerDate: TdateTime; //服务器时间
DCompany: string; //公司
IpCall: Integer;
IpWLDZStr: string;
UserDataFlag: string;
type
TDataLink_TradePlan = class(TBaseDataLink)
AdoDataLink: TADOQuery;
ADOLink: TADOConnection;
ThreeImgList: TImageList;
Timer_link: TTimer;
ImageList_new32: TImageList;
procedure DataModuleDestroy(Sender: TObject);
procedure Timer_linkTimer(Sender: TObject);
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TMakebar = procedure(ucData: pchar; nDataLen: integer; nErrLevel: integer; nMask: integer; nBarEdition: integer; szBmpFileName: pchar; nScale: integer); stdcall;
TMixtext = procedure(szSrcBmpFileName: PChar; szDstBmpFileName: PChar; sztext: PChar; fontsize, txtheight, hmargin, vmargin, txtcntoneline: integer); stdcall;
var
DataLink_TradePlan: TDataLink_TradePlan;
CriticalSection: TCriticalSection; {声明临界}
implementation
{$R *.dfm}
procedure TMyThread.Execute;
begin
FreeOnTerminate := True;
CriticalSection.Enter;
try
with DataLink_TradePlan.AdoDataLink do
begin
close;
sql.Clear;
sql.Add('select getdate()');
open;
end;
except
try
with DataLink_TradePlan.ADOLink do
begin
Connected := false;
ConnectionString := DConString;
LoginPrompt := false;
Connected := true;
end;
except
end;
end;
CriticalSection.Leave;
end;
procedure TDataLink_TradePlan.DataModuleDestroy(Sender: TObject);
begin
inherited;
CriticalSection.Free;
DataLink_TradePlan := nil;
end;
procedure TDataLink_TradePlan.Timer_linkTimer(Sender: TObject);
begin
TMyThread.Create(False);
end;
procedure TDataLink_TradePlan.DataModuleCreate(Sender: TObject);
begin
inherited;
CriticalSection := TCriticalSection.Create;
end;
end.

292
T01贸易生产计划/U_GetDllForm.pas Normal file
View File

@ -0,0 +1,292 @@
unit U_GetDllForm;
interface
uses
Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, dxCore,
ActiveX, IniFiles;
function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; export; stdcall;
function ConnData(): Boolean;
function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
implementation
uses
U_DataLink, U_iniParam, U_TradePlanList, U_TradePlanProofList,
U_TradePlanColorList, U_TradePlanMulFtyList, U_TradePlanSchedule,
U_TradePlanProfit, U_TradePlanCard, U_TradePackagePlanList;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
// 参数说明：App>>调用应用程序； //
// FormH>>调用窗口句柄 ； //
// FormID>>窗口号; //
// Language>>语言种类; //
// WinStyle>>窗口类型； //
/////////////////////////////////////////////////////////////////
function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd;
var
i: Integer;
bFound: Boolean;
mnewHandle: hwnd;
mstyle: TFormStyle; // 0:子窗口; 1：普通窗口
mstate: TWindowState;
mborderstyle: TFormBorderStyle;
begin
mnewHandle := 0;
DName := PChar(GName);
DCode := PChar(GCode);
DdataBase := DataBase;
DTitCaption := Title;
DParameters1 := Parameters1;
DParameters2 := Parameters2;
DParameters3 := Parameters3;
DParameters4 := Parameters4;
DParameters5 := Parameters5;
DParameters6 := Parameters6;
DParameters7 := Parameters7;
DParameters8 := Parameters8;
DParameters9 := Parameters9;
DParameters10 := Parameters10;
SetLength(fDllFileName, 255);
GetModuleFileName(HInstance, PChar(fDllFileName), Length(fDllFileName));
fDllFileName := ExtractFileName(PChar(fDllFileName));
MainApplication := App;
DCurHandle := FormH;
IsDelphiLanguage := Language;
Application := TApplication(App);
DCurHandle := 0;
//赋值链接字符串
SetLength(server, 255);
SetLength(dtbase, 255);
SetLength(user, 255);
SetLength(pswd, 255);
if trim(DataBaseStr) = '' then
begin
server := '101.132.143.144,7781';
dtbase := 'oukaiData';
user := 'rtsa';
pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '管理';
DName := 'ADMIN';
end
else
begin
DConString := DataBaseStr;
end;
if not ConnData() then
begin
result := 0;
exit;
end;
if IsINIFile() then
ReadINIFile()
else
WriteINIFile;
GetsysParam('', '');
// 定义窗口类型 、状态
if WinStyle = 0 then
begin
mstyle := fsMDIChild;
mstate := wsMaximized;
mborderstyle := bsSizeable;
end
else
begin
mstyle := fsNormal;
mstate := wsNormal;
mborderstyle := bsSizeable;
end;
bFound := False;
if FormID <> 10000 then
begin
for i := 0 to Application.MainForm.MDIChildCount - 1 do
begin
if Application.MainForm.MDIChildren[i].Caption = Title then
begin
mnewHandle := Application.MainForm.MDIChildren[i].Handle;
Application.MainForm.MDIChildren[i].BringToFront;
bFound := True;
Result := mnewHandle;
exit;
end;
end;
end;
/////////////////////
//调用子模块窗口
case FormID of
111: //大货生产计划单
begin
with TfrmTradePlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
WindowState := mstate;
mnewHandle := Handle;
end;
end;
131: //打色生产计划单
begin
with TfrmTradePlanColorList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
WindowState := mstate;
mnewHandle := Handle;
end;
end;
151: //包装生产计划单
begin
with TfrmTradePackagePlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
WindowState := mstate;
mnewHandle := Handle;
end;
end;
221: //贸易大货标签
begin
with TfrmTradePlanCard.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do
begin
fFormID := FormID;
WindowState := mstate;
mnewHandle := Handle;
end;
end;
211: //生产计划进度
begin
with TfrmTradePlanSchedule.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
WindowState := mstate;
mnewHandle := Handle;
end;
end;
311: //订单利润查询
begin
with TfrmTradePlanProfit.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
WindowState := mstate;
mnewHandle := Handle;
end;
end;
// 121: //生产计划单多加工厂(不用）
// begin
// with TfrmTradePlanMulFtyList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
// begin
// fFormID := FormID;
//
// WindowState := mstate;
//
// mnewHandle := Handle;
// end;
// end;
// 121: //开发打样单
// begin
// with TfrmTradePlanProofList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
// begin
// fFormID := FormID;
//
// WindowState := mstate;
//
// mnewHandle := Handle;
// end;
// end;
10000:
begin
for i := 0 to application.MainForm.MDIChildCount - 1 do
begin
if application.MainForm.MDIChildren[i].Caption = Title then
begin
application.MainForm.MDIChildren[i].Close;
end;
end;
end;
end;
Result := mnewHandle;
end;
function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
begin
result := true;
//////////////////////////////
// shortDateFormat := 'yyyy-MM-dd';
//服务器日期
with DataLink_TradePlan.AdoDataLink do
begin
close;
sql.Clear;
sql.Add('select getDate()as dt');
open;
DServerDate := fieldByName('dt').AsDatetime;
end;
result := true;
end;
//===========================================================
//建立数据库连接池
//===========================================================
function ConnData(): Boolean;
var
IniFile: TIniFile;
begin
try
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'SYSTEMSET.INI');
PicSvr := IniFile.ReadString('SERVER', '服务器地址', '127.0.0.1');
UserDataFlag := IniFile.ReadString('SERVER', '服务器地址类型', '-1');
finally
IniFile.Free;
end;
if not Assigned(DataLink_TradePlan) then
DataLink_TradePlan := TDataLink_TradePlan.Create(Application);
try
with DataLink_TradePlan.ADOLink do
begin
if not Connected then
begin
Connected := false;
ConnectionString := DConString;
LoginPrompt := false;
Connected := true;
end;
end;
Result := true;
except
Result := false;
application.MessageBox('数据库连接失败！', '错误', mb_Ok + MB_ICONERROR);
end;
end;
initialization
CoInitialize(nil);
dxUnitsLoader.Initialize;
finalization
DataLink_TradePlan.Free;
application := NewDllApp;
dxUnitsLoader.Finalize;
end.

83
T01贸易生产计划/U_InputBoxCard.dfm Normal file
View File

@ -0,0 +1,83 @@
object frmInputBoxCard: TfrmInputBoxCard
Left = 682
Top = 315
Caption = #35831#36755#20837#25968#23383
ClientHeight = 171
ClientWidth = 366
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
PixelsPerInch = 96
TextHeight = 21
object Panel1: TPanel
Left = 0
Top = 0
Width = 366
Height = 171
Align = alClient
TabOrder = 0
ExplicitWidth = 437
object Label1: TLabel
Left = 31
Top = 37
Width = 48
Height = 21
Caption = #32568#21495#65306
end
object Label2: TLabel
Left = 31
Top = 76
Width = 48
Height = 21
Caption = #25903#25968#65306
end
object TTE_BatchNo: TcxTextEdit
Tag = 2
Left = 74
Top = 31
ParentFont = False
TabOrder = 0
Width = 247
end
object TTE_CardQty: TcxTextEdit
Tag = 2
Left = 74
Top = 70
ParentFont = False
TabOrder = 1
Width = 247
end
object cxButton1: TcxButton
Left = 24
Top = 119
Width = 75
Height = 25
Caption = #20445#23384
TabOrder = 2
OnClick = cxButton1Click
end
object cxButton2: TcxButton
Left = 246
Top = 119
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 3
OnClick = cxButton2Click
end
object cxButton3: TcxButton
Left = 135
Top = 119
Width = 75
Height = 25
Caption = #25171#21360
TabOrder = 4
OnClick = cxButton3Click
end
end
end

61
T01贸易生产计划/U_InputBoxCard.pas Normal file
View File

@ -0,0 +1,61 @@
unit U_InputBoxCard;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DB, ADODB, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, cxContainer, cxEdit,
Vcl.Menus, cxButtons, cxTextEdit,
cxMaskEdit, cxDropDownEdit;
type
TfrmInputBoxCard = class(TForm)
Panel1: TPanel;
Label1: TLabel;
TTE_BatchNo: TcxTextEdit;
Label2: TLabel;
TTE_CardQty: TcxTextEdit;
cxButton1: TcxButton;
cxButton2: TcxButton;
cxButton3: TcxButton;
procedure cxButton1Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
private
{ Private declarations }
public
FFFIDS: string;
{ Public declarations }
end;
var
frmInputBoxCard: TfrmInputBoxCard;
implementation
{$R *.dfm}
procedure TfrmInputBoxCard.cxButton1Click(Sender: TObject);
begin
if StrToFloatDef(TTE_CardQty.Text, 0) = 0 then
TTE_CardQty.Text := '0';
ModalResult := 1;
end;
procedure TfrmInputBoxCard.cxButton2Click(Sender: TObject);
begin
close;
end;
procedure TfrmInputBoxCard.cxButton3Click(Sender: TObject);
begin
if StrToFloatDef(TTE_CardQty.Text, 0) = 0 then
TTE_CardQty.Text := '0';
ModalResult := 2;
end;
end.

269
T01贸易生产计划/U_KUANNOInfoImport.dfm Normal file
View File

@ -0,0 +1,269 @@
inherited frmkuannoImport: TfrmkuannoImport
Left = 189
Top = 138
Caption = #26679#21697#23548#20837
ClientHeight = 562
ClientWidth = 1484
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter
ExplicitWidth = 1500
ExplicitHeight = 601
PixelsPerInch = 107
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1484
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_TradePlan.cxImageList_bar
Images = DataLink_TradePlan.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton2: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#25968#25454
ImageIndex = 16
OnClick = ToolButton2Click
end
object ToolButton5: TToolButton
Left = 174
Top = 0
AutoSize = True
Caption = #36873#25321#25991#20214
ImageIndex = 12
OnClick = ToolButton5Click
end
object ToolButton3: TToolButton
Left = 277
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 14
OnClick = ToolButton3Click
end
object ToolButton1: TToolButton
Left = 348
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 451
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid [1]
Left = 0
Top = 30
Width = 1484
Height = 532
Align = alClient
TabOrder = 1
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 60
object Tv1Column5: TcxGridDBColumn
Tag = 2
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 68
end
object v1CYNo: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 104
end
object Tv1Column19: TcxGridDBColumn
Caption = 'PO'
DataBinding.FieldName = 'pono'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 107
end
object Tv1Column3: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 76
end
object v1Column9: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 119
end
object Tv1Column11: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 113
end
object v1Column3: TcxGridDBColumn
Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 97
end
object v1Column1: TcxGridDBColumn
Caption = #35746#21333#21333#20301
DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1Column2: TcxGridDBColumn
Caption = #29983#20135#25968#37327
DataBinding.FieldName = 'OrdRawQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 97
end
object Tv1Column21: TcxGridDBColumn
Caption = #29983#20135#21333#20301
DataBinding.FieldName = 'SCUNIT'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 149
end
object Tv1Column1: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 94
end
object Tv1Column4: TcxGridDBColumn
Caption = #23548#20837#26085#26399
DataBinding.FieldName = 'DRDATE'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Left = 121
Top = 160
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Left = 249
Top = 161
end
inherited ImageList_new32: TImageList
Left = 528
Top = 144
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 853
Top = 201
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 941
Top = 209
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 741
Top = 209
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 648
Top = 328
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 795
Top = 323
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 720
Top = 328
end
object cxStyleRepository1: TcxStyleRepository
Left = 600
Top = 200
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svTextColor]
TextColor = clRed
end
end
object OpenDialog1: TOpenDialog
Left = 226
Top = 290
end
object CDS_LM: TClientDataSet
Aggregates = <>
Params = <>
Left = 560
Top = 328
end
end

341
T01贸易生产计划/U_KUANNOInfoImport.pas Normal file
View File

@ -0,0 +1,341 @@
unit U_KUANNOInfoImport;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, cxPC, U_BaseHelp, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, ComObj, U_BaseList, System.ImageList,
Vcl.ImgList, dxScrollbarAnnotations;
type
TfrmkuannoImport = class(TfrmBaseHelp)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
GPM_1: TcxGridPopupMenu;
DS_1: TDataSource;
CDS_1: TClientDataSet;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
OpenDialog1: TOpenDialog;
ToolButton5: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1CYNo: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
CDS_LM: TClientDataSet;
ToolButton3: TToolButton;
Tv1Column4: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
public
{ Public declarations }
FCTID: string;
end;
var
frmkuannoImport: TfrmkuannoImport;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmkuannoImport.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Sub_MX where mainid=' + quotedstr(fctid));
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmkuannoImport.FormDestroy(Sender: TObject);
begin
inherited;
frmkuannoImport := nil;
end;
procedure TfrmkuannoImport.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := cafree;
end;
procedure TfrmkuannoImport.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmkuannoImport.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(self.Caption, Tv1, '样品管理');
with CDS_LM do
begin
FieldDefs.Clear;
FieldDefs.Add('LXH', ftInteger, 0);
FieldDefs.Add('lCode', ftString, 40);
FieldDefs.Add('LName', ftString, 40);
close;
CreateDataSet;
end;
InitGrid();
end;
procedure TfrmkuannoImport.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmkuannoImport.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid(self.Caption, Tv1, '样品管理');
end;
procedure TfrmkuannoImport.ToolButton2Click(Sender: TObject);
var
smaxno: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not eof do
begin
if Trim(CDS_1.fieldbyname('mxid').AsString) = '' then
begin
if GetLSNo(ADOQueryCmd, smaxno, 'MX', 'Trade_Plan_Sub_mx', 4, 1) = False then
raise Exception.Create('取子流水号失败!');
end
else
begin
smaxno := Trim(CDS_1.fieldbyname('mxid').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Trade_Plan_Sub_mx where MainId=''' + Trim(FCTID) + '''');
sql.Add(' and MXID=''' + Trim(smaxno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_1.fieldbyname('mxid').AsString) = '' then
Append
else
Edit;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Plan_Sub_MX', 0);
FieldByName('mxid').Value := Trim(smaxno);
FieldByName('mainid').Value := Trim(FCTID);
Post;
end;
Next;
end;
end;
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('exec P_Plan_Sub_MXDR');
//
// Open;
// end;
Application.MessageBox('保存成功!', '提示', 0);
ADOQueryCmd.Connection.CommitTrans;
CDS_1.EnableControls;
except
CDS_1.EnableControls;
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message + '编号' + Trim(CDS_1.fieldbyname('C_Code').AsString)), '提示信息', 0);
end;
end;
procedure TfrmkuannoImport.ToolButton3Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if CDS_1.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要删除选择的数据吗？', '提示', 32 + 4) <> IDYES then
exit;
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while Locate('SSel', True, []) do
begin
if Trim(CDS_1.fieldbyname('MXID').AsString) <> '' then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
// sql.Add('insert into Trade_Plan_Sub_Del select * from Trade_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + '''');
sql.Add('delete Trade_Plan_Sub_MX where MXID=''' + Trim(CDS_1.fieldbyname('MXID').AsString) + '''');
ExecSQL;
end;
end;
Delete;
end;
end;
CDS_1.EnableControls;
end;
procedure TfrmkuannoImport.ToolButton5Click(Sender: TObject);
var
excelApp, WorkBook: Variant;
i, j, k, LX, ExcelRowCount: integer;
maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
begin
try
excelApp := CreateOleObject('Excel.Application');
openDialog1.Filter := '*.CSV;*.xls';
if opendialog1.Execute then
begin
WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName);
end
else
exit;
excelApp.Visible := false;
ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
except
application.MessageBox('加载EXCEL错误！', '错误信息', MB_ICONERROR);
exit;
end;
CDS_LM.EmptyDataSet;
for j := 0 to Tv1.ColumnCount - 1 do
begin
with CDS_LM do
begin
Append;
FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName);
FieldByName('LName').Value := trim(Tv1.Columns[j].Caption);
Post;
end;
end;
try
for i := 1 to 50 do
begin
if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then
continue;
if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then
begin
with CDS_LM do
begin
Edit;
FieldByName('LXH').Value := i;
Post;
end;
end;
end;
except
application.MessageBox('加载数组错误！', '错误信息', MB_ICONERROR);
exit;
end;
try
for i := 2 to ExcelRowCount do
begin
with CDS_1 do
begin
Append;
CDS_LM.First;
while not CDS_LM.Eof do
begin
if CDS_LM.FieldByName('LXH').AsInteger > 0 then
CDS_1.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value;
CDS_LM.Next;
end;
FieldByName('drdate').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
Post;
end;
end;
WorkBook.Close;
excelApp.Quit;
excelApp := Unassigned;
WorkBook := Unassigned;
except
WorkBook.Close;
excelApp.Quit;
excelApp := Unassigned;
WorkBook := Unassigned;
application.MessageBox('写入数据异常，导入中断！', '错误信息', MB_ICONERROR);
exit;
end;
end;
end.

313
T01贸易生产计划/U_LabelAdd.dfm Normal file
View File

@ -0,0 +1,313 @@
object frmLabelAdd: TfrmLabelAdd
Left = 443
Top = 146
BorderIcons = [biMaximize]
Caption = #26631#31614#32534#36753
ClientHeight = 539
ClientWidth = 1011
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 28
Width = 413
Height = 513
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object Label2: TLabel
Left = 31
Top = 21
Width = 60
Height = 12
Caption = #26631#31614#25991#20214#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 31
Top = 95
Width = 60
Height = 12
Caption = #22791' '#27880#65306
end
object Label9: TLabel
Left = 31
Top = 71
Width = 60
Height = 12
Caption = #26631#31614#21517#31216#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 31
Top = 47
Width = 60
Height = 12
Caption = #26631#31614#31867#22411#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object LabelFileName: TBtnEditA
Left = 92
Top = 17
Width = 260
Height = 20
ReadOnly = True
TabOrder = 0
OnBtnClick = LabelFileNameBtnClick
end
object beizhu: TMemo
Left = 92
Top = 92
Width = 257
Height = 149
ScrollBars = ssBoth
TabOrder = 3
end
object LabelCaption: TEdit
Left = 92
Top = 67
Width = 258
Height = 20
ReadOnly = True
TabOrder = 2
end
object LabelType: TRTComboBox
Tag = 99
Left = 92
Top = 43
Width = 260
Height = 20
Style = csDropDownList
ItemIndex = 0
TabOrder = 1
Text = #20013#25991#26631#31614
Items.Strings = (
#20013#25991#26631#31614
#33521#25991#26631#31614
#20013#33521#25991#26631#31614)
end
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1011
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar2'
Color = clBtnFace
Images = DataLink_TradePlan.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
Transparent = False
object Tsave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384#26631#31614
ImageIndex = 4
OnClick = TsaveClick
end
object Tclose: TToolButton
Left = 95
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TcloseClick
end
end
object RMPreview1: TRMPreview
Left = 458
Top = 38
Width = 553
Height = 501
Align = alRight
BevelOuter = bvLowered
Caption = #26631#31614#39044#35272
TabOrder = 1
OnDblClick = RMPreview1DblClick
Options.RulerUnit = rmutScreenPixels
Options.RulerVisible = False
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
CommandTimeout = 300
Parameters = <>
Left = 528
Top = 228
end
object OpenDialog1: TOpenDialog
Filter = 'RMFl(*.rmf)|*.rmf'
InitialDir = '.'
Left = 200
Top = 4
end
object RMGridReport1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
ShowProgress = False
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
Preview = RMPreview1
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 360
Top = 8
ReportData = {}
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
CommandTimeout = 300
Parameters = <>
Left = 528
Top = 184
end
object RMGridReportDesigner1: TRMGridReportDesigner
Left = 432
Top = 8
end
object RMBarCodeObject1: TRMBarCodeObject
Left = 280
Top = 4
end
object RMBMPExport1: TRMBMPExport
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
ExportToOneFile = False
Left = 496
Top = 8
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 10
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 576
Top = 8
end
object RMDS_Main: TRMDBDataSet
Visible = True
AliasName = #26631#31614#25968#25454
Left = 458
Top = 144
end
object RMDataDictionary1: TRMDataDictionary
FieldFieldNames.TableName = 'TableName'
FieldFieldNames.FieldName = 'FieldName'
FieldFieldNames.FieldAlias = 'FieldAlias'
Left = 562
Top = 72
end
object ADOQuery1: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 352
Top = 480
end
object RMGridReport2: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
ShowProgress = False
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDS_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 432
Top = 368
ReportData = {}
end
object ADOQueryCmdSC: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 296
Top = 304
object ADOQueryCmdFileContent: TBlobField
FieldName = 'Files'
end
object ADOQueryCmdFtFileName: TStringField
FieldName = 'FileName'
Size = 40
end
object ADOQueryCmdFileEditDate: TDateTimeField
FieldName = 'FileEditDate'
end
object ADOQueryCmdFileSize: TFloatField
FieldName = 'FileSize'
end
object ADOQueryCmdFiller: TStringField
FieldName = 'Filler'
end
object ADOQueryCmdLastEditTime: TDateTimeField
FieldName = 'LastEditTime'
end
object ADOQueryCmdLastEditer: TStringField
FieldName = 'LastEditer'
end
object ADOQueryCmdFileCreateDate: TDateTimeField
FieldName = 'FileCreateDate'
end
object ADOQueryCmdchildPath: TStringField
FieldName = 'FilePath'
end
object ADOQueryCmdFileType: TStringField
FieldName = 'FileType'
end
end
end

Some files were not shown because too many files have changed in this diff Show More