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

111

Browse Source
This commit is contained in:
“username” 2025-05-23 11:03:37 +08:00
parent cccfd92ae0
commit 8f8faec5ae
20 changed files with 296 additions and 76 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
D01针织生产计划/U_KnitPlanInPut.dfm
View File

@ -638,6 +638,19 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object lbl12: TLabel
Left = 893
Top = 331
Width = 154
Height = 21
Caption = #26159#21542#38656#35201#39318#20214#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrdDate: TDateTimePicker object OrdDate: TDateTimePicker
Left = 669 Left = 669
Top = 4 Top = 4
@ -742,7 +755,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Tag = 2 Tag = 2
Left = 669 Left = 669
Top = 123 Top = 123
Width = 200 Width = 116
Height = 27 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -1370,6 +1383,41 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
TabOrder = 41 TabOrder = 41
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object C_WidthUnit: TComboBox
Tag = 2
Left = 791
Top = 121
Width = 78
Height = 29
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 42
Items.Strings = (
#26377#25928
#24102#36793)
end
object ISShouJian: TComboBox
Left = 1045
Top = 328
Width = 127
Height = 26
Style = csOwnerDrawFixed
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemHeight = 20
ParentFont = False
TabOrder = 43
Items.Strings = (
#26159
#21542)
end
end end
object Panel2: TPanel [2] object Panel2: TPanel [2]
Left = 0 Left = 0

16
D01针织生产计划/U_KnitPlanInPut.pas
View File

@ -401,6 +401,9 @@ type
C_MainYarn: TComboBox; C_MainYarn: TComboBox;
lbl11: TLabel; lbl11: TLabel;
LineNumber: TEdit; LineNumber: TEdit;
C_WidthUnit: TComboBox;
lbl12: TLabel;
ISShouJian: TComboBox;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -1037,6 +1040,14 @@ begin
Application.MessageBox('计划单类型不能为空!', '提示', 0); Application.MessageBox('计划单类型不能为空!', '提示', 0);
Exit; Exit;
end; end;
if OrdType.Text = '大货单' then
begin
if Trim(ISShouJian.Text) = '' then
begin
Application.MessageBox('是否做首件不能为空!', '提示', 0);
Exit;
end;
end;
if Trim(CustName.Text) = '' then if Trim(CustName.Text) = '' then
begin begin
@ -1058,6 +1069,11 @@ begin
Application.MessageBox('门幅不能为空!', '提示', 0); Application.MessageBox('门幅不能为空!', '提示', 0);
Exit; Exit;
end; end;
if Trim(C_WidthUnit.Text) = '' then
begin
Application.MessageBox('门幅必须选择有效或带边!', '提示', 0);
Exit;
end;
if Trim(C_GramWeight.Text) = '' then if Trim(C_GramWeight.Text) = '' then
begin begin
Application.MessageBox('克重不能为空!', '提示', 0); Application.MessageBox('克重不能为空!', '提示', 0);

46
D01针织生产计划/U_KnitPlanList.dfm
View File

@ -113,24 +113,24 @@ inherited frmKnitPlanList: TfrmKnitPlanList
ImageIndex = 4 ImageIndex = 4
OnClick = TBViewClick OnClick = TBViewClick
end end
object TBDel: TToolButton
Left = 824
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBDelClick
end
object TBSCAP: TToolButton object TBSCAP: TToolButton
Left = 895 Left = 824
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #29983#20135#23433#25490 Caption = #29983#20135#23433#25490
ImageIndex = 23 ImageIndex = 23
OnClick = TBSCAPClick OnClick = TBSCAPClick
end end
object SCPrint: TToolButton
Left = 919
Top = 0
AutoSize = True
Caption = #25171#21360#29983#20135#21333
ImageIndex = 21
OnClick = SCPrintClick
end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 990 Left = 1026
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21367#35774#32622 Caption = #25171#21367#35774#32622
@ -138,7 +138,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object btn1: TToolButton object btn1: TToolButton
Left = 1085 Left = 1121
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360#27969#31243#21345 Caption = #25171#21360#27969#31243#21345
@ -152,6 +152,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
AutoSize = True AutoSize = True
Caption = ' '#26032#22686#27969#31243#21345 Caption = ' '#26032#22686#27969#31243#21345
ImageIndex = 2 ImageIndex = 2
Visible = False
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
@ -160,6 +161,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
AutoSize = True AutoSize = True
Caption = #26032#22686#25286#20998#21345 Caption = #26032#22686#25286#20998#21345
ImageIndex = 2 ImageIndex = 2
Visible = False
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object ToolButton10: TToolButton object ToolButton10: TToolButton
@ -218,16 +220,24 @@ inherited frmKnitPlanList: TfrmKnitPlanList
ImageIndex = 11 ImageIndex = 11
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBExport: TToolButton object TBDel: TToolButton
Left = 873 Left = 873
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBDelClick
end
object TBExport: TToolButton
Left = 944
Top = 38
AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 20 ImageIndex = 20
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 944 Left = 1015
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -235,7 +245,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1039 Left = 1110
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -902,6 +912,14 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end end
object cxgrdbclmnTv1Column23: TcxGridDBColumn
Caption = #26159#21542#38656#35201#39318#20214
DataBinding.FieldName = 'ISShouJian'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

21
D01针织生产计划/U_KnitPlanList.pas
View File

@ -166,6 +166,8 @@ type
lbl2: TLabel; lbl2: TLabel;
LineNumber: TEdit; LineNumber: TEdit;
cxgrdbclmnTv1Column22: TcxGridDBColumn; cxgrdbclmnTv1Column22: TcxGridDBColumn;
cxgrdbclmnTv1Column23: TcxGridDBColumn;
SCPrint: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
@ -211,6 +213,7 @@ type
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure DYPrintClick(Sender: TObject); procedure DYPrintClick(Sender: TObject);
procedure ToolButton11Click(Sender: TObject); procedure ToolButton11Click(Sender: TObject);
procedure SCPrintClick(Sender: TObject);
private private
FInt, PFInt: Integer; FInt, PFInt: Integer;
procedure InitGrid(); procedure InitGrid();
@ -1274,6 +1277,24 @@ begin
TBRafresh.Click; TBRafresh.Click;
end; end;
procedure TfrmKnitPlanList.SCPrintClick(Sender: TObject);
begin
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'ZZSCD';
FFiltration1 := CDS_1.FieldByName('MAINID').AsString;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmKnitPlanList.C_CodeKeyPress(Sender: TObject; var Key: Char); procedure TfrmKnitPlanList.C_CodeKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then

BIN
D02针织坯布检验/KnitInsp.identcache
View File

Binary file not shown.

BIN
F04染色刷卡/DyeProcess.identcache
View File

Binary file not shown.

4
F04染色刷卡/U_DyeOutput.dfm
View File

@ -841,8 +841,8 @@ inherited frmDyeOutput: TfrmDyeOutput
end end
end end
object MovePanel1: TMovePanel [3] object MovePanel1: TMovePanel [3]
Left = 318 Left = 227
Top = 461 Top = 299
Width = 713 Width = 713
Height = 251 Height = 251
TabOrder = 3 TabOrder = 3

1
F04染色刷卡/U_DyeOutput.pas
View File

@ -397,6 +397,7 @@ procedure TfrmDyeOutput.Button1Click(Sender: TObject);
begin begin
inherited; inherited;
MovePanel1.Visible := false; MovePanel1.Visible := false;
Scan.SetFocus;
end; end;
procedure TfrmDyeOutput.cxButton3Click(Sender: TObject); procedure TfrmDyeOutput.cxButton3Click(Sender: TObject);

4
T03贸易布匹检验/TradeInspFile.INI
View File

@ -13,6 +13,6 @@
重量下限=1 重量下限=1
重量上限=100 重量上限=100
米数小数位=1 米数小数位=1
码数小数位=2 码数小数位=1
重量小数位=2 重量小数位=1
员工编号=Select UserID= 'CS' 员工编号=Select UserID= 'CS'

8
T03贸易布匹检验/U_DataLink.dfm
View File

@ -10567,6 +10567,14 @@ inherited DataLink_TradeInsp: TDataLink_TradeInsp
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
end end
object cxstyl1: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
end
end end
object Timer_link: TTimer object Timer_link: TTimer
Interval = 15000 Interval = 15000

1
T03贸易布匹检验/U_DataLink.pas
View File

@ -77,6 +77,7 @@ type
Timer_link: TTimer; Timer_link: TTimer;
ImageList_new32: TImageList; ImageList_new32: TImageList;
cxStyle1: TcxStyle; cxStyle1: TcxStyle;
cxstyl1: TcxStyle;
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
procedure Timer_linkTimer(Sender: TObject); procedure Timer_linkTimer(Sender: TObject);
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);

29
T03贸易布匹检验/U_TradeClothInspList.dfm
View File

@ -283,17 +283,26 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Caption = #22383#24067#20811#37325 Caption = #22383#24067#20811#37325
DataBinding.FieldName = 'C_KnitGramWeight' DataBinding.FieldName = 'C_KnitGramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 93
end end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #25104#21697#20811#37325 Caption = #35746#21333#20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 98
end
object cxgrdbclmnTv1Column15: TcxGridDBColumn
Caption = #25104#21697#20811#37325
DataBinding.FieldName = 'C_TradeGramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
@ -495,6 +504,14 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object cxgrdbclmnTv1Column16: TcxGridDBColumn
Caption = #23458#25143#35746#21333#21495
DataBinding.FieldName = 'khconno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v1Column46: TcxGridDBColumn object v1Column46: TcxGridDBColumn
Caption = #26816#39564#26426#21488 Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo' DataBinding.FieldName = 'CIMachNo'
@ -650,10 +667,10 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object TLabel object TLabel
Left = 526 Left = 526
Top = 10 Top = 10
Width = 36 Width = 60
Height = 12 Height = 12
Hint = '0' Hint = '0'
Caption = #21512#21516#21495 Caption = #23458#25143#35746#21333#21495
end end
object Label7: TLabel object Label7: TLabel
Left = 722 Left = 722
@ -749,7 +766,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
TabOrder = 1 TabOrder = 1
OnKeyPress = OrderNoKeyPress OnKeyPress = OrderNoKeyPress
end end
object conNO: TEdit object khconno: TEdit
Tag = 2 Tag = 2
Left = 592 Left = 592
Top = 6 Top = 6

4
T03贸易布匹检验/U_TradeClothInspList.pas
View File

@ -33,7 +33,7 @@ type
OrderNo: TEdit; OrderNo: TEdit;
TBExport: TToolButton; TBExport: TToolButton;
Order_Main: TClientDataSet; Order_Main: TClientDataSet;
conNO: TEdit; khconno: TEdit;
Label7: TLabel; Label7: TLabel;
Label8: TLabel; Label8: TLabel;
Label10: TLabel; Label10: TLabel;
@ -118,6 +118,8 @@ type
edt1: TEdit; edt1: TEdit;
cxgrdbclmnTv1Column13: TcxGridDBColumn; cxgrdbclmnTv1Column13: TcxGridDBColumn;
cxgrdbclmnTv1Column14: TcxGridDBColumn; cxgrdbclmnTv1Column14: TcxGridDBColumn;
cxgrdbclmnTv1Column15: TcxGridDBColumn;
cxgrdbclmnTv1Column16: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

59
T03贸易布匹检验/U_TradeMachInsp.dfm
View File

@ -7,8 +7,6 @@
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -63
ExplicitTop = -140
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 810 ExplicitHeight = 810
PixelsPerInch = 96 PixelsPerInch = 96
@ -238,6 +236,20 @@
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object lbl7: TLabel
Left = 90
Top = 287
Width = 124
Height = 34
Caption = #24320#21098#20010#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -29
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object InputLen: TEdit object InputLen: TEdit
Left = 80 Left = 80
Top = 88 Top = 88
@ -285,8 +297,8 @@
OnClick = Button6Click OnClick = Button6Click
end end
object Button8: TButton object Button8: TButton
Left = 303 Left = 305
Top = 137 Top = 148
Width = 80 Width = 80
Height = 45 Height = 45
Caption = #35814#24773 Caption = #35814#24773
@ -452,6 +464,7 @@
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 13 TabOrder = 13
OnChange = DelQtyChange
OnClick = CIFBegClick OnClick = CIFBegClick
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
@ -817,7 +830,7 @@
ReadOnly = True ReadOnly = True
TabOrder = 9 TabOrder = 9
end end
object Edit7: TEdit object C_TradeGramWeight: TEdit
Left = 248 Left = 248
Top = 144 Top = 144
Width = 144 Width = 144
@ -2196,7 +2209,7 @@
Left = 1 Left = 1
Top = 77 Top = 77
Width = 293 Width = 293
Height = 500 Height = 462
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -2339,23 +2352,23 @@
end end
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 1 Left = 1
Top = 577 Top = 539
Width = 293 Width = 293
Height = 193 Height = 231
Align = alBottom Align = alBottom
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -25
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = 查看
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
ClientRectBottom = 191 ClientRectBottom = 229
ClientRectLeft = 2 ClientRectLeft = 2
ClientRectRight = 291 ClientRectRight = 291
ClientRectTop = 22 ClientRectTop = 34
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #24405#20837 Caption = #24405#20837
ImageIndex = 0 ImageIndex = 0
@ -2363,11 +2376,11 @@
Left = 0 Left = 0
Top = 0 Top = 0
Width = 289 Width = 289
Height = 169 Height = 195
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -25 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -2376,6 +2389,7 @@
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv2CellDblClick OnCellDblClick = Tv2CellDblClick
OnCustomDrawCell = Tv2CustomDrawCell
DataController.DataSource = DS_2 DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -2396,10 +2410,9 @@
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False OptionsSelection.CellSelect = False
OptionsView.DataRowHeight = 26
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Header = DataLink_TradeInsp.Default
Styles.Selection = DataLink_TradeInsp.cxStyle1
object tv2CDType: TcxGridDBColumn object tv2CDType: TcxGridDBColumn
Caption = #30133#28857#21517#31216 Caption = #30133#28857#21517#31216
DataBinding.FieldName = 'CIFName' DataBinding.FieldName = 'CIFName'
@ -2490,12 +2503,19 @@
Left = 0 Left = 0
Top = 0 Top = 0
Width = 289 Width = 289
Height = 169 Height = 195
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0 TabOrder = 0
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
OnCustomDrawCell = TV1CustomDrawCell
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -2647,6 +2667,7 @@
Caption = #21024#38500 Caption = #21024#38500
ImageIndex = 5 ImageIndex = 5
Wrap = True Wrap = True
Visible = False
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
@ -3600,7 +3621,7 @@
Top = 183 Top = 183
end end
object Timer1: TTimer object Timer1: TTimer
Left = 393 Left = 433
Top = 277 Top = 305
end end
end end

82
T03贸易布匹检验/U_TradeMachInsp.pas
View File

@ -308,10 +308,11 @@ type
edtKJ: TEdit; edtKJ: TEdit;
btn1: TButton; btn1: TButton;
lbl5: TLabel; lbl5: TLabel;
Edit7: TEdit; C_TradeGramWeight: TEdit;
lbl6: TLabel; lbl6: TLabel;
Edit8: TEdit; Edit8: TEdit;
cxgrdbclmnTv3Column6: TcxGridDBColumn; cxgrdbclmnTv3Column6: TcxGridDBColumn;
lbl7: TLabel;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -364,6 +365,9 @@ type
procedure Edit1Click(Sender: TObject); procedure Edit1Click(Sender: TObject);
procedure SpeedButton87Click(Sender: TObject); procedure SpeedButton87Click(Sender: TObject);
procedure btn1Click(Sender: TObject); procedure btn1Click(Sender: TObject);
procedure Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure TV1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure DelQtyChange(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FCIID, FOperationStatus, FCIFName, FWorkshop: string; FCIID, FOperationStatus, FCIFName, FWorkshop: string;
@ -450,6 +454,18 @@ begin
until ((GetTickCount - FirstTickCount) >= Longint(msecs)); until ((GetTickCount - FirstTickCount) >= Longint(msecs));
end; end;
procedure TfrmTradeMachInsp.DelQtyChange(Sender: TObject);
begin
if (StrToFloatdef(inputWeight.Text, 0) > 0) and (StrToFloatdef(MaxQty.Caption, 0) > 0) and (Width.text <> '') and (GramWeight.Text <> '') then
begin
C_TradeGramWeight.Text := FormatFloat('0.0', (((StrToFloatdef(inputWeight.Text, 0) - StrToFloatdef(FRuleBeforeTare, 0)) * 1000) / (((StrToFloatdef(copy(Width.Text, 1, 3), 0) / 100) + 0.03) * (StrToFloatdef(MaxQty.Caption, 0) - StrToFloatDef(DelQty.Text, 0)))));
end
else
begin
C_TradeGramWeight.Text := '';
end;
end;
procedure TfrmTradeMachInsp.PrtMD(MInNo: string); procedure TfrmTradeMachInsp.PrtMD(MInNo: string);
var var
fPrintFile, FLBName: string; fPrintFile, FLBName: string;
@ -594,11 +610,11 @@ begin
if (StrToFloatdef(inputWeight.Text, 0) > 0) and (StrToFloatdef(MaxQty.Caption, 0) > 0) and (Width.text <> '') and (GramWeight.Text <> '') then if (StrToFloatdef(inputWeight.Text, 0) > 0) and (StrToFloatdef(MaxQty.Caption, 0) > 0) and (Width.text <> '') and (GramWeight.Text <> '') then
begin begin
Edit7.Text := FormatFloat('0.0', (((StrToFloatdef(inputWeight.Text, 0) - StrToFloatdef(FRuleBeforeTare, 0)) * 1000) / ((StrToFloatdef(copy(Width.Text, 1, 3), 0) / 100) * (StrToFloatdef(MaxQty.Caption, 0) - StrToFloatDef(DelQty.Text, 0))))); C_TradeGramWeight.Text := FormatFloat('0.0', (((StrToFloatdef(inputWeight.Text, 0) - StrToFloatdef(FRuleBeforeTare, 0)) * 1000) / (((StrToFloatdef(copy(Width.Text, 1, 3), 0) / 100) + 0.03) * (StrToFloatdef(MaxQty.Caption, 0) - StrToFloatDef(DelQty.Text, 0)))));
end end
else else
begin begin
Edit7.Text := ''; C_TradeGramWeight.Text := '';
end; end;
end; end;
@ -630,7 +646,21 @@ begin
// exit; // exit;
// end; // end;
// end; // end;
if (StrToFloatDef(C_TradeGramWeight.Text, 0) <= 0) or (StrToFloatDef(GramWeight.Text, 0) <= 0) then
begin
raise Exception.Create('克重有问题，请检查克重!');
end
else
begin
if abs(strtofloatdef(C_TradeGramWeight.Text, 0) - strtofloatdef(GramWeight.Text, 0)) >= 10 then
begin
if Application.MessageBox('此匹克重幅度±10，是否继续提交！', '提示', 32 + 4) <> IDYES then
begin
Result := false;
exit;
end;
end;
end;
if (StrToIntDef(PieceNo.Text, 0) = 0) and (ComboBox2.Text = '手动') then if (StrToIntDef(PieceNo.Text, 0) = 0) and (ComboBox2.Text = '手动') then
raise Exception.Create('卷号不能为空!'); raise Exception.Create('卷号不能为空!');
@ -1227,7 +1257,7 @@ begin
if (trim(edtMaBiao.Text) = '√') then if (trim(edtMaBiao.Text) = '√') then
begin begin
if (i1 = 0) and (strToFloatdef(InputLen.Text, 0) > 10) then if (i1 = 0) and (strToFloatdef(InputLen.Text, 0) > 20) then
begin begin
edit2.Text := InputLen.Text; edit2.Text := InputLen.Text;
@ -1331,20 +1361,20 @@ var
I: INTEGER; I: INTEGER;
begin begin
inherited; inherited;
ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易检验管理'); ReadCxGrid(trim(Self.Caption) + 'Tv11', Tv1, '贸易检验管理');
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, '贸易检验管理'); ReadCxGrid(trim(Self.Caption) + 'Tv22', Tv2, '贸易检验管理');
ReadCxGrid(trim(Self.Caption) + 'Tv3', Tv3, '贸易检验管理'); ReadCxGrid(trim(Self.Caption) + 'Tv33', Tv3, '贸易检验管理');
// 设置整个网格的默认字体 // 设置整个网格的默认字体
// cxGrid1.Font.Size := 19; cxGrid1.Font.Size := 19;
// cxGrid2.Font.Size := 19; cxGrid2.Font.Size := 19;
// cxGrid3.Font.Size := 19; cxGrid3.Font.Size := 19;
// 2. 强制所有列继承全局样式（覆盖列独立设置） // 2. 强制所有列继承全局样式（覆盖列独立设置）
for I := 0 to TV2.ColumnCount - 1 do // for I := 0 to TV2.ColumnCount - 1 do
begin // begin
TV2.Columns[I].Styles.Content := DataLink_TradeInsp.cxStyle1; // TV2.Columns[I].Styles.Content := DataLink_TradeInsp.cxStyle1;
TV2.Columns[I].Styles.Header := DataLink_TradeInsp.cxStyle1; // TV2.Columns[I].Styles.Header := DataLink_TradeInsp.cxStyle1;
end; // end;
TV2.Styles.selection := DataLink_TradeInsp.cxStyle1; // TV2.Styles.selection := DataLink_TradeInsp.cxStyle1;
// for i := 0 to TV2.ColumnCount - 1 do // for i := 0 to TV2.ColumnCount - 1 do
// begin // begin
// // 设置列内容字体 // // 设置列内容字体
@ -1460,10 +1490,16 @@ begin
end; end;
end; end;
procedure TfrmTradeMachInsp.Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
ACanvas.font.size := 19;
end;
procedure TfrmTradeMachInsp.Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure TfrmTradeMachInsp.Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('Grade').Index] = '次品' then if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('Grade').Index] = '次品' then
ACanvas.Brush.Color := clRed; ACanvas.Brush.Color := clRed;
ACanvas.font.size := 19;
end; end;
procedure TfrmTradeMachInsp.Tv3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TfrmTradeMachInsp.Tv3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
@ -1613,6 +1649,7 @@ begin
//FieldByName('Loom').value := FLoom; //FieldByName('Loom').value := FLoom;
FieldByName('C_Width').value := FC_Width; FieldByName('C_Width').value := FC_Width;
FieldByName('C_KnitGramWeight').value := FC_KnitGramWeight; FieldByName('C_KnitGramWeight').value := FC_KnitGramWeight;
FieldByName('C_TradeGramWeight').value := C_TradeGramWeight.Text;
FieldByName('C_Figure').value := FC_Figure; FieldByName('C_Figure').value := FC_Figure;
FieldByName('C_Yarn').value := FC_Yarn; FieldByName('C_Yarn').value := FC_Yarn;
FieldByName('C_GramWeight').value := FC_GramWeight; FieldByName('C_GramWeight').value := FC_GramWeight;
@ -2588,9 +2625,9 @@ end;
procedure TfrmTradeMachInsp.ToolButton7Click(Sender: TObject); procedure TfrmTradeMachInsp.ToolButton7Click(Sender: TObject);
begin begin
WriteCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易检验管理'); WriteCxGrid(trim(Self.Caption) + 'Tv11', Tv1, '贸易检验管理');
WriteCxGrid(trim(Self.Caption) + 'Tv2', Tv2, '贸易检验管理'); WriteCxGrid(trim(Self.Caption) + 'Tv22', Tv2, '贸易检验管理');
WriteCxGrid(trim(Self.Caption) + 'Tv3', Tv3, '贸易检验管理'); WriteCxGrid(trim(Self.Caption) + 'Tv33', Tv3, '贸易检验管理');
end; end;
@ -2599,6 +2636,11 @@ begin
Close; Close;
end; end;
procedure TfrmTradeMachInsp.TV1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
ACanvas.font.size := 19;
end;
procedure TfrmTradeMachInsp.edt1Click(Sender: TObject); procedure TfrmTradeMachInsp.edt1Click(Sender: TObject);
begin begin
if Trim(edt1.Text) = '' then if Trim(edt1.Text) = '' then

18
T03贸易布匹检验/U_TradePACKETPrint.dfm
View File

@ -113,11 +113,20 @@ inherited frmTradePACKETPrint: TfrmTradePACKETPrint
OptionsSelection.MultiSelect = True OptionsSelection.MultiSelect = True
OptionsSelection.CheckBoxVisibility = [cbvDataRow, cbvColumnHeader] OptionsSelection.CheckBoxVisibility = [cbvDataRow, cbvColumnHeader]
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object cxgrdbclmnTv1Column8: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'MainId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v2Column2: TcxGridDBColumn object v2Column2: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Content = cxStyle1 Styles.Content = cxStyle1
Styles.Footer = cxStyle1 Styles.Footer = cxStyle1
@ -374,11 +383,20 @@ inherited frmTradePACKETPrint: TfrmTradePACKETPrint
OptionsSelection.MultiSelect = True OptionsSelection.MultiSelect = True
OptionsSelection.CheckBoxVisibility = [cbvDataRow, cbvColumnHeader] OptionsSelection.CheckBoxVisibility = [cbvDataRow, cbvColumnHeader]
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object cxgrdbclmnTv2Column3: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'MainId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxgrdbclmn1: TcxGridDBColumn object cxgrdbclmn1: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Content = cxStyle1 Styles.Content = cxStyle1
Styles.Footer = cxStyle1 Styles.Footer = cxStyle1

2
T03贸易布匹检验/U_TradePACKETPrint.pas
View File

@ -70,6 +70,8 @@ type
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn; Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn; Tv2Column2: TcxGridDBColumn;
cxgrdbclmnTv1Column8: TcxGridDBColumn;
cxgrdbclmnTv2Column3: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

1
T04贸易明细仓库/U_TradeClothDROutEdit.pas
View File

@ -236,7 +236,6 @@ begin
sql.Add(' select * from Trade_Cloth_DR_Sub A INNER JOIN Trade_Cloth_Stock B on A.C_Code = B.C_Code and isnull(A.C_Color,'''')=isnull(B.C_Color,'''') and isnull(A.C_ColorNo,'''') = isnull(B.C_ColorNo,'''') '); sql.Add(' select * from Trade_Cloth_DR_Sub A INNER JOIN Trade_Cloth_Stock B on A.C_Code = B.C_Code and isnull(A.C_Color,'''')=isnull(B.C_Color,'''') and isnull(A.C_ColorNo,'''') = isnull(B.C_ColorNo,'''') ');
sql.Add(' where B.StkExists=1 and B.CIID=''' + Trim(MStkIds) + ''''); sql.Add(' where B.StkExists=1 and B.CIID=''' + Trim(MStkIds) + '''');
sql.Add(' and A.DRMID=''' + Trim(OutNo.Text) + ''''); sql.Add(' and A.DRMID=''' + Trim(OutNo.Text) + '''');
//showmessage(sql.Text);
Open; Open;
end; end;

17
T04贸易明细仓库/U_TradeClothStkList_Sel.dfm
View File

@ -110,10 +110,10 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
object TLabel object TLabel
Left = 536 Left = 536
Top = 10 Top = 10
Width = 36 Width = 60
Height = 13 Height = 13
Hint = '0' Hint = '0'
Caption = #21512#21516#21495 Caption = #23458#25143#35746#21333#21495
end end
object Label10: TLabel object Label10: TLabel
Left = 747 Left = 747
@ -232,7 +232,7 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
TabOrder = 5 TabOrder = 5
OnKeyPress = orderNoKeyPress OnKeyPress = orderNoKeyPress
end end
object conNO: TEdit object khconno: TEdit
Tag = 2 Tag = 2
Left = 605 Left = 605
Top = 6 Top = 6
@ -292,7 +292,6 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
AutoSize = True AutoSize = True
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 2 TabOrder = 2
ExplicitTop = 126
DesignSize = ( DesignSize = (
1536 1536
23) 23)
@ -401,8 +400,6 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 3 TabOrder = 3
ExplicitTop = 153
ExplicitHeight = 447
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -667,6 +664,14 @@ inherited frmTradeClothStkList_Sel: TfrmTradeClothStkList_Sel
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object cxgrdbclmnTv1Column3: TcxGridDBColumn
Caption = #23458#25143#35746#21333#21495
DataBinding.FieldName = 'khconno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

3
T04贸易明细仓库/U_TradeClothStkList_Sel.pas
View File

@ -88,7 +88,7 @@ type
lbl1: TLabel; lbl1: TLabel;
Label23: TLabel; Label23: TLabel;
OrderNo: TEdit; OrderNo: TEdit;
conNO: TEdit; khconno: TEdit;
STKID: TEdit; STKID: TEdit;
C_Name: TEdit; C_Name: TEdit;
PCId: TEdit; PCId: TEdit;
@ -103,6 +103,7 @@ type
ToolButton1: TToolButton; ToolButton1: TToolButton;
lbl2: TLabel; lbl2: TLabel;
lbl3: TLabel; lbl3: TLabel;
cxgrdbclmnTv1Column3: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);