Group_02/D10szXingjie
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

111

Browse Source
This commit is contained in:
DESKTOP-L5CON59\Think 2026-07-11 09:17:47 +08:00
parent 058f9805c4
commit 51c03c7c94
145 changed files with 18092 additions and 1746 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
A00通用窗体/U_ClothInfoSel.dfm
View File

@ -81,6 +81,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
OptionsView.CellAutoHeight = True OptionsView.CellAutoHeight = True
OptionsView.Headers = False OptionsView.Headers = False
RootValue = -1 RootValue = -1
ScrollbarAnnotations.CustomAnnotations = <>
TabOrder = 1 TabOrder = 1
OnDblClick = cxDBTreeList1DblClick OnDblClick = cxDBTreeList1DblClick
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
@ -225,6 +226,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -238,6 +240,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
object v1SSel: TcxGridDBColumn object v1SSel: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 41 Width = 41
@ -245,6 +248,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #31867#21035 Caption = #31867#21035
DataBinding.FieldName = 'CTName' DataBinding.FieldName = 'CTName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -252,6 +256,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
object v1CYNo: TcxGridDBColumn object v1CYNo: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 112 Width = 112
@ -259,12 +264,14 @@ inherited frmClothInfoSel: TfrmClothInfoSel
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 116 Width = 116
end end
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #33521#25991#21697#21517 Caption = #33521#25991#21697#21517
DataBinding.FieldName = 'C_EName' DataBinding.FieldName = 'C_EName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 92 Width = 92
@ -272,6 +279,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -279,6 +287,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 81 Width = 81
@ -286,6 +295,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #22383#24067#32534#21495 Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'C_FromCode' DataBinding.FieldName = 'C_FromCode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 85 Width = 85
@ -293,6 +303,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #22383#24067#21517#31216 Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'C_FromName' DataBinding.FieldName = 'C_FromName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 81 Width = 81
@ -300,6 +311,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'C_Composition' DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -307,6 +319,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 58 Width = 58
end end

2
A00通用窗体/U_ClothInfoSel.pas
View File

@ -12,7 +12,7 @@ uses
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxTL, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxTL,
cxMaskEdit, cxTLdxBarBuiltInMenu, cxCheckBox, cxInplaceContainer, cxDBTL, cxMaskEdit, cxTLdxBarBuiltInMenu, cxCheckBox, cxInplaceContainer, cxDBTL,
cxTLData, math; cxTLData, math, dxScrollbarAnnotations;
type type
TfrmClothInfoSel = class(TfrmBaseHelp) TfrmClothInfoSel = class(TfrmBaseHelp)

4
A00通用窗体/U_CompanySel.dfm
View File

@ -24,6 +24,7 @@ inherited frmCompanySel: TfrmCompanySel
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
OnDblClick = TV1DblClick OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <> DataController.Summary.FooterSummaryItems = <>
@ -38,6 +39,7 @@ inherited frmCompanySel: TfrmCompanySel
object TV1Column1: TcxGridDBColumn object TV1Column1: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'CoCode' DataBinding.FieldName = 'CoCode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 151 Width = 151
@ -45,6 +47,7 @@ inherited frmCompanySel: TfrmCompanySel
object TV1Column2: TcxGridDBColumn object TV1Column2: TcxGridDBColumn
Caption = #21517#31216 Caption = #21517#31216
DataBinding.FieldName = 'CoName' DataBinding.FieldName = 'CoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 253 Width = 253
@ -52,6 +55,7 @@ inherited frmCompanySel: TfrmCompanySel
object TV1Column3: TcxGridDBColumn object TV1Column3: TcxGridDBColumn
Caption = #31616#31216 Caption = #31616#31216
DataBinding.FieldName = 'CoAbbrName' DataBinding.FieldName = 'CoAbbrName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 159 Width = 159
end end

5
A00通用窗体/U_CompanySel.pas
View File

@ -10,7 +10,8 @@ uses
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput; dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput,
dxScrollbarAnnotations;
type type
TfrmCompanySel = class(TfrmBaseHelp) TfrmCompanySel = class(TfrmBaseHelp)
@ -63,7 +64,7 @@ type
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
public public
FCoType, FAuthority: string; FCoType, FAuthority,FLX: string;
{ Public declarations } { Public declarations }
end; end;

11
A00通用窗体/U_KnitClothInfoSel.dfm
View File

@ -81,6 +81,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
OptionsView.CellAutoHeight = True OptionsView.CellAutoHeight = True
OptionsView.Headers = False OptionsView.Headers = False
RootValue = -1 RootValue = -1
ScrollbarAnnotations.CustomAnnotations = <>
TabOrder = 1 TabOrder = 1
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'CTName' DataBinding.FieldName = 'CTName'
@ -224,6 +225,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -237,6 +239,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
object v1SSel: TcxGridDBColumn object v1SSel: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 41 Width = 41
@ -244,6 +247,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #31867#21035 Caption = #31867#21035
DataBinding.FieldName = 'CTName' DataBinding.FieldName = 'CTName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -251,6 +255,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
object v1CYNo: TcxGridDBColumn object v1CYNo: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 112 Width = 112
@ -258,12 +263,14 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 116 Width = 116
end end
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #33521#25991#21697#21517 Caption = #33521#25991#21697#21517
DataBinding.FieldName = 'C_EName' DataBinding.FieldName = 'C_EName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 92 Width = 92
@ -271,6 +278,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -278,6 +286,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 81 Width = 81
@ -285,6 +294,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'C_Composition' DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -292,6 +302,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 58 Width = 58
end end

4
A00通用窗体/U_KnitClothInfoSel.pas
View File

@ -12,7 +12,7 @@ uses
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxTL, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxTL,
cxMaskEdit, cxTLdxBarBuiltInMenu, cxCheckBox, cxInplaceContainer, cxDBTL, cxMaskEdit, cxTLdxBarBuiltInMenu, cxCheckBox, cxInplaceContainer, cxDBTL,
cxTLData, math; cxTLData, math, dxScrollbarAnnotations;
type type
TfrmKnitClothInfoSel = class(TfrmBaseHelp) TfrmKnitClothInfoSel = class(TfrmBaseHelp)
@ -117,7 +117,7 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
SQL.Add('select * from BS_Cloth_Type where CTType=''ŐëÖŻ'' '); SQL.Add('select * from BS_Cloth_Type where CTType=''ËóÖ¯'' ');
Open; Open;
end; end;

7
A00通用窗体/U_LabelMapSet.dfm
View File

@ -95,6 +95,7 @@ object frmLabelMapSet: TfrmLabelMapSet
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -125,6 +126,7 @@ object frmLabelMapSet: TfrmLabelMapSet
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Caption = #31867#22411 Caption = #31867#22411
DataBinding.FieldName = 'LMType' DataBinding.FieldName = 'LMType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -134,6 +136,7 @@ object frmLabelMapSet: TfrmLabelMapSet
object v2Column12: TcxGridDBColumn object v2Column12: TcxGridDBColumn
Caption = #25253#34920#21517#31216 Caption = #25253#34920#21517#31216
DataBinding.FieldName = 'LMName' DataBinding.FieldName = 'LMName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -142,6 +145,7 @@ object frmLabelMapSet: TfrmLabelMapSet
object v2Column8: TcxGridDBColumn object v2Column8: TcxGridDBColumn
Caption = #35843#29992#23384#20648'1' Caption = #35843#29992#23384#20648'1'
DataBinding.FieldName = 'LMSql1' DataBinding.FieldName = 'LMSql1'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -150,6 +154,7 @@ object frmLabelMapSet: TfrmLabelMapSet
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #35843#29992#23384#20648'2' Caption = #35843#29992#23384#20648'2'
DataBinding.FieldName = 'LMSql2' DataBinding.FieldName = 'LMSql2'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -158,6 +163,7 @@ object frmLabelMapSet: TfrmLabelMapSet
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #35843#29992#23384#20648'3' Caption = #35843#29992#23384#20648'3'
DataBinding.FieldName = 'LMSql3' DataBinding.FieldName = 'LMSql3'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -222,6 +228,7 @@ object frmLabelMapSet: TfrmLabelMapSet
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2 DataController.DataSource = DS_2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>

2
A00通用窗体/U_LabelMapSet.pas
View File

@ -15,7 +15,7 @@ uses
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls, cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, System.ImageList, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, System.ImageList,
Vcl.ImgList, U_BaseHelp; Vcl.ImgList, U_BaseHelp, dxScrollbarAnnotations;
type type
TfrmLabelMapSet = class(Tform) TfrmLabelMapSet = class(Tform)

18
A00通用窗体/U_LabelPrint.dfm
View File

@ -2,23 +2,23 @@ inherited frmLabelPrint: TfrmLabelPrint
Left = 372 Left = 372
Top = 106 Top = 106
Caption = #25253#34920#25171#21360 Caption = #25253#34920#25171#21360
ClientHeight = 189 ClientHeight = 227
ClientWidth = 291 ClientWidth = 333
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 307 ExplicitWidth = 349
ExplicitHeight = 228 ExplicitHeight = 266
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 17
object Panel1: TPanel [0] object Panel1: TPanel [0]
Left = 0 Left = 0
Top = 0 Top = 0
Width = 291 Width = 333
Height = 189 Height = 227
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -108,7 +108,7 @@ inherited frmLabelPrint: TfrmLabelPrint
end end
object cbbLab: TcxMRUEdit object cbbLab: TcxMRUEdit
Left = 25 Left = 25
Top = 24 Top = 28
ParentFont = False ParentFont = False
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True Properties.ImmediatePost = True

3
A00通用窗体/U_LabelPrint.pas
View File

@ -107,6 +107,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec ' + trim(CDS_Label.fieldbyname('LMSql1').AsString) + ' @Filtration=' + quotedstr(Trim(FFiltration1))); sql.add('exec ' + trim(CDS_Label.fieldbyname('LMSql1').AsString) + ' @Filtration=' + quotedstr(Trim(FFiltration1)));
//ShowMessage(SQL.TEXT);
Open; Open;
end; end;
end; end;
@ -216,7 +217,7 @@ end;
procedure TfrmLabelPrint.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmLabelPrint.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
inherited; inherited;
Action := cahide; Action := cafree;
end; end;
procedure TfrmLabelPrint.InitGrid(); procedure TfrmLabelPrint.InitGrid();

108
A00通用窗体/U_SalesContractSel.dfm
View File

@ -36,16 +36,24 @@ inherited frmSalesContractSel: TfrmSalesContractSel
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
object ToolButton1: TToolButton object ToolButton2: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36873#25321 Caption = #36873#25321
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBSave: TToolButton object TBSave: TToolButton
Left = 71 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -53,7 +61,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
OnClick = TBSaveClick OnClick = TBSaveClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 166 Left = 237
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -65,36 +73,50 @@ inherited frmSalesContractSel: TfrmSalesContractSel
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1564 Width = 1564
Height = 44 Height = 75
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
object Label1: TLabel object Label1: TLabel
Left = 18 Left = 284
Top = 15 Top = 10
Width = 36 Width = 36
Height = 12 Height = 12
Caption = #21512#21516#21495 Caption = #21512#21516#21495
end end
object Label2: TLabel object Label2: TLabel
Left = 450 Left = 554
Top = 15 Top = 45
Width = 48 Width = 48
Height = 12 Height = 12
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
end end
object Label3: TLabel object Label3: TLabel
Left = 242 Left = 296
Top = 15 Top = 45
Width = 24 Width = 24
Height = 12 Height = 12
Caption = #23458#25143 Caption = #23458#25143
end end
object Label8: TLabel
Left = 28
Top = 11
Width = 48
Height = 12
Caption = #26597#35810#26102#38388
end
object Label10: TLabel
Left = 64
Top = 45
Width = 12
Height = 12
Caption = #33267
end
object ConNo: TEdit object ConNo: TEdit
Tag = 2 Tag = 2
Left = 60 Left = 344
Top = 11 Top = 6
Width = 169 Width = 169
Height = 20 Height = 20
TabOrder = 0 TabOrder = 0
@ -102,8 +124,8 @@ inherited frmSalesContractSel: TfrmSalesContractSel
end end
object C_Name: TEdit object C_Name: TEdit
Tag = 2 Tag = 2
Left = 500 Left = 622
Top = 11 Top = 41
Width = 169 Width = 169
Height = 20 Height = 20
TabOrder = 1 TabOrder = 1
@ -111,25 +133,46 @@ inherited frmSalesContractSel: TfrmSalesContractSel
end end
object BuyName: TEdit object BuyName: TEdit
Tag = 2 Tag = 2
Left = 272 Left = 344
Top = 11 Top = 41
Width = 169 Width = 169
Height = 20 Height = 20
TabOrder = 2 TabOrder = 2
OnChange = ConNoChange OnChange = ConNoChange
end end
object BegDate: TDateTimePicker
Left = 91
Top = 7
Width = 136
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 3
end
object EndDate: TDateTimePicker
Left = 91
Top = 41
Width = 136
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 4
end
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 82 Top = 113
Width = 1564 Width = 1564
Height = 476 Height = 445
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 82
ExplicitHeight = 476
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -171,6 +214,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
object TV1Column7: TcxGridDBColumn object TV1Column7: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -179,43 +223,54 @@ inherited frmSalesContractSel: TfrmSalesContractSel
object TV1Column1: TcxGridDBColumn object TV1Column1: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 100
end end
object TV1Column6: TcxGridDBColumn object TV1Column6: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 88 Width = 100
end end
object TV1Column5: TcxGridDBColumn object TV1Column5: TcxGridDBColumn
Caption = #32463#33829#21333#20301 Caption = #32463#33829#21333#20301
DataBinding.FieldName = 'SellName' DataBinding.FieldName = 'SellName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 100
end end
object TV1Column3: TcxGridDBColumn object TV1Column3: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'BuyName' DataBinding.FieldName = 'BuyName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66
end end
object TV1Column4: TcxGridDBColumn object TV1Column4: TcxGridDBColumn
Caption = #20013#38388#21830 Caption = #20013#38388#21830
DataBinding.FieldName = 'MiddleName' DataBinding.FieldName = 'MiddleName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66
end end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'C_Spec' DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 60 Width = 66
end end
object TV1Column2: TcxGridDBColumn object TV1Column2: TcxGridDBColumn
Caption = #20132#36135#26085#26399 Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate' DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 72 Width = 72
@ -223,6 +278,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
object VC_SCSCode: TcxGridDBColumn object VC_SCSCode: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -237,6 +293,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
object cxGridDBColumn2: TcxGridDBColumn object cxGridDBColumn2: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -244,6 +301,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
object cxGridDBColumn3: TcxGridDBColumn object cxGridDBColumn3: TcxGridDBColumn
Caption = #20135#21697#33521#25991#21517 Caption = #20135#21697#33521#25991#21517
DataBinding.FieldName = 'C_EName' DataBinding.FieldName = 'C_EName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -258,6 +316,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'C_Composition' DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -265,6 +324,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
object cxGridDBColumn5: TcxGridDBColumn object cxGridDBColumn5: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -272,6 +332,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
object cxGridDBColumn6: TcxGridDBColumn object cxGridDBColumn6: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 57 Width = 57
@ -279,6 +340,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
object cxGridDBColumn7: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
Caption = #27454#21495 Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo' DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
@ -286,6 +348,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
object cxGridDBColumn8: TcxGridDBColumn object cxGridDBColumn8: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -300,6 +363,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -313,6 +377,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
object v1Column7: TcxGridDBColumn object v1Column7: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -326,6 +391,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
object v1PRTOrderQty: TcxGridDBColumn object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'ConQty' DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -334,6 +400,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
object v1OrderUnit: TcxGridDBColumn object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'ConUnit' DataBinding.FieldName = 'ConUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -347,6 +414,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'ConSNote' DataBinding.FieldName = 'ConSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70

20
A00通用窗体/U_SalesContractSel.pas
View File

@ -11,7 +11,7 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit,
cxDropDownEdit, cxCheckBox, Vcl.Menus; cxDropDownEdit, cxCheckBox, Vcl.Menus, dxScrollbarAnnotations;
type type
TfrmSalesContractSel = class(TfrmBaseHelp) TfrmSalesContractSel = class(TfrmBaseHelp)
@ -78,6 +78,11 @@ type
C_Name: TEdit; C_Name: TEdit;
Label3: TLabel; Label3: TLabel;
BuyName: TEdit; BuyName: TEdit;
Label8: TLabel;
Label10: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
ToolButton2: TToolButton;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -89,6 +94,7 @@ type
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure ConNoChange(Sender: TObject); procedure ConNoChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
@ -122,6 +128,10 @@ begin
except except
application.MessageBox('网络连接失败！', '提示信息'); application.MessageBox('网络连接失败！', '提示信息');
end; end;
begin
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 5;
end;
end; end;
procedure TfrmSalesContractSel.ConNoChange(Sender: TObject); procedure TfrmSalesContractSel.ConNoChange(Sender: TObject);
@ -152,6 +162,8 @@ begin
sql.Clear; sql.Clear;
sql.Add('select A.*,B.* from BS_Contract_Main A inner join BS_Contract_Sub B on A.ConMId=B.ConMId '); sql.Add('select A.*,B.* from BS_Contract_Main A inner join BS_Contract_Sub B on A.ConMId=B.ConMId ');
sql.Add(' and isnull(A.status,''0'')=''9'''); sql.Add(' and isnull(A.status,''0'')=''9''');
sql.add(' and A.Filltime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.Filltime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
Open; Open;
end; end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
@ -201,6 +213,12 @@ begin
ModalResult := 1; ModalResult := 1;
end; end;
procedure TfrmSalesContractSel.ToolButton2Click(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmSalesContractSel.TV1DblClick(Sender: TObject); procedure TfrmSalesContractSel.TV1DblClick(Sender: TObject);
begin begin
ModalResult := 1; ModalResult := 1;

14
A00通用窗体/U_TatClothInfoSel.dfm
View File

@ -81,6 +81,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
OptionsView.CellAutoHeight = True OptionsView.CellAutoHeight = True
OptionsView.Headers = False OptionsView.Headers = False
RootValue = -1 RootValue = -1
ScrollbarAnnotations.CustomAnnotations = <>
TabOrder = 1 TabOrder = 1
OnDblClick = cxDBTreeList1DblClick OnDblClick = cxDBTreeList1DblClick
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
@ -115,6 +116,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -128,6 +130,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object v1SSel: TcxGridDBColumn object v1SSel: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 39 Width = 39
@ -135,6 +138,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #31867#21035 Caption = #31867#21035
DataBinding.FieldName = 'CTName' DataBinding.FieldName = 'CTName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -142,6 +146,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object v1CYNo: TcxGridDBColumn object v1CYNo: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 92 Width = 92
@ -149,6 +154,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 96 Width = 96
@ -156,6 +162,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -163,6 +170,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 81 Width = 81
@ -170,6 +178,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #32428#23494 Caption = #32428#23494
DataBinding.FieldName = 'C_FinishLatitudeDensity' DataBinding.FieldName = 'C_FinishLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -177,6 +186,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #32463#23494 Caption = #32463#23494
DataBinding.FieldName = 'C_FinishLongitudeDensity' DataBinding.FieldName = 'C_FinishLongitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -184,6 +194,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #32428#32433#35268#26684 Caption = #32428#32433#35268#26684
DataBinding.FieldName = 'C_LatitudeSpec' DataBinding.FieldName = 'C_LatitudeSpec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 58 Width = 58
@ -191,6 +202,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #32463#32433#35268#26684 Caption = #32463#32433#35268#26684
DataBinding.FieldName = 'C_LongitudeSpec' DataBinding.FieldName = 'C_LongitudeSpec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -198,6 +210,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #31576#21495 Caption = #31576#21495
DataBinding.FieldName = 'C_ReedNo' DataBinding.FieldName = 'C_ReedNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -205,6 +218,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #22836#32441 Caption = #22836#32441
DataBinding.FieldName = 'C_EphalicStria' DataBinding.FieldName = 'C_EphalicStria'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70

2
A00通用窗体/U_TatClothInfoSel.pas
View File

@ -12,7 +12,7 @@ uses
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxTL, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxTL,
cxMaskEdit, cxTLdxBarBuiltInMenu, cxCheckBox, cxInplaceContainer, cxDBTL, cxMaskEdit, cxTLdxBarBuiltInMenu, cxCheckBox, cxInplaceContainer, cxDBTL,
cxTLData, math; cxTLData, math, dxScrollbarAnnotations;
type type
TfrmTatClothInfoSel = class(TfrmBaseHelp) TfrmTatClothInfoSel = class(TfrmBaseHelp)

4
A01基础公司管理/Company.dpr
View File

@ -31,7 +31,9 @@ uses
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint}, U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_DataLink in 'U_DataLink.pas' {DataLink_Company: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_Company: TDataModule},
U_UserSel in '..\A00通用窗体\U_UserSel.pas' {frmUserSel}, U_UserSel in '..\A00通用窗体\U_UserSel.pas' {frmUserSel},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas';
{$R *.res} {$R *.res}

2
A01基础公司管理/Company.dproj
View File

@ -200,6 +200,8 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/> <DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

42
A01基础公司管理/Company.dproj.local
View File

@ -1,28 +1,30 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.069,=D:\Dp10RepoV10\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.368,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas=D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.dfm=D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.393,=D:\Dp10RepoV10\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.dfm=D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.218,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas</Transaction>
<Transaction>2025-05-28 14:57:52.218,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas=D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.368,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -53,7 +55,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10szXingJie"/> <File Path="..\..\D10szXingjie"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
@ -67,7 +69,7 @@
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/> <File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="..\A00通用窗体\U_UserSel.pas"/> <File Path="..\A00通用窗体\U_UserSel.pas"/>
<File Path="..\A00通用窗体\U_UserSel.dfm"/> <File Path="..\A00通用窗体\U_UserSel.dfm"/>
<File Path="D:\Dp10Repo"/> <File Path="D:\Dp10RepoV10"/>
<File Path="..\..\..\public10"/> <File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/> <File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/> <File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
@ -79,6 +81,8 @@
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/> <File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/> <File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/> <File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<File Path="..\..\..\public10\ThreeFun"/> <File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Fun"/> <File Path="..\..\..\public10\ThreeFun\Fun"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/> <File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>

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

Binary file not shown.

2
A01基础公司管理/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXingJie\A01基础公司管理\Company.dproj"/> <Projects ActiveProject="D:\Dp10RepoV10\项目代码\D10szXingjie\A01基础公司管理\testDll.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

19
A01基础公司管理/U_Customer.dfm
View File

@ -10,7 +10,7 @@ inherited frmCustomer: TfrmCustomer
ExplicitWidth = 1382 ExplicitWidth = 1382
ExplicitHeight = 650 ExplicitHeight = 650
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 17
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -28,7 +28,7 @@ inherited frmCustomer: TfrmCustomer
List = True List = True
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 5
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -152,33 +152,33 @@ inherited frmCustomer: TfrmCustomer
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 6
object Label3: TLabel object Label3: TLabel
Left = 190 Left = 190
Top = 13 Top = 13
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #23458#25143#20840#31216 Caption = #23458#25143#20840#31216
end end
object Label1: TLabel object Label1: TLabel
Left = 22 Left = 22
Top = 13 Top = 13
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #23458#25143#32534#21495 Caption = #23458#25143#32534#21495
end end
object Label2: TLabel object Label2: TLabel
Left = 350 Left = 350
Top = 13 Top = 13
Width = 36 Width = 36
Height = 12 Height = 17
Caption = #19994#21153#21592 Caption = #19994#21153#21592
end end
object Label4: TLabel object Label4: TLabel
Left = 502 Left = 502
Top = 13 Top = 13
Width = 24 Width = 24
Height = 12 Height = 17
Caption = #22269#23478 Caption = #22269#23478
end end
object CoName: TEdit object CoName: TEdit
@ -501,9 +501,8 @@ inherited frmCustomer: TfrmCustomer
#24050#23457#26680 #24050#23457#26680
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectRight = 0
ClientRectRight = 1366 ClientRectTop = 0
ClientRectTop = 19
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink

2
A01基础公司管理/U_Customer.pas
View File

@ -17,7 +17,7 @@ uses
dxBarBuiltInMenu, cxPC, FireDAC.Stan.Intf, FireDAC.Stan.Option, dxBarBuiltInMenu, cxPC, FireDAC.Stan.Intf, FireDAC.Stan.Option,
FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet,
FireDAC.Comp.Client, dxScrollbarAnnotations; FireDAC.Comp.Client, dxScrollbarAnnotations, cxContainer, cxProgressBar;
type type
TfrmCustomer = class(TfrmBaseList) TfrmCustomer = class(TfrmBaseList)

131
A01基础公司管理/U_Factory.dfm
View File

@ -10,7 +10,7 @@ inherited frmFactory: TfrmFactory
ExplicitWidth = 1382 ExplicitWidth = 1382
ExplicitHeight = 840 ExplicitHeight = 840
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 17
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -27,7 +27,9 @@ inherited frmFactory: TfrmFactory
List = True List = True
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 5
ExplicitLeft = -8
ExplicitTop = 5
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -130,77 +132,77 @@ inherited frmFactory: TfrmFactory
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1366 Width = 1366
Height = 39 Height = 55
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 6
object Label3: TLabel object Label3: TLabel
Left = 202 Left = 272
Top = 13 Top = 16
Width = 60 Width = 60
Height = 12 Height = 17
Caption = #20379#24212#21830#21517#31216 Caption = #20379#24212#21830#21517#31216
end end
object Label1: TLabel object Label1: TLabel
Left = 22 Left = 27
Top = 13 Top = 16
Width = 60 Width = 60
Height = 12 Height = 17
Caption = #20379#24212#21830#32534#21495 Caption = #20379#24212#21830#32534#21495
end end
object Label4: TLabel object Label4: TLabel
Left = 383 Left = 527
Top = 13 Top = 16
Width = 60 Width = 60
Height = 12 Height = 17
Caption = #20379#24212#21830#31616#31216 Caption = #20379#24212#21830#31616#31216
end end
object Label5: TLabel object Label5: TLabel
Left = 565 Left = 753
Top = 13 Top = 16
Width = 60 Width = 60
Height = 12 Height = 17
Caption = #20379#24212#21830#31867#22411 Caption = #20379#24212#21830#31867#22411
end end
object CoName: TEdit object CoName: TEdit
Tag = 2 Tag = 2
Left = 266 Left = 373
Top = 9 Top = 6
Width = 89 Width = 89
Height = 20 Height = 25
TabOrder = 1 TabOrder = 1
OnChange = CoCodeChange OnChange = CoCodeChange
OnKeyPress = CoCodeKeyPress OnKeyPress = CoCodeKeyPress
end end
object CoCode: TEdit object CoCode: TEdit
Tag = 2 Tag = 2
Left = 85 Left = 124
Top = 9 Top = 11
Width = 89 Width = 89
Height = 20 Height = 25
TabOrder = 0 TabOrder = 0
OnChange = CoCodeChange OnChange = CoCodeChange
OnKeyPress = CoCodeKeyPress OnKeyPress = CoCodeKeyPress
end end
object CoAbbrName: TEdit object CoAbbrName: TEdit
Tag = 2 Tag = 2
Left = 447 Left = 614
Top = 9 Top = 11
Width = 89 Width = 89
Height = 20 Height = 25
TabOrder = 2 TabOrder = 2
OnChange = CoCodeChange OnChange = CoCodeChange
OnKeyPress = CoCodeKeyPress OnKeyPress = CoCodeKeyPress
end end
object CoBusinessType: TEdit object CoBusinessType: TEdit
Tag = 2 Tag = 2
Left = 628 Left = 847
Top = 9 Top = 11
Width = 89 Width = 89
Height = 20 Height = 25
TabOrder = 3 TabOrder = 3
OnChange = CoCodeChange OnChange = CoCodeChange
OnKeyPress = CoCodeKeyPress OnKeyPress = CoCodeKeyPress
@ -208,15 +210,18 @@ inherited frmFactory: TfrmFactory
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 99 Top = 115
Width = 1366 Width = 1366
Height = 372 Height = 356
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitLeft = 1
ExplicitTop = 110
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -243,6 +248,7 @@ inherited frmFactory: TfrmFactory
object v2Column5: TcxGridDBColumn object v2Column5: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -251,6 +257,7 @@ inherited frmFactory: TfrmFactory
object v2Column2: TcxGridDBColumn object v2Column2: TcxGridDBColumn
Caption = #20379#24212#21830#32534#21495 Caption = #20379#24212#21830#32534#21495
DataBinding.FieldName = 'CoCode' DataBinding.FieldName = 'CoCode'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -259,6 +266,7 @@ inherited frmFactory: TfrmFactory
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Caption = #20379#24212#21830#20840#31216 Caption = #20379#24212#21830#20840#31216
DataBinding.FieldName = 'CoName' DataBinding.FieldName = 'CoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 127 Width = 127
@ -266,6 +274,7 @@ inherited frmFactory: TfrmFactory
object v2Column15: TcxGridDBColumn object v2Column15: TcxGridDBColumn
Caption = #20379#24212#21830#31616#31216 Caption = #20379#24212#21830#31616#31216
DataBinding.FieldName = 'CoAbbrName' DataBinding.FieldName = 'CoAbbrName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 100 Width = 100
@ -273,6 +282,7 @@ inherited frmFactory: TfrmFactory
object v2Column3: TcxGridDBColumn object v2Column3: TcxGridDBColumn
Caption = #20379#24212#21830#31867#22411 Caption = #20379#24212#21830#31867#22411
DataBinding.FieldName = 'CoBusinessType' DataBinding.FieldName = 'CoBusinessType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 74 Width = 74
@ -280,6 +290,7 @@ inherited frmFactory: TfrmFactory
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'CONote' DataBinding.FieldName = 'CONote'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -288,6 +299,7 @@ inherited frmFactory: TfrmFactory
object v2Column12: TcxGridDBColumn object v2Column12: TcxGridDBColumn
Caption = #25805#20316#21592 Caption = #25805#20316#21592
DataBinding.FieldName = 'Filler' DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 60 Width = 60
@ -295,6 +307,7 @@ inherited frmFactory: TfrmFactory
object v2Column4: TcxGridDBColumn object v2Column4: TcxGridDBColumn
Caption = #36319#21333#21592 Caption = #36319#21333#21592
DataBinding.FieldName = 'Follower' DataBinding.FieldName = 'Follower'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 78 Width = 78
@ -302,6 +315,7 @@ inherited frmFactory: TfrmFactory
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #19978#32423#21333#20301 Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'ParentCoName' DataBinding.FieldName = 'ParentCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 108 Width = 108
@ -330,6 +344,7 @@ inherited frmFactory: TfrmFactory
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2 DataController.DataSource = DS_2
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -353,6 +368,7 @@ inherited frmFactory: TfrmFactory
object v3Column3: TcxGridDBColumn object v3Column3: TcxGridDBColumn
Caption = #40664#35748 Caption = #40664#35748
DataBinding.FieldName = 'IsDefault' DataBinding.FieldName = 'IsDefault'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -361,6 +377,7 @@ inherited frmFactory: TfrmFactory
object Tv2Column1: TcxGridDBColumn object Tv2Column1: TcxGridDBColumn
Caption = #32852#31995#20154 Caption = #32852#31995#20154
DataBinding.FieldName = 'Contacts' DataBinding.FieldName = 'Contacts'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -369,6 +386,7 @@ inherited frmFactory: TfrmFactory
object Tv2Column2: TcxGridDBColumn object Tv2Column2: TcxGridDBColumn
Caption = #32852#31995#30005#35805 Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'bossphone' DataBinding.FieldName = 'bossphone'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 96 Width = 96
@ -376,6 +394,7 @@ inherited frmFactory: TfrmFactory
object cxGridDBColumn1: TcxGridDBColumn object cxGridDBColumn1: TcxGridDBColumn
Caption = #25163#26426#21495 Caption = #25163#26426#21495
DataBinding.FieldName = 'PhoneNumber' DataBinding.FieldName = 'PhoneNumber'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -384,6 +403,7 @@ inherited frmFactory: TfrmFactory
object Tv2Column3: TcxGridDBColumn object Tv2Column3: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'note' DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 120 Width = 120
@ -396,7 +416,7 @@ inherited frmFactory: TfrmFactory
end end
object cxTabControl1: TcxTabControl [4] object cxTabControl1: TcxTabControl [4]
Left = 0 Left = 0
Top = 77 Top = 93
Width = 1366 Width = 1366
Height = 22 Height = 22
Align = alTop Align = alTop
@ -409,48 +429,63 @@ inherited frmFactory: TfrmFactory
#24050#23457#26680 #24050#23457#26680
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ExplicitTop = 77
ClientRectRight = 1366 ClientRectRight = 0
ClientRectTop = 19 ClientRectTop = 0
end
inherited loadProcess: TPanel
Left = 320
Top = 240
ExplicitLeft = 320
ExplicitTop = 240
end
inherited cxProgressBar2: TcxProgressBar
Left = 312
Top = 193
ExplicitLeft = 312
ExplicitTop = 193
ExplicitHeight = 25
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink
Left = 177
Top = 400
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink
Left = 137 Left = 65
Top = 121 Top = 401
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 501 Left = 613
Top = 137 Top = 385
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink
Parameters = <> Parameters = <>
Left = 613 Left = 741
Top = 145 Top = 433
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 277 Left = 229
Top = 225 Top = 385
end end
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_1 DataSet = CDS_1
Left = 555 Left = 539
Top = 243 Top = 371
end end
object CDS_1: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 496 Left = 464
Top = 240 Top = 400
end end
object CDS_2: TClientDataSet object CDS_2: TClientDataSet
Aggregates = <> Aggregates = <>
@ -466,8 +501,8 @@ inherited frmFactory: TfrmFactory
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 422 Left = 342
Top = 246 Top = 406
end end
object GPM_2: TcxGridPopupMenu object GPM_2: TcxGridPopupMenu
Grid = cxGrid2 Grid = cxGrid2

3
A01基础公司管理/U_Factory.pas
View File

@ -14,7 +14,8 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDBLookupComboBox, ComObj, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDBLookupComboBox, ComObj, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxPC; dxBarBuiltInMenu, U_BaseList, cxPC, cxContainer, dxScrollbarAnnotations,
cxProgressBar;
type type
TfrmFactory = class(TfrmBaseList) TfrmFactory = class(TfrmBaseList)

7
A01基础公司管理/U_testdll.dfm
View File

@ -2,8 +2,8 @@ object Form1: TForm1
Left = 203 Left = 203
Top = 121 Top = 121
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 0 ClientHeight = 300
ClientWidth = 120 ClientWidth = 669
Color = clBtnFace Color = clBtnFace
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -21,12 +21,13 @@ object Form1: TForm1
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 120 Width = 669
Height = 25 Height = 25
ButtonWidth = 57 ButtonWidth = 57
Caption = 'ToolBar1' Caption = 'ToolBar1'
Images = ImageList1 Images = ImageList1
TabOrder = 0 TabOrder = 0
ExplicitWidth = 120
object Edit1: TEdit object Edit1: TEdit
Left = 0 Left = 0
Top = 0 Top = 0

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

Binary file not shown.

5
A02基础产品管理/ClothInfo.dpr
View File

@ -31,7 +31,10 @@ uses
U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel}, U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel},
U_ClothInfoSel in '..\A00通用窗体\U_ClothInfoSel.pas' {frmClothInfoSel}, U_ClothInfoSel in '..\A00通用窗体\U_ClothInfoSel.pas' {frmClothInfoSel},
U_YarnInfoSel in '..\A00通用窗体\U_YarnInfoSel.pas' {frmYarnInfoSel}, U_YarnInfoSel in '..\A00通用窗体\U_YarnInfoSel.pas' {frmYarnInfoSel},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
U_TatClothInfoInput in 'U_TatClothInfoInput.pas' {frmTatClothInfoInput};
{$R *.res} {$R *.res}

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

@ -206,6 +206,12 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/> <DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<DCCReference Include="U_TatClothInfoInput.pas">
<Form>frmTatClothInfoInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

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

@ -4,47 +4,50 @@
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.627,=D:\Dp10RepoV10\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.083,=D:\Dp10RepoV10\项目代码\D10szXingjie\A02基础产品管理\U_TatClothInfoInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.932,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</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.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.378,=D:\Dp10RepoV10\public10\design\U_cxGridCustomSet.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.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.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.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.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>2025-05-26 17:02:47.932,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -75,7 +78,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10szXingJie"/> <File Path="..\..\D10szXingjie"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
@ -95,7 +98,7 @@
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/> <File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_ClothInfoSel.pas"/> <File Path="..\A00通用窗体\U_ClothInfoSel.pas"/>
<File Path="..\A00通用窗体\U_ClothInfoSel.dfm"/> <File Path="..\A00通用窗体\U_ClothInfoSel.dfm"/>
<File Path="D:\Dp10Repo"/> <File Path="D:\Dp10RepoV10"/>
<File Path="..\..\..\public10"/> <File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/> <File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/> <File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
@ -107,6 +110,8 @@
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/> <File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/> <File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/> <File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<File Path="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<File Path="..\..\..\public10\ThreeFun"/> <File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Form"/> <File Path="..\..\..\public10\ThreeFun\Form"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/> <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
@ -125,5 +130,7 @@
<File Path="U_CloInfoFileUp.dfm"/> <File Path="U_CloInfoFileUp.dfm"/>
<File Path="U_TatClothInfo.pas"/> <File Path="U_TatClothInfo.pas"/>
<File Path="U_TatClothInfo.dfm"/> <File Path="U_TatClothInfo.dfm"/>
<File Path="U_TatClothInfoInput.pas"/>
<File Path="U_TatClothInfoInput.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

BIN
A02基础产品管理/ClothInfo.identcache
View File

Binary file not shown.

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

Binary file not shown.

2
A02基础产品管理/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXingJie\A02基础产品管理\ClothInfo.dproj"/> <Projects ActiveProject="D:\Dp10RepoV10\项目代码\D10szXingjie\A02基础产品管理\testDll.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

11
A02基础产品管理/U_CloInfoFileUp.dfm
View File

@ -25,6 +25,7 @@ object frmCloInfoFileUp: TfrmCloInfoFileUp
TabOrder = 0 TabOrder = 0
object TV7: TcxGridDBTableView object TV7: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <> DataController.Summary.FooterSummaryItems = <>
@ -39,6 +40,7 @@ object frmCloInfoFileUp: TfrmCloInfoFileUp
Tag = 1 Tag = 1
Caption = #25991#20214#21517#31216 Caption = #25991#20214#21517#31216
DataBinding.FieldName = 'FileName' DataBinding.FieldName = 'FileName'
DataBinding.IsNullValueType = True
FooterAlignmentHorz = taCenter FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 121 Width = 121
@ -46,6 +48,7 @@ object frmCloInfoFileUp: TfrmCloInfoFileUp
object TV7Column1: TcxGridDBColumn object TV7Column1: TcxGridDBColumn
Caption = #33457#22411#21517#31216 Caption = #33457#22411#21517#31216
DataBinding.FieldName = 'HXName' DataBinding.FieldName = 'HXName'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 91 Width = 91
@ -54,10 +57,18 @@ object frmCloInfoFileUp: TfrmCloInfoFileUp
Tag = 1 Tag = 1
Caption = #19978#20256#26085#26399 Caption = #19978#20256#26085#26399
DataBinding.FieldName = 'TFDate' DataBinding.FieldName = 'TFDate'
DataBinding.IsNullValueType = True
FooterAlignmentHorz = taCenter FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 104 Width = 104
end end
object TV7Column2: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'TFID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
end end
object cxGridLevel6: TcxGridLevel object cxGridLevel6: TcxGridLevel
GridView = TV7 GridView = TV7

22
A02基础产品管理/U_CloInfoFileUp.pas
View File

@ -11,7 +11,7 @@ uses
IdTCPConnection, IdTCPClient, IdFTP, StdCtrls, ADODB, jpeg, BtnEdit, IniFiles, IdTCPConnection, IdTCPClient, IdFTP, StdCtrls, ADODB, jpeg, BtnEdit, IniFiles,
strutils, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, strutils, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, IdExplicitTLSClientServerBase, dxSkinsDefaultPainters, dxDateRanges, IdExplicitTLSClientServerBase,
Vcl.ExtDlgs; Vcl.ExtDlgs, dxScrollbarAnnotations;
type type
TfrmCloInfoFileUp = class(TForm) TfrmCloInfoFileUp = class(TForm)
@ -39,6 +39,7 @@ type
TV7Column1: TcxGridDBColumn; TV7Column1: TcxGridDBColumn;
Label2: TLabel; Label2: TLabel;
HXName: TBtnEditC; HXName: TBtnEditC;
TV7Column2: TcxGridDBColumn;
procedure FileUpClick(Sender: TObject); procedure FileUpClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FileDelClick(Sender: TObject); procedure FileDelClick(Sender: TObject);
@ -307,9 +308,25 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
SQL.Add(' Delete TP_File where TFID=''' + Trim(ADOQueryFile.fieldbyname('XFID').AsString) + ''''); SQL.Add(' Delete TP_File where TFID=''' + Trim(ADOQueryFile.fieldbyname('TFID').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
begin
begin
with ADOQueryFile do
begin
Close;
SQL.Clear;
SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName from TP_File where WBID=''' + Trim(FBCIID) + '''');
SQL.Add(' and FileType=''YP''');
Open;
end;
end;
if ADOQueryFile.fieldbyname('TFID').AsString = '' then
ShowMessage('ɾ³ý³É¹¦');
end;
// with ADOQueryFile do // with ADOQueryFile do
// begin // begin
// Close; // Close;
@ -328,6 +345,7 @@ begin
// ExecSQL; // ExecSQL;
// end; // end;
// end; // end;
end; end;
procedure TfrmCloInfoFileUp.FormShow(Sender: TObject); procedure TfrmCloInfoFileUp.FormShow(Sender: TObject);

32
A02基础产品管理/U_ClothInfo.dfm
View File

@ -10,7 +10,7 @@ inherited frmClothInfo: TfrmClothInfo
ExplicitWidth = 1460 ExplicitWidth = 1460
ExplicitHeight = 741 ExplicitHeight = 741
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 17
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -27,7 +27,7 @@ inherited frmClothInfo: TfrmClothInfo
List = True List = True
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 3
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -151,12 +151,12 @@ inherited frmClothInfo: TfrmClothInfo
BevelOuter = bvLowered BevelOuter = bvLowered
Color = 16242829 Color = 16242829
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 7
object Label3: TLabel object Label3: TLabel
Left = 42 Left = 42
Top = 15 Top = 15
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
end end
object Label11: TLabel object Label11: TLabel
@ -187,21 +187,21 @@ inherited frmClothInfo: TfrmClothInfo
Left = 199 Left = 199
Top = 15 Top = 15
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
end end
object Label9: TLabel object Label9: TLabel
Left = 509 Left = 509
Top = 15 Top = 15
Width = 24 Width = 24
Height = 12 Height = 17
Caption = #20811#37325 Caption = #20811#37325
end end
object Label8: TLabel object Label8: TLabel
Left = 357 Left = 357
Top = 15 Top = 15
Width = 24 Width = 24
Height = 12 Height = 17
Caption = #38376#24133 Caption = #38376#24133
end end
object C_Code: TEdit object C_Code: TEdit
@ -287,6 +287,7 @@ inherited frmClothInfo: TfrmClothInfo
OptionsView.CellAutoHeight = True OptionsView.CellAutoHeight = True
OptionsView.Headers = False OptionsView.Headers = False
RootValue = -1 RootValue = -1
ScrollbarAnnotations.CustomAnnotations = <>
Styles.Inactive = DataLink_ClothInfo.Red Styles.Inactive = DataLink_ClothInfo.Red
Styles.Selection = DataLink_ClothInfo.Red Styles.Selection = DataLink_ClothInfo.Red
Styles.IncSearch = DataLink_ClothInfo.Red Styles.IncSearch = DataLink_ClothInfo.Red
@ -325,6 +326,7 @@ inherited frmClothInfo: TfrmClothInfo
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
@ -343,6 +345,7 @@ inherited frmClothInfo: TfrmClothInfo
object v1SSel: TcxGridDBColumn object v1SSel: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ClothInfo.Default Styles.Header = DataLink_ClothInfo.Default
@ -351,6 +354,7 @@ inherited frmClothInfo: TfrmClothInfo
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #31867#21035 Caption = #31867#21035
DataBinding.FieldName = 'CTName' DataBinding.FieldName = 'CTName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default Styles.Header = DataLink_ClothInfo.Default
@ -359,6 +363,7 @@ inherited frmClothInfo: TfrmClothInfo
object v1CYNo: TcxGridDBColumn object v1CYNo: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default Styles.Header = DataLink_ClothInfo.Default
@ -367,12 +372,14 @@ inherited frmClothInfo: TfrmClothInfo
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 96 Width = 96
end end
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #33521#25991#21697#21517 Caption = #33521#25991#21697#21517
DataBinding.FieldName = 'C_EName' DataBinding.FieldName = 'C_EName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -380,6 +387,7 @@ inherited frmClothInfo: TfrmClothInfo
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default Styles.Header = DataLink_ClothInfo.Default
@ -388,6 +396,7 @@ inherited frmClothInfo: TfrmClothInfo
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 81 Width = 81
@ -395,6 +404,7 @@ inherited frmClothInfo: TfrmClothInfo
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #22383#24067#32534#21495 Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'C_FromCode' DataBinding.FieldName = 'C_FromCode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 85 Width = 85
@ -402,6 +412,7 @@ inherited frmClothInfo: TfrmClothInfo
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #22383#24067#21517#31216 Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'C_FromName' DataBinding.FieldName = 'C_FromName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 81 Width = 81
@ -409,6 +420,7 @@ inherited frmClothInfo: TfrmClothInfo
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'C_Composition' DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -416,12 +428,14 @@ inherited frmClothInfo: TfrmClothInfo
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 58 Width = 58
end end
object v1Column11: TcxGridDBColumn object v1Column11: TcxGridDBColumn
Caption = #22270#29255 Caption = #22270#29255
DataBinding.FieldName = 'IsImg' DataBinding.FieldName = 'IsImg'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -430,6 +444,7 @@ inherited frmClothInfo: TfrmClothInfo
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #22635#21333#20154 Caption = #22635#21333#20154
DataBinding.FieldName = 'filler' DataBinding.FieldName = 'filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 71 Width = 71
@ -437,6 +452,7 @@ inherited frmClothInfo: TfrmClothInfo
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #20462#25913#20154 Caption = #20462#25913#20154
DataBinding.FieldName = 'editer' DataBinding.FieldName = 'editer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 68 Width = 68
@ -444,6 +460,7 @@ inherited frmClothInfo: TfrmClothInfo
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #20462#25913#26102#38388 Caption = #20462#25913#26102#38388
DataBinding.FieldName = 'edittime' DataBinding.FieldName = 'edittime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 67 Width = 67
@ -451,6 +468,7 @@ inherited frmClothInfo: TfrmClothInfo
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #24405#20837#26102#38388 Caption = #24405#20837#26102#38388
DataBinding.FieldName = 'FILLTIME' DataBinding.FieldName = 'FILLTIME'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66

3
A02基础产品管理/U_ClothInfo.pas
View File

@ -15,7 +15,8 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, cxNavigator, cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, cxNavigator,
dxBarBuiltInMenu, cxPC, Math, RM_BarCode, dxSkinsCore, dxSkinsDefaultPainters, dxBarBuiltInMenu, cxPC, Math, RM_BarCode, dxSkinsCore, dxSkinsDefaultPainters,
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, cxContainer, dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, cxContainer,
dxDBBarCode, dxBarCode, Vcl.Clipbrd, cxTextEdit, BtnEdit, StrUtils; dxDBBarCode, dxBarCode, Vcl.Clipbrd, cxTextEdit, BtnEdit, StrUtils,
dxScrollbarAnnotations, cxProgressBar;
type type
FdDy = record FdDy = record

15
A02基础产品管理/U_ClothType.dfm
View File

@ -9,7 +9,7 @@ inherited frmClothType: TfrmClothType
ExplicitWidth = 997 ExplicitWidth = 997
ExplicitHeight = 568 ExplicitHeight = 568
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 17
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -25,7 +25,7 @@ inherited frmClothType: TfrmClothType
List = True List = True
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 3
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -86,10 +86,11 @@ inherited frmClothType: TfrmClothType
OptionsView.CellAutoHeight = True OptionsView.CellAutoHeight = True
OptionsView.Headers = False OptionsView.Headers = False
RootValue = -1 RootValue = -1
ScrollbarAnnotations.CustomAnnotations = <>
Styles.Inactive = DataLink_ClothInfo.FoneRed Styles.Inactive = DataLink_ClothInfo.FoneRed
Styles.Selection = DataLink_ClothInfo.FoneRed Styles.Selection = DataLink_ClothInfo.FoneRed
Styles.IncSearch = DataLink_ClothInfo.FoneRed Styles.IncSearch = DataLink_ClothInfo.FoneRed
TabOrder = 1 TabOrder = 4
OnClick = cxDBTreeList1Click OnClick = cxDBTreeList1Click
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'CTName' DataBinding.FieldName = 'CTName'
@ -114,22 +115,22 @@ inherited frmClothType: TfrmClothType
object Label1: TLabel object Label1: TLabel
Left = 66 Left = 66
Top = 24 Top = 24
Width = 48 Width = 40
Height = 12 Height = 17
Caption = #29238' '#31867 Caption = #29238' '#31867
end end
object Label2: TLabel object Label2: TLabel
Left = 66 Left = 66
Top = 65 Top = 65
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #31867#21035#21517#31216 Caption = #31867#21035#21517#31216
end end
object Label3: TLabel object Label3: TLabel
Left = 170 Left = 170
Top = 137 Top = 137
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #31867#21035#32534#30721 Caption = #31867#21035#32534#30721
Visible = False Visible = False
end end

3
A02基础产品管理/U_ClothType.pas
View File

@ -7,7 +7,8 @@ uses
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
ExtCtrls, DBClient, U_BaseList, cxLookAndFeels, cxLookAndFeelPainters, ExtCtrls, DBClient, U_BaseList, cxLookAndFeels, cxLookAndFeelPainters,
cxTLdxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters; cxTLdxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, cxContainer,
cxEdit, cxFilter, dxScrollbarAnnotations, cxProgressBar;
type type
TfrmClothType = class(TfrmBaseList) TfrmClothType = class(TfrmBaseList)

8
A02基础产品管理/U_GetDllForm.pas
View File

@ -141,7 +141,7 @@ begin
end; end;
end; end;
112: // 产品信息管理 {112: // 产品信息管理
begin begin
with TfrmClothInfo.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmClothInfo.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin begin
@ -151,7 +151,7 @@ begin
BorderStyle := mborderstyle; BorderStyle := mborderstyle;
mnewHandle := Handle; mnewHandle := Handle;
end; end;
end; end;}
122: //ËóÖ¯²úÆ·ÐÅÏ¢¹ÜÀí 122: //ËóÖ¯²úÆ·ÐÅÏ¢¹ÜÀí
begin begin
@ -165,7 +165,7 @@ begin
end; end;
end; end;
132: // 针织产品信息管理 {132: // 针织产品信息管理
begin begin
with TfrmKnitClothInfoList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmKnitClothInfoList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin begin
@ -175,7 +175,7 @@ begin
BorderStyle := mborderstyle; BorderStyle := mborderstyle;
mnewHandle := Handle; mnewHandle := Handle;
end; end;
end; end;}
10000: 10000:
begin begin

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

@ -10,7 +10,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
ExplicitWidth = 1460 ExplicitWidth = 1460
ExplicitHeight = 741 ExplicitHeight = 741
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 17
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -27,7 +27,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
List = True List = True
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 3
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -116,16 +116,32 @@ inherited frmTatClothInfo: TfrmTatClothInfo
ImageIndex = 19 ImageIndex = 19
OnClick = TBUPClick OnClick = TBUPClick
end end
object ToolButton2: TToolButton object ToolButton4: TToolButton
Left = 853 Left = 853
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20572#29992#31995#25968
ImageIndex = 6
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 948
Top = 0
AutoSize = True
Caption = #21551#29992#31995#25968
ImageIndex = 2
OnClick = ToolButton5Click
end
object ToolButton2: TToolButton
Left = 1043
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
ImageIndex = 16 ImageIndex = 16
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 948 Left = 1138
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -151,12 +167,12 @@ inherited frmTatClothInfo: TfrmTatClothInfo
BevelOuter = bvLowered BevelOuter = bvLowered
Color = 16242829 Color = 16242829
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 7
object Label3: TLabel object Label3: TLabel
Left = 42 Left = 42
Top = 15 Top = 15
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
end end
object Label11: TLabel object Label11: TLabel
@ -187,21 +203,21 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Left = 199 Left = 199
Top = 15 Top = 15
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
end end
object Label9: TLabel object Label9: TLabel
Left = 509 Left = 509
Top = 15 Top = 15
Width = 24 Width = 24
Height = 12 Height = 17
Caption = #20811#37325 Caption = #20811#37325
end end
object Label8: TLabel object Label8: TLabel
Left = 357 Left = 357
Top = 15 Top = 15
Width = 24 Width = 24
Height = 12 Height = 17
Caption = #38376#24133 Caption = #38376#24133
end end
object C_Code: TEdit object C_Code: TEdit
@ -209,7 +225,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Left = 91 Left = 91
Top = 11 Top = 11
Width = 89 Width = 89
Height = 20 Height = 25
TabOrder = 0 TabOrder = 0
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
end end
@ -218,7 +234,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Left = 248 Left = 248
Top = 11 Top = 11
Width = 89 Width = 89
Height = 20 Height = 25
TabOrder = 1 TabOrder = 1
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
end end
@ -227,7 +243,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Left = 536 Left = 536
Top = 11 Top = 11
Width = 89 Width = 89
Height = 20 Height = 25
TabOrder = 3 TabOrder = 3
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
end end
@ -236,7 +252,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Left = 384 Left = 384
Top = 11 Top = 11
Width = 89 Width = 89
Height = 20 Height = 25
TabOrder = 2 TabOrder = 2
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
end end
@ -318,15 +334,17 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Left = 2 Left = 2
Top = 42 Top = 42
Width = 1212 Width = 1212
Height = 370 Height = 334
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitHeight = 207
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
OnCellClick = Tv1CellClick
OnFocusedRecordChanged = Tv1FocusedRecordChanged OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
@ -360,6 +378,13 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Styles.Header = DataLink_ClothInfo.Default Styles.Header = DataLink_ClothInfo.Default
Width = 70 Width = 70
end end
object Tv1Column12: TcxGridDBColumn
Caption = #31995#25968#29366#24577
DataBinding.FieldName = 'XSZT'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1CYNo: TcxGridDBColumn object v1CYNo: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
@ -393,6 +418,20 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Editing = False Options.Editing = False
Width = 81 Width = 81
end end
object Tv1Column10: TcxGridDBColumn
Caption = #31995#25968
DataBinding.FieldName = 'XS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 88
end
object Tv1Column13: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Chker'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #32428#23494 Caption = #32428#23494
DataBinding.FieldName = 'C_FinishLatitudeDensity' DataBinding.FieldName = 'C_FinishLatitudeDensity'
@ -599,37 +638,41 @@ inherited frmTatClothInfo: TfrmTatClothInfo
end end
object Panel9: TPanel object Panel9: TPanel
Left = 2 Left = 2
Top = 412 Top = 528
Width = 1212 Width = 1212
Height = 205 Height = 89
Align = alBottom Align = alBottom
Caption = 'Panel9' Caption = 'Panel9'
TabOrder = 2 TabOrder = 2
Visible = False
object Panel10: TPanel object Panel10: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1210 Width = 1210
Height = 203 Height = 87
Align = alClient Align = alClient
Caption = 'Panel9' Caption = 'Panel9'
TabOrder = 0 TabOrder = 0
ExplicitHeight = 203
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 1 Left = 1
Top = 42 Top = 42
Width = 1208 Width = 1208
Height = 160 Height = 44
Align = alClient Align = alClient
Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289 Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
TabOrder = 0 TabOrder = 0
ExplicitHeight = 160
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 2 Left = 2
Top = 14 Top = 19
Width = 1204 Width = 1204
Height = 144 Height = 23
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered
BorderStyle = bsNone BorderStyle = bsNone
TabOrder = 0 TabOrder = 0
ExplicitHeight = 139
end end
end end
object Panel11: TPanel object Panel11: TPanel
@ -677,6 +720,104 @@ inherited frmTatClothInfo: TfrmTatClothInfo
end end
end end
end end
object Panel6: TPanel
Left = 2
Top = 376
Width = 1212
Height = 152
Align = alBottom
TabOrder = 3
object cxGrid2: TcxGrid
Left = 1
Top = 1
Width = 1210
Height = 150
Align = alClient
TabOrder = 0
ExplicitLeft = 344
ExplicitTop = 40
ExplicitWidth = 250
ExplicitHeight = 200
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.First.Visible = True
Navigator.Buttons.PriorPage.Visible = True
Navigator.Buttons.Prior.Visible = True
Navigator.Buttons.Next.Visible = True
Navigator.Buttons.NextPage.Visible = True
Navigator.Buttons.Last.Visible = True
Navigator.Buttons.Insert.Visible = True
Navigator.Buttons.Append.Visible = False
Navigator.Buttons.Delete.Visible = True
Navigator.Buttons.Edit.Visible = True
Navigator.Buttons.Post.Visible = True
Navigator.Buttons.Cancel.Visible = True
Navigator.Buttons.Refresh.Visible = True
Navigator.Buttons.SaveBookmark.Visible = True
Navigator.Buttons.GotoBookmark.Visible = True
Navigator.Buttons.Filter.Visible = True
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object TV2Column4: TcxGridDBColumn
Caption = #20462#25913#26102#38388
DataBinding.FieldName = 'edittime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 166
end
object TV2Column1: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object TV2Column2: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object TV2Column3: TcxGridDBColumn
Caption = #20462#25913#20154
DataBinding.FieldName = 'editer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object TV2Column5: TcxGridDBColumn
Caption = #21382#21490#31995#25968
DataBinding.FieldName = 'XS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
end
object cxGrid2Level1: TcxGridLevel
GridView = TV2
end
end
end
end
inherited loadProcess: TPanel
Left = 536
Top = 237
ExplicitLeft = 536
ExplicitTop = 237
end
inherited cxProgressBar2: TcxProgressBar
Left = 536
Top = 201
ExplicitLeft = 536
ExplicitTop = 201
ExplicitHeight = 25
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
@ -857,7 +998,31 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object CDS_Label: TClientDataSet object CDS_Label: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 520 Left = 568
Top = 426 Top = 354
end
object ADOQuery2: TADOQuery
Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1059
Top = 528
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 1128
Top = 536
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 1195
Top = 531
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 984
Top = 528
end end
end end

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

@ -16,7 +16,7 @@ uses
dxBarBuiltInMenu, cxPC, Math, RM_BarCode, dxSkinsCore, dxSkinsDefaultPainters, dxBarBuiltInMenu, cxPC, Math, RM_BarCode, dxSkinsCore, dxSkinsDefaultPainters,
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, cxContainer, dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, cxContainer,
dxDBBarCode, dxBarCode, Vcl.Clipbrd, cxTextEdit, BtnEdit, StrUtils, dxDBBarCode, dxBarCode, Vcl.Clipbrd, cxTextEdit, BtnEdit, StrUtils,
dxScrollbarAnnotations; dxScrollbarAnnotations, cxProgressBar;
type type
FdDy = record FdDy = record
@ -119,6 +119,24 @@ type
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
Tv1Column10: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Panel6: TPanel;
TV2: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
cxGrid2: TcxGrid;
ADOQuery2: TADOQuery;
CDS_2: TClientDataSet;
DS_2: TDataSource;
GPM_2: TcxGridPopupMenu;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject); procedure TBDelClick(Sender: TObject);
@ -149,6 +167,9 @@ type
procedure cbbHXChange(Sender: TObject); procedure cbbHXChange(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
private private
{ Private declarations } { Private declarations }
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
@ -158,6 +179,7 @@ type
procedure SetStatus(); procedure SetStatus();
procedure InitTree(); procedure InitTree();
procedure InitGrid(); procedure InitGrid();
procedure InitGrid2();
procedure ReadINIFile(); procedure ReadINIFile();
procedure InitImage(); procedure InitImage();
procedure LookImage(FileName: string); procedure LookImage(FileName: string);
@ -226,6 +248,26 @@ begin
end; end;
procedure TfrmTatClothInfo.InitGrid2();
begin
try
with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.ADD('SELECT * FROM Bs_Cloth_Info_LSXS');
SQL.ADD('WHERE C_Code=' + Quotedstr(CDS_1.FieldByName('C_Code').AsString));
SQL.ADD('ORDER BY C_Code,C_Name');
SQL.ADD('');
Open;
// SHOWMESSAGE(SQL.TEXT);
end;
finally
SCreateCDS(ADOQuery2, CDS_2);
SInitCDSData(ADOQuery2, CDS_2);
end;
end;
procedure TfrmTatClothInfo.InitTree(); procedure TfrmTatClothInfo.InitTree();
begin begin
with ADOQueryTree do with ADOQueryTree do
@ -378,6 +420,7 @@ procedure TfrmTatClothInfo.TBRafreshClick(Sender: TObject);
begin begin
InitTree(); InitTree();
InitGrid(); InitGrid();
InitGrid2();
end; end;
procedure TfrmTatClothInfo.TBFilterClick(Sender: TObject); procedure TfrmTatClothInfo.TBFilterClick(Sender: TObject);
@ -600,6 +643,12 @@ begin
Tv1.Controller.EditingController.ShowEdit(); Tv1.Controller.EditingController.ShowEdit();
end; end;
procedure TfrmTatClothInfo.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
inherited;
InitGrid2();
end;
procedure TfrmTatClothInfo.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure TfrmTatClothInfo.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
var var
fsj: string; fsj: string;
@ -817,5 +866,73 @@ begin
end; end;
procedure TfrmTatClothInfo.ToolButton4Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if Application.MessageBox('确定要停用吗？', '提示', 32 + 4) <> IDYES then
Exit;
while CDS_1.Locate('SSel', true, []) do
// begin
// if Trim(CDS_1.fieldbyname('XS').AsString) = '' then
// Application.MessageBox('系数已停用无需在次停用？', '提示', 32 + 4);
// Exit;
// end;
begin
if Trim(CDS_1.fieldbyname('BCIID').AsString) <> '' then
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add(Format('EXEC P_BS_Cloth_Info_Stop @FBCIID = ''%s''', [Trim(CDS_1.FieldByName('BCIID').AsString)]));
ExecSQL;
end;
end;
CDS_1.Delete;
end;
begin
InitTree();
InitGrid();
end;
end;
procedure TfrmTatClothInfo.ToolButton5Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if Application.MessageBox('确定要启用吗？', '提示', 32 + 4) <> IDYES then
Exit;
while CDS_1.Locate('SSel', true, []) do
// begin
// if Trim(CDS_1.fieldbyname('XS').AsString) <> '' then
// Application.MessageBox('系数已启用无需在次启用', '提示', 32 + 4);
// Exit;
// end;
begin
if Trim(CDS_1.fieldbyname('BCIID').AsString) <> '' then
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
// 移除存储过程名后的逗号，并用Format函数优化拼接
sql.Add(Format('EXEC P_BS_Cloth_Info_XS_Rutrn @FBCIID = ''%s''', [Trim(CDS_1.FieldByName('BCIID').AsString)]));
ExecSQL;
end;
end;
CDS_1.Delete;
end;
begin
InitTree();
InitGrid();
end;
end;
end. end.

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

@ -63,7 +63,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1533 Width = 1533
Height = 187 Height = 195
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -72,7 +72,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 41
object Label1: TLabel object Label1: TLabel
Left = 31 Left = 31
Top = 11 Top = 11
@ -256,6 +255,19 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label13: TLabel
Left = 675
Top = 10
Width = 39
Height = 12
Caption = #21333#20215#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object C_Code: TEdit object C_Code: TEdit
Tag = 2 Tag = 2
Left = 93 Left = 93
@ -452,19 +464,37 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Height = 18 Height = 18
TabOrder = 13 TabOrder = 13
end end
object Chker: TEdit
Tag = 2
Left = 739
Top = 8
Width = 120
Height = 18
TabOrder = 14
end
object LSXS: TEdit
Tag = 2
Left = 675
Top = 291
Width = 120
Height = 18
TabOrder = 15
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 225 Top = 233
Width = 737 Width = 737
Height = 382 Height = 374
Align = alLeft Align = alLeft
TabOrder = 2 TabOrder = 2
ExplicitTop = 225
ExplicitHeight = 382
object cxPageControl2: TcxPageControl object cxPageControl2: TcxPageControl
Left = 1 Left = 1
Top = 42 Top = 42
Width = 735 Width = 735
Height = 339 Height = 331
Align = alClient Align = alClient
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -479,7 +509,8 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Visible = False Visible = False
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 6 Properties.Style = 6
ClientRectBottom = 339 ExplicitHeight = 339
ClientRectBottom = 331
ClientRectRight = 735 ClientRectRight = 735
ClientRectTop = 0 ClientRectTop = 0
end end
@ -487,7 +518,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 1 Left = 1
Top = 42 Top = 42
Width = 735 Width = 735
Height = 339 Height = 331
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -496,6 +527,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ExplicitHeight = 339
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -587,6 +619,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Caption = #37197#27604 Caption = #37197#27604
DataBinding.FieldName = 'Y_Ratio' DataBinding.FieldName = 'Y_Ratio'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 116 Width = 116
end end
@ -595,7 +628,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
DataBinding.FieldName = 'Y_Qty' DataBinding.FieldName = 'Y_Qty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66 Width = 66
end end
object TV1Column2: TcxGridDBColumn object TV1Column2: TcxGridDBColumn
@ -686,6 +718,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
AutoSize = True AutoSize = True
Caption = #35745#31639#29992#37327 Caption = #35745#31639#29992#37327
ImageIndex = 23 ImageIndex = 23
Visible = False
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
end end
@ -693,16 +726,18 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
end end
object Panel2: TPanel object Panel2: TPanel
Left = 737 Left = 737
Top = 225 Top = 233
Width = 796 Width = 796
Height = 382 Height = 374
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
ExplicitTop = 225
ExplicitHeight = 382
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 1 Left = 1
Top = 42 Top = 42
Width = 794 Width = 794
Height = 339 Height = 331
Align = alClient Align = alClient
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -717,7 +752,8 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Visible = False Visible = False
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 6 Properties.Style = 6
ClientRectBottom = 339 ExplicitHeight = 339
ClientRectBottom = 331
ClientRectRight = 794 ClientRectRight = 794
ClientRectTop = 0 ClientRectTop = 0
end end
@ -725,7 +761,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 1 Left = 1
Top = 42 Top = 42
Width = 794 Width = 794
Height = 339 Height = 331
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -734,6 +770,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ExplicitHeight = 339
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -821,6 +858,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Caption = #37197#27604 Caption = #37197#27604
DataBinding.FieldName = 'Y_Ratio' DataBinding.FieldName = 'Y_Ratio'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ClothInfo.Default Styles.Header = DataLink_ClothInfo.Default
Width = 116 Width = 116
@ -838,7 +876,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
DataBinding.FieldName = 'Y_Qty' DataBinding.FieldName = 'Y_Qty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75 Width = 75
end end
object Tv2Column2: TcxGridDBColumn object Tv2Column2: TcxGridDBColumn
@ -929,6 +966,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
AutoSize = True AutoSize = True
Caption = #35745#31639#29992#37327 Caption = #35745#31639#29992#37327
ImageIndex = 23 ImageIndex = 23
Visible = False
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
end end
@ -969,4 +1007,11 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 1000 Left = 1000
Top = 488 Top = 488
end end
object ADOQuery1: TADOQuery
Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 597
Top = 345
end
end end

51
A02基础产品管理/U_TatClothInfoInput.pas
View File

@ -91,6 +91,10 @@ type
C_MachLatitudeDensity: TEdit; C_MachLatitudeDensity: TEdit;
Label11: TLabel; Label11: TLabel;
XS: TEdit; XS: TEdit;
Label13: TLabel;
Chker: TEdit;
ADOQuery1: TADOQuery;
LSXS: TEdit;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
@ -201,6 +205,7 @@ begin
end; end;
SCreateCDS(ADOQueryTemp, CDS_2); SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2); SInitCDSData(ADOQueryTemp, CDS_2);
LSXS.TEXT:= XS.TEXT;
end; end;
procedure TfrmTatClothInfoInput.FormShow(Sender: TObject); procedure TfrmTatClothInfoInput.FormShow(Sender: TObject);
@ -297,6 +302,42 @@ begin
Edit; Edit;
FieldByName('EDITER').Value := Trim(DName); FieldByName('EDITER').Value := Trim(DName);
FieldByName('EDITTIME').Value := SGetServerDateTime(ADOQueryTemp); FieldByName('EDITTIME').Value := SGetServerDateTime(ADOQueryTemp);
with ADOQuery1 do
begin
try
Close;
SQL.Clear;
// 修正1：字段列表和VALUES参数一一对应（补充BCIID参数）
SQL.Add('INSERT INTO Bs_Cloth_Info_LSXS (BCIID, EDITER, EDITTIME, C_Code, C_Name, XS)');
SQL.Add('VALUES (:BCIID, :EDITER, :EDITTIME, :C_Code, :C_Name, :XS)');
Parameters.ParamByName('BCIID').Value := Trim(maxId); // BCIID参数赋值
Parameters.ParamByName('EDITER').Value := Trim(DName); // 仅保留一次EDITER赋值
Parameters.ParamByName('EDITTIME').Value := SGetServerDateTime(ADOQueryTemp);
Parameters.ParamByName('C_Code').Value := Trim(C_Code.Text);
Parameters.ParamByName('C_Name').Value := Trim(C_Name.Text);
var xsValue: Double;
if TryStrToFloat(Trim(LSXS.Text), xsValue) then
Parameters.ParamByName('XS').Value := xsValue
else
begin
Parameters.ParamByName('XS').Value := 0.0;
end;
ExecSQL;
ShowMessage('数据插入成功！');
except
on E: Exception do
begin
ShowMessage('数据插入失败：' + E.Message);
// raise; // 如需上层处理异常，可取消注释
end;
end;
end;
end; end;
FieldByName('BCIID').Value := Trim(maxId); FieldByName('BCIID').Value := Trim(maxId);
if trim(C_Code.Text) = '' then if trim(C_Code.Text) = '' then
@ -455,11 +496,11 @@ begin
Application.MessageBox('产品名称不能为空！', '提示', 0); Application.MessageBox('产品名称不能为空！', '提示', 0);
Exit; Exit;
end; end;
if TryStrToFloat(XS.Text, f) = FALSE then // if TryStrToFloat(XS.Text, f) = FALSE then
begin // begin
Application.MessageBox('系数非数字！', '提示', 0); // Application.MessageBox('系数非数字！', '提示', 0);
Exit; // Exit;
end; // end;
if trim(C_Code.Text) = '' then if trim(C_Code.Text) = '' then
begin begin

3
A02基础产品管理/testDll.dproj
View File

@ -95,7 +95,7 @@
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024> <iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''"> <PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> <DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType> <BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<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> <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>
@ -139,6 +139,7 @@
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes> <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode> <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<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> <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:\Dp10RepoV10\项目代码\D10szXingjie\A02基础产品管理\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">

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

Binary file not shown.

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

Binary file not shown.

58
A09财务通用管理/Financial.dproj.local
View File

@ -1,44 +1,44 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm</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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.582,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm</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.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.705,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.705,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.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.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj</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.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.307,=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.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.582,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -69,7 +69,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10szHengYan"/> <File Path="..\..\D10szXingjie"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
@ -85,7 +85,7 @@
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/> <File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/> <File Path="..\A00通用窗体\U_LabelPrint.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/> <File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="D:\Dp10Repo"/> <File Path="D:\Dp10RepoV10"/>
<File Path="..\..\..\public10"/> <File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/> <File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/> <File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>

BIN
A09财务通用管理/Financial.identcache
View File

Binary file not shown.

2
A09财务通用管理/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szHengYan\A09财务通用管理\Financial.dproj"/> <Projects ActiveProject="D:\Dp10RepoV10\项目代码\D10szXingjie\A09财务通用管理\Financial.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

2
A09财务通用管理/U_GetDllForm.pas
View File

@ -73,7 +73,7 @@ begin
if trim(DataBaseStr) = '' then if trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; server := '101.132.143.144,7781';
dtbase := 'hengyanData'; dtbase := 'xingjieData';
user := 'rtsa'; user := 'rtsa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';

BIN
A09财务通用管理/testDll.identcache
View File

Binary file not shown.

2
B02基础纱线仓库/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szHengYan\B02基础纱线仓库\YarnStk.dproj"/> <Projects ActiveProject="D:\Dp10RepoV10\项目代码\D10szXingjie\B02基础纱线仓库\YarnStk.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

6
B02基础纱线仓库/U_YarnInEdit.dfm
View File

@ -6,7 +6,6 @@ inherited frmYarnInEdit: TfrmYarnInEdit
ClientWidth = 1540 ClientWidth = 1540
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
@ -330,6 +329,7 @@ inherited frmYarnInEdit: TfrmYarnInEdit
AutoSize = True AutoSize = True
Caption = #37319#36141#21333 Caption = #37319#36141#21333
ImageIndex = 12 ImageIndex = 12
Visible = False
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
@ -338,6 +338,7 @@ inherited frmYarnInEdit: TfrmYarnInEdit
AutoSize = True AutoSize = True
Caption = #23548#20837 Caption = #23548#20837
ImageIndex = 19 ImageIndex = 19
Visible = False
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBDel: TToolButton object TBDel: TToolButton
@ -373,6 +374,9 @@ inherited frmYarnInEdit: TfrmYarnInEdit
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_YarnStk.ADOLink Connection = DataLink_YarnStk.ADOLink
end end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
end
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_Sub DataSet = CDS_Sub
Left = 696 Left = 696

2
B02基础纱线仓库/U_YarnInEdit.pas
View File

@ -11,7 +11,7 @@ uses
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput,
System.ImageList, Vcl.ImgList, dxScrollbarAnnotations, ComObj; System.ImageList, Vcl.ImgList, dxScrollbarAnnotations, ComObj, cxImageList;
type type
TfrmYarnInEdit = class(TfrmBaseInput) TfrmYarnInEdit = class(TfrmBaseInput)

110
B02基础纱线仓库/U_YarnInList.dfm
View File

@ -7,7 +7,7 @@ inherited frmYarnInList: TfrmYarnInList
ExplicitWidth = 1300 ExplicitWidth = 1300
ExplicitHeight = 517 ExplicitHeight = 517
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 17
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -29,7 +29,7 @@ inherited frmYarnInList: TfrmYarnInList
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 3
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -108,71 +108,71 @@ inherited frmYarnInList: TfrmYarnInList
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1284 Width = 1284
Height = 58 Height = 67
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 4
object Label1: TLabel object Label1: TLabel
Left = 28 Left = 28
Top = 12 Top = 12
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #26597#35810#26102#38388 Caption = #26597#35810#26102#38388
end end
object Label2: TLabel object Label2: TLabel
Left = 64 Left = 64
Top = 37 Top = 37
Width = 12 Width = 12
Height = 12 Height = 17
Caption = #33267 Caption = #33267
end end
object Label3: TLabel object Label3: TLabel
Left = 351 Left = 377
Top = 12 Top = 12
Width = 24 Width = 24
Height = 12 Height = 17
Caption = #21697#21517 Caption = #21697#21517
end end
object Label4: TLabel object Label4: TLabel
Left = 492 Left = 528
Top = 12 Top = 12
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #26469#33258#21333#20301 Caption = #26469#33258#21333#20301
end end
object Label8: TLabel object Label8: TLabel
Left = 351 Left = 377
Top = 37 Top = 37
Width = 24 Width = 24
Height = 12 Height = 17
Caption = #35268#26684 Caption = #35268#26684
end end
object Label12: TLabel object Label12: TLabel
Left = 178 Left = 192
Top = 37 Top = 37
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
end end
object Label10: TLabel object Label10: TLabel
Left = 492 Left = 528
Top = 37 Top = 37
Width = 48 Width = 40
Height = 12 Height = 17
Caption = #25209' '#21495 Caption = #25209' '#21495
end end
object Label6: TLabel object Label6: TLabel
Left = 178 Left = 192
Top = 12 Top = 12
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #20837#24211#21333#21495 Caption = #20837#24211#21333#21495
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 77 Left = 91
Top = 8 Top = 8
Width = 87 Width = 87
Height = 20 Height = 20
@ -181,7 +181,7 @@ inherited frmYarnInList: TfrmYarnInList
TabOrder = 0 TabOrder = 0
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 77 Left = 91
Top = 33 Top = 33
Width = 87 Width = 87
Height = 20 Height = 20
@ -191,37 +191,37 @@ inherited frmYarnInList: TfrmYarnInList
end end
object Y_Name: TEdit object Y_Name: TEdit
Tag = 2 Tag = 2
Left = 378 Left = 414
Top = 8 Top = 8
Width = 100 Width = 100
Height = 20 Height = 25
TabOrder = 2 TabOrder = 2
OnChange = TBFindClick OnChange = TBFindClick
end end
object FromCoName: TEdit object FromCoName: TEdit
Tag = 2 Tag = 2
Left = 542 Left = 593
Top = 8 Top = 8
Width = 100 Width = 100
Height = 20 Height = 25
TabOrder = 3 TabOrder = 3
OnChange = FromCoNameChange OnChange = FromCoNameChange
end end
object Y_spec: TEdit object Y_spec: TEdit
Tag = 2 Tag = 2
Left = 378 Left = 414
Top = 33 Top = 33
Width = 100 Width = 100
Height = 20 Height = 25
TabOrder = 4 TabOrder = 4
OnChange = Y_specChange OnChange = Y_specChange
end end
object IOType: TComboBox object IOType: TComboBox
Tag = 2 Tag = 2
Left = 228 Left = 254
Top = 33 Top = 33
Width = 109 Width = 109
Height = 20 Height = 25
Style = csDropDownList Style = csDropDownList
DropDownCount = 20 DropDownCount = 20
TabOrder = 5 TabOrder = 5
@ -234,32 +234,33 @@ inherited frmYarnInList: TfrmYarnInList
end end
object BatchNo: TEdit object BatchNo: TEdit
Tag = 2 Tag = 2
Left = 542 Left = 593
Top = 33 Top = 33
Width = 100 Width = 100
Height = 20 Height = 25
TabOrder = 6 TabOrder = 6
OnChange = FromCoNameChange OnChange = FromCoNameChange
end end
object BYIOID: TEdit object BYIOID: TEdit
Tag = 2 Tag = 2
Left = 228 Left = 254
Top = 8 Top = 8
Width = 109 Width = 109
Height = 20 Height = 25
TabOrder = 7 TabOrder = 7
OnChange = TBFindClick OnChange = TBFindClick
end end
end end
object cxGrid2: TcxGrid [2] object cxGrid2: TcxGrid [2]
Left = 0 Left = 0
Top = 96 Top = 105
Width = 1284 Width = 1284
Height = 382 Height = 373
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 97 ExplicitTop = 96
ExplicitHeight = 382
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -333,6 +334,21 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 93 Width = 93
end end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
@ -390,21 +406,6 @@ inherited frmYarnInList: TfrmYarnInList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 55 Width = 55
end end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #35268#26684 Caption = #35268#26684
@ -556,6 +557,13 @@ inherited frmYarnInList: TfrmYarnInList
GridView = Tv1 GridView = Tv1
end end
end end
inherited cxProgressBar2: TcxProgressBar
Left = 301
Top = 137
ExplicitLeft = 301
ExplicitTop = 137
ExplicitHeight = 25
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_YarnStk.ADOLink Connection = DataLink_YarnStk.ADOLink
Left = 113 Left = 113

2
B02基础纱线仓库/U_YarnInList.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations; dxScrollbarAnnotations, cxContainer, cxProgressBar;
type type
TfrmYarnInList = class(TfrmBaseList) TfrmYarnInList = class(TfrmBaseList)

4
B02基础纱线仓库/U_YarnOutEdit.dfm
View File

@ -6,7 +6,6 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
ClientWidth = 1406 ClientWidth = 1406
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
@ -328,6 +327,9 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Left = 160 Left = 160
Top = 288 Top = 288
end end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
end
object DataSource3: TDataSource object DataSource3: TDataSource
DataSet = CDS_Sub DataSet = CDS_Sub
Left = 592 Left = 592

3
B02基础纱线仓库/U_YarnOutEdit.pas
View File

@ -11,7 +11,8 @@ uses
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxSpinEdit, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxSpinEdit,
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
U_BaseInput, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations; U_BaseInput, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations,
cxImageList;
type type
TfrmYarnOutEdit = class(TfrmBaseInput) TfrmYarnOutEdit = class(TfrmBaseInput)

62
B02基础纱线仓库/U_YarnOutList.dfm
View File

@ -8,7 +8,7 @@ inherited frmYarnOutList: TfrmYarnOutList
ExplicitWidth = 1209 ExplicitWidth = 1209
ExplicitHeight = 583 ExplicitHeight = 583
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 17
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -30,7 +30,7 @@ inherited frmYarnOutList: TfrmYarnOutList
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 3
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -109,56 +109,56 @@ inherited frmYarnOutList: TfrmYarnOutList
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1193 Width = 1193
Height = 61 Height = 68
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 4
object Label1: TLabel object Label1: TLabel
Left = 28 Left = 28
Top = 10 Top = 10
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #26597#35810#26102#38388 Caption = #26597#35810#26102#38388
end end
object Label2: TLabel object Label2: TLabel
Left = 64 Left = 64
Top = 37 Top = 37
Width = 12 Width = 12
Height = 12 Height = 17
Caption = #33267 Caption = #33267
end end
object Label3: TLabel object Label3: TLabel
Left = 321 Left = 337
Top = 10 Top = 10
Width = 24 Width = 24
Height = 12 Height = 17
Caption = #21697#21517 Caption = #21697#21517
end end
object Label5: TLabel object Label5: TLabel
Left = 178 Left = 184
Top = 10 Top = 10
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #20986#24211#21333#21495 Caption = #20986#24211#21333#21495
end end
object Label8: TLabel object Label8: TLabel
Left = 321 Left = 337
Top = 37 Top = 37
Width = 24 Width = 24
Height = 12 Height = 17
Caption = #35268#26684 Caption = #35268#26684
end end
object Label12: TLabel object Label12: TLabel
Left = 179 Left = 185
Top = 37 Top = 37
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #20986#24211#31867#22411 Caption = #20986#24211#31867#22411
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 77 Left = 83
Top = 6 Top = 6
Width = 87 Width = 87
Height = 20 Height = 20
@ -167,7 +167,7 @@ inherited frmYarnOutList: TfrmYarnOutList
TabOrder = 0 TabOrder = 0
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 77 Left = 83
Top = 33 Top = 33
Width = 87 Width = 87
Height = 20 Height = 20
@ -177,37 +177,37 @@ inherited frmYarnOutList: TfrmYarnOutList
end end
object Y_Name: TEdit object Y_Name: TEdit
Tag = 2 Tag = 2
Left = 348 Left = 372
Top = 6 Top = 6
Width = 80 Width = 80
Height = 20 Height = 25
TabOrder = 2 TabOrder = 2
OnChange = TBFindClick OnChange = TBFindClick
end end
object BYIOID: TEdit object BYIOID: TEdit
Tag = 2 Tag = 2
Left = 232 Left = 248
Top = 6 Top = 6
Width = 80 Width = 80
Height = 20 Height = 25
TabOrder = 3 TabOrder = 3
OnChange = BYIOIDChange OnChange = BYIOIDChange
end end
object Y_spec: TEdit object Y_spec: TEdit
Tag = 2 Tag = 2
Left = 348 Left = 372
Top = 33 Top = 33
Width = 80 Width = 80
Height = 20 Height = 25
TabOrder = 4 TabOrder = 4
OnChange = Y_specChange OnChange = Y_specChange
end end
object IOType: TComboBox object IOType: TComboBox
Tag = 2 Tag = 2
Left = 232 Left = 248
Top = 33 Top = 33
Width = 80 Width = 80
Height = 20 Height = 25
Style = csDropDownList Style = csDropDownList
DropDownCount = 20 DropDownCount = 20
TabOrder = 5 TabOrder = 5
@ -223,13 +223,14 @@ inherited frmYarnOutList: TfrmYarnOutList
end end
object cxGrid2: TcxGrid [2] object cxGrid2: TcxGrid [2]
Left = 0 Left = 0
Top = 99 Top = 106
Width = 1193 Width = 1193
Height = 445 Height = 438
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 100 ExplicitTop = 99
ExplicitHeight = 445
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -517,6 +518,13 @@ inherited frmYarnOutList: TfrmYarnOutList
GridView = Tv1 GridView = Tv1
end end
end end
inherited cxProgressBar2: TcxProgressBar
Left = 280
Top = 137
ExplicitLeft = 280
ExplicitTop = 137
ExplicitHeight = 25
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_YarnStk.ADOLink Connection = DataLink_YarnStk.ADOLink
Left = 321 Left = 321

2
B02基础纱线仓库/U_YarnOutList.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations; dxScrollbarAnnotations, cxContainer, cxProgressBar;
type type
TfrmYarnOutList = class(TfrmBaseList) TfrmYarnOutList = class(TfrmBaseList)

66
B02基础纱线仓库/U_YarnStkList.dfm
View File

@ -8,7 +8,7 @@ inherited frmYarnStkList: TfrmYarnStkList
ExplicitWidth = 1416 ExplicitWidth = 1416
ExplicitHeight = 511 ExplicitHeight = 511
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 17
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -30,7 +30,7 @@ inherited frmYarnStkList: TfrmYarnStkList
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 3
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -78,88 +78,91 @@ inherited frmYarnStkList: TfrmYarnStkList
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1400 Width = 1400
Height = 36 Height = 43
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 4
object Label3: TLabel object Label3: TLabel
Left = 190 Left = 194
Top = 12 Top = 12
Width = 24 Width = 24
Height = 12 Height = 17
Caption = #21697#21517 Caption = #21697#21517
end end
object Label4: TLabel object Label4: TLabel
Left = 46 Left = 46
Top = 12 Top = 12
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #26469#33258#21333#20301 Caption = #26469#33258#21333#20301
end end
object Label8: TLabel object Label8: TLabel
Left = 332 Left = 343
Top = 12 Top = 12
Width = 24 Width = 24
Height = 12 Height = 17
Caption = #35268#26684 Caption = #35268#26684
end end
object Label2: TLabel object Label2: TLabel
Left = 473 Left = 492
Top = 12 Top = 12
Width = 36 Width = 32
Height = 12 Height = 17
Caption = #25209' '#21495 Caption = #25209' '#21495
end end
object Y_name: TEdit object Y_name: TEdit
Tag = 2 Tag = 2
Left = 217 Left = 228
Top = 8 Top = 8
Width = 100 Width = 100
Height = 20 Height = 25
TabOrder = 0 TabOrder = 0
OnChange = TBFindClick OnChange = TBFindClick
end end
object FromCoName: TEdit object FromCoName: TEdit
Tag = 2 Tag = 2
Left = 100 Left = 104
Top = 8 Top = 8
Width = 78 Width = 78
Height = 20 Height = 25
TabOrder = 1 TabOrder = 1
OnChange = FromCoNameChange OnChange = FromCoNameChange
end end
object Y_spec: TEdit object Y_spec: TEdit
Tag = 2 Tag = 2
Left = 359 Left = 378
Top = 8 Top = 8
Width = 100 Width = 100
Height = 20 Height = 25
TabOrder = 2 TabOrder = 2
OnChange = TBFindClick OnChange = TBFindClick
end end
object BatchNo: TEdit object BatchNo: TEdit
Tag = 2 Tag = 2
Left = 512 Left = 540
Top = 8 Top = 8
Width = 78 Width = 78
Height = 20 Height = 25
TabOrder = 3 TabOrder = 3
OnChange = FromCoNameChange OnChange = FromCoNameChange
end end
end end
object cxGrid2: TcxGrid [2] object cxGrid2: TcxGrid [2]
Left = 0 Left = 0
Top = 74 Top = 81
Width = 1400 Width = 1400
Height = 398 Height = 391
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 74
ExplicitHeight = 398
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -220,6 +223,7 @@ inherited frmYarnStkList: TfrmYarnStkList
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 87 Width = 87
@ -228,6 +232,7 @@ inherited frmYarnStkList: TfrmYarnStkList
Tag = 2 Tag = 2
Caption = #26469#33258#21333#20301 Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName' DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = < Properties.Buttons = <
@ -243,6 +248,7 @@ inherited frmYarnStkList: TfrmYarnStkList
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName' DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
@ -250,6 +256,7 @@ inherited frmYarnStkList: TfrmYarnStkList
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #21697#29260 Caption = #21697#29260
DataBinding.FieldName = 'Brand' DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 90 Width = 90
@ -258,6 +265,7 @@ inherited frmYarnStkList: TfrmYarnStkList
Tag = 2 Tag = 2
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'Y_Name' DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -272,6 +280,7 @@ inherited frmYarnStkList: TfrmYarnStkList
Tag = 2 Tag = 2
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec' DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -280,6 +289,7 @@ inherited frmYarnStkList: TfrmYarnStkList
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition' DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 82 Width = 82
@ -287,6 +297,7 @@ inherited frmYarnStkList: TfrmYarnStkList
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'Y_Color' DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
@ -294,6 +305,7 @@ inherited frmYarnStkList: TfrmYarnStkList
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = 'D'#25968 Caption = 'D'#25968
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
@ -301,6 +313,7 @@ inherited frmYarnStkList: TfrmYarnStkList
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 124 Width = 124
@ -308,6 +321,7 @@ inherited frmYarnStkList: TfrmYarnStkList
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #31665'/'#20214 Caption = #31665'/'#20214
DataBinding.FieldName = 'StkPiece' DataBinding.FieldName = 'StkPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 64 Width = 64
end end
@ -315,6 +329,7 @@ inherited frmYarnStkList: TfrmYarnStkList
Tag = 2 Tag = 2
Caption = #24211#23384#25968#37327 Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'stkqty' DataBinding.FieldName = 'stkqty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -324,6 +339,7 @@ inherited frmYarnStkList: TfrmYarnStkList
Tag = 2 Tag = 2
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -337,6 +353,7 @@ inherited frmYarnStkList: TfrmYarnStkList
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #24211#20301 Caption = #24211#20301
DataBinding.FieldName = 'StkPosition' DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
@ -344,6 +361,7 @@ inherited frmYarnStkList: TfrmYarnStkList
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
@ -351,6 +369,7 @@ inherited frmYarnStkList: TfrmYarnStkList
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #29992#36884 Caption = #29992#36884
DataBinding.FieldName = 'Y_Use' DataBinding.FieldName = 'Y_Use'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 58 Width = 58
end end
@ -359,6 +378,9 @@ inherited frmYarnStkList: TfrmYarnStkList
GridView = Tv1 GridView = Tv1
end end
end end
inherited cxProgressBar2: TcxProgressBar
ExplicitHeight = 25
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_YarnStk.ADOLink Connection = DataLink_YarnStk.ADOLink
Left = 305 Left = 305

3
B02基础纱线仓库/U_YarnStkList.pas
View File

@ -12,7 +12,8 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer,
dxScrollbarAnnotations, cxProgressBar;
type type
TfrmYarnStkList = class(TfrmBaseList) TfrmYarnStkList = class(TfrmBaseList)

4
B02基础纱线仓库/YarnStk.dpr
View File

@ -35,7 +35,9 @@ uses
U_CPSelBig in 'U_CPSelBig.pas' {frmCPSelBig}, U_CPSelBig in 'U_CPSelBig.pas' {frmCPSelBig},
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet}, U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint}, U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas';
{$R *.res} {$R *.res}

4
B02基础纱线仓库/YarnStk.dproj
View File

@ -124,7 +124,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <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> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10szHengYan\B02基础纱线仓库\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\Dp10RepoV10\项目代码\D10szXingjie\B02基础纱线仓库\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">
@ -222,6 +222,8 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/> <DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

42
B02基础纱线仓库/YarnStk.dproj.local
View File

@ -7,13 +7,14 @@
<Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.643,=D:\Dp10RepoV10\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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
@ -21,39 +22,40 @@
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.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.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.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.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.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.024,=D:\Dp10RepoV10\public10\design\U_cxGridCustomSet.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.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.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.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.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.341,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.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.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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>2025-04-11 13:34:13.341,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -84,7 +86,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10szHengYan"/> <File Path="..\..\D10szXingjie"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
@ -106,7 +108,7 @@
<File Path="..\A00通用窗体\U_ClothPurchasePlanSel.dfm"/> <File Path="..\A00通用窗体\U_ClothPurchasePlanSel.dfm"/>
<File Path="..\A00通用窗体\U_YarnPurchasePlanSel.pas"/> <File Path="..\A00通用窗体\U_YarnPurchasePlanSel.pas"/>
<File Path="..\A00通用窗体\U_YarnPurchasePlanSel.dfm"/> <File Path="..\A00通用窗体\U_YarnPurchasePlanSel.dfm"/>
<File Path="D:\Dp10Repo"/> <File Path="D:\Dp10RepoV10"/>
<File Path="..\..\..\public10"/> <File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/> <File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/> <File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
@ -118,6 +120,8 @@
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/> <File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/> <File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/> <File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<File Path="..\..\..\public10\ThreeFun"/> <File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Form"/> <File Path="..\..\..\public10\ThreeFun\Form"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/> <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>

BIN
B02基础纱线仓库/YarnStk.identcache
View File

Binary file not shown.

BIN
B02基础纱线仓库/testDll.identcache
View File

Binary file not shown.

4821
E00梭织通用窗体/U_TatCardSel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

120
E00梭织通用窗体/U_TatPlanSel.dfm
View File

@ -65,13 +65,13 @@ inherited frmTatPlanSel: TfrmTatPlanSel
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1540 Width = 1540
Height = 59 Height = 67
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
object Label3: TLabel object Label3: TLabel
Left = 39 Left = 295
Top = 10 Top = 10
Width = 52 Width = 52
Height = 12 Height = 12
@ -84,7 +84,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 243 Left = 499
Top = 10 Top = 10
Width = 52 Width = 52
Height = 12 Height = 12
@ -97,7 +97,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 447 Left = 703
Top = 10 Top = 10
Width = 26 Width = 26
Height = 12 Height = 12
@ -110,7 +110,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 447 Left = 703
Top = 37 Top = 37
Width = 26 Width = 26
Height = 12 Height = 12
@ -123,7 +123,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 620 Left = 876
Top = 10 Top = 10
Width = 26 Width = 26
Height = 12 Height = 12
@ -136,7 +136,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 243 Left = 499
Top = 37 Top = 37
Width = 52 Width = 52
Height = 12 Height = 12
@ -149,7 +149,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
ParentFont = False ParentFont = False
end end
object Label8: TLabel object Label8: TLabel
Left = 38 Left = 294
Top = 37 Top = 37
Width = 53 Width = 53
Height = 12 Height = 12
@ -162,7 +162,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 620 Left = 876
Top = 37 Top = 37
Width = 26 Width = 26
Height = 12 Height = 12
@ -174,9 +174,22 @@ inherited frmTatPlanSel: TfrmTatPlanSel
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label9: TLabel
Left = 26
Top = 9
Width = 52
Height = 12
Caption = #19979#21333#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrderNo: TEdit object OrderNo: TEdit
Tag = 2 Tag = 2
Left = 97 Left = 353
Top = 6 Top = 6
Width = 120 Width = 120
Height = 20 Height = 20
@ -185,7 +198,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
end end
object C_Name: TEdit object C_Name: TEdit
Tag = 2 Tag = 2
Left = 301 Left = 557
Top = 6 Top = 6
Width = 120 Width = 120
Height = 20 Height = 20
@ -194,7 +207,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
end end
object C_Color: TEdit object C_Color: TEdit
Tag = 2 Tag = 2
Left = 476 Left = 732
Top = 6 Top = 6
Width = 120 Width = 120
Height = 20 Height = 20
@ -203,7 +216,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
end end
object C_ColorNo: TEdit object C_ColorNo: TEdit
Tag = 2 Tag = 2
Left = 476 Left = 732
Top = 33 Top = 33
Width = 120 Width = 120
Height = 20 Height = 20
@ -212,7 +225,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
end end
object C_Pattern: TEdit object C_Pattern: TEdit
Tag = 2 Tag = 2
Left = 649 Left = 905
Top = 6 Top = 6
Width = 120 Width = 120
Height = 20 Height = 20
@ -221,7 +234,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
end end
object C_Code: TEdit object C_Code: TEdit
Tag = 2 Tag = 2
Left = 300 Left = 556
Top = 33 Top = 33
Width = 120 Width = 120
Height = 20 Height = 20
@ -230,7 +243,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
end end
object ConNo: TEdit object ConNo: TEdit
Tag = 2 Tag = 2
Left = 97 Left = 353
Top = 33 Top = 33
Width = 120 Width = 120
Height = 20 Height = 20
@ -239,24 +252,48 @@ inherited frmTatPlanSel: TfrmTatPlanSel
end end
object CustName: TEdit object CustName: TEdit
Tag = 2 Tag = 2
Left = 649 Left = 905
Top = 33 Top = 33
Width = 120 Width = 120
Height = 20 Height = 20
TabOrder = 7 TabOrder = 7
OnChange = OrderNoChange OnChange = OrderNoChange
end end
object BegDate: TDateTimePicker
Left = 95
Top = 6
Width = 120
Height = 20
Date = 44378.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464742650459811600
TabOrder = 8
OnChange = BegDateChange
end
object EndDate: TDateTimePicker
Left = 95
Top = 33
Width = 120
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
TabOrder = 9
OnChange = EndDateChange
end
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 97 Top = 105
Width = 1540 Width = 1540
Height = 546 Height = 538
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 111
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -272,21 +309,31 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object v1Column7: TcxGridDBColumn object v1Column7: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'Ssel' DataBinding.FieldName = 'Ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 56 Width = 56
end end
object Tv1Column6: TcxGridDBColumn
Caption = #19979#21333#26085#26399
DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'CustName' DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object v1OrderNo: TcxGridDBColumn object v1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #32455#36896#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -295,6 +342,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object v1ConNo: TcxGridDBColumn object v1ConNo: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -303,6 +351,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object v1DeliveryDate: TcxGridDBColumn object v1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399 Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate' DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False Properties.ShowTime = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -313,6 +362,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
@ -320,17 +370,20 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #24037#33402 Caption = #24037#33402
DataBinding.FieldName = 'Technics' DataBinding.FieldName = 'Technics'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #21152#24037#21378 Caption = #21152#24037#21378
DataBinding.FieldName = 'FtyName' DataBinding.FieldName = 'FtyName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 138 Width = 138
end end
object v1OrdDefStr1: TcxGridDBColumn object v1OrdDefStr1: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -339,6 +392,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object v1MPRTCodeName: TcxGridDBColumn object v1MPRTCodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -347,6 +401,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object v1MPRTSpec: TcxGridDBColumn object v1MPRTSpec: TcxGridDBColumn
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'C_Spec' DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -355,6 +410,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'C_Composition' DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -362,6 +418,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object v1MPRTMF: TcxGridDBColumn object v1MPRTMF: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -370,6 +427,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object v1MPRTKZ: TcxGridDBColumn object v1MPRTKZ: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -378,6 +436,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object v1PRTColor: TcxGridDBColumn object v1PRTColor: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -386,6 +445,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -394,6 +454,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -402,12 +463,14 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #35745#21010#21305#25968 Caption = #35745#21010#21305#25968
DataBinding.FieldName = 'OrdPiece' DataBinding.FieldName = 'OrdPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 87 Width = 87
end end
object v1PRTOrderQty: TcxGridDBColumn object v1PRTOrderQty: TcxGridDBColumn
Caption = #35745#21010#25968#37327 Caption = #35745#21010#25968#37327
DataBinding.FieldName = 'OrdQty' DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -416,6 +479,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #25968#37327#21333#20301 Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrdUnit' DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -424,6 +488,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #20844#26020#25968 Caption = #20844#26020#25968
DataBinding.FieldName = 'PRTOrderKgQty' DataBinding.FieldName = 'PRTOrderKgQty'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -432,6 +497,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'OrdSNote' DataBinding.FieldName = 'OrdSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -444,12 +510,12 @@ inherited frmTatPlanSel: TfrmTatPlanSel
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1
Left = 297 Left = 297
Top = 128 Top = 304
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1
Left = 193 Left = 217
Top = 129 Top = 313
end end
inherited ImageList_new32: TImageList inherited ImageList_new32: TImageList
Left = 344 Left = 344
@ -1022,8 +1088,8 @@ inherited frmTatPlanSel: TfrmTatPlanSel
end end
object ADOConnection1: TADOConnection object ADOConnection1: TADOConnection
LoginPrompt = False LoginPrompt = False
Left = 624 Left = 656
Top = 168 Top = 376
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
PopupMenus = <> PopupMenus = <>
@ -4741,8 +4807,8 @@ inherited frmTatPlanSel: TfrmTatPlanSel
000000000000} 000000000000}
end end
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
Left = 504 Left = 536
Top = 144 Top = 392
PixelsPerInch = 96 PixelsPerInch = 96
object cxStyle1: TcxStyle object cxStyle1: TcxStyle
AssignedValues = [svFont] AssignedValues = [svFont]

25
E00梭织通用窗体/U_TatPlanSel.pas
View File

@ -11,7 +11,7 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox,
cxCalendar; cxCalendar, dxScrollbarAnnotations;
type type
TfrmTatPlanSel = class(TfrmBaseHelp) TfrmTatPlanSel = class(TfrmBaseHelp)
@ -71,6 +71,10 @@ type
ConNo: TEdit; ConNo: TEdit;
Label1: TLabel; Label1: TLabel;
CustName: TEdit; CustName: TEdit;
Label9: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Tv1Column6: TcxGridDBColumn;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -80,6 +84,8 @@ type
procedure OrderNoChange(Sender: TObject); procedure OrderNoChange(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure Tv1DblClick(Sender: TObject); procedure Tv1DblClick(Sender: TObject);
procedure BegDateChange(Sender: TObject);
procedure EndDateChange(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
@ -110,11 +116,26 @@ begin
end; end;
ADOQueryBaseCmd.Connection := ADOConnection1; ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1; ADOQueryBaseTemp.Connection := ADOConnection1;
BegDate.Datetime := Date - 6;
EndDate.Datetime := Date;
except except
application.MessageBox('网络连接失败！', '提示信息'); application.MessageBox('网络连接失败！', '提示信息');
end; end;
end; end;
procedure TfrmTatPlanSel.BegDateChange(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatPlanSel.EndDateChange(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatPlanSel.FormDestroy(Sender: TObject); procedure TfrmTatPlanSel.FormDestroy(Sender: TObject);
begin begin
inherited; inherited;
@ -136,6 +157,8 @@ begin
sql.Clear; sql.Clear;
sql.Add('select * from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.MainId=B.MainId'); sql.Add('select * from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.MainId=B.MainId');
sql.Add(' where isnull(A.status,''0'')=''9'' '); sql.Add(' where isnull(A.status,''0'')=''9'' ');
sql.Add(' and A.OrdDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.OrdDate<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
// ShowMessage(sql.Text); // ShowMessage(sql.Text);
Open; Open;

2
E01梭织生产计划/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXingjie\E01梭织生产计划\TatPlan.dproj"/> <Projects ActiveProject="D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\TatPlan.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

2
E01梭织生产计划/ProjectGroup1_prjgroup.tvsconfig Normal file
View File

@ -0,0 +1,2 @@
<?xml version="1.0"?>
<TgConfig Version="3" SubLevelDisabled="False" />

20
E01梭织生产计划/TatPlan.dpr
View File

@ -11,8 +11,6 @@ uses
U_DataLink in 'U_DataLink.pas' {DataLink_TatPlan: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_TatPlan: TDataModule},
U_iniParam in 'U_iniParam.pas', U_iniParam in 'U_iniParam.pas',
U_BaseHelp in '..\..\..\public10\design\U_BaseHelp.pas' {frmBaseHelp}, U_BaseHelp in '..\..\..\public10\design\U_BaseHelp.pas' {frmBaseHelp},
U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList},
U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas', U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas',
U_globalVar in '..\..\..\public10\design\U_globalVar.pas', U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas', U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
@ -25,19 +23,29 @@ uses
U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel}, U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
U_TatCardInPut in 'U_TatCardInPut.pas' {frmTatCardInPut}, U_TatCardInPut in 'U_TatCardInPut.pas' {frmTatCardInPut},
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet}, U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_YarnInfoSel in '..\A00通用窗体\U_YarnInfoSel.pas' {frmYarnInfoSel}, U_YarnInfoSel in '..\A00通用窗体\U_YarnInfoSel.pas' {frmYarnInfoSel},
U_TatWBCardInPut in 'U_TatWBCardInPut.pas' {frmTatWBCardInPut}, U_TatWBCardInPutXIUGAI in 'U_TatWBCardInPutXIUGAI.pas' {frmTatWBCardInPutXIUGAI},
U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel}, U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel},
U_TatPlanCard in 'U_TatPlanCard.pas' {frmTatPlanCard}, U_TatPlanCard in 'U_TatPlanCard.pas' {frmTatPlanCard},
U_TatPlanSel in '..\E00梭织通用窗体\U_TatPlanSel.pas' {frmTatPlanSel},
U_TatOutputList in 'U_TatOutputList.pas' {frmTatOutputList}, U_TatOutputList in 'U_TatOutputList.pas' {frmTatOutputList},
U_WBSpecEditSel in 'U_WBSpecEditSel.pas' {frmWBSpecEditSel}, U_WBSpecEditSel in 'U_WBSpecEditSel.pas' {frmWBSpecEditSel},
U_WBSpecInPut in 'U_WBSpecInPut.pas' {frmYarnInfoInPut}, U_WBSpecInPut in 'U_WBSpecInPut.pas' {frmYarnInfoInPut},
U_YarnStkSel in 'U_YarnStkSel.pas' {frmYarnStkSel}, U_YarnStkSel in 'U_YarnStkSel.pas' {frmYarnStkSel},
U_TatPlanMachInput in 'U_TatPlanMachInput.pas' {frmTatPlanMachInput}, U_TatPlanMachInput in 'U_TatPlanMachInput.pas' {frmTatPlanMachInput},
U_TatPlanMachList in 'U_TatPlanMachList.pas' {frmTatPlanMachList}, U_TatPlanMachList in 'U_TatPlanMachList.pas' {frmTatPlanMachList},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
U_SalesContractSel in '..\A00通用窗体\U_SalesContractSel.pas' {frmSalesContractSel},
U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList},
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_TatWBPlanCard in 'U_TatWBPlanCard.pas' {frmTatWBPlanCard},
U_TatPlan_ZOUKA_Sel in 'U_TatPlan_ZOUKA_Sel.pas' {frmTatPlan_ZOUKA_Sel},
U_TatPlanSel in '..\E00梭织通用窗体\U_TatPlanSel.pas' {frmTatPlanSel},
U_TatPlanInPut in 'U_TatPlanInPut.pas' {frmTatPlanInPut},
U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
U_TatWBCardInPut in 'U_TatWBCardInPut.pas' {frmTatWBCardInPut},
U_TatDCGCLCXList in 'U_TatDCGCLCXList.pas' {frmTatDCGCLCXList};
{$R *.res} {$R *.res}

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

@ -124,7 +124,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <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> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10szXingjie\E01梭织生产计划\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">
@ -140,14 +140,6 @@
<Form>frmBaseHelp</Form> <Form>frmBaseHelp</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseInput.pas">
<Form>frmBaseInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseList.pas">
<Form>frmBaseList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/> <DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/> <DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/> <DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
@ -181,16 +173,12 @@
<Form>frmLabelMapSet</Form> <Form>frmLabelMapSet</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\A00通用窗体\U_LabelPrint.pas">
<Form>frmLabelPrint</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_YarnInfoSel.pas"> <DCCReference Include="..\A00通用窗体\U_YarnInfoSel.pas">
<Form>frmYarnInfoSel</Form> <Form>frmYarnInfoSel</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_TatWBCardInPut.pas"> <DCCReference Include="U_TatWBCardInPutXIUGAI.pas">
<Form>frmTatWBCardInPut</Form> <Form>frmTatWBCardInPutXIUGAI</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\A00通用窗体\U_TatClothInfoSel.pas"> <DCCReference Include="..\A00通用窗体\U_TatClothInfoSel.pas">
@ -201,10 +189,6 @@
<Form>frmTatPlanCard</Form> <Form>frmTatPlanCard</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\E00梭织通用窗体\U_TatPlanSel.pas">
<Form>frmTatPlanSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatOutputList.pas"> <DCCReference Include="U_TatOutputList.pas">
<Form>frmTatOutputList</Form> <Form>frmTatOutputList</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
@ -230,6 +214,48 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/> <DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<DCCReference Include="..\A00通用窗体\U_SalesContractSel.pas">
<Form>frmSalesContractSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseList.pas">
<Form>frmBaseList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_LabelPrint.pas">
<Form>frmLabelPrint</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatWBPlanCard.pas">
<Form>frmTatWBPlanCard</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatPlan_ZOUKA_Sel.pas">
<Form>frmTatPlan_ZOUKA_Sel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\E00梭织通用窗体\U_TatPlanSel.pas">
<Form>frmTatPlanSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatPlanInPut.pas">
<Form>frmTatPlanInPut</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseInput.pas">
<Form>frmBaseInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatWBCardInPut.pas">
<Form>frmTatWBCardInPut</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatDCGCLCXList.pas">
<Form>frmTatDCGCLCXList</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

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

@ -1,51 +1,78 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.900,=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.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.117,D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.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.217,=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.500,=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.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.161,D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.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.998,=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.072,=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.303,D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.649,D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.163,=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.903,=D:\Dp10RepoV10\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.643,D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatWBCardInPutXIUGAI.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatWBCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.998,D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.776,=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.392,D:\Dp10RepoV10\项目代码\D10szXingjie\E03梭织坯布检验\U_TatDCGCLCXList.pas=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.990,=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatCardSel.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.044,D:\Dp10RepoV10\项目代码\D10szXingjie\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatPlan_ZOUKA_Sel.dfm</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.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.374,=D:\Dp10RepoV10\项目代码\D10szXingjie\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.644,D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatWBCardInPutXIUGAI.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.257,=D:\Dp10RepoV10\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.129,=D:\Dp10RepoV10\项目代码\D10szXingjie\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.044,D:\Dp10RepoV10\项目代码\D10szXingjie\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatPlan_ZOUKA_Sel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.961,=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.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.384,=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatWBPlanCard.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.392,D:\Dp10RepoV10\项目代码\D10szXingjie\E03梭织坯布检验\U_TatDCGCLCXList.dfm=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.dfm</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.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.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.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -90,14 +117,16 @@
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/> <File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/> <File Path="..\A00通用窗体\U_LabelPrint.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/> <File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.pas"/> <File Path="..\A00通用窗体\U_SalesContractSel.pas"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/> <File Path="..\A00通用窗体\U_SalesContractSel.dfm"/>
<File Path="..\A00通用窗体\U_TatClothInfoSel.pas"/> <File Path="..\A00通用窗体\U_TatClothInfoSel.pas"/>
<File Path="..\A00通用窗体\U_TatClothInfoSel.dfm"/> <File Path="..\A00通用窗体\U_TatClothInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.pas"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
<File Path="..\E00梭织通用窗体"/> <File Path="..\E00梭织通用窗体"/>
<File Path="..\E00梭织通用窗体\U_TatPlanSel.pas"/> <File Path="..\E00梭织通用窗体\U_TatPlanSel.pas"/>
<File Path="..\E00梭织通用窗体\U_TatPlanSel.dfm"/> <File Path="..\E00梭织通用窗体\U_TatPlanSel.dfm"/>
<File Path="D:\Dp10Repo"/> <File Path="D:\Dp10RepoV10"/>
<File Path="..\..\..\public10"/> <File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/> <File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/> <File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
@ -107,6 +136,8 @@
<File Path="..\..\..\public10\design\U_BaseList.pas"/> <File Path="..\..\..\public10\design\U_BaseList.pas"/>
<File Path="..\..\..\public10\design\U_BaseList.dfm"/> <File Path="..\..\..\public10\design\U_BaseList.dfm"/>
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/> <File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/> <File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/> <File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\ThreeFun"/> <File Path="..\..\..\public10\ThreeFun"/>
@ -114,17 +145,17 @@
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/> <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.dfm"/> <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.dfm"/>
<File Path="..\..\..\public10\ThreeFun\Fun"/> <File Path="..\..\..\public10\ThreeFun\Fun"/>
<File Path="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/> <File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/> <File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<File Path="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/> <File Path="U_GetDllForm.pas"/>
<File Path="U_DataLink.pas"/> <File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/> <File Path="U_DataLink.dfm"/>
<File Path="U_GetDllForm.pas"/>
<File Path="U_iniParam.pas"/> <File Path="U_iniParam.pas"/>
<File Path="U_TatCardInPut.pas"/> <File Path="U_TatCardInPut.pas"/>
<File Path="U_TatCardInPut.dfm"/> <File Path="U_TatCardInPut.dfm"/>
<File Path="U_TatWBCardInPut.pas"/> <File Path="U_TatWBCardInPutXIUGAI.pas"/>
<File Path="U_TatWBCardInPut.dfm"/> <File Path="U_TatWBCardInPutXIUGAI.dfm"/>
<File Path="U_TatPlanCard.pas"/> <File Path="U_TatPlanCard.pas"/>
<File Path="U_TatPlanCard.dfm"/> <File Path="U_TatPlanCard.dfm"/>
<File Path="U_TatOutputList.pas"/> <File Path="U_TatOutputList.pas"/>
@ -139,5 +170,15 @@
<File Path="U_TatPlanMachInput.dfm"/> <File Path="U_TatPlanMachInput.dfm"/>
<File Path="U_TatPlanMachList.pas"/> <File Path="U_TatPlanMachList.pas"/>
<File Path="U_TatPlanMachList.dfm"/> <File Path="U_TatPlanMachList.dfm"/>
<File Path="U_TatWBPlanCard.pas"/>
<File Path="U_TatWBPlanCard.dfm"/>
<File Path="U_TatPlan_ZOUKA_Sel.pas"/>
<File Path="U_TatPlan_ZOUKA_Sel.dfm"/>
<File Path="U_TatPlanInPut.pas"/>
<File Path="U_TatPlanInPut.dfm"/>
<File Path="U_TatWBCardInPut.pas"/>
<File Path="U_TatWBCardInPut.dfm"/>
<File Path="U_TatDCGCLCXList.pas"/>
<File Path="U_TatDCGCLCXList.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

BIN
E01梭织生产计划/TatPlan.identcache
View File

Binary file not shown.

21
E01梭织生产计划/U_GetDllForm.pas
View File

@ -16,7 +16,7 @@ implementation
uses uses
U_DataLink, U_iniParam, U_TatPlanList, U_TatPlanCard, U_TatWBPlanCard, U_DataLink, U_iniParam, U_TatPlanList, U_TatPlanCard, U_TatWBPlanCard,
U_TatOutputList, U_TatPlanMachList; U_TatOutputList, U_TatPlanMachList,U_TatDCGCLCXList; //
///////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 // // 功能说明:取Dll中得窗体 //
@ -75,6 +75,7 @@ begin
dtbase := 'xingjieData'; dtbase := 'xingjieData';
user := 'rtsa'; user := 'rtsa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DParameters1 := '管理'; DParameters1 := '管理';
end end
@ -125,7 +126,7 @@ begin
//调用子模块窗口 //调用子模块窗口
case FormID of case FormID of
111: //坯布生产计划单 111: //织造单管理
begin begin
with TfrmTatPlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTatPlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin begin
@ -137,7 +138,7 @@ begin
end; end;
end; end;
121: //尽机安排管理 {121: //尽机安排管理
begin begin
with TfrmTatPlanMachList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTatPlanMachList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin begin
@ -147,7 +148,7 @@ begin
BorderStyle := mborderstyle; BorderStyle := mborderstyle;
mnewHandle := Handle; mnewHandle := Handle;
end; end;
end; end;}
211: //轴卡管理 211: //轴卡管理
begin begin
@ -185,6 +186,18 @@ begin
end; end;
end; end;
333: //挡车工产量查询
begin
with TfrmTatDCGCLCXList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do
begin
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
10000: 10000:
begin begin
for i := 0 to application.MainForm.MDIChildCount - 1 do for i := 0 to application.MainForm.MDIChildCount - 1 do

140
E01梭织生产计划/U_TatCardInPut.dfm
View File

@ -2,26 +2,26 @@ inherited frmTatCardInPut: TfrmTatCardInPut
Left = 203 Left = 203
Top = 126 Top = 126
Caption = #24067#21305#23433#25490 Caption = #24067#21305#23433#25490
ClientHeight = 460 ClientHeight = 485
ClientWidth = 898 ClientWidth = 895
Color = clWhite Color = clWhite
Position = poScreenCenter Position = poScreenCenter
ExplicitWidth = 914 ExplicitWidth = 911
ExplicitHeight = 499 ExplicitHeight = 524
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 17
object Panel4: TPanel [0] object Panel4: TPanel [0]
Left = 553 Left = 553
Top = 0 Top = 0
Width = 345 Width = 342
Height = 460 Height = 485
Align = alClient Align = alClient
Caption = 'Panel4' Caption = 'Panel4'
TabOrder = 0 TabOrder = 0
object Panel1: TPanel object Panel1: TPanel
Left = 1 Left = 1
Top = 39 Top = 39
Width = 343 Width = 340
Height = 40 Height = 40
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -47,7 +47,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
Left = 77 Left = 77
Top = 9 Top = 9
Width = 81 Width = 81
Height = 21 Height = 25
TabOrder = 0 TabOrder = 0
OnChange = MCNOChange OnChange = MCNOChange
end end
@ -55,14 +55,15 @@ inherited frmTatCardInPut: TfrmTatCardInPut
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 79 Top = 79
Width = 343 Width = 340
Height = 380 Height = 405
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCustomDrawCell = Tv1CustomDrawCell OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
@ -95,6 +96,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #26426#21488#21495 Caption = #26426#21488#21495
DataBinding.FieldName = 'MCNO' DataBinding.FieldName = 'MCNO'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
@ -104,6 +106,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #26159#21542#23433#25490 Caption = #26159#21542#23433#25490
DataBinding.FieldName = 'isap' DataBinding.FieldName = 'isap'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 100 Width = 100
@ -111,6 +114,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #24635#26410#26816#39564#21305#25968 Caption = #24635#26410#26816#39564#21305#25968
DataBinding.FieldName = 'ZWJYPS' DataBinding.FieldName = 'ZWJYPS'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
@ -120,6 +124,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #26412#21333#26410#26816#39564#25968 Caption = #26412#21333#26410#26816#39564#25968
DataBinding.FieldName = 'BWJYPS' DataBinding.FieldName = 'BWJYPS'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
@ -135,7 +140,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
Tag = 1 Tag = 1
Left = 1 Left = 1
Top = 1 Top = 1
Width = 343 Width = 340
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -158,12 +163,12 @@ inherited frmTatCardInPut: TfrmTatCardInPut
Left = 0 Left = 0
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #35745#21010#21333 Caption = #36724#21345
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 83 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -171,7 +176,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
OnClick = ToolButton12Click OnClick = ToolButton12Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 178 Left = 166
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -184,13 +189,13 @@ inherited frmTatCardInPut: TfrmTatCardInPut
Left = 0 Left = 0
Top = 0 Top = 0
Width = 553 Width = 553
Height = 460 Height = 485
Align = alLeft Align = alLeft
Caption = 'Panel5' Caption = 'Panel5'
TabOrder = 1 TabOrder = 1
object Panel2: TPanel object Panel2: TPanel
Left = 1 Left = 1
Top = 73 Top = 49
Width = 551 Width = 551
Height = 112 Height = 112
Align = alTop Align = alTop
@ -297,7 +302,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
Left = 301 Left = 301
Top = 50 Top = 50
Width = 86 Width = 86
Height = 21 Height = 25
TabOrder = 2 TabOrder = 2
end end
object Repairer: TBtnEditC object Repairer: TBtnEditC
@ -305,7 +310,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
Left = 73 Left = 73
Top = 79 Top = 79
Width = 144 Width = 144
Height = 21 Height = 26
TabOrder = 3 TabOrder = 3
OnBtnUpClick = RepairerBtnUpClick OnBtnUpClick = RepairerBtnUpClick
OnBtnDnClick = RepairerBtnDnClick OnBtnDnClick = RepairerBtnDnClick
@ -315,7 +320,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
Left = 73 Left = 73
Top = 53 Top = 53
Width = 144 Width = 144
Height = 21 Height = 25
TabOrder = 4 TabOrder = 4
end end
object isDY: TComboBox object isDY: TComboBox
@ -349,13 +354,14 @@ inherited frmTatCardInPut: TfrmTatCardInPut
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 185 Top = 161
Width = 551 Width = 551
Height = 274 Height = 323
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2 DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost]
@ -372,6 +378,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
object TV2Column1: TcxGridDBColumn object TV2Column1: TcxGridDBColumn
Caption = #26426#21488#21495 Caption = #26426#21488#21495
DataBinding.FieldName = 'Loom' DataBinding.FieldName = 'Loom'
DataBinding.IsNullValueType = True
Visible = False Visible = False
GroupIndex = 0 GroupIndex = 0
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -381,6 +388,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
object TV2Column2: TcxGridDBColumn object TV2Column2: TcxGridDBColumn
Caption = #26426#20462 Caption = #26426#20462
DataBinding.FieldName = 'Repairer' DataBinding.FieldName = 'Repairer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 69 Width = 69
@ -388,6 +396,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
object TV2Column3: TcxGridDBColumn object TV2Column3: TcxGridDBColumn
Caption = #23433#25490#21305#25968 Caption = #23433#25490#21305#25968
DataBinding.FieldName = 'APPS' DataBinding.FieldName = 'APPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
@ -395,6 +404,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
object TV2Column4: TcxGridDBColumn object TV2Column4: TcxGridDBColumn
Caption = #25171#21360#21305#25968 Caption = #25171#21360#21305#25968
DataBinding.FieldName = 'DYPS' DataBinding.FieldName = 'DYPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 73 Width = 73
@ -402,6 +412,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
object TV2Column5: TcxGridDBColumn object TV2Column5: TcxGridDBColumn
Caption = #23436#25104#21305#25968 Caption = #23436#25104#21305#25968
DataBinding.FieldName = 'JYPS' DataBinding.FieldName = 'JYPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 75 Width = 75
@ -409,6 +420,8 @@ inherited frmTatCardInPut: TfrmTatCardInPut
object TV2Column6: TcxGridDBColumn object TV2Column6: TcxGridDBColumn
Caption = #23433#25490#26102#38388 Caption = #23433#25490#26102#38388
DataBinding.FieldName = 'APDate' DataBinding.FieldName = 'APDate'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -416,6 +429,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
object TV2Column7: TcxGridDBColumn object TV2Column7: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 85 Width = 85
@ -429,15 +443,15 @@ inherited frmTatCardInPut: TfrmTatCardInPut
Left = 1 Left = 1
Top = 1 Top = 1
Width = 551 Width = 551
Height = 72 Height = 48
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
object Label1: TLabel object Label1: TLabel
Left = 186 Left = 253
Top = 8 Top = 16
Width = 54 Width = 26
Height = 12 Height = 12
Caption = #32534' '#21495 Caption = #32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -446,11 +460,11 @@ inherited frmTatCardInPut: TfrmTatCardInPut
ParentFont = False ParentFont = False
end end
object Label12: TLabel object Label12: TLabel
Left = 341 Left = 408
Top = 7 Top = 16
Width = 61 Width = 26
Height = 12 Height = 12
Caption = #21697' '#21517 Caption = #21697#21517
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -460,10 +474,10 @@ inherited frmTatCardInPut: TfrmTatCardInPut
end end
object Label13: TLabel object Label13: TLabel
Left = 26 Left = 26
Top = 8 Top = 16
Width = 52 Width = 39
Height = 12 Height = 12
Caption = #29983#20135#21333#21495 Caption = #36724#21345#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -472,8 +486,8 @@ inherited frmTatCardInPut: TfrmTatCardInPut
ParentFont = False ParentFont = False
end end
object Label21: TLabel object Label21: TLabel
Left = 178 Left = 186
Top = 44 Top = 108
Width = 65 Width = 65
Height = 12 Height = 12
Caption = #26410#23433#25490#21305#25968 Caption = #26410#23433#25490#21305#25968
@ -483,10 +497,11 @@ inherited frmTatCardInPut: TfrmTatCardInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label9: TLabel object Label9: TLabel
Left = 17 Left = 25
Top = 45 Top = 109
Width = 65 Width = 65
Height = 12 Height = 12
Caption = #24050#23433#25490#21305#25968 Caption = #24050#23433#25490#21305#25968
@ -496,23 +511,24 @@ inherited frmTatCardInPut: TfrmTatCardInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object edtName: TEdit object edtName: TEdit
Tag = 2 Tag = 2
Left = 408 Left = 441
Top = 2 Top = 10
Width = 90 Width = 105
Height = 21 Height = 25
ReadOnly = True ReadOnly = True
TabOrder = 0 TabOrder = 0
OnChange = MCNOChange OnChange = MCNOChange
end end
object edtCode: TEdit object edtCode: TEdit
Tag = 2 Tag = 2
Left = 245 Left = 285
Top = 3 Top = 10
Width = 90 Width = 117
Height = 21 Height = 25
ReadOnly = True ReadOnly = True
TabOrder = 1 TabOrder = 1
OnChange = MCNOChange OnChange = MCNOChange
@ -520,31 +536,39 @@ inherited frmTatCardInPut: TfrmTatCardInPut
object edtConNo: TEdit object edtConNo: TEdit
Tag = 2 Tag = 2
Left = 84 Left = 84
Top = 3 Top = 11
Width = 90 Width = 157
Height = 21 Height = 25
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
ReadOnly = True ReadOnly = True
TabOrder = 2 TabOrder = 2
OnChange = MCNOChange OnChange = MCNOChange
end end
object edtWAPPS: TEdit object edtWAPPS: TEdit
Tag = 2 Tag = 2
Left = 245 Left = 253
Top = 41 Top = 105
Width = 90 Width = 90
Height = 21 Height = 25
ReadOnly = True ReadOnly = True
TabOrder = 3 TabOrder = 3
Visible = False
OnChange = MCNOChange OnChange = MCNOChange
end end
object edtYAPPS: TEdit object edtYAPPS: TEdit
Tag = 2 Tag = 2
Left = 82 Left = 90
Top = 40 Top = 104
Width = 90 Width = 90
Height = 21 Height = 25
ReadOnly = True ReadOnly = True
TabOrder = 4 TabOrder = 4
Visible = False
OnChange = MCNOChange OnChange = MCNOChange
end end
end end
@ -563,6 +587,12 @@ inherited frmTatCardInPut: TfrmTatCardInPut
Left = 272 Left = 272
Top = 416 Top = 416
end end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 336
Top = 289
DesignInfo = 18940240
end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid2 Grid = cxGrid2
PopupMenus = <> PopupMenus = <>

113
E01梭织生产计划/U_TatCardInPut.pas
View File

@ -12,7 +12,8 @@ uses
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox,
BtnEdit, cxPC, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, BtnEdit, cxPC, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
U_BaseList, Vcl.Menus, U_BaseInput, System.ImageList, Vcl.ImgList; U_BaseList, Vcl.Menus, U_BaseInput, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, cxImageList;
type type
TfrmTatCardInPut = class(TfrmBaseInput) TfrmTatCardInPut = class(TfrmBaseInput)
@ -112,7 +113,7 @@ var
implementation implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatPlanSel; U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatPlan_ZOUKA_Sel;
{$R *.dfm} {$R *.dfm}
procedure TfrmTatCardInPut.InitOrd(); procedure TfrmTatCardInPut.InitOrd();
@ -122,19 +123,19 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select A.*,B.* '); sql.Add(' select A.* '); //,B.*
sql.Add(' ,YAPPS=ISNULL((select count(*) from Tat_Plan_Card X where X.MainId=A.MainId and isnull(Status,''0'') <>''-1'' ),0)'); // sql.Add(' ,YAPPS=ISNULL((select count(*) from Tat_Plan_Card X where X.MainId=A.MainId and isnull(Status,''0'') <>''-1'' ),0)');
sql.Add(' ,WAPPS=OrdPiece-ISNULL((select count(*) from Tat_Plan_Card X where X.MainId=A.MainId and isnull(Status,''0'') <>''-1''),0)'); // sql.Add(' ,WAPPS=OrdPiece-ISNULL((select count(*) from Tat_Plan_Card X where X.MainId=A.MainId and isnull(Status,''0'') <>''-1''),0)');
sql.Add(' from Tat_Plan_Main A'); sql.Add(' from Tat_WB_Card A');
sql.Add(' inner join Tat_Plan_Sub B on A.MainId=B.MainId '); // sql.Add(' inner join Tat_Plan_Sub B on A.MainId=B.MainId ');
sql.Add(' where B.SubId=' + QuotedStr(FSubId)); sql.Add(' where A.WBCID=' + QuotedStr(FWBCID));
Open; Open;
end; end;
edtConNo.Text := ADOQueryTemp.FieldByName('OrderNo').AsString; edtConNo.Text := ADOQueryTemp.FieldByName('WBCID').AsString;
edtCode.Text := ADOQueryTemp.FieldByName('C_Code').AsString; edtCode.Text := ADOQueryTemp.FieldByName('WB_Clothcode').AsString;
edtName.Text := ADOQueryTemp.FieldByName('C_Name').AsString; edtName.Text := ADOQueryTemp.FieldByName('WB_ClothName').AsString;
edtYAPPS.Text := ADOQueryTemp.FieldByName('YAPPS').AsString; // edtYAPPS.Text := ADOQueryTemp.FieldByName('YAPPS').AsString;
edtWAPPS.Text := ADOQueryTemp.FieldByName('WAPPS').AsString; // edtWAPPS.Text := ADOQueryTemp.FieldByName('WAPPS').AsString;
end; end;
procedure TfrmTatCardInPut.RepairerBtnDnClick(Sender: TObject); procedure TfrmTatCardInPut.RepairerBtnDnClick(Sender: TObject);
@ -173,9 +174,9 @@ begin
sql.Add(' select * '); sql.Add(' select * ');
sql.Add(' ,ZWJYPS=(select count(X.Loom) from Tat_Plan_Card X where X.Loom =AA.MCNO and isnull(Status,''0'')=''0'') '); sql.Add(' ,ZWJYPS=(select count(X.Loom) from Tat_Plan_Card X where X.Loom =AA.MCNO and isnull(Status,''0'')=''0'') ');
sql.Add(' ,BWJYPS=(select count(X.Loom) from Tat_Plan_Card X where X.Loom =AA.MCNO and isnull(Status,''0'')=''0'' and MainID=''' + trim(FMainID) + ''')'); sql.Add(' ,BWJYPS=(select count(X.Loom) from Tat_Plan_Card X where X.Loom =AA.MCNO and isnull(Status,''0'')=''0'' and MainID=''' + trim(FMainID) + ''')');
sql.Add(' from (select A.MCNO,ISAP=''0'' from BS_Machine A where EXISTS (select Loom from Tat_Plan_Card X where X.Loom = A.MCNO and X.MainID=''' + trim(FMainID) + ''')'); sql.Add(' from (select A.MCNO,ISAP=''0'' from BS_Machine A where EXISTS (select Loom from Tat_Plan_Card X where X.Loom = A.MCNO and X.WBCID=''' + trim(FWBCID) + ''')');
sql.Add(' UNION '); sql.Add(' UNION ');
sql.Add(' select A.MCNO,ISAP=''1'' from BS_Machine A where not EXISTS (select Loom from Tat_Plan_Card X where X.Loom = A.MCNO and X.MainID=''' + trim(FMainID) + ''')'); sql.Add(' select A.MCNO,ISAP=''1'' from BS_Machine A where not EXISTS (select Loom from Tat_Plan_Card X where X.Loom = A.MCNO and X.WBCID=''' + trim(FWBCID) + ''')');
sql.Add(' ) AA Order BY ISAP,MCNO'); sql.Add(' ) AA Order BY ISAP,MCNO');
// ShowMessage(sql.text); // ShowMessage(sql.text);
Open; Open;
@ -200,7 +201,8 @@ begin
sql.Add(' and isnull(X.Repairer,'''') = isnull(A.Repairer,'''') and isnull(X.BatchNo,'''') = isnull(A.BatchNo,'''') )'); sql.Add(' and isnull(X.Repairer,'''') = isnull(A.Repairer,'''') and isnull(X.BatchNo,'''') = isnull(A.BatchNo,'''') )');
sql.Add(' ,JYPS=(select count(*) from Tat_Plan_Card X where X.Loom=A.Loom and isnull(X.Status,''0'') = ''1'' '); sql.Add(' ,JYPS=(select count(*) from Tat_Plan_Card X where X.Loom=A.Loom and isnull(X.Status,''0'') = ''1'' ');
sql.Add(' and isnull(X.Repairer,'''') = isnull(A.Repairer,'''') and isnull(X.BatchNo,'''') = isnull(A.BatchNo,'''') )'); sql.Add(' and isnull(X.Repairer,'''') = isnull(A.Repairer,'''') and isnull(X.BatchNo,'''') = isnull(A.BatchNo,'''') )');
sql.Add(' from Tat_Plan_Card A where MainId =''' + trim(FMainId) + ''''); sql.Add(' from Tat_Plan_Card A where WBCID =''' + trim(FWBCID) + '''');
sql.Add(' and Deler is null');
sql.Add(' GROUP BY Loom,isnull(Repairer,''''),isnull(BatchNo,'''') '); sql.Add(' GROUP BY Loom,isnull(Repairer,''''),isnull(BatchNo,'''') ');
// ShowMessage(sql.text); // ShowMessage(sql.text);
Open; Open;
@ -299,10 +301,10 @@ begin
// Open; // Open;
// end; // end;
///////////////判断是否超出限制////////////////// ///////////////判断是否超出限制//////////////////
if FStrs.Count * StrToIntdef(edtCardQty.Text, 0) > StrToIntdef(edtWAPPS.text, 0) then // if FStrs.Count * StrToIntdef(edtCardQty.Text, 0) > StrToIntdef(edtWAPPS.text, 0) then
begin // begin
raise Exception.Create('°²ÅÅÊýÁ¿¹ý¶à!'); // raise Exception.Create('°²ÅÅÊýÁ¿¹ý¶à!');
end; // end;
///////////////判断是否超出限制////////////////// ///////////////判断是否超出限制//////////////////
@ -340,7 +342,7 @@ begin
sql.Add(','); sql.Add(',');
sql.Add(' (' + Quotedstr(Trim(FMainId))); sql.Add(' (' + Quotedstr(Trim(FMainId)));
sql.Add(',' + Quotedstr(Trim(FSubId))); sql.Add(',' + Quotedstr(Trim(FSubId)));
sql.Add(',' + Quotedstr(Trim(FWBCID))); sql.Add(',' + Quotedstr(Trim(edtConNo.text)));
sql.Add(',' + Quotedstr(Trim(FStrs[i]))); sql.Add(',' + Quotedstr(Trim(FStrs[i])));
sql.Add(',' + Quotedstr(maxPCId)); sql.Add(',' + Quotedstr(maxPCId));
sql.Add(',' + Quotedstr(IntToStr(MPCNo))); sql.Add(',' + Quotedstr(IntToStr(MPCNo)));
@ -438,23 +440,76 @@ begin
end; end;
procedure TfrmTatCardInPut.ToolButton1Click(Sender: TObject); procedure TfrmTatCardInPut.ToolButton1Click(Sender: TObject);
var
KMainId: string;
KWBCID: string;
begin begin
try try
frmTatPlanSel := TfrmTatPlanSel.Create(Application); frmTatPlan_ZOUKA_Sel := TfrmTatPlan_ZOUKA_Sel.Create(Application);
with frmTatPlanSel do with frmTatPlan_ZOUKA_Sel do
begin begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
self.FMainId := Trim(frmTatPlanSel.CDS_1.fieldbyname('MainId').AsString); self.FMainId := Trim(frmTatPlan_ZOUKA_Sel.CDS_1.fieldbyname('MainId').AsString);
self.FSubId := Trim(frmTatPlanSel.CDS_1.fieldbyname('SubId').AsString); self.FSubId := Trim(frmTatPlan_ZOUKA_Sel.CDS_1.fieldbyname('SubId').AsString);
self.edtConNo.text := Trim(frmTatPlan_ZOUKA_Sel.CDS_1.fieldbyname('WBCID').AsString);
self.edtCode.text := Trim(frmTatPlan_ZOUKA_Sel.CDS_1.fieldbyname('WB_Clothcode').AsString);
self.edtName.text := Trim(frmTatPlan_ZOUKA_Sel.CDS_1.fieldbyname('WB_ClothName').AsString);
end; end;
end; end;
finally finally
frmTatPlanSel.Free; frmTatPlan_ZOUKA_Sel.Free;
end; end;
InitOrd();
InitGrid1(); begin
InitGrid2(); begin
KMainId:=self.FMainId;
KWBCID:=self.edtConNo.text;
end;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add(' select * ');
sql.Add(' ,ZWJYPS=(select count(X.Loom) from Tat_Plan_Card X where X.Loom =AA.MCNO and isnull(Status,''0'')=''0'') ');
sql.Add(' ,BWJYPS=(select count(X.Loom) from Tat_Plan_Card X where X.Loom =AA.MCNO and isnull(Status,''0'')=''0'' and MainID=''' + trim(KMainId) + ''')');
sql.Add(' from (select A.MCNO,ISAP=''0'' from BS_Machine A where EXISTS (select Loom from Tat_Plan_Card X where X.Loom = A.MCNO and X.WBCID=''' + trim(KWBCID) + ''')');
sql.Add(' UNION ');
sql.Add(' select A.MCNO,ISAP=''1'' from BS_Machine A where not EXISTS (select Loom from Tat_Plan_Card X where X.Loom = A.MCNO and X.WBCID=''' + trim(KWBCID) + ''')');
sql.Add(' ) AA Order BY ISAP,MCNO');
// ShowMessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select COUNT(*) AS APPS,Loom,isnull(Repairer,'''') AS Repairer,isnull(BatchNo,'''') AS BatchNo ');
sql.Add(',PCDate=(select top 1 CONVERT(VARCHAR(10),X.PCDate,120) from Tat_Plan_Card X where X.Loom=A.Loom ');
sql.Add(' and isnull(X.Repairer,'''') = isnull(A.Repairer,'''') and isnull(X.BatchNo,'''') = isnull(A.BatchNo,'''') and isnull(Status,''0'') <>''-1'' ORDER BY PCDate ) ');
sql.Add(' ,DYPS=(select count(*) from Tat_Plan_Card X where X.Loom=A.Loom and PrtCount > 0 and isnull(Status,''0'') <>''-1'' ');
sql.Add(' and isnull(X.Repairer,'''') = isnull(A.Repairer,'''') and isnull(X.BatchNo,'''') = isnull(A.BatchNo,'''') )');
sql.Add(' ,JYPS=(select count(*) from Tat_Plan_Card X where X.Loom=A.Loom and isnull(X.Status,''0'') = ''1'' ');
sql.Add(' and isnull(X.Repairer,'''') = isnull(A.Repairer,'''') and isnull(X.BatchNo,'''') = isnull(A.BatchNo,'''') )');
sql.Add(' from Tat_Plan_Card A where WBCID =''' + trim(KWBCID) + '''');
sql.Add(' and Deler is null');
sql.Add(' GROUP BY Loom,isnull(Repairer,''''),isnull(BatchNo,'''') ');
// ShowMessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
end;
end; end;

479
E01梭织生产计划/U_TatDCGCLCXList.dfm Normal file
View File

@ -0,0 +1,479 @@
inherited frmTatDCGCLCXList: TfrmTatDCGCLCXList
Caption = #21047#21345#20449#24687
ClientHeight = 582
ClientWidth = 1473
WindowState = wsMaximized
ExplicitWidth = 1489
ExplicitHeight = 621
PixelsPerInch = 96
TextHeight = 17
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1473
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 103
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_TatPlan.ImageList_new32
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatPlan.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 4
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = TBFindClick
end
object TBdel: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
Visible = False
OnClick = TBdelClick
end
object TBPrint: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
Visible = False
OnClick = TBPrintClick
end
object ToolButton4: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #25353#26085#26399#25171#21360
ImageIndex = 21
OnClick = ToolButton4Click
end
object TBExport: TToolButton
Left = 391
Top = 0
AutoSize = True
Caption = #23548#20986'Excel'
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 492
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 587
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1473
Height = 43
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 5
object Label3: TLabel
Left = 591
Top = 13
Width = 48
Height = 17
Caption = #20135#21697#21517#31216
end
object Label1: TLabel
Left = 6
Top = 12
Width = 48
Height = 17
Caption = #19979#24067#26085#26399
end
object Label2: TLabel
Left = 330
Top = 13
Width = 12
Height = 17
Caption = #33267
end
object Label13: TLabel
Left = 288
Top = 128
Width = 24
Height = 17
Caption = #23458#25143
end
object Label17: TLabel
Left = 440
Top = 128
Width = 36
Height = 17
Caption = #19994#21153#21592
end
object Label7: TLabel
Left = 604
Top = 124
Width = 36
Height = 17
Caption = #33457#22411#21495
end
object Label4: TLabel
Left = 802
Top = 12
Width = 36
Height = 17
Caption = #25377#36710#24037
end
object C_Name: TEdit
Tag = 2
Left = 658
Top = 12
Width = 100
Height = 25
TabOrder = 0
OnKeyPress = C_NameKeyPress
end
object BegDate: TDateTimePicker
Left = 73
Top = 9
Width = 140
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 1
end
object EndDate: TDateTimePicker
Left = 364
Top = 9
Width = 133
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 2
end
object customerNoName: TEdit
Tag = 2
Left = 314
Top = 124
Width = 100
Height = 25
TabOrder = 3
end
object ywy: TEdit
Tag = 2
Left = 478
Top = 124
Width = 100
Height = 25
TabOrder = 4
end
object lbHx: TEdit
Tag = 2
Left = 642
Top = 120
Width = 80
Height = 25
TabOrder = 5
end
object begtime: TDateTimePicker
Left = 213
Top = 9
Width = 89
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 39780.000000000000000000
Kind = dtkTime
TabOrder = 6
end
object endTime: TDateTimePicker
Left = 498
Top = 9
Width = 87
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 0.999317129630071600
Kind = dtkTime
TabOrder = 7
end
object GlideName1: TEdit
Tag = 2
Left = 1366
Top = 12
Width = 80
Height = 25
TabOrder = 8
Visible = False
end
object JBSCPerson: TEdit
Tag = 2
Left = 863
Top = 9
Width = 95
Height = 25
TabOrder = 9
OnKeyPress = JBSCPersonKeyPress
end
end
object cxGrid2: TcxGrid [2]
Left = 0
Top = 81
Width = 1473
Height = 501
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Format = #20849' 0 '#34892
Kind = skCount
Column = Tv1Column5
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.IncSearch = DataLink_TatPlan.SHuangSe
Styles.Header = DataLink_TatPlan.Default
Styles.Inactive = DataLink_TatPlan.SHuangSe
Styles.Selection = DataLink_TatPlan.SHuangSe
object Tv1Column14: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 45
end
object Tv1Column3: TcxGridDBColumn
Caption = #19979#24067#26102#38388
DataBinding.FieldName = 'XBDATE'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1Column10: TcxGridDBColumn
Caption = #25377#36710#24037
DataBinding.FieldName = 'JBSCPerson'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object Tv1Column4: TcxGridDBColumn
Caption = #26797#32455#26426#21488#21495
DataBinding.FieldName = 'CARNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1Column7: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Column1: TcxGridDBColumn
Caption = #19979#24067#20135#37327
DataBinding.FieldName = 'OutPutQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column11: TcxGridDBColumn
Caption = #26816#39564#26102#38388
DataBinding.FieldName = 'Filltime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 106
end
object Tv1Column2: TcxGridDBColumn
Caption = #26816#39564#31859#25968
DataBinding.FieldName = 'InputLen'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1Column5: TcxGridDBColumn
Caption = #26816#39564'ID'
DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object Tv1Column6: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'ChkerT'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column8: TcxGridDBColumn
Caption = #24635#24037#36164
DataBinding.FieldName = 'ZGZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 155
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
end
end
object MovePanel2: TMovePanel [3]
Left = 351
Top = 244
Width = 289
Height = 49
BevelInner = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
Visible = False
end
inherited cxProgressBar2: TcxProgressBar
Left = 379
Top = 352
ExplicitLeft = 379
ExplicitTop = 352
ExplicitHeight = 25
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Left = 249
Top = 168
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Left = 137
Top = 161
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Parameters = <>
Left = 804
Top = 288
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 852
Top = 280
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 764
Top = 288
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 896
Top = 360
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 888
Top = 144
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 768
Top = 376
end
object RMGridReport1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 720
Top = 136
ReportData = {}
end
object PopupMenu1: TPopupMenu
Left = 544
Top = 192
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
end

349
E01梭织生产计划/U_TatDCGCLCXList.pas Normal file
View File

@ -0,0 +1,349 @@
unit U_TatDCGCLCXList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common,
RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
U_BaseList, cxCheckBox, Vcl.Menus, cxContainer, dxScrollbarAnnotations,
cxProgressBar;
type
TfrmTatDCGCLCXList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBExport: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
Label3: TLabel;
C_Name: TEdit;
Label1: TLabel;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_Main: TClientDataSet;
Tv1: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
cxGrid2: TcxGrid;
MovePanel2: TMovePanel;
RMGridReport1: TRMGridReport;
customerNoName: TEdit;
Label13: TLabel;
ywy: TEdit;
Label17: TLabel;
Tv1Column5: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
lbHx: TEdit;
Label7: TLabel;
TBdel: TToolButton;
begtime: TDateTimePicker;
endTime: TDateTimePicker;
ToolButton1: TToolButton;
Tv1Column14: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
GlideName1: TEdit;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Tv1Column1: TcxGridDBColumn;
Label4: TLabel;
JBSCPerson: TEdit;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
ToolButton4: TToolButton;
Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure PRTColorChange(Sender: TObject);
procedure TBdelClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure JBSCPersonKeyPress(Sender: TObject; var Key: Char);
private
FLeft, FTop: Integer;
procedure InitGrid();
{ Private declarations }
public
fsyrName, canshu1: string;
{ Public declarations }
end;
var
frmTatDCGCLCXList: TfrmTatDCGCLCXList;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_OutPutHelp, U_LabelPrint;
{$R *.dfm}
procedure TfrmTatDCGCLCXList.FormDestroy(Sender: TObject);
begin
inherited;
frmTatDCGCLCXList := nil;
end;
procedure TfrmTatDCGCLCXList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmTatDCGCLCXList.FormCreate(Sender: TObject);
begin
inherited;
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 7;
fsyrName := trim(DdataBase);
canshu1 := trim(DParameters1);
end;
procedure TfrmTatDCGCLCXList.InitGrid();
var
FFiltration: string;
begin
FFiltration := DateToStr(BegDate.DATE) + '*' + DateToStr(EndDate.DATE);
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('exec P_Tat_Cloth_Inspect_Refresh ');
sql.Add(' @Filtration=' + quotedstr(Trim(FFiltration)));
// showmessage(sql.Text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
TBFind.Click;
end;
procedure TfrmTatDCGCLCXList.N1Click(Sender: TObject);
begin
SelOKNo(CDS_Main, true);
end;
procedure TfrmTatDCGCLCXList.N2Click(Sender: TObject);
begin
SelOKNo(CDS_Main, False);
end;
procedure TfrmTatDCGCLCXList.TBRafreshClick(Sender: TObject);
begin
MovePanel2.Visible := True;
MovePanel2.Refresh;
InitGrid();
MovePanel2.Visible := False;
end;
procedure TfrmTatDCGCLCXList.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库');
end;
procedure TfrmTatDCGCLCXList.ToolButton4Click(Sender: TObject);
begin
// CDS_Main.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'BSYarnInPrt2';
FFiltration1 := DateToStr(BegDate.DATE) + '*' + DateToStr(EndDate.DATE) + '*' + JBSCPerson.text;
// ShowMessage(FFiltration1);
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatDCGCLCXList.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmTatDCGCLCXList.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatDCGCLCXList.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库');
canshu1 := self.fParameters1;
initgrid();
end;
procedure TfrmTatDCGCLCXList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
// SelExportData(tv1,ADOQueryMain,self.Caption);
TcxGridToExcel(self.Caption, cxGrid2);
end;
procedure TfrmTatDCGCLCXList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
end;
end;
procedure TfrmTatDCGCLCXList.TBPrintClick(Sender: TObject);
//var
// MBYIOID: string;
begin
// if CDS_Main.IsEmpty then
// Exit;
// if CDS_Main.Locate('SSel', True, []) = False then
// begin
// Application.MessageBox('没有选择数据!', '提示', 0);
// Exit;
// end;
//
// MBYIOID := '';
// CDS_Main.DisableControls;
// with CDS_Main do
// begin
// First;
// while CDS_Main.Locate('SSel', True, []) do
// begin
//
// MBYIOID := MBYIOID + ',' + (Trim(CDS_Main.fieldbyname('CIID').AsString));
//
// Edit;
// FieldByName('SSel').Value := False;
// Post;
// end;
// end;
// CDS_Main.EnableControls;
//
// try
// frmLabelPrint := TfrmLabelPrint.Create(Application);
// with frmLabelPrint do
// begin
// FLMType := 'BSYarnInPrt1';
// FFiltration1 := MBYIOID;
//// +'*'+DateToStr(BegDate.DATE)+'*'+DateToStr(EndDate.DATE
//// ShowMessage(FFiltration1);
// if ShowModal = 1 then
// begin
//// Self.InitGrid();
// end;
//
// end;
// finally
// frmLabelPrint.Free;
//
// end;
end;
procedure TfrmTatDCGCLCXList.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
// 只在按回车时触发刷新（Key = #13 是回车的 ASCII 码）
if Key = #13 then
begin
InitGrid(); // 回车时执行刷新
Key := #0; // 抑制系统默认的回车行为（比如避免输入框失去焦点等）
end;
end;
procedure TfrmTatDCGCLCXList.JBSCPersonKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
// 只在按回车时触发刷新（Key = #13 是回车的 ASCII 码）
if Key = #13 then
begin
InitGrid(); // 回车时执行刷新
Key := #0; // 抑制系统默认的回车行为（比如避免输入框失去焦点等）
end;
end;
procedure TfrmTatDCGCLCXList.PRTColorChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmTatDCGCLCXList.TBdelClick(Sender: TObject);
begin
// if CDS_Main.IsEmpty then
// Exit;
// if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
// Exit;
// try
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('delete Tat_Plan_OutPut where GOID=''' + Trim(CDS_Main.fieldbyname('GOID').AsString) + '''');
// ExecSQL;
// end;
//////////////////// 更新进度 //////////////////
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('insert into Nap_Need_Up(UType,UDataId) values(''机台刷卡'',' + quotedstr(Trim(CDS_Main.fieldbyname('GOID').AsString)) + ') ');
// execsql;
// end;
//////////////////// 更新进度 //////////////////
// CDS_Main.Delete;
// except
// application.MessageBox('删除失败！', '提示信息', 0);
// end;
end;
end.

82
E01梭织生产计划/U_TatOutputList.dfm
View File

@ -6,7 +6,7 @@ inherited frmTatOutputList: TfrmTatOutputList
ExplicitWidth = 1489 ExplicitWidth = 1489
ExplicitHeight = 621 ExplicitHeight = 621
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 17
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -29,7 +29,7 @@ inherited frmTatOutputList: TfrmTatOutputList
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 4
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -105,54 +105,56 @@ inherited frmTatOutputList: TfrmTatOutputList
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 5
ExplicitLeft = -32
ExplicitTop = 32
object Label3: TLabel object Label3: TLabel
Left = 448 Left = 444
Top = 13 Top = 13
Width = 24 Width = 24
Height = 12 Height = 17
Caption = #21345#21495 Caption = #21345#21495
end end
object Label1: TLabel object Label1: TLabel
Left = 24 Left = 24
Top = 13 Top = 13
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #21047#21345#26085#26399 Caption = #21047#21345#26085#26399
end end
object Label2: TLabel object Label2: TLabel
Left = 260 Left = 235
Top = 13 Top = 13
Width = 12 Width = 12
Height = 12 Height = 17
Caption = #33267 Caption = #33267
end end
object Label13: TLabel object Label13: TLabel
Left = 288 Left = 288
Top = 128 Top = 128
Width = 24 Width = 24
Height = 12 Height = 17
Caption = #23458#25143 Caption = #23458#25143
end end
object Label17: TLabel object Label17: TLabel
Left = 440 Left = 440
Top = 128 Top = 128
Width = 36 Width = 36
Height = 12 Height = 17
Caption = #19994#21153#21592 Caption = #19994#21153#21592
end end
object Label7: TLabel object Label7: TLabel
Left = 604 Left = 604
Top = 124 Top = 124
Width = 36 Width = 36
Height = 12 Height = 17
Caption = #33457#22411#21495 Caption = #33457#22411#21495
end end
object Label4: TLabel object Label4: TLabel
Left = 624 Left = 615
Top = 13 Top = 13
Width = 24 Width = 24
Height = 12 Height = 17
Caption = #24037#24207 Caption = #24037#24207
end end
object pcid: TEdit object pcid: TEdit
@ -160,7 +162,7 @@ inherited frmTatOutputList: TfrmTatOutputList
Left = 478 Left = 478
Top = 9 Top = 9
Width = 80 Width = 80
Height = 20 Height = 25
TabOrder = 0 TabOrder = 0
OnChange = pcidChange OnChange = pcidChange
end end
@ -187,7 +189,7 @@ inherited frmTatOutputList: TfrmTatOutputList
Left = 314 Left = 314
Top = 124 Top = 124
Width = 100 Width = 100
Height = 20 Height = 25
TabOrder = 3 TabOrder = 3
OnChange = pcidChange OnChange = pcidChange
end end
@ -196,7 +198,7 @@ inherited frmTatOutputList: TfrmTatOutputList
Left = 478 Left = 478
Top = 124 Top = 124
Width = 100 Width = 100
Height = 20 Height = 25
TabOrder = 4 TabOrder = 4
OnChange = pcidChange OnChange = pcidChange
end end
@ -205,7 +207,7 @@ inherited frmTatOutputList: TfrmTatOutputList
Left = 642 Left = 642
Top = 120 Top = 120
Width = 80 Width = 80
Height = 20 Height = 25
TabOrder = 5 TabOrder = 5
OnChange = pcidChange OnChange = pcidChange
end end
@ -231,15 +233,31 @@ inherited frmTatOutputList: TfrmTatOutputList
Kind = dtkTime Kind = dtkTime
TabOrder = 7 TabOrder = 7
end end
object GlideName: TEdit object GlideName1: TEdit
Tag = 2 Tag = 2
Left = 654 Left = 1366
Top = 9 Top = 12
Width = 80 Width = 80
Height = 20 Height = 25
TabOrder = 8 TabOrder = 8
Visible = False
OnChange = pcidChange OnChange = pcidChange
end end
object GlideName: TComboBox
Left = 660
Top = 9
Width = 110
Height = 22
Style = csOwnerDrawFixed
TabOrder = 9
Items.Strings = (
''
#25377#36710#19979#24067
#25972#32463#25195#25551
#31359#32508#25195#25551
#19978#36724#25195#25551
#19979#36724#25195#25551)
end
end end
object cxGrid2: TcxGrid [2] object cxGrid2: TcxGrid [2]
Left = 0 Left = 0
@ -249,9 +267,9 @@ inherited frmTatOutputList: TfrmTatOutputList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 87
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -283,6 +301,7 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column14: TcxGridDBColumn object Tv1Column14: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'ssel' DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -291,6 +310,7 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #26085#26399 Caption = #26085#26399
DataBinding.FieldName = 'GOTime' DataBinding.FieldName = 'GOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 94 Width = 94
@ -298,6 +318,7 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #21345#21495 Caption = #21345#21495
DataBinding.FieldName = 'pcid' DataBinding.FieldName = 'pcid'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
@ -305,6 +326,7 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #24037#24207 Caption = #24037#24207
DataBinding.FieldName = 'GlideName' DataBinding.FieldName = 'GlideName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 82 Width = 82
@ -312,6 +334,7 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 81 Width = 81
@ -319,6 +342,7 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column15: TcxGridDBColumn object Tv1Column15: TcxGridDBColumn
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 60 Width = 60
@ -326,6 +350,7 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #25805#20316#21592 Caption = #25805#20316#21592
DataBinding.FieldName = 'Filler' DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 60 Width = 60
@ -333,6 +358,7 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #25805#20316#26102#38388 Caption = #25805#20316#26102#38388
DataBinding.FieldName = 'FillTime' DataBinding.FieldName = 'FillTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 106 Width = 106
@ -340,12 +366,14 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #26426#21488#21495 Caption = #26426#21488#21495
DataBinding.FieldName = 'MachineNo' DataBinding.FieldName = 'MachineNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 84 Width = 84
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #32463#35268#26684 Caption = #32463#35268#26684
DataBinding.FieldName = 'WB_Spec' DataBinding.FieldName = 'WB_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -353,6 +381,7 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #22836#32441 Caption = #22836#32441
DataBinding.FieldName = 'WB_YarnQty' DataBinding.FieldName = 'WB_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -360,6 +389,7 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #32433#21517 Caption = #32433#21517
DataBinding.FieldName = 'WB_YarnName' DataBinding.FieldName = 'WB_YarnName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -367,6 +397,7 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #32463#20135#21697#21517 Caption = #32463#20135#21697#21517
DataBinding.FieldName = 'WB_ClothName' DataBinding.FieldName = 'WB_ClothName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -374,6 +405,7 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #32467#26463#20154 Caption = #32467#26463#20154
DataBinding.FieldName = 'Ender' DataBinding.FieldName = 'Ender'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 69 Width = 69
@ -381,6 +413,7 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column13: TcxGridDBColumn object Tv1Column13: TcxGridDBColumn
Caption = #32467#26463#26102#38388 Caption = #32467#26463#26102#38388
DataBinding.FieldName = 'EndTime' DataBinding.FieldName = 'EndTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 72 Width = 72
@ -388,6 +421,7 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column16: TcxGridDBColumn object Tv1Column16: TcxGridDBColumn
Caption = #29992#26102'('#20998')' Caption = #29992#26102'('#20998')'
DataBinding.FieldName = 'JGSJ' DataBinding.FieldName = 'JGSJ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 69 Width = 69
@ -395,6 +429,7 @@ inherited frmTatOutputList: TfrmTatOutputList
object Tv1Column17: TcxGridDBColumn object Tv1Column17: TcxGridDBColumn
Caption = #20135#37327#24037#36164 Caption = #20135#37327#24037#36164
DataBinding.FieldName = 'OutMoney' DataBinding.FieldName = 'OutMoney'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 82 Width = 82
end end
@ -420,6 +455,9 @@ inherited frmTatOutputList: TfrmTatOutputList
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
end end
inherited cxProgressBar2: TcxProgressBar
ExplicitHeight = 25
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink Connection = DataLink_TatPlan.ADOLink
Left = 249 Left = 249

6
E01梭织生产计划/U_TatOutputList.pas
View File

@ -12,7 +12,8 @@ uses
cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common, cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common,
RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
U_BaseList, cxCheckBox, Vcl.Menus; U_BaseList, cxCheckBox, Vcl.Menus, cxContainer, dxScrollbarAnnotations,
cxProgressBar;
type type
TfrmTatOutputList = class(TfrmBaseList) TfrmTatOutputList = class(TfrmBaseList)
@ -67,12 +68,13 @@ type
Tv1Column13: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn; Tv1Column16: TcxGridDBColumn;
Label4: TLabel; Label4: TLabel;
GlideName: TEdit; GlideName1: TEdit;
Tv1Column17: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
N2: TMenuItem; N2: TMenuItem;
GlideName: TComboBox;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

39
E01梭织生产计划/U_TatPlanCard.dfm
View File

@ -8,7 +8,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
ExplicitWidth = 1413 ExplicitWidth = 1413
ExplicitHeight = 676 ExplicitHeight = 676
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 17
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -31,7 +31,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 4
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -90,7 +90,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 5
object Label3: TLabel object Label3: TLabel
Left = 32 Left = 32
Top = 10 Top = 10
@ -201,7 +201,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
Left = 73 Left = 73
Top = 6 Top = 6
Width = 69 Width = 69
Height = 20 Height = 25
TabOrder = 0 TabOrder = 0
OnChange = ConNoChange OnChange = ConNoChange
end end
@ -209,7 +209,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
Left = 1010 Left = 1010
Top = 41 Top = 41
Width = 64 Width = 64
Height = 20 Height = 25
TabOrder = 4 TabOrder = 4
Visible = False Visible = False
end end
@ -218,7 +218,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
Left = 578 Left = 578
Top = 6 Top = 6
Width = 82 Width = 82
Height = 20 Height = 25
TabOrder = 3 TabOrder = 3
OnChange = ConNoChange OnChange = ConNoChange
end end
@ -227,7 +227,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
Left = 337 Left = 337
Top = 6 Top = 6
Width = 68 Width = 68
Height = 20 Height = 25
TabOrder = 1 TabOrder = 1
OnChange = ConNoChange OnChange = ConNoChange
end end
@ -236,7 +236,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
Left = 465 Left = 465
Top = 6 Top = 6
Width = 58 Width = 58
Height = 20 Height = 25
TabOrder = 2 TabOrder = 2
OnChange = ConNoChange OnChange = ConNoChange
end end
@ -245,7 +245,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
Left = 208 Left = 208
Top = 6 Top = 6
Width = 69 Width = 69
Height = 20 Height = 25
TabOrder = 5 TabOrder = 5
OnChange = ConNoChange OnChange = ConNoChange
end end
@ -254,7 +254,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
Left = 709 Left = 709
Top = 6 Top = 6
Width = 82 Width = 82
Height = 20 Height = 25
TabOrder = 6 TabOrder = 6
OnChange = ConNoChange OnChange = ConNoChange
end end
@ -263,7 +263,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
Left = 852 Left = 852
Top = 6 Top = 6
Width = 82 Width = 82
Height = 20 Height = 25
TabOrder = 7 TabOrder = 7
OnChange = ConNoChange OnChange = ConNoChange
end end
@ -341,7 +341,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
end end
object v3Column6: TcxGridDBColumn object v3Column6: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'WB_Clothcode'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -350,7 +350,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
end end
object v3Column2: TcxGridDBColumn object v3Column2: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'WB_ClothName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -475,6 +475,19 @@ inherited frmTatPlanCard: TfrmTatPlanCard
ClientRectRight = 1397 ClientRectRight = 1397
ClientRectTop = 29 ClientRectTop = 29
end end
inherited loadProcess: TPanel
Left = 465
Top = 320
ExplicitLeft = 465
ExplicitTop = 320
end
inherited cxProgressBar2: TcxProgressBar
Left = 465
Top = 280
ExplicitLeft = 465
ExplicitTop = 280
ExplicitHeight = 25
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink Connection = DataLink_TatPlan.ADOLink
Left = 81 Left = 81

15
E01梭织生产计划/U_TatPlanCard.pas
View File

@ -12,7 +12,7 @@ uses
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox,
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
U_BaseList, Vcl.Menus, dxScrollbarAnnotations; U_BaseList, Vcl.Menus, dxScrollbarAnnotations, cxContainer, cxProgressBar;
type type
TfrmTatPlanCard = class(TfrmBaseList) TfrmTatPlanCard = class(TfrmBaseList)
@ -122,19 +122,21 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.*,C.*,D.* '); sql.Add('select A.*, B.ConNo,B.WB_Clothcode,B.WB_ClothName'); //,C.*,D.*
sql.Add(' from Tat_Plan_Card A '); sql.Add(' from Tat_Plan_Card A ');
sql.Add(' inner join Tat_Plan_Sub C on A.SubId=C.SubId'); sql.Add(' inner join Tat_WB_Card B on A.WBCID=B.WBCID');
sql.Add(' inner join Tat_Plan_Main D on A.MainId=D.MainId'); // sql.Add(' inner join Tat_Plan_Sub C on A.SubId=C.SubId');
// sql.Add(' inner join Tat_Plan_Main D on A.MainId=D.MainId');
sql.Add(' where isnull(A.status,''0'')=''0'''); sql.Add(' where isnull(A.status,''0'')=''0''');
// ShowMessage(SQL.TEXT);
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
sql.Add(' and PRTCount=0'); sql.Add(' and A.PRTCount=0');
end; end;
1: 1:
begin begin
sql.Add(' and PRTCount>0'); sql.Add(' and A.PRTCount>0');
end; end;
2: 2:
begin begin
@ -300,6 +302,7 @@ begin
begin begin
FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString); FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString);
FSubId := Trim(Self.CDS_1.fieldbyname('SubId').AsString); FSubId := Trim(Self.CDS_1.fieldbyname('SubId').AsString);
FWBCID := Trim(Self.CDS_1.fieldbyname('WBCID').AsString);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();

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

@ -6,7 +6,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ClientWidth = 1540 ClientWidth = 1540
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
ExplicitWidth = 1556 ExplicitWidth = 1556
@ -26,14 +25,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DisabledImages = DataLink_TatPlan.ImageList_new32 DisabledImages = DataLink_TatPlan.ImageList_new32
EdgeInner = esNone EdgeInner = esNone
EdgeOuter = esNone EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatPlan.ImageList_new32 Images = DataLink_TatPlan.ImageList_new32
List = True List = True
ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
object TBSave: TToolButton object TBSave: TToolButton
@ -78,11 +71,11 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
object Label1: TLabel object Label1: TLabel
Left = 502 Left = 21
Top = 58 Top = 60
Width = 52 Width = 65
Height = 12 Height = 12
Caption = #21512#21516#21495#65306 Caption = #21512#21516#32534#21495#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -12 Font.Height = -12
@ -104,8 +97,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 243 Left = 488
Top = 58 Top = 56
Width = 65 Width = 65
Height = 12 Height = 12
Caption = #20135#21697#21517#31216#65306 Caption = #20135#21697#21517#31216#65306
@ -169,7 +162,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ParentFont = False ParentFont = False
end end
object Label8: TLabel object Label8: TLabel
Left = 17 Left = 241
Top = 128 Top = 128
Width = 67 Width = 67
Height = 12 Height = 12
@ -182,8 +175,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ParentFont = False ParentFont = False
end end
object Label12: TLabel object Label12: TLabel
Left = 489 Left = 21
Top = 128 Top = 127
Width = 65 Width = 65
Height = 12 Height = 12
Caption = #19979#24067#21305#38271#65306 Caption = #19979#24067#21305#38271#65306
@ -195,7 +188,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ParentFont = False ParentFont = False
end end
object Label13: TLabel object Label13: TLabel
Left = 242 Left = 486
Top = 128 Top = 128
Width = 66 Width = 66
Height = 12 Height = 12
@ -221,7 +214,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ParentFont = False ParentFont = False
end end
object Label26: TLabel object Label26: TLabel
Left = 21 Left = 243
Top = 58 Top = 58
Width = 65 Width = 65
Height = 12 Height = 12
@ -260,8 +253,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ParentFont = False ParentFont = False
end end
object Label43: TLabel object Label43: TLabel
Left = 706 Left = 874
Top = 58 Top = 38
Width = 66 Width = 66
Height = 12 Height = 12
Caption = #19994' '#21153' '#21592#65306 Caption = #19994' '#21153' '#21592#65306
@ -271,6 +264,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object lbl2: TLabel object lbl2: TLabel
Left = 243 Left = 243
@ -290,7 +284,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Top = 8 Top = 8
Width = 65 Width = 65
Height = 12 Height = 12
Caption = #35745#21010#21333#21495#65306 Caption = #32455#36896#21333#21495#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -558,8 +552,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end end
object OrdPieceLen: TEdit object OrdPieceLen: TEdit
Tag = 2 Tag = 2
Left = 551 Left = 83
Top = 126 Top = 125
Width = 120 Width = 120
Height = 18 Height = 18
TabOrder = 5 TabOrder = 5
@ -569,7 +563,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end end
object OrdPiece: TEdit object OrdPiece: TEdit
Tag = 2 Tag = 2
Left = 83 Left = 307
Top = 125 Top = 125
Width = 120 Width = 120
Height = 18 Height = 18
@ -580,7 +574,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end end
object OrdQty: TEdit object OrdQty: TEdit
Tag = 2 Tag = 2
Left = 307 Left = 551
Top = 125 Top = 125
Width = 120 Width = 120
Height = 18 Height = 18
@ -591,8 +585,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end end
object OrdSNote: TRichEdit object OrdSNote: TRichEdit
Tag = 2 Tag = 2
Left = 90 Left = 83
Top = 260 Top = 266
Width = 813 Width = 813
Height = 66 Height = 66
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -624,8 +618,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end end
object C_Name: TEdit object C_Name: TEdit
Tag = 2 Tag = 2
Left = 306 Left = 551
Top = 55 Top = 56
Width = 120 Width = 120
Height = 18 Height = 18
TabOrder = 1 TabOrder = 1
@ -643,8 +637,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end end
object C_Code: TBtnEditC object C_Code: TBtnEditC
Tag = 2 Tag = 2
Left = 83 Left = 307
Top = 54 Top = 56
Width = 120 Width = 120
Height = 20 Height = 20
TabOrder = 10 TabOrder = 10
@ -652,19 +646,20 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end end
object ConNo: TBtnEditC object ConNo: TBtnEditC
Tag = 2 Tag = 2
Left = 551 Left = 83
Top = 54 Top = 56
Width = 120 Width = 120
Height = 20 Height = 20
TabOrder = 11 TabOrder = 11
OnBtnUpClick = ConNoBtnUpClick OnBtnUpClick = ConNoBtnUpClick
end end
object Saleser: TEdit object Saleser: TEdit
Left = 770 Left = 938
Top = 55 Top = 35
Width = 120 Width = 120
Height = 18 Height = 18
TabOrder = 12 TabOrder = 12
Visible = False
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object OurCoName: TBtnEditC object OurCoName: TBtnEditC
@ -873,7 +868,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end end
object chuanzong: TRichEdit object chuanzong: TRichEdit
Tag = 2 Tag = 2
Left = 958 Left = 961
Top = 5 Top = 5
Width = 467 Width = 467
Height = 316 Height = 316
@ -2689,6 +2684,12 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 1272 Left = 1272
Top = 200 Top = 200
end end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 352
Top = 505
DesignInfo = 33096032
end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
@ -2710,14 +2711,14 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end end
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_1 DataSet = CDS_1
Left = 424 Left = 552
Top = 264 Top = 512
end end
object CDS_1: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 352 Left = 416
Top = 288 Top = 512
end end
object DS_2: TDataSource object DS_2: TDataSource
DataSet = CDS_2 DataSet = CDS_2
@ -2735,8 +2736,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
MarginBottom = 2500 MarginBottom = 2500
PageWidth = 21000 PageWidth = 21000
PageHeight = 29700 PageHeight = 29700
Left = 520 Left = 600
Top = 337 Top = 521
end end
object CDS_3: TClientDataSet object CDS_3: TClientDataSet
Aggregates = <> Aggregates = <>
@ -2750,8 +2751,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Top = 488 Top = 488
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
Left = 522 Left = 482
Top = 522 Top = 514
object N1: TMenuItem object N1: TMenuItem
Caption = #20840#36873 Caption = #20840#36873
OnClick = N1Click OnClick = N1Click

46
E01梭织生产计划/U_TatPlanInPut.pas
View File

@ -13,7 +13,7 @@ uses
cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxSkinsCore, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, U_BaseInput, System.ImageList, dxSkinsDefaultPainters, dxDateRanges, U_BaseInput, System.ImageList,
Vcl.ImgList, Vcl.Menus, Vcl.DBCtrls, cxGroupBox, cxCheckBox, Vcl.ImgList, Vcl.Menus, Vcl.DBCtrls, cxGroupBox, cxCheckBox,
dxScrollbarAnnotations; dxScrollbarAnnotations, cxImageList;
type type
TfrmTatPlanInPut = class(TfrmBaseInput) TfrmTatPlanInPut = class(TfrmBaseInput)
@ -319,7 +319,7 @@ var
implementation implementation
uses uses
U_DataLink, U_ZDYHelp, U_RTFun, U_TatClothInfoSel, U_CompanySel, U_YarnInfoSel; U_DataLink, U_ZDYHelp, U_RTFun, U_TatClothInfoSel, U_CompanySel, U_YarnInfoSel,U_TatPlanSel,U_SalesContractSel;
{$R *.dfm} {$R *.dfm}
procedure TfrmTatPlanInPut.InitClothYarn(MC_Code: string); procedure TfrmTatPlanInPut.InitClothYarn(MC_Code: string);
@ -1309,35 +1309,37 @@ end;
procedure TfrmTatPlanInPut.ConNoBtnUpClick(Sender: TObject); procedure TfrmTatPlanInPut.ConNoBtnUpClick(Sender: TObject);
begin begin
// try try
// frmContractListNXSel := TfrmContractListNXSel.Create(Application); frmSalesContractSel := TfrmSalesContractSel.Create(Application);
// with frmContractListNXSel do with frmSalesContractSel do
// begin begin
// if ShowModal = 1 then if ShowModal = 1 then
// begin begin
// self.ConNo.Text := frmContractListNXSel.Order_Main.fieldbyname('ConNo').AsString; //合同号 self.ConNo.Text := frmSalesContractSel.CDS_1.fieldbyname('ConNo').AsString; //合同号
// self.Custname.Text := frmContractListNXSel.Order_Main.fieldbyname('CustomerNoName').AsString; //客户 self.Custname.Text := frmSalesContractSel.CDS_1.fieldbyname('BuyName').AsString; //客户
self.OurCoName.Text := frmSalesContractSel.CDS_1.fieldbyname('SellName').AsString;
// self.YWY.Text := frmContractListNXSel.Order_Main.fieldbyname('ConPerson1').AsString; //ϵ¥Ô± // self.YWY.Text := frmContractListNXSel.Order_Main.fieldbyname('ConPerson1').AsString; //ϵ¥Ô±
// self.KHConNo.Text := frmContractListNXSel.Order_Main.fieldbyname('KHConNo').AsString; //¿Í»§ // self.KHConNo.Text := frmContractListNXSel.Order_Main.fieldbyname('KHConNo').AsString; //¿Í»§
// self.ConMainId.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('MainId').AsString; //ConMainId // self.ConMainId.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('MainId').AsString; //ConMainId
// self.ConSubId.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('SubID').AsString; //ConSubId // self.ConSubId.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('SubID').AsString; //ConSubId
// //
// self.C_Code.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('PrtCode').AsString; //编号 self.C_Code.Text := frmSalesContractSel.CDS_1.fieldbyname('C_Code').AsString; //编号
// self.C_Name.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('PrtCodeName').AsString; //品名 self.C_Name.Text := frmSalesContractSel.CDS_1.fieldbyname('C_Name').AsString; //品名
// self.C_Spec.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('prtspec').AsString; //¹æ¸ñ // self.C_Spec.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('prtspec').AsString; //¹æ¸ñ
// self.C_Color.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('PRTColor').AsString; //ÑÕÉ« // self.C_Color.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('PRTColor').AsString; //ÑÕÉ«
// self.MF.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('prtmf').AsString; //门幅 // self.MF.Text := frmTatPlanSel.CDS_1.fieldbyname('prtmf').AsString; //门幅
// self.KZ.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('prtkz').AsString; //克重 // self.KZ.Text := frmTatPlanSel.CDS_1.fieldbyname('prtkz').AsString; //克重
// //
// //
// self.OrdPiece.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('pishu').AsString; //匹数 //self.OrdPiece.Text := frmSalesContractSel.CDS_1.fieldbyname('OrdPiece').AsString; //匹数
// self.OrdPieceWeight.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('OrdTare').AsString; //匹重 //self.OrdPieceLen.Text := frmSalesContractSel.CDS_1.fieldbyname('OrdPieceLen').AsString; //下布长度
// self.OrdQty.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('PRTOrderQty').AsString; //总重量 self.OrdQty.Text := frmSalesContractSel.CDS_1.fieldbyname('ConQty').AsString; //总数量
// end; //self.OrdQty.Text := frmContracfrmTatPlanSeltListNXSel.ClientDataSet2.fieldbyname('OrdQty').AsString;
// end; end;
// finally end;
// frmContractListNXSel.Free; finally
// end; frmSalesContractSel.Free;
end;
end; end;

90
E01梭织生产计划/U_TatPlanList.dfm
View File

@ -3,23 +3,23 @@ inherited frmTatPlanList: TfrmTatPlanList
Top = 194 Top = 194
Caption = #36710#38388#29983#20135#35745#21010#21333 Caption = #36710#38388#29983#20135#35745#21010#21333
ClientHeight = 584 ClientHeight = 584
ClientWidth = 1540 ClientWidth = 1468
Position = poScreenCenter Position = poScreenCenter
ExplicitWidth = 1556 ExplicitWidth = 1484
ExplicitHeight = 623 ExplicitHeight = 623
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 17
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1540 Width = 1468
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
ButtonWidth = 91 ButtonWidth = 91
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clWhite
DisabledImages = DataLink_TatPlan.ImageList_new32 DisabledImages = DataLink_TatPlan.ImageList_new32
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -31,7 +31,7 @@ inherited frmTatPlanList: TfrmTatPlanList
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 4
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -164,14 +164,14 @@ inherited frmTatPlanList: TfrmTatPlanList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1540 Width = 1468
Height = 67 Height = 83
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 5
object Label1: TLabel object Label1: TLabel
Left = 18 Left = 18
Top = 14 Top = 14
@ -187,13 +187,13 @@ inherited frmTatPlanList: TfrmTatPlanList
end end
object Label2: TLabel object Label2: TLabel
Left = 53 Left = 53
Top = 40 Top = 47
Width = 18 Width = 15
Height = 12 Height = 17
Caption = '---' Caption = '---'
end end
object Label3: TLabel object Label3: TLabel
Left = 184 Left = 240
Top = 14 Top = 14
Width = 39 Width = 39
Height = 12 Height = 12
@ -206,8 +206,8 @@ inherited frmTatPlanList: TfrmTatPlanList
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 485 Left = 541
Top = 40 Top = 47
Width = 52 Width = 52
Height = 12 Height = 12
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
@ -219,7 +219,7 @@ inherited frmTatPlanList: TfrmTatPlanList
ParentFont = False ParentFont = False
end end
object Label10: TLabel object Label10: TLabel
Left = 485 Left = 541
Top = 14 Top = 14
Width = 52 Width = 52
Height = 12 Height = 12
@ -232,7 +232,7 @@ inherited frmTatPlanList: TfrmTatPlanList
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 326 Left = 382
Top = 14 Top = 14
Width = 26 Width = 26
Height = 12 Height = 12
@ -245,8 +245,8 @@ inherited frmTatPlanList: TfrmTatPlanList
ParentFont = False ParentFont = False
end end
object lbl1: TLabel object lbl1: TLabel
Left = 326 Left = 382
Top = 40 Top = 47
Width = 26 Width = 26
Height = 12 Height = 12
Caption = #31867#22411 Caption = #31867#22411
@ -258,8 +258,8 @@ inherited frmTatPlanList: TfrmTatPlanList
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 184 Left = 240
Top = 40 Top = 47
Width = 39 Width = 39
Height = 12 Height = 12
Caption = #35745#21010#21333 Caption = #35745#21010#21333
@ -273,7 +273,7 @@ inherited frmTatPlanList: TfrmTatPlanList
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 71 Left = 71
Top = 10 Top = 10
Width = 85 Width = 120
Height = 20 Height = 20
Date = 44378.000000000000000000 Date = 44378.000000000000000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
@ -282,8 +282,8 @@ inherited frmTatPlanList: TfrmTatPlanList
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 71 Left = 71
Top = 36 Top = 43
Width = 86 Width = 120
Height = 20 Height = 20
Date = 40675.000000000000000000 Date = 40675.000000000000000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
@ -292,47 +292,47 @@ inherited frmTatPlanList: TfrmTatPlanList
end end
object ConNo: TEdit object ConNo: TEdit
Tag = 2 Tag = 2
Left = 229 Left = 285
Top = 10 Top = 10
Width = 81 Width = 81
Height = 20 Height = 25
TabOrder = 2 TabOrder = 2
OnChange = ConNoChange OnChange = ConNoChange
OnKeyPress = conPress OnKeyPress = conPress
end end
object C_Name: TEdit object C_Name: TEdit
Tag = 2 Tag = 2
Left = 539 Left = 595
Top = 36 Top = 43
Width = 83 Width = 83
Height = 20 Height = 25
TabOrder = 3 TabOrder = 3
OnChange = ConNoChange OnChange = ConNoChange
OnKeyPress = C_NameKeyPress OnKeyPress = C_NameKeyPress
end end
object C_Code: TEdit object C_Code: TEdit
Tag = 2 Tag = 2
Left = 539 Left = 595
Top = 10 Top = 10
Width = 83 Width = 83
Height = 20 Height = 25
TabOrder = 4 TabOrder = 4
OnChange = ConNoChange OnChange = ConNoChange
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
end end
object CustName: TEdit object CustName: TEdit
Tag = 2 Tag = 2
Left = 356 Left = 412
Top = 10 Top = 10
Width = 110 Width = 110
Height = 20 Height = 25
TabOrder = 5 TabOrder = 5
OnChange = ConNoChange OnChange = ConNoChange
OnKeyPress = CustNameKeyPress OnKeyPress = CustNameKeyPress
end end
object OrdType: TComboBox object OrdType: TComboBox
Left = 356 Left = 412
Top = 35 Top = 42
Width = 110 Width = 110
Height = 22 Height = 22
Style = csOwnerDrawFixed Style = csOwnerDrawFixed
@ -341,10 +341,10 @@ inherited frmTatPlanList: TfrmTatPlanList
end end
object OrderNo: TEdit object OrderNo: TEdit
Tag = 2 Tag = 2
Left = 229 Left = 285
Top = 36 Top = 43
Width = 81 Width = 81
Height = 20 Height = 25
TabOrder = 7 TabOrder = 7
OnChange = ConNoChange OnChange = ConNoChange
OnKeyPress = conPress OnKeyPress = conPress
@ -352,9 +352,9 @@ inherited frmTatPlanList: TfrmTatPlanList
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 133 Top = 149
Width = 1540 Width = 1468
Height = 451 Height = 435
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -637,8 +637,8 @@ inherited frmTatPlanList: TfrmTatPlanList
end end
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 105 Top = 121
Width = 1540 Width = 1468
Height = 28 Height = 28
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -650,7 +650,7 @@ inherited frmTatPlanList: TfrmTatPlanList
TabOrder = 3 TabOrder = 3
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 6 Properties.Style = 6
Properties.TabIndex = 1 Properties.TabIndex = 0
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#24453#24320#22987 #24453#24320#22987
#24050#24320#22987 #24050#24320#22987
@ -658,7 +658,7 @@ inherited frmTatPlanList: TfrmTatPlanList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 30 ClientRectBottom = 30
ClientRectRight = 1540 ClientRectRight = 1468
ClientRectTop = 30 ClientRectTop = 30
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery

9
E01梭织生产计划/U_TatPlanList.pas
View File

@ -11,7 +11,8 @@ uses
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, dxScrollbarAnnotations; dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, dxScrollbarAnnotations,
cxContainer, cxProgressBar;
type type
TfrmTatPlanList = class(TfrmBaseList) TfrmTatPlanList = class(TfrmBaseList)
@ -443,7 +444,7 @@ begin
WSql := Trim(CDS_1.fieldbyname('MainId').AsString); WSql := Trim(CDS_1.fieldbyname('MainId').AsString);
try try
frmLabelPrint := TfrmLabelPrint.Create(Application); frmLabelPrint := TfrmLabelPrint.Create(self);
with frmLabelPrint do with frmLabelPrint do
begin begin
FLMType := 'TatPlanPrint'; FLMType := 'TatPlanPrint';
@ -452,11 +453,11 @@ begin
FFiltration3 := WSql; FFiltration3 := WSql;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
// Self.InitGrid();
end; end;
end; end;
finally finally
frmLabelPrint.Free; frmLabelPrint.Free;
end; end;
end; end;
@ -475,6 +476,8 @@ begin
begin begin
// FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString); // FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString);
// FSubId := Trim(Self.CDS_1.fieldbyname('SubId').AsString); // FSubId := Trim(Self.CDS_1.fieldbyname('SubId').AsString);
WBOrderNo := Trim(Self.CDS_1.fieldbyname('OrderNo').AsString);
WBC_Name := Trim(Self.CDS_1.fieldbyname('C_Name').AsString);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();

4788
E01梭织生产计划/U_TatPlan_ZOUKA_Sel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

216
E01梭织生产计划/U_TatPlan_ZOUKA_Sel.pas Normal file
View File

@ -0,0 +1,216 @@
unit U_TatPlan_ZOUKA_Sel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox,
cxCalendar, dxScrollbarAnnotations;
type
TfrmTatPlan_ZOUKA_Sel = class(TfrmBaseHelp)
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
TBSave: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
ADOConnection1: TADOConnection;
Panel1: TPanel;
GPM_1: TcxGridPopupMenu;
ImageList1: TImageList;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column7: TcxGridDBColumn;
v1ConNo: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
v1OrdDefStr1: TcxGridDBColumn;
v1MPRTCodeName: TcxGridDBColumn;
v1MPRTMF: TcxGridDBColumn;
v1MPRTKZ: TcxGridDBColumn;
v1PRTColor: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
C_Name: TEdit;
C_Color: TEdit;
C_ColorNo: TEdit;
C_Pattern: TEdit;
C_Code: TEdit;
ConNo: TEdit;
Label1: TLabel;
CustName: TEdit;
Label9: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
ToolButton2: TToolButton;
Label3: TLabel;
WBCID: TEdit;
Tv1Column2: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure OrderNoChange(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure BegDateChange(Sender: TObject);
procedure EndDateChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
FCoType, FAuthority: string;
{ Public declarations }
end;
var
frmTatPlan_ZOUKA_Sel: TfrmTatPlan_ZOUKA_Sel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmTatPlan_ZOUKA_Sel.FormCreate(Sender: TObject);
begin
inherited;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
BegDate.Datetime := Date - 6;
EndDate.Datetime := Date;
except
application.MessageBox('网络连接失败！', '提示信息');
end;
end;
procedure TfrmTatPlan_ZOUKA_Sel.BegDateChange(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatPlan_ZOUKA_Sel.EndDateChange(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatPlan_ZOUKA_Sel.FormDestroy(Sender: TObject);
begin
inherited;
frmTatPlan_ZOUKA_Sel := nil;
end;
procedure TfrmTatPlan_ZOUKA_Sel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cahide;
end;
procedure TfrmTatPlan_ZOUKA_Sel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select * from Tat_WB_Card');
sql.Add(' where ');
sql.Add(' Filltime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and Filltime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
// ShowMessage(sql.Text);
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmTatPlan_ZOUKA_Sel.OrderNoChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
end;
procedure TfrmTatPlan_ZOUKA_Sel.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid('单位名称' + Trim(FCoType), TV1, '自定义数据');
InitGrid();
end;
procedure TfrmTatPlan_ZOUKA_Sel.TBCloseClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmTatPlan_ZOUKA_Sel.TBSaveClick(Sender: TObject);
begin
WriteCxGrid('单位名称' + Trim(FCoType), TV1, '自定义数据');
end;
procedure TfrmTatPlan_ZOUKA_Sel.ToolButton1Click(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmTatPlan_ZOUKA_Sel.ToolButton2Click(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatPlan_ZOUKA_Sel.Tv1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
end.

587
E01梭织生产计划/U_TatWBCardInPut.dfm
View File

@ -3,21 +3,20 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 98 Top = 98
Caption = #32463#36724#35745#21010 Caption = #32463#36724#35745#21010
ClientHeight = 605 ClientHeight = 605
ClientWidth = 1546 ClientWidth = 1467
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 1562 ExplicitWidth = 1483
ExplicitHeight = 644 ExplicitHeight = 644
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object Panel2: TPanel [0] object Panel2: TPanel [0]
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1546 Width = 1467
Height = 605 Height = 605
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -34,7 +33,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
TabOrder = 1 TabOrder = 1
object Label8: TLabel object Label8: TLabel
Left = 198 Left = 198
Top = 121 Top = 142
Width = 54 Width = 54
Height = 12 Height = 12
Caption = #22836' '#32441 Caption = #22836' '#32441
@ -47,7 +46,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object Label9: TLabel object Label9: TLabel
Left = 20 Left = 20
Top = 149 Top = 195
Width = 53 Width = 53
Height = 12 Height = 12
Caption = #25190' '#32463' '#24037 Caption = #25190' '#32463' '#24037
@ -60,7 +59,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object Label11: TLabel object Label11: TLabel
Left = 19 Left = 19
Top = 121 Top = 169
Width = 54 Width = 54
Height = 12 Height = 12
Caption = #36724' '#38271 Caption = #36724' '#38271
@ -73,7 +72,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object Label2: TLabel object Label2: TLabel
Left = 19 Left = 19
Top = 318 Top = 351
Width = 54 Width = 54
Height = 12 Height = 12
Caption = #36724' '#25968 Caption = #36724' '#25968
@ -83,7 +82,6 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label15: TLabel object Label15: TLabel
Left = 33 Left = 33
@ -101,7 +99,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object Label3: TLabel object Label3: TLabel
Left = 199 Left = 199
Top = 95 Top = 115
Width = 53 Width = 53
Height = 12 Height = 12
Caption = #25972' '#32463' '#26426 Caption = #25972' '#32463' '#26426
@ -128,7 +126,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object Label6: TLabel object Label6: TLabel
Left = 200 Left = 200
Top = 149 Top = 168
Width = 52 Width = 52
Height = 12 Height = 12
Caption = #25972#32463#38271#24230 Caption = #25972#32463#38271#24230
@ -141,7 +139,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object Label4: TLabel object Label4: TLabel
Left = 19 Left = 19
Top = 228 Top = 261
Width = 54 Width = 54
Height = 12 Height = 12
Caption = #22791' '#27880 Caption = #22791' '#27880
@ -153,8 +151,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 201 Left = 198
Top = 16 Top = 37
Width = 54 Width = 54
Height = 12 Height = 12
Caption = #26085' '#26399 Caption = #26085' '#26399
@ -167,7 +165,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object Label10: TLabel object Label10: TLabel
Left = 20 Left = 20
Top = 95 Top = 142
Width = 53 Width = 53
Height = 12 Height = 12
Caption = #20379' '#24212' '#21830 Caption = #20379' '#24212' '#21830
@ -180,7 +178,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object Label13: TLabel object Label13: TLabel
Left = 19 Left = 19
Top = 42 Top = 116
Width = 54 Width = 54
Height = 12 Height = 12
Caption = #25209' '#21495 Caption = #25209' '#21495
@ -193,7 +191,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object Label14: TLabel object Label14: TLabel
Left = 21 Left = 21
Top = 175 Top = 37
Width = 52 Width = 52
Height = 12 Height = 12
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
@ -206,7 +204,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object Label16: TLabel object Label16: TLabel
Left = 198 Left = 198
Top = 175 Top = 195
Width = 54 Width = 54
Height = 12 Height = 12
Caption = #38376' '#24133 Caption = #38376' '#24133
@ -218,8 +216,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
ParentFont = False ParentFont = False
end end
object Label17: TLabel object Label17: TLabel
Left = 21 Left = 18
Top = 203 Top = 456
Width = 52 Width = 52
Height = 12 Height = 12
Caption = #32433#32447#25209#27425 Caption = #32433#32447#25209#27425
@ -229,13 +227,14 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label18: TLabel object Label18: TLabel
Left = 21 Left = 200
Top = 16 Top = 62
Width = 52 Width = 52
Height = 12 Height = 12
Caption = #25972#32463#21333#21495 Caption = #32455#36896#21333#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -244,11 +243,11 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
ParentFont = False ParentFont = False
end end
object Label19: TLabel object Label19: TLabel
Left = 20 Left = 21
Top = 68 Top = 89
Width = 53 Width = 52
Height = 12 Height = 12
Caption = #32463' '#32534' '#21495 Caption = #20135#21697#32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -257,8 +256,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 201 Left = 200
Top = 42 Top = 88
Width = 52 Width = 52
Height = 12 Height = 12
Caption = #19978#25490#39063#25968 Caption = #19978#25490#39063#25968
@ -269,10 +268,23 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label27: TLabel
Left = 34
Top = 62
Width = 39
Height = 12
Caption = #35746#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object WB_YarnQty: TEdit object WB_YarnQty: TEdit
Tag = 1 Tag = 1
Left = 258 Left = 258
Top = 117 Top = 142
Width = 100 Width = 100
Height = 20 Height = 20
TabOrder = 0 TabOrder = 0
@ -280,19 +292,19 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
object edtCardQty: TEdit object edtCardQty: TEdit
Tag = 1 Tag = 1
Left = 76 Left = 76
Top = 314 Top = 347
Width = 282 Width = 282
Height = 20 Height = 20
TabOrder = 1 TabOrder = 1
Visible = False
end end
object WB_Spec: TEdit object WB_Spec: TEdit
Tag = 1 Tag = 1
Left = 149 Left = 149
Top = 64 Top = 427
Width = 209 Width = 209
Height = 20 Height = 20
TabOrder = 2 TabOrder = 2
Visible = False
end end
object WB_Type: TComboBox object WB_Type: TComboBox
Tag = 1 Tag = 1
@ -326,7 +338,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
object WB_MachNo: TBtnEditC object WB_MachNo: TBtnEditC
Tag = 1 Tag = 1
Left = 258 Left = 258
Top = 91 Top = 112
Width = 100 Width = 100
Height = 20 Height = 20
Hint = 'WB_MachNo/'#25972#32463#26426 Hint = 'WB_MachNo/'#25972#32463#26426
@ -337,8 +349,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object WB_Macher: TBtnEditC object WB_Macher: TBtnEditC
Tag = 1 Tag = 1
Left = 76 Left = 83
Top = 145 Top = 191
Width = 100 Width = 100
Height = 20 Height = 20
Hint = 'WB_Macher/'#25190#32463#24037 Hint = 'WB_Macher/'#25190#32463#24037
@ -350,7 +362,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
object WB_YarnLen: TEdit object WB_YarnLen: TEdit
Tag = 1 Tag = 1
Left = 258 Left = 258
Top = 145 Top = 165
Width = 100 Width = 100
Height = 20 Height = 20
TabOrder = 7 TabOrder = 7
@ -358,7 +370,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
object Note: TRichEdit object Note: TRichEdit
Tag = 2 Tag = 2
Left = 76 Left = 76
Top = 228 Top = 261
Width = 282 Width = 282
Height = 66 Height = 66
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -372,7 +384,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object WBData: TDateTimePicker object WBData: TDateTimePicker
Left = 258 Left = 258
Top = 12 Top = 33
Width = 100 Width = 100
Height = 20 Height = 20
Date = 44378.000000000000000000 Date = 44378.000000000000000000
@ -381,8 +393,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
TabOrder = 9 TabOrder = 9
end end
object FtyCoName: TBtnEditC object FtyCoName: TBtnEditC
Left = 76 Left = 83
Top = 91 Top = 138
Width = 100 Width = 100
Height = 20 Height = 20
ReadOnly = True ReadOnly = True
@ -392,27 +404,27 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object WB_BatchNo: TEdit object WB_BatchNo: TEdit
Tag = 1 Tag = 1
Left = 76 Left = 83
Top = 38 Top = 112
Width = 100 Width = 100
Height = 20 Height = 20
TabOrder = 11 TabOrder = 11
end end
object WB_ClothName: TBtnEditC object WB_ClothNameL: TBtnEditC
Tag = 1 Tag = 1
Left = 76 Left = 83
Top = 171 Top = 33
Width = 100 Width = 100
Height = 20 Height = 20
ReadOnly = True ReadOnly = True
TabOrder = 12 TabOrder = 12
OnBtnUpClick = WB_ClothNameBtnUpClick OnBtnUpClick = WB_ClothNameLBtnUpClick
OnBtnDnClick = WB_ClothNameBtnDnClick OnBtnDnClick = WB_ClothNameLBtnDnClick
end end
object WB_YarnWidth: TEdit object WB_YarnWidth: TEdit
Tag = 1 Tag = 1
Left = 258 Left = 258
Top = 171 Top = 191
Width = 100 Width = 100
Height = 20 Height = 20
TabOrder = 13 TabOrder = 13
@ -420,18 +432,19 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
object WB_YarnBatchNo: TBtnEditC object WB_YarnBatchNo: TBtnEditC
Tag = 1 Tag = 1
Left = 76 Left = 76
Top = 197 Top = 453
Width = 282 Width = 282
Height = 20 Height = 20
ReadOnly = True ReadOnly = True
TabOrder = 14 TabOrder = 14
Visible = False
OnBtnUpClick = WB_YarnBatchNoBtnUpClick OnBtnUpClick = WB_YarnBatchNoBtnUpClick
OnBtnDnClick = WB_MachNoBtnDnClick OnBtnDnClick = WB_MachNoBtnDnClick
end end
object WBCNO: TEdit object WBCNOL: TEdit
Tag = 1 Tag = 1
Left = 76 Left = 258
Top = 12 Top = 59
Width = 100 Width = 100
Height = 20 Height = 20
ReadOnly = True ReadOnly = True
@ -439,27 +452,28 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object WB_Code: TBtnEditC object WB_Code: TBtnEditC
Tag = 1 Tag = 1
Left = 76 Left = 43
Top = 64 Top = 427
Width = 71 Width = 100
Height = 20 Height = 20
ReadOnly = True ReadOnly = True
TabOrder = 16 TabOrder = 16
Visible = False
OnBtnUpClick = WB_CodeBtnUpClick OnBtnUpClick = WB_CodeBtnUpClick
OnBtnDnClick = WB_CodeBtnDnClick OnBtnDnClick = WB_CodeBtnDnClick
end end
object WB_YarnArrQty: TEdit object WB_YarnArrQty: TEdit
Tag = 1 Tag = 1
Left = 259 Left = 258
Top = 38 Top = 86
Width = 100 Width = 100
Height = 20 Height = 20
TabOrder = 17 TabOrder = 17
end end
object WB_Len: TBtnEditC object WB_Len: TBtnEditC
Tag = 1 Tag = 1
Left = 76 Left = 83
Top = 117 Top = 165
Width = 100 Width = 100
Height = 20 Height = 20
Hint = 'WB_Len/'#36724#38271 Hint = 'WB_Len/'#36724#38271
@ -468,25 +482,43 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
OnBtnUpClick = WB_MachNoBtnUpClick OnBtnUpClick = WB_MachNoBtnUpClick
OnBtnDnClick = WB_MachNoBtnDnClick OnBtnDnClick = WB_MachNoBtnDnClick
end end
object WB_Clothcode: TEdit
Tag = 1
Left = 83
Top = 86
Width = 100
Height = 20
TabOrder = 19
end
object ConNoL: TEdit
Tag = 1
Left = 83
Top = 59
Width = 100
Height = 20
ReadOnly = True
TabOrder = 20
end
end end
object Panel4: TPanel object Panel4: TPanel
Left = 373 Left = 373
Top = 1 Top = 1
Width = 1172 Width = 1093
Height = 603 Height = 603
Align = alClient Align = alClient
Caption = 'Panel4' Caption = 'Panel4'
TabOrder = 0 TabOrder = 0
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 39 Top = 114
Width = 1170 Width = 1091
Height = 563 Height = 488
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_Card DataController.DataSource = DS_Card
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
@ -534,112 +566,149 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
object cxGridDBColumn1: TcxGridDBColumn object cxGridDBColumn1: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 42 Width = 42
end end
object TV2Column12: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object TV2Column8: TcxGridDBColumn object TV2Column8: TcxGridDBColumn
Caption = #25972#32463#21333#21495 Caption = #32455#36896#21333#21495
DataBinding.FieldName = 'WBCNO' DataBinding.FieldName = 'WBCNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object V2Column4: TcxGridDBColumn object V2Column4: TcxGridDBColumn
Caption = #36724#21345#21495 Caption = #36724#21345#21495
DataBinding.FieldName = 'WBCID' DataBinding.FieldName = 'WBCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 100
end
object V2Column1: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'WB_BatchNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object TV2Column5: TcxGridDBColumn
Caption = #32463#35268#26684
DataBinding.FieldName = 'WB_Spec'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object V2Column3: TcxGridDBColumn
Caption = #25972#32463#26426#21495
DataBinding.FieldName = 'WB_MachNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object TV2Column4: TcxGridDBColumn
Caption = #25972#32463#38271#24230
DataBinding.FieldName = 'WB_YarnLen'
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #36724#38271
DataBinding.FieldName = 'WB_Len'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TatPlan.Default
Width = 65
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #25190#32463#24037
DataBinding.FieldName = 'WB_Macher'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
end
object TV2Column7: TcxGridDBColumn
Caption = #19978#25490#39063#25968
DataBinding.FieldName = 'WB_YarnArrQty'
HeaderAlignmentHorz = taCenter
Width = 77
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #22836#32441
DataBinding.FieldName = 'WB_YarnQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TatPlan.Default
Width = 68
end
object TV2Column1: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'FtyCoName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TV2Column9: TcxGridDBColumn
Caption = #32463#32534#21495
DataBinding.FieldName = 'WB_Code'
HeaderAlignmentHorz = taCenter
Width = 56
end
object TV2Column2: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'WB_YarnWidth'
HeaderAlignmentHorz = taCenter
end
object TV2Column10: TcxGridDBColumn
Caption = #32433#32447#25209#27425
DataBinding.FieldName = 'WB_YarnBatchNo'
HeaderAlignmentHorz = taCenter
Width = 79
end end
object TV2Column6: TcxGridDBColumn object TV2Column6: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'WB_ClothName' DataBinding.FieldName = 'WB_ClothName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 68 Width = 70
end
object TV2Column11: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'WB_Clothcode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object V2Column1: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'WB_BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object TV2Column5: TcxGridDBColumn
Caption = #32463#35268#26684
DataBinding.FieldName = 'WB_Spec'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object V2Column3: TcxGridDBColumn
Caption = #25972#32463#26426#21495
DataBinding.FieldName = 'WB_MachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TV2Column4: TcxGridDBColumn
Caption = #25972#32463#38271#24230
DataBinding.FieldName = 'WB_YarnLen'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #36724#38271
DataBinding.FieldName = 'WB_Len'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TatPlan.Default
Width = 64
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #25190#32463#24037
DataBinding.FieldName = 'WB_Macher'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object TV2Column7: TcxGridDBColumn
Caption = #19978#25490#39063#25968
DataBinding.FieldName = 'WB_YarnArrQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #22836#32441
DataBinding.FieldName = 'WB_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TatPlan.Default
Width = 70
end
object TV2Column1: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'FtyCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object TV2Column9: TcxGridDBColumn
Caption = #32463#32534#21495
DataBinding.FieldName = 'WB_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object TV2Column2: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'WB_YarnWidth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object TV2Column10: TcxGridDBColumn
Caption = #32433#32447#25209#27425
DataBinding.FieldName = 'WB_YarnBatchNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 79
end end
object TV2Column3: TcxGridDBColumn object TV2Column3: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 146 Width = 100
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
@ -650,7 +719,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Tag = 1 Tag = 1
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1170 Width = 1091
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -669,16 +738,40 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
object TBSave: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBSave: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #24320#21345 Caption = #24320#21345
ImageIndex = 16 ImageIndex = 16
OnClick = TBSaveClick OnClick = TBSaveClick
end end
object ToolButton4: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #35746#21333
ImageIndex = 12
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 213
Top = 0
Caption = #32455#36896#21333
ImageIndex = 12
Visible = False
OnClick = ToolButton5Click
end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 71 Left = 304
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -686,7 +779,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 142 Left = 375
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -694,15 +787,15 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 213 Left = 446
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25442#21333 Caption = #25442#21333
ImageIndex = 1 ImageIndex = 1
OnClick = ToolButton3Click Visible = False
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 284 Left = 517
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -710,7 +803,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 379 Left = 612
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -718,6 +811,182 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
OnClick = TBCloseClick OnClick = TBCloseClick
end end
end end
object Panel3: TPanel
Left = 1
Top = 39
Width = 1091
Height = 75
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 2
object Label12: TLabel
Left = 497
Top = 10
Width = 39
Height = 12
Caption = #35746#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 804
Top = 44
Width = 52
Height = 12
Caption = #25972#32463#26426#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label21: TLabel
Left = 309
Top = 10
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 975
Top = 10
Width = 52
Height = 12
Caption = #29983#20135#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label23: TLabel
Left = 1001
Top = 44
Width = 26
Height = 12
Caption = #25209#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label24: TLabel
Left = 322
Top = 44
Width = 39
Height = 12
Caption = #36724#21345#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label25: TLabel
Left = 28
Top = 11
Width = 48
Height = 12
Caption = #26597#35810#26102#38388
end
object Label26: TLabel
Left = 64
Top = 45
Width = 12
Height = 12
Caption = #33267
end
object ConNo: TEdit
Tag = 2
Left = 540
Top = 6
Width = 100
Height = 20
TabOrder = 0
end
object Edit1: TEdit
Tag = 1
Left = 860
Top = 40
Width = 100
Height = 20
TabOrder = 2
Visible = False
end
object WB_ClothName: TEdit
Tag = 2
Left = 367
Top = 6
Width = 100
Height = 20
TabOrder = 1
end
object OrderNos: TEdit
Tag = 2
Left = 1033
Top = 6
Width = 100
Height = 20
TabOrder = 3
Visible = False
end
object BatchNo: TEdit
Tag = 1
Left = 1033
Top = 40
Width = 100
Height = 20
TabOrder = 4
Visible = False
end
object WBCID: TEdit
Tag = 1
Left = 367
Top = 41
Width = 100
Height = 20
TabOrder = 5
end
object BegDate: TDateTimePicker
Left = 91
Top = 7
Width = 136
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 6
end
object EndDate: TDateTimePicker
Left = 91
Top = 41
Width = 136
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 7
end
end
end end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
@ -734,6 +1003,12 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Left = 680 Left = 680
Top = 416 Top = 416
end end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 832
Top = 481
DesignInfo = 31523648
end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink Connection = DataLink_TatPlan.ADOLink
Parameters = <> Parameters = <>
@ -789,14 +1064,14 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object DS_Card: TDataSource object DS_Card: TDataSource
DataSet = CDS_Card DataSet = CDS_Card
Left = 484 Left = 468
Top = 396 Top = 276
end end
object CDS_Card: TClientDataSet object CDS_Card: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 396 Left = 396
Top = 396 Top = 260
end end
object ADOQueryPrint: TADOQuery object ADOQueryPrint: TADOQuery
Connection = DataLink_TatPlan.ADOLink Connection = DataLink_TatPlan.ADOLink

292
E01梭织生产计划/U_TatWBCardInPut.pas
View File

@ -12,7 +12,7 @@ uses
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC,
Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, BtnEdit, U_BaseInput, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, BtnEdit, U_BaseInput,
System.ImageList, Vcl.ImgList; System.ImageList, Vcl.ImgList, dxScrollbarAnnotations, cxImageList;
type type
TfrmTatWBCardInPut = class(TfrmBaseInput) TfrmTatWBCardInPut = class(TfrmBaseInput)
@ -77,14 +77,14 @@ type
Label13: TLabel; Label13: TLabel;
WB_BatchNo: TEdit; WB_BatchNo: TEdit;
Label14: TLabel; Label14: TLabel;
WB_ClothName: TBtnEditC; WB_ClothNameL: TBtnEditC;
Label16: TLabel; Label16: TLabel;
WB_YarnWidth: TEdit; WB_YarnWidth: TEdit;
TV2Column6: TcxGridDBColumn; TV2Column6: TcxGridDBColumn;
Label17: TLabel; Label17: TLabel;
WB_YarnBatchNo: TBtnEditC; WB_YarnBatchNo: TBtnEditC;
Label18: TLabel; Label18: TLabel;
WBCNO: TEdit; WBCNOL: TEdit;
TV2Column8: TcxGridDBColumn; TV2Column8: TcxGridDBColumn;
TV2Column9: TcxGridDBColumn; TV2Column9: TcxGridDBColumn;
Label19: TLabel; Label19: TLabel;
@ -95,8 +95,33 @@ type
TV2Column10: TcxGridDBColumn; TV2Column10: TcxGridDBColumn;
TV2Column7: TcxGridDBColumn; TV2Column7: TcxGridDBColumn;
WB_Len: TBtnEditC; WB_Len: TBtnEditC;
WB_Clothcode: TEdit;
TV2Column11: TcxGridDBColumn;
Panel3: TPanel;
Label12: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
ConNo: TEdit;
Edit1: TEdit;
WB_ClothName: TEdit;
OrderNos: TEdit;
BatchNo: TEdit;
WBCID: TEdit;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
TBRafresh: TToolButton;
Label27: TLabel;
ConNoL: TEdit;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
TV2Column12: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); // procedure FormShow(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -107,13 +132,18 @@ type
procedure ToolButton8Click(Sender: TObject); procedure ToolButton8Click(Sender: TObject);
procedure FtyCoNameBtnUpClick(Sender: TObject); procedure FtyCoNameBtnUpClick(Sender: TObject);
procedure FtyCoNameBtnDnClick(Sender: TObject); procedure FtyCoNameBtnDnClick(Sender: TObject);
procedure WB_ClothNameBtnUpClick(Sender: TObject); procedure WB_ClothNameLBtnUpClick(Sender: TObject);
procedure WB_ClothNameBtnDnClick(Sender: TObject); procedure WB_ClothNameLBtnDnClick(Sender: TObject);
procedure WB_CodeBtnUpClick(Sender: TObject); procedure WB_CodeBtnUpClick(Sender: TObject);
procedure WB_CodeBtnDnClick(Sender: TObject); procedure WB_CodeBtnDnClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); // procedure ToolButton3Click(Sender: TObject);
procedure WB_MachNoBtnUpClick(Sender: TObject); procedure WB_MachNoBtnUpClick(Sender: TObject);
procedure WB_YarnBatchNoBtnUpClick(Sender: TObject); procedure WB_YarnBatchNoBtnUpClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
// procedure WB_YarnBatchNo1Change(Sender: TObject);
private private
function TestData(): Boolean; function TestData(): Boolean;
procedure PrtDate(MWBCID: string); procedure PrtDate(MWBCID: string);
@ -122,6 +152,8 @@ type
{ Private declarations } { Private declarations }
public public
FWBCNO: string; FWBCNO: string;
WBOrderNo: string;
WBC_Name: string;
{ Public declarations } { Public declarations }
end; end;
@ -132,7 +164,8 @@ implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatPlanSel, U_CompanySel, U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatPlanSel, U_CompanySel,
U_TatClothInfoSel, U_YarnInfoSel, U_WBSpecEditSel, U_YarnStkSel; U_TatClothInfoSel, U_YarnInfoSel, U_WBSpecEditSel, U_YarnStkSel,
U_SalesContractSel;
{$R *.dfm} {$R *.dfm}
@ -146,16 +179,16 @@ begin
raise Exception.Create('头纹不能为空！'); raise Exception.Create('头纹不能为空！');
// if Trim(WB_YarnArr.Text) = '' then // if Trim(WB_YarnArr.Text) = '' then
// raise Exception.Create('上排不能为空！'); // raise Exception.Create('上排不能为空！');
if Trim(WB_YarnBatchNo.Text) = '' then // if Trim(WB_YarnBatchNo.Text) = '' then
raise Exception.Create('纱线批次不能为空！'); // raise Exception.Create('纱线批次不能为空！');
if Trim(WB_Len.Text) = '' then // if Trim(WB_Len.Text) = '' then
raise Exception.Create('轴长不能为空！'); // raise Exception.Create('轴长不能为空！');
if StrToIntDef(WB_YarnLen.Text, 0) = 0 then if StrToIntDef(WB_YarnLen.Text, 0) = 0 then
raise Exception.Create('整经长度不能为空！'); raise Exception.Create('整经长度不能为空！');
if Trim(WB_Macher.Text) = '' then // if Trim(WB_Macher.Text) = '' then
raise Exception.Create('扦经工位不能为空！'); // raise Exception.Create('扦经工位不能为空！');
if Trim(WB_MachNo.Text) = '' then // if Trim(WB_MachNo.Text) = '' then
raise Exception.Create('迁经机不能为空！'); // raise Exception.Create('迁经机不能为空！');
if StrToIntDef(WB_ClothPiece.Text, 0) = 0 then if StrToIntDef(WB_ClothPiece.Text, 0) = 0 then
begin begin
WB_ClothPiece.Text := '0'; WB_ClothPiece.Text := '0';
@ -170,17 +203,56 @@ begin
end; end;
procedure TfrmTatWBCardInPut.InitCard(); procedure TfrmTatWBCardInPut.InitCard();
var
WhereStr: string;
i: Integer;
Ctrl: TControl;
EditCtrl: TEdit;
CtrlText: string;
DBField: string; // 数据库字段名（直接使用控件Name）
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; SQL.Clear;
sql.Add('select A.* '); SQL.ADD('select A.*');
sql.Add('from Tat_WB_Card A '); SQL.ADD('from Tat_WB_Card A');
sql.Add('where isnull(Status,''0'')<>''-1'' and WBCNO=' + quotedstr(Trim(FWBCNO)));
Open; // 基础固定条件
WhereStr := 'where isnull(Status,''0'')<>''-1'' and WBCNO=' + quotedstr(Trim(WBOrderNo)) + ' and A.WBData>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and A.WBData<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''';
// 遍历Panel3中的所有TEdit控件（搜索条件框）
for i := 0 to Panel3.ControlCount - 1 do
begin
Ctrl := Panel3.Controls[i];
if Ctrl is TEdit then // 只处理编辑框
begin
EditCtrl := TEdit(Ctrl);
CtrlText := Trim(EditCtrl.Text);
if CtrlText = '' then
Continue; // 空值不参与搜索
// 直接用控件Name作为数据库字段名（因为Name与字段名完全一致）
DBField := 'A.' + EditCtrl.Name; // 拼接表别名A.，如A.WB_ClothName
// 根据Tag属性判断查询方式（Tag=1：模糊；Tag=0：精确）
if EditCtrl.Tag = 1 then
WhereStr := WhereStr + ' and ' + DBField + ' like ' + quotedstr('%' + CtrlText + '%')
else
WhereStr := WhereStr + ' and ' + DBField + ' = ' + quotedstr(CtrlText);
end; end;
end;
// 添加完整条件
SQL.Add(WhereStr);
Open;
// 原有赋值逻辑
WBData.Date := Date;
BegDate.DateTime := Date - 6;
enddate.DateTime := Date;
end;
SCreateCDS(ADOQueryTemp, CDS_Card); SCreateCDS(ADOQueryTemp, CDS_Card);
SInitCDSData(ADOQueryTemp, CDS_Card); SInitCDSData(ADOQueryTemp, CDS_Card);
end; end;
@ -256,19 +328,25 @@ begin
Action := caFree; Action := caFree;
end; end;
//procedure TfrmTatWBCardInPut.FormShow(Sender: TObject);
//begin
// inherited;
// ReadCxGrid(Trim(self.Caption) + 'Tv2', Tv2, '坯布轴卡');
// WBData.DateTime := SGetServerDate(ADOQueryTemp);
// if Trim(FWBCNO) = '' then
// begin
// if GetLSNo(ADOQueryTemp, FWBCNO, 'QJ', 'Tat_WB_Card', 3, 1) = False then
// begin
// raise Exception.Create('迁经单号失败!');
// end;
// end;
// WBCNO.Text := FWBCNO;
// InitCard();
//end;
procedure TfrmTatWBCardInPut.FormShow(Sender: TObject); procedure TfrmTatWBCardInPut.FormShow(Sender: TObject);
begin begin
inherited; // inherited;
ReadCxGrid(Trim(self.Caption) + 'Tv2', Tv2, '坯布轴卡');
WBData.DateTime := SGetServerDate(ADOQueryTemp);
if Trim(FWBCNO) = '' then
begin
if GetLSNo(ADOQueryTemp, FWBCNO, 'QJ', 'Tat_WB_Card', 3, 1) = False then
begin
raise Exception.Create('迁经单号失败!');
end;
end;
WBCNO.Text := FWBCNO;
InitCard(); InitCard();
end; end;
@ -311,6 +389,11 @@ begin
Close; Close;
end; end;
procedure TfrmTatWBCardInPut.TBRafreshClick(Sender: TObject);
begin
InitCard();
end;
procedure TfrmTatWBCardInPut.TBSaveClick(Sender: TObject); procedure TfrmTatWBCardInPut.TBSaveClick(Sender: TObject);
var var
MWBCID: string; MWBCID: string;
@ -325,9 +408,10 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' insert into Tat_WB_Card(WBCID, WBCNO,WB_YarnBatchNo,WB_Code,WB_Spec,WB_YarnQty,WB_YarnArrQty,WB_Len,WB_YarnLen,WB_Macher '); sql.Add(' insert into Tat_WB_Card(WBCID, WBCNO,WB_YarnBatchNo,WB_Clothcode,WB_Code,WB_Spec,WB_YarnQty,WB_YarnArrQty,WB_Len,WB_YarnLen,WB_Macher ');
sql.Add(' ,WBData,FtyCoNo,FtyCoName,WB_YarnWidth,WB_ClothName,WB_BatchNo'); sql.Add(' ,WBData,FtyCoNo,FtyCoName,WB_YarnWidth,WB_ClothName,WB_BatchNo');
sql.Add(' ,WB_MachNo,WB_ClothPiece,WB_Type,Note,FillId,Filler) values'); sql.Add(' ,WB_MachNo,WB_ClothPiece,WB_Type,Note,FillId,Filler,ConNo) values');
//ShowMessage(SQL.TEXT);
for i := 1 to StrToIntdef(edtCardQty.Text, 1) do for i := 1 to StrToIntdef(edtCardQty.Text, 1) do
begin begin
@ -338,12 +422,13 @@ begin
if i > 1 then if i > 1 then
sql.Add(','); sql.Add(',');
sql.Add(' (' + Quotedstr(Trim(MWBCID))); sql.Add(' (' + Quotedstr(Trim(MWBCID)));
sql.Add(',' + Quotedstr(Trim(WBCNO.Text))); sql.Add(',' + Quotedstr(Trim(WBCNOL.Text)));
sql.Add(',' + Quotedstr(Trim(WB_YarnBatchNo.Text))); sql.Add(',' + Quotedstr(Trim(WB_YarnBatchNo.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Clothcode.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Code.Text))); sql.Add(',' + Quotedstr(Trim(WB_Code.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Spec.Text))); sql.Add(',' + Quotedstr(Trim(WB_Spec.Text)));
sql.Add(',' + (Trim(WB_YarnQty.Text))); sql.Add(',' + (Trim(WB_YarnQty.Text)));
sql.Add(',' + Trim(WB_YarnArrQty.Text)); sql.Add(',' + Quotedstr(WB_YarnArrQty.Text));
sql.Add(',' + Quotedstr(Trim(WB_Len.Text))); sql.Add(',' + Quotedstr(Trim(WB_Len.Text)));
sql.Add(',' + (Trim(WB_YarnLen.Text))); sql.Add(',' + (Trim(WB_YarnLen.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Macher.Text))); sql.Add(',' + Quotedstr(Trim(WB_Macher.Text)));
@ -351,7 +436,7 @@ begin
sql.Add(',' + Quotedstr(Trim(FtyCoName.TxtCode))); sql.Add(',' + Quotedstr(Trim(FtyCoName.TxtCode)));
sql.Add(',' + Quotedstr(Trim(FtyCoName.Text))); sql.Add(',' + Quotedstr(Trim(FtyCoName.Text)));
sql.Add(',' + Quotedstr(Trim(WB_YarnWidth.Text))); sql.Add(',' + Quotedstr(Trim(WB_YarnWidth.Text)));
sql.Add(',' + Quotedstr(Trim(WB_ClothName.Text))); sql.Add(',' + Quotedstr(Trim(WB_ClothNameL.Text)));
sql.Add(',' + Quotedstr(Trim(WB_BatchNo.Text))); sql.Add(',' + Quotedstr(Trim(WB_BatchNo.Text)));
sql.Add(',' + Quotedstr(Trim(WB_MachNo.Text))); sql.Add(',' + Quotedstr(Trim(WB_MachNo.Text)));
sql.Add(',' + (Trim(WB_ClothPiece.Text))); sql.Add(',' + (Trim(WB_ClothPiece.Text)));
@ -359,8 +444,9 @@ begin
sql.Add(',' + Quotedstr(Trim(Note.Text))); sql.Add(',' + Quotedstr(Trim(Note.Text)));
sql.Add(',' + Quotedstr(Trim(DCode))); sql.Add(',' + Quotedstr(Trim(DCode)));
sql.Add(',' + Quotedstr(Trim(DName))); sql.Add(',' + Quotedstr(Trim(DName)));
sql.Add(',' + Quotedstr(Trim(ConNoL.Text)));
sql.Add(' )'); sql.Add(' )');
//ShowMessage(SQL.TEXT);
end; end;
ExecSQL; ExecSQL;
@ -433,6 +519,7 @@ begin
sql.Add(', PRTDate=getdate()'); sql.Add(', PRTDate=getdate()');
sql.Add(' where WBCID in (' + WSql + ')'); sql.Add(' where WBCID in (' + WSql + ')');
ExecSQL; ExecSQL;
//ShowMessage(SQL.TEXT);
end; end;
end; end;
end; end;
@ -447,17 +534,58 @@ begin
WriteCxGrid(Trim(self.Caption) + 'Tv2', Tv2, '坯布轴卡'); WriteCxGrid(Trim(self.Caption) + 'Tv2', Tv2, '坯布轴卡');
end; end;
procedure TfrmTatWBCardInPut.ToolButton3Click(Sender: TObject); procedure TfrmTatWBCardInPut.ToolButton4Click(Sender: TObject);
begin begin
try
if GetLSNo(ADOQueryTemp, FWBCNO, 'QJ', 'Tat_WB_Card', 3, 1) = False then frmSalesContractSel := TfrmSalesContractSel.Create(Application);
with frmSalesContractSel do
begin begin
raise Exception.Create('迁经单号失败!'); if ShowModal = 1 then
begin
self.ConNoL.Text := frmSalesContractSel.CDS_1.fieldbyname('ConNo').AsString; //合同号
// self.Custname.Text := frmSalesContractSel.CDS_1.fieldbyname('BuyName').AsString; //客户
// self.OurCoName.Text := frmSalesContractSel.CDS_1.fieldbyname('SellName').AsString;
self.WB_Clothcode.Text := frmSalesContractSel.CDS_1.fieldbyname('C_Code').AsString; //编号
self.WB_ClothNameL.Text := frmSalesContractSel.CDS_1.fieldbyname('C_Name').AsString; //品名
// self.OrdQty.Text := frmSalesContractSel.CDS_1.fieldbyname('ConQty').AsString; //总数量
end; end;
WBCNO.Text := FWBCNO; end;
InitCard(); finally
frmSalesContractSel.Free;
end;
end; end;
procedure TfrmTatWBCardInPut.ToolButton5Click(Sender: TObject);
begin
try
frmTatPlanSel := TfrmTatPlanSel.Create(Application);
with frmTatPlanSel do
begin
if ShowModal = 1 then
begin
Self.WB_ClothNameL.Text := frmTatPlanSel.CDS_1.fieldbyname('C_Name').AsString;
Self.WB_YarnWidth.Text := frmTatPlanSel.CDS_1.fieldbyname('C_Width').AsString;
Self.WB_Clothcode.Text := frmTatPlanSel.CDS_1.fieldbyname('C_Code').AsString;
end;
end;
finally
frmTatPlanSel.Free;
end;
end;
//procedure TfrmTatWBCardInPut.ToolButton3Click(Sender: TObject);
//begin
//
// if GetLSNo(ADOQueryTemp, FWBCNO, 'QJ', 'Tat_WB_Card', 3, 1) = False then
// begin
// raise Exception.Create('迁经单号失败!');
// end;
// WBCNO.Text := FWBCNO;
// InitCard();
//end;
procedure TfrmTatWBCardInPut.ToolButton8Click(Sender: TObject); procedure TfrmTatWBCardInPut.ToolButton8Click(Sender: TObject);
var var
WSql: string; WSql: string;
@ -522,13 +650,13 @@ begin
end; end;
end; end;
procedure TfrmTatWBCardInPut.WB_ClothNameBtnDnClick(Sender: TObject); procedure TfrmTatWBCardInPut.WB_ClothNameLBtnDnClick(Sender: TObject);
begin begin
Self.WB_ClothName.Text := ''; Self.WB_ClothName.Text := '';
Self.WB_YarnWidth.Text := ''; Self.WB_YarnWidth.Text := '';
end; end;
procedure TfrmTatWBCardInPut.WB_ClothNameBtnUpClick(Sender: TObject); procedure TfrmTatWBCardInPut.WB_ClothNameLBtnUpClick(Sender: TObject);
begin begin
try try
frmTatClothInfoSel := TfrmTatClothInfoSel.Create(Application); frmTatClothInfoSel := TfrmTatClothInfoSel.Create(Application);
@ -536,8 +664,12 @@ begin
begin begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.WB_ClothName.Text := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').AsString; Self.ConNoL.Text := '';
end;
begin
Self.WB_ClothNameL.Text := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').AsString;
Self.WB_YarnWidth.Text := frmTatClothInfoSel.CDS_1.fieldbyname('C_Width').AsString; Self.WB_YarnWidth.Text := frmTatClothInfoSel.CDS_1.fieldbyname('C_Width').AsString;
Self.WB_Clothcode.Text := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').AsString;
end; end;
end; end;
finally finally
@ -547,34 +679,34 @@ end;
procedure TfrmTatWBCardInPut.WB_CodeBtnDnClick(Sender: TObject); procedure TfrmTatWBCardInPut.WB_CodeBtnDnClick(Sender: TObject);
begin begin
TBtnEditC(Sender).Text := ''; // TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := ''; // TBtnEditC(Sender).TxtCode := '';
end; end;
procedure TfrmTatWBCardInPut.WB_CodeBtnUpClick(Sender: TObject); procedure TfrmTatWBCardInPut.WB_CodeBtnUpClick(Sender: TObject);
begin begin
try // try
frmWBSpecEditSel := TfrmWBSpecEditSel.Create(Application); // frmWBSpecEditSel := TfrmWBSpecEditSel.Create(Application);
with frmWBSpecEditSel do // with frmWBSpecEditSel do
begin // begin
if ShowModal = 1 then // if ShowModal = 1 then
begin // begin
Self.WB_Code.Text := CDS_Main.FieldByName('WB_Code').AsString; // Self.WB_Code.Text := CDS_Main.FieldByName('WB_Code').AsString;
Self.WB_Spec.Text := CDS_Main.FieldByName('WB_Spec').AsString; // Self.WB_Spec.Text := CDS_Main.FieldByName('WB_Spec').AsString;
Self.WB_YarnQty.Text := CDS_Main.FieldByName('WB_YarnQty').AsString; // Self.WB_YarnQty.Text := CDS_Main.FieldByName('WB_YarnQty').AsString;
//
end; // end;
end; // end;
finally // finally
frmWBSpecEditSel.Free; // frmWBSpecEditSel.Free;
end; // end;
end; end;
procedure TfrmTatWBCardInPut.WB_MachNoBtnDnClick(Sender: TObject); procedure TfrmTatWBCardInPut.WB_MachNoBtnDnClick(Sender: TObject);
begin begin
TBtnEditC(Sender).Text := ''; // TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := ''; // TBtnEditC(Sender).TxtCode := '';
end; end;
procedure TfrmTatWBCardInPut.WB_MachNoBtnUpClick(Sender: TObject); procedure TfrmTatWBCardInPut.WB_MachNoBtnUpClick(Sender: TObject);
@ -603,19 +735,19 @@ end;
procedure TfrmTatWBCardInPut.WB_YarnBatchNoBtnUpClick(Sender: TObject); procedure TfrmTatWBCardInPut.WB_YarnBatchNoBtnUpClick(Sender: TObject);
begin begin
try // try
frmYarnStkSel := TfrmYarnStkSel.Create(Application); // frmYarnStkSel := TfrmYarnStkSel.Create(Application);
with frmYarnStkSel do // with frmYarnStkSel do
begin // begin
FstkName := '纱线'; // FstkName := '纱线';
if ShowModal = 1 then // if ShowModal = 1 then
begin // begin
Self.WB_YarnBatchNo.Text := rtvalues[0]; // Self.WB_YarnBatchNo.Text := rtvalues[0];
end; // end;
end; // end;
finally // finally
frmYarnStkSel.Free; // frmYarnStkSel.Free;
end; // end;
end; end;
end. end.

1064
E01梭织生产计划/U_TatWBCardInPutXIUGAI.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

712
E01梭织生产计划/U_TatWBCardInPutXIUGAI.pas Normal file
View File

@ -0,0 +1,712 @@
unit U_TatWBCardInPutXIUGAI;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC,
Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, BtnEdit, U_BaseInput,
System.ImageList, Vcl.ImgList, dxScrollbarAnnotations, cxImageList;
type
TfrmTatWBCardInPutXIUGAI = class(TfrmBaseInput)
ADOQueryCmd: TADOQuery;
ADOQueryTemp: TADOQuery;
RM1: TRMGridReport;
RMXLSExport1: TRMXLSExport;
RMDB_1: TRMDBDataSet;
Panel2: TPanel;
DS_Card: TDataSource;
CDS_Card: TClientDataSet;
ADOQueryPrint: TADOQuery;
PopupMenu1: TPopupMenu;
N2: TMenuItem;
N3: TMenuItem;
Panel4: TPanel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
V2Column4: TcxGridDBColumn;
V2Column1: TcxGridDBColumn;
V2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
ToolBar1: TToolBar;
ToolButton2: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
Label8: TLabel;
Label9: TLabel;
Label11: TLabel;
Label2: TLabel;
Label15: TLabel;
Label3: TLabel;
Label5: TLabel;
Label6: TLabel;
Label4: TLabel;
WB_YarnQty: TEdit;
edtCardQty: TEdit;
WB_Spec: TEdit;
WB_Type: TComboBox;
WB_ClothPiece: TEdit;
WB_MachNo: TBtnEditC;
WB_Macher: TBtnEditC;
WB_YarnLen: TEdit;
Note: TRichEdit;
GPM_2: TcxGridPopupMenu;
TV2Column5: TcxGridDBColumn;
Label7: TLabel;
WBData: TDateTimePicker;
Label10: TLabel;
FtyCoName: TBtnEditC;
Label13: TLabel;
WB_BatchNo: TEdit;
Label14: TLabel;
WB_ClothNameL: TBtnEditC;
Label16: TLabel;
WB_YarnWidth: TEdit;
TV2Column6: TcxGridDBColumn;
Label17: TLabel;
WB_YarnBatchNo: TBtnEditC;
Label18: TLabel;
WBCNOL: TEdit;
TV2Column8: TcxGridDBColumn;
TV2Column9: TcxGridDBColumn;
Label19: TLabel;
WB_Code: TBtnEditC;
Label1: TLabel;
WB_YarnArrQty: TEdit;
TV2Column10: TcxGridDBColumn;
TV2Column7: TcxGridDBColumn;
WB_Len: TBtnEditC;
WB_Clothcode: TEdit;
TV2Column11: TcxGridDBColumn;
Panel3: TPanel;
Label12: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
ConNo: TEdit;
Edit1: TEdit;
WB_ClothName: TEdit;
OrderNos: TEdit;
BatchNo: TEdit;
WBCID: TEdit;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
TBRafresh: TToolButton;
Label27: TLabel;
ConNoL: TEdit;
TV2Column12: TcxGridDBColumn;
ToolButton1: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
// procedure FormShow(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
// procedure TBSaveClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure WB_MachNoBtnDnClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure FtyCoNameBtnUpClick(Sender: TObject);
procedure FtyCoNameBtnDnClick(Sender: TObject);
procedure WB_ClothNameLBtnUpClick(Sender: TObject);
procedure WB_ClothNameLBtnDnClick(Sender: TObject);
procedure WB_CodeBtnUpClick(Sender: TObject);
procedure WB_CodeBtnDnClick(Sender: TObject);
// procedure ToolButton3Click(Sender: TObject);
procedure WB_MachNoBtnUpClick(Sender: TObject);
procedure WB_YarnBatchNoBtnUpClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
// procedure WB_YarnBatchNo1Change(Sender: TObject);
private
function TestData(): Boolean;
procedure PrtDate(MWBCID: string);
procedure InitCard();
{ Private declarations }
public
FWBCNO: string;
WBOrderNo: string;
WBC_Name: string;
{ Public declarations }
end;
var
frmTatWBCardInPutXIUGAI: TfrmTatWBCardInPutXIUGAI;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatPlanSel, U_CompanySel,
U_TatClothInfoSel, U_YarnInfoSel, U_WBSpecEditSel, U_YarnStkSel,
U_SalesContractSel;
{$R *.dfm}
function TfrmTatWBCardInPutXIUGAI.TestData(): Boolean;
begin
try
// if StrToIntDef(edtCardQty.Text, 0) = 0 then
// raise Exception.Create('排轴数不能为空！');
if StrToIntDef(WB_YarnQty.Text, 0) = 0 then
raise Exception.Create('头纹不能为空！');
// if Trim(WB_YarnArr.Text) = '' then
// raise Exception.Create('上排不能为空！');
// if Trim(WB_YarnBatchNo.Text) = '' then
// raise Exception.Create('纱线批次不能为空！');
// if Trim(WB_Len.Text) = '' then
// raise Exception.Create('轴长不能为空！');
if StrToIntDef(WB_YarnLen.Text, 0) = 0 then
raise Exception.Create('整经长度不能为空！');
// if Trim(WB_Macher.Text) = '' then
// raise Exception.Create('扦经工位不能为空！');
// if Trim(WB_MachNo.Text) = '' then
// raise Exception.Create('迁经机不能为空！');
if StrToIntDef(WB_ClothPiece.Text, 0) = 0 then
begin
WB_ClothPiece.Text := '0';
end;
// if Trim(WB_Type.Text) = '' then
// raise Exception.Create('类型不能为空！');
Result := True;
except
Result := false;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTatWBCardInPutXIUGAI.InitCard();
var
WhereStr: string;
i: Integer;
Ctrl: TControl;
EditCtrl: TEdit;
CtrlText: string;
DBField: string; // 数据库字段名（直接使用控件Name）
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.ADD('select A.*');
SQL.ADD('from Tat_WB_Card A');
// 基础固定条件
WhereStr := 'where isnull(Status,''0'')<>''-1'' and WBCID=' + quotedstr(Trim(WBCID.text)) + ' and A.WBData>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and A.WBData<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''';
// 遍历Panel3中的所有TEdit控件（搜索条件框）
for i := 0 to Panel3.ControlCount - 1 do
begin
Ctrl := Panel3.Controls[i];
if Ctrl is TEdit then // 只处理编辑框
begin
EditCtrl := TEdit(Ctrl);
CtrlText := Trim(EditCtrl.Text);
if CtrlText = '' then
Continue; // 空值不参与搜索
// 直接用控件Name作为数据库字段名（因为Name与字段名完全一致）
DBField := 'A.' + EditCtrl.Name; // 拼接表别名A.，如A.WB_ClothName
// 根据Tag属性判断查询方式（Tag=1：模糊；Tag=0：精确）
if EditCtrl.Tag = 1 then
WhereStr := WhereStr + ' and ' + DBField + ' like ' + quotedstr('%' + CtrlText + '%')
else
WhereStr := WhereStr + ' and ' + DBField + ' = ' + quotedstr(CtrlText);
end;
end;
// 添加完整条件
SQL.Add(WhereStr);
Open;
// 原有赋值逻辑
WBData.Date := Date;
BegDate.DateTime := Date - 6;
enddate.DateTime := Date;
end;
SCreateCDS(ADOQueryTemp, CDS_Card);
SInitCDSData(ADOQueryTemp, CDS_Card);
end;
procedure TfrmTatWBCardInPutXIUGAI.PrtDate(MWBCID: string);
var
fPrintFile, FFCYID: string;
DPS, i, j: Integer;
begin
ExportFtErpFile('轴卡标签.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\轴卡标签.rmf';
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update Tat_WB_Card set PrtFlag=PrtFlag+1 ');
sql.Add(' where WBCID=' + quotedstr(MWBCID));
ExecSQL;
end;
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.*,D.* ');
sql.Add(' from PD_Plan_Main A inner join PD_Plan_Sub B on A.Mainid=B.MainId');
sql.Add(' inner join Tat_WB_Card_MS C on C.Subid=B.Subid ');
sql.Add(' inner join Tat_WB_Card D on C.WBCID=D.WBCID ');
sql.Add(' where D.WBCID=' + quotedstr(MWBCID));
// ShowMessage(SQL.Text);
Open;
end;
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select Y.* from PD_Plan_Yarn Y INNER JOIN Tat_WB_Card_MS M ON M.MainId=Y.MainId where Y.PYType=''经丝'' and M.WBCID=' + Quotedstr(Trim(MWBCID)));
// Open;
// end;
// SCreateCDS(ADOQueryTemp, CDS_PJS);
// SInitCDSData(ADOQueryTemp, CDS_PJS);
//
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select Y.* from PD_Plan_Yarn Y INNER JOIN Tat_WB_Card_MS M ON M.MainId=Y.MainId where Y.PYType=''纬丝'' and M.WBCID=' + Quotedstr(Trim(MWBCID)));
// Open;
// end;
// SCreateCDS(ADOQueryTemp, CDS_PWS);
// SInitCDSData(ADOQueryTemp, CDS_PWS);
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
RM1.DefaultCopies := 1;
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
Exit;
end;
end;
procedure TfrmTatWBCardInPutXIUGAI.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
//procedure TfrmTatWBCardInPut.FormShow(Sender: TObject);
//begin
// inherited;
// ReadCxGrid(Trim(self.Caption) + 'Tv2', Tv2, '坯布轴卡');
// WBData.DateTime := SGetServerDate(ADOQueryTemp);
// if Trim(FWBCNO) = '' then
// begin
// if GetLSNo(ADOQueryTemp, FWBCNO, 'QJ', 'Tat_WB_Card', 3, 1) = False then
// begin
// raise Exception.Create('迁经单号失败!');
// end;
// end;
// WBCNO.Text := FWBCNO;
// InitCard();
//end;
procedure TfrmTatWBCardInPutXIUGAI.FormCreate(Sender: TObject);
begin
InitCard();
end;
procedure TfrmTatWBCardInPutXIUGAI.FormShow(Sender: TObject);
begin
// inherited;
InitCard();
end;
procedure TfrmTatWBCardInPutXIUGAI.FtyCoNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).TxtCode := '';
TBtnEditC(Sender).Text := '';
end;
procedure TfrmTatWBCardInPutXIUGAI.FtyCoNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
FtyCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTatWBCardInPutXIUGAI.N2Click(Sender: TObject);
begin
SelOKNo(CDS_Card, True);
end;
procedure TfrmTatWBCardInPutXIUGAI.N3Click(Sender: TObject);
begin
SelOKNo(CDS_Card, False);
end;
procedure TfrmTatWBCardInPutXIUGAI.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatWBCardInPutXIUGAI.TBRafreshClick(Sender: TObject);
begin
InitCard();
end;
//procedure TfrmTatWBCardInPutXIUGAI.TBSaveClick(Sender: TObject);
//var
// rtvalues: TArray<string>;
//begin
// if CDS_Card.IsEmpty then
// Exit;
// Tv2.OnFocusedRecordChanged := nil;
// if CDS_Card.Locate('SSel', True, []) = False then
// begin
// Application.MessageBox('没有选择数据!', '提示', 0);
// Exit;
// end;
// rtvalues := SelCDSKey(CDS_Card, ['WBCID']);
//
// try
// ADOQueryCmd.Connection.BeginTrans;
//
// with ADOQueryCmd do
// begin
// Close;
// Sql.Clear;
// Sql.Add('update Tat_WB_Card ');
// Sql.Add('set WB_ClothName=' + Trim(Quotedstr(WB_ClothNameL.text)));
// Sql.Add(', WB_Clothcode=' + Trim(Quotedstr(WB_Clothcode.text)));
// Sql.Add(', WB_YarnArrQty=' + Trim(Quotedstr(WB_YarnArrQty.text)));
// Sql.Add(', WB_BatchNo=' + Trim(Quotedstr(WB_BatchNo.text)));
// Sql.Add(', WB_MachNo=' + Trim(Quotedstr(WB_MachNo.text)));
// Sql.Add(', FtyCoName=' + Trim(Quotedstr(FtyCoName.text)));
// Sql.Add(', WB_YarnQty=' + Trim(Quotedstr(WB_YarnQty.text)));
// Sql.Add(', WB_Len=' + Trim(Quotedstr(WB_Len.text)));
// Sql.Add(', WB_YarnLen=' + Trim(Quotedstr(WB_YarnLen.text)));
// Sql.Add(', WB_Macher=' + Trim(Quotedstr(WB_Macher.text)));
// Sql.Add(', WB_YarnWidth=' + Trim(Quotedstr(WB_YarnWidth.text)));
// Sql.Add(', ConNo=' + Trim(Quotedstr(ConNo.text)));
// Sql.Add('WHERE WBCID ='+ quotedstr(Trim(rtvalues[0])));
//// Sql.Add('@WBCIDS=' + quotedstr(Trim(rtvalues[0])));
//// Sql.Add(',@DCode=' + Quotedstr(DCode));
//// Sql.Add(',@DName=' + Quotedstr(DName));
// EXECSQL;
// end;
// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
// begin
// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
// end;
// ADOQueryCmd.Connection.CommitTrans;
// application.MessageBox('保存成功！', '提示信息');
// except
// ADOQueryCmd.Connection.RollbackTrans;
// application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
// end;
// InitCard();
//end;
procedure TfrmTatWBCardInPutXIUGAI.ToolButton1Click(Sender: TObject);
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('update Tat_WB_Card ');
Sql.Add('set WB_ClothName=' + Trim(Quotedstr(WB_ClothNameL.text)));
Sql.Add(', WB_Clothcode=' + Trim(Quotedstr(WB_Clothcode.text)));
Sql.Add(', WB_YarnArrQty=' + Trim(Quotedstr(WB_YarnArrQty.text)));
Sql.Add(', WB_BatchNo=' + Trim(Quotedstr(WB_BatchNo.text)));
Sql.Add(', WB_MachNo=' + Trim(Quotedstr(WB_MachNo.text)));
Sql.Add(', FtyCoName=' + Trim(Quotedstr(FtyCoName.text)));
Sql.Add(', WB_YarnQty=' + Trim(Quotedstr(WB_YarnQty.text)));
Sql.Add(', WB_Len=' + Trim(Quotedstr(WB_Len.text)));
Sql.Add(', WB_YarnLen=' + Trim(Quotedstr(WB_YarnLen.text)));
Sql.Add(', WB_Macher=' + Trim(Quotedstr(WB_Macher.text)));
Sql.Add(', WB_YarnWidth=' + Trim(Quotedstr(WB_YarnWidth.text)));
Sql.Add(', Note=' + Trim(Quotedstr(Note.text)));
Sql.Add(', ConNo=' + Trim(Quotedstr(ConNo.text)));
Sql.Add(', WBCNO=' + Trim(Quotedstr(WBCNOL.text)));
Sql.Add('WHERE WBCID ='+ Quotedstr(Trim(CDS_Card.FieldByName('WBCID').AsString)));
// ShowMessage(sql.text);
EXECSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('保存成功！', '提示信息');
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
InitCard();
end;
procedure TfrmTatWBCardInPutXIUGAI.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(Trim(self.Caption) + 'Tv2', Tv2, '坯布轴卡');
end;
procedure TfrmTatWBCardInPutXIUGAI.ToolButton4Click(Sender: TObject);
begin
try
frmSalesContractSel := TfrmSalesContractSel.Create(Application);
with frmSalesContractSel do
begin
if ShowModal = 1 then
begin
self.ConNoL.Text := frmSalesContractSel.CDS_1.fieldbyname('ConNo').AsString; //合同号
// self.Custname.Text := frmSalesContractSel.CDS_1.fieldbyname('BuyName').AsString; //客户
// self.OurCoName.Text := frmSalesContractSel.CDS_1.fieldbyname('SellName').AsString;
self.WB_Clothcode.Text := frmSalesContractSel.CDS_1.fieldbyname('C_Code').AsString; //编号
self.WB_ClothNameL.Text := frmSalesContractSel.CDS_1.fieldbyname('C_Name').AsString; //品名
// self.OrdQty.Text := frmSalesContractSel.CDS_1.fieldbyname('ConQty').AsString; //总数量
end;
end;
finally
frmSalesContractSel.Free;
end;
end;
procedure TfrmTatWBCardInPutXIUGAI.ToolButton5Click(Sender: TObject);
begin
try
frmTatPlanSel := TfrmTatPlanSel.Create(Application);
with frmTatPlanSel do
begin
if ShowModal = 1 then
begin
Self.WB_ClothNameL.Text := frmTatPlanSel.CDS_1.fieldbyname('C_Name').AsString;
Self.WB_YarnWidth.Text := frmTatPlanSel.CDS_1.fieldbyname('C_Width').AsString;
Self.WB_Clothcode.Text := frmTatPlanSel.CDS_1.fieldbyname('C_Code').AsString;
end;
end;
finally
frmTatPlanSel.Free;
end;
end;
//procedure TfrmTatWBCardInPut.ToolButton3Click(Sender: TObject);
//begin
//
// if GetLSNo(ADOQueryTemp, FWBCNO, 'QJ', 'Tat_WB_Card', 3, 1) = False then
// begin
// raise Exception.Create('迁经单号失败!');
// end;
// WBCNO.Text := FWBCNO;
// InitCard();
//end;
procedure TfrmTatWBCardInPutXIUGAI.ToolButton8Click(Sender: TObject);
var
WSql: string;
begin
if CDS_Card.IsEmpty then
Exit;
if CDS_Card.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_Card.DisableControls;
while CDS_Card.Locate('SSel', True, []) do
begin
if CDS_Card.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + (Trim(CDS_Card.fieldbyname('WBCID').AsString));
end
else
begin
WSql := (Trim(CDS_Card.fieldbyname('WBCID').AsString));
end;
end;
CDS_Card.Delete;
end;
CDS_Card.EnableControls;
try
ADOQueryCmd.Connection.BeginTrans;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('insert into Knit_Need_Up(UOperation,UType,UDataId) values(''检验'',''检验删除'',' + quotedstr(MCIIDS) + ') ');
// ExecSQL;
// end;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_TatWB_Card_Del ');
Sql.Add('@WBCIDS=' + quotedstr(Trim(WSql)));
Sql.Add(',@DCode=' + Quotedstr(DCode));
Sql.Add(',@DName=' + Quotedstr(DName));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end;
ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('删除成功！', '提示信息');
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTatWBCardInPutXIUGAI.WB_ClothNameLBtnDnClick(Sender: TObject);
begin
Self.WB_ClothName.Text := '';
Self.WB_YarnWidth.Text := '';
end;
procedure TfrmTatWBCardInPutXIUGAI.WB_ClothNameLBtnUpClick(Sender: TObject);
begin
try
frmTatClothInfoSel := TfrmTatClothInfoSel.Create(Application);
with frmTatClothInfoSel do
begin
if ShowModal = 1 then
begin
Self.ConNoL.Text := '';
end;
begin
Self.WB_ClothNameL.Text := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').AsString;
Self.WB_YarnWidth.Text := frmTatClothInfoSel.CDS_1.fieldbyname('C_Width').AsString;
Self.WB_Clothcode.Text := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').AsString;
end;
end;
finally
frmTatClothInfoSel.Free;
end;
end;
procedure TfrmTatWBCardInPutXIUGAI.WB_CodeBtnDnClick(Sender: TObject);
begin
// TBtnEditC(Sender).Text := '';
// TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmTatWBCardInPutXIUGAI.WB_CodeBtnUpClick(Sender: TObject);
begin
// try
// frmWBSpecEditSel := TfrmWBSpecEditSel.Create(Application);
// with frmWBSpecEditSel do
// begin
// if ShowModal = 1 then
// begin
// Self.WB_Code.Text := CDS_Main.FieldByName('WB_Code').AsString;
// Self.WB_Spec.Text := CDS_Main.FieldByName('WB_Spec').AsString;
// Self.WB_YarnQty.Text := CDS_Main.FieldByName('WB_YarnQty').AsString;
//
// end;
// end;
// finally
// frmWBSpecEditSel.Free;
// end;
end;
procedure TfrmTatWBCardInPutXIUGAI.WB_MachNoBtnDnClick(Sender: TObject);
begin
// TBtnEditC(Sender).Text := '';
// TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmTatWBCardInPutXIUGAI.WB_MachNoBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTatWBCardInPutXIUGAI.WB_YarnBatchNoBtnUpClick(Sender: TObject);
begin
// try
// frmYarnStkSel := TfrmYarnStkSel.Create(Application);
// with frmYarnStkSel do
// begin
// FstkName := '纱线';
// if ShowModal = 1 then
// begin
// Self.WB_YarnBatchNo.Text := rtvalues[0];
// end;
// end;
// finally
// frmYarnStkSel.Free;
// end;
end;
end.

279
E01梭织生产计划/U_TatWBPlanCard.dfm
View File

@ -8,7 +8,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
ExplicitWidth = 1413 ExplicitWidth = 1413
ExplicitHeight = 676 ExplicitHeight = 676
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 17
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -31,7 +31,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 4
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -101,15 +101,15 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1397 Width = 1397
Height = 61 Height = 75
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 5
object Label3: TLabel object Label3: TLabel
Left = 198 Left = 305
Top = 11 Top = 11
Width = 39 Width = 39
Height = 12 Height = 12
@ -122,8 +122,8 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 185 Left = 292
Top = 37 Top = 45
Width = 52 Width = 52
Height = 12 Height = 12
Caption = #25972#32463#26426#21495 Caption = #25972#32463#26426#21495
@ -135,7 +135,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 530 Left = 637
Top = 11 Top = 11
Width = 52 Width = 52
Height = 12 Height = 12
@ -148,7 +148,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 356 Left = 463
Top = 11 Top = 11
Width = 52 Width = 52
Height = 12 Height = 12
@ -161,8 +161,8 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 382 Left = 489
Top = 37 Top = 45
Width = 26 Width = 26
Height = 12 Height = 12
Caption = #25209#21495 Caption = #25209#21495
@ -174,8 +174,8 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 543 Left = 650
Top = 37 Top = 45
Width = 39 Width = 39
Height = 12 Height = 12
Caption = #36724#21345#21495 Caption = #36724#21345#21495
@ -190,83 +190,83 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
Left = 28 Left = 28
Top = 11 Top = 11
Width = 48 Width = 48
Height = 12 Height = 17
Caption = #26597#35810#26102#38388 Caption = #26597#35810#26102#38388
end end
object Label10: TLabel object Label10: TLabel
Left = 64 Left = 64
Top = 37 Top = 45
Width = 12 Width = 12
Height = 12 Height = 17
Caption = #33267 Caption = #33267
end end
object ConNos: TEdit object ConNos: TEdit
Tag = 2 Tag = 2
Left = 241 Left = 348
Top = 7 Top = 7
Width = 100 Width = 100
Height = 20 Height = 25
TabOrder = 0 TabOrder = 0
OnChange = ConNosChange OnChange = ConNosChange
end end
object WB_MachNo: TEdit object WB_MachNo: TEdit
Tag = 1 Tag = 1
Left = 241 Left = 348
Top = 33 Top = 41
Width = 100 Width = 100
Height = 20 Height = 25
TabOrder = 2 TabOrder = 2
OnChange = ConNosChange OnChange = ConNosChange
end end
object WB_ClothName: TEdit object WB_ClothName: TEdit
Tag = 2 Tag = 2
Left = 584 Left = 691
Top = 7 Top = 7
Width = 100 Width = 100
Height = 20 Height = 25
TabOrder = 1 TabOrder = 1
OnChange = ConNosChange OnChange = ConNosChange
end end
object OrderNos: TEdit object OrderNos: TEdit
Tag = 2 Tag = 2
Left = 414 Left = 521
Top = 7 Top = 7
Width = 100 Width = 100
Height = 20 Height = 25
TabOrder = 3 TabOrder = 3
OnChange = ConNosChange OnChange = ConNosChange
end end
object BatchNo: TEdit object BatchNo: TEdit
Tag = 1 Tag = 1
Left = 414 Left = 521
Top = 33 Top = 41
Width = 100 Width = 100
Height = 20 Height = 25
TabOrder = 4 TabOrder = 4
OnChange = ConNosChange OnChange = ConNosChange
end end
object WBCID: TEdit object WBCID: TEdit
Tag = 1 Tag = 1
Left = 584 Left = 691
Top = 33 Top = 41
Width = 100 Width = 100
Height = 20 Height = 25
TabOrder = 5 TabOrder = 5
OnChange = ConNosChange OnChange = ConNosChange
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 77 Left = 91
Top = 7 Top = 7
Width = 87 Width = 136
Height = 20 Height = 20
Date = 40768.000000000000000000 Date = 40768.000000000000000000
Time = 0.458268587972270300 Time = 0.458268587972270300
TabOrder = 6 TabOrder = 6
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 77 Left = 91
Top = 33 Top = 41
Width = 87 Width = 136
Height = 20 Height = 20
Date = 40768.000000000000000000 Date = 40768.000000000000000000
Time = 0.458268587972270300 Time = 0.458268587972270300
@ -275,7 +275,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
end end
object cxTabControl1: TcxTabControl [2] object cxTabControl1: TcxTabControl [2]
Left = 0 Left = 0
Top = 99 Top = 113
Width = 1397 Width = 1397
Height = 27 Height = 27
Align = alTop Align = alTop
@ -300,14 +300,15 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
end end
object cxGrid1: TcxGrid [3] object cxGrid1: TcxGrid [3]
Left = 0 Left = 0
Top = 126 Top = 140
Width = 1397 Width = 1397
Height = 511 Height = 497
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
@ -355,119 +356,161 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
object cxGridDBColumn1: TcxGridDBColumn object cxGridDBColumn1: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 42 Width = 42
end end
object TV1Column8: TcxGridDBColumn object TV1Column11: TcxGridDBColumn
Caption = #25972#32463#21333#21495 Caption = #35746#21333#21495
DataBinding.FieldName = 'WBCNO' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 65 Width = 100
end
object TV1Column8: TcxGridDBColumn
Caption = #32455#36896#21333#21495
DataBinding.FieldName = 'WBCNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end end
object V2Column4: TcxGridDBColumn object V2Column4: TcxGridDBColumn
Caption = #36724#21345#21495 Caption = #36724#21345#21495
DataBinding.FieldName = 'WBCID' DataBinding.FieldName = 'WBCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 76
end
object V2Column1: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'WB_BatchNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object TV1Column9: TcxGridDBColumn
Caption = #32463#32534#21495
DataBinding.FieldName = 'WB_Code'
HeaderAlignmentHorz = taCenter
Width = 56
end
object TV1Column5: TcxGridDBColumn
Caption = #32463#35268#26684
DataBinding.FieldName = 'WB_Spec'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object V2Column3: TcxGridDBColumn
Caption = #25972#32463#26426#21495
DataBinding.FieldName = 'WB_MachNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object TV1Column4: TcxGridDBColumn
Caption = #25972#32463#38271#24230
DataBinding.FieldName = 'WB_YarnLen'
end
object TV1Column7: TcxGridDBColumn
Caption = #19978#25490#39063#25968
DataBinding.FieldName = 'WB_YarnArrQty'
HeaderAlignmentHorz = taCenter
Width = 79
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #36724#38271
DataBinding.FieldName = 'WB_Len'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TatPlan.Default
Width = 65
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #25190#32463#24037
DataBinding.FieldName = 'WB_Macher'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #22836#32441
DataBinding.FieldName = 'WB_YarnQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TatPlan.Default
Width = 68
end
object TV1Column1: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'FtyCoName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TV1Column2: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'WB_YarnWidth'
HeaderAlignmentHorz = taCenter
end end
object TV1Column6: TcxGridDBColumn object TV1Column6: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'WB_ClothName' DataBinding.FieldName = 'WB_ClothName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 68 Width = 69
end
object V2Column1: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'WB_BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object TV1Column9: TcxGridDBColumn
Caption = #32463#32534#21495
DataBinding.FieldName = 'WB_Code'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 57
end
object TV1Column5: TcxGridDBColumn
Caption = #32463#35268#26684
DataBinding.FieldName = 'WB_Spec'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V2Column3: TcxGridDBColumn
Caption = #25972#32463#26426#21495
DataBinding.FieldName = 'WB_MachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object TV1Column4: TcxGridDBColumn
Caption = #25972#32463#38271#24230
DataBinding.FieldName = 'WB_YarnLen'
DataBinding.IsNullValueType = True
Width = 65
end
object TV1Column7: TcxGridDBColumn
Caption = #19978#25490#39063#25968
DataBinding.FieldName = 'WB_YarnArrQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #36724#38271
DataBinding.FieldName = 'WB_Len'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TatPlan.Default
Width = 66
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #25190#32463#24037
DataBinding.FieldName = 'WB_Macher'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #22836#32441
DataBinding.FieldName = 'WB_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TatPlan.Default
Width = 69
end
object TV1Column1: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'FtyCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object TV1Column2: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'WB_YarnWidth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end end
object TV1Column3: TcxGridDBColumn object TV1Column3: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 146 Width = 150
end end
object TV1Column10: TcxGridDBColumn object TV1Column10: TcxGridDBColumn
Caption = #32433#32447#25209#27425 Caption = #32433#32447#25209#27425
DataBinding.FieldName = 'WB_YarnBatchNo' DataBinding.FieldName = 'WB_YarnBatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 107 Width = 99
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV1 GridView = TV1
end end
end end
inherited loadProcess: TPanel
Left = 424
Top = 256
ExplicitLeft = 424
ExplicitTop = 256
end
inherited cxProgressBar2: TcxProgressBar
Left = 441
Top = 320
ExplicitLeft = 441
ExplicitTop = 320
ExplicitHeight = 25
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink Connection = DataLink_TatPlan.ADOLink
Left = 81 Left = 81

55
E01梭织生产计划/U_TatWBPlanCard.pas
View File

@ -12,7 +12,7 @@ uses
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox,
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
U_BaseList, Vcl.Menus; U_BaseList, Vcl.Menus, cxContainer, dxScrollbarAnnotations, cxProgressBar;
type type
TfrmTatWBPlanCard = class(TfrmBaseList) TfrmTatWBPlanCard = class(TfrmBaseList)
@ -73,6 +73,7 @@ type
EndDate: TDateTimePicker; EndDate: TDateTimePicker;
TV1Column10: TcxGridDBColumn; TV1Column10: TcxGridDBColumn;
TV1Column7: TcxGridDBColumn; TV1Column7: TcxGridDBColumn;
TV1Column11: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -87,6 +88,7 @@ type
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private private
FInt, PFInt: Integer; FInt, PFInt: Integer;
FFMainID, BPFlag: string; FFMainID, BPFlag: string;
@ -100,7 +102,8 @@ type
implementation implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBCardInPut, U_TatCardInPut; U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBCardInPut, U_TatCardInPut,
U_TatWBCardInPutXIUGAI;
{$R *.dfm} {$R *.dfm}
@ -111,6 +114,12 @@ begin
WriteCxGrid('DCG13', Tv1, '坯布生产2'); WriteCxGrid('DCG13', Tv1, '坯布生产2');
end; end;
procedure TfrmTatWBPlanCard.FormCreate(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatWBPlanCard.TBCloseClick(Sender: TObject); procedure TfrmTatWBPlanCard.TBCloseClick(Sender: TObject);
begin begin
Close; Close;
@ -255,8 +264,13 @@ begin
Application.MessageBox('没有选择数据!', '提示', 0); Application.MessageBox('没有选择数据!', '提示', 0);
Exit; Exit;
end; end;
rtvalues := SelCDSKey(CDS_1, ['WBCID']);
//删除提示 如果点击叉叉 就返回不执行删除
if CDS_1.FieldByName('SSel').AsString <> '' then
begin
if Application.MessageBox('确定要删除吗？', '提示', MB_OKCANCEL) = IDOK then
rtvalues := SelCDSKey(CDS_1, ['WBCID']);
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
@ -279,7 +293,8 @@ begin
application.MessageBox('删除成功！', '提示信息'); application.MessageBox('删除成功！', '提示信息');
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0); // application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end; end;
end; end;
@ -292,6 +307,11 @@ begin
FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString); FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString);
FSubId := Trim(Self.CDS_1.fieldbyname('SubId').AsString); FSubId := Trim(Self.CDS_1.fieldbyname('SubId').AsString);
FWBCID := Trim(Self.CDS_1.fieldbyname('WBCID').AsString); FWBCID := Trim(Self.CDS_1.fieldbyname('WBCID').AsString);
// begin
// if FWBCID = '' then
// ShowMessage('11111111111');
// end;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
@ -319,22 +339,43 @@ begin
finally finally
frmTatWBCardInPut.Free; frmTatWBCardInPut.Free;
end; end;
begin
InitGrid();
end;
end; end;
procedure TfrmTatWBPlanCard.ToolButton6Click(Sender: TObject); procedure TfrmTatWBPlanCard.ToolButton6Click(Sender: TObject);
begin begin
try try
frmTatWBCardInPut := TfrmTatWBCardInPut.Create(Application); frmTatWBCardInPutXIUGAI := TfrmTatWBCardInPutXIUGAI.Create(Application);
with frmTatWBCardInPut do with frmTatWBCardInPutXIUGAI do
begin
begin begin
FWBCNO := Trim(Self.CDS_1.fieldbyname('WBCNO').AsString); FWBCNO := Trim(Self.CDS_1.fieldbyname('WBCNO').AsString);
WBCID.text := Trim(Self.CDS_1.fieldbyname('WBCID').AsString);
WB_ClothNameL.text := Trim(Self.CDS_1.fieldbyname('WB_ClothName').AsString);
WB_Clothcode.text := Trim(Self.CDS_1.fieldbyname('WB_Clothcode').AsString);
WB_YarnArrQty.text := Trim(Self.CDS_1.fieldbyname('WB_YarnArrQty').AsString);
WB_BatchNo.text := Trim(Self.CDS_1.fieldbyname('WB_BatchNo').AsString);
WB_MachNo.text := Trim(Self.CDS_1.fieldbyname('WB_MachNo').AsString);
FtyCoName.text := Trim(Self.CDS_1.fieldbyname('FtyCoName').AsString);
WB_YarnQty.text := Trim(Self.CDS_1.fieldbyname('WB_YarnQty').AsString);
WB_Len.text := Trim(Self.CDS_1.fieldbyname('WB_Len').AsString);
WB_YarnLen.text := Trim(Self.CDS_1.fieldbyname('WB_YarnLen').AsString);
WB_Macher.text := Trim(Self.CDS_1.fieldbyname('WB_Macher').AsString);
WB_YarnWidth.text := Trim(Self.CDS_1.fieldbyname('WB_YarnWidth').AsString);
Note.text := Trim(Self.CDS_1.fieldbyname('Note').AsString);
ConNoL.text := Trim(Self.CDS_1.fieldbyname('ConNo').AsString);
// WBCNOL.text := Trim(Self.CDS_1.fieldbyname('WBCNO').AsString);
end;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
end; end;
end; end;
finally finally
frmTatWBCardInPut.Free; frmTatWBCardInPutXIUGAI.Free;
end; end;
end; end;

3
E01梭织生产计划/testDll.dproj
View File

@ -95,7 +95,7 @@
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024> <iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''"> <PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> <DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType> <BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<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> <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>
@ -139,6 +139,7 @@
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes> <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode> <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<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> <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:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">

BIN
E01梭织生产计划/testDll.identcache
View File

Binary file not shown.

5
E01梭织生产计划/testDll.skincfg Normal file
View File

@ -0,0 +1,5 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=1
dxSkinsDefaultPainters=1

2
E02梭织经轴仓库/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10Repo\项目代码\千圣\E02梭织经轴仓库\WarpBeamStk.dproj"/> <Projects ActiveProject="D:\Dp10RepoV10\项目代码\D10szXingjie\E02梭织经轴仓库\testDll.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

Some files were not shown because too many files have changed in this diff Show More