Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2025-7-10

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-07-10 17:28:43 +08:00
parent 8235c35cae
commit 078a177f98
37 changed files with 1455 additions and 684 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
A00通用窗体/U_ProductInfoSel.dfm
View File

@ -1,19 +1,19 @@
inherited frmProductInfoSel: TfrmProductInfoSel
Left = 372
Top = 106
Caption = #21333#20301#21517#31216#36873#25321
Caption = #26426#29289#26009#20449#24687#36873#25321
ClientHeight = 558
ClientWidth = 893
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
Font.Name = #24494#36719#38597#40657
Position = poScreenCenter
OnClose = FormClose
ExplicitWidth = 909
ExplicitHeight = 597
PixelsPerInch = 96
TextHeight = 12
TextHeight = 17
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
@ -28,7 +28,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Name = #24494#36719#38597#40657
Font.Style = []
Images = ImageList1
List = True
@ -69,12 +69,18 @@ inherited frmProductInfoSel: TfrmProductInfoSel
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 1
object Label1: TLabel
Left = 18
Top = 17
Width = 24
Height = 12
Height = 17
Caption = #21517#31216
end
object CoName: TEdit
@ -82,7 +88,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel
Left = 53
Top = 12
Width = 169
Height = 20
Height = 25
TabOrder = 0
OnChange = CoNameChange
end
@ -93,7 +99,14 @@ inherited frmProductInfoSel: TfrmProductInfoSel
Width = 893
Height = 476
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 2
ExplicitTop = 81
object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>
@ -208,6 +221,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 102
end
end

144
A02基础产品管理/ClothInfo.dproj.local
View File

@ -1,78 +1,78 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.074,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.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.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.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.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.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.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.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.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.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.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.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.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.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.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.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.503,=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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.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.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.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.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.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.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.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.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.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.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.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.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.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.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.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.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.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.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.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.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.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

19
A02基础产品管理/U_TatClothInfo.dfm
View File

@ -8,7 +8,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitLeft = -327
ExplicitWidth = 1507
ExplicitHeight = 787
PixelsPerInch = 96
@ -360,6 +359,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Align = alClient
PopupMenu = PM_1
TabOrder = 0
ExplicitLeft = 6
ExplicitTop = 48
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
@ -760,6 +761,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Height = 337
Align = alClient
TabOrder = 1
ExplicitLeft = 4
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -888,6 +890,13 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Editing = False
Width = 99
end
object TV2Z_Number: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'Z_Number'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2Column10: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
@ -937,6 +946,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Height = 339
Align = alClient
TabOrder = 0
ExplicitLeft = 4
object Tv4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -1069,6 +1079,13 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Editing = False
Width = 88
end
object Tv4Z_Number: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'Z_Number'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv4Column10: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'

2
A02基础产品管理/U_TatClothInfo.pas
View File

@ -212,6 +212,8 @@ type
Tv1Column4: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv4Z_Number: TcxGridDBColumn;
TV2Z_Number: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);

4
A02基础产品管理/U_TatClothInfoInput.dfm
View File

@ -9,7 +9,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -16
OldCreateOrder = True
Position = poScreenCenter
ExplicitTop = -236
ExplicitWidth = 1556
ExplicitHeight = 776
PixelsPerInch = 96
@ -527,7 +526,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Height = 462
Align = alClient
TabOrder = 2
Properties.ActivePage = cxTabSheet2
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
ClientRectBottom = 462
@ -599,7 +598,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
PopupMenu = PM_1
TabOrder = 1
ExplicitLeft = -2
ExplicitTop = 0
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

BIN
A02基础产品管理/testDll.res
View File

Binary file not shown.

52
A05基础资料管理/BaseInfo.dproj
View File

@ -4,7 +4,7 @@
<MainSource>BaseInfo.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion>
@ -13,16 +13,6 @@
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
<Base_iOSDevice64>true</Base_iOSDevice64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
@ -43,24 +33,6 @@
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
<Cfg_2_Android64>true</Cfg_2_Android64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
<Cfg_2_OSX64>true</Cfg_2_OSX64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
@ -84,13 +56,6 @@
<VerInfo_Locale>2052</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
@ -113,17 +78,8 @@
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\testDll.exe</Debugger_HostApplication>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\testDll.exe</Debugger_HostApplication>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
</PropertyGroup>
<ItemGroup>
@ -244,10 +200,6 @@
</Source>
</Delphi.Personality>
<Platforms>
<Platform value="Android64">True</Platform>
<Platform value="iOSDevice64">True</Platform>
<Platform value="Linux64">True</Platform>
<Platform value="OSX64">True</Platform>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>

54
A05基础资料管理/BaseInfo.dproj.local
View File

@ -1,32 +1,32 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRtInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.888,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.824,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.116,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.293,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.824,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.467,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.888,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.116,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.293,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
</Transactions>
</BorlandProject>

BIN
A05基础资料管理/BaseInfo.identcache
View File

Binary file not shown.

BIN
A05基础资料管理/BaseInfo.res
View File

Binary file not shown.

237
A05基础资料管理/U_GKInput.dfm
View File

@ -2,7 +2,7 @@ inherited frmGKInput: TfrmGKInput
Left = 261
Top = 149
Caption = #38050#25187#24405#20837
ClientHeight = 494
ClientHeight = 549
ClientWidth = 863
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -11,7 +11,7 @@ inherited frmGKInput: TfrmGKInput
Position = poScreenCenter
OnClose = FormClose
ExplicitWidth = 879
ExplicitHeight = 533
ExplicitHeight = 588
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@ -31,13 +31,13 @@ inherited frmGKInput: TfrmGKInput
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton3: TToolButton
object TbSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = ToolButton3Click
OnClick = TbSaveClick
end
object TBClose: TToolButton
Left = 71
@ -52,7 +52,7 @@ inherited frmGKInput: TfrmGKInput
Left = 0
Top = 30
Width = 863
Height = 464
Height = 519
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
@ -62,233 +62,98 @@ inherited frmGKInput: TfrmGKInput
ParentColor = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 29
ExplicitTop = 36
object Label2: TLabel
Left = 10
Top = 12
Left = 48
Top = 73
Width = 64
Height = 21
Caption = #38050#25187#24207#21495
Caption = #38050#31576#32534#21495
end
object Label6: TLabel
Left = 10
Top = 48
Width = 64
Left = 48
Top = 109
Width = 106
Height = 21
Caption = #38050#25187#40831#25968
Caption = #31576#21495'('#40831'/2'#33521#23544')'
end
object Label39: TLabel
Left = 10
Top = 85
Width = 64
Left = 48
Top = 146
Width = 91
Height = 21
Caption = #38050#25187#32534#21495
Caption = #38050#31576#38271#24230'CM'
end
object Label7: TLabel
Left = 10
Top = 292
Left = 48
Top = 182
Width = 57
Height = 21
Caption = #22791' '#27880
end
object Label3: TLabel
Left = 319
Top = 12
Left = 399
Top = 73
Width = 64
Height = 21
Caption = #38050#25187#31576#21495
Caption = #26550#23376#32534#21495
end
object Label1: TLabel
Left = 319
Top = 48
Left = 399
Top = 109
Width = 64
Height = 21
Caption = #38050#25187#35268#26684
Caption = #26550#23376#23618#21495
end
object Label4: TLabel
Left = 10
Top = 127
Width = 62
Height = 21
Caption = #20215' '#26684
end
object Label5: TLabel
Left = 319
Top = 127
Width = 64
Height = 21
Caption = #24403#21069#36136#37327
end
object Label26: TLabel
Left = 10
Top = 249
Width = 58
Height = 21
Caption = #20379' '#24212' '#21830
end
object Label8: TLabel
Left = 319
Top = 250
Width = 64
Height = 21
Caption = #20837#24211#26085#26399
end
object lbl2: TLabel
Left = 10
Top = 173
Width = 59
Height = 21
Caption = 'A'#38754#29366#24577
end
object Label9: TLabel
Left = 319
Top = 173
Width = 58
Height = 21
Caption = 'B'#38754#29366#24577
end
object Label10: TLabel
Left = 10
Top = 212
Width = 59
Height = 21
Caption = 'C'#38754#29366#24577
end
object Label11: TLabel
Left = 319
Top = 212
Width = 60
Height = 21
Caption = 'D'#38754#29366#24577
end
object GKCS: TcxTextEdit
object GKKH: TcxTextEdit
Tag = 2
Left = 79
Top = 44
Left = 159
Top = 105
Properties.OnChange = JZBHPropertiesChange
TabOrder = 1
Width = 200
end
object GKNO: TcxTextEdit
Tag = 2
Left = 79
Top = 8
TabOrder = 0
Width = 200
end
object GKBH: TcxTextEdit
Tag = 2
Left = 79
Top = 82
Left = 159
Top = 69
Enabled = False
TabOrder = 0
Text = #33258#21160#29983#25104
Width = 200
end
object GKLength: TcxTextEdit
Tag = 2
Left = 159
Top = 143
Properties.OnChange = JZBHPropertiesChange
TabOrder = 2
Width = 200
end
object GKKH: TcxTextEdit
object JZBH: TcxTextEdit
Tag = 2
Left = 389
Top = 8
Left = 469
Top = 69
Properties.OnChange = JZBHPropertiesChange
TabOrder = 3
Width = 200
end
object Note: TcxMemo
Tag = 2
Left = 79
Top = 292
Left = 159
Top = 182
TabOrder = 4
Height = 77
Width = 518
end
object GKSpec: TcxTextEdit
object JZCH: TcxTextEdit
Tag = 2
Left = 389
Top = 44
Left = 469
Top = 105
Properties.OnChange = JZBHPropertiesChange
TabOrder = 5
Width = 200
end
object Price: TcxTextEdit
Tag = 2
Left = 79
Top = 124
TabOrder = 6
Width = 200
end
object DQZL: TcxTextEdit
Tag = 2
Left = 389
Top = 124
TabOrder = 7
Width = 200
end
object GKGYS: TcxButtonEdit
Tag = 2
Left = 79
Top = 246
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = GKGYSPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 8
Width = 200
end
object IODate: TcxDateEdit
Tag = 2
Left = 389
Top = 246
Properties.ShowTime = False
TabOrder = 9
Width = 200
end
object AM: TcxComboBox
Tag = 2
Left = 79
Top = 169
Properties.Items.Strings = (
#27491#24120
#24453#22788#29702
#31105#29992)
TabOrder = 10
Text = #27491#24120
Width = 200
end
object BM: TcxComboBox
Tag = 2
Left = 389
Top = 169
Properties.Items.Strings = (
#27491#24120
#24453#22788#29702
#31105#29992)
TabOrder = 11
Text = #27491#24120
Width = 200
end
object CM: TcxComboBox
Tag = 2
Left = 79
Top = 208
Properties.Items.Strings = (
#27491#24120
#24453#22788#29702
#31105#29992)
TabOrder = 12
Text = #27491#24120
Width = 200
end
object DM: TcxComboBox
Tag = 2
Left = 389
Top = 208
Properties.Items.Strings = (
#27491#24120
#24453#22788#29702
#31105#29992)
TabOrder = 13
Text = #27491#24120
Width = 200
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_BaseInfo.ADOLink

85
A05基础资料管理/U_GKInput.pas
View File

@ -25,44 +25,28 @@ type
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ToolButton3: TToolButton;
TbSave: TToolButton;
ScrollBox1: TScrollBox;
Label2: TLabel;
Label6: TLabel;
Label39: TLabel;
GKCS: TcxTextEdit;
GKNO: TcxTextEdit;
GKBH: TcxTextEdit;
Label7: TLabel;
GKKH: TcxTextEdit;
GKBH: TcxTextEdit;
GKLength: TcxTextEdit;
Label7: TLabel;
JZBH: TcxTextEdit;
Label3: TLabel;
Note: TcxMemo;
Label1: TLabel;
GKSpec: TcxTextEdit;
Label4: TLabel;
Price: TcxTextEdit;
Label5: TLabel;
DQZL: TcxTextEdit;
Label26: TLabel;
GKGYS: TcxButtonEdit;
Label8: TLabel;
IODate: TcxDateEdit;
lbl2: TLabel;
AM: TcxComboBox;
Label9: TLabel;
BM: TcxComboBox;
Label10: TLabel;
CM: TcxComboBox;
Label11: TLabel;
DM: TcxComboBox;
JZCH: TcxTextEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure TbSaveClick(Sender: TObject);
procedure CoareaBtnDnClick(Sender: TObject);
procedure GKGYSPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure JZBHPropertiesChange(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
@ -104,6 +88,12 @@ begin
end;
end;
procedure TfrmGKInput.JZBHPropertiesChange(Sender: TObject);
begin
inherited;
GKBH.Text := JZBH.Text + '-' + GKKH.Text + '-' + JZCH.Text + '-' + GKLength.Text;
end;
procedure TfrmGKInput.FormDestroy(Sender: TObject);
begin
inherited;
@ -126,29 +116,9 @@ begin
inherited;
InitGrid();
if FGKID = '' then
begin
IODate.Date := SGetServerDateTime(ADOQueryTemp);
end;
end;
procedure TfrmGKInput.GKGYSPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
self.GKGYS.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmGKInput.TBRafreshClick(Sender: TObject);
begin
@ -206,13 +176,13 @@ begin
begin
Close;
sql.Clear;
sql.Add('select * from BS_GK where GKNo=' + quotedstr(trim(GKNo.Text)));
sql.Add('select * from BS_GK where GKBH=' + quotedstr(trim(GKBH.Text)));
Open;
end;
if ADOQueryCmd.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('钢扣序号重复!', '提示', 0);
Application.MessageBox('钢扣编号重复!', '提示', 0);
Exit;
end;
@ -226,11 +196,26 @@ begin
end;
end;
procedure TfrmGKInput.ToolButton3Click(Sender: TObject);
procedure TfrmGKInput.TbSaveClick(Sender: TObject);
begin
if Trim(GKNo.Text) = '' then
if Trim(JZBH.Text) = '' then
begin
Application.MessageBox('钢扣序号不能为空!', '提示', 0);
Application.MessageBox('架子编号不能为空!', '提示', 0);
Exit;
end
else if Trim(GKKH.Text) = '' then
begin
Application.MessageBox('筘号不能为空!', '提示', 0);
Exit;
end
else if Trim(JZCH.Text) = '' then
begin
Application.MessageBox('架子层号不能为空!', '提示', 0);
Exit;
end
else if Trim(GKLength.Text) = '' then
begin
Application.MessageBox('钢筘长度不能为空!', '提示', 0);
Exit;
end;

137
A05基础资料管理/U_GKManage.dfm
View File

@ -35,7 +35,7 @@ inherited frmGKManage: TfrmGKManage
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton2: TToolButton
object TbFilter: TToolButton
Left = 71
Top = 0
AutoSize = True
@ -94,13 +94,14 @@ inherited frmGKManage: TfrmGKManage
end
object cxGrid2: TcxGrid [1]
Left = 0
Top = 120
Top = 89
Width = 1461
Height = 403
Height = 434
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 126
ExplicitLeft = 8
ExplicitTop = 95
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -137,30 +138,6 @@ inherited frmGKManage: TfrmGKManage
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv2Column1: TcxGridDBColumn
Caption = #38050#25187#24207#21495
DataBinding.FieldName = 'GKNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column2: TcxGridDBColumn
Caption = #38050#25187#31576#21495
DataBinding.FieldName = 'GKKH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column3: TcxGridDBColumn
Caption = #38050#25187#40831#25968
DataBinding.FieldName = 'GKCS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column4: TcxGridDBColumn
Caption = #38050#25187#32534#21495
DataBinding.FieldName = 'GKBH'
@ -169,76 +146,32 @@ inherited frmGKManage: TfrmGKManage
Options.Editing = False
Width = 100
end
object Tv2Column1: TcxGridDBColumn
Caption = #26550#23376#32534#21495
DataBinding.FieldName = 'JZBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv2Column3: TcxGridDBColumn
Caption = #26550#23376#23618#21495
DataBinding.FieldName = 'JZCH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv2Column5: TcxGridDBColumn
Caption = #38050#25187#35268#26684
DataBinding.FieldName = 'GKSPec'
Caption = #25187#21495'('#40831'/2'#33521#23544')'
DataBinding.FieldName = 'GKKH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column8: TcxGridDBColumn
Caption = #20215#26684
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column9: TcxGridDBColumn
Caption = #24403#21069#36136#37327
DataBinding.FieldName = 'DQZL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
Width = 124
end
object Tv2Column6: TcxGridDBColumn
Caption = #38050#25187#20379#24212#21830
DataBinding.FieldName = 'GKGYS'
Caption = #38050#25187#38271#24230'CM'
DataBinding.FieldName = 'GKLength'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column7: TcxGridDBColumn
Caption = #20837#24211#26085#26399
DataBinding.FieldName = 'IODate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column11: TcxGridDBColumn
Caption = 'A'#38754#29366#24577
DataBinding.FieldName = 'AM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column12: TcxGridDBColumn
Caption = 'B'#38754#29366#24577
DataBinding.FieldName = 'BM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column13: TcxGridDBColumn
Caption = 'C'#38754#29366#24577
DataBinding.FieldName = 'CM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column14: TcxGridDBColumn
Caption = 'D'#38754#29366#24577
DataBinding.FieldName = 'DM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column10: TcxGridDBColumn
@ -249,6 +182,13 @@ inherited frmGKManage: TfrmGKManage
Options.Editing = False
Width = 100
end
object Tv2Column7: TcxGridDBColumn
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'kcqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
@ -258,24 +198,25 @@ inherited frmGKManage: TfrmGKManage
Left = 0
Top = 30
Width = 1461
Height = 90
Height = 59
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 4
ExplicitTop = 36
object Label1: TLabel
Left = 42
Top = 35
Left = 30
Top = 19
Width = 64
Height = 21
Caption = #38050#25187#24207#21495
Caption = #38050#25187#32534#21495
end
object GKNo: TcxTextEdit
object GKBH: TcxTextEdit
Tag = 2
Left = 112
Top = 31
Left = 100
Top = 15
ParentColor = True
Properties.OnChange = MCNOPropertiesChange
TabOrder = 0

29
A05基础资料管理/U_GKManage.pas
View File

@ -24,7 +24,7 @@ type
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ToolButton2: TToolButton;
TbFilter: TToolButton;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
cxGrid2: TcxGrid;
@ -42,21 +42,14 @@ type
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
GKNo: TcxTextEdit;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
GKBH: TcxTextEdit;
Tv2Column4: TcxGridDBColumn;
Tv2Column10: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
Tv2Column9: TcxGridDBColumn;
Tv2Column10: TcxGridDBColumn;
Tv2Column11: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn;
Tv2Column13: TcxGridDBColumn;
Tv2Column14: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -97,22 +90,24 @@ uses
procedure TfrmGKManage.InitGrid();
begin
GKNO.SetFocus;
GKBH.SetFocus;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add(' select A.* from BS_GK A ');
// showmessage(Sql.text);
sql.Add(' select A.* ');
sql.Add(' ,kcqty=( select sum(e.IOQtyFlag*e.qty) from Bs_Product_IO e JOIN BS_GK a on e.p_code=a.GKBH where e.stkname=''ÎïÁÏ'')');
SQL.Add(' from BS_GK A');
// showmessage(Sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_HZ);
SInitCDSData(ADOQueryMain, CDS_HZ);
finally
ADOQueryMain.EnableControls;
ToolButton2.Click;
TbFilter.Click;
end;
end;
@ -345,7 +340,7 @@ end;
procedure TfrmGKManage.CustomerChange(Sender: TObject);
begin
ToolButton2.Click;
TbFilter.Click;
end;
procedure TfrmGKManage.FormCreate(Sender: TObject);

6
A05基础资料管理/U_GetDllForm.pas
View File

@ -67,10 +67,10 @@ begin
if trim(DataBaseStr) = '' then
begin
server := '101.132.143.144,7781';
server := '150.109.121.232,7781';
dtbase := 'KaiXiYadata';
user := 'rtsa';
pswd := 'rightsoft@5740';
user := 'kaixiyasa';
pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DParameters1 := '¹ÜÀí';
end

BIN
A05基础资料管理/testDll.res
View File

Binary file not shown.

50
B03基础物料仓库/ProductStk.dproj
View File

@ -4,7 +4,7 @@
<MainSource>ProductStk.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion>
@ -13,16 +13,6 @@
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
<Base_iOSDevice64>true</Base_iOSDevice64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
@ -43,24 +33,6 @@
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
<Cfg_2_Android64>true</Cfg_2_Android64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
<Cfg_2_OSX64>true</Cfg_2_OSX64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
@ -84,13 +56,6 @@
<VerInfo_Locale>2052</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
@ -113,15 +78,6 @@
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B03基础物料仓库\testDll.exe</Debugger_HostApplication>
@ -312,10 +268,6 @@
</Source>
</Delphi.Personality>
<Platforms>
<Platform value="Android64">True</Platform>
<Platform value="iOSDevice64">True</Platform>
<Platform value="Linux64">True</Platform>
<Platform value="OSX64">True</Platform>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>

BIN
B03基础物料仓库/ProductStk.identcache
View File

Binary file not shown.

BIN
B03基础物料仓库/ProductStk.res
View File

Binary file not shown.

2
B03基础物料仓库/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject>
<Transactions/>
<Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\ProductStk.dproj"/>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B03基础物料仓库\ProductStk.dproj"/>
</Default.Personality>
</BorlandProject>

63
B03基础物料仓库/U_BSPrtInEdit.dfm
View File

@ -2,7 +2,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
Left = 67
Top = 126
Caption = #26426#29289#26009#20837#24211
ClientHeight = 463
ClientHeight = 542
ClientWidth = 1340
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -10,7 +10,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
Position = poScreenCenter
OnClose = FormClose
ExplicitWidth = 1356
ExplicitHeight = 502
ExplicitHeight = 581
PixelsPerInch = 96
TextHeight = 21
object cxGrid1: TcxGrid [0]
@ -18,10 +18,10 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
Left = 0
Top = 30
Width = 1340
Height = 433
Height = 512
Align = alClient
TabOrder = 0
ExplicitTop = 29
ExplicitTop = 36
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -67,6 +67,18 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1Style: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'Style'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
''
#38050#25187
#26426#29289#26009)
HeaderAlignmentHorz = taCenter
Width = 82
end
object v1Column4: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
@ -117,7 +129,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
Width = 90
end
object Tv1Column2: TcxGridDBColumn
Caption = #32534#21495
@ -132,8 +144,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column2PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
Width = 120
end
object v1SPName: TcxGridDBColumn
Caption = #21697#21517
@ -141,7 +152,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 101
Width = 90
end
object v1SPSpec: TcxGridDBColumn
Caption = #35268#26684
@ -150,7 +161,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 112
Width = 90
end
object v1Column1: TcxGridDBColumn
Caption = #25209#21495
@ -158,7 +169,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 92
Width = 90
end
object v2Column6: TcxGridDBColumn
Caption = #25968#37327
@ -166,14 +177,14 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 81
Width = 90
end
object v1QtyUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 64
Width = 90
end
object v1Column5: TcxGridDBColumn
Caption = #24211#20301
@ -188,21 +199,21 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
Properties.ReadOnly = False
Properties.OnButtonClick = v1Column5PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 79
Width = 90
end
object v1Column12: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
Width = 90
end
object Tv1Column3: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
Width = 90
end
end
object cxGrid1Level1: TcxGridLevel
@ -217,7 +228,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
ButtonWidth = 95
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
@ -248,16 +259,24 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
Visible = False
OnClick = ToolButton2Click
end
object TBAdd: TToolButton
object TBAdd1: TToolButton
Left = 150
Top = 0
AutoSize = True
Caption = #26032#22686
Caption = #26032#22686#26426#29289#26009
ImageIndex = 2
OnClick = TBAddClick
OnClick = TBAdd1Click
end
object TbAdd2: TToolButton
Left = 249
Top = 0
AutoSize = True
Caption = #26032#22686#38050#31576
ImageIndex = 2
OnClick = TbAdd2Click
end
object TBDel: TToolButton
Left = 213
Left = 336
Top = 0
AutoSize = True
Caption = #21024#38500
@ -265,7 +284,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
OnClick = TBDelClick
end
object ToolButton1: TToolButton
Left = 276
Left = 399
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -273,7 +292,7 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 363
Left = 486
Top = 0
AutoSize = True
Caption = #20851#38381

65
B03基础物料仓库/U_BSPrtInEdit.pas
View File

@ -22,7 +22,7 @@ type
v2Column6: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
ToolBar1: TToolBar;
TBAdd: TToolButton;
TBAdd1: TToolButton;
TBDel: TToolButton;
TBSave: TToolButton;
TBClose: TToolButton;
@ -46,8 +46,10 @@ type
Tv1Column3: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column4: TcxGridDBColumn;
TbAdd2: TToolButton;
Tv1Style: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBAdd1Click(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBDelClick(Sender: TObject);
@ -59,6 +61,7 @@ type
procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure TbAdd2Click(Sender: TObject);
private
{ Private declarations }
function SaveCKData(): Boolean;
@ -74,7 +77,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_ProductInfoSel, U_CompanySel,
U_JWLPurchasePlanSel;
U_JWLPurchasePlanSel, U_GKManageSel;
{$R *.dfm}
@ -84,7 +87,7 @@ begin
Action := caFree;
end;
procedure TfrmBSPrtInEdit.TBAddClick(Sender: TObject);
procedure TfrmBSPrtInEdit.TBAdd1Click(Sender: TObject);
begin
try
frmProductInfoSel := TfrmProductInfoSel.Create(Application);
@ -106,6 +109,7 @@ begin
FieldByName('Brand').Value := frmProductInfoSel.CDS_1.fieldbyname('Brand').value;
FieldByName('QtyUnit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value;
FieldByName('Price').Value := frmProductInfoSel.CDS_1.fieldbyname('Price').value;
FieldByName('Style').Value := '机物料';
end;
end;
end;
@ -421,6 +425,35 @@ begin
end;
end;
procedure TfrmBSPrtInEdit.TbAdd2Click(Sender: TObject);
begin
inherited;
try
frmGKManageSel := TfrmGKManageSel.Create(Application);
with frmGKManageSel do
begin
FSTKName := Self.FSTKName;
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
append;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('StkCoNo').Value := '本厂仓库';
FieldByName('StkCoName').Value := '本厂仓库';
FieldByName('IOType').Value := '采购入库';
FieldByName('P_Code').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKBH').value;
FieldByName('P_Name').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKKH').value;
FieldByName('P_Spec').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKLength').value;
FieldByName('Style').Value := '钢筘';
end;
end;
end;
finally
frmGKManageSel.Free;
end;
end;
procedure TfrmBSPrtInEdit.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
@ -447,6 +480,8 @@ end;
procedure TfrmBSPrtInEdit.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
if CDS_Sub.FieldByName('style').Value = '机物料' then
begin
frmProductInfoSel := TfrmProductInfoSel.Create(Application);
with frmProductInfoSel do
begin
@ -464,8 +499,28 @@ begin
end;
end;
end;
end
else if CDS_Sub.FieldByName('style').Value = '钢筘' then
begin
frmGKManageSel := TfrmGKManageSel.Create(Application);
with frmGKManageSel do
begin
FSTKName := Self.FSTKName;
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('P_Code').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKBH').value;
FieldByName('P_Name').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKKH').value;
FieldByName('P_Spec').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKLength').value;
end;
end;
end;
end;
finally
frmProductInfoSel.Free;
frmGKManageSel.Free;
end;
end;

49
B03基础物料仓库/U_BSPrtInList.dfm
View File

@ -2,11 +2,11 @@ inherited frmBSPrtInList: TfrmBSPrtInList
Left = 165
Top = 111
Caption = #29289#26009#20837#24211#21015#34920
ClientHeight = 478
ClientHeight = 546
ClientWidth = 1284
Font.Height = -16
ExplicitWidth = 1300
ExplicitHeight = 517
ExplicitHeight = 585
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@ -233,9 +233,10 @@ inherited frmBSPrtInList: TfrmBSPrtInList
Left = 0
Top = 111
Width = 1284
Height = 367
Height = 435
Align = alClient
TabOrder = 2
ExplicitTop = 108
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -294,6 +295,20 @@ inherited frmBSPrtInList: TfrmBSPrtInList
Options.Editing = False
Width = 93
end
object Tv1Column2: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'Style'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
''
#38050#25187
#26426#29289#26009)
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column4: TcxGridDBColumn
Tag = 2
Caption = #20837#24211#31867#22411
@ -332,7 +347,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
Width = 90
end
object v1Column20: TcxGridDBColumn
Caption = #32534#21495
@ -340,22 +355,16 @@ inherited frmBSPrtInList: TfrmBSPrtInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
Width = 90
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'P_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
Width = 90
end
object v1Column8: TcxGridDBColumn
Tag = 2
@ -365,7 +374,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 79
Width = 90
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
@ -373,7 +382,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89
Width = 90
end
object v2Column6: TcxGridDBColumn
Tag = 2
@ -383,7 +392,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
Width = 90
end
object v1Column3: TcxGridDBColumn
Tag = 2
@ -398,7 +407,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 90
end
object v1Column5: TcxGridDBColumn
Tag = 2
@ -414,7 +423,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
Width = 90
end
object v1Column12: TcxGridDBColumn
Tag = 2
@ -423,7 +432,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
Width = 90
end
end
object cxGrid1Level1: TcxGridLevel
@ -533,8 +542,8 @@ inherited frmBSPrtInList: TfrmBSPrtInList
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 520
Top = 232
Left = 592
Top = 176
end
object CDS_PRT: TClientDataSet
Aggregates = <>

16
B03基础物料仓库/U_BSPrtInList.pas
View File

@ -11,10 +11,9 @@ uses
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore,
cxDateUtils, cxMaskEdit, dxSkinsCore, dxSkinsDefaultPainters,
dxScrollbarAnnotations, cxProgressBar;
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxDateUtils, cxMaskEdit,
dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar;
type
TfrmBSPrtInList = class(TfrmBaseList)
@ -75,6 +74,7 @@ type
BegDate: TcxDateEdit;
EndDate: TcxDateEdit;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -105,7 +105,7 @@ type
implementation
uses
U_DataLink, U_RTFun, U_BSPrtInEdit;
U_DataLink, U_RTFun, U_BSPrtInEdit, U_GKManageSel;
{$R *.dfm}
procedure TfrmBSPrtInList.setStatus();
@ -145,6 +145,9 @@ begin
sql.Add(' and isnull(STKNAME,'''')=''' + Trim(FSTKName) + '''');
SQL.Add(' and IOFlag=''Èë¿â'' ');
SQL.Add(' order by IOTime desc');
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
@ -341,7 +344,8 @@ begin
begin
FBCId := Trim(CDS_Main.fieldbyname('BPIOID').AsString);
TBDel.Visible := False;
TBAdd.Visible := False;
TBAdd1.Visible := False;
TBAdd2.Visible := False;
FSTKName := Self.FSTKName;
if ShowModal = 1 then
begin

256
B03基础物料仓库/U_GKManageSel.dfm Normal file
View File

@ -0,0 +1,256 @@
inherited frmGKManageSel: TfrmGKManageSel
Left = 297
Top = 109
Caption = #38050#25187#20449#24687#36873#25321
ClientHeight = 523
ClientWidth = 1461
KeyPreview = True
ExplicitWidth = 1477
ExplicitHeight = 562
PixelsPerInch = 96
TextHeight = 17
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1461
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clSkyBlue
Images = DataLink_ProductStk.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 3
ExplicitTop = 1
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TbFilter: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
Visible = False
end
object TBClose: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid2: TcxGrid [1]
Left = 0
Top = 75
Width = 1461
Height = 448
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 76
ExplicitHeight = 442
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_HZ
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv2Column4: TcxGridDBColumn
Caption = #38050#31576#32534#21495
DataBinding.FieldName = 'GKBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column1: TcxGridDBColumn
Caption = #26550#23376#32534#21495
DataBinding.FieldName = 'JZBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv2Column3: TcxGridDBColumn
Caption = #26550#23376#23618#21495
DataBinding.FieldName = 'JZCH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv2Column5: TcxGridDBColumn
Caption = #31576#21495'('#40831'/2'#33521#23544')'
DataBinding.FieldName = 'GKKH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 124
end
object Tv2Column6: TcxGridDBColumn
Caption = #38050#31576#38271#24230'CM'
DataBinding.FieldName = 'GKLength'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv2Column10: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column7: TcxGridDBColumn
Caption = #24211#23384#25968#37327
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
object Panel1: TPanel [2]
Left = 0
Top = 38
Width = 1461
Height = 37
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 4
object Label1: TLabel
Left = 13
Top = 11
Width = 48
Height = 17
Caption = #38050#31576#32534#21495
end
object GKBH: TcxTextEdit
Tag = 2
Left = 83
Top = 7
ParentColor = True
Properties.OnChange = MCNOPropertiesChange
TabOrder = 0
Width = 158
end
end
inherited loadProcess: TPanel
Left = 316
Top = 411
ExplicitLeft = 316
ExplicitTop = 411
end
inherited cxProgressBar2: TcxProgressBar
Left = 316
Top = 356
ExplicitLeft = 316
ExplicitTop = 356
ExplicitHeight = 25
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_ProductStk.ADOLink
Left = 113
Top = 256
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_ProductStk.ADOLink
Left = 137
Top = 169
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ProductStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 459
Top = 169
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ProductStk.ADOLink
Parameters = <>
Left = 357
Top = 153
end
object ADOQueryMain: TADOQuery
Connection = DataLink_ProductStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 253
Top = 161
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 520
Top = 264
end
object DS_HZ: TDataSource
DataSet = CDS_HZ
Left = 283
Top = 259
end
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 429
Top = 271
end
object PopupMenu1: TPopupMenu
Left = 355
Top = 250
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
end

176
B03基础物料仓库/U_GKManageSel.pas Normal file
View File

@ -0,0 +1,176 @@
unit U_GKManageSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, RM_BarCode, dxScrollbarAnnotations, cxContainer,
cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters;
type
TfrmGKManageSel = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
TbFilter: TToolButton;
ADOQueryMain: TADOQuery;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
GPM_1: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Panel1: TPanel;
Label1: TLabel;
GKBH: TcxTextEdit;
Tv2Column4: TcxGridDBColumn;
Tv2Column10: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure CustomerChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MCNOPropertiesChange(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
public
fFlag: integer;
{ Public declarations }
RKFlag, FCYID, fmanage: string;
end;
var
frmGKManageSel: TfrmGKManageSel;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_EmployeeSel;
{$R *.dfm}
procedure TfrmGKManageSel.InitGrid();
begin
GKBH.SetFocus;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add(' select A.* from BS_GK A ');
// showmessage(Sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_HZ);
SInitCDSData(ADOQueryMain, CDS_HZ);
finally
ADOQueryMain.EnableControls;
TbFilter.Click;
end;
end;
procedure TfrmGKManageSel.MCNOPropertiesChange(Sender: TObject);
var
sql: string;
begin
if ADOQueryMain.Active then
begin
sql := SGetFilters(Panel1, 1, 2);
SDofilter(ADOQueryMain, sql);
SCreateCDS(ADOQueryMain, CDS_HZ);
SInitCDSData(ADOQueryMain, CDS_HZ);
end;
end;
procedure TfrmGKManageSel.FormDestroy(Sender: TObject);
begin
inherited;
frmGKManageSel := nil;
end;
procedure TfrmGKManageSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmGKManageSel.TBCloseClick(Sender: TObject);
begin
WriteCxGrid(Trim(Self.Caption), Tv2, '钢筘信息选择');
Close;
end;
procedure TfrmGKManageSel.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(Trim(Self.Caption), Tv2, '钢筘信息选择');
InitGrid();
end;
procedure TfrmGKManageSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmGKManageSel.cxTabControl1Change(Sender: TObject);
begin
InitGrid;
end;
procedure TfrmGKManageSel.N1Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
SelOKNo(CDS_HZ, True);
end;
procedure TfrmGKManageSel.N2Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
SelOKNo(CDS_HZ, False);
end;
procedure TfrmGKManageSel.CustomerChange(Sender: TObject);
begin
TbFilter.Click;
end;
procedure TfrmGKManageSel.FormCreate(Sender: TObject);
begin
inherited;
fmanage := Trim(DParameters1);
end;
end.

6
B03基础物料仓库/U_GetDllForm.pas
View File

@ -72,10 +72,10 @@ begin
if trim(DataBaseStr) = '' then
begin
server := '101.132.143.144,7781';
server := '150.109.121.232,7781';
dtbase := 'KaiXiYadata';
user := 'rtsa';
pswd := 'rightsoft@5740';
user := 'kaixiyasa';
pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '管理';
Parameters2 := '物料';

BIN
B03基础物料仓库/testDll.identcache
View File

Binary file not shown.

BIN
B03基础物料仓库/testDll.res
View File

Binary file not shown.

3
B04采购计划管理/PurchasePlan.dpr
View File

@ -41,7 +41,8 @@ uses
U_YarnPurchasePlanList_ZZD in 'U_YarnPurchasePlanList_ZZD.pas' {frmYarnPurchasePlanList_ZZD},
U_YarnPurchasePlanPut_ZZD in 'U_YarnPurchasePlanPut_ZZD.pas' {frmYarnPurchasePlanPut_ZZD},
U_SalesContract_ZZDSXSel in '..\A00通用窗体\U_SalesContract_ZZDSXSel.pas' {frmSalesContract_ZZDSXSel},
U_SalesContract_SXSel in '..\A00通用窗体\U_SalesContract_SXSel.pas' {frmSalesContract_SXSel};
U_SalesContract_SXSel in '..\A00通用窗体\U_SalesContract_SXSel.pas' {frmSalesContract_SXSel},
U_GKManageSel in 'U_GKManageSel.pas' {frmGKManageSel};
{$R *.res}

4
B04采购计划管理/PurchasePlan.dproj
View File

@ -198,6 +198,10 @@
<Form>frmSalesContract_SXSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_GKManageSel.pas">
<Form>frmGKManageSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

95
B04采购计划管理/PurchasePlan.dproj.local
View File

@ -1,60 +1,61 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.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.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.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.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.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.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.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.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.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.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.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.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.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.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.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.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.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.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,=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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>2025/07/10 16:46:39.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>
@ -128,5 +129,7 @@
<File Path="U_YarnPurchasePlanList_ZZD.dfm"/>
<File Path="U_YarnPurchasePlanPut_ZZD.pas"/>
<File Path="U_YarnPurchasePlanPut_ZZD.dfm"/>
<File Path="U_GKManageSel.pas"/>
<File Path="U_GKManageSel.dfm"/>
</ProjectSortOrder>
</BorlandProject>

BIN
B04采购计划管理/PurchasePlan.identcache
View File

Binary file not shown.

272
B04采购计划管理/U_GKManageSel.dfm Normal file
View File

@ -0,0 +1,272 @@
inherited frmGKManageSel: TfrmGKManageSel
Left = 297
Top = 109
Caption = #38050#25187#20449#24687#36873#25321
ClientHeight = 523
ClientWidth = 1461
KeyPreview = True
ExplicitWidth = 1477
ExplicitHeight = 562
PixelsPerInch = 96
TextHeight = 17
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1461
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clSkyBlue
Images = DataLink_PurchasePlan.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 3
ExplicitTop = 1
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
Visible = False
OnClick = TBRafreshClick
end
object TbSelect: TToolButton
Left = 71
Top = 0
Caption = #36873#25321
ImageIndex = 12
OnClick = TbSelectClick
end
object TbFilter: TToolButton
Left = 146
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
Visible = False
end
object TBClose: TToolButton
Left = 217
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid2: TcxGrid [1]
Left = 0
Top = 75
Width = 1461
Height = 448
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 76
object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_HZ
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv2SSel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv2Column4: TcxGridDBColumn
Caption = #38050#31576#32534#21495
DataBinding.FieldName = 'GKBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column1: TcxGridDBColumn
Caption = #26550#23376#32534#21495
DataBinding.FieldName = 'JZBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv2Column3: TcxGridDBColumn
Caption = #26550#23376#23618#21495
DataBinding.FieldName = 'JZCH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv2Column5: TcxGridDBColumn
Caption = #31576#21495'('#40831'/2'#33521#23544')'
DataBinding.FieldName = 'GKKH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 124
end
object Tv2Column6: TcxGridDBColumn
Caption = #38050#31576#38271#24230'CM'
DataBinding.FieldName = 'GKLength'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv2Column10: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column7: TcxGridDBColumn
Caption = #24211#23384#25968#37327
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
object Panel1: TPanel [2]
Left = 0
Top = 38
Width = 1461
Height = 37
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 4
ExplicitTop = 23
object Label1: TLabel
Left = 13
Top = 11
Width = 48
Height = 17
Caption = #38050#31576#32534#21495
end
object GKBH: TcxTextEdit
Tag = 2
Left = 83
Top = 7
ParentColor = True
Properties.OnChange = MCNOPropertiesChange
TabOrder = 0
Width = 158
end
end
inherited loadProcess: TPanel
Left = 316
Top = 411
ExplicitLeft = 316
ExplicitTop = 411
end
inherited cxProgressBar2: TcxProgressBar
Left = 316
Top = 356
ExplicitLeft = 316
ExplicitTop = 356
ExplicitHeight = 25
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 113
Top = 256
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 137
Top = 170
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 459
Top = 169
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Parameters = <>
Left = 357
Top = 153
end
object ADOQueryMain: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 253
Top = 161
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 520
Top = 264
end
object DS_HZ: TDataSource
DataSet = CDS_HZ
Left = 283
Top = 259
end
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 429
Top = 271
end
object PopupMenu1: TPopupMenu
Left = 355
Top = 250
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
end

194
B04采购计划管理/U_GKManageSel.pas Normal file
View File

@ -0,0 +1,194 @@
unit U_GKManageSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, RM_BarCode, dxScrollbarAnnotations, cxContainer,
cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters;
type
TfrmGKManageSel = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
TbFilter: TToolButton;
ADOQueryMain: TADOQuery;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
GPM_1: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Panel1: TPanel;
Label1: TLabel;
GKBH: TcxTextEdit;
Tv2Column4: TcxGridDBColumn;
Tv2Column10: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
Tv2SSel: TcxGridDBColumn;
TbSelect: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure CustomerChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MCNOPropertiesChange(Sender: TObject);
procedure Tv2DblClick(Sender: TObject);
procedure TbSelectClick(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
public
fFlag: integer;
{ Public declarations }
RKFlag, FCYID, fmanage: string;
end;
var
frmGKManageSel: TfrmGKManageSel;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_EmployeeSel;
{$R *.dfm}
procedure TfrmGKManageSel.InitGrid();
begin
GKBH.SetFocus;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add(' select A.* from BS_GK A ');
// showmessage(Sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_HZ);
SInitCDSData(ADOQueryMain, CDS_HZ);
finally
ADOQueryMain.EnableControls;
TbFilter.Click;
end;
end;
procedure TfrmGKManageSel.MCNOPropertiesChange(Sender: TObject);
var
sql: string;
begin
if ADOQueryMain.Active then
begin
sql := SGetFilters(Panel1, 1, 2);
SDofilter(ADOQueryMain, sql);
SCreateCDS(ADOQueryMain, CDS_HZ);
SInitCDSData(ADOQueryMain, CDS_HZ);
end;
end;
procedure TfrmGKManageSel.FormDestroy(Sender: TObject);
begin
inherited;
frmGKManageSel := nil;
end;
procedure TfrmGKManageSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmGKManageSel.TBCloseClick(Sender: TObject);
begin
WriteCxGrid(Trim(Self.Caption), Tv2, '钢筘信息选择');
Close;
end;
procedure TfrmGKManageSel.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(Trim(Self.Caption), Tv2, '钢筘信息选择');
InitGrid();
end;
procedure TfrmGKManageSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmGKManageSel.TbSelectClick(Sender: TObject);
begin
inherited;
if CDS_HZ.Locate('ssel',True,[]) = False then
begin
Application.MessageBox('请选择数据！','提示信息',MB_OK);
exit;
end;
ModalResult := 1;
end;
procedure TfrmGKManageSel.Tv2DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmGKManageSel.cxTabControl1Change(Sender: TObject);
begin
InitGrid;
end;
procedure TfrmGKManageSel.N1Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
SelOKNo(CDS_HZ, True);
end;
procedure TfrmGKManageSel.N2Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
SelOKNo(CDS_HZ, False);
end;
procedure TfrmGKManageSel.CustomerChange(Sender: TObject);
begin
TbFilter.Click;
end;
procedure TfrmGKManageSel.FormCreate(Sender: TObject);
begin
inherited;
fmanage := Trim(DParameters1);
end;
end.

19
B04采购计划管理/U_YarnPurchasePlanPut.dfm
View File

@ -10,7 +10,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
ExplicitLeft = -23
ExplicitWidth = 1540
ExplicitHeight = 690
PixelsPerInch = 96
@ -92,15 +91,23 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
ImageIndex = 2
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
object ToolButton6: TToolButton
Left = 222
Top = 0
AutoSize = True
Caption = #38050#31576#26723#26696
ImageIndex = 2
OnClick = ToolButton6Click
end
object ToolButton5: TToolButton
Left = 325
Top = 0
Caption = #38144#21806#21512#21516
ImageIndex = 2
OnClick = ToolButton5Click
end
object ToolButton2: TToolButton
Left = 337
Left = 440
Top = 0
AutoSize = True
Caption = #21024#34892
@ -116,7 +123,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 2
ExplicitLeft = -232
ExplicitLeft = -6
ExplicitTop = 192
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@ -225,7 +232,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
end
object v1Column4: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -394,7 +401,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
ParentColor = False
ParentCtl3D = False
TabOrder = 3
ExplicitTop = 36
ExplicitTop = 24
object lbl5: TLabel
Left = 32
Top = 50

52
B04采购计划管理/U_YarnPurchasePlanPut.pas
View File

@ -111,6 +111,7 @@ type
Tv1Column6: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
ToolButton6: TToolButton;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -140,6 +141,7 @@ type
procedure Tv1Column12PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
private
FLeft, FTop: Integer;
fuserName, Fstatus: string;
@ -169,7 +171,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel, U_YarnInfoSel,
U_ProductInfoSel, U_SalesContract_SXSel;
U_ProductInfoSel, U_SalesContract_SXSel, U_GKManageSel;
{$R *.dfm}
@ -1041,6 +1043,54 @@ begin
SetXH();
end;
procedure TfrmYarnPurchasePlanPut.ToolButton6Click(Sender: TObject);
var
i: Integer;
begin
inherited;
i := Order_Sub.RecordCount + 1;
try
frmGKManageSel := TfrmGKManageSel.Create(Application);
with frmGKManageSel do
begin
// FSTKName := Self.FSTKName;
if ShowModal = 1 then
begin
with CDS_HZ do
begin
First;
while not Eof do
begin
if CDS_HZ.FieldByName('SSel').AsBoolean then
begin
with Self.Order_Sub do
begin
append;
FieldByName('SSEL').Value := False;
FieldByName('SerialNo').Value := i;
// FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
// FieldByName('StkCoNo').Value := '本厂仓库';
// FieldByName('StkCoName').Value := '本厂仓库';
// FieldByName('IOType').Value := '采购入库';
FieldByName('Y_Code').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKBH').value;
FieldByName('Y_Name').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKKH').value;
FieldByName('Y_Spec').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKLength').value;
FieldByName('C_Degree').Value := '钢筘';
end;
end;
next;
end;
end;
end;
end;
finally
frmGKManageSel.Free;
end;
end;
procedure TfrmYarnPurchasePlanPut.Tv1Column12PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try