Group_02/D10szXingjie
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-08-02 11:12:55 +08:00
parent 59355309ae
commit 5406694c0e
26 changed files with 1148 additions and 760 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
A02基础产品管理/ClothInfo.identcache
View File

Binary file not shown.

2
E01梭织生产计划/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10Repo\项目代码\恒燕\E01梭织生产计划\TatPlan.dproj"/> <Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXingjie\E01梭织生产计划\TatPlan.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

2
E01梭织生产计划/TatPlan.dproj
View File

@ -124,7 +124,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10szHengYan\E01梭织生产计划\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\Dp10Repo\项目代码\D10szXingjie\E01梭织生产计划\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">

48
E01梭织生产计划/TatPlan.dproj.local
View File

@ -1,51 +1,51 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.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.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.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.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.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.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.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.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</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.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>2025-04-12 17:22:33.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -76,7 +76,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10szHengYan"/> <File Path="..\..\D10szXingjie"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

BIN
E01梭织生产计划/TatPlan.identcache
View File

Binary file not shown.

5
E01梭织生产计划/TatPlan.skincfg Normal file
View File

@ -0,0 +1,5 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=1
dxSkinsDefaultPainters=1

2
E01梭织生产计划/U_GetDllForm.pas
View File

@ -72,7 +72,7 @@ begin
begin begin
server := '101.132.143.144,7781'; server := '101.132.143.144,7781';
dtbase := 'hengyanData'; dtbase := 'xingjieData';
user := 'rtsa'; user := 'rtsa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;

17
E01梭织生产计划/U_TatPlanCard.dfm
View File

@ -278,6 +278,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -313,6 +314,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object v3Column8: TcxGridDBColumn object v3Column8: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
@ -323,6 +325,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object v3Column1: TcxGridDBColumn object v3Column1: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -331,6 +334,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #29983#20135#21333#21495 Caption = #29983#20135#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
@ -338,6 +342,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object v3Column6: TcxGridDBColumn object v3Column6: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -346,6 +351,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object v3Column2: TcxGridDBColumn object v3Column2: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -354,6 +360,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object v3Column14: TcxGridDBColumn object v3Column14: TcxGridDBColumn
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'C_Spec' DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -361,6 +368,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object v3Column15: TcxGridDBColumn object v3Column15: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -368,6 +376,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object v3Column16: TcxGridDBColumn object v3Column16: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'CustName' DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -375,6 +384,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #26426#21488#21495 Caption = #26426#21488#21495
DataBinding.FieldName = 'Loom' DataBinding.FieldName = 'Loom'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -382,6 +392,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -389,6 +400,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #26426#20462 Caption = #26426#20462
DataBinding.FieldName = 'Repairer' DataBinding.FieldName = 'Repairer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -396,6 +408,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #24207#21495 Caption = #24207#21495
DataBinding.FieldName = 'PCNo' DataBinding.FieldName = 'PCNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -403,6 +416,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #26465#30721 Caption = #26465#30721
DataBinding.FieldName = 'PCID' DataBinding.FieldName = 'PCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -410,6 +424,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #25171#21360#27425#25968 Caption = #25171#21360#27425#25968
DataBinding.FieldName = 'PRTCount' DataBinding.FieldName = 'PRTCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -417,6 +432,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #25171#21360#26102#38388 Caption = #25171#21360#26102#38388
DataBinding.FieldName = 'PRTDate' DataBinding.FieldName = 'PRTDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 72 Width = 72
@ -424,6 +440,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #25171#21360#20154 Caption = #25171#21360#20154
DataBinding.FieldName = 'PRTer' DataBinding.FieldName = 'PRTer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66

2
E01梭织生产计划/U_TatPlanCard.pas
View File

@ -12,7 +12,7 @@ uses
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox,
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
U_BaseList, Vcl.Menus; U_BaseList, Vcl.Menus, dxScrollbarAnnotations;
type type
TfrmTatPlanCard = class(TfrmBaseList) TfrmTatPlanCard = class(TfrmBaseList)

8
E01梭织生产计划/U_TatPlanInPut.dfm
View File

@ -909,10 +909,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = ' '#32441#29256#22270' ' Caption = ' '#32441#29256#22270' '
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel7: TPanel object Panel7: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -2547,10 +2543,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = #36215#32508#24037#33402#21333 Caption = #36215#32508#24037#33402#21333
ImageIndex = 3 ImageIndex = 3
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel8: TPanel object Panel8: TPanel
Left = 0 Left = 0
Top = 0 Top = 0

BIN
E01梭织生产计划/testDll.identcache
View File

Binary file not shown.

86
E03梭织坯布检验/TatInsp.dproj.local
View File

@ -1,49 +1,49 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.060,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.060,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.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.044,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.044,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.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.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj</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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10szXingjie"/> <File Path="..\..\D10szXingjie"/>

BIN
E03梭织坯布检验/TatInsp.identcache
View File

Binary file not shown.

52
E03梭织坯布检验/TatInspLogin.dproj.local
View File

@ -1,27 +1,55 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="logon.pas"/> <File Path="android-support-v4.dex.jar"/>
<File Path="logon.dfm"/> <File Path="cloud-messaging.dex.jar"/>
<File Path="spmain.pas"/> <File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
<File Path="spmain.dfm"/> <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="DbPanel"/>
<File Path="DbPanel\MovePanel.pas"/>
<File Path="delphitwain"/> <File Path="delphitwain"/>
<File Path="delphitwain\DelphiTwain.pas"/> <File Path="delphitwain\DelphiTwain.pas"/>
<File Path="delphitwain\DelphiTwainUtils.pas"/> <File Path="delphitwain\DelphiTwainUtils.pas"/>
<File Path="delphitwain\Twain.pas"/> <File Path="delphitwain\Twain.pas"/>
<File Path="DbPanel"/>
<File Path="DbPanel\MovePanel.pas"/>
<File Path="AES.pas"/> <File Path="AES.pas"/>
<File Path="ElAES.pas"/> <File Path="ElAES.pas"/>
<File Path="U_upPassword.pas"/> <File Path="JDAESExtend.pas"/>
<File Path="U_upPassword.dfm"/> <File Path="logon.pas"/>
<File Path="logon.dfm"/>
<File Path="spmain.pas"/>
<File Path="spmain.dfm"/>
<File Path="U_iniParam.pas"/>
<File Path="U_Link.pas"/> <File Path="U_Link.pas"/>
<File Path="U_Link.dfm"/> <File Path="U_Link.dfm"/>
<File Path="U_iniParam.pas"/> <File Path="U_upPassword.pas"/>
<File Path="JDAESExtend.pas"/> <File Path="U_upPassword.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj</Transaction>
</Transactions> </Transactions>
</BorlandProject> </BorlandProject>

85
E03梭织坯布检验/U_TatClothInspList.dfm
View File

@ -7,8 +7,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -556
ExplicitTop = -46
ExplicitWidth = 1483 ExplicitWidth = 1483
ExplicitHeight = 621 ExplicitHeight = 621
PixelsPerInch = 96 PixelsPerInch = 96
@ -129,6 +127,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 136
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp OnMouseUp = Tv1MouseUp
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -394,12 +393,34 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Width = 66 Width = 66
end end
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #23458#25143#33457#22411 Caption = #19979#24067#26102#38388'1'
DataBinding.FieldName = 'C_CustPattern' DataBinding.FieldName = 'xbdate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 76
end
object Tv1Column11: TcxGridDBColumn
Caption = #19979#24067#26102#38388'2'
DataBinding.FieldName = 'xbdate2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 69
end
object Tv1Column12: TcxGridDBColumn
Caption = #19979#24067#26102#38388'3'
DataBinding.FieldName = 'xbdate3'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column13: TcxGridDBColumn
Caption = #19979#24067#26102#38388'4'
DataBinding.FieldName = 'xbdate4'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end end
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
@ -456,14 +477,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object Tv1Column5: TcxGridDBColumn
Caption = #21253#21495
DataBinding.FieldName = 'BAONO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
@ -472,22 +485,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column3: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #24067#31867#21035 Caption = #24067#31867#21035
DataBinding.FieldName = 'btype' DataBinding.FieldName = 'btype'
@ -495,13 +492,33 @@ inherited frmTatClothInspList: TfrmTatClothInspList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 65 Width = 65
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column14: TcxGridDBColumn
Caption = #33521#25991#39068#33394 Caption = #25377#36710#24037'1'
DataBinding.FieldName = 'C_EColor' DataBinding.FieldName = 'SCPerson'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 70
Width = 66 end
object Tv1Column15: TcxGridDBColumn
Caption = #25377#36710#24037'2'
DataBinding.FieldName = 'JBSCPerson'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column16: TcxGridDBColumn
Caption = #25377#36710#24037'3'
DataBinding.FieldName = 'JBSCPerson3'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column17: TcxGridDBColumn
Caption = #25377#36710#24037'4'
DataBinding.FieldName = 'JBSCPerson4'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel

49
E03梭织坯布检验/U_TatClothInspList.pas
View File

@ -14,23 +14,23 @@ uses
RM_e_Jpeg, RM_e_txt, RM_e_csv, Math, Clipbrd, cxPC, cxLookAndFeels, RM_e_Jpeg, RM_e_txt, RM_e_csv, Math, Clipbrd, cxPC, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxDateTimeWheelPicker, dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxDateTimeWheelPicker,
Vcl.Buttons, System.StrUtils, dxScrollbarAnnotations, dxSkinBasic, Vcl.Buttons, System.StrUtils, dxScrollbarAnnotations, dxSkinBasic, dxSkinBlack,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom,
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue; dxSkinXmas2008Blue;
type type
TfrmTatClothInspList = class(TfrmBaseList) TfrmTatClothInspList = class(TfrmBaseList)
@ -85,9 +85,7 @@ type
v1Column34: TcxGridDBColumn; v1Column34: TcxGridDBColumn;
v1Column40: TcxGridDBColumn; v1Column40: TcxGridDBColumn;
v1Column46: TcxGridDBColumn; v1Column46: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
Panel6: TPanel; Panel6: TPanel;
Label31: TLabel; Label31: TLabel;
@ -96,8 +94,6 @@ type
BTNP: TButton; BTNP: TButton;
TCBNOR: TComboBox; TCBNOR: TComboBox;
Tv1Column10: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Panel1: TPanel; Panel1: TPanel;
Label3: TLabel; Label3: TLabel;
Label7: TLabel; Label7: TLabel;
@ -138,6 +134,13 @@ type
carno: TEdit; carno: TEdit;
Label9: TLabel; Label9: TLabel;
Tv1carno: TcxGridDBColumn; Tv1carno: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -349,13 +352,13 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from Tat_Cloth_IO where IOFlag=''入库'' and StkId=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); sql.Add('select * from Tat_Cloth_IO where IOFlag=''出库'' and StkId=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + '''');
Open; Open;
end; end;
if ADOQueryTemp.IsEmpty = False then if ADOQueryTemp.IsEmpty = False then
begin begin
Order_Main.EnableControls; Order_Main.EnableControls;
Application.MessageBox('已产生入库数据不能编辑!', '提示', 0); Application.MessageBox('已产生出库数据不能编辑!', '提示', 0);
Exit; Exit;
end; end;
try try

309
E03梭织坯布检验/U_TatInspEdit.dfm
View File

@ -2,7 +2,7 @@ object frmTatInspEdit: TfrmTatInspEdit
Left = 285 Left = 285
Top = 179 Top = 179
Caption = #24067#21305#31649#29702 Caption = #24067#21305#31649#29702
ClientHeight = 461 ClientHeight = 590
ClientWidth = 913 ClientWidth = 913
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -84,17 +84,17 @@ object frmTatInspEdit: TfrmTatInspEdit
Left = 0 Left = 0
Top = 38 Top = 38
Width = 913 Width = 913
Height = 79 Height = 179
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 18 ExplicitTop = 32
object Label1: TLabel object Label1: TLabel
Left = 745 Left = 18
Top = 55 Top = 14
Width = 52 Width = 52
Height = 12 Height = 12
Caption = #24067#21305#26465#30721 Caption = #24067#21305#26465#30721
@ -134,22 +134,22 @@ object frmTatInspEdit: TfrmTatInspEdit
Caption = #31859#25968 Caption = #31859#25968
end end
object Ma: TLabel object Ma: TLabel
Left = 296 Left = 313
Top = 100 Top = 252
Width = 6 Width = 6
Height = 12 Height = 12
Caption = 'M' Caption = 'M'
end end
object Label7: TLabel object Label7: TLabel
Left = 211 Left = 228
Top = 100 Top = 252
Width = 24 Width = 24
Height = 12 Height = 12
Caption = #21407#30721 Caption = #21407#30721
end end
object Label5: TLabel object Label5: TLabel
Left = 332 Left = 349
Top = 104 Top = 256
Width = 6 Width = 6
Height = 12 Height = 12
Caption = 'M' Caption = 'M'
@ -189,9 +189,120 @@ object frmTatInspEdit: TfrmTatInspEdit
Height = 12 Height = 12
Caption = #30721#25968 Caption = #30721#25968
end end
object Label3: TLabel
Left = 220
Top = 77
Width = 48
Height = 23
Caption = #25377#36710'2'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label34: TLabel
Left = 27
Top = 78
Width = 48
Height = 23
Caption = #25377#36710'1'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label37: TLabel
Left = 595
Top = 77
Width = 48
Height = 23
Caption = #25377#36710'4'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label39: TLabel
Left = 404
Top = 77
Width = 48
Height = 23
Caption = #25377#36710'3'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label36: TLabel
Left = 37
Top = 112
Width = 38
Height = 23
Caption = #31859#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label38: TLabel
Left = 230
Top = 112
Width = 38
Height = 23
Caption = #31859#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label40: TLabel
Left = 414
Top = 112
Width = 38
Height = 23
Caption = #31859#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label41: TLabel
Left = 604
Top = 112
Width = 38
Height = 23
Caption = #31859#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 207
Top = 47
Width = 48
Height = 12
Caption = #30721#34920#31859#25968
end
object CIID: TEdit object CIID: TEdit
Left = 803 Left = 76
Top = 49 Top = 8
Width = 110 Width = 110
Height = 24 Height = 24
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -218,8 +329,8 @@ object frmTatInspEdit: TfrmTatInspEdit
TabOrder = 3 TabOrder = 3
end end
object RadioGroup1: TRadioGroup object RadioGroup1: TRadioGroup
Left = 590 Left = 760
Top = 6 Top = 115
Width = 153 Width = 153
Height = 58 Height = 58
Columns = 3 Columns = 3
@ -228,10 +339,11 @@ object frmTatInspEdit: TfrmTatInspEdit
#27491#21697 #27491#21697
#27425#21697) #27425#21697)
TabOrder = 0 TabOrder = 0
Visible = False
end end
object MJQty1: TEdit object MJQty1: TEdit
Left = 236 Left = 253
Top = 100 Top = 252
Width = 54 Width = 54
Height = 20 Height = 20
TabOrder = 6 TabOrder = 6
@ -257,18 +369,152 @@ object frmTatInspEdit: TfrmTatInspEdit
Height = 20 Height = 20
TabOrder = 7 TabOrder = 7
end end
object SCPerson: TcxButtonEdit
Left = 83
Top = 74
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = SCPersonPropertiesButtonClick
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -21
Style.Font.Name = #23435#20307
Style.Font.Style = [fsBold]
Style.IsFontAssigned = True
TabOrder = 8
Width = 102
end
object JBSCPerson: TcxButtonEdit
Left = 277
Top = 74
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = JBSCPersonPropertiesButtonClick
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -21
Style.Font.Name = #23435#20307
Style.Font.Style = [fsBold]
Style.IsFontAssigned = True
TabOrder = 9
Width = 102
end
object JBSCPerson3: TcxButtonEdit
Left = 461
Top = 74
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = JBSCPerson3PropertiesButtonClick
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -21
Style.Font.Name = #23435#20307
Style.Font.Style = [fsBold]
Style.IsFontAssigned = True
TabOrder = 10
Width = 102
end
object JBSCPerson4: TcxButtonEdit
Left = 652
Top = 74
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = JBSCPerson4PropertiesButtonClick
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -21
Style.Font.Name = #23435#20307
Style.Font.Style = [fsBold]
Style.IsFontAssigned = True
TabOrder = 11
Width = 102
end
object OutPutQty1: TEdit
Left = 83
Top = 109
Width = 72
Height = 29
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 12
end
object OutPutQty2: TEdit
Left = 277
Top = 109
Width = 72
Height = 29
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 13
end
object OutPutQty3: TEdit
Left = 459
Top = 109
Width = 72
Height = 29
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 14
end
object OutPutQty4: TEdit
Left = 652
Top = 109
Width = 72
Height = 29
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 15
end
object InputLen: TEdit
Left = 261
Top = 43
Width = 54
Height = 20
TabOrder = 16
end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 117 Top = 217
Width = 913 Width = 913
Height = 344 Height = 373
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 97
ExplicitHeight = 364
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -295,6 +541,7 @@ object frmTatInspEdit: TfrmTatInspEdit
object TV1Column1: TcxGridDBColumn object TV1Column1: TcxGridDBColumn
Caption = #30133#28857 Caption = #30133#28857
DataBinding.FieldName = 'CIFName' DataBinding.FieldName = 'CIFName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -308,6 +555,7 @@ object frmTatInspEdit: TfrmTatInspEdit
object cxGridDBColumn2: TcxGridDBColumn object cxGridDBColumn2: TcxGridDBColumn
Caption = #30133#28857#21517#31216 Caption = #30133#28857#21517#31216
DataBinding.FieldName = 'CIFName' DataBinding.FieldName = 'CIFName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
@ -316,6 +564,7 @@ object frmTatInspEdit: TfrmTatInspEdit
object cxGridDBColumn3: TcxGridDBColumn object cxGridDBColumn3: TcxGridDBColumn
Caption = #20301#32622#36215 Caption = #20301#32622#36215
DataBinding.FieldName = 'CIFbeg' DataBinding.FieldName = 'CIFbeg'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -326,6 +575,7 @@ object frmTatInspEdit: TfrmTatInspEdit
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #20301#32622#27490 Caption = #20301#32622#27490
DataBinding.FieldName = 'CIFend' DataBinding.FieldName = 'CIFend'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 79 Width = 79
@ -333,6 +583,7 @@ object frmTatInspEdit: TfrmTatInspEdit
object cxGridDBColumn5: TcxGridDBColumn object cxGridDBColumn5: TcxGridDBColumn
Caption = #38271#24230 Caption = #38271#24230
DataBinding.FieldName = 'CIFQty' DataBinding.FieldName = 'CIFQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Sorting = False Options.Sorting = False
@ -341,6 +592,7 @@ object frmTatInspEdit: TfrmTatInspEdit
object cxGridDBColumn6: TcxGridDBColumn object cxGridDBColumn6: TcxGridDBColumn
Caption = #21407#22240 Caption = #21407#22240
DataBinding.FieldName = 'CDReason' DataBinding.FieldName = 'CDReason'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Sorting = False Options.Sorting = False
@ -348,12 +600,14 @@ object frmTatInspEdit: TfrmTatInspEdit
end end
object cxGridDBColumn7: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
DataBinding.FieldName = 'CDQty' DataBinding.FieldName = 'CDQty'
DataBinding.IsNullValueType = True
Visible = False Visible = False
Width = 60 Width = 60
end end
object cxGridDBColumn8: TcxGridDBColumn object cxGridDBColumn8: TcxGridDBColumn
Caption = #25187#20998 Caption = #25187#20998
DataBinding.FieldName = 'CIFPoints' DataBinding.FieldName = 'CIFPoints'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 73 Width = 73
@ -361,6 +615,7 @@ object frmTatInspEdit: TfrmTatInspEdit
object cxGridDBColumn9: TcxGridDBColumn object cxGridDBColumn9: TcxGridDBColumn
Caption = #20010#25968 Caption = #20010#25968
DataBinding.FieldName = 'CIFNumber' DataBinding.FieldName = 'CIFNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 69 Width = 69
@ -381,8 +636,8 @@ object frmTatInspEdit: TfrmTatInspEdit
Connection = DataLink_TatInsp.ADOLink Connection = DataLink_TatInsp.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 336 Left = 488
Top = 200 Top = 344
end end
object ADOCmd: TADOQuery object ADOCmd: TADOQuery
Connection = DataLink_TatInsp.ADOLink Connection = DataLink_TatInsp.ADOLink
@ -392,13 +647,13 @@ object frmTatInspEdit: TfrmTatInspEdit
end end
object DataSource1: TDataSource object DataSource1: TDataSource
DataSet = Order_MJ DataSet = Order_MJ
Left = 528 Left = 712
Top = 200 Top = 320
end end
object Order_MJ: TClientDataSet object Order_MJ: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 424 Left = 632
Top = 200 Top = 336
end end
end end

145
E03梭织坯布检验/U_TatInspEdit.pas
View File

@ -9,7 +9,8 @@ uses
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin,
cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges; dxSkinsDefaultPainters, dxDateRanges, dxScrollbarAnnotations, cxContainer,
cxMaskEdit;
type type
TfrmTatInspEdit = class(TForm) TfrmTatInspEdit = class(TForm)
@ -57,6 +58,24 @@ type
cxGridDBColumn9: TcxGridDBColumn; cxGridDBColumn9: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel; cxGridLevel3: TcxGridLevel;
TV1Column1: TcxGridDBColumn; TV1Column1: TcxGridDBColumn;
Label3: TLabel;
Label34: TLabel;
Label37: TLabel;
Label39: TLabel;
SCPerson: TcxButtonEdit;
JBSCPerson: TcxButtonEdit;
JBSCPerson3: TcxButtonEdit;
JBSCPerson4: TcxButtonEdit;
Label36: TLabel;
Label38: TLabel;
Label40: TLabel;
Label41: TLabel;
OutPutQty1: TEdit;
OutPutQty2: TEdit;
OutPutQty3: TEdit;
OutPutQty4: TEdit;
Label8: TLabel;
InputLen: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure tv2CDWZPropertiesEditValueChanged(Sender: TObject); procedure tv2CDWZPropertiesEditValueChanged(Sender: TObject);
@ -68,6 +87,10 @@ type
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject); procedure cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject);
procedure TV1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TV1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure SCPersonPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure JBSCPersonPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure JBSCPerson3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure JBSCPerson4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private private
{ Private declarations } { Private declarations }
function SaveData(): Boolean; function SaveData(): Boolean;
@ -82,7 +105,7 @@ var
implementation implementation
uses uses
U_RTFun, U_ZDYHelp, U_DataLink; U_RTFun, U_ZDYHelp, U_DataLink, U_EmployeeSel;
{$R *.dfm} {$R *.dfm}
procedure TfrmTatInspEdit.GetJYXK(FJYIP: string); procedure TfrmTatInspEdit.GetJYXK(FJYIP: string);
@ -109,6 +132,16 @@ begin
NetWeight.Text := Trim(ADOTmp.fieldbyname('NetWeight').AsString); NetWeight.Text := Trim(ADOTmp.fieldbyname('NetWeight').AsString);
Meter.Text := Trim(ADOTmp.fieldbyname('Meter').AsString); Meter.Text := Trim(ADOTmp.fieldbyname('Meter').AsString);
Yardage.Text := Trim(ADOTmp.fieldbyname('Yardage').AsString); Yardage.Text := Trim(ADOTmp.fieldbyname('Yardage').AsString);
InputLen.Text := Trim(ADOTmp.fieldbyname('InputLen').AsString);
SCPerson.Text := Trim(ADOTmp.fieldbyname('SCPerson').AsString);
JBSCPerson.Text := Trim(ADOTmp.fieldbyname('JBSCPerson').AsString);
JBSCPerson3.Text := Trim(ADOTmp.fieldbyname('JBSCPerson3').AsString);
JBSCPerson4.Text := Trim(ADOTmp.fieldbyname('JBSCPerson4').AsString);
OutPutQty1.Text := Trim(ADOTmp.fieldbyname('OutPutQty1').AsString);
OutPutQty2.Text := Trim(ADOTmp.fieldbyname('OutPutQty2').AsString);
OutPutQty3.Text := Trim(ADOTmp.fieldbyname('OutPutQty3').AsString);
OutPutQty4.Text := Trim(ADOTmp.fieldbyname('OutPutQty4').AsString);
if Trim(Trim(ADOTmp.fieldbyname('Grade').AsString)) = '正品' then if Trim(Trim(ADOTmp.fieldbyname('Grade').AsString)) = '正品' then
begin begin
@ -133,6 +166,60 @@ begin
end; end;
procedure TfrmTatInspEdit.JBSCPerson3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmEmployeeSel := TfrmEmployeeSel.Create(self);
with frmEmployeeSel do
begin
FPost := 'µ²³µ¹¤';
if ShowModal = 1 then
begin
JBSCPerson3.Text := frmEmployeeSel.FRName;
JBSCPerson3.Hint := frmEmployeeSel.FRCode;
end;
end;
finally
frmEmployeeSel.Free;
end;
end;
procedure TfrmTatInspEdit.JBSCPerson4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmEmployeeSel := TfrmEmployeeSel.Create(self);
with frmEmployeeSel do
begin
FPost := 'µ²³µ¹¤';
if ShowModal = 1 then
begin
JBSCPerson4.Text := frmEmployeeSel.FRName;
JBSCPerson4.Hint := frmEmployeeSel.FRCode;
end;
end;
finally
frmEmployeeSel.Free;
end;
end;
procedure TfrmTatInspEdit.JBSCPersonPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmEmployeeSel := TfrmEmployeeSel.Create(self);
with frmEmployeeSel do
begin
FPost := 'µ²³µ¹¤';
if ShowModal = 1 then
begin
JBSCPerson.Text := frmEmployeeSel.FRName;
JBSCPerson.Hint := frmEmployeeSel.FRCode;
end;
end;
finally
frmEmployeeSel.Free;
end;
end;
procedure TfrmTatInspEdit.cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject); procedure TfrmTatInspEdit.cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, CIFbeg, CIFEnd: string; mvalue, CIFbeg, CIFEnd: string;
@ -330,31 +417,33 @@ begin
sql.Clear; sql.Clear;
sql.Add(' UPdate Tat_Cloth_Inspect Set '); sql.Add(' UPdate Tat_Cloth_Inspect Set ');
sql.Add(' PieceNo=''' + Trim(PieceNo.Text) + ''' '); sql.Add(' PieceNo=''' + Trim(PieceNo.Text) + ''' ');
sql.Add(' ,SCPerson=''' + Trim(SCPerson.Text) + ''' ');
sql.Add(' ,JBSCPerson=''' + Trim(JBSCPerson.Text) + ''' ');
sql.Add(' ,JBSCPerson3=''' + Trim(JBSCPerson3.Text) + ''' ');
sql.Add(' ,JBSCPerson4=''' + Trim(JBSCPerson4.Text) + ''' ');
sql.Add(',GrossWeight=' + FloatToStr(Strtofloatdef(GrossWeight.Text, 0))); sql.Add(',GrossWeight=' + FloatToStr(Strtofloatdef(GrossWeight.Text, 0)));
sql.Add(',NetWeight=' + FloatToStr(Strtofloatdef(NetWeight.Text, 0))); sql.Add(',NetWeight=' + FloatToStr(Strtofloatdef(NetWeight.Text, 0)));
sql.Add(',Meter=' + FloatToStr(Strtofloatdef(Meter.Text, 0))); sql.Add(',Meter=' + FloatToStr(Strtofloatdef(Meter.Text, 0)));
sql.Add(',Yardage=' + FloatToStr(Strtofloatdef(Yardage.Text, 0))); sql.Add(',Yardage=' + FloatToStr(Strtofloatdef(Yardage.Text, 0)));
sql.Add(',InputLen=' + FloatToStr(Strtofloatdef(InputLen.Text, 0)));
if RadioGroup1.ItemIndex = 0 then sql.Add(',OutPutQty1=' + FloatToStr(Strtofloatdef(OutPutQty1.Text, 0)));
begin sql.Add(',OutPutQty2=' + FloatToStr(Strtofloatdef(OutPutQty2.Text, 0)));
sql.Add(',Grade=''正品'' '); sql.Add(',OutPutQty3=' + FloatToStr(Strtofloatdef(OutPutQty3.Text, 0)));
end sql.Add(',OutPutQty4=' + FloatToStr(Strtofloatdef(OutPutQty4.Text, 0)));
else if RadioGroup1.ItemIndex = 1 then
begin // if RadioGroup1.ItemIndex = 0 then
sql.Add(',Grade=''次品'' '); // begin
end; // sql.Add(',Grade=''ÕýÆ·'' ');
// end
// else if RadioGroup1.ItemIndex = 1 then
// begin
// sql.Add(',Grade=''´ÎÆ·'' ');
// end;
sql.Add(' where CIID=''' + Trim(Label2.Caption) + ''''); sql.Add(' where CIID=''' + Trim(Label2.Caption) + '''');
ExecSQL; ExecSQL;
end; end;
////////////////// 更新卷号疵点信息 //////////////////
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_Tat_Insp_Up @CIID=''' + Trim(Label2.Caption) + '''');
sql.Add(',@InspType=' + QuotedStr('单卷修改'));
execsql;
end;
////////////////// 更新卷号疵点信息 ////////////////// ////////////////// 更新卷号疵点信息 //////////////////
/// ///
////////////////// 出入库及库存 ////////////////// ////////////////// 出入库及库存 //////////////////
@ -386,6 +475,24 @@ begin
end; end;
end; end;
procedure TfrmTatInspEdit.SCPersonPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmEmployeeSel := TfrmEmployeeSel.Create(self);
with frmEmployeeSel do
begin
FPost := 'µ²³µ¹¤';
if ShowModal = 1 then
begin
SCPerson.Text := frmEmployeeSel.FRName;
SCPerson.Hint := frmEmployeeSel.FRCode;
end;
end;
finally
frmEmployeeSel.Free;
end;
end;
procedure TfrmTatInspEdit.ToolButton2Click(Sender: TObject); procedure TfrmTatInspEdit.ToolButton2Click(Sender: TObject);
begin begin
if Trim(Label2.Caption) = '' then if Trim(Label2.Caption) = '' then

741
E03梭织坯布检验/U_TatMachInsp.dfm
View File

File diff suppressed because it is too large Load Diff

156
E03梭织坯布检验/U_TatMachInsp.pas
View File

@ -55,71 +55,51 @@ type
SpeedButton15: TSpeedButton; SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton; SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton; SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
SpeedButton21: TSpeedButton;
SpeedButton22: TSpeedButton; SpeedButton22: TSpeedButton;
SpeedButton23: TSpeedButton; SpeedButton23: TSpeedButton;
SpeedButton24: TSpeedButton; SpeedButton24: TSpeedButton;
SpeedButton25: TSpeedButton; SpeedButton25: TSpeedButton;
SpeedButton26: TSpeedButton; SpeedButton26: TSpeedButton;
SpeedButton29: TSpeedButton;
SpeedButton30: TSpeedButton;
SpeedButton31: TSpeedButton; SpeedButton31: TSpeedButton;
SpeedButton32: TSpeedButton; SpeedButton32: TSpeedButton;
SpeedButton33: TSpeedButton; SpeedButton33: TSpeedButton;
SpeedButton34: TSpeedButton; SpeedButton34: TSpeedButton;
SpeedButton37: TSpeedButton; SpeedButton37: TSpeedButton;
SpeedButton38: TSpeedButton;
SpeedButton39: TSpeedButton;
SpeedButton40: TSpeedButton; SpeedButton40: TSpeedButton;
SpeedButton41: TSpeedButton; SpeedButton41: TSpeedButton;
SpeedButton42: TSpeedButton; SpeedButton42: TSpeedButton;
SpeedButton45: TSpeedButton; SpeedButton45: TSpeedButton;
SpeedButton46: TSpeedButton; SpeedButton46: TSpeedButton;
SpeedButton47: TSpeedButton;
SpeedButton48: TSpeedButton;
SpeedButton50: TSpeedButton; SpeedButton50: TSpeedButton;
SpeedButton51: TSpeedButton; SpeedButton51: TSpeedButton;
SpeedButton54: TSpeedButton; SpeedButton54: TSpeedButton;
SpeedButton55: TSpeedButton; SpeedButton55: TSpeedButton;
SpeedButton56: TSpeedButton; SpeedButton56: TSpeedButton;
SpeedButton57: TSpeedButton;
SpeedButton58: TSpeedButton;
SpeedButton59: TSpeedButton; SpeedButton59: TSpeedButton;
SpeedButton62: TSpeedButton; SpeedButton62: TSpeedButton;
SpeedButton63: TSpeedButton; SpeedButton63: TSpeedButton;
SpeedButton64: TSpeedButton; SpeedButton64: TSpeedButton;
SpeedButton65: TSpeedButton; SpeedButton65: TSpeedButton;
SpeedButton66: TSpeedButton;
SpeedButton67: TSpeedButton;
SpeedButton70: TSpeedButton; SpeedButton70: TSpeedButton;
SpeedButton71: TSpeedButton; SpeedButton71: TSpeedButton;
SpeedButton72: TSpeedButton; SpeedButton72: TSpeedButton;
SpeedButton73: TSpeedButton; SpeedButton73: TSpeedButton;
SpeedButton74: TSpeedButton; SpeedButton74: TSpeedButton;
SpeedButton75: TSpeedButton;
SpeedButton19: TSpeedButton;
SpeedButton20: TSpeedButton; SpeedButton20: TSpeedButton;
SpeedButton27: TSpeedButton; SpeedButton27: TSpeedButton;
SpeedButton28: TSpeedButton; SpeedButton28: TSpeedButton;
SpeedButton35: TSpeedButton; SpeedButton35: TSpeedButton;
SpeedButton36: TSpeedButton; SpeedButton36: TSpeedButton;
SpeedButton43: TSpeedButton;
SpeedButton44: TSpeedButton;
SpeedButton52: TSpeedButton; SpeedButton52: TSpeedButton;
SpeedButton53: TSpeedButton; SpeedButton53: TSpeedButton;
SpeedButton60: TSpeedButton; SpeedButton60: TSpeedButton;
SpeedButton61: TSpeedButton; SpeedButton61: TSpeedButton;
SpeedButton68: TSpeedButton; SpeedButton68: TSpeedButton;
SpeedButton69: TSpeedButton;
SpeedButton76: TSpeedButton;
SpeedButton77: TSpeedButton; SpeedButton77: TSpeedButton;
SpeedButton78: TSpeedButton; SpeedButton78: TSpeedButton;
SpeedButton79: TSpeedButton; SpeedButton79: TSpeedButton;
SpeedButton80: TSpeedButton; SpeedButton80: TSpeedButton;
SpeedButton81: TSpeedButton; SpeedButton81: TSpeedButton;
SpeedButton82: TSpeedButton;
SpeedButton83: TSpeedButton;
CDS_3: TClientDataSet; CDS_3: TClientDataSet;
DS_3: TDataSource; DS_3: TDataSource;
ADOQueryImage: TADOQuery; ADOQueryImage: TADOQuery;
@ -341,6 +321,23 @@ type
Edit2: TEdit; Edit2: TEdit;
Tv3Column5: TcxGridDBColumn; Tv3Column5: TcxGridDBColumn;
Tv3CARNO: TcxGridDBColumn; Tv3CARNO: TcxGridDBColumn;
BegDate: TDateTimePicker;
Label56: TLabel;
Tv3Column4: TcxGridDBColumn;
Label57: TLabel;
BegDate2: TDateTimePicker;
Label58: TLabel;
BegDate3: TDateTimePicker;
Label59: TLabel;
BegDate4: TDateTimePicker;
Tv3Column6: TcxGridDBColumn;
Tv3Column7: TcxGridDBColumn;
Tv3Column8: TcxGridDBColumn;
Tv3Column9: TcxGridDBColumn;
Tv3Column10: TcxGridDBColumn;
Tv3Column11: TcxGridDBColumn;
Tv3Column12: TcxGridDBColumn;
Tv3Column13: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -403,6 +400,8 @@ type
procedure InputWeightChange(Sender: TObject); procedure InputWeightChange(Sender: TObject);
procedure Edit1Click(Sender: TObject); procedure Edit1Click(Sender: TObject);
procedure Edit2Click(Sender: TObject); procedure Edit2Click(Sender: TObject);
procedure JBSCPerson3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure JBSCPerson4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private private
{ Private declarations } { Private declarations }
FCIID, FOperationStatus, FCIFName, FWorkshop: string; FCIID, FOperationStatus, FCIFName, FWorkshop: string;
@ -855,6 +854,24 @@ begin
end; end;
end; end;
procedure TfrmTatMachInsp.JBSCPerson3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmEmployeeSel := TfrmEmployeeSel.Create(self);
with frmEmployeeSel do
begin
FPost := '挡车工';
if ShowModal = 1 then
begin
JBSCPerson3.Text := frmEmployeeSel.FRName;
JBSCPerson3.Hint := frmEmployeeSel.FRCode;
end;
end;
finally
frmEmployeeSel.Free;
end;
end;
procedure TfrmTatMachInsp.JBSCPerson4Click(Sender: TObject); procedure TfrmTatMachInsp.JBSCPerson4Click(Sender: TObject);
begin begin
inherited; inherited;
@ -874,6 +891,24 @@ begin
end; end;
end; end;
procedure TfrmTatMachInsp.JBSCPerson4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmEmployeeSel := TfrmEmployeeSel.Create(self);
with frmEmployeeSel do
begin
FPost := '挡车工';
if ShowModal = 1 then
begin
JBSCPerson4.Text := frmEmployeeSel.FRName;
JBSCPerson4.Hint := frmEmployeeSel.FRCode;
end;
end;
finally
frmEmployeeSel.Free;
end;
end;
procedure TfrmTatMachInsp.JBSCPerson5Click(Sender: TObject); procedure TfrmTatMachInsp.JBSCPerson5Click(Sender: TObject);
begin begin
inherited; inherited;
@ -968,18 +1003,7 @@ end;
procedure TfrmTatMachInsp.InitJTM(MCIID: string); procedure TfrmTatMachInsp.InitJTM(MCIID: string);
begin begin
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select * from Tat_Cloth_IO where StkId=''' + Trim(MCIID) + ''' and IOFlag=''入库''');
Open;
end;
if not ADOTmp.IsEmpty then
begin
Application.MessageBox('已产生入库数据不能操作!', '提示', 0);
Exit;
end;
with ADOTmp do with ADOTmp do
begin begin
Close; Close;
@ -1003,6 +1027,36 @@ begin
begin begin
FOperationStatus := '卷条码'; FOperationStatus := '卷条码';
FCIID := MCIID; FCIID := MCIID;
SCSHData(ADOTmp, Panel2, 1);
if ADOTmp.FieldByName('XBDATE').IsNull = false then
begin
BegDate.DateTime := ADOTmp.FieldByName('XBDATE').Value;
end;
if ADOTmp.FieldByName('XBDATE2').IsNull = false then
begin
BegDate2.DateTime := ADOTmp.FieldByName('XBDATE2').Value;
end;
if ADOTmp.FieldByName('XBDATE3').IsNull = false then
begin
BegDate2.DateTime := ADOTmp.FieldByName('XBDATE3').Value;
end;
if ADOTmp.FieldByName('XBDATE4').IsNull = false then
begin
BegDate2.DateTime := ADOTmp.FieldByName('XBDATE4').Value;
end;
if ADOTmp.FieldByName('BTYPE').AsString = '开机布' then
begin
Edit1.Text := '√';
end;
if ADOTmp.FieldByName('BTYPE').AsString = '了机布' then
begin
Edit2.Text := '√';
end;
CodeName.Text := ADOTmp.FieldByName('C_NAME').AsString;
carno.Text := ADOTmp.FieldByName('carno').AsString;
InitCDGrid(MCIID); InitCDGrid(MCIID);
end; end;
@ -1053,7 +1107,7 @@ begin
end; end;
// if ADOTmp.IsEmpty = FALSE then // if ADOTmp.IsEmpty = FALSE then
// begin // begin
Coefficient.Text := ADOTmp.FieldByName('XS').AsString; Coefficient.Text := ADOTmp.FieldByName('XS').AsString;
// end; // end;
end; end;
@ -1321,6 +1375,10 @@ begin
ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易检验管理'); ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易检验管理');
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, '贸易检验管理'); ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, '贸易检验管理');
ReadCxGrid(trim(Self.Caption) + 'Tv31', Tv3, '贸易检验管理'); ReadCxGrid(trim(Self.Caption) + 'Tv31', Tv3, '贸易检验管理');
BegDate.DateTime := SGetServerDate(ADOTmp) - 1;
BegDate2.DateTime := SGetServerDate(ADOTmp) - 1;
BegDate3.DateTime := SGetServerDate(ADOTmp) - 1;
BegDate4.DateTime := SGetServerDate(ADOTmp) - 1;
fFlileFlag := UserDataFlag + 'HX'; fFlileFlag := UserDataFlag + 'HX';
InitCDPanel(); InitCDPanel();
InitCDGrid(FCIID); InitCDGrid(FCIID);
@ -1371,9 +1429,9 @@ begin
end; end;
end; end;
i := i - 1; i := i - 1;
if i > 69 then if i > 49 then
begin begin
i := 69; i := 49;
end; end;
for j := 0 to i do for j := 0 to i do
begin begin
@ -1459,6 +1517,21 @@ begin
FieldByName('GrossWeight').Value := MGrossWeight; FieldByName('GrossWeight').Value := MGrossWeight;
FieldByName('NetWeight').Value := MNetWeight; FieldByName('NetWeight').Value := MNetWeight;
FieldByName('Tare').Value := MTare; FieldByName('Tare').Value := MTare;
FieldByName('XBDATE').Value := BegDate.DateTime;
if JBSCPerson.Text <> '' then
begin
FieldByName('XBDATE2').Value := BegDate2.DateTime;
end;
if JBSCPerson3.Text <> '' then
begin
FieldByName('XBDATE3').Value := BegDate3.DateTime;
end;
if JBSCPerson4.Text <> '' then
begin
FieldByName('XBDATE4').Value := BegDate4.DateTime;
end;
///////////////////////// 保存重量 ///////////////////////// ///////////////////////// 保存重量 /////////////////////////
/// ///
///////////////////////// 保存长度 ///////////////////////// ///////////////////////// 保存长度 /////////////////////////
@ -2218,18 +2291,7 @@ procedure TfrmTatMachInsp.ToolButton6Click(Sender: TObject);
begin begin
if CDS_3.IsEmpty then if CDS_3.IsEmpty then
Exit; Exit;
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select * from Tat_Cloth_IO where StkId=''' + Trim(CDS_3.fieldbyname('CIID').AsString) + ''' and IOFlag=''入库''');
Open;
end;
if not ADOTmp.IsEmpty then
begin
Application.MessageBox('已产生入库数据不能删除!', '提示', 0);
Exit;
end;
with ADOTmp do with ADOTmp do
begin begin
Close; Close;

128
E04梭织坯布仓库/TatClothStk.dproj.local
View File

@ -1,70 +1,70 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.029,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.029,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm</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.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm</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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj</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.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.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.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj</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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.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.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</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.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.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.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</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.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.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.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.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.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.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.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.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.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.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.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10szXingjie"/> <File Path="..\..\D10szXingjie"/>

BIN
E04梭织坯布仓库/TatClothStk.identcache
View File

Binary file not shown.

29
E04梭织坯布仓库/U_TatClothInList.dfm
View File

@ -7,8 +7,7 @@ inherited frmTatClothInList: TfrmTatClothInList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -286 ExplicitLeft = -359
ExplicitTop = -60
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 635 ExplicitHeight = 635
PixelsPerInch = 96 PixelsPerInch = 96
@ -393,6 +392,7 @@ inherited frmTatClothInList: TfrmTatClothInList
AutoSize = True AutoSize = True
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 2 TabOrder = 2
ExplicitTop = 111
DesignSize = ( DesignSize = (
1536 1536
23) 23)
@ -840,13 +840,34 @@ inherited frmTatClothInList: TfrmTatClothInList
Width = 66 Width = 66
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #33521#25991#39068#33394 Caption = #19979#24067#26102#38388
DataBinding.FieldName = 'C_EColor' DataBinding.FieldName = 'xbdate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column23: TcxGridDBColumn
Caption = #19979#24067#26102#38388'2'
DataBinding.FieldName = 'xbdate2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1Column24: TcxGridDBColumn
Caption = #19979#24067#26102#38388'3'
DataBinding.FieldName = 'xbdate3'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 74
end
object Tv1Column25: TcxGridDBColumn
Caption = #19979#24067#26102#38388'4'
DataBinding.FieldName = 'xbdate4'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object Tv1Column15: TcxGridDBColumn object Tv1Column15: TcxGridDBColumn
Caption = #25377#36710#24037'1' Caption = #25377#36710#24037'1'
DataBinding.FieldName = 'SCPerson' DataBinding.FieldName = 'SCPerson'

3
E04梭织坯布仓库/U_TatClothInList.pas
View File

@ -129,6 +129,9 @@ type
Tv1Column22: TcxGridDBColumn; Tv1Column22: TcxGridDBColumn;
Tv1InputLen: TcxGridDBColumn; Tv1InputLen: TcxGridDBColumn;
Tv1C_MachLatitudeDensity: TcxGridDBColumn; Tv1C_MachLatitudeDensity: TcxGridDBColumn;
Tv1Column23: TcxGridDBColumn;
Tv1Column24: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);

37
E04梭织坯布仓库/U_TatClothOutList.dfm
View File

@ -63,7 +63,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
AutoSize = True AutoSize = True
Caption = #21246#36873#25171#21360 Caption = #21246#36873#25171#21360
ImageIndex = 21 ImageIndex = 21
Visible = False
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBExport: TToolButton object TBExport: TToolButton
@ -102,7 +101,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 39
object Label2: TLabel object Label2: TLabel
Left = 70 Left = 70
Top = 36 Top = 36
@ -236,20 +234,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label6: TLabel
Left = 831
Top = 36
Width = 52
Height = 12
Hint = '0'
Caption = #23458#25143#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 88 Left = 88
Top = 6 Top = 6
@ -324,7 +308,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 6 TabOrder = 6
OnKeyPress = orderNoKeyPress
end end
object STKID: TEdit object STKID: TEdit
Tag = 2 Tag = 2
@ -334,7 +317,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 20 Height = 20
Hint = '1' Hint = '1'
TabOrder = 7 TabOrder = 7
OnKeyPress = orderNoKeyPress
end end
object C_Name: TEdit object C_Name: TEdit
Tag = 2 Tag = 2
@ -344,7 +326,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 8 TabOrder = 8
OnKeyPress = orderNoKeyPress
end end
object C_Color: TEdit object C_Color: TEdit
Tag = 2 Tag = 2
@ -354,7 +335,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 9 TabOrder = 9
OnKeyPress = orderNoKeyPress
end end
object C_Pattern: TEdit object C_Pattern: TEdit
Tag = 2 Tag = 2
@ -364,7 +344,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 10 TabOrder = 10
OnKeyPress = orderNoKeyPress
end end
object C_Code: TEdit object C_Code: TEdit
Tag = 2 Tag = 2
@ -374,7 +353,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 11 TabOrder = 11
OnKeyPress = orderNoKeyPress
end end
object jyg: TEdit object jyg: TEdit
Tag = 2 Tag = 2
@ -384,27 +362,15 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 12 TabOrder = 12
OnKeyPress = orderNoKeyPress
end end
object carno: TEdit object carno: TEdit
Tag = 1 Tag = 1
Left = 885 Left = 871
Top = 6 Top = 6
Width = 100 Width = 100
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 13 TabOrder = 13
OnKeyPress = orderNoKeyPress
end
object ToCoName: TEdit
Tag = 2
Left = 885
Top = 32
Width = 100
Height = 20
Hint = '1'
TabOrder = 14
OnKeyPress = orderNoKeyPress
end end
end end
object Panel6: TPanel [2] object Panel6: TPanel [2]
@ -524,7 +490,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 3 TabOrder = 3
ExplicitTop = 131
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

2
E04梭织坯布仓库/U_TatClothOutList.pas
View File

@ -128,8 +128,6 @@ type
Tv1Column23: TcxGridDBColumn; Tv1Column23: TcxGridDBColumn;
Tv1InputLen: TcxGridDBColumn; Tv1InputLen: TcxGridDBColumn;
Tv1C_MachLatitudeDensity: TcxGridDBColumn; Tv1C_MachLatitudeDensity: TcxGridDBColumn;
ToCoName: TEdit;
Label6: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);