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

1234

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-06-27 14:08:29 +08:00
parent a1367f2e4c
commit 1e027c15ad
7 changed files with 113 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -81,6 +81,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
OptionsView.CellAutoHeight = True
OptionsView.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

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

@ -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)

39
F02染色计划单/U_DyeCardInput.dfm
View File

@ -822,7 +822,7 @@ inherited frmDyeCardInput: TfrmDyeCardInput
end
object edt_GramWeight: TEdit
Tag = 2
Left = 48
Left = 51
Top = 32
Width = 100
Height = 20
@ -925,20 +925,6 @@ inherited frmDyeCardInput: TfrmDyeCardInput
ParentFont = False
TabOrder = 12
end
object edt_name: TEdit
Tag = 2
Left = 204
Top = 7
Width = 100
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 13
end
object edt_TSNOTE: TEdit
Tag = 2
Left = 372
@ -951,7 +937,7 @@ inherited frmDyeCardInput: TfrmDyeCardInput
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 14
TabOrder = 13
end
object edt_jitaino: TEdit
Tag = 2
@ -965,7 +951,7 @@ inherited frmDyeCardInput: TfrmDyeCardInput
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 15
TabOrder = 14
end
object JGFACTORYNAME: TEdit
Tag = 2
@ -979,9 +965,25 @@ inherited frmDyeCardInput: TfrmDyeCardInput
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 16
TabOrder = 15
Text = #26412#21378
end
object edt_name: TcxButtonEdit
Tag = 2
Left = 206
Top = 5
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = edt_namePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 16
Width = 99
end
end
end
object cxTabSheet4: TcxTabSheet
@ -1449,7 +1451,6 @@ inherited frmDyeCardInput: TfrmDyeCardInput
Align = alClient
PopupMenu = PM_1
TabOrder = 0
ExplicitTop = 45
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

49
F02染色计划单/U_DyeCardInput.pas
View File

@ -12,7 +12,7 @@ uses
cxCheckBox, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, U_BaseInput, System.ImageList,
Vcl.ImgList, dxBarBuiltInMenu, cxGridCustomPopupMenu, cxGridPopupMenu,
cxButtonEdit, Vcl.Menus, cxPC, dxSkinWXI, dxScrollbarAnnotations;
cxButtonEdit, Vcl.Menus, cxPC, dxSkinWXI, dxScrollbarAnnotations, cxMaskEdit;
type
TfrmDyeCardInput = class(TfrmBaseInput)
@ -173,7 +173,6 @@ type
Label24: TLabel;
edt_C_XINHAO: TEdit;
Label25: TLabel;
edt_name: TEdit;
TV1Column22: TcxGridDBColumn;
TV1Column23: TcxGridDBColumn;
Label27: TLabel;
@ -195,6 +194,7 @@ type
ToolButton6: TToolButton;
ToolButton7: TToolButton;
TV2Column7: TcxGridDBColumn;
edt_name: TcxButtonEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -217,6 +217,7 @@ type
procedure TextEdit(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure edt_namePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
FRollNum: integer;
FGC_BatchNo, FGC_Piece, FGC_STKID, FGC_Position: string;
@ -243,7 +244,8 @@ implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_DyePlanForCardSel, U_DyeProcessSel,
U_DyeTechnicsSel, U_DyePlanCardSel, U_DyeGreyClothStkSel, U_DyeCardGlideEdit;
U_DyeTechnicsSel, U_DyePlanCardSel, U_DyeGreyClothStkSel, U_DyeCardGlideEdit,
U_ClothInfoSel;
{$R *.dfm} function TfrmDyeCardInput.GetCard(): Boolean;
var
MCustNo, MC_Name: string;
@ -621,7 +623,7 @@ begin
FieldByName('carnum').Value := trim(carnum.Text);
FieldByName('C_Name').Value := trim(edt_name.Text);
FieldByName('C_CODE').Value := trim(FC_CODE);
FieldByName('C_CODE').Value := trim(edt_C_XINHAO.Text);
FieldByName('C_GramWeight').Value := trim(edt_GramWeight.Text);
FieldByName('C_Width').Value := trim(edt_Width.Text);
FieldByName('JGFACTORYNAME').Value := trim(JGFACTORYNAME.Text);
@ -649,6 +651,14 @@ begin
begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_DYE_CF_GLIDE ');
Sql.Add('@PCID=' + quotedstr(trim(CDS_1.fieldbyname('PCID').AsString)));
execsql;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
@ -659,6 +669,28 @@ begin
InitGreyClothStk();
end;
procedure TfrmDyeCardInput.edt_namePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
with frmClothInfoSel do
begin
if ShowModal = 1 then
begin
edt_name.Text := trim(CDS_1.FieldByName('c_name').AsString);
edt_C_XINHAO.Text := trim(CDS_1.FieldByName('c_code').AsString);
edt_GramWeight.Text := trim(CDS_1.FieldByName('C_GramWeight').AsString);
edt_Width.Text := trim(CDS_1.FieldByName('C_Width').AsString);
end;
end;
finally
frmClothInfoSel.Free;
end;
end;
procedure TfrmDyeCardInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
@ -909,7 +941,14 @@ begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end;
end;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_DYE_CF_GLIDE ');
Sql.Add('@PCID=' + quotedstr(trim(CDS_1.fieldbyname('PCID').AsString)));
execsql;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;

1
F02染色计划单/U_DyeCardList.dfm
View File

@ -444,6 +444,7 @@ inherited frmDyeCardList: TfrmDyeCardList
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 125
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

33
F02染色计划单/U_DyePlanList.dfm
View File

@ -368,6 +368,7 @@ inherited frmDyePlanList: TfrmDyePlanList
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DataSource1
@ -395,6 +396,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object Tv1Column17: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSEL'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
@ -403,6 +405,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_DyePlan.FontBlue
@ -413,12 +416,14 @@ inherited frmDyePlanList: TfrmDyePlanList
object Tv1Column2: TcxGridDBColumn
Caption = #23458#25143#32534#21495
DataBinding.FieldName = 'CustNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object v1CustomerNoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_DyePlan.FontBlue
@ -429,6 +434,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1ConNo: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_DyePlan.Default
@ -437,6 +443,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1Column5: TcxGridDBColumn
Caption = #29983#20135#31867#22411
DataBinding.FieldName = 'OrdType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -444,6 +451,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1Column4: TcxGridDBColumn
Caption = #38144#21806#31867#22411
DataBinding.FieldName = 'Salestype'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -451,6 +459,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1Column1: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -458,6 +467,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1OrdDate: TcxGridDBColumn
Caption = #21046#21333#26085#26399
DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
@ -468,6 +478,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
OnCustomDrawCell = v1DeliveryDateCustomDrawCell
@ -479,6 +490,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1Column6: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -486,6 +498,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1MPRTCodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_DyePlan.FontBlue
@ -496,6 +509,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1MPRTSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_DyePlan.Default
@ -504,6 +518,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1MPRTMF: TcxGridDBColumn
Caption = #25104#21697#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_DyePlan.Default
@ -512,6 +527,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1MPRTKZ: TcxGridDBColumn
Caption = #25104#21697#20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
@ -519,6 +535,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object Tv1Column14: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'GC_Position'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -526,6 +543,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1Column2: TcxGridDBColumn
Caption = #24635#21305#25968
DataBinding.FieldName = 'GC_TotalPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_DyePlan.FontBlue
@ -536,6 +554,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object Tv1Column8: TcxGridDBColumn
Caption = #25805#20316#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -543,6 +562,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object Tv1Column16: TcxGridDBColumn
Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -575,7 +595,6 @@ inherited frmDyePlanList: TfrmDyePlanList
#24050#23436#25104
#20840#37096)
OnChange = cxTabControl1Change
ExplicitTop = 99
ClientRectBottom = 22
ClientRectRight = 1401
ClientRectTop = 19
@ -604,6 +623,7 @@ inherited frmDyePlanList: TfrmDyePlanList
TabOrder = 0
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -653,6 +673,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object Tv1Column1: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -660,6 +681,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1SOrddefstr1: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_Colorno'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -669,6 +691,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1PRTColor: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -685,6 +708,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1PRTORDQTY: TcxGridDBColumn
Caption = #35746#36135#37327
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_DyePlan.FontBlue
@ -695,6 +719,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -709,6 +734,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object cxGridDBColumn1: TcxGridDBColumn
Caption = #20986#36135#25968#37327#21333#20301
DataBinding.FieldName = 'Sorddefstr9'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -723,6 +749,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object cxGridDBColumn2: TcxGridDBColumn
Caption = #25237#22383#21305#25968
DataBinding.FieldName = 'AntcpPiece'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -731,6 +758,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object cxGridDBColumn3: TcxGridDBColumn
Caption = #25237#22383#25968#37327
DataBinding.FieldName = 'AntcpQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -738,6 +766,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object Tv1Column3: TcxGridDBColumn
Caption = #25237#22383#21333#20301
DataBinding.FieldName = 'AntcpUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
@ -751,6 +780,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object cxGridDBColumn4: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 135
@ -758,6 +788,7 @@ inherited frmDyePlanList: TfrmDyePlanList
object TV2Column1: TcxGridDBColumn
Caption = #21253#35013#21333#20301
DataBinding.FieldName = 'bzunit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 73
end

3
F02染色计划单/U_DyePlanList.pas
View File

@ -14,7 +14,8 @@ uses
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ShellAPI, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
IdExplicitTLSClientServerBase, U_BaseList, cxCheckBox, cxDropDownEdit;
IdExplicitTLSClientServerBase, U_BaseList, cxCheckBox, cxDropDownEdit,
dxScrollbarAnnotations;
type
TfrmDyePlanList = class(TfrmBaseList)