111
This commit is contained in:
parent
058f9805c4
commit
51c03c7c94
|
|
@ -81,6 +81,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
|
|||
OptionsView.CellAutoHeight = True
|
||||
OptionsView.Headers = False
|
||||
RootValue = -1
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
TabOrder = 1
|
||||
OnDblClick = cxDBTreeList1DblClick
|
||||
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
|
||||
|
|
@ -225,6 +226,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
|
|||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
Navigator.Buttons.Delete.Visible = False
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
|
|
@ -238,6 +240,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
|
|||
object v1SSel: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 41
|
||||
|
|
@ -245,6 +248,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
|
|||
object v1Column12: TcxGridDBColumn
|
||||
Caption = #31867#21035
|
||||
DataBinding.FieldName = 'CTName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
|
|
@ -252,6 +256,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
|
|||
object v1CYNo: TcxGridDBColumn
|
||||
Caption = #20135#21697#32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 112
|
||||
|
|
@ -259,12 +264,14 @@ inherited frmClothInfoSel: TfrmClothInfoSel
|
|||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 116
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #33521#25991#21697#21517
|
||||
DataBinding.FieldName = 'C_EName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 92
|
||||
|
|
@ -272,6 +279,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
|
|||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -279,6 +287,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
|
|||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 81
|
||||
|
|
@ -286,6 +295,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
|
|||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #22383#24067#32534#21495
|
||||
DataBinding.FieldName = 'C_FromCode'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 85
|
||||
|
|
@ -293,6 +303,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
|
|||
object Tv1Column8: TcxGridDBColumn
|
||||
Caption = #22383#24067#21517#31216
|
||||
DataBinding.FieldName = 'C_FromName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 81
|
||||
|
|
@ -300,6 +311,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
|
|||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #25104#20998
|
||||
DataBinding.FieldName = 'C_Composition'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -307,6 +319,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
|
|||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #33457#22411
|
||||
DataBinding.FieldName = 'C_Pattern'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 58
|
||||
end
|
||||
|
|
|
|||
|
|
@ -12,7 +12,7 @@ uses
|
|||
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
|
||||
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxTL,
|
||||
cxMaskEdit, cxTLdxBarBuiltInMenu, cxCheckBox, cxInplaceContainer, cxDBTL,
|
||||
cxTLData, math;
|
||||
cxTLData, math, dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmClothInfoSel = class(TfrmBaseHelp)
|
||||
|
|
|
|||
|
|
@ -24,6 +24,7 @@ inherited frmCompanySel: TfrmCompanySel
|
|||
object TV1: TcxGridDBTableView
|
||||
OnDblClick = TV1DblClick
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
|
|
@ -38,6 +39,7 @@ inherited frmCompanySel: TfrmCompanySel
|
|||
object TV1Column1: TcxGridDBColumn
|
||||
Caption = #32534#21495
|
||||
DataBinding.FieldName = 'CoCode'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 151
|
||||
|
|
@ -45,6 +47,7 @@ inherited frmCompanySel: TfrmCompanySel
|
|||
object TV1Column2: TcxGridDBColumn
|
||||
Caption = #21517#31216
|
||||
DataBinding.FieldName = 'CoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 253
|
||||
|
|
@ -52,6 +55,7 @@ inherited frmCompanySel: TfrmCompanySel
|
|||
object TV1Column3: TcxGridDBColumn
|
||||
Caption = #31616#31216
|
||||
DataBinding.FieldName = 'CoAbbrName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 159
|
||||
end
|
||||
|
|
|
|||
|
|
@ -10,7 +10,8 @@ uses
|
|||
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
|
||||
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
|
||||
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput;
|
||||
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput,
|
||||
dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmCompanySel = class(TfrmBaseHelp)
|
||||
|
|
@ -63,7 +64,7 @@ type
|
|||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
FCoType, FAuthority: string;
|
||||
FCoType, FAuthority,FLX: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
|
|
|
|||
|
|
@ -81,6 +81,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
|
|||
OptionsView.CellAutoHeight = True
|
||||
OptionsView.Headers = False
|
||||
RootValue = -1
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
TabOrder = 1
|
||||
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
|
||||
DataBinding.FieldName = 'CTName'
|
||||
|
|
@ -224,6 +225,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
|
|||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
Navigator.Buttons.Delete.Visible = False
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
|
|
@ -237,6 +239,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
|
|||
object v1SSel: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 41
|
||||
|
|
@ -244,6 +247,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
|
|||
object v1Column12: TcxGridDBColumn
|
||||
Caption = #31867#21035
|
||||
DataBinding.FieldName = 'CTName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
|
|
@ -251,6 +255,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
|
|||
object v1CYNo: TcxGridDBColumn
|
||||
Caption = #20135#21697#32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 112
|
||||
|
|
@ -258,12 +263,14 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
|
|||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 116
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #33521#25991#21697#21517
|
||||
DataBinding.FieldName = 'C_EName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 92
|
||||
|
|
@ -271,6 +278,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
|
|||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -278,6 +286,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
|
|||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 81
|
||||
|
|
@ -285,6 +294,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
|
|||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #25104#20998
|
||||
DataBinding.FieldName = 'C_Composition'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -292,6 +302,7 @@ inherited frmKnitClothInfoSel: TfrmKnitClothInfoSel
|
|||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #33457#22411
|
||||
DataBinding.FieldName = 'C_Pattern'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 58
|
||||
end
|
||||
|
|
|
|||
|
|
@ -12,7 +12,7 @@ uses
|
|||
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
|
||||
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxTL,
|
||||
cxMaskEdit, cxTLdxBarBuiltInMenu, cxCheckBox, cxInplaceContainer, cxDBTL,
|
||||
cxTLData, math;
|
||||
cxTLData, math, dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmKnitClothInfoSel = class(TfrmBaseHelp)
|
||||
|
|
@ -117,7 +117,7 @@ begin
|
|||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select * from BS_Cloth_Type where CTType=''ŐëÖŻ'' ');
|
||||
SQL.Add('select * from BS_Cloth_Type where CTType=''ËóÖ¯'' ');
|
||||
Open;
|
||||
end;
|
||||
|
||||
|
|
|
|||
|
|
@ -95,6 +95,7 @@ object frmLabelMapSet: TfrmLabelMapSet
|
|||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
Navigator.Buttons.Delete.Visible = False
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
|
|
@ -125,6 +126,7 @@ object frmLabelMapSet: TfrmLabelMapSet
|
|||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #31867#22411
|
||||
DataBinding.FieldName = 'LMType'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -134,6 +136,7 @@ object frmLabelMapSet: TfrmLabelMapSet
|
|||
object v2Column12: TcxGridDBColumn
|
||||
Caption = #25253#34920#21517#31216
|
||||
DataBinding.FieldName = 'LMName'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -142,6 +145,7 @@ object frmLabelMapSet: TfrmLabelMapSet
|
|||
object v2Column8: TcxGridDBColumn
|
||||
Caption = #35843#29992#23384#20648'1'
|
||||
DataBinding.FieldName = 'LMSql1'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -150,6 +154,7 @@ object frmLabelMapSet: TfrmLabelMapSet
|
|||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #35843#29992#23384#20648'2'
|
||||
DataBinding.FieldName = 'LMSql2'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -158,6 +163,7 @@ object frmLabelMapSet: TfrmLabelMapSet
|
|||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #35843#29992#23384#20648'3'
|
||||
DataBinding.FieldName = 'LMSql3'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -222,6 +228,7 @@ object frmLabelMapSet: TfrmLabelMapSet
|
|||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
Navigator.Buttons.Delete.Visible = False
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_2
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
|
|
|
|||
|
|
@ -15,7 +15,7 @@ uses
|
|||
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
|
||||
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, System.ImageList,
|
||||
Vcl.ImgList, U_BaseHelp;
|
||||
Vcl.ImgList, U_BaseHelp, dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmLabelMapSet = class(Tform)
|
||||
|
|
|
|||
|
|
@ -2,23 +2,23 @@ inherited frmLabelPrint: TfrmLabelPrint
|
|||
Left = 372
|
||||
Top = 106
|
||||
Caption = #25253#34920#25171#21360
|
||||
ClientHeight = 189
|
||||
ClientWidth = 291
|
||||
ClientHeight = 227
|
||||
ClientWidth = 333
|
||||
Color = clWhite
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Name = #24494#36719#38597#40657
|
||||
Position = poMainFormCenter
|
||||
OnClose = FormClose
|
||||
ExplicitWidth = 307
|
||||
ExplicitHeight = 228
|
||||
ExplicitWidth = 349
|
||||
ExplicitHeight = 266
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
TextHeight = 17
|
||||
object Panel1: TPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 291
|
||||
Height = 189
|
||||
Width = 333
|
||||
Height = 227
|
||||
Align = alClient
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -108,7 +108,7 @@ inherited frmLabelPrint: TfrmLabelPrint
|
|||
end
|
||||
object cbbLab: TcxMRUEdit
|
||||
Left = 25
|
||||
Top = 24
|
||||
Top = 28
|
||||
ParentFont = False
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.ImmediatePost = True
|
||||
|
|
|
|||
|
|
@ -107,6 +107,7 @@ begin
|
|||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec ' + trim(CDS_Label.fieldbyname('LMSql1').AsString) + ' @Filtration=' + quotedstr(Trim(FFiltration1)));
|
||||
//ShowMessage(SQL.TEXT);
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -216,7 +217,7 @@ end;
|
|||
procedure TfrmLabelPrint.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
Action := cahide;
|
||||
Action := cafree;
|
||||
end;
|
||||
|
||||
procedure TfrmLabelPrint.InitGrid();
|
||||
|
|
|
|||
|
|
@ -36,16 +36,24 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object ToolButton1: TToolButton
|
||||
object ToolButton2: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 1
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 71
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36873#25321
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TBSave: TToolButton
|
||||
Left = 71
|
||||
Left = 142
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
|
|
@ -53,7 +61,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
OnClick = TBSaveClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 166
|
||||
Left = 237
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
|
|
@ -65,36 +73,50 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
Left = 0
|
||||
Top = 38
|
||||
Width = 1564
|
||||
Height = 44
|
||||
Height = 75
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 18
|
||||
Top = 15
|
||||
Left = 284
|
||||
Top = 10
|
||||
Width = 36
|
||||
Height = 12
|
||||
Caption = #21512#21516#21495
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 450
|
||||
Top = 15
|
||||
Left = 554
|
||||
Top = 45
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 242
|
||||
Top = 15
|
||||
Left = 296
|
||||
Top = 45
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #23458#25143
|
||||
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
|
||||
Tag = 2
|
||||
Left = 60
|
||||
Top = 11
|
||||
Left = 344
|
||||
Top = 6
|
||||
Width = 169
|
||||
Height = 20
|
||||
TabOrder = 0
|
||||
|
|
@ -102,8 +124,8 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
end
|
||||
object C_Name: TEdit
|
||||
Tag = 2
|
||||
Left = 500
|
||||
Top = 11
|
||||
Left = 622
|
||||
Top = 41
|
||||
Width = 169
|
||||
Height = 20
|
||||
TabOrder = 1
|
||||
|
|
@ -111,25 +133,46 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
end
|
||||
object BuyName: TEdit
|
||||
Tag = 2
|
||||
Left = 272
|
||||
Top = 11
|
||||
Left = 344
|
||||
Top = 41
|
||||
Width = 169
|
||||
Height = 20
|
||||
TabOrder = 2
|
||||
OnChange = ConNoChange
|
||||
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
|
||||
object cxGrid1: TcxGrid [2]
|
||||
Left = 0
|
||||
Top = 82
|
||||
Top = 113
|
||||
Width = 1564
|
||||
Height = 476
|
||||
Height = 445
|
||||
Align = alClient
|
||||
BorderStyle = cxcbsNone
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 2
|
||||
ExplicitTop = 82
|
||||
ExplicitHeight = 476
|
||||
object TV1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
|
|
@ -171,6 +214,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
object TV1Column7: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -179,43 +223,54 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
object TV1Column1: TcxGridDBColumn
|
||||
Caption = #21512#21516#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 100
|
||||
end
|
||||
object TV1Column6: TcxGridDBColumn
|
||||
Caption = #23458#25143#21333#21495
|
||||
DataBinding.FieldName = 'BuyConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 88
|
||||
Width = 100
|
||||
end
|
||||
object TV1Column5: TcxGridDBColumn
|
||||
Caption = #32463#33829#21333#20301
|
||||
DataBinding.FieldName = 'SellName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 100
|
||||
end
|
||||
object TV1Column3: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'BuyName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object TV1Column4: TcxGridDBColumn
|
||||
Caption = #20013#38388#21830
|
||||
DataBinding.FieldName = 'MiddleName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
Width = 66
|
||||
end
|
||||
object TV1Column2: TcxGridDBColumn
|
||||
Caption = #20132#36135#26085#26399
|
||||
DataBinding.FieldName = 'DlyDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 72
|
||||
|
|
@ -223,6 +278,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
object VC_SCSCode: TcxGridDBColumn
|
||||
Caption = #20135#21697#32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
|
|
@ -237,6 +293,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
object cxGridDBColumn2: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
|
|
@ -244,6 +301,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
object cxGridDBColumn3: TcxGridDBColumn
|
||||
Caption = #20135#21697#33521#25991#21517
|
||||
DataBinding.FieldName = 'C_EName'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
|
|
@ -258,6 +316,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
object cxGridDBColumn4: TcxGridDBColumn
|
||||
Caption = #25104#20998
|
||||
DataBinding.FieldName = 'C_Composition'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
|
|
@ -265,6 +324,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
object cxGridDBColumn5: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
|
|
@ -272,6 +332,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
object cxGridDBColumn6: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'C_ColorNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 57
|
||||
|
|
@ -279,6 +340,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
object cxGridDBColumn7: TcxGridDBColumn
|
||||
Caption = #27454#21495
|
||||
DataBinding.FieldName = 'C_StyleNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
|
|
@ -286,6 +348,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
object cxGridDBColumn8: TcxGridDBColumn
|
||||
Caption = #33457#22411
|
||||
DataBinding.FieldName = 'C_Pattern'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
|
|
@ -300,6 +363,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
|
|
@ -313,6 +377,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
object v1Column7: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
|
|
@ -326,6 +391,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
object v1PRTOrderQty: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'ConQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
|
|
@ -334,6 +400,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
object v1OrderUnit: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'ConUnit'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsEditFixedList
|
||||
Properties.Items.Strings = (
|
||||
|
|
@ -347,6 +414,7 @@ inherited frmSalesContractSel: TfrmSalesContractSel
|
|||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'ConSNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
|
|
|
|||
|
|
@ -11,7 +11,7 @@ uses
|
|||
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
|
||||
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit,
|
||||
cxDropDownEdit, cxCheckBox, Vcl.Menus;
|
||||
cxDropDownEdit, cxCheckBox, Vcl.Menus, dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmSalesContractSel = class(TfrmBaseHelp)
|
||||
|
|
@ -78,6 +78,11 @@ type
|
|||
C_Name: TEdit;
|
||||
Label3: TLabel;
|
||||
BuyName: TEdit;
|
||||
Label8: TLabel;
|
||||
Label10: TLabel;
|
||||
BegDate: TDateTimePicker;
|
||||
EndDate: TDateTimePicker;
|
||||
ToolButton2: TToolButton;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
|
@ -89,6 +94,7 @@ type
|
|||
procedure N1Click(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure ConNoChange(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
private
|
||||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
|
|
@ -122,6 +128,10 @@ begin
|
|||
except
|
||||
application.MessageBox('网络连接失败！', '提示信息');
|
||||
end;
|
||||
begin
|
||||
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
|
||||
BegDate.DateTime := EndDate.DateTime - 5;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSalesContractSel.ConNoChange(Sender: TObject);
|
||||
|
|
@ -152,6 +162,8 @@ begin
|
|||
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(' 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;
|
||||
end;
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
|
|
@ -201,6 +213,12 @@ begin
|
|||
ModalResult := 1;
|
||||
end;
|
||||
|
||||
procedure TfrmSalesContractSel.ToolButton2Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmSalesContractSel.TV1DblClick(Sender: TObject);
|
||||
begin
|
||||
ModalResult := 1;
|
||||
|
|
|
|||
|
|
@ -81,6 +81,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
|
|||
OptionsView.CellAutoHeight = True
|
||||
OptionsView.Headers = False
|
||||
RootValue = -1
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
TabOrder = 1
|
||||
OnDblClick = cxDBTreeList1DblClick
|
||||
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
|
||||
|
|
@ -115,6 +116,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
|
|||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
Navigator.Buttons.Delete.Visible = False
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
|
|
@ -128,6 +130,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
|
|||
object v1SSel: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 39
|
||||
|
|
@ -135,6 +138,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
|
|||
object v1Column12: TcxGridDBColumn
|
||||
Caption = #31867#21035
|
||||
DataBinding.FieldName = 'CTName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
|
|
@ -142,6 +146,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
|
|||
object v1CYNo: TcxGridDBColumn
|
||||
Caption = #20135#21697#32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 92
|
||||
|
|
@ -149,6 +154,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
|
|||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 96
|
||||
|
|
@ -156,6 +162,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
|
|||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -163,6 +170,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
|
|||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 81
|
||||
|
|
@ -170,6 +178,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
|
|||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #32428#23494
|
||||
DataBinding.FieldName = 'C_FinishLatitudeDensity'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -177,6 +186,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
|
|||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #32463#23494
|
||||
DataBinding.FieldName = 'C_FinishLongitudeDensity'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -184,6 +194,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
|
|||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #32428#32433#35268#26684
|
||||
DataBinding.FieldName = 'C_LatitudeSpec'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 58
|
||||
|
|
@ -191,6 +202,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
|
|||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #32463#32433#35268#26684
|
||||
DataBinding.FieldName = 'C_LongitudeSpec'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
|
|
@ -198,6 +210,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
|
|||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #31576#21495
|
||||
DataBinding.FieldName = 'C_ReedNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
|
|
@ -205,6 +218,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
|
|||
object Tv1Column5: TcxGridDBColumn
|
||||
Caption = #22836#32441
|
||||
DataBinding.FieldName = 'C_EphalicStria'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
|
|
|
|||
|
|
@ -12,7 +12,7 @@ uses
|
|||
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
|
||||
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxTL,
|
||||
cxMaskEdit, cxTLdxBarBuiltInMenu, cxCheckBox, cxInplaceContainer, cxDBTL,
|
||||
cxTLData, math;
|
||||
cxTLData, math, dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmTatClothInfoSel = class(TfrmBaseHelp)
|
||||
|
|
|
|||
|
|
@ -31,7 +31,9 @@ uses
|
|||
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
|
||||
U_DataLink in 'U_DataLink.pas' {DataLink_Company: TDataModule},
|
||||
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}
|
||||
|
||||
|
|
|
|||
|
|
@ -200,6 +200,8 @@
|
|||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<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">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
|
|
|
|||
|
|
@ -1,28 +1,30 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<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.368,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.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.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.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.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>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>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="android-support-v4.dex.jar"/>
|
||||
|
|
@ -53,7 +55,7 @@
|
|||
<File Path="fmx.dex.jar"/>
|
||||
<File Path="google-play-billing.dex.jar"/>
|
||||
<File Path="google-play-licensing.dex.jar"/>
|
||||
<File Path="..\..\D10szXingJie"/>
|
||||
<File Path="..\..\D10szXingjie"/>
|
||||
<File Path="..\A00通用窗体"/>
|
||||
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
|
||||
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
|
||||
|
|
@ -67,7 +69,7 @@
|
|||
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
|
||||
<File Path="..\A00通用窗体\U_UserSel.pas"/>
|
||||
<File Path="..\A00通用窗体\U_UserSel.dfm"/>
|
||||
<File Path="D:\Dp10Repo"/>
|
||||
<File Path="D:\Dp10RepoV10"/>
|
||||
<File Path="..\..\..\public10"/>
|
||||
<File Path="..\..\..\public10\design"/>
|
||||
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
|
||||
|
|
@ -79,6 +81,8 @@
|
|||
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
|
||||
<File Path="..\..\..\public10\design\U_globalVar.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\Fun"/>
|
||||
<File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -2,6 +2,6 @@
|
|||
<BorlandProject>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXingJie\A01基础公司管理\Company.dproj"/>
|
||||
<Projects ActiveProject="D:\Dp10RepoV10\项目代码\D10szXingjie\A01基础公司管理\testDll.dproj"/>
|
||||
</Default.Personality>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
|
|
@ -10,7 +10,7 @@ inherited frmCustomer: TfrmCustomer
|
|||
ExplicitWidth = 1382
|
||||
ExplicitHeight = 650
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
TextHeight = 17
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
|
|
@ -28,7 +28,7 @@ inherited frmCustomer: TfrmCustomer
|
|||
List = True
|
||||
ParentColor = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
TabOrder = 5
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -152,33 +152,33 @@ inherited frmCustomer: TfrmCustomer
|
|||
BevelOuter = bvLowered
|
||||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
TabOrder = 6
|
||||
object Label3: TLabel
|
||||
Left = 190
|
||||
Top = 13
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #23458#25143#20840#31216
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 22
|
||||
Top = 13
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #23458#25143#32534#21495
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 350
|
||||
Top = 13
|
||||
Width = 36
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #19994#21153#21592
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 502
|
||||
Top = 13
|
||||
Width = 24
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #22269#23478
|
||||
end
|
||||
object CoName: TEdit
|
||||
|
|
@ -501,9 +501,8 @@ inherited frmCustomer: TfrmCustomer
|
|||
#24050#23457#26680
|
||||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 22
|
||||
ClientRectRight = 1366
|
||||
ClientRectTop = 19
|
||||
ClientRectRight = 0
|
||||
ClientRectTop = 0
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_Company.ADOLink
|
||||
|
|
|
|||
|
|
@ -17,7 +17,7 @@ uses
|
|||
dxBarBuiltInMenu, cxPC, FireDAC.Stan.Intf, FireDAC.Stan.Option,
|
||||
FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
|
||||
FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet,
|
||||
FireDAC.Comp.Client, dxScrollbarAnnotations;
|
||||
FireDAC.Comp.Client, dxScrollbarAnnotations, cxContainer, cxProgressBar;
|
||||
|
||||
type
|
||||
TfrmCustomer = class(TfrmBaseList)
|
||||
|
|
|
|||
|
|
@ -10,7 +10,7 @@ inherited frmFactory: TfrmFactory
|
|||
ExplicitWidth = 1382
|
||||
ExplicitHeight = 840
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
TextHeight = 17
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
|
|
@ -27,7 +27,9 @@ inherited frmFactory: TfrmFactory
|
|||
List = True
|
||||
ParentColor = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
TabOrder = 5
|
||||
ExplicitLeft = -8
|
||||
ExplicitTop = 5
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -130,77 +132,77 @@ inherited frmFactory: TfrmFactory
|
|||
Left = 0
|
||||
Top = 38
|
||||
Width = 1366
|
||||
Height = 39
|
||||
Height = 55
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
TabOrder = 6
|
||||
object Label3: TLabel
|
||||
Left = 202
|
||||
Top = 13
|
||||
Left = 272
|
||||
Top = 16
|
||||
Width = 60
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #20379#24212#21830#21517#31216
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 22
|
||||
Top = 13
|
||||
Left = 27
|
||||
Top = 16
|
||||
Width = 60
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #20379#24212#21830#32534#21495
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 383
|
||||
Top = 13
|
||||
Left = 527
|
||||
Top = 16
|
||||
Width = 60
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #20379#24212#21830#31616#31216
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 565
|
||||
Top = 13
|
||||
Left = 753
|
||||
Top = 16
|
||||
Width = 60
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #20379#24212#21830#31867#22411
|
||||
end
|
||||
object CoName: TEdit
|
||||
Tag = 2
|
||||
Left = 266
|
||||
Top = 9
|
||||
Left = 373
|
||||
Top = 6
|
||||
Width = 89
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 1
|
||||
OnChange = CoCodeChange
|
||||
OnKeyPress = CoCodeKeyPress
|
||||
end
|
||||
object CoCode: TEdit
|
||||
Tag = 2
|
||||
Left = 85
|
||||
Top = 9
|
||||
Left = 124
|
||||
Top = 11
|
||||
Width = 89
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 0
|
||||
OnChange = CoCodeChange
|
||||
OnKeyPress = CoCodeKeyPress
|
||||
end
|
||||
object CoAbbrName: TEdit
|
||||
Tag = 2
|
||||
Left = 447
|
||||
Top = 9
|
||||
Left = 614
|
||||
Top = 11
|
||||
Width = 89
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 2
|
||||
OnChange = CoCodeChange
|
||||
OnKeyPress = CoCodeKeyPress
|
||||
end
|
||||
object CoBusinessType: TEdit
|
||||
Tag = 2
|
||||
Left = 628
|
||||
Top = 9
|
||||
Left = 847
|
||||
Top = 11
|
||||
Width = 89
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 3
|
||||
OnChange = CoCodeChange
|
||||
OnKeyPress = CoCodeKeyPress
|
||||
|
|
@ -208,15 +210,18 @@ inherited frmFactory: TfrmFactory
|
|||
end
|
||||
object cxGrid1: TcxGrid [2]
|
||||
Left = 0
|
||||
Top = 99
|
||||
Top = 115
|
||||
Width = 1366
|
||||
Height = 372
|
||||
Height = 356
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitLeft = 1
|
||||
ExplicitTop = 110
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
Navigator.Buttons.Delete.Visible = False
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
OnFocusedRecordChanged = Tv1FocusedRecordChanged
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
|
|
@ -243,6 +248,7 @@ inherited frmFactory: TfrmFactory
|
|||
object v2Column5: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -251,6 +257,7 @@ inherited frmFactory: TfrmFactory
|
|||
object v2Column2: TcxGridDBColumn
|
||||
Caption = #20379#24212#21830#32534#21495
|
||||
DataBinding.FieldName = 'CoCode'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
|
|
@ -259,6 +266,7 @@ inherited frmFactory: TfrmFactory
|
|||
object v2Column6: TcxGridDBColumn
|
||||
Caption = #20379#24212#21830#20840#31216
|
||||
DataBinding.FieldName = 'CoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 127
|
||||
|
|
@ -266,6 +274,7 @@ inherited frmFactory: TfrmFactory
|
|||
object v2Column15: TcxGridDBColumn
|
||||
Caption = #20379#24212#21830#31616#31216
|
||||
DataBinding.FieldName = 'CoAbbrName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 100
|
||||
|
|
@ -273,6 +282,7 @@ inherited frmFactory: TfrmFactory
|
|||
object v2Column3: TcxGridDBColumn
|
||||
Caption = #20379#24212#21830#31867#22411
|
||||
DataBinding.FieldName = 'CoBusinessType'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 74
|
||||
|
|
@ -280,6 +290,7 @@ inherited frmFactory: TfrmFactory
|
|||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'CONote'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
|
|
@ -288,6 +299,7 @@ inherited frmFactory: TfrmFactory
|
|||
object v2Column12: TcxGridDBColumn
|
||||
Caption = #25805#20316#21592
|
||||
DataBinding.FieldName = 'Filler'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
|
|
@ -295,6 +307,7 @@ inherited frmFactory: TfrmFactory
|
|||
object v2Column4: TcxGridDBColumn
|
||||
Caption = #36319#21333#21592
|
||||
DataBinding.FieldName = 'Follower'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 78
|
||||
|
|
@ -302,6 +315,7 @@ inherited frmFactory: TfrmFactory
|
|||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #19978#32423#21333#20301
|
||||
DataBinding.FieldName = 'ParentCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 108
|
||||
|
|
@ -330,6 +344,7 @@ inherited frmFactory: TfrmFactory
|
|||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
Navigator.Buttons.Delete.Visible = False
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_2
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
|
|
@ -353,6 +368,7 @@ inherited frmFactory: TfrmFactory
|
|||
object v3Column3: TcxGridDBColumn
|
||||
Caption = #40664#35748
|
||||
DataBinding.FieldName = 'IsDefault'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
|
|
@ -361,6 +377,7 @@ inherited frmFactory: TfrmFactory
|
|||
object Tv2Column1: TcxGridDBColumn
|
||||
Caption = #32852#31995#20154
|
||||
DataBinding.FieldName = 'Contacts'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.CharCase = ecUpperCase
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -369,6 +386,7 @@ inherited frmFactory: TfrmFactory
|
|||
object Tv2Column2: TcxGridDBColumn
|
||||
Caption = #32852#31995#30005#35805
|
||||
DataBinding.FieldName = 'bossphone'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 96
|
||||
|
|
@ -376,6 +394,7 @@ inherited frmFactory: TfrmFactory
|
|||
object cxGridDBColumn1: TcxGridDBColumn
|
||||
Caption = #25163#26426#21495
|
||||
DataBinding.FieldName = 'PhoneNumber'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.CharCase = ecUpperCase
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -384,6 +403,7 @@ inherited frmFactory: TfrmFactory
|
|||
object Tv2Column3: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'note'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 120
|
||||
|
|
@ -396,7 +416,7 @@ inherited frmFactory: TfrmFactory
|
|||
end
|
||||
object cxTabControl1: TcxTabControl [4]
|
||||
Left = 0
|
||||
Top = 77
|
||||
Top = 93
|
||||
Width = 1366
|
||||
Height = 22
|
||||
Align = alTop
|
||||
|
|
@ -409,48 +429,63 @@ inherited frmFactory: TfrmFactory
|
|||
#24050#23457#26680
|
||||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 22
|
||||
ClientRectRight = 1366
|
||||
ClientRectTop = 19
|
||||
ExplicitTop = 77
|
||||
ClientRectRight = 0
|
||||
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
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_Company.ADOLink
|
||||
Left = 177
|
||||
Top = 400
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_Company.ADOLink
|
||||
Left = 137
|
||||
Top = 121
|
||||
Left = 65
|
||||
Top = 401
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_Company.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 501
|
||||
Top = 137
|
||||
Left = 613
|
||||
Top = 385
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_Company.ADOLink
|
||||
Parameters = <>
|
||||
Left = 613
|
||||
Top = 145
|
||||
Left = 741
|
||||
Top = 433
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_Company.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 277
|
||||
Top = 225
|
||||
Left = 229
|
||||
Top = 385
|
||||
end
|
||||
object DS_1: TDataSource
|
||||
DataSet = CDS_1
|
||||
Left = 555
|
||||
Top = 243
|
||||
Left = 539
|
||||
Top = 371
|
||||
end
|
||||
object CDS_1: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 496
|
||||
Top = 240
|
||||
Left = 464
|
||||
Top = 400
|
||||
end
|
||||
object CDS_2: TClientDataSet
|
||||
Aggregates = <>
|
||||
|
|
@ -466,8 +501,8 @@ inherited frmFactory: TfrmFactory
|
|||
object GPM_1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 422
|
||||
Top = 246
|
||||
Left = 342
|
||||
Top = 406
|
||||
end
|
||||
object GPM_2: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
|
|
|
|||
|
|
@ -14,7 +14,8 @@ uses
|
|||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, cxDBLookupComboBox, ComObj, cxLookAndFeels, cxLookAndFeelPainters,
|
||||
cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
|
||||
dxBarBuiltInMenu, U_BaseList, cxPC;
|
||||
dxBarBuiltInMenu, U_BaseList, cxPC, cxContainer, dxScrollbarAnnotations,
|
||||
cxProgressBar;
|
||||
|
||||
type
|
||||
TfrmFactory = class(TfrmBaseList)
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@ object Form1: TForm1
|
|||
Left = 203
|
||||
Top = 121
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 0
|
||||
ClientWidth = 120
|
||||
ClientHeight = 300
|
||||
ClientWidth = 669
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
|
|
@ -21,12 +21,13 @@ object Form1: TForm1
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 120
|
||||
Width = 669
|
||||
Height = 25
|
||||
ButtonWidth = 57
|
||||
Caption = 'ToolBar1'
|
||||
Images = ImageList1
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 120
|
||||
object Edit1: TEdit
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -31,7 +31,10 @@ uses
|
|||
U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel},
|
||||
U_ClothInfoSel in '..\A00通用窗体\U_ClothInfoSel.pas' {frmClothInfoSel},
|
||||
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}
|
||||
|
||||
|
|
|
|||
|
|
@ -206,6 +206,12 @@
|
|||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<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">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
|
|
|
|||
|
|
@ -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.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.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.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.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.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.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.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.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.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.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.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.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.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</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.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.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.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.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.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>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="android-support-v4.dex.jar"/>
|
||||
|
|
@ -75,7 +78,7 @@
|
|||
<File Path="fmx.dex.jar"/>
|
||||
<File Path="google-play-billing.dex.jar"/>
|
||||
<File Path="google-play-licensing.dex.jar"/>
|
||||
<File Path="..\..\D10szXingJie"/>
|
||||
<File Path="..\..\D10szXingjie"/>
|
||||
<File Path="..\A00通用窗体"/>
|
||||
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
|
||||
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
|
||||
|
|
@ -95,7 +98,7 @@
|
|||
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
|
||||
<File Path="..\A00通用窗体\U_ClothInfoSel.pas"/>
|
||||
<File Path="..\A00通用窗体\U_ClothInfoSel.dfm"/>
|
||||
<File Path="D:\Dp10Repo"/>
|
||||
<File Path="D:\Dp10RepoV10"/>
|
||||
<File Path="..\..\..\public10"/>
|
||||
<File Path="..\..\..\public10\design"/>
|
||||
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
|
||||
|
|
@ -107,6 +110,8 @@
|
|||
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
|
||||
<File Path="..\..\..\public10\design\U_globalVar.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\Form"/>
|
||||
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
|
||||
|
|
@ -125,5 +130,7 @@
|
|||
<File Path="U_CloInfoFileUp.dfm"/>
|
||||
<File Path="U_TatClothInfo.pas"/>
|
||||
<File Path="U_TatClothInfo.dfm"/>
|
||||
<File Path="U_TatClothInfoInput.pas"/>
|
||||
<File Path="U_TatClothInfoInput.dfm"/>
|
||||
</ProjectSortOrder>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
|
|
@ -2,6 +2,6 @@
|
|||
<BorlandProject>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXingJie\A02基础产品管理\ClothInfo.dproj"/>
|
||||
<Projects ActiveProject="D:\Dp10RepoV10\项目代码\D10szXingjie\A02基础产品管理\testDll.dproj"/>
|
||||
</Default.Personality>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
|
|
@ -25,6 +25,7 @@ object frmCloInfoFileUp: TfrmCloInfoFileUp
|
|||
TabOrder = 0
|
||||
object TV7: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
|
|
@ -39,6 +40,7 @@ object frmCloInfoFileUp: TfrmCloInfoFileUp
|
|||
Tag = 1
|
||||
Caption = #25991#20214#21517#31216
|
||||
DataBinding.FieldName = 'FileName'
|
||||
DataBinding.IsNullValueType = True
|
||||
FooterAlignmentHorz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 121
|
||||
|
|
@ -46,6 +48,7 @@ object frmCloInfoFileUp: TfrmCloInfoFileUp
|
|||
object TV7Column1: TcxGridDBColumn
|
||||
Caption = #33457#22411#21517#31216
|
||||
DataBinding.FieldName = 'HXName'
|
||||
DataBinding.IsNullValueType = True
|
||||
GroupSummaryAlignment = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 91
|
||||
|
|
@ -54,10 +57,18 @@ object frmCloInfoFileUp: TfrmCloInfoFileUp
|
|||
Tag = 1
|
||||
Caption = #19978#20256#26085#26399
|
||||
DataBinding.FieldName = 'TFDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
FooterAlignmentHorz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 104
|
||||
end
|
||||
object TV7Column2: TcxGridDBColumn
|
||||
Caption = #32534#21495
|
||||
DataBinding.FieldName = 'TFID'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
end
|
||||
end
|
||||
object cxGridLevel6: TcxGridLevel
|
||||
GridView = TV7
|
||||
|
|
|
|||
|
|
@ -11,7 +11,7 @@ uses
|
|||
IdTCPConnection, IdTCPClient, IdFTP, StdCtrls, ADODB, jpeg, BtnEdit, IniFiles,
|
||||
strutils, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
|
||||
dxSkinsDefaultPainters, dxDateRanges, IdExplicitTLSClientServerBase,
|
||||
Vcl.ExtDlgs;
|
||||
Vcl.ExtDlgs, dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmCloInfoFileUp = class(TForm)
|
||||
|
|
@ -39,6 +39,7 @@ type
|
|||
TV7Column1: TcxGridDBColumn;
|
||||
Label2: TLabel;
|
||||
HXName: TBtnEditC;
|
||||
TV7Column2: TcxGridDBColumn;
|
||||
procedure FileUpClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FileDelClick(Sender: TObject);
|
||||
|
|
@ -307,9 +308,25 @@ begin
|
|||
begin
|
||||
Close;
|
||||
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;
|
||||
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
|
||||
// begin
|
||||
// Close;
|
||||
|
|
@ -328,6 +345,7 @@ begin
|
|||
// ExecSQL;
|
||||
// end;
|
||||
// end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmCloInfoFileUp.FormShow(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -10,7 +10,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
ExplicitWidth = 1460
|
||||
ExplicitHeight = 741
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
TextHeight = 17
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
|
|
@ -27,7 +27,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
List = True
|
||||
ParentColor = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
TabOrder = 3
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -151,12 +151,12 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
BevelOuter = bvLowered
|
||||
Color = 16242829
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
TabOrder = 7
|
||||
object Label3: TLabel
|
||||
Left = 42
|
||||
Top = 15
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #20135#21697#32534#21495
|
||||
end
|
||||
object Label11: TLabel
|
||||
|
|
@ -187,21 +187,21 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
Left = 199
|
||||
Top = 15
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #20135#21697#21517#31216
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 509
|
||||
Top = 15
|
||||
Width = 24
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #20811#37325
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 357
|
||||
Top = 15
|
||||
Width = 24
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #38376#24133
|
||||
end
|
||||
object C_Code: TEdit
|
||||
|
|
@ -287,6 +287,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
OptionsView.CellAutoHeight = True
|
||||
OptionsView.Headers = False
|
||||
RootValue = -1
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
Styles.Inactive = DataLink_ClothInfo.Red
|
||||
Styles.Selection = DataLink_ClothInfo.Red
|
||||
Styles.IncSearch = DataLink_ClothInfo.Red
|
||||
|
|
@ -325,6 +326,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
Navigator.Buttons.Delete.Visible = False
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
OnFocusedRecordChanged = Tv1FocusedRecordChanged
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
|
|
@ -343,6 +345,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
object v1SSel: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_ClothInfo.Default
|
||||
|
|
@ -351,6 +354,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
object v1Column12: TcxGridDBColumn
|
||||
Caption = #31867#21035
|
||||
DataBinding.FieldName = 'CTName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Styles.Header = DataLink_ClothInfo.Default
|
||||
|
|
@ -359,6 +363,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
object v1CYNo: TcxGridDBColumn
|
||||
Caption = #20135#21697#32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Styles.Header = DataLink_ClothInfo.Default
|
||||
|
|
@ -367,12 +372,14 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 96
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #33521#25991#21697#21517
|
||||
DataBinding.FieldName = 'C_EName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -380,6 +387,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Styles.Header = DataLink_ClothInfo.Default
|
||||
|
|
@ -388,6 +396,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 81
|
||||
|
|
@ -395,6 +404,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #22383#24067#32534#21495
|
||||
DataBinding.FieldName = 'C_FromCode'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 85
|
||||
|
|
@ -402,6 +412,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
object Tv1Column8: TcxGridDBColumn
|
||||
Caption = #22383#24067#21517#31216
|
||||
DataBinding.FieldName = 'C_FromName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 81
|
||||
|
|
@ -409,6 +420,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #25104#20998
|
||||
DataBinding.FieldName = 'C_Composition'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -416,12 +428,14 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #33457#22411
|
||||
DataBinding.FieldName = 'C_Pattern'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 58
|
||||
end
|
||||
object v1Column11: TcxGridDBColumn
|
||||
Caption = #22270#29255
|
||||
DataBinding.FieldName = 'IsImg'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
|
|
@ -430,6 +444,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
object Tv1Column5: TcxGridDBColumn
|
||||
Caption = #22635#21333#20154
|
||||
DataBinding.FieldName = 'filler'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 71
|
||||
|
|
@ -437,6 +452,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
object Tv1Column6: TcxGridDBColumn
|
||||
Caption = #20462#25913#20154
|
||||
DataBinding.FieldName = 'editer'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 68
|
||||
|
|
@ -444,6 +460,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
object Tv1Column7: TcxGridDBColumn
|
||||
Caption = #20462#25913#26102#38388
|
||||
DataBinding.FieldName = 'edittime'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 67
|
||||
|
|
@ -451,6 +468,7 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
object Tv1Column9: TcxGridDBColumn
|
||||
Caption = #24405#20837#26102#38388
|
||||
DataBinding.FieldName = 'FILLTIME'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
|
|||
|
|
@ -15,7 +15,8 @@ uses
|
|||
cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, cxNavigator,
|
||||
dxBarBuiltInMenu, cxPC, Math, RM_BarCode, dxSkinsCore, dxSkinsDefaultPainters,
|
||||
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, cxContainer,
|
||||
dxDBBarCode, dxBarCode, Vcl.Clipbrd, cxTextEdit, BtnEdit, StrUtils;
|
||||
dxDBBarCode, dxBarCode, Vcl.Clipbrd, cxTextEdit, BtnEdit, StrUtils,
|
||||
dxScrollbarAnnotations, cxProgressBar;
|
||||
|
||||
type
|
||||
FdDy = record
|
||||
|
|
|
|||
|
|
@ -9,7 +9,7 @@ inherited frmClothType: TfrmClothType
|
|||
ExplicitWidth = 997
|
||||
ExplicitHeight = 568
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
TextHeight = 17
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
|
|
@ -25,7 +25,7 @@ inherited frmClothType: TfrmClothType
|
|||
List = True
|
||||
ParentColor = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
TabOrder = 3
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -86,10 +86,11 @@ inherited frmClothType: TfrmClothType
|
|||
OptionsView.CellAutoHeight = True
|
||||
OptionsView.Headers = False
|
||||
RootValue = -1
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
Styles.Inactive = DataLink_ClothInfo.FoneRed
|
||||
Styles.Selection = DataLink_ClothInfo.FoneRed
|
||||
Styles.IncSearch = DataLink_ClothInfo.FoneRed
|
||||
TabOrder = 1
|
||||
TabOrder = 4
|
||||
OnClick = cxDBTreeList1Click
|
||||
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
|
||||
DataBinding.FieldName = 'CTName'
|
||||
|
|
@ -114,22 +115,22 @@ inherited frmClothType: TfrmClothType
|
|||
object Label1: TLabel
|
||||
Left = 66
|
||||
Top = 24
|
||||
Width = 48
|
||||
Height = 12
|
||||
Width = 40
|
||||
Height = 17
|
||||
Caption = #29238' '#31867
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 66
|
||||
Top = 65
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #31867#21035#21517#31216
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 170
|
||||
Top = 137
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #31867#21035#32534#30721
|
||||
Visible = False
|
||||
end
|
||||
|
|
|
|||
|
|
@ -7,7 +7,8 @@ uses
|
|||
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
|
||||
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
|
||||
ExtCtrls, DBClient, U_BaseList, cxLookAndFeels, cxLookAndFeelPainters,
|
||||
cxTLdxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters;
|
||||
cxTLdxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, cxContainer,
|
||||
cxEdit, cxFilter, dxScrollbarAnnotations, cxProgressBar;
|
||||
|
||||
type
|
||||
TfrmClothType = class(TfrmBaseList)
|
||||
|
|
|
|||
|
|
@ -141,7 +141,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
112: // 产品信息管理
|
||||
{112: // 产品信息管理
|
||||
begin
|
||||
with TfrmClothInfo.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||
begin
|
||||
|
|
@ -151,7 +151,7 @@ begin
|
|||
BorderStyle := mborderstyle;
|
||||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
end;}
|
||||
|
||||
122: //ËóÖ¯²úÆ·ÐÅÏ¢¹ÜÀí
|
||||
begin
|
||||
|
|
@ -165,7 +165,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
132: // 针织产品信息管理
|
||||
{132: // 针织产品信息管理
|
||||
begin
|
||||
with TfrmKnitClothInfoList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||
begin
|
||||
|
|
@ -175,7 +175,7 @@ begin
|
|||
BorderStyle := mborderstyle;
|
||||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
end;}
|
||||
|
||||
10000:
|
||||
begin
|
||||
|
|
|
|||
|
|
@ -10,7 +10,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
|
|||
ExplicitWidth = 1460
|
||||
ExplicitHeight = 741
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
TextHeight = 17
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
|
|
@ -27,7 +27,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
|
|||
List = True
|
||||
ParentColor = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
TabOrder = 3
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -116,16 +116,32 @@ inherited frmTatClothInfo: TfrmTatClothInfo
|
|||
ImageIndex = 19
|
||||
OnClick = TBUPClick
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
object ToolButton4: TToolButton
|
||||
Left = 853
|
||||
Top = 0
|
||||
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
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 948
|
||||
Left = 1138
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
|
|
@ -151,12 +167,12 @@ inherited frmTatClothInfo: TfrmTatClothInfo
|
|||
BevelOuter = bvLowered
|
||||
Color = 16242829
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
TabOrder = 7
|
||||
object Label3: TLabel
|
||||
Left = 42
|
||||
Top = 15
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #20135#21697#32534#21495
|
||||
end
|
||||
object Label11: TLabel
|
||||
|
|
@ -187,21 +203,21 @@ inherited frmTatClothInfo: TfrmTatClothInfo
|
|||
Left = 199
|
||||
Top = 15
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #20135#21697#21517#31216
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 509
|
||||
Top = 15
|
||||
Width = 24
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #20811#37325
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 357
|
||||
Top = 15
|
||||
Width = 24
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #38376#24133
|
||||
end
|
||||
object C_Code: TEdit
|
||||
|
|
@ -209,7 +225,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
|
|||
Left = 91
|
||||
Top = 11
|
||||
Width = 89
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 0
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
end
|
||||
|
|
@ -218,7 +234,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
|
|||
Left = 248
|
||||
Top = 11
|
||||
Width = 89
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 1
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
end
|
||||
|
|
@ -227,7 +243,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
|
|||
Left = 536
|
||||
Top = 11
|
||||
Width = 89
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 3
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
end
|
||||
|
|
@ -236,7 +252,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
|
|||
Left = 384
|
||||
Top = 11
|
||||
Width = 89
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 2
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
end
|
||||
|
|
@ -318,15 +334,17 @@ inherited frmTatClothInfo: TfrmTatClothInfo
|
|||
Left = 2
|
||||
Top = 42
|
||||
Width = 1212
|
||||
Height = 370
|
||||
Height = 334
|
||||
Align = alClient
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 207
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
Navigator.Buttons.Delete.Visible = False
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
OnCellClick = Tv1CellClick
|
||||
OnFocusedRecordChanged = Tv1FocusedRecordChanged
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
|
|
@ -360,6 +378,13 @@ inherited frmTatClothInfo: TfrmTatClothInfo
|
|||
Styles.Header = DataLink_ClothInfo.Default
|
||||
Width = 70
|
||||
end
|
||||
object Tv1Column12: TcxGridDBColumn
|
||||
Caption = #31995#25968#29366#24577
|
||||
DataBinding.FieldName = 'XSZT'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 66
|
||||
end
|
||||
object v1CYNo: TcxGridDBColumn
|
||||
Caption = #20135#21697#32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
|
|
@ -393,6 +418,20 @@ inherited frmTatClothInfo: TfrmTatClothInfo
|
|||
Options.Editing = False
|
||||
Width = 81
|
||||
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
|
||||
Caption = #32428#23494
|
||||
DataBinding.FieldName = 'C_FinishLatitudeDensity'
|
||||
|
|
@ -599,37 +638,41 @@ inherited frmTatClothInfo: TfrmTatClothInfo
|
|||
end
|
||||
object Panel9: TPanel
|
||||
Left = 2
|
||||
Top = 412
|
||||
Top = 528
|
||||
Width = 1212
|
||||
Height = 205
|
||||
Height = 89
|
||||
Align = alBottom
|
||||
Caption = 'Panel9'
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
object Panel10: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1210
|
||||
Height = 203
|
||||
Height = 87
|
||||
Align = alClient
|
||||
Caption = 'Panel9'
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 203
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 1
|
||||
Top = 42
|
||||
Width = 1208
|
||||
Height = 160
|
||||
Height = 44
|
||||
Align = alClient
|
||||
Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 160
|
||||
object ScrollBox1: TScrollBox
|
||||
Left = 2
|
||||
Top = 14
|
||||
Top = 19
|
||||
Width = 1204
|
||||
Height = 144
|
||||
Height = 23
|
||||
Align = alClient
|
||||
BevelInner = bvLowered
|
||||
BorderStyle = bsNone
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 139
|
||||
end
|
||||
end
|
||||
object Panel11: TPanel
|
||||
|
|
@ -677,6 +720,104 @@ inherited frmTatClothInfo: TfrmTatClothInfo
|
|||
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
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_ClothInfo.ADOLink
|
||||
|
|
@ -857,7 +998,31 @@ inherited frmTatClothInfo: TfrmTatClothInfo
|
|||
object CDS_Label: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 520
|
||||
Top = 426
|
||||
Left = 568
|
||||
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
|
||||
|
|
|
|||
|
|
@ -16,7 +16,7 @@ uses
|
|||
dxBarBuiltInMenu, cxPC, Math, RM_BarCode, dxSkinsCore, dxSkinsDefaultPainters,
|
||||
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, cxContainer,
|
||||
dxDBBarCode, dxBarCode, Vcl.Clipbrd, cxTextEdit, BtnEdit, StrUtils,
|
||||
dxScrollbarAnnotations;
|
||||
dxScrollbarAnnotations, cxProgressBar;
|
||||
|
||||
type
|
||||
FdDy = record
|
||||
|
|
@ -119,6 +119,24 @@ type
|
|||
Tv1Column3: TcxGridDBColumn;
|
||||
Tv1Column4: 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 TBCloseClick(Sender: TObject);
|
||||
procedure TBDelClick(Sender: TObject);
|
||||
|
|
@ -149,6 +167,9 @@ type
|
|||
procedure cbbHXChange(Sender: TObject);
|
||||
procedure ToolButton3Click(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 declarations }
|
||||
CurrentPage, RecordsNumber: Integer;
|
||||
|
|
@ -158,6 +179,7 @@ type
|
|||
procedure SetStatus();
|
||||
procedure InitTree();
|
||||
procedure InitGrid();
|
||||
procedure InitGrid2();
|
||||
procedure ReadINIFile();
|
||||
procedure InitImage();
|
||||
procedure LookImage(FileName: string);
|
||||
|
|
@ -226,6 +248,26 @@ begin
|
|||
|
||||
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();
|
||||
begin
|
||||
with ADOQueryTree do
|
||||
|
|
@ -378,6 +420,7 @@ procedure TfrmTatClothInfo.TBRafreshClick(Sender: TObject);
|
|||
begin
|
||||
InitTree();
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInfo.TBFilterClick(Sender: TObject);
|
||||
|
|
@ -600,6 +643,12 @@ begin
|
|||
Tv1.Controller.EditingController.ShowEdit();
|
||||
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);
|
||||
var
|
||||
fsj: string;
|
||||
|
|
@ -817,5 +866,73 @@ begin
|
|||
|
||||
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.
|
||||
|
||||
|
|
|
|||
|
|
@ -63,7 +63,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
Left = 0
|
||||
Top = 38
|
||||
Width = 1533
|
||||
Height = 187
|
||||
Height = 195
|
||||
Align = alTop
|
||||
BevelInner = bvNone
|
||||
BevelOuter = bvNone
|
||||
|
|
@ -72,7 +72,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
ParentColor = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
ExplicitTop = 41
|
||||
object Label1: TLabel
|
||||
Left = 31
|
||||
Top = 11
|
||||
|
|
@ -256,6 +255,19 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
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
|
||||
Tag = 2
|
||||
Left = 93
|
||||
|
|
@ -452,19 +464,37 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
Height = 18
|
||||
TabOrder = 13
|
||||
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
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 225
|
||||
Top = 233
|
||||
Width = 737
|
||||
Height = 382
|
||||
Height = 374
|
||||
Align = alLeft
|
||||
TabOrder = 2
|
||||
ExplicitTop = 225
|
||||
ExplicitHeight = 382
|
||||
object cxPageControl2: TcxPageControl
|
||||
Left = 1
|
||||
Top = 42
|
||||
Width = 735
|
||||
Height = 339
|
||||
Height = 331
|
||||
Align = alClient
|
||||
Color = clWhite
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -479,7 +509,8 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
Visible = False
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 6
|
||||
ClientRectBottom = 339
|
||||
ExplicitHeight = 339
|
||||
ClientRectBottom = 331
|
||||
ClientRectRight = 735
|
||||
ClientRectTop = 0
|
||||
end
|
||||
|
|
@ -487,7 +518,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
Left = 1
|
||||
Top = 42
|
||||
Width = 735
|
||||
Height = 339
|
||||
Height = 331
|
||||
Align = alClient
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
|
|
@ -496,6 +527,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ExplicitHeight = 339
|
||||
object TV1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -587,6 +619,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
Caption = #37197#27604
|
||||
DataBinding.FieldName = 'Y_Ratio'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 116
|
||||
end
|
||||
|
|
@ -595,7 +628,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
DataBinding.FieldName = 'Y_Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object TV1Column2: TcxGridDBColumn
|
||||
|
|
@ -686,6 +718,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
AutoSize = True
|
||||
Caption = #35745#31639#29992#37327
|
||||
ImageIndex = 23
|
||||
Visible = False
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
end
|
||||
|
|
@ -693,16 +726,18 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
end
|
||||
object Panel2: TPanel
|
||||
Left = 737
|
||||
Top = 225
|
||||
Top = 233
|
||||
Width = 796
|
||||
Height = 382
|
||||
Height = 374
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
ExplicitTop = 225
|
||||
ExplicitHeight = 382
|
||||
object cxPageControl1: TcxPageControl
|
||||
Left = 1
|
||||
Top = 42
|
||||
Width = 794
|
||||
Height = 339
|
||||
Height = 331
|
||||
Align = alClient
|
||||
Color = clWhite
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -717,7 +752,8 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
Visible = False
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 6
|
||||
ClientRectBottom = 339
|
||||
ExplicitHeight = 339
|
||||
ClientRectBottom = 331
|
||||
ClientRectRight = 794
|
||||
ClientRectTop = 0
|
||||
end
|
||||
|
|
@ -725,7 +761,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
Left = 1
|
||||
Top = 42
|
||||
Width = 794
|
||||
Height = 339
|
||||
Height = 331
|
||||
Align = alClient
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
|
|
@ -734,6 +770,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ExplicitHeight = 339
|
||||
object Tv2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -821,6 +858,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
Caption = #37197#27604
|
||||
DataBinding.FieldName = 'Y_Ratio'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_ClothInfo.Default
|
||||
Width = 116
|
||||
|
|
@ -838,7 +876,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
DataBinding.FieldName = 'Y_Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 75
|
||||
end
|
||||
object Tv2Column2: TcxGridDBColumn
|
||||
|
|
@ -929,6 +966,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
AutoSize = True
|
||||
Caption = #35745#31639#29992#37327
|
||||
ImageIndex = 23
|
||||
Visible = False
|
||||
OnClick = ToolButton8Click
|
||||
end
|
||||
end
|
||||
|
|
@ -969,4 +1007,11 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
|
|||
Left = 1000
|
||||
Top = 488
|
||||
end
|
||||
object ADOQuery1: TADOQuery
|
||||
Connection = DataLink_ClothInfo.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 597
|
||||
Top = 345
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -91,6 +91,10 @@ type
|
|||
C_MachLatitudeDensity: TEdit;
|
||||
Label11: TLabel;
|
||||
XS: TEdit;
|
||||
Label13: TLabel;
|
||||
Chker: TEdit;
|
||||
ADOQuery1: TADOQuery;
|
||||
LSXS: TEdit;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
|
|
@ -201,6 +205,7 @@ begin
|
|||
end;
|
||||
SCreateCDS(ADOQueryTemp, CDS_2);
|
||||
SInitCDSData(ADOQueryTemp, CDS_2);
|
||||
LSXS.TEXT:= XS.TEXT;
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInfoInput.FormShow(Sender: TObject);
|
||||
|
|
@ -297,6 +302,42 @@ begin
|
|||
Edit;
|
||||
FieldByName('EDITER').Value := Trim(DName);
|
||||
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;
|
||||
FieldByName('BCIID').Value := Trim(maxId);
|
||||
if trim(C_Code.Text) = '' then
|
||||
|
|
@ -455,11 +496,11 @@ begin
|
|||
Application.MessageBox('产品名称不能为空！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if TryStrToFloat(XS.Text, f) = FALSE then
|
||||
begin
|
||||
Application.MessageBox('系数非数字！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
// if TryStrToFloat(XS.Text, f) = FALSE then
|
||||
// begin
|
||||
// Application.MessageBox('系数非数字！', '提示', 0);
|
||||
// Exit;
|
||||
// end;
|
||||
|
||||
if trim(C_Code.Text) = '' then
|
||||
begin
|
||||
|
|
|
|||
|
|
@ -95,7 +95,7 @@
|
|||
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
|
||||
</PropertyGroup>
|
||||
<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>
|
||||
<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>
|
||||
|
|
@ -139,6 +139,7 @@
|
|||
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
|
||||
<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>
|
||||
<Debugger_HostApplication>D:\Dp10RepoV10\项目代码\D10szXingjie\A02基础产品管理\testDll.exe</Debugger_HostApplication>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
|
|
@ -1,44 +1,44 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<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.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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm</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.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.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.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.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.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.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj</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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.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.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>
|
||||
<Transaction>1899-12-30 00:00:00.000.582,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="android-support-v4.dex.jar"/>
|
||||
|
|
@ -69,7 +69,7 @@
|
|||
<File Path="fmx.dex.jar"/>
|
||||
<File Path="google-play-billing.dex.jar"/>
|
||||
<File Path="google-play-licensing.dex.jar"/>
|
||||
<File Path="..\..\D10szHengYan"/>
|
||||
<File Path="..\..\D10szXingjie"/>
|
||||
<File Path="..\A00通用窗体"/>
|
||||
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
|
||||
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
|
||||
|
|
@ -85,7 +85,7 @@
|
|||
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
|
||||
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
|
||||
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
|
||||
<File Path="D:\Dp10Repo"/>
|
||||
<File Path="D:\Dp10RepoV10"/>
|
||||
<File Path="..\..\..\public10"/>
|
||||
<File Path="..\..\..\public10\design"/>
|
||||
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -2,6 +2,6 @@
|
|||
<BorlandProject>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szHengYan\A09财务通用管理\Financial.dproj"/>
|
||||
<Projects ActiveProject="D:\Dp10RepoV10\项目代码\D10szXingjie\A09财务通用管理\Financial.dproj"/>
|
||||
</Default.Personality>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
|
|
@ -73,7 +73,7 @@ begin
|
|||
if trim(DataBaseStr) = '' then
|
||||
begin
|
||||
server := '101.132.143.144,7781';
|
||||
dtbase := 'hengyanData';
|
||||
dtbase := 'xingjieData';
|
||||
user := 'rtsa';
|
||||
pswd := 'rightsoft@5740';
|
||||
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -2,6 +2,6 @@
|
|||
<BorlandProject>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szHengYan\B02基础纱线仓库\YarnStk.dproj"/>
|
||||
<Projects ActiveProject="D:\Dp10RepoV10\项目代码\D10szXingjie\B02基础纱线仓库\YarnStk.dproj"/>
|
||||
</Default.Personality>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
|
|
@ -6,7 +6,6 @@ inherited frmYarnInEdit: TfrmYarnInEdit
|
|||
ClientWidth = 1540
|
||||
Color = clWhite
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Position = poScreenCenter
|
||||
OnClose = FormClose
|
||||
|
|
@ -330,6 +329,7 @@ inherited frmYarnInEdit: TfrmYarnInEdit
|
|||
AutoSize = True
|
||||
Caption = #37319#36141#21333
|
||||
ImageIndex = 12
|
||||
Visible = False
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
|
|
@ -338,6 +338,7 @@ inherited frmYarnInEdit: TfrmYarnInEdit
|
|||
AutoSize = True
|
||||
Caption = #23548#20837
|
||||
ImageIndex = 19
|
||||
Visible = False
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object TBDel: TToolButton
|
||||
|
|
@ -373,6 +374,9 @@ inherited frmYarnInEdit: TfrmYarnInEdit
|
|||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_YarnStk.ADOLink
|
||||
end
|
||||
inherited cxImageList_bar: TcxImageList
|
||||
FormatVersion = 1
|
||||
end
|
||||
object DS_1: TDataSource
|
||||
DataSet = CDS_Sub
|
||||
Left = 696
|
||||
|
|
|
|||
|
|
@ -11,7 +11,7 @@ uses
|
|||
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
|
||||
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput,
|
||||
System.ImageList, Vcl.ImgList, dxScrollbarAnnotations, ComObj;
|
||||
System.ImageList, Vcl.ImgList, dxScrollbarAnnotations, ComObj, cxImageList;
|
||||
|
||||
type
|
||||
TfrmYarnInEdit = class(TfrmBaseInput)
|
||||
|
|
|
|||
|
|
@ -7,7 +7,7 @@ inherited frmYarnInList: TfrmYarnInList
|
|||
ExplicitWidth = 1300
|
||||
ExplicitHeight = 517
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
TextHeight = 17
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
|
|
@ -29,7 +29,7 @@ inherited frmYarnInList: TfrmYarnInList
|
|||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
TabOrder = 3
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -108,71 +108,71 @@ inherited frmYarnInList: TfrmYarnInList
|
|||
Left = 0
|
||||
Top = 38
|
||||
Width = 1284
|
||||
Height = 58
|
||||
Height = 67
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
TabOrder = 4
|
||||
object Label1: TLabel
|
||||
Left = 28
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #26597#35810#26102#38388
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 64
|
||||
Top = 37
|
||||
Width = 12
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #33267
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 351
|
||||
Left = 377
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #21697#21517
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 492
|
||||
Left = 528
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #26469#33258#21333#20301
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 351
|
||||
Left = 377
|
||||
Top = 37
|
||||
Width = 24
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #35268#26684
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 178
|
||||
Left = 192
|
||||
Top = 37
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #20837#24211#31867#22411
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 492
|
||||
Left = 528
|
||||
Top = 37
|
||||
Width = 48
|
||||
Height = 12
|
||||
Width = 40
|
||||
Height = 17
|
||||
Caption = #25209' '#21495
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 178
|
||||
Left = 192
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #20837#24211#21333#21495
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 77
|
||||
Left = 91
|
||||
Top = 8
|
||||
Width = 87
|
||||
Height = 20
|
||||
|
|
@ -181,7 +181,7 @@ inherited frmYarnInList: TfrmYarnInList
|
|||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 77
|
||||
Left = 91
|
||||
Top = 33
|
||||
Width = 87
|
||||
Height = 20
|
||||
|
|
@ -191,37 +191,37 @@ inherited frmYarnInList: TfrmYarnInList
|
|||
end
|
||||
object Y_Name: TEdit
|
||||
Tag = 2
|
||||
Left = 378
|
||||
Left = 414
|
||||
Top = 8
|
||||
Width = 100
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 2
|
||||
OnChange = TBFindClick
|
||||
end
|
||||
object FromCoName: TEdit
|
||||
Tag = 2
|
||||
Left = 542
|
||||
Left = 593
|
||||
Top = 8
|
||||
Width = 100
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 3
|
||||
OnChange = FromCoNameChange
|
||||
end
|
||||
object Y_spec: TEdit
|
||||
Tag = 2
|
||||
Left = 378
|
||||
Left = 414
|
||||
Top = 33
|
||||
Width = 100
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 4
|
||||
OnChange = Y_specChange
|
||||
end
|
||||
object IOType: TComboBox
|
||||
Tag = 2
|
||||
Left = 228
|
||||
Left = 254
|
||||
Top = 33
|
||||
Width = 109
|
||||
Height = 20
|
||||
Height = 25
|
||||
Style = csDropDownList
|
||||
DropDownCount = 20
|
||||
TabOrder = 5
|
||||
|
|
@ -234,32 +234,33 @@ inherited frmYarnInList: TfrmYarnInList
|
|||
end
|
||||
object BatchNo: TEdit
|
||||
Tag = 2
|
||||
Left = 542
|
||||
Left = 593
|
||||
Top = 33
|
||||
Width = 100
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 6
|
||||
OnChange = FromCoNameChange
|
||||
end
|
||||
object BYIOID: TEdit
|
||||
Tag = 2
|
||||
Left = 228
|
||||
Left = 254
|
||||
Top = 8
|
||||
Width = 109
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 7
|
||||
OnChange = TBFindClick
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid [2]
|
||||
Left = 0
|
||||
Top = 96
|
||||
Top = 105
|
||||
Width = 1284
|
||||
Height = 382
|
||||
Height = 373
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 2
|
||||
ExplicitTop = 97
|
||||
ExplicitTop = 96
|
||||
ExplicitHeight = 382
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -333,6 +334,21 @@ inherited frmYarnInList: TfrmYarnInList
|
|||
Options.Editing = False
|
||||
Width = 93
|
||||
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
|
||||
Tag = 2
|
||||
Caption = #20837#24211#31867#22411
|
||||
|
|
@ -390,21 +406,6 @@ inherited frmYarnInList: TfrmYarnInList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 55
|
||||
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
|
||||
Tag = 2
|
||||
Caption = #35268#26684
|
||||
|
|
@ -556,6 +557,13 @@ inherited frmYarnInList: TfrmYarnInList
|
|||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
inherited cxProgressBar2: TcxProgressBar
|
||||
Left = 301
|
||||
Top = 137
|
||||
ExplicitLeft = 301
|
||||
ExplicitTop = 137
|
||||
ExplicitHeight = 25
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_YarnStk.ADOLink
|
||||
Left = 113
|
||||
|
|
|
|||
|
|
@ -13,7 +13,7 @@ uses
|
|||
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
|
||||
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
|
||||
dxScrollbarAnnotations;
|
||||
dxScrollbarAnnotations, cxContainer, cxProgressBar;
|
||||
|
||||
type
|
||||
TfrmYarnInList = class(TfrmBaseList)
|
||||
|
|
|
|||
|
|
@ -6,7 +6,6 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
|
|||
ClientWidth = 1406
|
||||
Color = clWhite
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Position = poMainFormCenter
|
||||
OnClose = FormClose
|
||||
|
|
@ -328,6 +327,9 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
|
|||
Left = 160
|
||||
Top = 288
|
||||
end
|
||||
inherited cxImageList_bar: TcxImageList
|
||||
FormatVersion = 1
|
||||
end
|
||||
object DataSource3: TDataSource
|
||||
DataSet = CDS_Sub
|
||||
Left = 592
|
||||
|
|
|
|||
|
|
@ -11,7 +11,8 @@ uses
|
|||
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxSpinEdit,
|
||||
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
|
||||
dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
|
||||
U_BaseInput, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations;
|
||||
U_BaseInput, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations,
|
||||
cxImageList;
|
||||
|
||||
type
|
||||
TfrmYarnOutEdit = class(TfrmBaseInput)
|
||||
|
|
|
|||
|
|
@ -8,7 +8,7 @@ inherited frmYarnOutList: TfrmYarnOutList
|
|||
ExplicitWidth = 1209
|
||||
ExplicitHeight = 583
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
TextHeight = 17
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
|
|
@ -30,7 +30,7 @@ inherited frmYarnOutList: TfrmYarnOutList
|
|||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
TabOrder = 3
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -109,56 +109,56 @@ inherited frmYarnOutList: TfrmYarnOutList
|
|||
Left = 0
|
||||
Top = 38
|
||||
Width = 1193
|
||||
Height = 61
|
||||
Height = 68
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
TabOrder = 4
|
||||
object Label1: TLabel
|
||||
Left = 28
|
||||
Top = 10
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #26597#35810#26102#38388
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 64
|
||||
Top = 37
|
||||
Width = 12
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #33267
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 321
|
||||
Left = 337
|
||||
Top = 10
|
||||
Width = 24
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #21697#21517
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 178
|
||||
Left = 184
|
||||
Top = 10
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #20986#24211#21333#21495
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 321
|
||||
Left = 337
|
||||
Top = 37
|
||||
Width = 24
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #35268#26684
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 179
|
||||
Left = 185
|
||||
Top = 37
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #20986#24211#31867#22411
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 77
|
||||
Left = 83
|
||||
Top = 6
|
||||
Width = 87
|
||||
Height = 20
|
||||
|
|
@ -167,7 +167,7 @@ inherited frmYarnOutList: TfrmYarnOutList
|
|||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 77
|
||||
Left = 83
|
||||
Top = 33
|
||||
Width = 87
|
||||
Height = 20
|
||||
|
|
@ -177,37 +177,37 @@ inherited frmYarnOutList: TfrmYarnOutList
|
|||
end
|
||||
object Y_Name: TEdit
|
||||
Tag = 2
|
||||
Left = 348
|
||||
Left = 372
|
||||
Top = 6
|
||||
Width = 80
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 2
|
||||
OnChange = TBFindClick
|
||||
end
|
||||
object BYIOID: TEdit
|
||||
Tag = 2
|
||||
Left = 232
|
||||
Left = 248
|
||||
Top = 6
|
||||
Width = 80
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 3
|
||||
OnChange = BYIOIDChange
|
||||
end
|
||||
object Y_spec: TEdit
|
||||
Tag = 2
|
||||
Left = 348
|
||||
Left = 372
|
||||
Top = 33
|
||||
Width = 80
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 4
|
||||
OnChange = Y_specChange
|
||||
end
|
||||
object IOType: TComboBox
|
||||
Tag = 2
|
||||
Left = 232
|
||||
Left = 248
|
||||
Top = 33
|
||||
Width = 80
|
||||
Height = 20
|
||||
Height = 25
|
||||
Style = csDropDownList
|
||||
DropDownCount = 20
|
||||
TabOrder = 5
|
||||
|
|
@ -223,13 +223,14 @@ inherited frmYarnOutList: TfrmYarnOutList
|
|||
end
|
||||
object cxGrid2: TcxGrid [2]
|
||||
Left = 0
|
||||
Top = 99
|
||||
Top = 106
|
||||
Width = 1193
|
||||
Height = 445
|
||||
Height = 438
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 2
|
||||
ExplicitTop = 100
|
||||
ExplicitTop = 99
|
||||
ExplicitHeight = 445
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -517,6 +518,13 @@ inherited frmYarnOutList: TfrmYarnOutList
|
|||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
inherited cxProgressBar2: TcxProgressBar
|
||||
Left = 280
|
||||
Top = 137
|
||||
ExplicitLeft = 280
|
||||
ExplicitTop = 137
|
||||
ExplicitHeight = 25
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_YarnStk.ADOLink
|
||||
Left = 321
|
||||
|
|
|
|||
|
|
@ -13,7 +13,7 @@ uses
|
|||
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
|
||||
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
|
||||
dxScrollbarAnnotations;
|
||||
dxScrollbarAnnotations, cxContainer, cxProgressBar;
|
||||
|
||||
type
|
||||
TfrmYarnOutList = class(TfrmBaseList)
|
||||
|
|
|
|||
|
|
@ -8,7 +8,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
ExplicitWidth = 1416
|
||||
ExplicitHeight = 511
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
TextHeight = 17
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
|
|
@ -30,7 +30,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
TabOrder = 3
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -78,88 +78,91 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
Left = 0
|
||||
Top = 38
|
||||
Width = 1400
|
||||
Height = 36
|
||||
Height = 43
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
TabOrder = 4
|
||||
object Label3: TLabel
|
||||
Left = 190
|
||||
Left = 194
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #21697#21517
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 46
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #26469#33258#21333#20301
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 332
|
||||
Left = 343
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #35268#26684
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 473
|
||||
Left = 492
|
||||
Top = 12
|
||||
Width = 36
|
||||
Height = 12
|
||||
Width = 32
|
||||
Height = 17
|
||||
Caption = #25209' '#21495
|
||||
end
|
||||
object Y_name: TEdit
|
||||
Tag = 2
|
||||
Left = 217
|
||||
Left = 228
|
||||
Top = 8
|
||||
Width = 100
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 0
|
||||
OnChange = TBFindClick
|
||||
end
|
||||
object FromCoName: TEdit
|
||||
Tag = 2
|
||||
Left = 100
|
||||
Left = 104
|
||||
Top = 8
|
||||
Width = 78
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 1
|
||||
OnChange = FromCoNameChange
|
||||
end
|
||||
object Y_spec: TEdit
|
||||
Tag = 2
|
||||
Left = 359
|
||||
Left = 378
|
||||
Top = 8
|
||||
Width = 100
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 2
|
||||
OnChange = TBFindClick
|
||||
end
|
||||
object BatchNo: TEdit
|
||||
Tag = 2
|
||||
Left = 512
|
||||
Left = 540
|
||||
Top = 8
|
||||
Width = 78
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 3
|
||||
OnChange = FromCoNameChange
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid [2]
|
||||
Left = 0
|
||||
Top = 74
|
||||
Top = 81
|
||||
Width = 1400
|
||||
Height = 398
|
||||
Height = 391
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 2
|
||||
ExplicitTop = 74
|
||||
ExplicitHeight = 398
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
|
|
@ -220,6 +223,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #20837#24211#26102#38388
|
||||
DataBinding.FieldName = 'IOTime'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 87
|
||||
|
|
@ -228,6 +232,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
Tag = 2
|
||||
Caption = #26469#33258#21333#20301
|
||||
DataBinding.FieldName = 'FromCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Alignment.Horz = taLeftJustify
|
||||
Properties.Buttons = <
|
||||
|
|
@ -243,6 +248,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #23384#25918#21333#20301
|
||||
DataBinding.FieldName = 'StkCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 76
|
||||
|
|
@ -250,6 +256,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #21697#29260
|
||||
DataBinding.FieldName = 'Brand'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 90
|
||||
|
|
@ -258,6 +265,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
Tag = 2
|
||||
Caption = #21697#21517
|
||||
DataBinding.FieldName = 'Y_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
|
|
@ -272,6 +280,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
Tag = 2
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'Y_Spec'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
|
|
@ -280,6 +289,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #25104#20998
|
||||
DataBinding.FieldName = 'Y_Composition'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 82
|
||||
|
|
@ -287,6 +297,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'Y_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 76
|
||||
|
|
@ -294,6 +305,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
object Tv1Column5: TcxGridDBColumn
|
||||
Caption = 'D'#25968
|
||||
DataBinding.FieldName = 'Denier'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 76
|
||||
|
|
@ -301,6 +313,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
object v1Column10: TcxGridDBColumn
|
||||
Caption = #25209#21495
|
||||
DataBinding.FieldName = 'BatchNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 124
|
||||
|
|
@ -308,6 +321,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #31665'/'#20214
|
||||
DataBinding.FieldName = 'StkPiece'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 64
|
||||
end
|
||||
|
|
@ -315,6 +329,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
Tag = 2
|
||||
Caption = #24211#23384#25968#37327
|
||||
DataBinding.FieldName = 'stkqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
|
|
@ -324,6 +339,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
Tag = 2
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.Items.Strings = (
|
||||
|
|
@ -337,6 +353,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
object Tv1Column6: TcxGridDBColumn
|
||||
Caption = #24211#20301
|
||||
DataBinding.FieldName = 'StkPosition'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 76
|
||||
|
|
@ -344,6 +361,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
object Tv1Column7: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'Note'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 76
|
||||
|
|
@ -351,6 +369,7 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
object Tv1Column8: TcxGridDBColumn
|
||||
Caption = #29992#36884
|
||||
DataBinding.FieldName = 'Y_Use'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 58
|
||||
end
|
||||
|
|
@ -359,6 +378,9 @@ inherited frmYarnStkList: TfrmYarnStkList
|
|||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
inherited cxProgressBar2: TcxProgressBar
|
||||
ExplicitHeight = 25
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_YarnStk.ADOLink
|
||||
Left = 305
|
||||
|
|
|
|||
|
|
@ -12,7 +12,8 @@ uses
|
|||
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
|
||||
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
|
||||
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList;
|
||||
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer,
|
||||
dxScrollbarAnnotations, cxProgressBar;
|
||||
|
||||
type
|
||||
TfrmYarnStkList = class(TfrmBaseList)
|
||||
|
|
|
|||
|
|
@ -35,7 +35,9 @@ uses
|
|||
U_CPSelBig in 'U_CPSelBig.pas' {frmCPSelBig},
|
||||
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
|
||||
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}
|
||||
|
||||
|
|
|
|||
|
|
@ -124,7 +124,7 @@
|
|||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10szHengYan\B02基础纱线仓库\testDll.exe</Debugger_HostApplication>
|
||||
<Debugger_HostApplication>D:\Dp10RepoV10\项目代码\D10szXingjie\B02基础纱线仓库\testDll.exe</Debugger_HostApplication>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
|
|
@ -222,6 +222,8 @@
|
|||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<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">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
|
|
|
|||
|
|
@ -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.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.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.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.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.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.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>
|
||||
|
|
@ -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.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.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.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.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.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.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.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.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.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.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.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.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm</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.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.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.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.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.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.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.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.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.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.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.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>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>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="android-support-v4.dex.jar"/>
|
||||
|
|
@ -84,7 +86,7 @@
|
|||
<File Path="fmx.dex.jar"/>
|
||||
<File Path="google-play-billing.dex.jar"/>
|
||||
<File Path="google-play-licensing.dex.jar"/>
|
||||
<File Path="..\..\D10szHengYan"/>
|
||||
<File Path="..\..\D10szXingjie"/>
|
||||
<File Path="..\A00通用窗体"/>
|
||||
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
|
||||
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
|
||||
|
|
@ -106,7 +108,7 @@
|
|||
<File Path="..\A00通用窗体\U_ClothPurchasePlanSel.dfm"/>
|
||||
<File Path="..\A00通用窗体\U_YarnPurchasePlanSel.pas"/>
|
||||
<File Path="..\A00通用窗体\U_YarnPurchasePlanSel.dfm"/>
|
||||
<File Path="D:\Dp10Repo"/>
|
||||
<File Path="D:\Dp10RepoV10"/>
|
||||
<File Path="..\..\..\public10"/>
|
||||
<File Path="..\..\..\public10\design"/>
|
||||
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
|
||||
|
|
@ -118,6 +120,8 @@
|
|||
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
|
||||
<File Path="..\..\..\public10\design\U_globalVar.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\Form"/>
|
||||
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
4821
E00梭织通用窗体/U_TatCardSel.dfm
Normal file
4821
E00梭织通用窗体/U_TatCardSel.dfm
Normal file
File diff suppressed because it is too large
Load Diff
|
|
@ -65,13 +65,13 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
Left = 0
|
||||
Top = 38
|
||||
Width = 1540
|
||||
Height = 59
|
||||
Height = 67
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 1
|
||||
object Label3: TLabel
|
||||
Left = 39
|
||||
Left = 295
|
||||
Top = 10
|
||||
Width = 52
|
||||
Height = 12
|
||||
|
|
@ -84,7 +84,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 243
|
||||
Left = 499
|
||||
Top = 10
|
||||
Width = 52
|
||||
Height = 12
|
||||
|
|
@ -97,7 +97,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 447
|
||||
Left = 703
|
||||
Top = 10
|
||||
Width = 26
|
||||
Height = 12
|
||||
|
|
@ -110,7 +110,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 447
|
||||
Left = 703
|
||||
Top = 37
|
||||
Width = 26
|
||||
Height = 12
|
||||
|
|
@ -123,7 +123,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 620
|
||||
Left = 876
|
||||
Top = 10
|
||||
Width = 26
|
||||
Height = 12
|
||||
|
|
@ -136,7 +136,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 243
|
||||
Left = 499
|
||||
Top = 37
|
||||
Width = 52
|
||||
Height = 12
|
||||
|
|
@ -149,7 +149,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
ParentFont = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 38
|
||||
Left = 294
|
||||
Top = 37
|
||||
Width = 53
|
||||
Height = 12
|
||||
|
|
@ -162,7 +162,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
ParentFont = False
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 620
|
||||
Left = 876
|
||||
Top = 37
|
||||
Width = 26
|
||||
Height = 12
|
||||
|
|
@ -174,9 +174,22 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
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
|
||||
Tag = 2
|
||||
Left = 97
|
||||
Left = 353
|
||||
Top = 6
|
||||
Width = 120
|
||||
Height = 20
|
||||
|
|
@ -185,7 +198,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
end
|
||||
object C_Name: TEdit
|
||||
Tag = 2
|
||||
Left = 301
|
||||
Left = 557
|
||||
Top = 6
|
||||
Width = 120
|
||||
Height = 20
|
||||
|
|
@ -194,7 +207,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
end
|
||||
object C_Color: TEdit
|
||||
Tag = 2
|
||||
Left = 476
|
||||
Left = 732
|
||||
Top = 6
|
||||
Width = 120
|
||||
Height = 20
|
||||
|
|
@ -203,7 +216,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
end
|
||||
object C_ColorNo: TEdit
|
||||
Tag = 2
|
||||
Left = 476
|
||||
Left = 732
|
||||
Top = 33
|
||||
Width = 120
|
||||
Height = 20
|
||||
|
|
@ -212,7 +225,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
end
|
||||
object C_Pattern: TEdit
|
||||
Tag = 2
|
||||
Left = 649
|
||||
Left = 905
|
||||
Top = 6
|
||||
Width = 120
|
||||
Height = 20
|
||||
|
|
@ -221,7 +234,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
end
|
||||
object C_Code: TEdit
|
||||
Tag = 2
|
||||
Left = 300
|
||||
Left = 556
|
||||
Top = 33
|
||||
Width = 120
|
||||
Height = 20
|
||||
|
|
@ -230,7 +243,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
end
|
||||
object ConNo: TEdit
|
||||
Tag = 2
|
||||
Left = 97
|
||||
Left = 353
|
||||
Top = 33
|
||||
Width = 120
|
||||
Height = 20
|
||||
|
|
@ -239,24 +252,48 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
end
|
||||
object CustName: TEdit
|
||||
Tag = 2
|
||||
Left = 649
|
||||
Left = 905
|
||||
Top = 33
|
||||
Width = 120
|
||||
Height = 20
|
||||
TabOrder = 7
|
||||
OnChange = OrderNoChange
|
||||
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
|
||||
object cxGrid1: TcxGrid [2]
|
||||
Left = 0
|
||||
Top = 97
|
||||
Top = 105
|
||||
Width = 1540
|
||||
Height = 546
|
||||
Height = 538
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 111
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnDblClick = TV1DblClick
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
|
|
@ -272,21 +309,31 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object v1Column7: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'Ssel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 56
|
||||
end
|
||||
object Tv1Column6: TcxGridDBColumn
|
||||
Caption = #19979#21333#26085#26399
|
||||
DataBinding.FieldName = 'OrdDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'CustName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1OrderNo: TcxGridDBColumn
|
||||
Caption = #35745#21010#21333#21495
|
||||
Caption = #32455#36896#21333#21495
|
||||
DataBinding.FieldName = 'OrderNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -295,6 +342,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object v1ConNo: TcxGridDBColumn
|
||||
Caption = #21512#21516#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -303,6 +351,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object v1DeliveryDate: TcxGridDBColumn
|
||||
Caption = #20132#36135#26085#26399
|
||||
DataBinding.FieldName = 'DlyDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -313,6 +362,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #23458#25143#21333#21495
|
||||
DataBinding.FieldName = 'BuyConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
|
|
@ -320,17 +370,20 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object Tv1Column5: TcxGridDBColumn
|
||||
Caption = #24037#33402
|
||||
DataBinding.FieldName = 'Technics'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #21152#24037#21378
|
||||
DataBinding.FieldName = 'FtyName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 138
|
||||
end
|
||||
object v1OrdDefStr1: TcxGridDBColumn
|
||||
Caption = #20135#21697#32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -339,6 +392,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object v1MPRTCodeName: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -347,6 +401,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object v1MPRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -355,6 +410,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #25104#20998
|
||||
DataBinding.FieldName = 'C_Composition'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -362,6 +418,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object v1MPRTMF: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -370,6 +427,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object v1MPRTKZ: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -378,6 +436,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object v1PRTColor: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -386,6 +445,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'C_ColorNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -394,6 +454,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #33457#22411
|
||||
DataBinding.FieldName = 'C_Pattern'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -402,12 +463,14 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #35745#21010#21305#25968
|
||||
DataBinding.FieldName = 'OrdPiece'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 87
|
||||
end
|
||||
object v1PRTOrderQty: TcxGridDBColumn
|
||||
Caption = #35745#21010#25968#37327
|
||||
DataBinding.FieldName = 'OrdQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -416,6 +479,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'OrdUnit'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -424,6 +488,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #20844#26020#25968
|
||||
DataBinding.FieldName = 'PRTOrderKgQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
|
|
@ -432,6 +497,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'OrdSNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -444,12 +510,12 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = ADOConnection1
|
||||
Left = 297
|
||||
Top = 128
|
||||
Top = 304
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = ADOConnection1
|
||||
Left = 193
|
||||
Top = 129
|
||||
Left = 217
|
||||
Top = 313
|
||||
end
|
||||
inherited ImageList_new32: TImageList
|
||||
Left = 344
|
||||
|
|
@ -1022,8 +1088,8 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
end
|
||||
object ADOConnection1: TADOConnection
|
||||
LoginPrompt = False
|
||||
Left = 624
|
||||
Top = 168
|
||||
Left = 656
|
||||
Top = 376
|
||||
end
|
||||
object GPM_1: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
|
|
@ -4741,8 +4807,8 @@ inherited frmTatPlanSel: TfrmTatPlanSel
|
|||
000000000000}
|
||||
end
|
||||
object cxStyleRepository1: TcxStyleRepository
|
||||
Left = 504
|
||||
Top = 144
|
||||
Left = 536
|
||||
Top = 392
|
||||
PixelsPerInch = 96
|
||||
object cxStyle1: TcxStyle
|
||||
AssignedValues = [svFont]
|
||||
|
|
|
|||
|
|
@ -11,7 +11,7 @@ uses
|
|||
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
|
||||
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox,
|
||||
cxCalendar;
|
||||
cxCalendar, dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmTatPlanSel = class(TfrmBaseHelp)
|
||||
|
|
@ -71,6 +71,10 @@ type
|
|||
ConNo: TEdit;
|
||||
Label1: TLabel;
|
||||
CustName: TEdit;
|
||||
Label9: TLabel;
|
||||
BegDate: TDateTimePicker;
|
||||
EndDate: TDateTimePicker;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
|
@ -80,6 +84,8 @@ type
|
|||
procedure OrderNoChange(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure Tv1DblClick(Sender: TObject);
|
||||
procedure BegDateChange(Sender: TObject);
|
||||
procedure EndDateChange(Sender: TObject);
|
||||
private
|
||||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
|
|
@ -110,11 +116,26 @@ begin
|
|||
end;
|
||||
ADOQueryBaseCmd.Connection := ADOConnection1;
|
||||
ADOQueryBaseTemp.Connection := ADOConnection1;
|
||||
BegDate.Datetime := Date - 6;
|
||||
EndDate.Datetime := Date;
|
||||
except
|
||||
application.MessageBox('网络连接失败！', '提示信息');
|
||||
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);
|
||||
begin
|
||||
inherited;
|
||||
|
|
@ -136,6 +157,8 @@ begin
|
|||
sql.Clear;
|
||||
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(' 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);
|
||||
Open;
|
||||
|
|
|
|||
|
|
@ -2,6 +2,6 @@
|
|||
<BorlandProject>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXingjie\E01梭织生产计划\TatPlan.dproj"/>
|
||||
<Projects ActiveProject="D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\TatPlan.dproj"/>
|
||||
</Default.Personality>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
2
E01梭织生产计划/ProjectGroup1_prjgroup.tvsconfig
Normal file
2
E01梭织生产计划/ProjectGroup1_prjgroup.tvsconfig
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
<?xml version="1.0"?>
|
||||
<TgConfig Version="3" SubLevelDisabled="False" />
|
||||
|
|
@ -11,8 +11,6 @@ uses
|
|||
U_DataLink in 'U_DataLink.pas' {DataLink_TatPlan: TDataModule},
|
||||
U_iniParam in 'U_iniParam.pas',
|
||||
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_globalVar in '..\..\..\public10\design\U_globalVar.pas',
|
||||
U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
|
||||
|
|
@ -25,19 +23,29 @@ uses
|
|||
U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
|
||||
U_TatCardInPut in 'U_TatCardInPut.pas' {frmTatCardInPut},
|
||||
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_TatWBCardInPut in 'U_TatWBCardInPut.pas' {frmTatWBCardInPut},
|
||||
U_TatWBCardInPutXIUGAI in 'U_TatWBCardInPutXIUGAI.pas' {frmTatWBCardInPutXIUGAI},
|
||||
U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel},
|
||||
U_TatPlanCard in 'U_TatPlanCard.pas' {frmTatPlanCard},
|
||||
U_TatPlanSel in '..\E00梭织通用窗体\U_TatPlanSel.pas' {frmTatPlanSel},
|
||||
U_TatOutputList in 'U_TatOutputList.pas' {frmTatOutputList},
|
||||
U_WBSpecEditSel in 'U_WBSpecEditSel.pas' {frmWBSpecEditSel},
|
||||
U_WBSpecInPut in 'U_WBSpecInPut.pas' {frmYarnInfoInPut},
|
||||
U_YarnStkSel in 'U_YarnStkSel.pas' {frmYarnStkSel},
|
||||
U_TatPlanMachInput in 'U_TatPlanMachInput.pas' {frmTatPlanMachInput},
|
||||
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}
|
||||
|
||||
|
|
|
|||
|
|
@ -124,7 +124,7 @@
|
|||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10szXingjie\E01梭织生产计划\testDll.exe</Debugger_HostApplication>
|
||||
<Debugger_HostApplication>D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\testDll.exe</Debugger_HostApplication>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
|
|
@ -140,14 +140,6 @@
|
|||
<Form>frmBaseHelp</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</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_globalVar.pas"/>
|
||||
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
|
||||
|
|
@ -181,16 +173,12 @@
|
|||
<Form>frmLabelMapSet</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\A00通用窗体\U_LabelPrint.pas">
|
||||
<Form>frmLabelPrint</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\A00通用窗体\U_YarnInfoSel.pas">
|
||||
<Form>frmYarnInfoSel</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_TatWBCardInPut.pas">
|
||||
<Form>frmTatWBCardInPut</Form>
|
||||
<DCCReference Include="U_TatWBCardInPutXIUGAI.pas">
|
||||
<Form>frmTatWBCardInPutXIUGAI</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\A00通用窗体\U_TatClothInfoSel.pas">
|
||||
|
|
@ -201,10 +189,6 @@
|
|||
<Form>frmTatPlanCard</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\E00梭织通用窗体\U_TatPlanSel.pas">
|
||||
<Form>frmTatPlanSel</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_TatOutputList.pas">
|
||||
<Form>frmTatOutputList</Form>
|
||||
<FormType>dfm</FormType>
|
||||
|
|
@ -230,6 +214,48 @@
|
|||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<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">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
|
|
|
|||
|
|
@ -1,51 +1,78 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.117,D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.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.500,=D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\U_TatDCGCLCXList.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.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.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.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.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>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="android-support-v4.dex.jar"/>
|
||||
|
|
@ -90,14 +117,16 @@
|
|||
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
|
||||
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
|
||||
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
|
||||
<File Path="..\A00通用窗体\U_YarnInfoSel.pas"/>
|
||||
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
|
||||
<File Path="..\A00通用窗体\U_SalesContractSel.pas"/>
|
||||
<File Path="..\A00通用窗体\U_SalesContractSel.dfm"/>
|
||||
<File Path="..\A00通用窗体\U_TatClothInfoSel.pas"/>
|
||||
<File Path="..\A00通用窗体\U_TatClothInfoSel.dfm"/>
|
||||
<File Path="..\A00通用窗体\U_YarnInfoSel.pas"/>
|
||||
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
|
||||
<File Path="..\E00梭织通用窗体"/>
|
||||
<File Path="..\E00梭织通用窗体\U_TatPlanSel.pas"/>
|
||||
<File Path="..\E00梭织通用窗体\U_TatPlanSel.dfm"/>
|
||||
<File Path="D:\Dp10Repo"/>
|
||||
<File Path="D:\Dp10RepoV10"/>
|
||||
<File Path="..\..\..\public10"/>
|
||||
<File Path="..\..\..\public10\design"/>
|
||||
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
|
||||
|
|
@ -107,6 +136,8 @@
|
|||
<File Path="..\..\..\public10\design\U_BaseList.pas"/>
|
||||
<File Path="..\..\..\public10\design\U_BaseList.dfm"/>
|
||||
<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_WindowFormdesign.pas"/>
|
||||
<File Path="..\..\..\public10\ThreeFun"/>
|
||||
|
|
@ -114,17 +145,17 @@
|
|||
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
|
||||
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.dfm"/>
|
||||
<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_RTFun.pas"/>
|
||||
<File Path="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
|
||||
<File Path="U_GetDllForm.pas"/>
|
||||
<File Path="U_DataLink.pas"/>
|
||||
<File Path="U_DataLink.dfm"/>
|
||||
<File Path="U_GetDllForm.pas"/>
|
||||
<File Path="U_iniParam.pas"/>
|
||||
<File Path="U_TatCardInPut.pas"/>
|
||||
<File Path="U_TatCardInPut.dfm"/>
|
||||
<File Path="U_TatWBCardInPut.pas"/>
|
||||
<File Path="U_TatWBCardInPut.dfm"/>
|
||||
<File Path="U_TatWBCardInPutXIUGAI.pas"/>
|
||||
<File Path="U_TatWBCardInPutXIUGAI.dfm"/>
|
||||
<File Path="U_TatPlanCard.pas"/>
|
||||
<File Path="U_TatPlanCard.dfm"/>
|
||||
<File Path="U_TatOutputList.pas"/>
|
||||
|
|
@ -139,5 +170,15 @@
|
|||
<File Path="U_TatPlanMachInput.dfm"/>
|
||||
<File Path="U_TatPlanMachList.pas"/>
|
||||
<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>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -16,7 +16,7 @@ implementation
|
|||
|
||||
uses
|
||||
U_DataLink, U_iniParam, U_TatPlanList, U_TatPlanCard, U_TatWBPlanCard,
|
||||
U_TatOutputList, U_TatPlanMachList;
|
||||
U_TatOutputList, U_TatPlanMachList,U_TatDCGCLCXList; //
|
||||
|
||||
/////////////////////////////////////////////////////////////////
|
||||
// 功能说明:取Dll中得窗体 //
|
||||
|
|
@ -75,6 +75,7 @@ begin
|
|||
dtbase := 'xingjieData';
|
||||
user := 'rtsa';
|
||||
pswd := 'rightsoft@5740';
|
||||
|
||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||
DParameters1 := '管理';
|
||||
end
|
||||
|
|
@ -125,7 +126,7 @@ begin
|
|||
//调用子模块窗口
|
||||
case FormID of
|
||||
|
||||
111: //坯布生产计划单
|
||||
111: //织造单管理
|
||||
begin
|
||||
with TfrmTatPlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||
begin
|
||||
|
|
@ -137,7 +138,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
121: //尽机安排管理
|
||||
{121: //尽机安排管理
|
||||
begin
|
||||
with TfrmTatPlanMachList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||
begin
|
||||
|
|
@ -147,7 +148,7 @@ begin
|
|||
BorderStyle := mborderstyle;
|
||||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
end;}
|
||||
|
||||
211: //轴卡管理
|
||||
begin
|
||||
|
|
@ -185,6 +186,18 @@ begin
|
|||
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:
|
||||
begin
|
||||
for i := 0 to application.MainForm.MDIChildCount - 1 do
|
||||
|
|
|
|||
|
|
@ -2,26 +2,26 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
Left = 203
|
||||
Top = 126
|
||||
Caption = #24067#21305#23433#25490
|
||||
ClientHeight = 460
|
||||
ClientWidth = 898
|
||||
ClientHeight = 485
|
||||
ClientWidth = 895
|
||||
Color = clWhite
|
||||
Position = poScreenCenter
|
||||
ExplicitWidth = 914
|
||||
ExplicitHeight = 499
|
||||
ExplicitWidth = 911
|
||||
ExplicitHeight = 524
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
TextHeight = 17
|
||||
object Panel4: TPanel [0]
|
||||
Left = 553
|
||||
Top = 0
|
||||
Width = 345
|
||||
Height = 460
|
||||
Width = 342
|
||||
Height = 485
|
||||
Align = alClient
|
||||
Caption = 'Panel4'
|
||||
TabOrder = 0
|
||||
object Panel1: TPanel
|
||||
Left = 1
|
||||
Top = 39
|
||||
Width = 343
|
||||
Width = 340
|
||||
Height = 40
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -47,7 +47,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
Left = 77
|
||||
Top = 9
|
||||
Width = 81
|
||||
Height = 21
|
||||
Height = 25
|
||||
TabOrder = 0
|
||||
OnChange = MCNOChange
|
||||
end
|
||||
|
|
@ -55,14 +55,15 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
object cxGrid1: TcxGrid
|
||||
Left = 1
|
||||
Top = 79
|
||||
Width = 343
|
||||
Height = 380
|
||||
Width = 340
|
||||
Height = 405
|
||||
Align = alClient
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 1
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnDblClick = Tv1DblClick
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
OnCustomDrawCell = Tv1CustomDrawCell
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
|
|
@ -95,6 +96,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #26426#21488#21495
|
||||
DataBinding.FieldName = 'MCNO'
|
||||
DataBinding.IsNullValueType = True
|
||||
GroupSummaryAlignment = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
|
|
@ -104,6 +106,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #26159#21542#23433#25490
|
||||
DataBinding.FieldName = 'isap'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
|
|
@ -111,6 +114,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #24635#26410#26816#39564#21305#25968
|
||||
DataBinding.FieldName = 'ZWJYPS'
|
||||
DataBinding.IsNullValueType = True
|
||||
GroupSummaryAlignment = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
|
|
@ -120,6 +124,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #26412#21333#26410#26816#39564#25968
|
||||
DataBinding.FieldName = 'BWJYPS'
|
||||
DataBinding.IsNullValueType = True
|
||||
GroupSummaryAlignment = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
|
|
@ -135,7 +140,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
Tag = 1
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 343
|
||||
Width = 340
|
||||
Height = 38
|
||||
AutoSize = True
|
||||
ButtonHeight = 38
|
||||
|
|
@ -158,12 +163,12 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #35745#21010#21333
|
||||
Caption = #36724#21345
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object ToolButton12: TToolButton
|
||||
Left = 83
|
||||
Left = 71
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
|
|
@ -171,7 +176,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
OnClick = ToolButton12Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 178
|
||||
Left = 166
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
|
|
@ -184,13 +189,13 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 553
|
||||
Height = 460
|
||||
Height = 485
|
||||
Align = alLeft
|
||||
Caption = 'Panel5'
|
||||
TabOrder = 1
|
||||
object Panel2: TPanel
|
||||
Left = 1
|
||||
Top = 73
|
||||
Top = 49
|
||||
Width = 551
|
||||
Height = 112
|
||||
Align = alTop
|
||||
|
|
@ -297,7 +302,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
Left = 301
|
||||
Top = 50
|
||||
Width = 86
|
||||
Height = 21
|
||||
Height = 25
|
||||
TabOrder = 2
|
||||
end
|
||||
object Repairer: TBtnEditC
|
||||
|
|
@ -305,7 +310,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
Left = 73
|
||||
Top = 79
|
||||
Width = 144
|
||||
Height = 21
|
||||
Height = 26
|
||||
TabOrder = 3
|
||||
OnBtnUpClick = RepairerBtnUpClick
|
||||
OnBtnDnClick = RepairerBtnDnClick
|
||||
|
|
@ -315,7 +320,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
Left = 73
|
||||
Top = 53
|
||||
Width = 144
|
||||
Height = 21
|
||||
Height = 25
|
||||
TabOrder = 4
|
||||
end
|
||||
object isDY: TComboBox
|
||||
|
|
@ -349,13 +354,14 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 1
|
||||
Top = 185
|
||||
Top = 161
|
||||
Width = 551
|
||||
Height = 274
|
||||
Height = 323
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
object TV2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_2
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost]
|
||||
|
|
@ -372,6 +378,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
object TV2Column1: TcxGridDBColumn
|
||||
Caption = #26426#21488#21495
|
||||
DataBinding.FieldName = 'Loom'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
GroupIndex = 0
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -381,6 +388,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
object TV2Column2: TcxGridDBColumn
|
||||
Caption = #26426#20462
|
||||
DataBinding.FieldName = 'Repairer'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 69
|
||||
|
|
@ -388,6 +396,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
object TV2Column3: TcxGridDBColumn
|
||||
Caption = #23433#25490#21305#25968
|
||||
DataBinding.FieldName = 'APPS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
|
|
@ -395,6 +404,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
object TV2Column4: TcxGridDBColumn
|
||||
Caption = #25171#21360#21305#25968
|
||||
DataBinding.FieldName = 'DYPS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 73
|
||||
|
|
@ -402,6 +412,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
object TV2Column5: TcxGridDBColumn
|
||||
Caption = #23436#25104#21305#25968
|
||||
DataBinding.FieldName = 'JYPS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 75
|
||||
|
|
@ -409,6 +420,8 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
object TV2Column6: TcxGridDBColumn
|
||||
Caption = #23433#25490#26102#38388
|
||||
DataBinding.FieldName = 'APDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -416,6 +429,7 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
object TV2Column7: TcxGridDBColumn
|
||||
Caption = #25209#21495
|
||||
DataBinding.FieldName = 'BatchNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 85
|
||||
|
|
@ -429,15 +443,15 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
Left = 1
|
||||
Top = 1
|
||||
Width = 551
|
||||
Height = 72
|
||||
Height = 48
|
||||
Align = alTop
|
||||
TabOrder = 2
|
||||
object Label1: TLabel
|
||||
Left = 186
|
||||
Top = 8
|
||||
Width = 54
|
||||
Left = 253
|
||||
Top = 16
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #32534' '#21495
|
||||
Caption = #32534#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
|
|
@ -446,11 +460,11 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
ParentFont = False
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 341
|
||||
Top = 7
|
||||
Width = 61
|
||||
Left = 408
|
||||
Top = 16
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #21697' '#21517
|
||||
Caption = #21697#21517
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
|
|
@ -460,10 +474,10 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
end
|
||||
object Label13: TLabel
|
||||
Left = 26
|
||||
Top = 8
|
||||
Width = 52
|
||||
Top = 16
|
||||
Width = 39
|
||||
Height = 12
|
||||
Caption = #29983#20135#21333#21495
|
||||
Caption = #36724#21345#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
|
|
@ -472,8 +486,8 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
ParentFont = False
|
||||
end
|
||||
object Label21: TLabel
|
||||
Left = 178
|
||||
Top = 44
|
||||
Left = 186
|
||||
Top = 108
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #26410#23433#25490#21305#25968
|
||||
|
|
@ -483,10 +497,11 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 17
|
||||
Top = 45
|
||||
Left = 25
|
||||
Top = 109
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #24050#23433#25490#21305#25968
|
||||
|
|
@ -496,23 +511,24 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object edtName: TEdit
|
||||
Tag = 2
|
||||
Left = 408
|
||||
Top = 2
|
||||
Width = 90
|
||||
Height = 21
|
||||
Left = 441
|
||||
Top = 10
|
||||
Width = 105
|
||||
Height = 25
|
||||
ReadOnly = True
|
||||
TabOrder = 0
|
||||
OnChange = MCNOChange
|
||||
end
|
||||
object edtCode: TEdit
|
||||
Tag = 2
|
||||
Left = 245
|
||||
Top = 3
|
||||
Width = 90
|
||||
Height = 21
|
||||
Left = 285
|
||||
Top = 10
|
||||
Width = 117
|
||||
Height = 25
|
||||
ReadOnly = True
|
||||
TabOrder = 1
|
||||
OnChange = MCNOChange
|
||||
|
|
@ -520,31 +536,39 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
object edtConNo: TEdit
|
||||
Tag = 2
|
||||
Left = 84
|
||||
Top = 3
|
||||
Width = 90
|
||||
Height = 21
|
||||
Top = 11
|
||||
Width = 157
|
||||
Height = 25
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #24494#36719#38597#40657
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
ReadOnly = True
|
||||
TabOrder = 2
|
||||
OnChange = MCNOChange
|
||||
end
|
||||
object edtWAPPS: TEdit
|
||||
Tag = 2
|
||||
Left = 245
|
||||
Top = 41
|
||||
Left = 253
|
||||
Top = 105
|
||||
Width = 90
|
||||
Height = 21
|
||||
Height = 25
|
||||
ReadOnly = True
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
OnChange = MCNOChange
|
||||
end
|
||||
object edtYAPPS: TEdit
|
||||
Tag = 2
|
||||
Left = 82
|
||||
Top = 40
|
||||
Left = 90
|
||||
Top = 104
|
||||
Width = 90
|
||||
Height = 21
|
||||
Height = 25
|
||||
ReadOnly = True
|
||||
TabOrder = 4
|
||||
Visible = False
|
||||
OnChange = MCNOChange
|
||||
end
|
||||
end
|
||||
|
|
@ -563,6 +587,12 @@ inherited frmTatCardInPut: TfrmTatCardInPut
|
|||
Left = 272
|
||||
Top = 416
|
||||
end
|
||||
inherited cxImageList_bar: TcxImageList
|
||||
FormatVersion = 1
|
||||
Left = 336
|
||||
Top = 289
|
||||
DesignInfo = 18940240
|
||||
end
|
||||
object GPM_1: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
|
|
|
|||
|
|
@ -12,7 +12,8 @@ uses
|
|||
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox,
|
||||
BtnEdit, cxPC, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||
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
|
||||
TfrmTatCardInPut = class(TfrmBaseInput)
|
||||
|
|
@ -112,7 +113,7 @@ var
|
|||
implementation
|
||||
|
||||
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}
|
||||
|
||||
procedure TfrmTatCardInPut.InitOrd();
|
||||
|
|
@ -122,19 +123,19 @@ begin
|
|||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
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(' ,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(' inner join Tat_Plan_Sub B on A.MainId=B.MainId ');
|
||||
sql.Add(' where B.SubId=' + QuotedStr(FSubId));
|
||||
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(' ,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_WB_Card A');
|
||||
// sql.Add(' inner join Tat_Plan_Sub B on A.MainId=B.MainId ');
|
||||
sql.Add(' where A.WBCID=' + QuotedStr(FWBCID));
|
||||
Open;
|
||||
end;
|
||||
edtConNo.Text := ADOQueryTemp.FieldByName('OrderNo').AsString;
|
||||
edtCode.Text := ADOQueryTemp.FieldByName('C_Code').AsString;
|
||||
edtName.Text := ADOQueryTemp.FieldByName('C_Name').AsString;
|
||||
edtYAPPS.Text := ADOQueryTemp.FieldByName('YAPPS').AsString;
|
||||
edtWAPPS.Text := ADOQueryTemp.FieldByName('WAPPS').AsString;
|
||||
edtConNo.Text := ADOQueryTemp.FieldByName('WBCID').AsString;
|
||||
edtCode.Text := ADOQueryTemp.FieldByName('WB_Clothcode').AsString;
|
||||
edtName.Text := ADOQueryTemp.FieldByName('WB_ClothName').AsString;
|
||||
// edtYAPPS.Text := ADOQueryTemp.FieldByName('YAPPS').AsString;
|
||||
// edtWAPPS.Text := ADOQueryTemp.FieldByName('WAPPS').AsString;
|
||||
end;
|
||||
|
||||
procedure TfrmTatCardInPut.RepairerBtnDnClick(Sender: TObject);
|
||||
|
|
@ -173,9 +174,9 @@ begin
|
|||
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(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(' 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');
|
||||
// ShowMessage(sql.text);
|
||||
Open;
|
||||
|
|
@ -200,7 +201,8 @@ begin
|
|||
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 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,'''') ');
|
||||
// ShowMessage(sql.text);
|
||||
Open;
|
||||
|
|
@ -299,10 +301,10 @@ begin
|
|||
// Open;
|
||||
// end;
|
||||
///////////////判断是否超出限制//////////////////
|
||||
if FStrs.Count * StrToIntdef(edtCardQty.Text, 0) > StrToIntdef(edtWAPPS.text, 0) then
|
||||
begin
|
||||
raise Exception.Create('°²ÅÅÊýÁ¿¹ý¶à!');
|
||||
end;
|
||||
// if FStrs.Count * StrToIntdef(edtCardQty.Text, 0) > StrToIntdef(edtWAPPS.text, 0) then
|
||||
// begin
|
||||
// raise Exception.Create('°²ÅÅÊýÁ¿¹ý¶à!');
|
||||
// end;
|
||||
///////////////判断是否超出限制//////////////////
|
||||
|
||||
|
||||
|
|
@ -340,7 +342,7 @@ begin
|
|||
sql.Add(',');
|
||||
sql.Add(' (' + Quotedstr(Trim(FMainId)));
|
||||
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(maxPCId));
|
||||
sql.Add(',' + Quotedstr(IntToStr(MPCNo)));
|
||||
|
|
@ -438,23 +440,76 @@ begin
|
|||
end;
|
||||
|
||||
procedure TfrmTatCardInPut.ToolButton1Click(Sender: TObject);
|
||||
var
|
||||
KMainId: string;
|
||||
KWBCID: string;
|
||||
begin
|
||||
try
|
||||
frmTatPlanSel := TfrmTatPlanSel.Create(Application);
|
||||
with frmTatPlanSel do
|
||||
frmTatPlan_ZOUKA_Sel := TfrmTatPlan_ZOUKA_Sel.Create(Application);
|
||||
with frmTatPlan_ZOUKA_Sel do
|
||||
begin
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
self.FMainId := Trim(frmTatPlanSel.CDS_1.fieldbyname('MainId').AsString);
|
||||
self.FSubId := Trim(frmTatPlanSel.CDS_1.fieldbyname('SubId').AsString);
|
||||
self.FMainId := Trim(frmTatPlan_ZOUKA_Sel.CDS_1.fieldbyname('MainId').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;
|
||||
finally
|
||||
frmTatPlanSel.Free;
|
||||
frmTatPlan_ZOUKA_Sel.Free;
|
||||
end;
|
||||
InitOrd();
|
||||
InitGrid1();
|
||||
InitGrid2();
|
||||
|
||||
begin
|
||||
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;
|
||||
|
||||
|
|
|
|||
479
E01梭织生产计划/U_TatDCGCLCXList.dfm
Normal file
479
E01梭织生产计划/U_TatDCGCLCXList.dfm
Normal 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
349
E01梭织生产计划/U_TatDCGCLCXList.pas
Normal 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.
|
||||
|
||||
|
|
@ -6,7 +6,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
ExplicitWidth = 1489
|
||||
ExplicitHeight = 621
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
TextHeight = 17
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
|
|
@ -29,7 +29,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
TabOrder = 4
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -105,54 +105,56 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
BevelOuter = bvLowered
|
||||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
TabOrder = 5
|
||||
ExplicitLeft = -32
|
||||
ExplicitTop = 32
|
||||
object Label3: TLabel
|
||||
Left = 448
|
||||
Left = 444
|
||||
Top = 13
|
||||
Width = 24
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #21345#21495
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 24
|
||||
Top = 13
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #21047#21345#26085#26399
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 260
|
||||
Left = 235
|
||||
Top = 13
|
||||
Width = 12
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #33267
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 288
|
||||
Top = 128
|
||||
Width = 24
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #23458#25143
|
||||
end
|
||||
object Label17: TLabel
|
||||
Left = 440
|
||||
Top = 128
|
||||
Width = 36
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #19994#21153#21592
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 604
|
||||
Top = 124
|
||||
Width = 36
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #33457#22411#21495
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 624
|
||||
Left = 615
|
||||
Top = 13
|
||||
Width = 24
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #24037#24207
|
||||
end
|
||||
object pcid: TEdit
|
||||
|
|
@ -160,7 +162,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
Left = 478
|
||||
Top = 9
|
||||
Width = 80
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 0
|
||||
OnChange = pcidChange
|
||||
end
|
||||
|
|
@ -187,7 +189,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
Left = 314
|
||||
Top = 124
|
||||
Width = 100
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 3
|
||||
OnChange = pcidChange
|
||||
end
|
||||
|
|
@ -196,7 +198,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
Left = 478
|
||||
Top = 124
|
||||
Width = 100
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 4
|
||||
OnChange = pcidChange
|
||||
end
|
||||
|
|
@ -205,7 +207,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
Left = 642
|
||||
Top = 120
|
||||
Width = 80
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 5
|
||||
OnChange = pcidChange
|
||||
end
|
||||
|
|
@ -231,15 +233,31 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
Kind = dtkTime
|
||||
TabOrder = 7
|
||||
end
|
||||
object GlideName: TEdit
|
||||
object GlideName1: TEdit
|
||||
Tag = 2
|
||||
Left = 654
|
||||
Top = 9
|
||||
Left = 1366
|
||||
Top = 12
|
||||
Width = 80
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 8
|
||||
Visible = False
|
||||
OnChange = pcidChange
|
||||
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
|
||||
object cxGrid2: TcxGrid [2]
|
||||
Left = 0
|
||||
|
|
@ -249,9 +267,9 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 2
|
||||
ExplicitTop = 87
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
|
|
@ -283,6 +301,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column14: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'ssel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -291,6 +310,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column12: TcxGridDBColumn
|
||||
Caption = #26085#26399
|
||||
DataBinding.FieldName = 'GOTime'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 94
|
||||
|
|
@ -298,6 +318,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column5: TcxGridDBColumn
|
||||
Caption = #21345#21495
|
||||
DataBinding.FieldName = 'pcid'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
|
|
@ -305,6 +326,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column6: TcxGridDBColumn
|
||||
Caption = #24037#24207
|
||||
DataBinding.FieldName = 'GlideName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 82
|
||||
|
|
@ -312,6 +334,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column8: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 81
|
||||
|
|
@ -319,6 +342,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column15: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
|
|
@ -326,6 +350,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column10: TcxGridDBColumn
|
||||
Caption = #25805#20316#21592
|
||||
DataBinding.FieldName = 'Filler'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
|
|
@ -333,6 +358,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #25805#20316#26102#38388
|
||||
DataBinding.FieldName = 'FillTime'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 106
|
||||
|
|
@ -340,12 +366,14 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #26426#21488#21495
|
||||
DataBinding.FieldName = 'MachineNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 84
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #32463#35268#26684
|
||||
DataBinding.FieldName = 'WB_Spec'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -353,6 +381,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #22836#32441
|
||||
DataBinding.FieldName = 'WB_YarnQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -360,6 +389,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #32433#21517
|
||||
DataBinding.FieldName = 'WB_YarnName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -367,6 +397,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column7: TcxGridDBColumn
|
||||
Caption = #32463#20135#21697#21517
|
||||
DataBinding.FieldName = 'WB_ClothName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -374,6 +405,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column9: TcxGridDBColumn
|
||||
Caption = #32467#26463#20154
|
||||
DataBinding.FieldName = 'Ender'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 69
|
||||
|
|
@ -381,6 +413,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column13: TcxGridDBColumn
|
||||
Caption = #32467#26463#26102#38388
|
||||
DataBinding.FieldName = 'EndTime'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 72
|
||||
|
|
@ -388,6 +421,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column16: TcxGridDBColumn
|
||||
Caption = #29992#26102'('#20998')'
|
||||
DataBinding.FieldName = 'JGSJ'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 69
|
||||
|
|
@ -395,6 +429,7 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
object Tv1Column17: TcxGridDBColumn
|
||||
Caption = #20135#37327#24037#36164
|
||||
DataBinding.FieldName = 'OutMoney'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 82
|
||||
end
|
||||
|
|
@ -420,6 +455,9 @@ inherited frmTatOutputList: TfrmTatOutputList
|
|||
TabOrder = 3
|
||||
Visible = False
|
||||
end
|
||||
inherited cxProgressBar2: TcxProgressBar
|
||||
ExplicitHeight = 25
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_TatPlan.ADOLink
|
||||
Left = 249
|
||||
|
|
|
|||
|
|
@ -12,7 +12,8 @@ uses
|
|||
cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common,
|
||||
RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
|
||||
U_BaseList, cxCheckBox, Vcl.Menus;
|
||||
U_BaseList, cxCheckBox, Vcl.Menus, cxContainer, dxScrollbarAnnotations,
|
||||
cxProgressBar;
|
||||
|
||||
type
|
||||
TfrmTatOutputList = class(TfrmBaseList)
|
||||
|
|
@ -67,12 +68,13 @@ type
|
|||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column16: TcxGridDBColumn;
|
||||
Label4: TLabel;
|
||||
GlideName: TEdit;
|
||||
GlideName1: TEdit;
|
||||
Tv1Column17: TcxGridDBColumn;
|
||||
ToolButton2: TToolButton;
|
||||
PopupMenu1: TPopupMenu;
|
||||
N1: TMenuItem;
|
||||
N2: TMenuItem;
|
||||
GlideName: TComboBox;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -8,7 +8,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
|
|||
ExplicitWidth = 1413
|
||||
ExplicitHeight = 676
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
TextHeight = 17
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
|
|
@ -31,7 +31,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
|
|||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
TabOrder = 4
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -90,7 +90,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
|
|||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
TabOrder = 5
|
||||
object Label3: TLabel
|
||||
Left = 32
|
||||
Top = 10
|
||||
|
|
@ -201,7 +201,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
|
|||
Left = 73
|
||||
Top = 6
|
||||
Width = 69
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 0
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
|
|
@ -209,7 +209,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
|
|||
Left = 1010
|
||||
Top = 41
|
||||
Width = 64
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 4
|
||||
Visible = False
|
||||
end
|
||||
|
|
@ -218,7 +218,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
|
|||
Left = 578
|
||||
Top = 6
|
||||
Width = 82
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 3
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
|
|
@ -227,7 +227,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
|
|||
Left = 337
|
||||
Top = 6
|
||||
Width = 68
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 1
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
|
|
@ -236,7 +236,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
|
|||
Left = 465
|
||||
Top = 6
|
||||
Width = 58
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 2
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
|
|
@ -245,7 +245,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
|
|||
Left = 208
|
||||
Top = 6
|
||||
Width = 69
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 5
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
|
|
@ -254,7 +254,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
|
|||
Left = 709
|
||||
Top = 6
|
||||
Width = 82
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 6
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
|
|
@ -263,7 +263,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
|
|||
Left = 852
|
||||
Top = 6
|
||||
Width = 82
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 7
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
|
|
@ -341,7 +341,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
|
|||
end
|
||||
object v3Column6: TcxGridDBColumn
|
||||
Caption = #20135#21697#32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.FieldName = 'WB_Clothcode'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
|
|
@ -350,7 +350,7 @@ inherited frmTatPlanCard: TfrmTatPlanCard
|
|||
end
|
||||
object v3Column2: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.FieldName = 'WB_ClothName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
|
|
@ -475,6 +475,19 @@ inherited frmTatPlanCard: TfrmTatPlanCard
|
|||
ClientRectRight = 1397
|
||||
ClientRectTop = 29
|
||||
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
|
||||
Connection = DataLink_TatPlan.ADOLink
|
||||
Left = 81
|
||||
|
|
|
|||
|
|
@ -12,7 +12,7 @@ uses
|
|||
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox,
|
||||
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
|
||||
U_BaseList, Vcl.Menus, dxScrollbarAnnotations;
|
||||
U_BaseList, Vcl.Menus, dxScrollbarAnnotations, cxContainer, cxProgressBar;
|
||||
|
||||
type
|
||||
TfrmTatPlanCard = class(TfrmBaseList)
|
||||
|
|
@ -122,19 +122,21 @@ begin
|
|||
begin
|
||||
Close;
|
||||
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(' 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(' inner join Tat_WB_Card B on A.WBCID=B.WBCID');
|
||||
// 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''');
|
||||
// ShowMessage(SQL.TEXT);
|
||||
case cxTabControl1.TabIndex of
|
||||
0:
|
||||
begin
|
||||
sql.Add(' and PRTCount=0');
|
||||
sql.Add(' and A.PRTCount=0');
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
sql.Add(' and PRTCount>0');
|
||||
sql.Add(' and A.PRTCount>0');
|
||||
end;
|
||||
2:
|
||||
begin
|
||||
|
|
@ -300,6 +302,7 @@ begin
|
|||
begin
|
||||
FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString);
|
||||
FSubId := Trim(Self.CDS_1.fieldbyname('SubId').AsString);
|
||||
FWBCID := Trim(Self.CDS_1.fieldbyname('WBCID').AsString);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
|
|
|
|||
|
|
@ -6,7 +6,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
ClientWidth = 1540
|
||||
Color = clWhite
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Position = poScreenCenter
|
||||
ExplicitWidth = 1556
|
||||
|
|
@ -26,14 +25,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
DisabledImages = DataLink_TatPlan.ImageList_new32
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TatPlan.ImageList_new32
|
||||
List = True
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBSave: TToolButton
|
||||
|
|
@ -78,11 +71,11 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
ParentFont = False
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 502
|
||||
Top = 58
|
||||
Width = 52
|
||||
Left = 21
|
||||
Top = 60
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #21512#21516#21495#65306
|
||||
Caption = #21512#21516#32534#21495#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -12
|
||||
|
|
@ -104,8 +97,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 243
|
||||
Top = 58
|
||||
Left = 488
|
||||
Top = 56
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216#65306
|
||||
|
|
@ -169,7 +162,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
ParentFont = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 17
|
||||
Left = 241
|
||||
Top = 128
|
||||
Width = 67
|
||||
Height = 12
|
||||
|
|
@ -182,8 +175,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
ParentFont = False
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 489
|
||||
Top = 128
|
||||
Left = 21
|
||||
Top = 127
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #19979#24067#21305#38271#65306
|
||||
|
|
@ -195,7 +188,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
ParentFont = False
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 242
|
||||
Left = 486
|
||||
Top = 128
|
||||
Width = 66
|
||||
Height = 12
|
||||
|
|
@ -221,7 +214,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
ParentFont = False
|
||||
end
|
||||
object Label26: TLabel
|
||||
Left = 21
|
||||
Left = 243
|
||||
Top = 58
|
||||
Width = 65
|
||||
Height = 12
|
||||
|
|
@ -260,8 +253,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
ParentFont = False
|
||||
end
|
||||
object Label43: TLabel
|
||||
Left = 706
|
||||
Top = 58
|
||||
Left = 874
|
||||
Top = 38
|
||||
Width = 66
|
||||
Height = 12
|
||||
Caption = #19994' '#21153' '#21592#65306
|
||||
|
|
@ -271,6 +264,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object lbl2: TLabel
|
||||
Left = 243
|
||||
|
|
@ -290,7 +284,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
Top = 8
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #35745#21010#21333#21495#65306
|
||||
Caption = #32455#36896#21333#21495#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
|
|
@ -558,8 +552,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
end
|
||||
object OrdPieceLen: TEdit
|
||||
Tag = 2
|
||||
Left = 551
|
||||
Top = 126
|
||||
Left = 83
|
||||
Top = 125
|
||||
Width = 120
|
||||
Height = 18
|
||||
TabOrder = 5
|
||||
|
|
@ -569,7 +563,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
end
|
||||
object OrdPiece: TEdit
|
||||
Tag = 2
|
||||
Left = 83
|
||||
Left = 307
|
||||
Top = 125
|
||||
Width = 120
|
||||
Height = 18
|
||||
|
|
@ -580,7 +574,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
end
|
||||
object OrdQty: TEdit
|
||||
Tag = 2
|
||||
Left = 307
|
||||
Left = 551
|
||||
Top = 125
|
||||
Width = 120
|
||||
Height = 18
|
||||
|
|
@ -591,8 +585,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
end
|
||||
object OrdSNote: TRichEdit
|
||||
Tag = 2
|
||||
Left = 90
|
||||
Top = 260
|
||||
Left = 83
|
||||
Top = 266
|
||||
Width = 813
|
||||
Height = 66
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -624,8 +618,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
end
|
||||
object C_Name: TEdit
|
||||
Tag = 2
|
||||
Left = 306
|
||||
Top = 55
|
||||
Left = 551
|
||||
Top = 56
|
||||
Width = 120
|
||||
Height = 18
|
||||
TabOrder = 1
|
||||
|
|
@ -643,8 +637,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
end
|
||||
object C_Code: TBtnEditC
|
||||
Tag = 2
|
||||
Left = 83
|
||||
Top = 54
|
||||
Left = 307
|
||||
Top = 56
|
||||
Width = 120
|
||||
Height = 20
|
||||
TabOrder = 10
|
||||
|
|
@ -652,19 +646,20 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
end
|
||||
object ConNo: TBtnEditC
|
||||
Tag = 2
|
||||
Left = 551
|
||||
Top = 54
|
||||
Left = 83
|
||||
Top = 56
|
||||
Width = 120
|
||||
Height = 20
|
||||
TabOrder = 11
|
||||
OnBtnUpClick = ConNoBtnUpClick
|
||||
end
|
||||
object Saleser: TEdit
|
||||
Left = 770
|
||||
Top = 55
|
||||
Left = 938
|
||||
Top = 35
|
||||
Width = 120
|
||||
Height = 18
|
||||
TabOrder = 12
|
||||
Visible = False
|
||||
OnKeyPress = ConNoKeyPress
|
||||
end
|
||||
object OurCoName: TBtnEditC
|
||||
|
|
@ -873,7 +868,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
end
|
||||
object chuanzong: TRichEdit
|
||||
Tag = 2
|
||||
Left = 958
|
||||
Left = 961
|
||||
Top = 5
|
||||
Width = 467
|
||||
Height = 316
|
||||
|
|
@ -2689,6 +2684,12 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
Left = 1272
|
||||
Top = 200
|
||||
end
|
||||
inherited cxImageList_bar: TcxImageList
|
||||
FormatVersion = 1
|
||||
Left = 352
|
||||
Top = 505
|
||||
DesignInfo = 33096032
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TatPlan.ADOLink
|
||||
LockType = ltReadOnly
|
||||
|
|
@ -2710,14 +2711,14 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
end
|
||||
object DS_1: TDataSource
|
||||
DataSet = CDS_1
|
||||
Left = 424
|
||||
Top = 264
|
||||
Left = 552
|
||||
Top = 512
|
||||
end
|
||||
object CDS_1: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 352
|
||||
Top = 288
|
||||
Left = 416
|
||||
Top = 512
|
||||
end
|
||||
object DS_2: TDataSource
|
||||
DataSet = CDS_2
|
||||
|
|
@ -2735,8 +2736,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
MarginBottom = 2500
|
||||
PageWidth = 21000
|
||||
PageHeight = 29700
|
||||
Left = 520
|
||||
Top = 337
|
||||
Left = 600
|
||||
Top = 521
|
||||
end
|
||||
object CDS_3: TClientDataSet
|
||||
Aggregates = <>
|
||||
|
|
@ -2750,8 +2751,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
|
|||
Top = 488
|
||||
end
|
||||
object PopupMenu1: TPopupMenu
|
||||
Left = 522
|
||||
Top = 522
|
||||
Left = 482
|
||||
Top = 514
|
||||
object N1: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N1Click
|
||||
|
|
|
|||
|
|
@ -13,7 +13,7 @@ uses
|
|||
cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxSkinsCore,
|
||||
dxSkinsDefaultPainters, dxDateRanges, U_BaseInput, System.ImageList,
|
||||
Vcl.ImgList, Vcl.Menus, Vcl.DBCtrls, cxGroupBox, cxCheckBox,
|
||||
dxScrollbarAnnotations;
|
||||
dxScrollbarAnnotations, cxImageList;
|
||||
|
||||
type
|
||||
TfrmTatPlanInPut = class(TfrmBaseInput)
|
||||
|
|
@ -319,7 +319,7 @@ var
|
|||
implementation
|
||||
|
||||
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}
|
||||
procedure TfrmTatPlanInPut.InitClothYarn(MC_Code: string);
|
||||
|
|
@ -1309,35 +1309,37 @@ end;
|
|||
|
||||
procedure TfrmTatPlanInPut.ConNoBtnUpClick(Sender: TObject);
|
||||
begin
|
||||
// try
|
||||
// frmContractListNXSel := TfrmContractListNXSel.Create(Application);
|
||||
// with frmContractListNXSel do
|
||||
// begin
|
||||
// if ShowModal = 1 then
|
||||
// begin
|
||||
// self.ConNo.Text := frmContractListNXSel.Order_Main.fieldbyname('ConNo').AsString; //合同号
|
||||
// self.Custname.Text := frmContractListNXSel.Order_Main.fieldbyname('CustomerNoName').AsString; //客户
|
||||
try
|
||||
frmSalesContractSel := TfrmSalesContractSel.Create(Application);
|
||||
with frmSalesContractSel do
|
||||
begin
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
self.ConNo.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.YWY.Text := frmContractListNXSel.Order_Main.fieldbyname('ConPerson1').AsString; //ϵ¥Ô±
|
||||
// self.KHConNo.Text := frmContractListNXSel.Order_Main.fieldbyname('KHConNo').AsString; //¿Í»§
|
||||
// self.ConMainId.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('MainId').AsString; //ConMainId
|
||||
// self.ConSubId.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('SubID').AsString; //ConSubId
|
||||
//
|
||||
// self.C_Code.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('PrtCode').AsString; //编号
|
||||
// self.C_Name.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('PrtCodeName').AsString; //品名
|
||||
self.C_Code.Text := frmSalesContractSel.CDS_1.fieldbyname('C_Code').AsString; //编号
|
||||
self.C_Name.Text := frmSalesContractSel.CDS_1.fieldbyname('C_Name').AsString; //品名
|
||||
// self.C_Spec.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('prtspec').AsString; //¹æ¸ñ
|
||||
// self.C_Color.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('PRTColor').AsString; //ÑÕÉ«
|
||||
// self.MF.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('prtmf').AsString; //门幅
|
||||
// self.KZ.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('prtkz').AsString; //克重
|
||||
// self.MF.Text := frmTatPlanSel.CDS_1.fieldbyname('prtmf').AsString; //门幅
|
||||
// self.KZ.Text := frmTatPlanSel.CDS_1.fieldbyname('prtkz').AsString; //克重
|
||||
//
|
||||
//
|
||||
// self.OrdPiece.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('pishu').AsString; //匹数
|
||||
// self.OrdPieceWeight.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('OrdTare').AsString; //匹重
|
||||
// self.OrdQty.Text := frmContractListNXSel.ClientDataSet2.fieldbyname('PRTOrderQty').AsString; //总重量
|
||||
// end;
|
||||
// end;
|
||||
// finally
|
||||
// frmContractListNXSel.Free;
|
||||
// end;
|
||||
//self.OrdPiece.Text := frmSalesContractSel.CDS_1.fieldbyname('OrdPiece').AsString; //匹数
|
||||
//self.OrdPieceLen.Text := frmSalesContractSel.CDS_1.fieldbyname('OrdPieceLen').AsString; //下布长度
|
||||
self.OrdQty.Text := frmSalesContractSel.CDS_1.fieldbyname('ConQty').AsString; //总数量
|
||||
//self.OrdQty.Text := frmContracfrmTatPlanSeltListNXSel.ClientDataSet2.fieldbyname('OrdQty').AsString;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmSalesContractSel.Free;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
|
|
|
|||
|
|
@ -3,23 +3,23 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
Top = 194
|
||||
Caption = #36710#38388#29983#20135#35745#21010#21333
|
||||
ClientHeight = 584
|
||||
ClientWidth = 1540
|
||||
ClientWidth = 1468
|
||||
Position = poScreenCenter
|
||||
ExplicitWidth = 1556
|
||||
ExplicitWidth = 1484
|
||||
ExplicitHeight = 623
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
TextHeight = 17
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1540
|
||||
Width = 1468
|
||||
Height = 38
|
||||
AutoSize = True
|
||||
ButtonHeight = 38
|
||||
ButtonWidth = 91
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Color = clWhite
|
||||
DisabledImages = DataLink_TatPlan.ImageList_new32
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
|
|
@ -31,7 +31,7 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
TabOrder = 4
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -164,14 +164,14 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
object Panel1: TPanel [1]
|
||||
Left = 0
|
||||
Top = 38
|
||||
Width = 1540
|
||||
Height = 67
|
||||
Width = 1468
|
||||
Height = 83
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
TabOrder = 5
|
||||
object Label1: TLabel
|
||||
Left = 18
|
||||
Top = 14
|
||||
|
|
@ -187,13 +187,13 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
end
|
||||
object Label2: TLabel
|
||||
Left = 53
|
||||
Top = 40
|
||||
Width = 18
|
||||
Height = 12
|
||||
Top = 47
|
||||
Width = 15
|
||||
Height = 17
|
||||
Caption = '---'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 184
|
||||
Left = 240
|
||||
Top = 14
|
||||
Width = 39
|
||||
Height = 12
|
||||
|
|
@ -206,8 +206,8 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 485
|
||||
Top = 40
|
||||
Left = 541
|
||||
Top = 47
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
|
|
@ -219,7 +219,7 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
ParentFont = False
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 485
|
||||
Left = 541
|
||||
Top = 14
|
||||
Width = 52
|
||||
Height = 12
|
||||
|
|
@ -232,7 +232,7 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 326
|
||||
Left = 382
|
||||
Top = 14
|
||||
Width = 26
|
||||
Height = 12
|
||||
|
|
@ -245,8 +245,8 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
ParentFont = False
|
||||
end
|
||||
object lbl1: TLabel
|
||||
Left = 326
|
||||
Top = 40
|
||||
Left = 382
|
||||
Top = 47
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #31867#22411
|
||||
|
|
@ -258,8 +258,8 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 184
|
||||
Top = 40
|
||||
Left = 240
|
||||
Top = 47
|
||||
Width = 39
|
||||
Height = 12
|
||||
Caption = #35745#21010#21333
|
||||
|
|
@ -273,7 +273,7 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
object BegDate: TDateTimePicker
|
||||
Left = 71
|
||||
Top = 10
|
||||
Width = 85
|
||||
Width = 120
|
||||
Height = 20
|
||||
Date = 44378.000000000000000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
|
|
@ -282,8 +282,8 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 71
|
||||
Top = 36
|
||||
Width = 86
|
||||
Top = 43
|
||||
Width = 120
|
||||
Height = 20
|
||||
Date = 40675.000000000000000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
|
|
@ -292,47 +292,47 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
end
|
||||
object ConNo: TEdit
|
||||
Tag = 2
|
||||
Left = 229
|
||||
Left = 285
|
||||
Top = 10
|
||||
Width = 81
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 2
|
||||
OnChange = ConNoChange
|
||||
OnKeyPress = conPress
|
||||
end
|
||||
object C_Name: TEdit
|
||||
Tag = 2
|
||||
Left = 539
|
||||
Top = 36
|
||||
Left = 595
|
||||
Top = 43
|
||||
Width = 83
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 3
|
||||
OnChange = ConNoChange
|
||||
OnKeyPress = C_NameKeyPress
|
||||
end
|
||||
object C_Code: TEdit
|
||||
Tag = 2
|
||||
Left = 539
|
||||
Left = 595
|
||||
Top = 10
|
||||
Width = 83
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 4
|
||||
OnChange = ConNoChange
|
||||
OnKeyPress = C_CodeKeyPress
|
||||
end
|
||||
object CustName: TEdit
|
||||
Tag = 2
|
||||
Left = 356
|
||||
Left = 412
|
||||
Top = 10
|
||||
Width = 110
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 5
|
||||
OnChange = ConNoChange
|
||||
OnKeyPress = CustNameKeyPress
|
||||
end
|
||||
object OrdType: TComboBox
|
||||
Left = 356
|
||||
Top = 35
|
||||
Left = 412
|
||||
Top = 42
|
||||
Width = 110
|
||||
Height = 22
|
||||
Style = csOwnerDrawFixed
|
||||
|
|
@ -341,10 +341,10 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
end
|
||||
object OrderNo: TEdit
|
||||
Tag = 2
|
||||
Left = 229
|
||||
Top = 36
|
||||
Left = 285
|
||||
Top = 43
|
||||
Width = 81
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 7
|
||||
OnChange = ConNoChange
|
||||
OnKeyPress = conPress
|
||||
|
|
@ -352,9 +352,9 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
end
|
||||
object cxGrid1: TcxGrid [2]
|
||||
Left = 0
|
||||
Top = 133
|
||||
Width = 1540
|
||||
Height = 451
|
||||
Top = 149
|
||||
Width = 1468
|
||||
Height = 435
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
|
|
@ -637,8 +637,8 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
end
|
||||
object cxTabControl1: TcxTabControl [3]
|
||||
Left = 0
|
||||
Top = 105
|
||||
Width = 1540
|
||||
Top = 121
|
||||
Width = 1468
|
||||
Height = 28
|
||||
Align = alTop
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -650,7 +650,7 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
TabOrder = 3
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 6
|
||||
Properties.TabIndex = 1
|
||||
Properties.TabIndex = 0
|
||||
Properties.Tabs.Strings = (
|
||||
#24453#24320#22987
|
||||
#24050#24320#22987
|
||||
|
|
@ -658,7 +658,7 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 30
|
||||
ClientRectRight = 1540
|
||||
ClientRectRight = 1468
|
||||
ClientRectTop = 30
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
|
|
|
|||
|
|
@ -11,7 +11,8 @@ uses
|
|||
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
|
||||
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters,
|
||||
dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, dxScrollbarAnnotations;
|
||||
dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, dxScrollbarAnnotations,
|
||||
cxContainer, cxProgressBar;
|
||||
|
||||
type
|
||||
TfrmTatPlanList = class(TfrmBaseList)
|
||||
|
|
@ -443,7 +444,7 @@ begin
|
|||
WSql := Trim(CDS_1.fieldbyname('MainId').AsString);
|
||||
|
||||
try
|
||||
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||
frmLabelPrint := TfrmLabelPrint.Create(self);
|
||||
with frmLabelPrint do
|
||||
begin
|
||||
FLMType := 'TatPlanPrint';
|
||||
|
|
@ -452,11 +453,11 @@ begin
|
|||
FFiltration3 := WSql;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
// Self.InitGrid();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmLabelPrint.Free;
|
||||
|
||||
end;
|
||||
|
||||
end;
|
||||
|
|
@ -475,6 +476,8 @@ begin
|
|||
begin
|
||||
// FMainId := Trim(Self.CDS_1.fieldbyname('MainId').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
|
||||
begin
|
||||
InitGrid();
|
||||
|
|
|
|||
4788
E01梭织生产计划/U_TatPlan_ZOUKA_Sel.dfm
Normal file
4788
E01梭织生产计划/U_TatPlan_ZOUKA_Sel.dfm
Normal file
File diff suppressed because it is too large
Load Diff
216
E01梭织生产计划/U_TatPlan_ZOUKA_Sel.pas
Normal file
216
E01梭织生产计划/U_TatPlan_ZOUKA_Sel.pas
Normal 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.
|
||||
|
||||
|
|
@ -3,21 +3,20 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
Top = 98
|
||||
Caption = #32463#36724#35745#21010
|
||||
ClientHeight = 605
|
||||
ClientWidth = 1546
|
||||
ClientWidth = 1467
|
||||
Color = clWhite
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Position = poMainFormCenter
|
||||
OnClose = FormClose
|
||||
ExplicitWidth = 1562
|
||||
ExplicitWidth = 1483
|
||||
ExplicitHeight = 644
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object Panel2: TPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1546
|
||||
Width = 1467
|
||||
Height = 605
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
|
|
@ -34,7 +33,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
TabOrder = 1
|
||||
object Label8: TLabel
|
||||
Left = 198
|
||||
Top = 121
|
||||
Top = 142
|
||||
Width = 54
|
||||
Height = 12
|
||||
Caption = #22836' '#32441
|
||||
|
|
@ -47,7 +46,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
end
|
||||
object Label9: TLabel
|
||||
Left = 20
|
||||
Top = 149
|
||||
Top = 195
|
||||
Width = 53
|
||||
Height = 12
|
||||
Caption = #25190' '#32463' '#24037
|
||||
|
|
@ -60,7 +59,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
end
|
||||
object Label11: TLabel
|
||||
Left = 19
|
||||
Top = 121
|
||||
Top = 169
|
||||
Width = 54
|
||||
Height = 12
|
||||
Caption = #36724' '#38271
|
||||
|
|
@ -73,7 +72,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
end
|
||||
object Label2: TLabel
|
||||
Left = 19
|
||||
Top = 318
|
||||
Top = 351
|
||||
Width = 54
|
||||
Height = 12
|
||||
Caption = #36724' '#25968
|
||||
|
|
@ -83,7 +82,6 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 33
|
||||
|
|
@ -101,7 +99,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
end
|
||||
object Label3: TLabel
|
||||
Left = 199
|
||||
Top = 95
|
||||
Top = 115
|
||||
Width = 53
|
||||
Height = 12
|
||||
Caption = #25972' '#32463' '#26426
|
||||
|
|
@ -128,7 +126,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
end
|
||||
object Label6: TLabel
|
||||
Left = 200
|
||||
Top = 149
|
||||
Top = 168
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #25972#32463#38271#24230
|
||||
|
|
@ -141,7 +139,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
end
|
||||
object Label4: TLabel
|
||||
Left = 19
|
||||
Top = 228
|
||||
Top = 261
|
||||
Width = 54
|
||||
Height = 12
|
||||
Caption = #22791' '#27880
|
||||
|
|
@ -153,8 +151,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 201
|
||||
Top = 16
|
||||
Left = 198
|
||||
Top = 37
|
||||
Width = 54
|
||||
Height = 12
|
||||
Caption = #26085' '#26399
|
||||
|
|
@ -167,7 +165,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
end
|
||||
object Label10: TLabel
|
||||
Left = 20
|
||||
Top = 95
|
||||
Top = 142
|
||||
Width = 53
|
||||
Height = 12
|
||||
Caption = #20379' '#24212' '#21830
|
||||
|
|
@ -180,7 +178,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
end
|
||||
object Label13: TLabel
|
||||
Left = 19
|
||||
Top = 42
|
||||
Top = 116
|
||||
Width = 54
|
||||
Height = 12
|
||||
Caption = #25209' '#21495
|
||||
|
|
@ -193,7 +191,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
end
|
||||
object Label14: TLabel
|
||||
Left = 21
|
||||
Top = 175
|
||||
Top = 37
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
|
|
@ -206,7 +204,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
end
|
||||
object Label16: TLabel
|
||||
Left = 198
|
||||
Top = 175
|
||||
Top = 195
|
||||
Width = 54
|
||||
Height = 12
|
||||
Caption = #38376' '#24133
|
||||
|
|
@ -218,8 +216,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
ParentFont = False
|
||||
end
|
||||
object Label17: TLabel
|
||||
Left = 21
|
||||
Top = 203
|
||||
Left = 18
|
||||
Top = 456
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #32433#32447#25209#27425
|
||||
|
|
@ -229,13 +227,14 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object Label18: TLabel
|
||||
Left = 21
|
||||
Top = 16
|
||||
Left = 200
|
||||
Top = 62
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #25972#32463#21333#21495
|
||||
Caption = #32455#36896#21333#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
|
|
@ -244,11 +243,11 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
ParentFont = False
|
||||
end
|
||||
object Label19: TLabel
|
||||
Left = 20
|
||||
Top = 68
|
||||
Width = 53
|
||||
Left = 21
|
||||
Top = 89
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #32463' '#32534' '#21495
|
||||
Caption = #20135#21697#32534#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
|
|
@ -257,8 +256,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
ParentFont = False
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 201
|
||||
Top = 42
|
||||
Left = 200
|
||||
Top = 88
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #19978#25490#39063#25968
|
||||
|
|
@ -269,10 +268,23 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
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
|
||||
Tag = 1
|
||||
Left = 258
|
||||
Top = 117
|
||||
Top = 142
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 0
|
||||
|
|
@ -280,19 +292,19 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
object edtCardQty: TEdit
|
||||
Tag = 1
|
||||
Left = 76
|
||||
Top = 314
|
||||
Top = 347
|
||||
Width = 282
|
||||
Height = 20
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
end
|
||||
object WB_Spec: TEdit
|
||||
Tag = 1
|
||||
Left = 149
|
||||
Top = 64
|
||||
Top = 427
|
||||
Width = 209
|
||||
Height = 20
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
end
|
||||
object WB_Type: TComboBox
|
||||
Tag = 1
|
||||
|
|
@ -326,7 +338,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
object WB_MachNo: TBtnEditC
|
||||
Tag = 1
|
||||
Left = 258
|
||||
Top = 91
|
||||
Top = 112
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = 'WB_MachNo/'#25972#32463#26426
|
||||
|
|
@ -337,8 +349,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
end
|
||||
object WB_Macher: TBtnEditC
|
||||
Tag = 1
|
||||
Left = 76
|
||||
Top = 145
|
||||
Left = 83
|
||||
Top = 191
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = 'WB_Macher/'#25190#32463#24037
|
||||
|
|
@ -350,7 +362,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
object WB_YarnLen: TEdit
|
||||
Tag = 1
|
||||
Left = 258
|
||||
Top = 145
|
||||
Top = 165
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 7
|
||||
|
|
@ -358,7 +370,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
object Note: TRichEdit
|
||||
Tag = 2
|
||||
Left = 76
|
||||
Top = 228
|
||||
Top = 261
|
||||
Width = 282
|
||||
Height = 66
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -372,7 +384,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
end
|
||||
object WBData: TDateTimePicker
|
||||
Left = 258
|
||||
Top = 12
|
||||
Top = 33
|
||||
Width = 100
|
||||
Height = 20
|
||||
Date = 44378.000000000000000000
|
||||
|
|
@ -381,8 +393,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
TabOrder = 9
|
||||
end
|
||||
object FtyCoName: TBtnEditC
|
||||
Left = 76
|
||||
Top = 91
|
||||
Left = 83
|
||||
Top = 138
|
||||
Width = 100
|
||||
Height = 20
|
||||
ReadOnly = True
|
||||
|
|
@ -392,27 +404,27 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
end
|
||||
object WB_BatchNo: TEdit
|
||||
Tag = 1
|
||||
Left = 76
|
||||
Top = 38
|
||||
Left = 83
|
||||
Top = 112
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 11
|
||||
end
|
||||
object WB_ClothName: TBtnEditC
|
||||
object WB_ClothNameL: TBtnEditC
|
||||
Tag = 1
|
||||
Left = 76
|
||||
Top = 171
|
||||
Left = 83
|
||||
Top = 33
|
||||
Width = 100
|
||||
Height = 20
|
||||
ReadOnly = True
|
||||
TabOrder = 12
|
||||
OnBtnUpClick = WB_ClothNameBtnUpClick
|
||||
OnBtnDnClick = WB_ClothNameBtnDnClick
|
||||
OnBtnUpClick = WB_ClothNameLBtnUpClick
|
||||
OnBtnDnClick = WB_ClothNameLBtnDnClick
|
||||
end
|
||||
object WB_YarnWidth: TEdit
|
||||
Tag = 1
|
||||
Left = 258
|
||||
Top = 171
|
||||
Top = 191
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 13
|
||||
|
|
@ -420,18 +432,19 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
object WB_YarnBatchNo: TBtnEditC
|
||||
Tag = 1
|
||||
Left = 76
|
||||
Top = 197
|
||||
Top = 453
|
||||
Width = 282
|
||||
Height = 20
|
||||
ReadOnly = True
|
||||
TabOrder = 14
|
||||
Visible = False
|
||||
OnBtnUpClick = WB_YarnBatchNoBtnUpClick
|
||||
OnBtnDnClick = WB_MachNoBtnDnClick
|
||||
end
|
||||
object WBCNO: TEdit
|
||||
object WBCNOL: TEdit
|
||||
Tag = 1
|
||||
Left = 76
|
||||
Top = 12
|
||||
Left = 258
|
||||
Top = 59
|
||||
Width = 100
|
||||
Height = 20
|
||||
ReadOnly = True
|
||||
|
|
@ -439,27 +452,28 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
end
|
||||
object WB_Code: TBtnEditC
|
||||
Tag = 1
|
||||
Left = 76
|
||||
Top = 64
|
||||
Width = 71
|
||||
Left = 43
|
||||
Top = 427
|
||||
Width = 100
|
||||
Height = 20
|
||||
ReadOnly = True
|
||||
TabOrder = 16
|
||||
Visible = False
|
||||
OnBtnUpClick = WB_CodeBtnUpClick
|
||||
OnBtnDnClick = WB_CodeBtnDnClick
|
||||
end
|
||||
object WB_YarnArrQty: TEdit
|
||||
Tag = 1
|
||||
Left = 259
|
||||
Top = 38
|
||||
Left = 258
|
||||
Top = 86
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 17
|
||||
end
|
||||
object WB_Len: TBtnEditC
|
||||
Tag = 1
|
||||
Left = 76
|
||||
Top = 117
|
||||
Left = 83
|
||||
Top = 165
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = 'WB_Len/'#36724#38271
|
||||
|
|
@ -468,25 +482,43 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
OnBtnUpClick = WB_MachNoBtnUpClick
|
||||
OnBtnDnClick = WB_MachNoBtnDnClick
|
||||
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
|
||||
object Panel4: TPanel
|
||||
Left = 373
|
||||
Top = 1
|
||||
Width = 1172
|
||||
Width = 1093
|
||||
Height = 603
|
||||
Align = alClient
|
||||
Caption = 'Panel4'
|
||||
TabOrder = 0
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 1
|
||||
Top = 39
|
||||
Width = 1170
|
||||
Height = 563
|
||||
Top = 114
|
||||
Width = 1091
|
||||
Height = 488
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 0
|
||||
object TV2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_Card
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
|
|
@ -534,112 +566,149 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
object cxGridDBColumn1: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 42
|
||||
end
|
||||
object TV2Column12: TcxGridDBColumn
|
||||
Caption = #35746#21333#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
end
|
||||
object TV2Column8: TcxGridDBColumn
|
||||
Caption = #25972#32463#21333#21495
|
||||
Caption = #32455#36896#21333#21495
|
||||
DataBinding.FieldName = 'WBCNO'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object V2Column4: TcxGridDBColumn
|
||||
Caption = #36724#21345#21495
|
||||
DataBinding.FieldName = 'WBCID'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
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
|
||||
Width = 100
|
||||
end
|
||||
object TV2Column6: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'WB_ClothName'
|
||||
DataBinding.IsNullValueType = True
|
||||
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
|
||||
object TV2Column3: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'Note'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 146
|
||||
Width = 100
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
|
|
@ -650,7 +719,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
Tag = 1
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1170
|
||||
Width = 1091
|
||||
Height = 38
|
||||
AutoSize = True
|
||||
ButtonHeight = 38
|
||||
|
|
@ -669,16 +738,40 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
object TBSave: TToolButton
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 1
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBSave: TToolButton
|
||||
Left = 71
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #24320#21345
|
||||
ImageIndex = 16
|
||||
OnClick = TBSaveClick
|
||||
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
|
||||
Left = 71
|
||||
Left = 304
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
|
|
@ -686,7 +779,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
OnClick = ToolButton1Click
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 142
|
||||
Left = 375
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#38500
|
||||
|
|
@ -694,15 +787,15 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
OnClick = ToolButton8Click
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 213
|
||||
Left = 446
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25442#21333
|
||||
ImageIndex = 1
|
||||
OnClick = ToolButton3Click
|
||||
Visible = False
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 284
|
||||
Left = 517
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
|
|
@ -710,7 +803,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
OnClick = ToolButton2Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 379
|
||||
Left = 612
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
|
|
@ -718,6 +811,182 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
OnClick = TBCloseClick
|
||||
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
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
|
|
@ -734,6 +1003,12 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
Left = 680
|
||||
Top = 416
|
||||
end
|
||||
inherited cxImageList_bar: TcxImageList
|
||||
FormatVersion = 1
|
||||
Left = 832
|
||||
Top = 481
|
||||
DesignInfo = 31523648
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TatPlan.ADOLink
|
||||
Parameters = <>
|
||||
|
|
@ -789,14 +1064,14 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
end
|
||||
object DS_Card: TDataSource
|
||||
DataSet = CDS_Card
|
||||
Left = 484
|
||||
Top = 396
|
||||
Left = 468
|
||||
Top = 276
|
||||
end
|
||||
object CDS_Card: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 396
|
||||
Top = 396
|
||||
Top = 260
|
||||
end
|
||||
object ADOQueryPrint: TADOQuery
|
||||
Connection = DataLink_TatPlan.ADOLink
|
||||
|
|
|
|||
|
|
@ -12,7 +12,7 @@ uses
|
|||
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;
|
||||
System.ImageList, Vcl.ImgList, dxScrollbarAnnotations, cxImageList;
|
||||
|
||||
type
|
||||
TfrmTatWBCardInPut = class(TfrmBaseInput)
|
||||
|
|
@ -77,14 +77,14 @@ type
|
|||
Label13: TLabel;
|
||||
WB_BatchNo: TEdit;
|
||||
Label14: TLabel;
|
||||
WB_ClothName: TBtnEditC;
|
||||
WB_ClothNameL: TBtnEditC;
|
||||
Label16: TLabel;
|
||||
WB_YarnWidth: TEdit;
|
||||
TV2Column6: TcxGridDBColumn;
|
||||
Label17: TLabel;
|
||||
WB_YarnBatchNo: TBtnEditC;
|
||||
Label18: TLabel;
|
||||
WBCNO: TEdit;
|
||||
WBCNOL: TEdit;
|
||||
TV2Column8: TcxGridDBColumn;
|
||||
TV2Column9: TcxGridDBColumn;
|
||||
Label19: TLabel;
|
||||
|
|
@ -95,8 +95,33 @@ type
|
|||
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;
|
||||
ToolButton4: TToolButton;
|
||||
ToolButton5: TToolButton;
|
||||
TV2Column12: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormShow(Sender: TObject);
|
||||
// procedure FormShow(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure N3Click(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
|
|
@ -107,13 +132,18 @@ type
|
|||
procedure ToolButton8Click(Sender: TObject);
|
||||
procedure FtyCoNameBtnUpClick(Sender: TObject);
|
||||
procedure FtyCoNameBtnDnClick(Sender: TObject);
|
||||
procedure WB_ClothNameBtnUpClick(Sender: TObject);
|
||||
procedure WB_ClothNameBtnDnClick(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 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 WB_YarnBatchNo1Change(Sender: TObject);
|
||||
private
|
||||
function TestData(): Boolean;
|
||||
procedure PrtDate(MWBCID: string);
|
||||
|
|
@ -122,6 +152,8 @@ type
|
|||
{ Private declarations }
|
||||
public
|
||||
FWBCNO: string;
|
||||
WBOrderNo: string;
|
||||
WBC_Name: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
|
|
@ -132,7 +164,8 @@ implementation
|
|||
|
||||
uses
|
||||
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}
|
||||
|
||||
|
|
@ -146,16 +179,16 @@ begin
|
|||
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 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 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';
|
||||
|
|
@ -170,17 +203,56 @@ begin
|
|||
end;
|
||||
|
||||
procedure TfrmTatWBCardInPut.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 ');
|
||||
sql.Add('where isnull(Status,''0'')<>''-1'' and WBCNO=' + quotedstr(Trim(FWBCNO)));
|
||||
Open;
|
||||
SQL.Clear;
|
||||
SQL.ADD('select A.*');
|
||||
SQL.ADD('from Tat_WB_Card A');
|
||||
|
||||
// 基础固定条件
|
||||
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;
|
||||
|
||||
// 添加完整条件
|
||||
SQL.Add(WhereStr);
|
||||
Open;
|
||||
|
||||
// 原有赋值逻辑
|
||||
WBData.Date := Date;
|
||||
BegDate.DateTime := Date - 6;
|
||||
enddate.DateTime := Date;
|
||||
end;
|
||||
|
||||
SCreateCDS(ADOQueryTemp, CDS_Card);
|
||||
SInitCDSData(ADOQueryTemp, CDS_Card);
|
||||
end;
|
||||
|
|
@ -256,19 +328,25 @@ begin
|
|||
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 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;
|
||||
// inherited;
|
||||
InitCard();
|
||||
end;
|
||||
|
||||
|
|
@ -311,6 +389,11 @@ begin
|
|||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmTatWBCardInPut.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
InitCard();
|
||||
end;
|
||||
|
||||
procedure TfrmTatWBCardInPut.TBSaveClick(Sender: TObject);
|
||||
var
|
||||
MWBCID: string;
|
||||
|
|
@ -325,9 +408,10 @@ begin
|
|||
begin
|
||||
Close;
|
||||
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(' ,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
|
||||
begin
|
||||
|
|
@ -338,12 +422,13 @@ begin
|
|||
if i > 1 then
|
||||
sql.Add(',');
|
||||
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_Clothcode.Text)));
|
||||
sql.Add(',' + Quotedstr(Trim(WB_Code.Text)));
|
||||
sql.Add(',' + Quotedstr(Trim(WB_Spec.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(',' + (Trim(WB_YarnLen.Text)));
|
||||
sql.Add(',' + Quotedstr(Trim(WB_Macher.Text)));
|
||||
|
|
@ -351,7 +436,7 @@ begin
|
|||
sql.Add(',' + Quotedstr(Trim(FtyCoName.TxtCode)));
|
||||
sql.Add(',' + Quotedstr(Trim(FtyCoName.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_MachNo.Text)));
|
||||
sql.Add(',' + (Trim(WB_ClothPiece.Text)));
|
||||
|
|
@ -359,8 +444,9 @@ begin
|
|||
sql.Add(',' + Quotedstr(Trim(Note.Text)));
|
||||
sql.Add(',' + Quotedstr(Trim(DCode)));
|
||||
sql.Add(',' + Quotedstr(Trim(DName)));
|
||||
sql.Add(',' + Quotedstr(Trim(ConNoL.Text)));
|
||||
sql.Add(' )');
|
||||
|
||||
//ShowMessage(SQL.TEXT);
|
||||
end;
|
||||
|
||||
ExecSQL;
|
||||
|
|
@ -433,6 +519,7 @@ begin
|
|||
sql.Add(', PRTDate=getdate()');
|
||||
sql.Add(' where WBCID in (' + WSql + ')');
|
||||
ExecSQL;
|
||||
//ShowMessage(SQL.TEXT);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -447,17 +534,58 @@ begin
|
|||
WriteCxGrid(Trim(self.Caption) + 'Tv2', Tv2, '坯布轴卡');
|
||||
end;
|
||||
|
||||
procedure TfrmTatWBCardInPut.ToolButton3Click(Sender: TObject);
|
||||
procedure TfrmTatWBCardInPut.ToolButton4Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
if GetLSNo(ADOQueryTemp, FWBCNO, 'QJ', 'Tat_WB_Card', 3, 1) = False then
|
||||
try
|
||||
frmSalesContractSel := TfrmSalesContractSel.Create(Application);
|
||||
with frmSalesContractSel do
|
||||
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;
|
||||
WBCNO.Text := FWBCNO;
|
||||
InitCard();
|
||||
end;
|
||||
finally
|
||||
frmSalesContractSel.Free;
|
||||
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);
|
||||
var
|
||||
WSql: string;
|
||||
|
|
@ -522,13 +650,13 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatWBCardInPut.WB_ClothNameBtnDnClick(Sender: TObject);
|
||||
procedure TfrmTatWBCardInPut.WB_ClothNameLBtnDnClick(Sender: TObject);
|
||||
begin
|
||||
Self.WB_ClothName.Text := '';
|
||||
Self.WB_YarnWidth.Text := '';
|
||||
end;
|
||||
|
||||
procedure TfrmTatWBCardInPut.WB_ClothNameBtnUpClick(Sender: TObject);
|
||||
procedure TfrmTatWBCardInPut.WB_ClothNameLBtnUpClick(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
frmTatClothInfoSel := TfrmTatClothInfoSel.Create(Application);
|
||||
|
|
@ -536,8 +664,12 @@ begin
|
|||
begin
|
||||
if ShowModal = 1 then
|
||||
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_Clothcode.Text := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').AsString;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -547,34 +679,34 @@ end;
|
|||
|
||||
procedure TfrmTatWBCardInPut.WB_CodeBtnDnClick(Sender: TObject);
|
||||
begin
|
||||
TBtnEditC(Sender).Text := '';
|
||||
TBtnEditC(Sender).TxtCode := '';
|
||||
// TBtnEditC(Sender).Text := '';
|
||||
// TBtnEditC(Sender).TxtCode := '';
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatWBCardInPut.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;
|
||||
// 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 TfrmTatWBCardInPut.WB_MachNoBtnDnClick(Sender: TObject);
|
||||
begin
|
||||
TBtnEditC(Sender).Text := '';
|
||||
TBtnEditC(Sender).TxtCode := '';
|
||||
// TBtnEditC(Sender).Text := '';
|
||||
// TBtnEditC(Sender).TxtCode := '';
|
||||
end;
|
||||
|
||||
procedure TfrmTatWBCardInPut.WB_MachNoBtnUpClick(Sender: TObject);
|
||||
|
|
@ -603,19 +735,19 @@ end;
|
|||
|
||||
procedure TfrmTatWBCardInPut.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;
|
||||
// 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.
|
||||
|
|
|
|||
1064
E01梭织生产计划/U_TatWBCardInPutXIUGAI.dfm
Normal file
1064
E01梭织生产计划/U_TatWBCardInPutXIUGAI.dfm
Normal file
File diff suppressed because it is too large
Load Diff
712
E01梭织生产计划/U_TatWBCardInPutXIUGAI.pas
Normal file
712
E01梭织生产计划/U_TatWBCardInPutXIUGAI.pas
Normal 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.
|
||||
|
||||
|
|
@ -8,7 +8,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
|
|||
ExplicitWidth = 1413
|
||||
ExplicitHeight = 676
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
TextHeight = 17
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
|
|
@ -31,7 +31,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
|
|||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
TabOrder = 4
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -101,15 +101,15 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
|
|||
Left = 0
|
||||
Top = 38
|
||||
Width = 1397
|
||||
Height = 61
|
||||
Height = 75
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
TabOrder = 5
|
||||
object Label3: TLabel
|
||||
Left = 198
|
||||
Left = 305
|
||||
Top = 11
|
||||
Width = 39
|
||||
Height = 12
|
||||
|
|
@ -122,8 +122,8 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
|
|||
ParentFont = False
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 185
|
||||
Top = 37
|
||||
Left = 292
|
||||
Top = 45
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #25972#32463#26426#21495
|
||||
|
|
@ -135,7 +135,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
|
|||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 530
|
||||
Left = 637
|
||||
Top = 11
|
||||
Width = 52
|
||||
Height = 12
|
||||
|
|
@ -148,7 +148,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
|
|||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 356
|
||||
Left = 463
|
||||
Top = 11
|
||||
Width = 52
|
||||
Height = 12
|
||||
|
|
@ -161,8 +161,8 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
|
|||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 382
|
||||
Top = 37
|
||||
Left = 489
|
||||
Top = 45
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #25209#21495
|
||||
|
|
@ -174,8 +174,8 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
|
|||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 543
|
||||
Top = 37
|
||||
Left = 650
|
||||
Top = 45
|
||||
Width = 39
|
||||
Height = 12
|
||||
Caption = #36724#21345#21495
|
||||
|
|
@ -190,83 +190,83 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
|
|||
Left = 28
|
||||
Top = 11
|
||||
Width = 48
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #26597#35810#26102#38388
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 64
|
||||
Top = 37
|
||||
Top = 45
|
||||
Width = 12
|
||||
Height = 12
|
||||
Height = 17
|
||||
Caption = #33267
|
||||
end
|
||||
object ConNos: TEdit
|
||||
Tag = 2
|
||||
Left = 241
|
||||
Left = 348
|
||||
Top = 7
|
||||
Width = 100
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 0
|
||||
OnChange = ConNosChange
|
||||
end
|
||||
object WB_MachNo: TEdit
|
||||
Tag = 1
|
||||
Left = 241
|
||||
Top = 33
|
||||
Left = 348
|
||||
Top = 41
|
||||
Width = 100
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 2
|
||||
OnChange = ConNosChange
|
||||
end
|
||||
object WB_ClothName: TEdit
|
||||
Tag = 2
|
||||
Left = 584
|
||||
Left = 691
|
||||
Top = 7
|
||||
Width = 100
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 1
|
||||
OnChange = ConNosChange
|
||||
end
|
||||
object OrderNos: TEdit
|
||||
Tag = 2
|
||||
Left = 414
|
||||
Left = 521
|
||||
Top = 7
|
||||
Width = 100
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 3
|
||||
OnChange = ConNosChange
|
||||
end
|
||||
object BatchNo: TEdit
|
||||
Tag = 1
|
||||
Left = 414
|
||||
Top = 33
|
||||
Left = 521
|
||||
Top = 41
|
||||
Width = 100
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 4
|
||||
OnChange = ConNosChange
|
||||
end
|
||||
object WBCID: TEdit
|
||||
Tag = 1
|
||||
Left = 584
|
||||
Top = 33
|
||||
Left = 691
|
||||
Top = 41
|
||||
Width = 100
|
||||
Height = 20
|
||||
Height = 25
|
||||
TabOrder = 5
|
||||
OnChange = ConNosChange
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 77
|
||||
Left = 91
|
||||
Top = 7
|
||||
Width = 87
|
||||
Width = 136
|
||||
Height = 20
|
||||
Date = 40768.000000000000000000
|
||||
Time = 0.458268587972270300
|
||||
TabOrder = 6
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 77
|
||||
Top = 33
|
||||
Width = 87
|
||||
Left = 91
|
||||
Top = 41
|
||||
Width = 136
|
||||
Height = 20
|
||||
Date = 40768.000000000000000000
|
||||
Time = 0.458268587972270300
|
||||
|
|
@ -275,7 +275,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
|
|||
end
|
||||
object cxTabControl1: TcxTabControl [2]
|
||||
Left = 0
|
||||
Top = 99
|
||||
Top = 113
|
||||
Width = 1397
|
||||
Height = 27
|
||||
Align = alTop
|
||||
|
|
@ -300,14 +300,15 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
|
|||
end
|
||||
object cxGrid1: TcxGrid [3]
|
||||
Left = 0
|
||||
Top = 126
|
||||
Top = 140
|
||||
Width = 1397
|
||||
Height = 511
|
||||
Height = 497
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 3
|
||||
object TV1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
|
|
@ -355,119 +356,161 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
|
|||
object cxGridDBColumn1: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 42
|
||||
end
|
||||
object TV1Column8: TcxGridDBColumn
|
||||
Caption = #25972#32463#21333#21495
|
||||
DataBinding.FieldName = 'WBCNO'
|
||||
object TV1Column11: TcxGridDBColumn
|
||||
Caption = #35746#21333#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
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
|
||||
object V2Column4: TcxGridDBColumn
|
||||
Caption = #36724#21345#21495
|
||||
DataBinding.FieldName = 'WBCID'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
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
|
||||
Width = 76
|
||||
end
|
||||
object TV1Column6: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'WB_ClothName'
|
||||
DataBinding.IsNullValueType = True
|
||||
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
|
||||
object TV1Column3: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'Note'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 146
|
||||
Width = 150
|
||||
end
|
||||
object TV1Column10: TcxGridDBColumn
|
||||
Caption = #32433#32447#25209#27425
|
||||
DataBinding.FieldName = 'WB_YarnBatchNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 107
|
||||
Width = 99
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = TV1
|
||||
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
|
||||
Connection = DataLink_TatPlan.ADOLink
|
||||
Left = 81
|
||||
|
|
|
|||
|
|
@ -12,7 +12,7 @@ uses
|
|||
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox,
|
||||
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
|
||||
U_BaseList, Vcl.Menus;
|
||||
U_BaseList, Vcl.Menus, cxContainer, dxScrollbarAnnotations, cxProgressBar;
|
||||
|
||||
type
|
||||
TfrmTatWBPlanCard = class(TfrmBaseList)
|
||||
|
|
@ -73,6 +73,7 @@ type
|
|||
EndDate: TDateTimePicker;
|
||||
TV1Column10: TcxGridDBColumn;
|
||||
TV1Column7: TcxGridDBColumn;
|
||||
TV1Column11: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -87,6 +88,7 @@ type
|
|||
procedure ToolButton4Click(Sender: TObject);
|
||||
procedure ToolButton5Click(Sender: TObject);
|
||||
procedure ToolButton6Click(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
FInt, PFInt: Integer;
|
||||
FFMainID, BPFlag: string;
|
||||
|
|
@ -100,7 +102,8 @@ type
|
|||
implementation
|
||||
|
||||
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}
|
||||
|
||||
|
|
@ -111,6 +114,12 @@ begin
|
|||
WriteCxGrid('DCG13', Tv1, '坯布生产2');
|
||||
end;
|
||||
|
||||
procedure TfrmTatWBPlanCard.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatWBPlanCard.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
|
|
@ -255,8 +264,13 @@ begin
|
|||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
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
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
|
||||
|
|
@ -279,7 +293,8 @@ begin
|
|||
application.MessageBox('删除成功！', '提示信息');
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0);
|
||||
// application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
@ -292,6 +307,11 @@ begin
|
|||
FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString);
|
||||
FSubId := Trim(Self.CDS_1.fieldbyname('SubId').AsString);
|
||||
FWBCID := Trim(Self.CDS_1.fieldbyname('WBCID').AsString);
|
||||
// begin
|
||||
// if FWBCID = '' then
|
||||
// ShowMessage('11111111111');
|
||||
// end;
|
||||
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
|
|
@ -319,22 +339,43 @@ begin
|
|||
finally
|
||||
frmTatWBCardInPut.Free;
|
||||
end;
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatWBPlanCard.ToolButton6Click(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
frmTatWBCardInPut := TfrmTatWBCardInPut.Create(Application);
|
||||
with frmTatWBCardInPut do
|
||||
frmTatWBCardInPutXIUGAI := TfrmTatWBCardInPutXIUGAI.Create(Application);
|
||||
with frmTatWBCardInPutXIUGAI do
|
||||
begin
|
||||
begin
|
||||
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
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmTatWBCardInPut.Free;
|
||||
frmTatWBCardInPutXIUGAI.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
|
|||
|
|
@ -95,7 +95,7 @@
|
|||
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
|
||||
</PropertyGroup>
|
||||
<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>
|
||||
<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>
|
||||
|
|
@ -139,6 +139,7 @@
|
|||
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
|
||||
<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>
|
||||
<Debugger_HostApplication>D:\Dp10RepoV10\项目代码\D10szXingjie\E01梭织生产计划\testDll.exe</Debugger_HostApplication>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
|
|
|
|||
Binary file not shown.
5
E01梭织生产计划/testDll.skincfg
Normal file
5
E01梭织生产计划/testDll.skincfg
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
[ExpressSkins]
|
||||
Default=1
|
||||
ShowNotifications=1
|
||||
Enabled=1
|
||||
dxSkinsDefaultPainters=1
|
||||
|
|
@ -2,6 +2,6 @@
|
|||
<BorlandProject>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\千圣\E02梭织经轴仓库\WarpBeamStk.dproj"/>
|
||||
<Projects ActiveProject="D:\Dp10RepoV10\项目代码\D10szXingjie\E02梭织经轴仓库\testDll.dproj"/>
|
||||
</Default.Personality>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user