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>
<Transactions/>
<Default.Personality>
<Projects ActiveProject="D:\Dp10Repo\项目代码\恒燕\E01梭织生产计划\TatPlan.dproj"/>
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXingjie\E01梭织生产计划\TatPlan.dproj"/>
</Default.Personality>
</BorlandProject>

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

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

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

@ -1,51 +1,51 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj</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.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.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.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.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.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.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.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.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.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.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.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.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</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.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.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>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -76,7 +76,7 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10szHengYan"/>
<File Path="..\..\D10szXingjie"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<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
server := '101.132.143.144,7781';
dtbase := 'hengyanData';
dtbase := 'xingjieData';
user := 'rtsa';
pswd := 'rightsoft@5740';
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
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -313,6 +314,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object v3Column8: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@ -323,6 +325,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object v3Column1: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -331,6 +334,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column9: TcxGridDBColumn
Caption = #29983#20135#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -338,6 +342,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object v3Column6: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -346,6 +351,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object v3Column2: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -354,6 +360,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object v3Column14: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -361,6 +368,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object v3Column15: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -368,6 +376,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object v3Column16: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -375,6 +384,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column1: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'Loom'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -382,6 +392,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column8: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -389,6 +400,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column2: TcxGridDBColumn
Caption = #26426#20462
DataBinding.FieldName = 'Repairer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -396,6 +408,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column7: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'PCNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -403,6 +416,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column3: TcxGridDBColumn
Caption = #26465#30721
DataBinding.FieldName = 'PCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -410,6 +424,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column4: TcxGridDBColumn
Caption = #25171#21360#27425#25968
DataBinding.FieldName = 'PRTCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -417,6 +432,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column5: TcxGridDBColumn
Caption = #25171#21360#26102#38388
DataBinding.FieldName = 'PRTDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
@ -424,6 +440,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
object Tv1Column6: TcxGridDBColumn
Caption = #25171#21360#20154
DataBinding.FieldName = 'PRTer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
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,
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
U_BaseList, Vcl.Menus;
U_BaseList, Vcl.Menus, dxScrollbarAnnotations;
type
TfrmTatPlanCard = class(TfrmBaseList)

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

@ -909,10 +909,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet1: TcxTabSheet
Caption = ' '#32441#29256#22270' '
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel7: TPanel
Left = 0
Top = 0
@ -2547,10 +2543,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet2: TcxTabSheet
Caption = #36215#32508#24037#33402#21333
ImageIndex = 3
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel8: TPanel
Left = 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"?>
<BorlandProject>
<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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.422,=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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.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.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<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"?>
<BorlandProject>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="logon.pas"/>
<File Path="logon.dfm"/>
<File Path="spmain.pas"/>
<File Path="spmain.dfm"/>
<File Path="android-support-v4.dex.jar"/>
<File Path="cloud-messaging.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="DbPanel"/>
<File Path="DbPanel\MovePanel.pas"/>
<File Path="delphitwain"/>
<File Path="delphitwain\DelphiTwain.pas"/>
<File Path="delphitwain\DelphiTwainUtils.pas"/>
<File Path="delphitwain\Twain.pas"/>
<File Path="DbPanel"/>
<File Path="DbPanel\MovePanel.pas"/>
<File Path="AES.pas"/>
<File Path="ElAES.pas"/>
<File Path="U_upPassword.pas"/>
<File Path="U_upPassword.dfm"/>
<File Path="JDAESExtend.pas"/>
<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.dfm"/>
<File Path="U_iniParam.pas"/>
<File Path="JDAESExtend.pas"/>
<File Path="U_upPassword.pas"/>
<File Path="U_upPassword.dfm"/>
</ProjectSortOrder>
<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.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\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梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj</Transaction>
</Transactions>
</BorlandProject>

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

@ -7,8 +7,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitLeft = -556
ExplicitTop = -46
ExplicitWidth = 1483
ExplicitHeight = 621
PixelsPerInch = 96
@ -129,6 +127,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
ParentFont = False
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 136
object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp
Navigator.Buttons.CustomButtons = <>
@ -394,12 +393,34 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Width = 66
end
object Tv1Column7: TcxGridDBColumn
Caption = #23458#25143#33457#22411
DataBinding.FieldName = 'C_CustPattern'
Caption = #19979#24067#26102#38388'1'
DataBinding.FieldName = 'xbdate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter
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
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
@ -456,14 +477,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column5: TcxGridDBColumn
Caption = #21253#21495
DataBinding.FieldName = 'BAONO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column8: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
@ -472,22 +485,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Options.Editing = False
Width = 66
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
Caption = #24067#31867#21035
DataBinding.FieldName = 'btype'
@ -495,13 +492,33 @@ inherited frmTatClothInspList: TfrmTatClothInspList
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column2: TcxGridDBColumn
Caption = #33521#25991#39068#33394
DataBinding.FieldName = 'C_EColor'
object Tv1Column14: TcxGridDBColumn
Caption = #25377#36710#24037'1'
DataBinding.FieldName = 'SCPerson'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 70
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
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,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxDateTimeWheelPicker,
Vcl.Buttons, System.StrUtils, dxScrollbarAnnotations, dxSkinBasic,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue;
Vcl.Buttons, System.StrUtils, dxScrollbarAnnotations, dxSkinBasic, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue;
type
TfrmTatClothInspList = class(TfrmBaseList)
@ -85,9 +85,7 @@ type
v1Column34: TcxGridDBColumn;
v1Column40: TcxGridDBColumn;
v1Column46: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Panel6: TPanel;
Label31: TLabel;
@ -96,8 +94,6 @@ type
BTNP: TButton;
TCBNOR: TComboBox;
Tv1Column10: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Panel1: TPanel;
Label3: TLabel;
Label7: TLabel;
@ -138,6 +134,13 @@ type
carno: TEdit;
Label9: TLabel;
Tv1carno: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -349,13 +352,13 @@ begin
begin
Close;
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;
end;
if ADOQueryTemp.IsEmpty = False then
begin
Order_Main.EnableControls;
Application.MessageBox('已产生入库数据不能编辑!', '提示', 0);
Application.MessageBox('已产生出库数据不能编辑!', '提示', 0);
Exit;
end;
try

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

@ -2,7 +2,7 @@ object frmTatInspEdit: TfrmTatInspEdit
Left = 285
Top = 179
Caption = #24067#21305#31649#29702
ClientHeight = 461
ClientHeight = 590
ClientWidth = 913
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -84,17 +84,17 @@ object frmTatInspEdit: TfrmTatInspEdit
Left = 0
Top = 38
Width = 913
Height = 79
Height = 179
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 18
ExplicitTop = 32
object Label1: TLabel
Left = 745
Top = 55
Left = 18
Top = 14
Width = 52
Height = 12
Caption = #24067#21305#26465#30721
@ -134,22 +134,22 @@ object frmTatInspEdit: TfrmTatInspEdit
Caption = #31859#25968
end
object Ma: TLabel
Left = 296
Top = 100
Left = 313
Top = 252
Width = 6
Height = 12
Caption = 'M'
end
object Label7: TLabel
Left = 211
Top = 100
Left = 228
Top = 252
Width = 24
Height = 12
Caption = #21407#30721
end
object Label5: TLabel
Left = 332
Top = 104
Left = 349
Top = 256
Width = 6
Height = 12
Caption = 'M'
@ -189,9 +189,120 @@ object frmTatInspEdit: TfrmTatInspEdit
Height = 12
Caption = #30721#25968
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
Left = 803
Top = 49
Left = 76
Top = 8
Width = 110
Height = 24
Font.Charset = GB2312_CHARSET
@ -218,8 +329,8 @@ object frmTatInspEdit: TfrmTatInspEdit
TabOrder = 3
end
object RadioGroup1: TRadioGroup
Left = 590
Top = 6
Left = 760
Top = 115
Width = 153
Height = 58
Columns = 3
@ -228,10 +339,11 @@ object frmTatInspEdit: TfrmTatInspEdit
#27491#21697
#27425#21697)
TabOrder = 0
Visible = False
end
object MJQty1: TEdit
Left = 236
Top = 100
Left = 253
Top = 252
Width = 54
Height = 20
TabOrder = 6
@ -257,18 +369,152 @@ object frmTatInspEdit: TfrmTatInspEdit
Height = 20
TabOrder = 7
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
object cxGrid1: TcxGrid
Left = 0
Top = 117
Top = 217
Width = 913
Height = 344
Height = 373
Align = alClient
TabOrder = 2
ExplicitTop = 97
ExplicitHeight = 364
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
@ -295,6 +541,7 @@ object frmTatInspEdit: TfrmTatInspEdit
object TV1Column1: TcxGridDBColumn
Caption = #30133#28857
DataBinding.FieldName = 'CIFName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -308,6 +555,7 @@ object frmTatInspEdit: TfrmTatInspEdit
object cxGridDBColumn2: TcxGridDBColumn
Caption = #30133#28857#21517#31216
DataBinding.FieldName = 'CIFName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
@ -316,6 +564,7 @@ object frmTatInspEdit: TfrmTatInspEdit
object cxGridDBColumn3: TcxGridDBColumn
Caption = #20301#32622#36215
DataBinding.FieldName = 'CIFbeg'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
@ -326,6 +575,7 @@ object frmTatInspEdit: TfrmTatInspEdit
object cxGridDBColumn4: TcxGridDBColumn
Caption = #20301#32622#27490
DataBinding.FieldName = 'CIFend'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 79
@ -333,6 +583,7 @@ object frmTatInspEdit: TfrmTatInspEdit
object cxGridDBColumn5: TcxGridDBColumn
Caption = #38271#24230
DataBinding.FieldName = 'CIFQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
@ -341,6 +592,7 @@ object frmTatInspEdit: TfrmTatInspEdit
object cxGridDBColumn6: TcxGridDBColumn
Caption = #21407#22240
DataBinding.FieldName = 'CDReason'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Sorting = False
@ -348,12 +600,14 @@ object frmTatInspEdit: TfrmTatInspEdit
end
object cxGridDBColumn7: TcxGridDBColumn
DataBinding.FieldName = 'CDQty'
DataBinding.IsNullValueType = True
Visible = False
Width = 60
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #25187#20998
DataBinding.FieldName = 'CIFPoints'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
@ -361,6 +615,7 @@ object frmTatInspEdit: TfrmTatInspEdit
object cxGridDBColumn9: TcxGridDBColumn
Caption = #20010#25968
DataBinding.FieldName = 'CIFNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
@ -381,8 +636,8 @@ object frmTatInspEdit: TfrmTatInspEdit
Connection = DataLink_TatInsp.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 336
Top = 200
Left = 488
Top = 344
end
object ADOCmd: TADOQuery
Connection = DataLink_TatInsp.ADOLink
@ -392,13 +647,13 @@ object frmTatInspEdit: TfrmTatInspEdit
end
object DataSource1: TDataSource
DataSet = Order_MJ
Left = 528
Top = 200
Left = 712
Top = 320
end
object Order_MJ: TClientDataSet
Aggregates = <>
Params = <>
Left = 424
Top = 200
Left = 632
Top = 336
end
end

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

@ -9,7 +9,8 @@ uses
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin,
cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges;
dxSkinsDefaultPainters, dxDateRanges, dxScrollbarAnnotations, cxContainer,
cxMaskEdit;
type
TfrmTatInspEdit = class(TForm)
@ -57,6 +58,24 @@ type
cxGridDBColumn9: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
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 FormDestroy(Sender: TObject);
procedure tv2CDWZPropertiesEditValueChanged(Sender: TObject);
@ -68,6 +87,10 @@ type
procedure ToolButton4Click(Sender: TObject);
procedure cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject);
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 declarations }
function SaveData(): Boolean;
@ -82,7 +105,7 @@ var
implementation
uses
U_RTFun, U_ZDYHelp, U_DataLink;
U_RTFun, U_ZDYHelp, U_DataLink, U_EmployeeSel;
{$R *.dfm}
procedure TfrmTatInspEdit.GetJYXK(FJYIP: string);
@ -109,6 +132,16 @@ begin
NetWeight.Text := Trim(ADOTmp.fieldbyname('NetWeight').AsString);
Meter.Text := Trim(ADOTmp.fieldbyname('Meter').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
begin
@ -133,6 +166,60 @@ begin
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);
var
mvalue, CIFbeg, CIFEnd: string;
@ -330,31 +417,33 @@ begin
sql.Clear;
sql.Add(' UPdate Tat_Cloth_Inspect Set ');
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(',NetWeight=' + FloatToStr(Strtofloatdef(NetWeight.Text, 0)));
sql.Add(',Meter=' + FloatToStr(Strtofloatdef(Meter.Text, 0)));
sql.Add(',Yardage=' + FloatToStr(Strtofloatdef(Yardage.Text, 0)));
sql.Add(',InputLen=' + FloatToStr(Strtofloatdef(InputLen.Text, 0)));
if RadioGroup1.ItemIndex = 0 then
begin
sql.Add(',Grade=''正品'' ');
end
else if RadioGroup1.ItemIndex = 1 then
begin
sql.Add(',Grade=''次品'' ');
end;
sql.Add(',OutPutQty1=' + FloatToStr(Strtofloatdef(OutPutQty1.Text, 0)));
sql.Add(',OutPutQty2=' + FloatToStr(Strtofloatdef(OutPutQty2.Text, 0)));
sql.Add(',OutPutQty3=' + FloatToStr(Strtofloatdef(OutPutQty3.Text, 0)));
sql.Add(',OutPutQty4=' + FloatToStr(Strtofloatdef(OutPutQty4.Text, 0)));
// if RadioGroup1.ItemIndex = 0 then
// begin
// sql.Add(',Grade=''ÕýÆ·'' ');
// end
// else if RadioGroup1.ItemIndex = 1 then
// begin
// sql.Add(',Grade=''´ÎÆ·'' ');
// end;
sql.Add(' where CIID=''' + Trim(Label2.Caption) + '''');
ExecSQL;
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;
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);
begin
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;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
SpeedButton21: TSpeedButton;
SpeedButton22: TSpeedButton;
SpeedButton23: TSpeedButton;
SpeedButton24: TSpeedButton;
SpeedButton25: TSpeedButton;
SpeedButton26: TSpeedButton;
SpeedButton29: TSpeedButton;
SpeedButton30: TSpeedButton;
SpeedButton31: TSpeedButton;
SpeedButton32: TSpeedButton;
SpeedButton33: TSpeedButton;
SpeedButton34: TSpeedButton;
SpeedButton37: TSpeedButton;
SpeedButton38: TSpeedButton;
SpeedButton39: TSpeedButton;
SpeedButton40: TSpeedButton;
SpeedButton41: TSpeedButton;
SpeedButton42: TSpeedButton;
SpeedButton45: TSpeedButton;
SpeedButton46: TSpeedButton;
SpeedButton47: TSpeedButton;
SpeedButton48: TSpeedButton;
SpeedButton50: TSpeedButton;
SpeedButton51: TSpeedButton;
SpeedButton54: TSpeedButton;
SpeedButton55: TSpeedButton;
SpeedButton56: TSpeedButton;
SpeedButton57: TSpeedButton;
SpeedButton58: TSpeedButton;
SpeedButton59: TSpeedButton;
SpeedButton62: TSpeedButton;
SpeedButton63: TSpeedButton;
SpeedButton64: TSpeedButton;
SpeedButton65: TSpeedButton;
SpeedButton66: TSpeedButton;
SpeedButton67: TSpeedButton;
SpeedButton70: TSpeedButton;
SpeedButton71: TSpeedButton;
SpeedButton72: TSpeedButton;
SpeedButton73: TSpeedButton;
SpeedButton74: TSpeedButton;
SpeedButton75: TSpeedButton;
SpeedButton19: TSpeedButton;
SpeedButton20: TSpeedButton;
SpeedButton27: TSpeedButton;
SpeedButton28: TSpeedButton;
SpeedButton35: TSpeedButton;
SpeedButton36: TSpeedButton;
SpeedButton43: TSpeedButton;
SpeedButton44: TSpeedButton;
SpeedButton52: TSpeedButton;
SpeedButton53: TSpeedButton;
SpeedButton60: TSpeedButton;
SpeedButton61: TSpeedButton;
SpeedButton68: TSpeedButton;
SpeedButton69: TSpeedButton;
SpeedButton76: TSpeedButton;
SpeedButton77: TSpeedButton;
SpeedButton78: TSpeedButton;
SpeedButton79: TSpeedButton;
SpeedButton80: TSpeedButton;
SpeedButton81: TSpeedButton;
SpeedButton82: TSpeedButton;
SpeedButton83: TSpeedButton;
CDS_3: TClientDataSet;
DS_3: TDataSource;
ADOQueryImage: TADOQuery;
@ -341,6 +321,23 @@ type
Edit2: TEdit;
Tv3Column5: 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 FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
@ -403,6 +400,8 @@ type
procedure InputWeightChange(Sender: TObject);
procedure Edit1Click(Sender: TObject);
procedure Edit2Click(Sender: TObject);
procedure JBSCPerson3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure JBSCPerson4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
{ Private declarations }
FCIID, FOperationStatus, FCIFName, FWorkshop: string;
@ -855,6 +854,24 @@ begin
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);
begin
inherited;
@ -874,6 +891,24 @@ begin
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);
begin
inherited;
@ -968,18 +1003,7 @@ end;
procedure TfrmTatMachInsp.InitJTM(MCIID: string);
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
begin
Close;
@ -1003,6 +1027,36 @@ begin
begin
FOperationStatus := '卷条码';
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);
end;
@ -1053,7 +1107,7 @@ begin
end;
// if ADOTmp.IsEmpty = FALSE then
// begin
Coefficient.Text := ADOTmp.FieldByName('XS').AsString;
Coefficient.Text := ADOTmp.FieldByName('XS').AsString;
// end;
end;
@ -1321,6 +1375,10 @@ begin
ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易检验管理');
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, '贸易检验管理');
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';
InitCDPanel();
InitCDGrid(FCIID);
@ -1371,9 +1429,9 @@ begin
end;
end;
i := i - 1;
if i > 69 then
if i > 49 then
begin
i := 69;
i := 49;
end;
for j := 0 to i do
begin
@ -1459,6 +1517,21 @@ begin
FieldByName('GrossWeight').Value := MGrossWeight;
FieldByName('NetWeight').Value := MNetWeight;
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
if CDS_3.IsEmpty then
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
begin
Close;

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

@ -1,70 +1,70 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.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.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.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.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm</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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.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.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.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas</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.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm</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.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.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.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.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.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.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.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.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.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.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.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.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.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.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.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.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.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.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.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.029,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj</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.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm</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.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas</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.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.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.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.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.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\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.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.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.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</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.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.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.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.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.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.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj</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.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<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
Position = poScreenCenter
Visible = True
ExplicitLeft = -286
ExplicitTop = -60
ExplicitLeft = -359
ExplicitWidth = 1556
ExplicitHeight = 635
PixelsPerInch = 96
@ -393,6 +392,7 @@ inherited frmTatClothInList: TfrmTatClothInList
AutoSize = True
BorderStyle = bsSingle
TabOrder = 2
ExplicitTop = 111
DesignSize = (
1536
23)
@ -840,13 +840,34 @@ inherited frmTatClothInList: TfrmTatClothInList
Width = 66
end
object Tv1Column2: TcxGridDBColumn
Caption = #33521#25991#39068#33394
DataBinding.FieldName = 'C_EColor'
Caption = #19979#24067#26102#38388
DataBinding.FieldName = 'xbdate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
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
Caption = #25377#36710#24037'1'
DataBinding.FieldName = 'SCPerson'

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

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

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

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

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

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