LZC/D10gmBitao
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11

Browse Source
This commit is contained in:
“username” 2025-05-15 15:55:06 +08:00
parent 2e4858c0a3
commit cccfd92ae0
24 changed files with 1101 additions and 606 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
A01基础公司管理/Company.identcache
View File

Binary file not shown.

62
D01针织生产计划/KnitPlan.dproj.local
View File

@ -1,57 +1,57 @@
<?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.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.938,=D:\Dp10Repo\项目代码\D10gmXinHua\D01针织生产计划\U_LCKInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.938,=D:\Dp10Repo\项目代码\D10gmXinHua\D01针织生产计划\U_LCKInput.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.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.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.496,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.dfm=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.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.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.898,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_LCKQuery.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.898,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_LCKQuery.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.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.dfm=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.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.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.913,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_TradeInspSet.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.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\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.030,D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas=D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.756,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.756,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.830,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_PlanCardOFF.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.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.227,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelAdd.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.227,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelAdd.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.128,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.dfm=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.914,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_testdll.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.pas=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.175,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_KnitPlanCard.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.175,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_KnitPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.830,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_PlanCardOFF.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.383,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.383,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.914,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_testdll.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.913,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_TradeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.089,=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.089,=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.pas=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.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.030,D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.pas=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.496,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.pas=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.dfm=D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.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.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.dfm=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.dfm=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.dfm</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.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>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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.496,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.pas=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.904,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.904,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelInput.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.pas=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.dfm=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.pas=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj</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.496,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.dfm=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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"/>

17
D01针织生产计划/U_KnitPlanCard.dfm
View File

@ -3,9 +3,9 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard
Top = 76 Top = 76
Caption = #26631#31614#25171#21360 Caption = #26631#31614#25171#21360
ClientHeight = 637 ClientHeight = 637
ClientWidth = 1397 ClientWidth = 1448
Position = poScreenCenter Position = poScreenCenter
ExplicitWidth = 1413 ExplicitWidth = 1464
ExplicitHeight = 676 ExplicitHeight = 676
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
@ -13,7 +13,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1397 Width = 1448
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -32,8 +32,6 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitLeft = 1
ExplicitTop = 1
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -86,7 +84,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1397 Width = 1448
Height = 99 Height = 99
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -214,12 +212,11 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 164 Top = 164
Width = 1397 Width = 1448
Height = 473 Height = 473
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitLeft = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -486,7 +483,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 137 Top = 137
Width = 1397 Width = 1448
Height = 27 Height = 27
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -505,7 +502,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 29 ClientRectBottom = 29
ClientRectRight = 1397 ClientRectRight = 1448
ClientRectTop = 29 ClientRectTop = 29
end end
object Panel3: TPanel [4] object Panel3: TPanel [4]

5
D01针织生产计划/U_KnitPlanCard.pas
View File

@ -163,12 +163,12 @@ begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
sql.Add(' and PRTCount=0'); sql.Add(' and A.PRTCount=0');
sql.Add(' Order by A.Filltime Desc'); sql.Add(' Order by A.Filltime Desc');
end; end;
1: 1:
begin begin
sql.Add(' and PRTCount>0'); sql.Add(' and A.PRTCount>0');
sql.Add(' Order by A.PRTDate Desc'); sql.Add(' Order by A.PRTDate Desc');
end; end;
2: 2:
@ -307,6 +307,7 @@ begin
sql.Add(' ,Deltime =getdate() '); sql.Add(' ,Deltime =getdate() ');
sql.Add(' where PCID=''' + Trim(CDS_1.fieldbyname('PCID').AsString) + ''''); sql.Add(' where PCID=''' + Trim(CDS_1.fieldbyname('PCID').AsString) + '''');
sql.Add(' and Status =''0'' '); sql.Add(' and Status =''0'' ');
// showmessage(sql.Text);
ExecSQL; ExecSQL;
end; end;
end; end;

47
D01针织生产计划/U_KnitPlanImport.dfm
View File

@ -1,7 +1,7 @@
inherited frmknitplanImport: TfrmknitplanImport inherited frmknitplanImport: TfrmknitplanImport
Left = 189 Left = 189
Top = 138 Top = 138
Caption = #26679#21697#23548#20837 Caption = #35745#21010#21333#23548#20837
ClientHeight = 562 ClientHeight = 562
ClientWidth = 1484 ClientWidth = 1484
Color = clWhite Color = clWhite
@ -86,7 +86,6 @@ inherited frmknitplanImport: TfrmknitplanImport
Height = 532 Height = 532
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitTop = 36
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -234,6 +233,32 @@ inherited frmknitplanImport: TfrmknitplanImport
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 83 Width = 83
end end
object cxgrdbclmnTv1Column2: TcxGridDBColumn
Caption = #34892#21495
DataBinding.FieldName = 'LineNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1PRTKZ: TcxGridDBColumn
Tag = 1
Caption = #29289#26009#21495
DataBinding.FieldName = 'C_Material_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default
Width = 76
end
object v1Column7: TcxGridDBColumn
Tag = 1
Caption = #29289#26009#21517#31216
DataBinding.FieldName = 'C_Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default
Width = 72
end
object cxgrdbclmnTv1Column15: TcxGridDBColumn object cxgrdbclmnTv1Column15: TcxGridDBColumn
Caption = #19994#21153#21592 Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser' DataBinding.FieldName = 'Saleser'
@ -377,24 +402,6 @@ inherited frmknitplanImport: TfrmknitplanImport
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object v1PRTKZ: TcxGridDBColumn
Tag = 1
Caption = #29289#26009#21495
DataBinding.FieldName = 'C_Material_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default
Width = 76
end
object v1Column7: TcxGridDBColumn
Tag = 1
Caption = #29289#26009#21517#31216
DataBinding.FieldName = 'C_Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default
Width = 72
end
object cxgrdbclmnTv1Column17: TcxGridDBColumn object cxgrdbclmnTv1Column17: TcxGridDBColumn
Caption = #21097#20313#20132#26399 Caption = #21097#20313#20132#26399
DataBinding.FieldName = 'IFJQ' DataBinding.FieldName = 'IFJQ'

54
D01针织生产计划/U_KnitPlanImport.pas
View File

@ -65,6 +65,7 @@ type
cxgrdbclmnTv1Column16: TcxGridDBColumn; cxgrdbclmnTv1Column16: TcxGridDBColumn;
cxgrdbclmnTv1Column17: TcxGridDBColumn; cxgrdbclmnTv1Column17: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
cxgrdbclmnTv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -126,7 +127,6 @@ end;
procedure TfrmknitplanImport.TBCloseClick(Sender: TObject); procedure TfrmknitplanImport.TBCloseClick(Sender: TObject);
begin begin
Close; Close;
end; end;
@ -162,6 +162,11 @@ var
begin begin
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
with CDS_1 do
begin
First;
while not Eof do
begin
if Trim(CDS_1.FieldByName('mainid').AsString) = '' then if Trim(CDS_1.FieldByName('mainid').AsString) = '' then
begin begin
if CDS_1.FieldByName('OrdType').AsString = '大货单' then if CDS_1.FieldByName('OrdType').AsString = '大货单' then
@ -198,6 +203,15 @@ begin
end; end;
//查询客户信息
with ADOQueryBaseCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from BS_Company where CoType = ''客户'' and CoName=''' + Trim(CDS_1.FieldByName('CustName').AsString) + '''');
Open;
end;
////////////////////////// 保存主表 ////////////////////////// ////////////////////////// 保存主表 //////////////////////////
with ADOQueryCmd do with ADOQueryCmd do
begin begin
@ -210,9 +224,11 @@ begin
begin begin
Append; Append;
FieldByName('MainId').Value := Trim(maxno); FieldByName('MainId').Value := Trim(maxno);
FieldByName('orderno').Value := Trim(maxno); FieldByName('orderno').Value := Trim(maxno);
FieldByName('LabPackage').Value := Trim(CDS_1.FieldByName('LabPackage').AsString);
FieldByName('RuleBeforeTare').Value := Trim(CDS_1.FieldByName('RuleBeforeTare').AsString);
FieldByName('CustNo').Value := Trim(ADOQueryBaseCmd.FieldByName('CoCode').AsString);
FieldByName('Filler').Value := Trim(DName); FieldByName('Filler').Value := Trim(DName);
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Plan_main', 0); RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Plan_main', 0);
@ -221,6 +237,17 @@ begin
////////////////////////// 保存主表 ////////////////////////// ////////////////////////// 保存主表 //////////////////////////
/// ///
////////////////////////// 保存子表 ////////////////////////// ////////////////////////// 保存子表 //////////////////////////
//查询产品信息
if Trim(CDS_1.FieldByName('C_Code').AsString) <> '' then
begin
with ADOQueryBaseCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from BS_Cloth_Info where C_Code=''' + Trim(CDS_1.FieldByName('C_Code').AsString) + '''');
Open;
end;
end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
@ -264,6 +291,10 @@ begin
end; end;
////////////////////////// 保存标签表 ////////////////////////// ////////////////////////// 保存标签表 //////////////////////////
/// ///
next;
end;
end;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('保存成功！', '提示', 0); Application.MessageBox('保存成功！', '提示', 0);
@ -347,9 +378,28 @@ begin
begin begin
if CDS_LM.FieldByName('LXH').AsInteger > 0 then if CDS_LM.FieldByName('LXH').AsInteger > 0 then
CDS_1.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value; CDS_1.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value;
CDS_LM.Next; CDS_LM.Next;
end; end;
Post; Post;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from bs_cloth_info where ');
sql.Add(' C_Code=''' + Trim(cds_1.FieldByName('c_Code').AsString) + '''');
Open;
end;
if not ADOQueryTemp.IsEmpty then
begin
with cds_1 do
begin
edit;
cds_1.Fieldbyname('C_Yarn').AsString := ADOQueryTemp.FieldByName('C_Yarn').AsString;
cds_1.Fieldbyname('C_jiaceng').AsString := ADOQueryTemp.FieldByName('C_jiaceng').AsString;
cds_1.FieldByName('C_DYARN').AsString := ADOQueryTemp.FieldByName('C_DYARN').AsString;
end;
end;
end; end;
end; end;
WorkBook.Close; WorkBook.Close;

777
D01针织生产计划/U_KnitPlanInPut.dfm
View File

File diff suppressed because it is too large Load Diff

108
D01针织生产计划/U_KnitPlanInPut.pas
View File

@ -337,7 +337,6 @@ type
ConNo: TBtnEditC; ConNo: TBtnEditC;
Saleser: TEdit; Saleser: TEdit;
OurCoName: TBtnEditC; OurCoName: TBtnEditC;
C_Deal: TBtnEditC;
Label7: TLabel; Label7: TLabel;
OrderNo: TEdit; OrderNo: TEdit;
ToolBar3: TToolBar; ToolBar3: TToolBar;
@ -387,12 +386,21 @@ type
lbl5: TLabel; lbl5: TLabel;
C_Material_Name: TBtnEditC; C_Material_Name: TBtnEditC;
lbl4: TLabel; lbl4: TLabel;
C_MainYarn: TBtnEditC;
lbl6: TLabel; lbl6: TLabel;
LabPackage: TBtnEditC; LabPackage: TBtnEditC;
RuleBeforeTare: TComboBox;
lbl7: TLabel; lbl7: TLabel;
C_Material: TBtnEditC; C_Material: TBtnEditC;
lbl8: TLabel;
lbl9: TLabel;
ISChongDa: TComboBox;
lbl10: TLabel;
ChongDaNote: TRichEdit;
RuleBeforeTare: TComboBox;
C_Deal: TComboBox;
C_ZhuJi: TComboBox;
C_MainYarn: TComboBox;
lbl11: TLabel;
LineNumber: TEdit;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -479,33 +487,34 @@ begin
CustName.Enabled := false; CustName.Enabled := false;
FtyCoName.Enabled := false; FtyCoName.Enabled := false;
Saleser.Enabled := false; Saleser.Enabled := false;
C_KnitGramWeight.Enabled := false; //C_KnitGramWeight.Enabled := false;
C_Code.Enabled := false; C_Code.Enabled := false;
C_Name.Enabled := false; //C_Name.Enabled := false;
C_Width.Enabled := false; //C_Width.Enabled := false;
C_GramWeight.Enabled := false; //C_GramWeight.Enabled := false;
C_Spec.Enabled := false; //C_Spec.Enabled := false;
OrdPieceWeight.Enabled := false; //OrdPieceWeight.Enabled := false;
C_Color.Enabled := false; //C_Color.Enabled := false;
C_Composition.Enabled := false; //C_Composition.Enabled := false;
C_Deal.Enabled := false; //C_Deal.Enabled := false;
C_KnitNote.Enabled := false; //C_KnitNote.Enabled := false;
C_Figure.Enabled := false; //C_Figure.Enabled := false;
C_Yarn.Enabled := false; //C_Yarn.Enabled := false;
KGQty.Enabled := false; KGQty.Enabled := false;
SSBL.Enabled := false; SSBL.Enabled := false;
OrdSNote.Enabled := false; //OrdSNote.Enabled := false;
end; end;
end; end;
with ADOQuery1 do with ADOQuery1 do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select * from knit_Plan_Main A where A.MainId=''' + Trim(FMainId) + ''''); sql.Add('select isnull(ISChongDa,''否'') ISChongDa,* from knit_Plan_Main A where A.MainId=''' + Trim(FMainId) + '''');
Open; Open;
end; end;
SCSHData(ADOQuery1, ScrollBox1, 0); SCSHData(ADOQuery1, ScrollBox1, 0);
CustName.TxtCode := ADOQuery1.FieldByName('CustNo').AsString; CustName.TxtCode := ADOQuery1.FieldByName('CustNo').AsString;
ISChongDa.Text:= ADOQuery1.fieldbyname('ISChongDa').AsString;
with ADOQuery1 do with ADOQuery1 do
begin begin
@ -515,7 +524,8 @@ begin
Open; Open;
end; end;
SCSHData(ADOQuery1, ScrollBox1, 2); SCSHData(ADOQuery1, ScrollBox1, 2);
C_Deal.Text:= ADOQuery1.fieldbyname('C_Deal').AsString;
C_ZhuJi.Text:= ADOQuery1.fieldbyname('C_ZhuJi').AsString;
FConMId := ADOQuery1.fieldbyname('ConMID').AsString; FConMId := ADOQuery1.fieldbyname('ConMID').AsString;
FConSId := ADOQuery1.fieldbyname('ConSId').AsString; FConSId := ADOQuery1.fieldbyname('ConSId').AsString;
@ -1038,15 +1048,19 @@ begin
Application.MessageBox('产品名称不能为空!', '提示', 0); Application.MessageBox('产品名称不能为空!', '提示', 0);
Exit; Exit;
end; end;
if Trim(C_Code.Text) = '' then // if Trim(C_Code.Text) = '' then
// begin
// Application.MessageBox('产品编号不能为空!', '提示', 0);
// Exit;
// end;
if Trim(C_Width.Text) = '' then
begin begin
Application.MessageBox('产品编号不能为空!', '提示', 0); Application.MessageBox('门幅不能为空!', '提示', 0);
Exit; Exit;
end; end;
if Trim(C_MainYarn.Text) = '' then if Trim(C_GramWeight.Text) = '' then
begin begin
Application.MessageBox('主要纱线不能为空!', '提示', 0); Application.MessageBox('克重不能为空!', '提示', 0);
C_MainYarn.SetFocus;
Exit; Exit;
end; end;
if Trim(OrdQty.Text) = '' then if Trim(OrdQty.Text) = '' then
@ -1064,24 +1078,47 @@ begin
Application.MessageBox('匹数不能为空!', '提示', 0); Application.MessageBox('匹数不能为空!', '提示', 0);
Exit; Exit;
end; end;
if Trim(LabPackage.Text) = '' then if Trim(LabPackage.Text) = '' then
begin begin
Application.MessageBox('标签不能为空!', '提示', 0); Application.MessageBox('标签不能为空!', '提示', 0);
Exit; Exit;
end; end;
if Trim(C_Yarn.Text) = '' then
begin
Application.MessageBox('面纱不能为空!', '提示', 0);
Exit;
end;
// if Trim(C_jiaceng.Text) = '' then
// begin
// Application.MessageBox('夹层不能为空!', '提示', 0);
// Exit;
// end;
if Trim(C_DYARN.Text) = '' then
begin
Application.MessageBox('底纱不能为空!', '提示', 0);
Exit;
end;
if Trim(C_Deal.Text) = '' then
begin
Application.MessageBox('后处理不能为空!', '提示', 0);
Exit;
end;
if Trim(C_ZhuJi.Text) = '' then
begin
Application.MessageBox('助剂不能为空!', '提示', 0);
Exit;
end;
if Trim(C_MainYarn.Text) = '' then
begin
Application.MessageBox('主要纱线不能为空!', '提示', 0);
C_MainYarn.SetFocus;
Exit;
end;
if TryStrToFloat(OrdQty.Text, FReal) = False then if TryStrToFloat(OrdQty.Text, FReal) = False then
begin begin
Application.MessageBox('总数量非法数字!', '提示', 0); Application.MessageBox('总数量非法数字!', '提示', 0);
Exit; Exit;
end; end;
// if TryStrToFloat(OrdPieceWeight.Text, FReal) = False then
// begin
// Application.MessageBox('匹重非法数字!', '提示', 0);
// Exit;
// end;
if TryStrToFloat(OrdPiece.Text, FReal) = False then if TryStrToFloat(OrdPiece.Text, FReal) = False then
begin begin
Application.MessageBox('匹数非法数字!', '提示', 0); Application.MessageBox('匹数非法数字!', '提示', 0);
@ -1092,6 +1129,15 @@ begin
Application.MessageBox('皮重非法数字!', '提示', 0); Application.MessageBox('皮重非法数字!', '提示', 0);
Exit; Exit;
end; end;
if Trim(ISChongDa.Text) = '是' then
begin
if Trim(ChongDaNote.Text) = '' then
begin
Application.MessageBox('重打订单重打原因必须填写!', '提示', 0);
Exit;
end;
end;
// if Trim(C_Spec.Text) = '' then // if Trim(C_Spec.Text) = '' then
// begin // begin
// Application.MessageBox('规格不能为空!', '提示', 0); // Application.MessageBox('规格不能为空!', '提示', 0);

119
D01针织生产计划/U_KnitPlanList.dfm
View File

@ -92,13 +92,13 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Left = 533 Left = 533
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360#35745#21010#21333 Caption = #25171#21360#35745#21010#21333'1'
ImageIndex = 21 ImageIndex = 21
Visible = False Visible = False
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object DYPrint: TToolButton object DYPrint: TToolButton
Left = 640 Left = 646
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360#25171#26679#21333 Caption = #25171#21360#25171#26679#21333
@ -106,7 +106,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = DYPrintClick OnClick = DYPrintClick
end end
object TBView: TToolButton object TBView: TToolButton
Left = 747 Left = 753
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
@ -114,7 +114,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBViewClick OnClick = TBViewClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 818 Left = 824
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -122,7 +122,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBDelClick OnClick = TBDelClick
end end
object TBSCAP: TToolButton object TBSCAP: TToolButton
Left = 889 Left = 895
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #29983#20135#23433#25490 Caption = #29983#20135#23433#25490
@ -130,7 +130,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBSCAPClick OnClick = TBSCAPClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 984 Left = 990
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21367#35774#32622 Caption = #25171#21367#35774#32622
@ -138,7 +138,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object btn1: TToolButton object btn1: TToolButton
Left = 1079 Left = 1085
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360#27969#31243#21345 Caption = #25171#21360#27969#31243#21345
@ -317,6 +317,13 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Height = 12 Height = 12
Caption = #26426#21488 Caption = #26426#21488
end end
object lbl2: TLabel
Left = 879
Top = 41
Width = 24
Height = 12
Caption = #34892#21495
end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 100 Left = 100
Top = 9 Top = 9
@ -350,7 +357,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
OnChange = ConNoChange
OnKeyPress = conPress OnKeyPress = conPress
end end
object C_Name: TEdit object C_Name: TEdit
@ -360,8 +366,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Width = 100 Width = 100
Height = 20 Height = 20
TabOrder = 3 TabOrder = 3
OnChange = ConNoChange OnKeyPress = conPress
OnKeyPress = C_NameKeyPress
end end
object C_Code: TEdit object C_Code: TEdit
Tag = 2 Tag = 2
@ -370,8 +375,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Width = 100 Width = 100
Height = 20 Height = 20
TabOrder = 4 TabOrder = 4
OnChange = ConNoChange OnKeyPress = conPress
OnKeyPress = C_CodeKeyPress
end end
object CustName: TEdit object CustName: TEdit
Tag = 2 Tag = 2
@ -380,8 +384,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Width = 110 Width = 110
Height = 20 Height = 20
TabOrder = 5 TabOrder = 5
OnChange = ConNoChange OnKeyPress = conPress
OnKeyPress = CustNameKeyPress
end end
object OrderNo: TEdit object OrderNo: TEdit
Tag = 2 Tag = 2
@ -390,7 +393,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Width = 81 Width = 81
Height = 20 Height = 20
TabOrder = 6 TabOrder = 6
OnChange = ConNoChange
OnKeyPress = conPress OnKeyPress = conPress
end end
object FtyCoName: TEdit object FtyCoName: TEdit
@ -400,8 +402,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Width = 110 Width = 110
Height = 20 Height = 20
TabOrder = 7 TabOrder = 7
OnChange = ConNoChange OnKeyPress = conPress
OnKeyPress = CustNameKeyPress
end end
object CarHZ: TEdit object CarHZ: TEdit
Tag = 2 Tag = 2
@ -410,8 +411,16 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Width = 100 Width = 100
Height = 20 Height = 20
TabOrder = 8 TabOrder = 8
OnChange = ConNoChange OnKeyPress = conPress
OnKeyPress = C_CodeKeyPress end
object LineNumber: TEdit
Tag = 2
Left = 918
Top = 36
Width = 100
Height = 20
TabOrder = 9
OnKeyPress = conPress
end end
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
@ -421,7 +430,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Height = 374 Height = 374
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 165
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -530,6 +538,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default Styles.Header = DataLink_KnitPlan.Default
Width = 100 Width = 100
@ -546,6 +555,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'OrdType' DataBinding.FieldName = 'OrdType'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71 Width = 71
end end
object Tv1Column16: TcxGridDBColumn object Tv1Column16: TcxGridDBColumn
@ -575,6 +585,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'OrdDate' DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default Styles.Header = DataLink_KnitPlan.Default
Width = 71 Width = 71
end end
@ -583,6 +594,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'FtyCoName' DataBinding.FieldName = 'FtyCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82 Width = 82
end end
object v1Column19: TcxGridDBColumn object v1Column19: TcxGridDBColumn
@ -593,6 +605,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Properties.SaveTime = False Properties.SaveTime = False
Properties.ShowTime = False Properties.ShowTime = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default Styles.Header = DataLink_KnitPlan.Default
Width = 82 Width = 82
end end
@ -601,6 +614,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default Styles.Header = DataLink_KnitPlan.Default
Width = 92 Width = 92
end end
@ -609,6 +623,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default Styles.Header = DataLink_KnitPlan.Default
Width = 73 Width = 73
end end
@ -624,6 +639,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'C_Composition' DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -632,6 +648,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Caption = #32433#32447 Caption = #32433#32447
DataBinding.FieldName = 'C_Spec' DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 120 Width = 120
@ -658,6 +675,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default Styles.Header = DataLink_KnitPlan.Default
Width = 69 Width = 69
end end
@ -665,6 +683,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Caption = #22383#24067#20811#37325 Caption = #22383#24067#20811#37325
DataBinding.FieldName = 'C_KnitGramWeight' DataBinding.FieldName = 'C_KnitGramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 100 Width = 100
@ -674,20 +693,29 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default Styles.Header = DataLink_KnitPlan.Default
Width = 76 Width = 76
end end
object Tv1Column10: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #25552#33457 Caption = #38754#32433
DataBinding.FieldName = 'C_Figure' DataBinding.FieldName = 'C_Yarn'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column11: TcxGridDBColumn object cxgrdbclmnTv1Column10: TcxGridDBColumn
Caption = #38754#32433 Caption = #22841#23618
DataBinding.FieldName = 'C_Yarn' DataBinding.FieldName = 'C_jiaceng'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column11: TcxGridDBColumn
Caption = #24213#32433
DataBinding.FieldName = 'C_DYARN'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -698,6 +726,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'OrdPiece' DataBinding.FieldName = 'OrdPiece'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default Styles.Header = DataLink_KnitPlan.Default
Width = 59 Width = 59
end end
@ -705,6 +734,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Caption = #21305#38271 Caption = #21305#38271
DataBinding.FieldName = 'OrdPieceWeight' DataBinding.FieldName = 'OrdPieceWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default Styles.Header = DataLink_KnitPlan.Default
Width = 72 Width = 72
@ -714,6 +744,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'OrdQty' DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default Styles.Header = DataLink_KnitPlan.Default
Width = 92 Width = 92
end end
@ -731,6 +762,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'OrdSNote' DataBinding.FieldName = 'OrdSNote'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.Default Styles.Header = DataLink_KnitPlan.Default
Width = 68 Width = 68
end end
@ -739,6 +771,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'filler' DataBinding.FieldName = 'filler'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68 Width = 68
end end
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
@ -762,6 +795,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
DataBinding.FieldName = 'wXJPS' DataBinding.FieldName = 'wXJPS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89 Width = 89
end end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
@ -815,6 +849,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Caption = #33394#19997#27604#20363 Caption = #33394#19997#27604#20363
DataBinding.FieldName = 'SSBL' DataBinding.FieldName = 'SSBL'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
@ -835,6 +870,38 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Options.Editing = False Options.Editing = False
Width = 90 Width = 90
end end
object cxgrdbclmnTv1Column12: TcxGridDBColumn
Caption = #29305#27530#21161#21058
DataBinding.FieldName = 'C_ZhuJi'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column13: TcxGridDBColumn
Caption = #29289#26009#21517#31216
DataBinding.FieldName = 'C_Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column14: TcxGridDBColumn
Caption = #34892#21495
DataBinding.FieldName = 'LineNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column22: TcxGridDBColumn
Caption = #25171#21360#27425#25968
DataBinding.FieldName = 'PrtCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

56
D01针织生产计划/U_KnitPlanList.pas
View File

@ -100,7 +100,6 @@ type
ToolButton4: TToolButton; ToolButton4: TToolButton;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn;
Panel2: TPanel; Panel2: TPanel;
@ -159,6 +158,14 @@ type
cxgrdbclmnTv1Column21: TcxGridDBColumn; cxgrdbclmnTv1Column21: TcxGridDBColumn;
DYPrint: TToolButton; DYPrint: TToolButton;
ToolButton11: TToolButton; ToolButton11: TToolButton;
cxgrdbclmnTv1Column10: TcxGridDBColumn;
cxgrdbclmnTv1Column11: TcxGridDBColumn;
cxgrdbclmnTv1Column12: TcxGridDBColumn;
cxgrdbclmnTv1Column13: TcxGridDBColumn;
cxgrdbclmnTv1Column14: TcxGridDBColumn;
lbl2: TLabel;
LineNumber: TEdit;
cxgrdbclmnTv1Column22: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
@ -598,7 +605,16 @@ begin
FFiltration1 := WSql; FFiltration1 := WSql;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update Knit_Plan_Main');
sql.Add('set PRTCount=PRTCount+1');
sql.Add(' where MainId in(' + WSql + ')');
ExecSQL;
end;
InitGrid();
end; end;
end; end;
finally finally
@ -824,25 +840,7 @@ procedure TfrmKnitPlanList.conPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
begin begin
if Length(Trim(ConNo.Text)) < 4 then InitGrid();
Exit;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select * from knit_Plan_Main A inner join knit_Plan_Sub B on A.Mainid=B.MainId');
sql.Add(' where A.ConNo like ''' + '%' + Trim(ConNo.Text) + '%' + '''');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end; end;
end; end;
@ -1114,7 +1112,17 @@ begin
FFiltration1 := CDS_1.FieldByName('MAINID').AsString; FFiltration1 := CDS_1.FieldByName('MAINID').AsString;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
// Self.InitGrid(); with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update Knit_Plan_Main');
sql.Add('set PRTCount=PRTCount+1');
sql.Add(' where MainId = ''' + Trim(self.CDS_1.fieldbyname('MainId').AsString) + '''');
//showmessage(sql.Text);
ExecSQL;
end;
InitGrid();
end; end;
end; end;
finally finally
@ -1291,6 +1299,10 @@ end;
procedure TfrmKnitPlanList.CustNameKeyPress(Sender: TObject; var Key: Char); procedure TfrmKnitPlanList.CustNameKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
if Key = #13 then
begin
InitGrid();
end;
TBRafresh.Click(); TBRafresh.Click();
if ADOQueryMain.Active = False then if ADOQueryMain.Active = False then
Exit; Exit;

30
D01针织生产计划/U_LCKQuery.dfm
View File

@ -125,6 +125,13 @@ inherited frmLCKQuery: TfrmLCKQuery
Height = 12 Height = 12
Caption = #24320#21345#26085#26399 Caption = #24320#21345#26085#26399
end end
object lbl4: TLabel
Left = 637
Top = 16
Width = 48
Height = 12
Caption = #20135#21697#21517#31216
end
object LCKID: TEdit object LCKID: TEdit
Tag = 2 Tag = 2
Left = 327 Left = 327
@ -163,6 +170,15 @@ inherited frmLCKQuery: TfrmLCKQuery
Time = 0.464761099538009100 Time = 0.464761099538009100
TabOrder = 3 TabOrder = 3
end end
object C_Name: TEdit
Tag = 2
Left = 706
Top = 12
Width = 80
Height = 20
TabOrder = 4
OnChange = LCKIDChange
end
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
@ -237,14 +253,6 @@ inherited frmLCKQuery: TfrmLCKQuery
Options.Editing = False Options.Editing = False
Width = 92 Width = 92
end end
object cxgrdbclmnTv3Column9: TcxGridDBColumn
Caption = #24037#33402
DataBinding.FieldName = 'Craft'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv3Column4: TcxGridDBColumn object cxgrdbclmnTv3Column4: TcxGridDBColumn
Caption = #21518#22788#29702#31867#22411 Caption = #21518#22788#29702#31867#22411
DataBinding.FieldName = 'HCLType' DataBinding.FieldName = 'HCLType'
@ -278,15 +286,15 @@ inherited frmLCKQuery: TfrmLCKQuery
Width = 80 Width = 80
end end
object cxgrdbclmnTv3Column6: TcxGridDBColumn object cxgrdbclmnTv3Column6: TcxGridDBColumn
Caption = #29305#27530#35201#27714'('#21161#21058')' Caption = #29305#27530#21161#21058
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Craft'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 119 Width = 119
end end
object cxgrdbclmnTv1Column2: TcxGridDBColumn object cxgrdbclmnTv1Column2: TcxGridDBColumn
Caption = #22411#21495 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter

3
D01针织生产计划/U_LCKQuery.pas
View File

@ -57,7 +57,6 @@ type
cxgrdbclmnTv3Column8: TcxGridDBColumn; cxgrdbclmnTv3Column8: TcxGridDBColumn;
cxgrdbclmnTv3Column1: TcxGridDBColumn; cxgrdbclmnTv3Column1: TcxGridDBColumn;
cxgrdbclmnTv3Column2: TcxGridDBColumn; cxgrdbclmnTv3Column2: TcxGridDBColumn;
cxgrdbclmnTv3Column9: TcxGridDBColumn;
cxgrdbclmnTv3Column4: TcxGridDBColumn; cxgrdbclmnTv3Column4: TcxGridDBColumn;
cxgrdbclmnTv3Column5: TcxGridDBColumn; cxgrdbclmnTv3Column5: TcxGridDBColumn;
cxgrdbclmnTv3Column3: TcxGridDBColumn; cxgrdbclmnTv3Column3: TcxGridDBColumn;
@ -84,6 +83,8 @@ type
cxgrdbclmnTv1Column8: TcxGridDBColumn; cxgrdbclmnTv1Column8: TcxGridDBColumn;
cxgrdbclmnTv1Column9: TcxGridDBColumn; cxgrdbclmnTv1Column9: TcxGridDBColumn;
btn5: TToolButton; btn5: TToolButton;
lbl4: TLabel;
C_Name: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);

BIN
D02针织坯布检验/KnitInsp.identcache
View File

Binary file not shown.

BIN
D02针织坯布检验/KnitInspLogin.identcache
View File

Binary file not shown.

BIN
D03针织坯布仓库/KnitClothStk.identcache
View File

Binary file not shown.

BIN
D03针织坯布仓库/testDll.identcache
View File

Binary file not shown.

BIN
F04染色刷卡/DyeProcess.identcache
View File

Binary file not shown.

10
T03贸易布匹检验/U_DataLink.dfm
View File

@ -10461,7 +10461,7 @@ inherited DataLink_TradeInsp: TDataLink_TradeInsp
AssignedValues = [svFont] AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
end end
@ -10559,6 +10559,14 @@ inherited DataLink_TradeInsp: TDataLink_TradeInsp
Font.Style = [fsBold] Font.Style = [fsBold]
TextColor = clRed TextColor = clRed
end end
object cxStyle1: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
end
end end
object Timer_link: TTimer object Timer_link: TTimer
Interval = 15000 Interval = 15000

1
T03贸易布匹检验/U_DataLink.pas
View File

@ -76,6 +76,7 @@ type
SHuangSeCu: TcxStyle; SHuangSeCu: TcxStyle;
Timer_link: TTimer; Timer_link: TTimer;
ImageList_new32: TImageList; ImageList_new32: TImageList;
cxStyle1: TcxStyle;
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
procedure Timer_linkTimer(Sender: TObject); procedure Timer_linkTimer(Sender: TObject);
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);

20
T03贸易布匹检验/U_TradeClothInspList.dfm
View File

@ -399,13 +399,21 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Width = 66 Width = 66
end end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #31859#25968 Caption = #20928#31859#25968
DataBinding.FieldName = 'Meter' DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object cxgrdbclmnTv1Column13: TcxGridDBColumn
Caption = #27611#31859#25968
DataBinding.FieldName = 'GrossMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968 Caption = #30721#25968
DataBinding.FieldName = 'Yardage' DataBinding.FieldName = 'Yardage'
@ -503,6 +511,14 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxgrdbclmnTv1Column14: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -794,7 +810,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
State = cbChecked State = cbChecked
TabOrder = 5 TabOrder = 5
end end
object BCIOID: TEdit object PCID: TEdit
Tag = 2 Tag = 2
Left = 972 Left = 972
Top = 6 Top = 6

4
T03贸易布匹检验/U_TradeClothInspList.pas
View File

@ -50,7 +50,7 @@ type
C_Color: TEdit; C_Color: TEdit;
IsJYTime: TCheckBox; IsJYTime: TCheckBox;
lbl1: TLabel; lbl1: TLabel;
BCIOID: TEdit; PCID: TEdit;
btnJYBG: TToolButton; btnJYBG: TToolButton;
Label16: TLabel; Label16: TLabel;
CIMachNo: TEdit; CIMachNo: TEdit;
@ -116,6 +116,8 @@ type
btn3: TButton; btn3: TButton;
btn2: TButton; btn2: TButton;
edt1: TEdit; edt1: TEdit;
cxgrdbclmnTv1Column13: TcxGridDBColumn;
cxgrdbclmnTv1Column14: 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);

180
T03贸易布匹检验/U_TradeMachInsp.dfm
View File

@ -7,6 +7,8 @@
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -63
ExplicitTop = -140
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 810 ExplicitHeight = 810
PixelsPerInch = 96 PixelsPerInch = 96
@ -22,9 +24,9 @@
TabOrder = 4 TabOrder = 4
object Panel2: TPanel object Panel2: TPanel
Left = 1 Left = 1
Top = 185 Top = 183
Width = 415 Width = 415
Height = 585 Height = 587
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -184,7 +186,7 @@
end end
object MaxQty: TLabel object MaxQty: TLabel
Left = 2 Left = 2
Top = 299 Top = 281
Width = 62 Width = 62
Height = 34 Height = 34
Caption = #38271#24230 Caption = #38271#24230
@ -520,17 +522,17 @@
Left = 1 Left = 1
Top = 1 Top = 1
Width = 415 Width = 415
Height = 184 Height = 182
Align = alTop Align = alTop
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 0 TabOrder = 0
object Label22: TLabel object Label22: TLabel
Left = 8 Left = 8
Top = 142 Top = 102
Width = 51 Width = 51
Height = 38 Height = 38
Caption = #25104#21697#13#10#38376#24133#65306 Caption = #35746#21333#13#10#38376#24133#65306
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -16 Font.Height = -16
@ -539,11 +541,11 @@
ParentFont = False ParentFont = False
end end
object Label13: TLabel object Label13: TLabel
Left = 207 Left = 204
Top = 148 Top = 102
Width = 51 Width = 51
Height = 19 Height = 38
Caption = #20811#37325#65306 Caption = #35746#21333#13#10#20811#37325#65306
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -16 Font.Height = -16
@ -565,7 +567,7 @@
ParentFont = False ParentFont = False
end end
object Label25: TLabel object Label25: TLabel
Left = 207 Left = 206
Top = 53 Top = 53
Width = 51 Width = 51
Height = 19 Height = 19
@ -605,7 +607,7 @@
end end
object Label28: TLabel object Label28: TLabel
Left = 8 Left = 8
Top = 116 Top = 185
Width = 51 Width = 51
Height = 19 Height = 19
Caption = #21345#21495#65306 Caption = #21345#21495#65306
@ -615,10 +617,11 @@
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label24: TLabel object Label24: TLabel
Left = 207 Left = 213
Top = 81 Top = 189
Width = 51 Width = 51
Height = 19 Height = 19
Caption = #25104#20998#65306 Caption = #25104#20998#65306
@ -628,10 +631,11 @@
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object lbl2: TLabel object lbl2: TLabel
Left = 204 Left = 204
Top = 113 Top = 82
Width = 51 Width = 51
Height = 19 Height = 19
Caption = #24067#31080#65306 Caption = #24067#31080#65306
@ -642,9 +646,35 @@
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object lbl5: TLabel
Left = 204
Top = 148
Width = 51
Height = 19
Caption = #20811#37325#65306
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object lbl6: TLabel
Left = 8
Top = 147
Width = 51
Height = 19
Caption = #38376#24133#65306
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object GramWeight: TEdit object GramWeight: TEdit
Left = 248 Left = 248
Top = 145 Top = 111
Width = 144 Width = 144
Height = 24 Height = 24
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -658,7 +688,7 @@
end end
object Width: TEdit object Width: TEdit
Left = 53 Left = 53
Top = 146 Top = 111
Width = 144 Width = 144
Height = 24 Height = 24
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -745,7 +775,7 @@
end end
object BCIOID: TEdit object BCIOID: TEdit
Left = 53 Left = 53
Top = 115 Top = 184
Width = 144 Width = 144
Height = 24 Height = 24
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -756,8 +786,24 @@
ParentFont = False ParentFont = False
ReadOnly = True ReadOnly = True
TabOrder = 7 TabOrder = 7
Visible = False
end end
object Composition: TEdit object Composition: TEdit
Left = 257
Top = 184
Width = 144
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 8
Visible = False
end
object PCID: TEdit
Left = 248 Left = 248
Top = 81 Top = 81
Width = 144 Width = 144
@ -769,21 +815,35 @@
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
ReadOnly = True ReadOnly = True
TabOrder = 8 TabOrder = 9
end end
object PCID: TEdit object Edit7: TEdit
Left = 248 Left = 248
Top = 112 Top = 144
Width = 144 Width = 144
Height = 24 Height = 27
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlack Font.Color = clRed
Font.Height = -14 Font.Height = -17
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
ReadOnly = True ReadOnly = True
TabOrder = 9 TabOrder = 10
end
object Edit8: TEdit
Left = 54
Top = 144
Width = 144
Height = 27
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 11
end end
end end
end end
@ -2190,7 +2250,6 @@
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Header = DataLink_TradeInsp.Default
object v3Column1: TcxGridDBColumn object v3Column1: TcxGridDBColumn
Caption = #21367#21495 Caption = #21367#21495
DataBinding.FieldName = 'PieceNo' DataBinding.FieldName = 'PieceNo'
@ -2199,16 +2258,8 @@
Options.Editing = False Options.Editing = False
Width = 40 Width = 40
end end
object Tv3Column3: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 62
end
object Tv3Column1: TcxGridDBColumn object Tv3Column1: TcxGridDBColumn
Caption = #31859#25968 Caption = #20928#31859#25968
DataBinding.FieldName = 'Meter' DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -2223,6 +2274,22 @@
Options.Editing = False Options.Editing = False
Width = 60 Width = 60
end end
object cxgrdbclmnTv3Column6: TcxGridDBColumn
Caption = #27611#31859#25968
DataBinding.FieldName = 'GrossMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv3Column3: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 62
end
object v3Column5: TcxGridDBColumn object v3Column5: TcxGridDBColumn
Caption = #20928#37325 Caption = #20928#37325
DataBinding.FieldName = 'NetWeight' DataBinding.FieldName = 'NetWeight'
@ -2276,6 +2343,12 @@
Width = 293 Width = 293
Height = 193 Height = 193
Align = alBottom Align = alBottom
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1 TabOrder = 1
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
@ -2292,6 +2365,12 @@
Width = 289 Width = 289
Height = 169 Height = 169
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -25
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -2319,8 +2398,8 @@
OptionsSelection.CellSelect = False OptionsSelection.CellSelect = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Footer = DataLink_TradeInsp.Default
Styles.Header = DataLink_TradeInsp.Default Styles.Header = DataLink_TradeInsp.Default
Styles.Selection = DataLink_TradeInsp.cxStyle1
object tv2CDType: TcxGridDBColumn object tv2CDType: TcxGridDBColumn
Caption = #30133#28857#21517#31216 Caption = #30133#28857#21517#31216
DataBinding.FieldName = 'CIFName' DataBinding.FieldName = 'CIFName'
@ -2328,7 +2407,8 @@
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
Width = 75 Styles.Content = DataLink_TradeInsp.cxStyle1
Width = 99
end end
object tv2CDWZ: TcxGridDBColumn object tv2CDWZ: TcxGridDBColumn
Caption = #20301#32622#36215 Caption = #20301#32622#36215
@ -2338,14 +2418,14 @@
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Sorting = False Options.Sorting = False
Styles.Content = cxStyle1 Styles.Content = DataLink_TradeInsp.cxStyle1
Styles.Header = cxStyle1 Width = 87
Width = 52
end end
object v2Column2: TcxGridDBColumn object v2Column2: TcxGridDBColumn
Caption = #20301#32622#27490 Caption = #20301#32622#27490
DataBinding.FieldName = 'CIFend' DataBinding.FieldName = 'CIFend'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Styles.Content = cxStyle1 Styles.Content = cxStyle1
@ -2357,6 +2437,7 @@
DataBinding.FieldName = 'CIFQty' DataBinding.FieldName = 'CIFQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Sorting = False Options.Sorting = False
Width = 46 Width = 46
@ -2382,6 +2463,7 @@
Caption = #25187#20998 Caption = #25187#20998
DataBinding.FieldName = 'CIFPoints' DataBinding.FieldName = 'CIFPoints'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 54 Width = 54
@ -2392,7 +2474,8 @@
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 36 Styles.Content = DataLink_TradeInsp.cxStyle1
Width = 70
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
@ -2435,8 +2518,6 @@
OptionsSelection.CellSelect = False OptionsSelection.CellSelect = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Footer = DataLink_TradeInsp.Default
Styles.Header = DataLink_TradeInsp.Default
object cxGridDBColumn2: TcxGridDBColumn object cxGridDBColumn2: TcxGridDBColumn
Caption = #30133#28857#21517#31216 Caption = #30133#28857#21517#31216
DataBinding.FieldName = 'CIFName' DataBinding.FieldName = 'CIFName'
@ -2444,7 +2525,7 @@
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
Width = 75 Width = 104
end end
object cxGridDBColumn3: TcxGridDBColumn object cxGridDBColumn3: TcxGridDBColumn
Caption = #20301#32622#36215 Caption = #20301#32622#36215
@ -2454,14 +2535,13 @@
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Sorting = False Options.Sorting = False
Styles.Content = cxStyle1 Width = 91
Styles.Header = cxStyle1
Width = 52
end end
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #20301#32622#27490 Caption = #20301#32622#27490
DataBinding.FieldName = 'CIFend' DataBinding.FieldName = 'CIFend'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Styles.Content = cxStyle1 Styles.Content = cxStyle1
@ -2473,6 +2553,7 @@
DataBinding.FieldName = 'CIFQty' DataBinding.FieldName = 'CIFQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Sorting = False Options.Sorting = False
Width = 46 Width = 46
@ -2498,6 +2579,7 @@
Caption = #25187#20998 Caption = #25187#20998
DataBinding.FieldName = 'CIFPoints' DataBinding.FieldName = 'CIFPoints'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 54 Width = 54
@ -2508,7 +2590,7 @@
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 36 Width = 60
end end
end end
object cxGridLevel3: TcxGridLevel object cxGridLevel3: TcxGridLevel
@ -2595,7 +2677,7 @@
end end
object Panel3: TPanel [4] object Panel3: TPanel [4]
Left = 3 Left = 3
Top = 474 Top = 479
Width = 413 Width = 413
Height = 207 Height = 207
BevelInner = bvRaised BevelInner = bvRaised

48
T03贸易布匹检验/U_TradeMachInsp.pas
View File

@ -307,6 +307,11 @@ type
lbl4: TLabel; lbl4: TLabel;
edtKJ: TEdit; edtKJ: TEdit;
btn1: TButton; btn1: TButton;
lbl5: TLabel;
Edit7: TEdit;
lbl6: TLabel;
Edit8: TEdit;
cxgrdbclmnTv3Column6: 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);
@ -426,12 +431,9 @@ begin
AOrdDefNote1.Text := AOrdDefNote1.Text + '流程卡:' + FBCIOID + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '流程卡:' + FBCIOID + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '品名:' + FC_Name + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '品名:' + FC_Name + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '门幅:' + FC_Width + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '门幅:' + FC_Width + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + 'Å÷²¼¿ËÖØ:' + FC_KnitGramWeight + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '成品克重:' + FC_GramWeight + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '成品克重:' + FC_GramWeight + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '颜色:' + FC_Color + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '颜色:' + FC_Color + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '成分:' + FC_Composition + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '成分:' + FC_Composition + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + 'ÌỨ:' + FC_Figure + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + 'ÃæÉ´:' + FC_Yarn + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '上称毛重:' + FRuleBeforeTare + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '上称毛重:' + FRuleBeforeTare + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '不上称皮重:' + FRuleLaterTare + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '不上称皮重:' + FRuleLaterTare + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '业务员:' + FYWY + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '业务员:' + FYWY + #13;
@ -572,7 +574,6 @@ end;
procedure TfrmTradeMachInsp.QuantityConversion(); procedure TfrmTradeMachInsp.QuantityConversion();
begin begin
if lblRuleConversion.Caption = '米转公斤' then if lblRuleConversion.Caption = '米转公斤' then
begin begin
InputWeight.Text := floattostr(StrToFloatdef(trim(InputLen.Text), 0) * StrToFloatdef(trim(Coefficient.Text), 0) + StrToFloatdef(FRuleBeforeTare, 0)); InputWeight.Text := floattostr(StrToFloatdef(trim(InputLen.Text), 0) * StrToFloatdef(trim(Coefficient.Text), 0) + StrToFloatdef(FRuleBeforeTare, 0));
@ -591,6 +592,15 @@ begin
MaxQty.Caption := InputLen.text; MaxQty.Caption := InputLen.text;
end; end;
if (StrToFloatdef(inputWeight.Text, 0) > 0) and (StrToFloatdef(MaxQty.Caption, 0) > 0) and (Width.text <> '') and (GramWeight.Text <> '') then
begin
Edit7.Text := FormatFloat('0.0', (((StrToFloatdef(inputWeight.Text, 0) - StrToFloatdef(FRuleBeforeTare, 0)) * 1000) / ((StrToFloatdef(copy(Width.Text, 1, 3), 0) / 100) * (StrToFloatdef(MaxQty.Caption, 0) - StrToFloatDef(DelQty.Text, 0)))));
end
else
begin
Edit7.Text := '';
end;
end; end;
function TfrmTradeMachInsp.CheckData(CKType: string): Boolean; function TfrmTradeMachInsp.CheckData(CKType: string): Boolean;
@ -1014,6 +1024,7 @@ begin
FC_Composition := Trim(ADOTmp.fieldbyname('C_Composition').AsString); FC_Composition := Trim(ADOTmp.fieldbyname('C_Composition').AsString);
FLoom := Trim(ADOTmp.fieldbyname('Loom').AsString); FLoom := Trim(ADOTmp.fieldbyname('Loom').AsString);
FC_Width := Trim(ADOTmp.fieldbyname('C_Width').AsString); FC_Width := Trim(ADOTmp.fieldbyname('C_Width').AsString);
Edit8.Text := copy(Trim(ADOTmp.fieldbyname('C_Width').AsString), 1, 3);
FC_GramWeight := Trim(ADOTmp.fieldbyname('C_GramWeight').AsString); FC_GramWeight := Trim(ADOTmp.fieldbyname('C_GramWeight').AsString);
FRulePieceNo := Trim(ADOTmp.fieldbyname('RulePieceNo').AsString); //卷号生成规则 FRulePieceNo := Trim(ADOTmp.fieldbyname('RulePieceNo').AsString); //卷号生成规则
FYWY := Trim(ADOTmp.fieldbyname('Saleser').AsString); //业务员 FYWY := Trim(ADOTmp.fieldbyname('Saleser').AsString); //业务员
@ -1303,7 +1314,7 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select A.*'); sql.Add('select GrossMeter=DelQty+Meter,A.*');
sql.Add('from Trade_Cloth_Inspect A where Filler=''' + Trim(DName) + ''''); sql.Add('from Trade_Cloth_Inspect A where Filler=''' + Trim(DName) + '''');
sql.Add('and CONVERT(VARCHAR(10),A.FillTime,120) =CONVERT(VARCHAR(10),getdate(),120) '); sql.Add('and CONVERT(VARCHAR(10),A.FillTime,120) =CONVERT(VARCHAR(10),getdate(),120) ');
// sql.Add('from Trade_Cloth_Inspect A where BCIOID=''' + Trim(FBCIOID) + ''''); // sql.Add('from Trade_Cloth_Inspect A where BCIOID=''' + Trim(FBCIOID) + '''');
@ -1316,11 +1327,35 @@ begin
end; end;
procedure TfrmTradeMachInsp.FormShow(Sender: TObject); procedure TfrmTradeMachInsp.FormShow(Sender: TObject);
var
I: INTEGER;
begin begin
inherited; inherited;
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) + 'Tv3', Tv3, '贸易检验管理'); ReadCxGrid(trim(Self.Caption) + 'Tv3', Tv3, '贸易检验管理');
// 设置整个网格的默认字体
// cxGrid1.Font.Size := 19;
// cxGrid2.Font.Size := 19;
// cxGrid3.Font.Size := 19;
// 2. 强制所有列继承全局样式（覆盖列独立设置）
for I := 0 to TV2.ColumnCount - 1 do
begin
TV2.Columns[I].Styles.Content := DataLink_TradeInsp.cxStyle1;
TV2.Columns[I].Styles.Header := DataLink_TradeInsp.cxStyle1;
end;
TV2.Styles.selection := DataLink_TradeInsp.cxStyle1;
// for i := 0 to TV2.ColumnCount - 1 do
// begin
// // 设置列内容字体
// TV2.Columns[i].Styles.Content.Font.Size := 10;
// TV2.Columns[i].Styles.Content.Font.Name := '微软雅黑';
//
// // 设置列表头字体
// TV2.Columns[i].Styles.Header.Font.Size := 12;
// TV2.Columns[i].Styles.Header.Font.Name := '宋体';
// end;
fFlileFlag := UserDataFlag + 'HX'; fFlileFlag := UserDataFlag + 'HX';
InitCDPanel(); InitCDPanel();
InitCDGrid(FCIID); InitCDGrid(FCIID);
@ -2079,7 +2114,7 @@ begin
// else // else
FieldByName('CIFName').Value := Trim(TSpeedButton(Sender).Hint); FieldByName('CIFName').Value := Trim(TSpeedButton(Sender).Hint);
FieldByName('CIFbeg').Value := Trim(InputLen.Text); FieldByName('CIFbeg').Value := Trim(InputLen.Text);
FieldByName('CIFEnd').Value := Trim(InputLen.Text); FieldByName('CIFEnd').Value := 0;
FieldByName('CIFNumber').Value := 1; FieldByName('CIFNumber').Value := 1;
FieldByName('CIFPoints').Value := 0; FieldByName('CIFPoints').Value := 0;
@ -2098,6 +2133,7 @@ begin
Post; Post;
end; end;
EDTSCAN.SetFocus();
end; end;
procedure TfrmTradeMachInsp.cxDBImage1DblClick(Sender: TObject); procedure TfrmTradeMachInsp.cxDBImage1DblClick(Sender: TObject);

BIN
进度统计查询(Statistics.dll)/Statistics.identcache
View File

Binary file not shown.