2025-7-10
This commit is contained in:
parent
8235c35cae
commit
078a177f98
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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"/>
|
||||
|
|
|
|||
|
|
@ -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'
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
|
|
@ -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 = <>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -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>
|
||||
|
|
|
|||
|
|
@ -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>
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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,14 +90,16 @@ 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 ');
|
||||
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;
|
||||
|
|
@ -112,7 +107,7 @@ begin
|
|||
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);
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -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>
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
|
|
@ -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>
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
||||
|
|
|
|||
|
|
@ -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 = <>
|
||||
|
|
|
|||
|
|
@ -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
256
B03基础物料仓库/U_GKManageSel.dfm
Normal 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
176
B03基础物料仓库/U_GKManageSel.pas
Normal 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.
|
||||
|
||||
|
|
@ -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 := '物料';
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
|
|
@ -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}
|
||||
|
||||
|
|
|
|||
|
|
@ -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>
|
||||
|
|
|
|||
|
|
@ -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>
|
||||
|
|
|
|||
Binary file not shown.
272
B04采购计划管理/U_GKManageSel.dfm
Normal file
272
B04采购计划管理/U_GKManageSel.dfm
Normal 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
194
B04采购计划管理/U_GKManageSel.pas
Normal 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.
|
||||
|
||||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user