1234
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
9ae6e7e17d
commit
2e4858c0a3
|
|
@ -1,7 +1,7 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.938,=D:\Dp10Repo\项目代码\D10gmXinHua\D01针织生产计划\U_LCKInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||
|
|
@ -10,7 +10,7 @@
|
|||
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.898,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_LCKQuery.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.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.913,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_TradeInspSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj</Transaction>
|
||||
|
|
@ -27,11 +27,11 @@
|
|||
<Transaction>1899-12-30 00:00:00.000.383,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.914,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_testdll.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.089,=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet2.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.pas=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.pas=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas</Transaction>
|
||||
|
|
@ -40,17 +40,17 @@
|
|||
<Transaction>1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.dfm=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.904,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelInput.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.496,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.pas=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.904,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.pas=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.dfm=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.dfm</Transaction>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
|
|
|
|||
478
D01针织生产计划/U_KnitPlanImport.dfm
Normal file
478
D01针织生产计划/U_KnitPlanImport.dfm
Normal file
|
|
@ -0,0 +1,478 @@
|
|||
inherited frmknitplanImport: TfrmknitplanImport
|
||||
Left = 189
|
||||
Top = 138
|
||||
Caption = #26679#21697#23548#20837
|
||||
ClientHeight = 562
|
||||
ClientWidth = 1484
|
||||
Color = clWhite
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Height = -16
|
||||
Font.Name = #24494#36719#38597#40657
|
||||
Position = poMainFormCenter
|
||||
ExplicitWidth = 1500
|
||||
ExplicitHeight = 601
|
||||
PixelsPerInch = 107
|
||||
TextHeight = 21
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1484
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 99
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
DisabledImages = DataLink_KnitPlan.cxImageList_bar
|
||||
Images = DataLink_KnitPlan.cxImageList_bar
|
||||
List = True
|
||||
ParentColor = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 1
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 71
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36873#25321#25991#20214
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 174
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#38500
|
||||
ImageIndex = 14
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 245
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#25968#25454
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 348
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 451
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 7
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid [1]
|
||||
Left = 0
|
||||
Top = 30
|
||||
Width = 1484
|
||||
Height = 532
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
ExplicitTop = 36
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Position = spFooter
|
||||
Column = v1Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Position = spFooter
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Position = spFooter
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Position = spFooter
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Position = spFooter
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1PRTOrderQty
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column6
|
||||
end
|
||||
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 = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Header = DataLink_KnitPlan.Default
|
||||
object cxgrdbclmnTv1Column21: TcxGridDBColumn
|
||||
Tag = 4
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'Ssel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 50
|
||||
end
|
||||
object Tv1Column15: TcxGridDBColumn
|
||||
Caption = #35745#21010#31867#22411
|
||||
DataBinding.FieldName = 'OrdType'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 71
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #19979#21333#26085#26399
|
||||
DataBinding.FieldName = 'OrdDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_KnitPlan.Default
|
||||
Width = 71
|
||||
end
|
||||
object v1Column19: TcxGridDBColumn
|
||||
Caption = #20132#36135#26085#26399
|
||||
DataBinding.FieldName = 'DlyDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.SaveTime = False
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_KnitPlan.Default
|
||||
Width = 82
|
||||
end
|
||||
object v1OrderNo: TcxGridDBColumn
|
||||
Caption = #20844#21496#25260#22836
|
||||
DataBinding.FieldName = 'OurCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_KnitPlan.Default
|
||||
Width = 100
|
||||
end
|
||||
object v1Column31: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'CustName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 101
|
||||
end
|
||||
object Tv1Column16: TcxGridDBColumn
|
||||
Caption = #23458#25143#35746#21333#21495
|
||||
DataBinding.FieldName = 'khconno'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 83
|
||||
end
|
||||
object cxgrdbclmnTv1Column15: TcxGridDBColumn
|
||||
Caption = #19994#21153#21592
|
||||
DataBinding.FieldName = 'Saleser'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
end
|
||||
object cxgrdbclmnTv1Column16: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #20869#37096#22411#21495
|
||||
DataBinding.FieldName = 'C_I_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column21: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #20135#21697#32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_KnitPlan.Default
|
||||
Width = 92
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_KnitPlan.Default
|
||||
Width = 73
|
||||
end
|
||||
object v1PRTMF: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_KnitPlan.Default
|
||||
Width = 69
|
||||
end
|
||||
object Tv1Column7: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #38754#32433
|
||||
DataBinding.FieldName = 'C_Yarn'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column1: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #22841#23618
|
||||
DataBinding.FieldName = 'C_jiaceng'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 82
|
||||
end
|
||||
object Tv1Column6: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #24213#32433
|
||||
DataBinding.FieldName = 'C_DYARN'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column20: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #20027#35201#32433#32447
|
||||
DataBinding.FieldName = 'C_MainYarn'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 120
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #21518#22788#29702
|
||||
DataBinding.FieldName = 'C_Deal'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Styles.Header = DataLink_KnitPlan.Default
|
||||
Width = 67
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #24635#21305#25968
|
||||
DataBinding.FieldName = 'OrdPiece'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_KnitPlan.Default
|
||||
Width = 59
|
||||
end
|
||||
object v1PRTOrderQty: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #24635#25968#37327
|
||||
DataBinding.FieldName = 'OrdQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_KnitPlan.Default
|
||||
Width = 92
|
||||
end
|
||||
object Tv1Column5: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'OrdUnit'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column9: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #30382#37325
|
||||
DataBinding.FieldName = 'RuleBeforeTare'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 100
|
||||
end
|
||||
object Tv1Column10: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #21253#26631#31614#21517#31216
|
||||
DataBinding.FieldName = 'LabPackage'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1PRTKZ: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #29289#26009#21495
|
||||
DataBinding.FieldName = 'C_Material_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_KnitPlan.Default
|
||||
Width = 76
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #29289#26009#21517#31216
|
||||
DataBinding.FieldName = 'C_Material'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_KnitPlan.Default
|
||||
Width = 72
|
||||
end
|
||||
object cxgrdbclmnTv1Column17: TcxGridDBColumn
|
||||
Caption = #21097#20313#20132#26399
|
||||
DataBinding.FieldName = 'IFJQ'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
Width = 70
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_KnitPlan.ADOLink
|
||||
Left = 121
|
||||
Top = 161
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_KnitPlan.ADOLink
|
||||
Left = 249
|
||||
Top = 161
|
||||
end
|
||||
inherited ImageList_new32: TImageList
|
||||
Left = 528
|
||||
Top = 144
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_KnitPlan.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 853
|
||||
Top = 201
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_KnitPlan.ADOLink
|
||||
Parameters = <>
|
||||
Left = 941
|
||||
Top = 209
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_KnitPlan.ADOLink
|
||||
Parameters = <>
|
||||
Left = 741
|
||||
Top = 209
|
||||
end
|
||||
object GPM_1: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 648
|
||||
Top = 328
|
||||
end
|
||||
object DS_1: TDataSource
|
||||
DataSet = CDS_1
|
||||
Left = 795
|
||||
Top = 323
|
||||
end
|
||||
object CDS_1: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 720
|
||||
Top = 328
|
||||
end
|
||||
object cxStyleRepository1: TcxStyleRepository
|
||||
Left = 600
|
||||
Top = 200
|
||||
PixelsPerInch = 96
|
||||
object cxStyle1: TcxStyle
|
||||
AssignedValues = [svTextColor]
|
||||
TextColor = clRed
|
||||
end
|
||||
end
|
||||
object OpenDialog1: TOpenDialog
|
||||
Left = 226
|
||||
Top = 290
|
||||
end
|
||||
object CDS_LM: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 560
|
||||
Top = 329
|
||||
end
|
||||
end
|
||||
371
D01针织生产计划/U_KnitPlanImport.pas
Normal file
371
D01针织生产计划/U_KnitPlanImport.pas
Normal file
|
|
@ -0,0 +1,371 @@
|
|||
unit U_KnitPlanImport;
|
||||
|
||||
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, cxDropDownEdit, cxPC, U_BaseHelp, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, ComObj,
|
||||
U_BaseList, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations,
|
||||
dxSkinsDefaultPainters, dxSkinsCore;
|
||||
|
||||
type
|
||||
TfrmknitplanImport = class(TfrmBaseHelp)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
GPM_1: TcxGridPopupMenu;
|
||||
DS_1: TDataSource;
|
||||
CDS_1: TClientDataSet;
|
||||
cxStyleRepository1: TcxStyleRepository;
|
||||
cxStyle1: TcxStyle;
|
||||
OpenDialog1: TOpenDialog;
|
||||
ToolButton5: TToolButton;
|
||||
ToolButton1: TToolButton;
|
||||
ToolButton2: TToolButton;
|
||||
CDS_LM: TClientDataSet;
|
||||
ToolButton3: TToolButton;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
cxgrdbclmnTv1Column21: TcxGridDBColumn;
|
||||
v1OrderNo: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column16: TcxGridDBColumn;
|
||||
v1Column31: TcxGridDBColumn;
|
||||
cxgrdbclmnTv1Column15: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
v1Column19: TcxGridDBColumn;
|
||||
v1Column21: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
v1Column20: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
v1PRTMF: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
v1PRTKZ: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
v1Column7: TcxGridDBColumn;
|
||||
v1PRTOrderQty: TcxGridDBColumn;
|
||||
cxgrdbclmnTv1Column16: TcxGridDBColumn;
|
||||
cxgrdbclmnTv1Column17: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure ToolButton5Click(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
procedure InitGrid();
|
||||
public
|
||||
{ Public declarations }
|
||||
FCTID: string;
|
||||
end;
|
||||
|
||||
var
|
||||
frmknitplanImport: TfrmknitplanImport;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmknitplanImport.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' select * from knit_Plan_Main A inner join knit_Plan_Sub B on A.Mainid=B.MainId inner join Trade_Cloth_Inspect_Rule C on A.Mainid=C.RuleID where 2= 1 ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryMain, CDS_1);
|
||||
SInitCDSData(ADOQueryMain, CDS_1);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmknitplanImport.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
frmKnitPlanImport := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmknitplanImport.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
Action := cafree;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmknitplanImport.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmknitplanImport.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ReadCxGrid(self.Caption, Tv1, '样品管理');
|
||||
with CDS_LM do
|
||||
begin
|
||||
FieldDefs.Clear;
|
||||
FieldDefs.Add('LXH', ftInteger, 0);
|
||||
FieldDefs.Add('lCode', ftString, 40);
|
||||
FieldDefs.Add('LName', ftString, 40);
|
||||
close;
|
||||
CreateDataSet;
|
||||
end;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmknitplanImport.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmknitplanImport.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(self.Caption, Tv1, '样品管理');
|
||||
end;
|
||||
|
||||
procedure TfrmknitplanImport.ToolButton2Click(Sender: TObject);
|
||||
var
|
||||
maxno: string;
|
||||
begin
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
if Trim(CDS_1.FieldByName('mainid').AsString) = '' then
|
||||
begin
|
||||
if CDS_1.FieldByName('OrdType').AsString = '大货单' then
|
||||
begin
|
||||
if GetLSNo(ADOQueryCmd, maxno, 'DH', 'knit_Plan_Main', 4, 1) = False then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('生成流水号异常！', '提示', 0);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
if CDS_1.FieldByName('OrdType').AsString = '试样单' then
|
||||
begin
|
||||
if GetLSNo(ADOQueryCmd, maxno, 'SY', 'knit_Plan_Main', 4, 1) = False then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('生成流水号异常！', '提示', 0);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
if CDS_1.FieldByName('OrdType').AsString = '外发单' then
|
||||
begin
|
||||
if GetLSNo(ADOQueryCmd, maxno, 'KM', 'knit_Plan_Main', 4, 1) = False then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('生成流水号异常！', '提示', 0);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
end
|
||||
else
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
////////////////////////// 保存主表 //////////////////////////
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select * from knit_Plan_Main where MainId=''' + Trim(maxno) + '''');
|
||||
Open;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
|
||||
Append;
|
||||
|
||||
FieldByName('MainId').Value := Trim(maxno);
|
||||
FieldByName('orderno').Value := Trim(maxno);
|
||||
FieldByName('Filler').Value := Trim(DName);
|
||||
|
||||
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Plan_main', 0);
|
||||
Post;
|
||||
end;
|
||||
////////////////////////// 保存主表 //////////////////////////
|
||||
///
|
||||
////////////////////////// 保存子表 //////////////////////////
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select * from knit_Plan_Sub where ');
|
||||
sql.Add(' SubId=''' + Trim(maxno) + '''');
|
||||
Open;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
|
||||
Append;
|
||||
|
||||
FieldByName('MainId').Value := Trim(maxno);
|
||||
FieldByName('SubId').Value := Trim(maxno);
|
||||
|
||||
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Plan_sub', 1);
|
||||
Post;
|
||||
end;
|
||||
////////////////////////// 保存子表 //////////////////////////
|
||||
///
|
||||
////////////////////////// 保存标签表 //////////////////////////
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select * from Trade_Cloth_Inspect_Rule where ');
|
||||
sql.Add(' RuleID=''' + Trim(maxno) + '''');
|
||||
Open;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
|
||||
Append;
|
||||
FieldByName('Filler').Value := Trim(DName);
|
||||
|
||||
FieldByName('RuleID').Value := Trim(maxno);
|
||||
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Cloth_Inspect_Rule', 2);
|
||||
Post;
|
||||
end;
|
||||
////////////////////////// 保存标签表 //////////////////////////
|
||||
///
|
||||
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
Application.MessageBox('保存成功！', '提示', 0);
|
||||
tbclose.Click();
|
||||
except
|
||||
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('保存失败！', '提示', 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmknitplanImport.ToolButton3Click(Sender: TObject);
|
||||
begin
|
||||
CDS_1.Delete;
|
||||
end;
|
||||
|
||||
procedure TfrmknitplanImport.ToolButton5Click(Sender: TObject);
|
||||
var
|
||||
excelApp, WorkBook: Variant;
|
||||
i, j, k, LX, ExcelRowCount: integer;
|
||||
maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
|
||||
begin
|
||||
|
||||
try
|
||||
excelApp := CreateOleObject('Excel.Application');
|
||||
openDialog1.Filter := '*.CSV;*.xls';
|
||||
if opendialog1.Execute then
|
||||
begin
|
||||
WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName);
|
||||
end
|
||||
else
|
||||
exit;
|
||||
excelApp.Visible := false;
|
||||
ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
|
||||
except
|
||||
application.MessageBox('加载EXCEL错误！', '错误信息', MB_ICONERROR);
|
||||
exit;
|
||||
end;
|
||||
|
||||
CDS_LM.EmptyDataSet;
|
||||
|
||||
for j := 0 to Tv1.ColumnCount - 1 do
|
||||
begin
|
||||
with CDS_LM do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName);
|
||||
FieldByName('LName').Value := trim(Tv1.Columns[j].Caption);
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
try
|
||||
for i := 1 to 50 do
|
||||
begin
|
||||
if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then
|
||||
continue;
|
||||
if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then
|
||||
begin
|
||||
with CDS_LM do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('LXH').Value := i;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
except
|
||||
application.MessageBox('加载数组错误！', '错误信息', MB_ICONERROR);
|
||||
exit;
|
||||
end;
|
||||
|
||||
try
|
||||
for i := 2 to ExcelRowCount do
|
||||
begin
|
||||
with CDS_1 do
|
||||
begin
|
||||
Append;
|
||||
CDS_LM.First;
|
||||
while not CDS_LM.Eof do
|
||||
begin
|
||||
if CDS_LM.FieldByName('LXH').AsInteger > 0 then
|
||||
CDS_1.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value;
|
||||
CDS_LM.Next;
|
||||
end;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
WorkBook.Close;
|
||||
excelApp.Quit;
|
||||
excelApp := Unassigned;
|
||||
WorkBook := Unassigned;
|
||||
except
|
||||
WorkBook.Close;
|
||||
excelApp.Quit;
|
||||
excelApp := Unassigned;
|
||||
WorkBook := Unassigned;
|
||||
application.MessageBox('写入数据异常，导入中断！', '错误信息', MB_ICONERROR);
|
||||
exit;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -2,7 +2,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
|
|||
Left = 212
|
||||
Top = 14
|
||||
Caption = #36710#38388#29983#20135#35745#21010#21333#24405#20837
|
||||
ClientHeight = 581
|
||||
ClientHeight = 634
|
||||
ClientWidth = 1363
|
||||
Color = clWhite
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -10,7 +10,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
|
|||
Font.Name = #23435#20307
|
||||
Position = poScreenCenter
|
||||
ExplicitWidth = 1379
|
||||
ExplicitHeight = 620
|
||||
ExplicitHeight = 673
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar [0]
|
||||
|
|
@ -84,6 +84,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
|
|||
ParentCtl3D = False
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ExplicitTop = 36
|
||||
object Label1: TLabel
|
||||
Left = 11
|
||||
Top = 102
|
||||
|
|
@ -152,7 +153,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
|
|||
object Label22: TLabel
|
||||
Left = 851
|
||||
Top = 152
|
||||
Width = 102
|
||||
Width = 110
|
||||
Height = 21
|
||||
Caption = #25104#21697#20811#37325#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -362,7 +363,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
|
|||
object Label6: TLabel
|
||||
Left = 851
|
||||
Top = 240
|
||||
Width = 114
|
||||
Width = 110
|
||||
Height = 21
|
||||
Caption = #33853#24067#36716#25968#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -588,7 +589,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
|
|||
BevelInner = bvNone
|
||||
Date = 40916.000000000000000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 0.670856296288548100
|
||||
Time = 0.670856296288548000
|
||||
ShowCheckbox = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlack
|
||||
|
|
@ -606,7 +607,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
|
|||
BevelInner = bvNone
|
||||
Date = 40916.000000000000000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 0.670856296288548100
|
||||
Time = 0.670856296288548000
|
||||
ShowCheckbox = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlack
|
||||
|
|
@ -1217,8 +1218,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
|
|||
Align = alClient
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
ExplicitTop = 576
|
||||
ExplicitHeight = 82
|
||||
object cxPageControl1: TcxPageControl
|
||||
Left = 1
|
||||
Top = 1
|
||||
|
|
@ -1238,7 +1237,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
|
|||
Properties.ActivePage = cxTabSheet1
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 6
|
||||
ExplicitHeight = 80
|
||||
ClientRectBottom = 3
|
||||
ClientRectRight = 1361
|
||||
ClientRectTop = 3
|
||||
|
|
@ -1247,8 +1245,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
|
|||
Color = clWhite
|
||||
ImageIndex = 0
|
||||
ParentColor = False
|
||||
ExplicitTop = 32
|
||||
ExplicitHeight = 48
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 38
|
||||
|
|
@ -1262,7 +1258,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
|
|||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 10
|
||||
object Tv2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -1503,8 +1498,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
|
|||
object cxTabSheet2: TcxTabSheet
|
||||
Caption = #25490#38024#19977#35282
|
||||
ImageIndex = 1
|
||||
ExplicitTop = 32
|
||||
ExplicitHeight = 48
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 183
|
||||
|
|
@ -3954,7 +3947,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
|
|||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_KnitPlan.ADOLink
|
||||
Left = 732
|
||||
Left = 733
|
||||
Top = 552
|
||||
end
|
||||
inherited ImageList_new32: TImageList
|
||||
|
|
|
|||
|
|
@ -72,16 +72,24 @@ inherited frmKnitPlanList: TfrmKnitPlanList
|
|||
ImageIndex = 3
|
||||
OnClick = TBEditClick
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
object ToolButton11: TToolButton
|
||||
Left = 355
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20837
|
||||
ImageIndex = 22
|
||||
OnClick = ToolButton11Click
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 426
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#35745#21010#21333
|
||||
ImageIndex = 21
|
||||
OnClick = ToolButton8Click
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 462
|
||||
Left = 533
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#35745#21010#21333
|
||||
|
|
@ -90,7 +98,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
|
|||
OnClick = TBPrintClick
|
||||
end
|
||||
object DYPrint: TToolButton
|
||||
Left = 569
|
||||
Left = 640
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#25171#26679#21333
|
||||
|
|
@ -98,7 +106,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
|
|||
OnClick = DYPrintClick
|
||||
end
|
||||
object TBView: TToolButton
|
||||
Left = 676
|
||||
Left = 747
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26597#30475
|
||||
|
|
@ -106,7 +114,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
|
|||
OnClick = TBViewClick
|
||||
end
|
||||
object TBDel: TToolButton
|
||||
Left = 747
|
||||
Left = 818
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#38500
|
||||
|
|
@ -114,7 +122,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
|
|||
OnClick = TBDelClick
|
||||
end
|
||||
object TBSCAP: TToolButton
|
||||
Left = 818
|
||||
Left = 889
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #29983#20135#23433#25490
|
||||
|
|
@ -122,7 +130,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
|
|||
OnClick = TBSCAPClick
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 913
|
||||
Left = 984
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21367#35774#32622
|
||||
|
|
@ -130,7 +138,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
|
|||
OnClick = ToolButton2Click
|
||||
end
|
||||
object btn1: TToolButton
|
||||
Left = 1008
|
||||
Left = 1079
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#27969#31243#21345
|
||||
|
|
@ -413,6 +421,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
|
|||
Height = 374
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 165
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
|
|||
|
|
@ -158,6 +158,7 @@ type
|
|||
cxgrdbclmnTv1Column20: TcxGridDBColumn;
|
||||
cxgrdbclmnTv1Column21: TcxGridDBColumn;
|
||||
DYPrint: TToolButton;
|
||||
ToolButton11: TToolButton;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
|
|
@ -202,6 +203,7 @@ type
|
|||
procedure ToolButton10Click(Sender: TObject);
|
||||
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure DYPrintClick(Sender: TObject);
|
||||
procedure ToolButton11Click(Sender: TObject);
|
||||
private
|
||||
FInt, PFInt: Integer;
|
||||
procedure InitGrid();
|
||||
|
|
@ -223,7 +225,7 @@ implementation
|
|||
|
||||
uses
|
||||
U_DataLink, U_KnitPlanInPut, U_RTFun, U_ZDYHelp, U_LabelPrint, U_KnitCardInPut,
|
||||
U_TradeInspSet, U_LCKInput;
|
||||
U_TradeInspSet, U_LCKInput, U_KnitPlanImport;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
|
@ -903,6 +905,23 @@ begin
|
|||
|
||||
end;
|
||||
|
||||
procedure TfrmKnitPlanList.ToolButton11Click(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
frmknitplanImport := TfrmknitplanImport.Create(Application);
|
||||
with frmknitplanImport do
|
||||
begin
|
||||
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
Self.InitGrid();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmknitplanImport.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmKnitPlanList.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid('坯布生产计划单1', Tv1, '坯布生产管理');
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user