Group_DJD/D10DJjinglei
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
钟舒轶 2026-05-21 09:48:11 +08:00
parent bd97b5e5b0
commit e7c1ab19e9
22 changed files with 7346 additions and 1120 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
项目代码/DJ/G01贸易生产计划/U_GetDllForm.pas
View File

@ -3,8 +3,8 @@ unit U_GetDllForm;
interface
uses
Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, dxCore, cxGridDBTableView,
ActiveX, IniFiles,System.Threading;
Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, dxCore,
cxGridDBTableView, ActiveX, IniFiles, System.Threading;
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;
@ -12,11 +12,11 @@ function ConnData(): Boolean;
function GetsysParam1(): Boolean;
implementation
uses
U_DataLink, U_iniParam,U_globalVar, U_TradePlanList,U_TradePlanMgeList,U_FormLayOutDesign;
U_DataLink, U_iniParam, U_globalVar, U_TradePlanList, U_TradePlanMgeList,
U_FormLayOutDesign, U_ItemTestList;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
@ -58,8 +58,8 @@ begin
DCurHandle := FormH;
IsDelphiLanguage := Language;
gDllFileName:=fDllFileName;
gDllFileCaption:='´ò¾íµê°ü×°Éú²úָʾµ¥';
gDllFileName := fDllFileName;
gDllFileCaption := '打卷店包装生产指示单';
Application := TApplication(App);
DCurHandle := 0;
@ -73,20 +73,25 @@ begin
if trim(DataBaseStr) = '' then
begin
server := '101.132.143.144,7781';
// server := '101.132.143.144,7781';
//server:='192.168.110.193,7781';
dtbase := 'RTBasicsData';
// dtbase := 'RTBasicsData';
// dtbase := 'ruifengsyjyData';
// dtbase:='jingpinjydata' ;
// dtbase := 'sanhaojydata';
// user := 'rtsa';
// pswd := 'rightsoft@5740'; //'rightsoft@123';
server := '101.132.143.144,7781';
dtbase := 'jingleijydata';
user := 'rtsa';
pswd :='rightsoft@5740'; //'rightsoft@123';
pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '管理';
// Parameters1 := '高权限';
dname:='ADMIN';
dcode:='ADMIN';
dname := 'ADMIN';
dcode := 'ADMIN';
end
else
begin
@ -107,11 +112,10 @@ begin
ReadINIFile()
else
WriteINIFile;
GetsysParam(DataLink_TradePlan.AdoDataLink,DataLink_TradePlan.ThreeColorBase,'', '');
GetsysParam(DataLink_TradePlan.AdoDataLink, DataLink_TradePlan.ThreeColorBase, '', '');
// end)
//end);
// GetsysParam1();
// 定义窗口类型 、状态
if WinStyle = 0 then
@ -147,7 +151,19 @@ begin
1: //生产计划单
begin
// Parameters10:='新增';
with TfrmTradePlanMgeList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),FormID) do //
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;
2: //物测报告
begin
// Parameters10:='新增';
with TfrmItemTestList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID) do //
begin
fFormID := FormID;
//FormStyle := mstyle;
@ -239,10 +255,8 @@ begin
IniFile.Free;
end;
end;
initialization
CoInitialize(nil);
dxUnitsLoader.Initialize;

1111
项目代码/DJ/G01贸易生产计划/U_ItemTestInPut.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

1908
项目代码/DJ/G01贸易生产计划/U_ItemTestInPut.pas Normal file
View File

File diff suppressed because it is too large Load Diff

1614
项目代码/DJ/G01贸易生产计划/U_ItemTestList.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

1351
项目代码/DJ/G01贸易生产计划/U_ItemTestList.pas Normal file
View File

File diff suppressed because it is too large Load Diff

35
项目代码/DJ/G01贸易生产计划/U_TradePlanInPut.dfm
View File

@ -8,7 +8,6 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Position = poScreenCenter
WindowState = wsMaximized
OnClose = FormClose
ExplicitTop = -63
ExplicitWidth = 1093
ExplicitHeight = 689
PixelsPerInch = 96
@ -71,12 +70,13 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
object Tsj: TToolButton
Left = 273
Top = 0
AutoSize = True
Caption = #20445#23384#35774#35745
ImageIndex = 16
OnClick = TsjClick
end
object TBClose: TToolButton
Left = 392
Left = 360
Top = 0
AutoSize = True
Caption = #20851#38381
@ -167,6 +167,14 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ImageIndex = 49
OnClick = ToolButton7Click
end
object Timport: TToolButton
Left = 744
Top = 0
AutoSize = True
Caption = #23548#20837
ImageIndex = 17
OnClick = TimportClick
end
end
object dxPanel1: TdxPanel [3]
Left = 0
@ -1022,10 +1030,6 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
object cxTabSheet2: TcxTabSheet
Caption = #21253#26631#31614
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 28
ExplicitWidth = 200
ExplicitHeight = 309
object RMPreview2: TRMPreview
Left = 0
Top = 0
@ -1042,8 +1046,6 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
ExplicitWidth = 200
ExplicitHeight = 309
end
end
end
@ -1055,8 +1057,6 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Height = 250
Align = alBottom
TabOrder = 3
ExplicitLeft = 1
ExplicitTop = 399
object Tv1: TcxGridDBTableView
PopupMenu = PM_1
Navigator.Buttons.CustomButtons = <>
@ -1348,6 +1348,13 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1BatchNoQty: TcxGridDBColumn
Caption = #33853#33394#25968#37327
DataBinding.FieldName = 'BatchNoQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -1389,7 +1396,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Aggregates = <>
Params = <>
Left = 539
Top = 516
Top = 515
end
object GPM_1: TcxGridPopupMenu [12]
Grid = cxGrid1
@ -1527,4 +1534,10 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
OnClick = MenuItem2Click
end
end
object CDS_LM: TClientDataSet
Aggregates = <>
Params = <>
Left = 560
Top = 328
end
end

567
项目代码/DJ/G01贸易生产计划/U_TradePlanInPut.pas
View File

File diff suppressed because it is too large Load Diff

491
项目代码/DJ/G01贸易生产计划/U_TradePlanMgeList.pas
View File

File diff suppressed because it is too large Load Diff

4
项目代码/DJ/G01贸易生产计划/djdPackPlan.dpr
View File

@ -32,8 +32,8 @@ uses
U_ZDYHelpSel in '..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
getpic in 'getpic.pas' {FormGetPic},
U_SysLogOrder in 'U_SysLogOrder.pas' {frmSysLogOrder},
U_TradePlanMgeList in 'U_TradePlanMgeList.pas' {frmTradePlanMgeList},
U_TradePlanInPut in 'U_TradePlanInPut.pas' {frmTradePlanInPut},
U_ItemTestList in 'U_ItemTestList.pas' {frmItemTestList},
U_ItemTestInPut in 'U_ItemTestInPut.pas' {frmItemTestInPut},
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
U_PictureList in '..\A00通用窗体\U_PictureList.pas' {frmPictureList},
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},

87
项目代码/DJ/G01贸易生产计划/djdPackPlan.dproj
View File

@ -4,7 +4,7 @@
<MainSource>djdPackPlan.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion>
@ -13,16 +13,6 @@
<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>
@ -38,24 +28,6 @@
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Android64)'!=''">
<Cfg_1_Android64>true</Cfg_1_Android64>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_1)'=='true') or '$(Cfg_1_iOSDevice64)'!=''">
<Cfg_1_iOSDevice64>true</Cfg_1_iOSDevice64>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_1)'=='true') or '$(Cfg_1_OSX64)'!=''">
<Cfg_1_OSX64>true</Cfg_1_OSX64>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<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>
@ -67,24 +39,6 @@
<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>
@ -104,13 +58,6 @@
<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>
@ -128,15 +75,6 @@
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\testDll.exe</Debugger_HostApplication>
</PropertyGroup>
@ -145,18 +83,9 @@
<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\项目代码\D10djdPack\项目代码\djdPack\G01贸易生产计划\testDll.exe</Debugger_HostApplication>
<Debugger_HostApplication>D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\testDll.exe</Debugger_HostApplication>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
@ -223,11 +152,11 @@
<DCCReference Include="U_SysLogOrder.pas">
<Form>frmSysLogOrder</Form>
</DCCReference>
<DCCReference Include="U_TradePlanMgeList.pas">
<Form>frmTradePlanMgeList</Form>
<DCCReference Include="U_ItemTestList.pas">
<Form>frmItemTestList</Form>
</DCCReference>
<DCCReference Include="U_TradePlanInPut.pas">
<Form>frmTradePlanInPut</Form>
<DCCReference Include="U_ItemTestInPut.pas">
<Form>frmItemTestInPut</Form>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<DCCReference Include="..\A00通用窗体\U_PictureList.pas">
@ -286,10 +215,6 @@
</Excluded_Packages>
</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>

24
项目代码/DJ/G01贸易生产计划/djdPackPlan.dproj.local
View File

@ -61,21 +61,25 @@
<File Path="getpic.dfm"/>
<File Path="U_SysLogOrder.pas"/>
<File Path="U_SysLogOrder.dfm"/>
<File Path="U_TradePlanMgeList.pas"/>
<File Path="U_TradePlanMgeList.dfm"/>
<File Path="U_TradePlanInPut.pas"/>
<File Path="U_TradePlanInPut.dfm"/>
<File Path="U_UptPlanDataToRoll.pas"/>
<File Path="U_UptPlanDataToRoll.dfm"/>
<File Path="U_ItemTestList.pas"/>
<File Path="U_ItemTestList.dfm"/>
<File Path="U_ItemTestInPut.pas"/>
<File Path="U_ItemTestInPut.dfm"/>
</ProjectSortOrder>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.721,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanInPut.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.710,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanMgeList.pas=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.721,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanInPut.pas=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.710,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanMgeList.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm</Transaction>
</Transactions>
</BorlandProject>

BIN
项目代码/DJ/G01贸易生产计划/djdPackPlan.identcache
View File

Binary file not shown.

BIN
项目代码/DJ/G01贸易生产计划/testDll.res
View File

Binary file not shown.

146
项目代码/DJ/G03贸易布匹检验/DjdMachineInsp.dproj.local
View File

@ -4,104 +4,104 @@
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10RepoV1\public10\design\U_FormInitThread.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.417,=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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.157,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradePack.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.870,=D:\rtgit\git_clone\D10DJjinglei\public10\ThreeFun\Form\U_ZDYHelp.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.178,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G03贸易布匹检验\U_CDList.pas=D:\rtgit\git_clone\D10DJjinglei\public10\ThreeFun\Form\U_ZDYHelp.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.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.870,=D:\rtgit\git_clone\D10DJjinglei\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,D:\rtgit\git_clone\D10DJjinglei\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G03贸易布匹检验\U_CDList.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.769,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.792,=D:\rtgit\D10djdPack\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.792,=D:\rtgit\D10djdPack\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</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.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.996,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.608,D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList_Auto.pas=D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\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.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothWaitPack.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm</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\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.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.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</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.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothWaitPack.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas=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.178,D:\rtgit\git_clone\D10DJjinglei\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G03贸易布匹检验\U_CDList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.608,D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList_Auto.dfm=D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.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.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.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.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.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.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.608,D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList.dfm=D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList_Auto.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.608,D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList.pas=D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList_Auto.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.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</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.178,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G03贸易布匹检验\U_CDList.dfm=D:\rtgit\git_clone\D10DJjinglei\public10\ThreeFun\Form\U_ZDYHelp.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.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.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.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.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.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.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\DJ"/>

BIN
项目代码/DJ/G03贸易布匹检验/DjdMachineInsp.identcache
View File

Binary file not shown.

79
项目代码/DJ/G03贸易布匹检验/U_KeyBoard.dfm
View File

@ -2,7 +2,7 @@ object FrameKeyBoard: TFrameKeyBoard
Left = 0
Top = 0
Width = 314
Height = 235
Height = 357
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
@ -14,11 +14,11 @@ object FrameKeyBoard: TFrameKeyBoard
Left = 0
Top = 0
Width = 314
Height = 235
Height = 357
Align = alClient
Frame.Visible = False
TabOrder = 0
ExplicitHeight = 192
ExplicitTop = 1
object SpeedButton1: TSpeedButton
Left = 1
Top = 2
@ -125,8 +125,8 @@ object FrameKeyBoard: TFrameKeyBoard
end
object SpeedButton9: TSpeedButton
Tag = 9
Left = 124
Top = 125
Left = 125
Top = 126
Width = 60
Height = 60
Caption = '9'
@ -165,7 +165,7 @@ object FrameKeyBoard: TFrameKeyBoard
end
object SpeedButton_dot: TSpeedButton
Left = 186
Top = 125
Top = 124
Width = 60
Height = 60
Caption = '.'
@ -179,7 +179,7 @@ object FrameKeyBoard: TFrameKeyBoard
object SpeedButton_yc: TSpeedButton
Tag = 9
Left = 248
Top = 2
Top = 1
Width = 60
Height = 60
Caption = #38544#34255
@ -193,7 +193,7 @@ object FrameKeyBoard: TFrameKeyBoard
object SpeedButton_zdykey2: TSpeedButton
Tag = 9
Left = 248
Top = 63
Top = 124
Width = 60
Height = 60
Caption = 'C'
@ -206,8 +206,8 @@ object FrameKeyBoard: TFrameKeyBoard
end
object SpeedButton_zdykey1: TSpeedButton
Tag = 9
Left = 248
Top = 125
Left = 249
Top = 63
Width = 60
Height = 60
Caption = 'A'
@ -219,8 +219,8 @@ object FrameKeyBoard: TFrameKeyBoard
ParentFont = False
end
object SpeedButton10: TSpeedButton
Left = 2
Top = 187
Left = 1
Top = 190
Width = 60
Height = 44
Caption = '-'
@ -231,5 +231,60 @@ object FrameKeyBoard: TFrameKeyBoard
Font.Style = [fsBold]
ParentFont = False
end
object SpeedButton11: TSpeedButton
Tag = 9
Left = 248
Top = 186
Width = 60
Height = 60
Caption = 'C'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object SpeedButton12: TSpeedButton
Tag = 9
Left = 187
Top = 187
Width = 60
Height = 60
Caption = 'D'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object SpeedButton13: TSpeedButton
Tag = 9
Left = 125
Top = 187
Width = 60
Height = 60
Caption = 'E'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object SpeedButton14: TSpeedButton
Left = 63
Top = 187
Width = 60
Height = 60
Caption = 'F'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
end
end

4
项目代码/DJ/G03贸易布匹检验/U_KeyBoard.pas
View File

@ -28,6 +28,10 @@ type
SpeedButton_zdykey2: TSpeedButton;
SpeedButton_zdykey1: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
private
{ Private declarations }
public

535
项目代码/DJ/G03贸易布匹检验/U_MachRollMain.dfm
View File

File diff suppressed because it is too large Load Diff

58
项目代码/DJ/G03贸易布匹检验/U_MachRollMain.pas
View File

@ -18,7 +18,7 @@ uses
cxGeometry, dxFramedControl, dxPanel, U_KeyBoard, cxGroupBox,
cxGridCustomPopupMenu, cxGridPopupMenu, MovePanel, RM_RichEdit, cxProgressBar,
cxCurrencyEdit, Xml.XMLDoc, Xml.xmldom, Xml.XMLIntf, cxDateUtils,
System.DateUtils, cxLabel;
System.DateUtils, cxLabel, cxButtons;
type
TfrmMachRollMain = class(TfrmBaseList)
@ -136,7 +136,6 @@ type
dxLayoutItem_zhfield: TdxLayoutItem;
AOrdDefNote1: TcxRichEdit;
dxLayoutItem_pic: TdxLayoutItem;
dxLayoutAutoCreatedGroup2: TdxLayoutAutoCreatedGroup;
cds_params: TClientDataSet;
cds_paramsdabao: TStringField;
cds_paramspackRolls: TIntegerField;
@ -294,11 +293,13 @@ type
dxLayoutAutoCreatedGroup9: TdxLayoutAutoCreatedGroup;
dxLayoutAutoCreatedGroup11: TdxLayoutAutoCreatedGroup;
dxLayoutAutoCreatedGroup7: TdxLayoutAutoCreatedGroup;
cxLabel2: TcxLabel;
Tv2CIFType: TcxGridDBColumn;
cxLabel1: TcxLabel;
CIFPoints: TcxButtonEdit;
CIFnote: TcxButtonEdit;
LYFlag: TcxComboBox;
dxLayoutItem_LYFlag: TdxLayoutItem;
btnClear: TcxButton;
dxLayoutItem_btnClear: TdxLayoutItem;
BatchNoQty: TcxTextEdit;
dxLayoutItem_BatchNoQty: TdxLayoutItem;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button_badClick(Sender: TObject);
@ -348,6 +349,7 @@ type
procedure ToolButton1Click(Sender: TObject);
procedure hand_feelPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure frameBads1cxButton1Click(Sender: TObject);
procedure btnClearClick(Sender: TObject);
private
FCIID, FOperationStatus, FCIFName, FWorkshop: string;
FBCIOID, FOrderNo, FMainId, FSubId, FPCId, FConNo, FConMId, fBuyConNo, FConSId: string;
@ -763,6 +765,28 @@ begin
end;
end;
procedure TfrmMachRollMain.btnClearClick(Sender: TObject);
begin
inherited;
BatchNO.text := '';
PieceNo.text := '';
InputMeter.text := '';
C_GramWeight1.text := '';
C_GramWeight2.text := '';
C_GramWeight3.text := '';
ValidC_Width.text := '';
BDBC_Width.text := '';
hand_feel.text := '';
color_diff.text := '';
TW_diff.text := '';
LMR_diff.text := '';
color_light.text := '';
JingMi.text := '';
WeiMi.text := '';
LYFlag.text := '';
unitPieces.text := '';
end;
procedure TfrmMachRollMain.btnRKClick(Sender: TObject);
var
MINo, MStkIds: string;
@ -991,12 +1015,12 @@ begin
end;
if trim(fCanInputFs) = '1' then
begin
cxGroupBox_keys.ClientHeight := round(cxGrid3.ClientHeight * 0.6);
// cxGroupBox_keys.ClientHeight := round(cxGrid3.ClientHeight * 0.6);
frameKeyBoard1.SpeedButton10.Visible := true;
end
else
begin
cxGroupBox_keys.ClientHeight := round(cxGrid3.ClientHeight * 0.55);
// cxGroupBox_keys.ClientHeight := round(cxGrid3.ClientHeight * 0.55);
frameKeyBoard1.SpeedButton10.Visible := false;
end;
finally
@ -1362,7 +1386,7 @@ begin
FC_Code := trim(fieldbyName('C_Code').AsString);
FC_Name := trim(fieldbyName('C_Name').AsString);
FC_EName := trim(fieldbyName('C_EName').AsString);
// FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString);
FBatchNO := Trim(fieldbyname('BatchNO').AsString);
FC_Spec := trim(fieldbyName('C_Spec').AsString);
FC_Color := trim(fieldbyName('C_Color').AsString);
FC_ColorNo := trim(fieldbyName('C_ColorNo').AsString);
@ -1446,7 +1470,7 @@ begin
if fieldbyName('DecimalKg').Value <> null then
cds_params.fieldbyName('kgPlace').value := fieldbyName('DecimalKg').AsInteger;
cds_params.Post;
//
//ÂäÉ«£¨¸×ºÅ£©
BatchNO.Text := trim(fieldbyName('batchNo').AsString);
if (fields.FindField('mcxs') <> nil) and (ADOQueryBaseTemp.FieldByName('zhxs').AsFloat > 0) then
@ -1466,6 +1490,7 @@ begin
FtyPCId.Text := FFtyPCId;
BCIOID.Text := FBCIOID;
Piece.Text := trim(fieldbyName('ordPiece').AsString);
BatchNoQty.text := trim(fieldbyName('BatchNoQty').AsString);
Qty.Text := trim(fieldbyName('ordQty').AsString) + trim(fieldbyName('ordUnit').AsString);
// ƤÖØ
Tare.Text := trim(fieldbyName('RuleLaterTare').AsString);
@ -2347,7 +2372,7 @@ end;
procedure TfrmMachRollMain.cxButton2Click(Sender: TObject);
var
CIFType : string;
CIFType: string;
begin
inherited;
if FCIFName = '' then
@ -2360,7 +2385,7 @@ begin
begin
Close;
SQL.Clear;
sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''WFBCD'' and ZDYName='+QuotedStr(trim(FCIFName)));
sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''WFBCD'' and ZDYName=' + QuotedStr(trim(FCIFName)));
// ShowMessage(sql.Text);
Open;
end;
@ -2379,8 +2404,8 @@ begin
fieldbyName('CIFEnd').value := trim(frameBads1.CIFEnd.Text);
fieldbyName('CIFNumber').value := strtointdef(trim(frameBads1.CIFNumber.Text), 0);
fieldbyName('CIFPoints').value := StrToFloatDef(trim(CIFPoints.Text), 0);
fieldbyName('CIFnote').value := trim(CIFnote.Text);
fieldbyName('CIFPoints').value := StrToFloatDef(trim(frameBads1.CIFPoints.Text), 0);
fieldbyName('CIFnote').value := trim(frameBads1.CIFnote.Text);
fieldbyName('CIFType').value := trim(CIFType);
// if frameBads1.RadioGroup1.ItemIndex > -1 then
// begin
@ -2403,8 +2428,8 @@ begin
frameBads1.CIFBeg.Text := '';
frameBads1.CIFEnd.Text := '';
frameBads1.CIFQty.Text := '';
CIFPoints.Text := '';
CIFnote.Text := '';
frameBads1.CIFPoints.Text := '';
frameBads1.CIFnote.Text := '';
frameBads1.dxPanel1.Visible := false;
cxPageControl1.ActivePageIndex := 0;
end;
@ -2791,6 +2816,7 @@ begin
fieldbyName('color_light').value := trim(color_light.Text);
fieldbyName('JingMi').value := trim(JingMi.Text);
fieldbyName('WeiMi').value := trim(WeiMi.Text);
fieldbyName('LYFlag').value := trim(LYFlag.Text);
/// мӵÄÒ»¶Ñ ///
//Æ´Æ¥

60
项目代码/DJ/G03贸易布匹检验/U_frameBads.dfm
View File

@ -22,9 +22,9 @@ object frameBads: TframeBads
Visible = False
object RadioGroup1: TRadioGroup
Left = 0
Top = 108
Top = 227
Width = 329
Height = 132
Height = 62
Align = alBottom
Columns = 2
Ctl3D = True
@ -43,22 +43,25 @@ object frameBads: TframeBads
ParentCtl3D = False
ParentFont = False
TabOrder = 0
Visible = False
end
object dxPanel3: TdxPanel
Left = 0
Top = 240
Top = 99
Width = 329
Height = 49
Height = 128
Align = alBottom
Frame.Borders = [bLeft, bRight, bBottom]
TabOrder = 1
ExplicitTop = 98
object cxButton1: TcxButton
Left = 25
Top = 3
Left = 4
Top = 85
Width = 71
Height = 41
Caption = #21462#28040#36873#25321
TabOrder = 0
Visible = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
@ -68,8 +71,8 @@ object frameBads: TframeBads
OnClick = cxButton1Click
end
object cxButton2: TcxButton
Left = 174
Top = 4
Left = 116
Top = 84
Width = 75
Height = 38
Caption = #30830' '#23450
@ -82,10 +85,48 @@ object frameBads: TframeBads
ParentFont = False
OnClick = cxButton2Click
end
object cxLabel1: TcxLabel
Left = 46
Top = 8
Caption = #25187#20998
end
object CIFPoints: TcxButtonEdit
Left = 117
Top = 4
Hint = 'CIFPoints/'#25187#20998
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 3
Width = 121
end
object cxLabel2: TcxLabel
Left = 17
Top = 47
Caption = #30133#28857#25551#36848
end
object CIFnote: TcxButtonEdit
Left = 117
Top = 43
Hint = 'CIFnote/'#30133#28857#25551#36848
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 5
Width = 200
end
end
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 9
Top = 0
Width = 329
Height = 99
Align = alBottom
@ -97,6 +138,7 @@ object frameBads: TframeBads
ParentFont = False
TabOrder = 2
LayoutLookAndFeel = DataLink_TradeInsp.dxLayoutSkinLookAndFeel1
ExplicitTop = 9
object CIFBeg: TcxTextEdit
Left = 53
Top = 54

6
项目代码/DJ/G03贸易布匹检验/U_frameBads.pas
View File

@ -9,7 +9,7 @@ uses
Vcl.StdCtrls, Vcl.ExtCtrls, cxTextEdit, MovePanel, Vcl.Buttons, cxGeometry,
dxFramedControl, Vcl.Menus, cxButtons, dxPanel, cxScrollBox,
dxLayoutcxEditAdapters, dxLayoutContainer, cxClasses, dxLayoutControl, Data.DB,
Data.Win.ADODB, cxCheckBox;
Data.Win.ADODB, cxCheckBox, cxLabel, cxMaskEdit, cxButtonEdit;
type
TframeBads = class(TFrame)
@ -43,6 +43,10 @@ type
dxLayoutAutoCreatedGroup1: TdxLayoutAutoCreatedGroup;
cxCheck_len: TcxCheckBox;
dxLayoutItem_checkLen: TdxLayoutItem;
cxLabel1: TcxLabel;
CIFPoints: TcxButtonEdit;
cxLabel2: TcxLabel;
CIFnote: TcxButtonEdit;
procedure cxButton2Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure CIFBegPropertiesEditValueChanged(Sender: TObject);

BIN
项目代码/DJ/G03贸易布匹检验/testDll.identcache
View File

Binary file not shown.