Group_99/D10szGerun
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

产品 检验 仓库

Browse Source
This commit is contained in:
funa 2026-09-24 17:22:46 +08:00
parent 55c827d521
commit 6f6a2fda89
15 changed files with 767 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -84,16 +84,32 @@ inherited frmTatClothInfo: TfrmTatClothInfo
ImageIndex = 3 ImageIndex = 3
OnClick = TBMLEditClick OnClick = TBMLEditClick
end end
object TBDel: TToolButton object tbStart: TToolButton
Left = 521 Left = 521
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21551#29992
ImageIndex = 12
OnClick = tbStartClick
end
object tbPause: TToolButton
Left = 592
Top = 0
AutoSize = True
Caption = #26242#20572#20351#29992
ImageIndex = 11
OnClick = tbPauseClick
end
object TBDel: TToolButton
Left = 687
Top = 0
AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
ImageIndex = 5 ImageIndex = 5
OnClick = TBDelClick OnClick = TBDelClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 592 Left = 758
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26631#31614#25171#21360 Caption = #26631#31614#25171#21360
@ -101,7 +117,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 687 Left = 853
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #24037#33402#25171#21360 Caption = #24037#33402#25171#21360
@ -109,7 +125,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 782 Left = 948
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -117,7 +133,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBUP: TToolButton object TBUP: TToolButton
Left = 853 Left = 1019
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22270#29255#19978#20256 Caption = #22270#29255#19978#20256
@ -125,7 +141,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OnClick = TBUPClick OnClick = TBUPClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 948 Left = 1114
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -133,7 +149,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1043 Left = 1209
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -324,12 +340,14 @@ inherited frmTatClothInfo: TfrmTatClothInfo
TabOrder = 4 TabOrder = 4
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 2 Left = 2
Top = 42 Top = 67
Width = 1212 Width = 1212
Height = 370 Height = 345
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitTop = 42
ExplicitHeight = 370
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -432,6 +450,22 @@ inherited frmTatClothInfo: TfrmTatClothInfo
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1C_LongitudeBatchNo: TcxGridDBColumn
Caption = #32463#32433#25209#21495
DataBinding.FieldName = 'C_LongitudeBatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1C_LatitudeBatchNo: TcxGridDBColumn
Caption = #32428#32433#25209#21495
DataBinding.FieldName = 'C_LatitudeBatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #31576#21495 Caption = #31576#21495
DataBinding.FieldName = 'C_ReedNo' DataBinding.FieldName = 'C_ReedNo'
@ -512,12 +546,13 @@ inherited frmTatClothInfo: TfrmTatClothInfo
end end
object Panel7: TPanel object Panel7: TPanel
Left = 2 Left = 2
Top = 2 Top = 27
Width = 1212 Width = 1212
Height = 40 Height = 40
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 1 TabOrder = 1
ExplicitTop = 2
object Panel4: TPanel object Panel4: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -701,6 +736,24 @@ inherited frmTatClothInfo: TfrmTatClothInfo
end end
end end
end end
object cxTabControl1: TcxTabControl
Left = 2
Top = 2
Width = 1212
Height = 25
Align = alTop
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#20840#37096
#27491#22312#20351#29992)
OnChange = cxTabControl1Change
ClientRectBottom = 23
ClientRectLeft = 2
ClientRectRight = 1210
ClientRectTop = 22
end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink

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

@ -122,6 +122,11 @@ type
ToolButton4: TToolButton; ToolButton4: TToolButton;
Tv1C_Color: TcxGridDBColumn; Tv1C_Color: TcxGridDBColumn;
Tv1estimated_diff: TcxGridDBColumn; Tv1estimated_diff: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
tbStart: TToolButton;
tbPause: TToolButton;
Tv1C_LongitudeBatchNo: TcxGridDBColumn;
Tv1C_LatitudeBatchNo: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject); procedure TBDelClick(Sender: TObject);
@ -153,6 +158,9 @@ type
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure tbStartClick(Sender: TObject);
procedure tbPauseClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
@ -264,6 +272,15 @@ begin
else else
fwhere := ' where ' + trim(Pwhere); fwhere := ' where ' + trim(Pwhere);
end; end;
if cxTabControl1.TabIndex = 1 then
begin
if fwhere <> '' then
fwhere := fwhere + ' and ISNULL(A.Status,0) = 5 '
else
fwhere := ' where ISNULL(A.Status,0) = 5 ';
end;
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
@ -361,9 +378,15 @@ begin
application.ProcessMessages; application.ProcessMessages;
RecordsNumber := 500; RecordsNumber := 500;
CurrentPage := 1; CurrentPage := 1;
cxTabControl1.TabIndex := 0;
InitTree(); InitTree();
SetStatus(); SetStatus();
InitGrid(); InitGrid();
tbStart.Visible := True;
TBEdit.Visible := True;
TBMLEdit.Visible := True;
TBDel.Visible := True;
tbPause.Visible := False;
end; end;
@ -378,12 +401,116 @@ begin
InitGrid(); InitGrid();
end; end;
procedure TfrmTatClothInfo.cxTabControl1Change(Sender: TObject);
var
IsAllTab: Boolean;
begin
inherited;
IsAllTab := (cxTabControl1.TabIndex = 0);
tbStart.Visible := IsAllTab;
TBEdit.Visible := IsAllTab;
TBMLEdit.Visible := IsAllTab;
TBDel.Visible := IsAllTab;
tbPause.Visible := not IsAllTab;
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothInfo.TBRafreshClick(Sender: TObject); procedure TfrmTatClothInfo.TBRafreshClick(Sender: TObject);
begin begin
InitTree(); InitTree();
InitGrid(); InitGrid();
end; end;
procedure TfrmTatClothInfo.tbStartClick(Sender: TObject);
var
MBCIIDS: string;
begin
inherited;
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
MBCIIDS := '';
CDS_1.DisableControls;
try
CDS_1.First;
while not CDS_1.Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if MBCIIDS <> '' then
MBCIIDS := MBCIIDS + ',' + QuotedStr(Trim(CDS_1.fieldbyname('BCIID').AsString))
else
MBCIIDS := QuotedStr(Trim(CDS_1.fieldbyname('BCIID').AsString));
end;
CDS_1.Next;
end;
finally
CDS_1.EnableControls;
end;
if MBCIIDS = '' then
Exit;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add('update BS_Cloth_Info set Status = 5 where BCIID in (' + MBCIIDS + ')');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
SQL.Add(' ' + QuotedStr(Trim(DName)));
SQL.Add(',getdate() ');
SQL.Add(',' + QuotedStr(Trim(self.Caption)));
SQL.Add(',' + QuotedStr(Trim('开始使用')));
SQL.Add(',' + QuotedStr(Trim(MBCIIDS)));
SQL.Add(',' + QuotedStr(Trim('成功')));
SQL.Add(')');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
CDS_1.DisableControls;
try
CDS_1.First;
while not CDS_1.Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
CDS_1.Edit;
CDS_1.fieldbyname('Status').AsInteger := 5;
CDS_1.Post;
end;
CDS_1.Next;
end;
finally
CDS_1.EnableControls;
end;
Application.MessageBox('操作成功！', '提示信息');
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTatClothInfo.TBFilterClick(Sender: TObject); procedure TfrmTatClothInfo.TBFilterClick(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
@ -676,6 +803,92 @@ begin
end; end;
procedure TfrmTatClothInfo.tbPauseClick(Sender: TObject);
var
MBCIIDS: string;
begin
inherited;
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
MBCIIDS := '';
CDS_1.DisableControls;
try
CDS_1.First;
while not CDS_1.Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if MBCIIDS <> '' then
MBCIIDS := MBCIIDS + ',' + QuotedStr(Trim(CDS_1.fieldbyname('BCIID').AsString))
else
MBCIIDS := QuotedStr(Trim(CDS_1.fieldbyname('BCIID').AsString));
end;
CDS_1.Next;
end;
finally
CDS_1.EnableControls;
end;
if MBCIIDS = '' then
Exit;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add('update BS_Cloth_Info set Status = 0 where BCIID in (' + MBCIIDS + ')');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
SQL.Add(' ' + QuotedStr(Trim(DName)));
SQL.Add(',getdate() ');
SQL.Add(',' + QuotedStr(Trim(self.Caption)));
SQL.Add(',' + QuotedStr(Trim('暂停使用')));
SQL.Add(',' + QuotedStr(Trim(MBCIIDS)));
SQL.Add(',' + QuotedStr(Trim('成功')));
SQL.Add(')');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
CDS_1.DisableControls;
try
CDS_1.First;
while not CDS_1.Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
CDS_1.Edit;
CDS_1.fieldbyname('Status').AsInteger := 0;
CDS_1.Post;
end;
CDS_1.Next;
end;
finally
CDS_1.EnableControls;
end;
Application.MessageBox('操作成功！', '提示信息');
initGrid();
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTatClothInfo.N1Click(Sender: TObject); procedure TfrmTatClothInfo.N1Click(Sender: TObject);
begin begin
SelOKNoFiler(Tv1, True); SelOKNoFiler(Tv1, True);

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

@ -72,6 +72,8 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitLeft = -8
ExplicitTop = 32
object Label1: TLabel object Label1: TLabel
Left = 31 Left = 31
Top = 11 Top = 11
@ -268,6 +270,32 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label14: TLabel
Left = 675
Top = 130
Width = 65
Height = 12
Caption = #32463#32433#25209#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 675
Top = 156
Width = 65
Height = 12
Caption = #32428#32433#25209#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object C_Code: TEdit object C_Code: TEdit
Tag = 2 Tag = 2
Left = 93 Left = 93
@ -474,11 +502,27 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
object estimated_diff: TEdit object estimated_diff: TEdit
Tag = 2 Tag = 2
Left = 738 Left = 738
Top = 99 Top = 100
Width = 120 Width = 120
Height = 18 Height = 18
TabOrder = 14 TabOrder = 14
end end
object C_LongitudeBatchNo: TEdit
Tag = 2
Left = 738
Top = 128
Width = 120
Height = 18
TabOrder = 15
end
object C_LatitudeBatchNo: TEdit
Tag = 2
Left = 738
Top = 154
Width = 120
Height = 18
TabOrder = 16
end
end end
object cxPageControl3: TcxPageControl object cxPageControl3: TcxPageControl
Left = 0 Left = 0

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

@ -219,6 +219,10 @@ type
Label11: TLabel; Label11: TLabel;
estimated_diff: TEdit; estimated_diff: TEdit;
Label13: TLabel; Label13: TLabel;
C_LongitudeBatchNo: TEdit;
C_LatitudeBatchNo: TEdit;
Label14: TLabel;
Label16: TLabel;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);

1
E03梭织坯布检验/U_SCPersonColor5.pas
View File

@ -142,6 +142,7 @@ begin
sql.Clear; sql.Clear;
sql.Add('select AA.*,row_number () over (order by code) as keyNo from(select DISTINCT C_CODE as code, C_NAME as cname from Bs_CLOTH_INFO '); sql.Add('select AA.*,row_number () over (order by code) as keyNo from(select DISTINCT C_CODE as code, C_NAME as cname from Bs_CLOTH_INFO ');
//sql.Add('select AA.*,row_number () over (order by name) as keyNo from(select DISTINCT C_NAME as name from Bs_CLOTH_INFO '); //sql.Add('select AA.*,row_number () over (order by name) as keyNo from(select DISTINCT C_NAME as name from Bs_CLOTH_INFO ');
sql.Add(' WHERE ISNULL(Status,0) = 5 ');
if C_NAME.Text <> '' then if C_NAME.Text <> '' then
begin begin
//SQL.Add(' WHERE C_NAME LIKE ' + QUOTEDSTR('%' + C_NAME.Text + '%')); //SQL.Add(' WHERE C_NAME LIKE ' + QUOTEDSTR('%' + C_NAME.Text + '%'));

49
E03梭织坯布检验/U_TatClothInspList.dfm
View File

@ -132,6 +132,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick OnCellDblClick = Tv1CellDblClick
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]
@ -263,6 +264,22 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1C_LongBatchNo: TcxGridDBColumn
Caption = #32463#32433#25209#21495
DataBinding.FieldName = 'C_LongBatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1C_LatBatchNo: TcxGridDBColumn
Caption = #32428#32433#25209#21495
DataBinding.FieldName = 'C_LatBatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
Caption = #30133#28857#25968#37327 Caption = #30133#28857#25968#37327
DataBinding.FieldName = 'SumCIFNumber' DataBinding.FieldName = 'SumCIFNumber'
@ -351,6 +368,38 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1code_table_length: TcxGridDBColumn
Caption = #30721#34920#38271#24230
DataBinding.FieldName = 'code_table_length'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1CalcMeter: TcxGridDBColumn
Caption = #35745#31639#31859#25968
DataBinding.FieldName = 'CalcMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1EstimatedDiff: TcxGridDBColumn
Caption = #39044#35745#24046#20540
DataBinding.FieldName = 'EstimatedDiff'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1ActualDiff: TcxGridDBColumn
Caption = #23454#38469#24046#20540
DataBinding.FieldName = 'ActualDiff'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column20: TcxGridDBColumn object v1Column20: TcxGridDBColumn
Caption = #25171#30721#20154 Caption = #25171#30721#20154
DataBinding.FieldName = 'Filler' DataBinding.FieldName = 'Filler'

49
E03梭织坯布检验/U_TatClothInspList.pas
View File

@ -118,6 +118,12 @@ type
SpeedButton112: TSpeedButton; SpeedButton112: TSpeedButton;
SpeedButton110: TSpeedButton; SpeedButton110: TSpeedButton;
Tv1SumPoints: TcxGridDBColumn; Tv1SumPoints: TcxGridDBColumn;
Tv1code_table_length: TcxGridDBColumn;
Tv1CalcMeter: TcxGridDBColumn;
Tv1EstimatedDiff: TcxGridDBColumn;
Tv1ActualDiff: TcxGridDBColumn;
Tv1C_LongBatchNo: TcxGridDBColumn;
Tv1C_LatBatchNo: 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);
@ -148,6 +154,9 @@ type
procedure Button2Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
private private
DQdate: TDateTime; DQdate: TDateTime;
FLeft, FTop: Integer; FLeft, FTop: Integer;
@ -776,6 +785,46 @@ begin
end; end;
procedure TfrmTatClothInspList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
var
ATableView: TcxGridDBTableView;
AColActual, AColEstimated: TcxGridDBColumn;
vActual, vEstimated: Variant;
mActual, mEstimated: Double;
begin
inherited;
if AViewInfo.GridRecord = nil then
Exit;
if not (Sender is TcxGridDBTableView) then
Exit;
ATableView := TcxGridDBTableView(Sender);
AColActual := ATableView.GetColumnByFieldName('ActualDiff');
AColEstimated := ATableView.GetColumnByFieldName('EstimatedDiff');
if (AColActual = nil) or (AColEstimated = nil) then
Exit;
vActual := AViewInfo.GridRecord.Values[AColActual.Index];
vEstimated := AViewInfo.GridRecord.Values[AColEstimated.Index];
if VarIsNull(vActual) or VarIsEmpty(vActual) then
Exit;
if VarIsNull(vEstimated) or VarIsEmpty(vEstimated) then
Exit;
mActual := StrToFloatDef(VarToStr(vActual), 0);
mEstimated := StrToFloatDef(VarToStr(vEstimated), 0);
if mActual > mEstimated then
begin
ACanvas.Brush.Color := $00C0C0FF;
end;
end;
procedure TfrmTatClothInspList.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); procedure TfrmTatClothInspList.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var var
FValue: string; FValue: string;

174
E03梭织坯布检验/U_TatMachInsp.dfm
View File

@ -22,9 +22,9 @@
TabOrder = 2 TabOrder = 2
object Panel2: TPanel object Panel2: TPanel
Left = 1 Left = 1
Top = 129 Top = 171
Width = 487 Width = 487
Height = 638 Height = 596
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -500,10 +500,10 @@
ItemIndex = 0 ItemIndex = 0
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 6
Text = #30333#29677 Text = 'A'#29677
Items.Strings = ( Items.Strings = (
#30333#29677 'A'#29677
#22812#29677) 'B'#29677)
end end
object SCPerson: TcxButtonEdit object SCPerson: TcxButtonEdit
Left = 98 Left = 98
@ -871,7 +871,7 @@
end end
object code_table_length: TEdit object code_table_length: TEdit
Left = 98 Left = 98
Top = 11 Top = 6
Width = 114 Width = 114
Height = 32 Height = 32
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -887,7 +887,7 @@
Left = 1 Left = 1
Top = 1 Top = 1
Width = 487 Width = 487
Height = 128 Height = 170
Align = alTop Align = alTop
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
@ -1046,6 +1046,32 @@
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label58: TLabel
Left = 8
Top = 134
Width = 84
Height = 24
Caption = #32463#32433#25209#21495
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -20
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label59: TLabel
Left = 230
Top = 134
Width = 84
Height = 24
Caption = #32428#32433#25209#21495
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -20
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object PCId: TEdit object PCId: TEdit
Left = 480 Left = 480
Top = 83 Top = 83
@ -1228,6 +1254,38 @@
TabOrder = 11 TabOrder = 11
OnClick = Button10Click OnClick = Button10Click
end end
object C_LongitudeBatchNo: TEdit
Left = 98
Top = 132
Width = 114
Height = 32
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 12
OnChange = KZChange
end
object C_LatitudeBatchNo: TEdit
Left = 320
Top = 132
Width = 122
Height = 32
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 13
OnChange = KZChange
end
end end
end end
object ScrollBox1: TScrollBox [1] object ScrollBox1: TScrollBox [1]
@ -2640,6 +2698,30 @@
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv3CalcMeter: TcxGridDBColumn
Caption = #35745#31639#31859#25968
DataBinding.FieldName = 'CalcMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv3EstimatedDiff: TcxGridDBColumn
Caption = #39044#35745#24046#20540
DataBinding.FieldName = 'EstimatedDiff'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv3ActualDiff: TcxGridDBColumn
Caption = #23454#38469#24046#20540
DataBinding.FieldName = 'ActualDiff'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = Tv3 GridView = Tv3
@ -2652,7 +2734,7 @@
Height = 193 Height = 193
Align = alBottom Align = alBottom
TabOrder = 1 TabOrder = 1
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = 查看
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
ClientRectBottom = 191 ClientRectBottom = 191
ClientRectLeft = 2 ClientRectLeft = 2
@ -2974,34 +3056,34 @@
AutoSize = True AutoSize = True
Caption = #30133#28857#31649#29702 Caption = #30133#28857#31649#29702
ImageIndex = 2 ImageIndex = 2
Wrap = True
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 237 Left = 0
Top = 0 Top = 38
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
ImageIndex = 16 ImageIndex = 16
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object ToolButton6: TToolButton
Left = 332
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
Wrap = True
Visible = False
OnClick = ToolButton6Click
end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 0 Left = 95
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 7 ImageIndex = 7
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton6: TToolButton
Left = 166
Top = 38
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
Visible = False
OnClick = ToolButton6Click
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 1 Left = 1
@ -3143,7 +3225,7 @@
end end
object Label19: TLabel object Label19: TLabel
Left = 6 Left = 6
Top = 224 Top = 252
Width = 84 Width = 84
Height = 23 Height = 23
Caption = #31859#25968#20445#30041 Caption = #31859#25968#20445#30041
@ -3156,7 +3238,7 @@
end end
object Label20: TLabel object Label20: TLabel
Left = 161 Left = 161
Top = 224 Top = 252
Width = 21 Width = 21
Height = 23 Height = 23
Caption = #20301 Caption = #20301
@ -3168,8 +3250,8 @@
ParentFont = False ParentFont = False
end end
object Label21: TLabel object Label21: TLabel
Left = 6 Left = 5
Top = 255 Top = 286
Width = 84 Width = 84
Height = 23 Height = 23
Caption = #30721#25968#20445#30041 Caption = #30721#25968#20445#30041
@ -3182,7 +3264,7 @@
end end
object Label27: TLabel object Label27: TLabel
Left = 161 Left = 161
Top = 255 Top = 286
Width = 21 Width = 21
Height = 23 Height = 23
Caption = #20301 Caption = #20301
@ -3195,7 +3277,7 @@
end end
object Label28: TLabel object Label28: TLabel
Left = 161 Left = 161
Top = 286 Top = 315
Width = 21 Width = 21
Height = 23 Height = 23
Caption = #20301 Caption = #20301
@ -3208,7 +3290,7 @@
end end
object Label33: TLabel object Label33: TLabel
Left = 6 Left = 6
Top = 286 Top = 318
Width = 84 Width = 84
Height = 23 Height = 23
Caption = #37325#37327#20445#30041 Caption = #37325#37327#20445#30041
@ -3219,6 +3301,19 @@
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label57: TLabel
Left = 6
Top = 215
Width = 84
Height = 23
Caption = #21462#26368#22823#20540
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object edtChen: TEdit object edtChen: TEdit
Left = 54 Left = 54
Top = 52 Top = 52
@ -3372,7 +3467,7 @@
end end
object MPlace: TEdit object MPlace: TEdit
Left = 92 Left = 92
Top = 222 Top = 247
Width = 63 Width = 63
Height = 28 Height = 28
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -3388,7 +3483,7 @@
end end
object YPlace: TEdit object YPlace: TEdit
Left = 92 Left = 92
Top = 253 Top = 281
Width = 63 Width = 63
Height = 28 Height = 28
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -3404,7 +3499,7 @@
end end
object KgPlace: TEdit object KgPlace: TEdit
Left = 92 Left = 92
Top = 284 Top = 315
Width = 63 Width = 63
Height = 28 Height = 28
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -3418,6 +3513,23 @@
OnExit = MinLenExit OnExit = MinLenExit
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object edtMax: TEdit
Left = 96
Top = 213
Width = 30
Height = 28
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 12
Text = #8730
OnClick = edtMaxClick
OnKeyPress = MJstr3KeyPress
end
end end
object Panel3: TPanel [4] object Panel3: TPanel [4]
Left = 8 Left = 8

82
E03梭织坯布检验/U_TatMachInsp.pas
View File

@ -336,6 +336,15 @@ type
Label56: TLabel; Label56: TLabel;
Tv3code_table_length: TcxGridDBColumn; Tv3code_table_length: TcxGridDBColumn;
Tv3c_code: TcxGridDBColumn; Tv3c_code: TcxGridDBColumn;
Tv3CalcMeter: TcxGridDBColumn;
Tv3EstimatedDiff: TcxGridDBColumn;
Tv3ActualDiff: TcxGridDBColumn;
Label57: TLabel;
edtMax: TEdit;
C_LongitudeBatchNo: TEdit;
C_LatitudeBatchNo: TEdit;
Label58: TLabel;
Label59: 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);
@ -400,6 +409,7 @@ type
procedure weaver_nameClick(Sender: TObject); procedure weaver_nameClick(Sender: TObject);
procedure InputWeightChange(Sender: TObject); procedure InputWeightChange(Sender: TObject);
procedure KZChange(Sender: TObject); procedure KZChange(Sender: TObject);
procedure edtMaxClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FCIID, FOperationStatus, FCIFName, FWorkshop: string; FCIID, FOperationStatus, FCIFName, FWorkshop: string;
@ -719,6 +729,8 @@ begin
code_table_length.Text := ''; code_table_length.Text := '';
FLenUnit := ''; FLenUnit := '';
FLoom := ''; FLoom := '';
C_LongitudeBatchNo.Text := '';
C_LatitudeBatchNo.Text := '';
end; end;
procedure TfrmTatMachInsp.LookImage(FileName: string); procedure TfrmTatMachInsp.LookImage(FileName: string);
@ -1092,6 +1104,8 @@ begin
MF.Text := Trim(ADOTmp.FieldByName('C_Width').AsString); MF.Text := Trim(ADOTmp.FieldByName('C_Width').AsString);
KZ.Text := Trim(ADOTmp.FieldByName('C_GramWeight').AsString); KZ.Text := Trim(ADOTmp.FieldByName('C_GramWeight').AsString);
SPEC.Text := Trim(ADOTmp.FieldByName('C_SPEC').AsString); SPEC.Text := Trim(ADOTmp.FieldByName('C_SPEC').AsString);
C_LongitudeBatchNo.Text := Trim(ADOTmp.FieldByName('C_LongitudeBatchNo').AsString);
C_LatitudeBatchNo.Text := Trim(ADOTmp.FieldByName('C_LatitudeBatchNo').AsString);
FMainId := ''; FMainId := '';
FSubId := ''; FSubId := '';
@ -1104,6 +1118,8 @@ begin
MF.Text := ''; MF.Text := '';
KZ.Text := ''; KZ.Text := '';
SPEC.Text := ''; SPEC.Text := '';
C_LongitudeBatchNo.Text := '';
C_LatitudeBatchNo.Text := '';
end; end;
end; end;
@ -1234,14 +1250,25 @@ var
i1, i2: integer; i1, i2: integer;
unitname: string; unitname: string;
fdata: double; fdata: double;
MLen: string;
begin begin
i1 := Message.WParam; i1 := Message.WParam;
i2 := Message.LParam; i2 := Message.LParam;
if (trim(edtMaBiao.Text) = '√') then if (trim(edtMaBiao.Text) = '√') then
begin begin
InputLen.Text := format('%.1f', [i1 / 100000]); // InputLen.Text := format('%.1f', [i1 / 100000]);
code_table_length.Text := InputLen.Text; MLen := Format('%.1f', [i1 / 100000]);
if Trim(edtMax.Text) = '√' then
begin
code_table_length.Text := MLen;
end
else
begin
InputLen.Text := MLen;
code_table_length.Text := MLen;
end;
end; end;
if (trim(edtMBDW.Text) = '√') then if (trim(edtMBDW.Text) = '√') then
begin begin
@ -1321,25 +1348,28 @@ begin
SQL.Clear; SQL.Clear;
if FMainId <> '' then if FMainId <> '' then
begin begin
sql.Add('select A.*'); sql.Add('select A.*,');
sql.Add('from Tat_Cloth_Inspect A '); //where PCId=''' + Trim(FPCId) + ''''); sql.Add(' ROUND(ISNULL(TRY_CAST(A.GrossWeight AS decimal(18,4)) / NULLIF(TRY_CAST(A.C_GramWeight AS decimal(18,4)), 0), 0), 1) AS CalcMeter,');
sql.Add(' ISNULL((select top 1 TRY_CAST(B.estimated_diff AS decimal(18,4)) from Bs_Cloth_Info B where B.c_code = A.c_code), 0) AS EstimatedDiff,');
sql.Add(' ROUND(ABS(ISNULL(TRY_CAST(A.GrossWeight AS decimal(18,4)) / NULLIF(TRY_CAST(A.C_GramWeight AS decimal(18,4)), 0), 0) - ISNULL(TRY_CAST(A.code_table_length AS decimal(18,4)), 0)), 1) AS ActualDiff');
sql.Add('from Tat_Cloth_Inspect A ');
sql.Add('where mainid=' + quotedstr(fmainid)); sql.Add('where mainid=' + quotedstr(fmainid));
sql.Add('and filler=' + quotedstr(dname)); sql.Add('and filler=' + quotedstr(dname));
sql.Add('order by filltime desc'); sql.Add('order by filltime desc');
end end
else else
begin begin
sql.Add('select A.*'); sql.Add('select A.*,');
sql.Add('from Tat_Cloth_Inspect A '); //where PCId=''' + Trim(FPCId) + ''''); sql.Add(' ROUND(ISNULL(TRY_CAST(A.GrossWeight AS decimal(18,4)) / NULLIF(TRY_CAST(A.C_GramWeight AS decimal(18,4)), 0), 0), 1) AS CalcMeter,');
sql.Add(' ISNULL((select top 1 TRY_CAST(B.estimated_diff AS decimal(18,4)) from Bs_Cloth_Info B where B.c_code = A.c_code), 0) AS EstimatedDiff,');
sql.Add(' ROUND(ABS(ISNULL(TRY_CAST(A.GrossWeight AS decimal(18,4)) / NULLIF(TRY_CAST(A.C_GramWeight AS decimal(18,4)), 0), 0) - ISNULL(TRY_CAST(A.code_table_length AS decimal(18,4)), 0)), 1) AS ActualDiff');
sql.Add('from Tat_Cloth_Inspect A ');
sql.Add('where convert(varchar(10),filltime,120)=convert(varchar(10),getdate(),120)'); sql.Add('where convert(varchar(10),filltime,120)=convert(varchar(10),getdate(),120)');
sql.Add('and filler=' + quotedstr(dname)); sql.Add('and filler=' + quotedstr(dname));
sql.Add('and mainid=''无订单'''); sql.Add('and mainid=''无订单''');
sql.Add('order by filltime desc'); sql.Add('order by filltime desc');
end; end;
// ShowMessage(SQL.Text);
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_3); SCreateCDS(ADOQueryMain, CDS_3);
@ -1350,7 +1380,7 @@ begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select COUNT(*)JS,SUM(METER)METER'); sql.Add('select COUNT(*)JS,SUM(METER)METER');
sql.Add('from Tat_Cloth_Inspect A '); //where PCId=''' + Trim(FPCId) + ''''); sql.Add('from Tat_Cloth_Inspect A ');
sql.Add('where convert(varchar(10),filltime,120)=convert(varchar(10),getdate(),120)'); sql.Add('where convert(varchar(10),filltime,120)=convert(varchar(10),getdate(),120)');
sql.Add('and filler=' + quotedstr(dname)); sql.Add('and filler=' + quotedstr(dname));
sql.Add('and mainid=''无订单'''); sql.Add('and mainid=''无订单''');
@ -1361,7 +1391,6 @@ begin
LABEL45.Caption := '今日已打匹数:' + ADOTmp.FieldByName('JS').AsString; LABEL45.Caption := '今日已打匹数:' + ADOTmp.FieldByName('JS').AsString;
LABEL44.Caption := '今日已打长度:' + ADOTmp.FieldByName('METER').AsString; LABEL44.Caption := '今日已打长度:' + ADOTmp.FieldByName('METER').AsString;
end; end;
end; end;
procedure TfrmTatMachInsp.FormShow(Sender: TObject); procedure TfrmTatMachInsp.FormShow(Sender: TObject);
@ -1459,6 +1488,7 @@ var
maxno, MCIID, strsql: string; maxno, MCIID, strsql: string;
MInputLen, MMeter, MYardage: Double; MInputLen, MMeter, MYardage: Double;
MInputWeight, MGrossWeight, MNetWeight, MTare: Double; MInputWeight, MGrossWeight, MNetWeight, MTare: Double;
MUseLen: Double;
begin begin
fmainid := ''; fmainid := '';
fsubid := ''; fsubid := '';
@ -1512,14 +1542,26 @@ begin
/// ///
///////////////////////// 保存长度 ///////////////////////// ///////////////////////// 保存长度 /////////////////////////
MInputLen := RoundFloat(StrToFloatdef(trim(InputLen.Text), 0), 1); MInputLen := RoundFloat(StrToFloatdef(trim(InputLen.Text), 0), 1);
// 勾选 edtMax 时：取录入长度与码表长度中的较大值参与换算
if Trim(edtMax.Text) = '√' then
begin
if StrToFloatdef(trim(InputLen.Text), 0) >= StrToFloatdef(trim(code_table_length.Text), 0) then
MUseLen := StrToFloatdef(trim(InputLen.Text), 0)
else
MUseLen := StrToFloatdef(trim(code_table_length.Text), 0);
end
else
MUseLen := StrToFloatdef(trim(InputLen.Text), 0);
if lblLenUnit.Caption = 'M' then if lblLenUnit.Caption = 'M' then
begin begin
MMeter := RoundFloat(StrToFloatdef(trim(InputLen.Text), 0), StrTointdef(MPlace.Text, 0)); MMeter := RoundFloat(MUseLen, StrTointdef(MPlace.Text, 0));
MYardage := RoundFloat(MMeter / 0.9144, StrTointdef(YPlace.Text, 0)); MYardage := RoundFloat(MMeter / 0.9144, StrTointdef(YPlace.Text, 0));
end end
else else
begin begin
MYardage := RoundFloat((StrToFloatdef(trim(InputLen.Text), 0)), StrTointdef(YPlace.Text, 0)); MYardage := RoundFloat(MUseLen, StrTointdef(YPlace.Text, 0));
MMeter := RoundFloat(MYardage * 0.9144, StrTointdef(MPlace.Text, 0)); MMeter := RoundFloat(MYardage * 0.9144, StrTointdef(MPlace.Text, 0));
end; end;
@ -1529,7 +1571,7 @@ begin
FieldByName('LenUnit').Value := TRIM(lblLenUnit.Caption); FieldByName('LenUnit').Value := TRIM(lblLenUnit.Caption);
FieldByName('code_table_length').Value := FieldByName('code_table_length').Value :=
StrToFloatdef(Trim(code_table_length.Text), 0); StrToFloatdef(Trim(code_table_length.Text), 0);
///////////////////////// 保存长度 ///////////////////////// ///////////////////////// 保存长度 /////////////////////////
FieldByName('Coefficient').Value := StrToFloatdef(Coefficient.text, 0); FieldByName('Coefficient').Value := StrToFloatdef(Coefficient.text, 0);
@ -1560,6 +1602,8 @@ begin
FieldByName('PCId').value := FPCId; FieldByName('PCId').value := FPCId;
FieldByName('C_Code').value := trim(code.Text); FieldByName('C_Code').value := trim(code.Text);
FieldByName('C_Name').value := trim(codename.Text); FieldByName('C_Name').value := trim(codename.Text);
FieldByName('C_LongBatchNo').Value := Trim(C_LongitudeBatchNo.Text);
FieldByName('C_LatBatchNo').Value := Trim(C_LatitudeBatchNo.Text);
FieldByName('C_Spec').value := trim(Spec.Text); FieldByName('C_Spec').value := trim(Spec.Text);
FieldByName('C_Color').value := FC_Color; FieldByName('C_Color').value := FC_Color;
@ -1974,6 +2018,8 @@ begin
Self.MF.Text := Self.ADOTmp.FieldByName('C_Width').AsString; Self.MF.Text := Self.ADOTmp.FieldByName('C_Width').AsString;
Self.KZ.Text := Self.ADOTmp.FieldByName('C_GramWeight').AsString; Self.KZ.Text := Self.ADOTmp.FieldByName('C_GramWeight').AsString;
Self.SPEC.Text := Self.ADOTmp.FieldByName('C_SPEC').AsString; Self.SPEC.Text := Self.ADOTmp.FieldByName('C_SPEC').AsString;
Self.C_LongitudeBatchNo.Text := ADOTmp.fieldbyname('C_LongitudeBatchNo').AsString;
Self.C_LatitudeBatchNo.Text := ADOTmp.fieldbyname('C_LatitudeBatchNo').AsString;
end; end;
end; end;
finally finally
@ -2404,6 +2450,14 @@ begin
SetINIFile(); SetINIFile();
end; end;
procedure TfrmTatMachInsp.edtMaxClick(Sender: TObject);
begin
if Trim(TEdit(Sender).Text) = '' then
TEdit(Sender).Text := '√'
else
TEdit(Sender).Text := '';
end;
procedure TfrmTatMachInsp.edtYJClick(Sender: TObject); procedure TfrmTatMachInsp.edtYJClick(Sender: TObject);
begin begin
if Trim(TEdit(Sender).Text) = '' then if Trim(TEdit(Sender).Text) = '' then

8
E04梭织坯布仓库/U_TatClothStkHZList.dfm
View File

@ -179,10 +179,9 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitLeft = -8
ExplicitTop = 145
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -250,6 +249,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
object v1Column22: TcxGridDBColumn object v1Column22: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
@ -260,6 +260,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -267,6 +268,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
object v1Column23: TcxGridDBColumn object v1Column23: TcxGridDBColumn
Caption = #21367#25968 Caption = #21367#25968
DataBinding.FieldName = 'js' DataBinding.FieldName = 'js'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -274,6 +276,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'stkMeter' DataBinding.FieldName = 'stkMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -281,6 +284,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #30721#25968 Caption = #30721#25968
DataBinding.FieldName = 'StkYardage' DataBinding.FieldName = 'StkYardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 69 Width = 69
end end

2
E04梭织坯布仓库/U_TatClothStkHZList.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC,
System.StrUtils; System.StrUtils, dxSkinWXI, dxScrollbarAnnotations;
type type
TfrmTatClothStkHZList = class(TfrmBaseList) TfrmTatClothStkHZList = class(TfrmBaseList)

16
E04梭织坯布仓库/U_TatClothStkHZListSEL.dfm
View File

@ -327,6 +327,22 @@ inherited frmTatClothStkHZListSEL: TfrmTatClothStkHZListSEL
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 69 Width = 69
end end
object Tv1C_LongBatchNo: TcxGridDBColumn
Caption = #32463#32433#25209#21495
DataBinding.FieldName = 'C_LongBatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1C_LatBatchNo: TcxGridDBColumn
Caption = #32428#32433#25209#21495
DataBinding.FieldName = 'C_LatBatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

6
E04梭织坯布仓库/U_TatClothStkHZListSEL.pas
View File

@ -53,6 +53,8 @@ type
C_code: TEdit; C_code: TEdit;
Label1: TLabel; Label1: TLabel;
Tv1C_code: TcxGridDBColumn; Tv1C_code: TcxGridDBColumn;
Tv1C_LongBatchNo: TcxGridDBColumn;
Tv1C_LatBatchNo: 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);
@ -140,8 +142,8 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select C_NAME,C_code,COUNT(*)JS,SUM(stkMeter)stkMeter,SUM(StkYardage)StkYardage from V_Tat_Cloth_Stk AA where 1=1 ' + WSql); sql.Add('select C_NAME,C_code,C_LongBatchNo,C_LatBatchNo,COUNT(*)JS,SUM(stkMeter)stkMeter,SUM(StkYardage)StkYardage from V_Tat_Cloth_Stk AA where 1=1 ' + WSql);
sql.Add('group by C_NAME,C_code'); sql.Add('group by C_NAME,C_code,C_LongBatchNo,C_LatBatchNo');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;

70
E04梭织坯布仓库/U_TatClothStkList.dfm
View File

@ -7,8 +7,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -689
ExplicitTop = -56
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 639 ExplicitHeight = 639
PixelsPerInch = 96 PixelsPerInch = 96
@ -451,8 +449,11 @@ inherited frmTatClothStkList: TfrmTatClothStkList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 3 TabOrder = 3
ExplicitTop = 133
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
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]
@ -524,6 +525,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column22: TcxGridDBColumn object v1Column22: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
@ -534,6 +536,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column21: TcxGridDBColumn object v1Column21: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 103 Width = 103
@ -541,6 +544,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column32: TcxGridDBColumn object v1Column32: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'conNO' DataBinding.FieldName = 'conNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
@ -548,6 +552,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 78 Width = 78
@ -555,6 +560,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 74 Width = 74
@ -562,6 +568,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column13: TcxGridDBColumn object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -569,13 +576,31 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1C_LongBatchNo: TcxGridDBColumn
Caption = #32463#32433#25209#21495
DataBinding.FieldName = 'C_LongBatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1C_LatBatchNo: TcxGridDBColumn
Caption = #32428#32433#25209#21495
DataBinding.FieldName = 'C_LatBatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column18: TcxGridDBColumn object v1Column18: TcxGridDBColumn
Caption = #21345#21495 Caption = #21345#21495
DataBinding.FieldName = 'PCId' DataBinding.FieldName = 'PCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -583,6 +608,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column23: TcxGridDBColumn object v1Column23: TcxGridDBColumn
Caption = #21367#21495 Caption = #21367#21495
DataBinding.FieldName = 'PieceNo' DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -590,6 +616,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Caption = #27611#37325 Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight' DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -597,6 +624,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column27: TcxGridDBColumn object v1Column27: TcxGridDBColumn
Caption = #30382#37325 Caption = #30382#37325
DataBinding.FieldName = 'Tare' DataBinding.FieldName = 'Tare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -604,6 +632,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column28: TcxGridDBColumn object v1Column28: TcxGridDBColumn
Caption = #20928#37325 Caption = #20928#37325
DataBinding.FieldName = 'NetWeight' DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -611,23 +640,43 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'Meter' DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1EstimatedDiff: TcxGridDBColumn
Caption = #39044#35745#24046#20540
DataBinding.FieldName = 'EstimatedDiff'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1ActualDiff: TcxGridDBColumn
Caption = #23454#38469#24046#20540
DataBinding.FieldName = 'ActualDiff'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
Options.Editing = False Options.Editing = False
end end
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
Options.Editing = False Options.Editing = False
end end
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #24211#20301 Caption = #24211#20301
DataBinding.FieldName = 'IOPosition' DataBinding.FieldName = 'IOPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 71 Width = 71
@ -635,6 +684,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968 Caption = #30721#25968
DataBinding.FieldName = 'Yardage' DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -642,6 +692,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #21697#36136 Caption = #21697#36136
DataBinding.FieldName = 'Grade' DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -649,6 +700,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column42: TcxGridDBColumn object v1Column42: TcxGridDBColumn
Caption = #24635#35760#24405#25968 Caption = #24635#35760#24405#25968
DataBinding.FieldName = 'TotalCount' DataBinding.FieldName = 'TotalCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -656,6 +708,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #21367#26465#30721 Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID' DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -663,6 +716,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #23458#25143#33457#22411 Caption = #23458#25143#33457#22411
DataBinding.FieldName = 'C_CustPattern' DataBinding.FieldName = 'C_CustPattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -670,6 +724,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -677,6 +732,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -684,6 +740,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column34: TcxGridDBColumn object v1Column34: TcxGridDBColumn
Caption = #32568#26465#30721 Caption = #32568#26465#30721
DataBinding.FieldName = 'BCIOID' DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -691,6 +748,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column40: TcxGridDBColumn object v1Column40: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -698,6 +756,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object v1Column46: TcxGridDBColumn object v1Column46: TcxGridDBColumn
Caption = #26816#39564#26426#21488 Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo' DataBinding.FieldName = 'CIMachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -705,6 +764,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #26816#39564#24037 Caption = #26816#39564#24037
DataBinding.FieldName = 'jyg' DataBinding.FieldName = 'jyg'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -712,12 +772,14 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object VC_BaoID: TcxGridDBColumn object VC_BaoID: TcxGridDBColumn
Caption = #21253#26465#30721 Caption = #21253#26465#30721
DataBinding.FieldName = 'PacketId' DataBinding.FieldName = 'PacketId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
end end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -725,6 +787,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -732,6 +795,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #23436#25104#24230 Caption = #23436#25104#24230
DataBinding.FieldName = 'ClothDegree' DataBinding.FieldName = 'ClothDegree'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -739,6 +803,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #27454#21495 Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo' DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -746,6 +811,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #33521#25991#39068#33394 Caption = #33521#25991#39068#33394
DataBinding.FieldName = 'C_EColor' DataBinding.FieldName = 'C_EColor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66

38
E04梭织坯布仓库/U_TatClothStkList.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC,
System.StrUtils; System.StrUtils, dxSkinWXI, dxScrollbarAnnotations;
type type
TfrmTatClothStkList = class(TfrmBaseList) TfrmTatClothStkList = class(TfrmBaseList)
@ -96,6 +96,10 @@ type
PM_1: TPopupMenu; PM_1: TPopupMenu;
PM11: TMenuItem; PM11: TMenuItem;
N1: TMenuItem; N1: TMenuItem;
Tv1EstimatedDiff: TcxGridDBColumn;
Tv1ActualDiff: TcxGridDBColumn;
Tv1C_LongBatchNo: TcxGridDBColumn;
Tv1C_LatBatchNo: 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);
@ -117,6 +121,9 @@ type
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject); procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
private private
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
lstCust: TStringList; lstCust: TStringList;
@ -266,6 +273,35 @@ begin
SelOKNo(CDS_1, false); SelOKNo(CDS_1, false);
end; end;
procedure TfrmTatClothStkList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
var
vActual, vEstimated: Variant;
mActual, mEstimated: Double;
begin
inherited;
if AViewInfo.GridRecord = nil then
Exit;
vActual := AViewInfo.GridRecord.Values[Tv1ActualDiff.Index];
vEstimated := AViewInfo.GridRecord.Values[Tv1EstimatedDiff.Index];
if VarIsNull(vActual) or VarIsEmpty(vActual) then
Exit;
if VarIsNull(vEstimated) or VarIsEmpty(vEstimated) then
Exit;
mActual := StrToFloatDef(VarToStr(vActual), 0);
mEstimated := StrToFloatDef(VarToStr(vEstimated), 0);
if mActual > mEstimated then
begin
ACanvas.Brush.Color := $00C0C0FF;
end;
end;
procedure TfrmTatClothStkList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); procedure TfrmTatClothStkList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin begin
lstCust.Clear; lstCust.Clear;