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

cai 1.14

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2026-01-14 17:31:53 +08:00
parent 85dce630a4
commit a944322fac
90 changed files with 13775 additions and 1062 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,7 +10,6 @@ inherited frmCompanySel: TfrmCompanySel
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -42
ExplicitWidth = 909 ExplicitWidth = 909
ExplicitHeight = 597 ExplicitHeight = 597
PixelsPerInch = 96 PixelsPerInch = 96
@ -22,6 +21,7 @@ inherited frmCompanySel: TfrmCompanySel
Height = 476 Height = 476
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitTop = 76
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
OnDblClick = TV1DblClick OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -60,6 +60,13 @@ inherited frmCompanySel: TfrmCompanySel
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 159 Width = 159
end end
object TV1Saleser: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 119
end
object TV1Column4: TcxGridDBColumn object TV1Column4: TcxGridDBColumn
Caption = #23458#25143#22320#22336 Caption = #23458#25143#22320#22336
DataBinding.FieldName = 'CoAddress' DataBinding.FieldName = 'CoAddress'
@ -135,15 +142,47 @@ inherited frmCompanySel: TfrmCompanySel
Height = 12 Height = 12
Caption = #21517#31216 Caption = #21517#31216
end end
object Label2: TLabel
Left = 200
Top = 17
Width = 24
Height = 12
Caption = #31616#31216
end
object Label3: TLabel
Left = 382
Top = 17
Width = 36
Height = 12
Caption = #19994#21153#21592
end
object CoName: TEdit object CoName: TEdit
Tag = 2 Tag = 2
Left = 53 Left = 46
Top = 12 Top = 12
Width = 169 Width = 140
Height = 20 Height = 20
TabOrder = 0 TabOrder = 0
OnChange = CoNameChange OnChange = CoNameChange
end end
object CoAbbrName: TEdit
Tag = 2
Left = 228
Top = 12
Width = 140
Height = 20
TabOrder = 1
OnChange = CoNameChange
end
object Saleser: TEdit
Tag = 2
Left = 422
Top = 12
Width = 140
Height = 20
TabOrder = 2
OnChange = CoNameChange
end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1

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

@ -52,6 +52,11 @@ type
cxBlue: TcxStyle; cxBlue: TcxStyle;
SHuangSeCu: TcxStyle; SHuangSeCu: TcxStyle;
TV1Column4: TcxGridDBColumn; TV1Column4: TcxGridDBColumn;
TV1Saleser: TcxGridDBColumn;
Label2: TLabel;
CoAbbrName: TEdit;
Label3: TLabel;
Saleser: TEdit;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

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

@ -2,24 +2,23 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Left = 372 Left = 372
Top = 106 Top = 106
Caption = #20135#21697#20449#24687#36873#25321 Caption = #20135#21697#20449#24687#36873#25321
ClientHeight = 634 ClientHeight = 629
ClientWidth = 1485 ClientWidth = 1509
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -304 ExplicitWidth = 1525
ExplicitWidth = 1501 ExplicitHeight = 668
ExplicitHeight = 673
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1485 Width = 1509
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -37,16 +36,17 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = 5
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36873#25321 Caption = #36873#25321#23436#25104
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBSave: TToolButton object TBSave: TToolButton
Left = 71 Left = 95
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -55,7 +55,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
OnClick = TBSaveClick OnClick = TBSaveClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 166 Left = 190
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -67,7 +67,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Left = 0 Left = 0
Top = 82 Top = 82
Width = 216 Width = 216
Height = 552 Height = 547
Align = alLeft Align = alLeft
Bands = < Bands = <
item item
@ -85,6 +85,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
TabOrder = 1 TabOrder = 1
OnDblClick = cxDBTreeList1DblClick OnDblClick = cxDBTreeList1DblClick
ExplicitHeight = 552
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'CTName' DataBinding.FieldName = 'CTName'
Width = 210 Width = 210
@ -98,24 +99,24 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object Panel3: TPanel [2] object Panel3: TPanel [2]
Left = 216 Left = 216
Top = 82 Top = 82
Width = 1269 Width = 1293
Height = 552 Height = 547
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Caption = 'Panel3' Caption = 'Panel3'
TabOrder = 2 TabOrder = 2
ExplicitWidth = 1269
ExplicitHeight = 552
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 2 Left = 2
Top = 42 Top = 42
Width = 1265 Width = 642
Height = 314 Height = 309
Align = alClient Align = alLeft
TabOrder = 0 TabOrder = 0
ExplicitLeft = 6 ExplicitLeft = 6
ExplicitHeight = 508
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
@ -131,13 +132,13 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
OptionsData.Deleting = False OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object v1SSel: TcxGridDBColumn object Tv1SSel: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 39 Width = 38
end end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #31867#21035 Caption = #31867#21035
@ -187,21 +188,24 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object Panel7: TPanel object Panel7: TPanel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1265 Width = 1289
Height = 40 Height = 40
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 1 TabOrder = 1
ExplicitWidth = 1265
object Panel4: TPanel object Panel4: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1265 Width = 1289
Height = 40 Height = 40
Align = alClient Align = alClient
AutoSize = True AutoSize = True
TabOrder = 0 TabOrder = 0
ExplicitLeft = 4
ExplicitTop = -6
DesignSize = ( DesignSize = (
1265 1289
40) 40)
object Label14: TLabel object Label14: TLabel
Left = 19 Left = 19
@ -297,14 +301,15 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
end end
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 2 Left = 2
Top = 356 Top = 351
Width = 1265 Width = 1289
Height = 194 Height = 194
Align = alBottom Align = alBottom
TabOrder = 2 TabOrder = 2
ExplicitLeft = 6 ExplicitLeft = -50
ExplicitTop = 362 ExplicitTop = 357
object TV3: TcxGridDBTableView object TV3: TcxGridDBTableView
OnDblClick = TV3DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
@ -319,21 +324,12 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
OptionsData.Deleting = False OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object TV3Column1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 68
end
object cxGridDBColumn1: TcxGridDBColumn object cxGridDBColumn1: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_MXMF' DataBinding.FieldName = 'C_MXMF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 179 Width = 179
end end
end end
@ -341,16 +337,94 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
GridView = TV3 GridView = TV3
end end
end end
object cxGrid2: TcxGrid
Left = 644
Top = 42
Width = 647
Height = 309
Align = alClient
PopupMenu = PM_1
TabOrder = 3
ExplicitLeft = 650
ExplicitTop = 48
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
object cxGridDBColumn3: TcxGridDBColumn
Caption = #31867#21035
DataBinding.FieldName = 'CTName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 96
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_MXMF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object Tv2C_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv2
end
end
end end
object Panel1: TPanel [3] object Panel1: TPanel [3]
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1485 Width = 1509
Height = 44 Height = 44
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 3 TabOrder = 3
ExplicitTop = 34
object Label3: TLabel object Label3: TLabel
Left = 42 Left = 42
Top = 15 Top = 15
@ -4871,4 +4945,23 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Left = 1003 Left = 1003
Top = 508 Top = 508
end end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 1104
Top = 210
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 1232
Top = 226
end
object PM_1: TPopupMenu
Left = 1136
Top = 274
object N1: TMenuItem
Caption = #21024#38500
OnClick = N1Click
end
end
end end

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

@ -12,7 +12,7 @@ uses
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxTL, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxTL,
cxMaskEdit, cxTLdxBarBuiltInMenu, cxCheckBox, cxInplaceContainer, cxDBTL, cxMaskEdit, cxTLdxBarBuiltInMenu, cxCheckBox, cxInplaceContainer, cxDBTL,
cxTLData, math, dxScrollbarAnnotations; cxTLData, math, dxScrollbarAnnotations, Vcl.Menus;
type type
TfrmTatClothInfoSel = class(TfrmBaseHelp) TfrmTatClothInfoSel = class(TfrmBaseHelp)
@ -36,7 +36,6 @@ type
Panel3: TPanel; Panel3: TPanel;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1SSel: TcxGridDBColumn;
v1Column12: TcxGridDBColumn; v1Column12: TcxGridDBColumn;
v1CYNo: TcxGridDBColumn; v1CYNo: TcxGridDBColumn;
v1Column9: TcxGridDBColumn; v1Column9: TcxGridDBColumn;
@ -78,16 +77,28 @@ type
TV3: TcxGridDBTableView; TV3: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn1: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
TV3Column1: TcxGridDBColumn;
CDS_Sub: TClientDataSet; CDS_Sub: TClientDataSet;
DataSource3: TDataSource; DataSource3: TDataSource;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
CDS_2: TClientDataSet;
DS_2: TDataSource;
PM_1: TPopupMenu;
N1: TMenuItem;
Tv1SSel: TcxGridDBColumn;
Tv2C_Color: TcxGridDBColumn;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
procedure TV1DblClick(Sender: TObject);
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure TCBNOR1Change(Sender: TObject); procedure TCBNOR1Change(Sender: TObject);
@ -95,10 +106,13 @@ type
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure cxDBTreeList1DblClick(Sender: TObject); procedure cxDBTreeList1DblClick(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure N1Click(Sender: TObject);
procedure TV3DblClick(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
procedure InitGrid(); procedure InitGrid();
procedure InitTree(); procedure InitTree();
procedure InitGrid2();
{ Private declarations } { Private declarations }
public public
FCoType: string; FCoType: string;
@ -132,6 +146,15 @@ begin
cxDBTreeList1.Items[0].Expand(false); cxDBTreeList1.Items[0].Expand(false);
end; end;
procedure TfrmTatClothInfoSel.N1Click(Sender: TObject);
begin
if CDS_2.IsEmpty then
begin
Exit;
end;
CDS_2.Delete;
end;
procedure TfrmTatClothInfoSel.FormCreate(Sender: TObject); procedure TfrmTatClothInfoSel.FormCreate(Sender: TObject);
begin begin
inherited; inherited;
@ -251,6 +274,32 @@ begin
end; end;
procedure TfrmTatClothInfoSel.InitGrid2();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add(' select A.*,C_MXMF=cast('''' as varchar(30)),CTName =cast('''' as varchar(30)) from BS_Cloth_Info A where 1=2 ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmTatClothInfoSel.FormShow(Sender: TObject); procedure TfrmTatClothInfoSel.FormShow(Sender: TObject);
begin begin
inherited; inherited;
@ -262,6 +311,7 @@ begin
InitTree(); InitTree();
InitGrid(); InitGrid();
InitGrid2();
end; end;
procedure TfrmTatClothInfoSel.TBCloseClick(Sender: TObject); procedure TfrmTatClothInfoSel.TBCloseClick(Sender: TObject);
@ -291,10 +341,7 @@ begin
ModalResult := 1; ModalResult := 1;
end; end;
procedure TfrmTatClothInfoSel.TV1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmTatClothInfoSel.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure TfrmTatClothInfoSel.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin begin
@ -310,6 +357,21 @@ begin
SInitCDSData(ADOQueryCmd, CDS_sub); SInitCDSData(ADOQueryCmd, CDS_sub);
end; end;
procedure TfrmTatClothInfoSel.TV3DblClick(Sender: TObject);
begin
with CDS_2 do
begin
Append;
FieldByName('CTName').AsString := CDS_1.FieldByName('CTName').AsString;
FieldByName('C_Code').AsString := CDS_1.FieldByName('C_Code').AsString;
FieldByName('C_Name').AsString := CDS_1.FieldByName('C_Name').AsString;
FieldByName('C_Color').AsString := CDS_1.FieldByName('C_Color').AsString;
FieldByName('C_GramWeight').AsString := CDS_1.FieldByName('C_GramWeight').AsString;
FieldByName('C_MXMF').AsString := CDS_Sub.FieldByName('C_MXMF').AsString;
post;
end;
end;
procedure TfrmTatClothInfoSel.FormDestroy(Sender: TObject); procedure TfrmTatClothInfoSel.FormDestroy(Sender: TObject);
begin begin
inherited; inherited;

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

@ -13,17 +13,17 @@
<Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.dfm=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.dfm=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.368,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.368,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10szXIANGYING"/> <File Path="..\..\D10szXIANGYING"/>

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

Binary file not shown.

48
A01基础公司管理/U_CustInput.dfm
View File

@ -283,24 +283,6 @@ object frmCustInput: TfrmCustInput
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 6
OnBtnUpClick = cocountryBtnUpClick
OnBtnDnClick = cocountryBtnDnClick
end
object CoBusinessType: TBtnEditC
Tag = 2
Left = 742
Top = 31
Width = 140
Height = 20
Hint = 'CoBusinessType/'#23458#25143#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
OnBtnUpClick = cocountryBtnUpClick
OnBtnDnClick = cocountryBtnDnClick OnBtnDnClick = cocountryBtnDnClick
end end
object ParentCoName: TBtnEditC object ParentCoName: TBtnEditC
@ -316,7 +298,7 @@ object frmCustInput: TfrmCustInput
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
ReadOnly = True ReadOnly = True
TabOrder = 8 TabOrder = 7
OnBtnUpClick = ParentCoNameBtnUpClick OnBtnUpClick = ParentCoNameBtnUpClick
OnBtnDnClick = cocountryBtnDnClick OnBtnDnClick = cocountryBtnDnClick
end end
@ -332,7 +314,7 @@ object frmCustInput: TfrmCustInput
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 9 TabOrder = 8
OnBtnUpClick = SaleserBtnUpClick OnBtnUpClick = SaleserBtnUpClick
OnBtnDnClick = cocountryBtnDnClick OnBtnDnClick = cocountryBtnDnClick
end end
@ -341,7 +323,7 @@ object frmCustInput: TfrmCustInput
Left = 71 Left = 71
Top = 224 Top = 224
Width = 140 Width = 140
Height = 22 Height = 20
Hint = 'khdept/'#37096#38376 Hint = 'khdept/'#37096#38376
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -349,10 +331,20 @@ object frmCustInput: TfrmCustInput
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 10 TabOrder = 9
OnBtnUpClick = cocountryBtnUpClick
OnBtnDnClick = cocountryBtnDnClick OnBtnDnClick = cocountryBtnDnClick
end end
object CoBusinessType: TComboBox
Tag = 2
Left = 742
Top = 28
Width = 145
Height = 22
TabOrder = 10
Items.Strings = (
#32463#38144#21830
#21152#24037#21378)
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
@ -420,6 +412,7 @@ object frmCustInput: TfrmCustInput
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
TabOrder = 1 TabOrder = 1
ExplicitLeft = 0
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -479,15 +472,6 @@ object frmCustInput: TfrmCustInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 86 Width = 86
end end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #25163#26426#21495
DataBinding.FieldName = 'PhoneNumber'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Width = 109
end
object cxGridDBColumn8: TcxGridDBColumn object cxGridDBColumn8: TcxGridDBColumn
DataBinding.FieldName = 'EMAIL' DataBinding.FieldName = 'EMAIL'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True

49
A01基础公司管理/U_CustInput.pas
View File

@ -51,7 +51,6 @@ type
cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn; cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn; cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel; cxGridLevel2: TcxGridLevel;
Label10: TLabel; Label10: TLabel;
@ -59,13 +58,13 @@ type
TV2Column2: TcxGridDBColumn; TV2Column2: TcxGridDBColumn;
cocountry: TBtnEditC; cocountry: TBtnEditC;
Label3: TLabel; Label3: TLabel;
CoBusinessType: TBtnEditC;
Label5: TLabel; Label5: TLabel;
ParentCoName: TBtnEditC; ParentCoName: TBtnEditC;
Label9: TLabel; Label9: TLabel;
Saleser: TBtnEditC; Saleser: TBtnEditC;
Label11: TLabel; Label11: TLabel;
dept: TBtnEditC; dept: TBtnEditC;
CoBusinessType: TComboBox;
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);
@ -76,7 +75,7 @@ type
procedure ToolButton7Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure cocountryBtnDnClick(Sender: TObject); procedure cocountryBtnDnClick(Sender: TObject);
procedure cocountryBtnUpClick(Sender: TObject); // procedure cocountryBtnUpClick(Sender: TObject);
procedure ParentCoNameBtnUpClick(Sender: TObject); procedure ParentCoNameBtnUpClick(Sender: TObject);
procedure SaleserBtnUpClick(Sender: TObject); procedure SaleserBtnUpClick(Sender: TObject);
private private
@ -161,28 +160,28 @@ begin
TBtnEditC(Sender).TxtCode := ''; TBtnEditC(Sender).TxtCode := '';
end; end;
procedure TfrmCustInput.cocountryBtnUpClick(Sender: TObject); //procedure TfrmCustInput.cocountryBtnUpClick(Sender: TObject);
var //var
fsj: string; // fsj: string;
FWZ: Integer; // FWZ: Integer;
begin //begin
fsj := Trim(TEdit(Sender).Hint); // fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj); // FWZ := Pos('/', fsj);
try // try
frmZDYHelp := TfrmZDYHelp.Create(Application); // frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do // with frmZDYHelp do
begin // begin
flag := Copy(fsj, 1, FWZ - 1); // flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); // flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then // if ShowModal = 1 then
begin // begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); // TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end; // end;
end; // end;
finally // finally
frmZDYHelp.Free; // frmZDYHelp.Free;
end; // end;
end; //end;
procedure TfrmCustInput.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmCustInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin

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

@ -7,7 +7,7 @@ inherited frmCustomer: TfrmCustomer
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -185 ExplicitLeft = -515
ExplicitWidth = 1382 ExplicitWidth = 1382
ExplicitHeight = 650 ExplicitHeight = 650
PixelsPerInch = 96 PixelsPerInch = 96
@ -154,7 +154,6 @@ inherited frmCustomer: TfrmCustomer
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 32
object Label3: TLabel object Label3: TLabel
Left = 190 Left = 190
Top = 13 Top = 13
@ -248,6 +247,8 @@ inherited frmCustomer: TfrmCustomer
Height = 309 Height = 309
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitLeft = 1
ExplicitTop = 94
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -329,6 +330,20 @@ inherited frmCustomer: TfrmCustomer
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Contacts: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'Contacts'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Telephone: TcxGridDBColumn
Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'Telephone'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
@ -421,6 +436,8 @@ inherited frmCustomer: TfrmCustomer
Height = 201 Height = 201
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 2
ExplicitTop = 6
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -481,15 +498,6 @@ inherited frmCustomer: TfrmCustomer
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 99 Width = 99
end end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #25163#26426#21495
DataBinding.FieldName = 'PhoneNumber'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Width = 102
end
object Tv2Column1: TcxGridDBColumn object Tv2Column1: TcxGridDBColumn
Caption = 'EMAIL' Caption = 'EMAIL'
DataBinding.FieldName = 'Email' DataBinding.FieldName = 'Email'

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

@ -67,7 +67,6 @@ type
cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn; cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn; Tv2Column1: TcxGridDBColumn;
v3Column2: TcxGridDBColumn; v3Column2: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel; cxGridLevel2: TcxGridLevel;
@ -88,6 +87,8 @@ type
Label5: TLabel; Label5: TLabel;
dept: TEdit; dept: TEdit;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Contacts: TcxGridDBColumn;
Tv1Telephone: 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);
@ -205,8 +206,10 @@ begin
Filtered := False; Filtered := False;
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' select * from BS_Company '); sql.Add(' select A.* ');
sql.Add(' where 1=1 ' + (WSql)); sql.Add(',Contacts = (select top 1 Contacts from Bs_Company_contact X where A.CoID = X.CoID) ');
sql.Add(',Telephone = (select top 1 Telephone from Bs_Company_contact X where A.CoID = X.CoID) ');
sql.Add(' from BS_Company A where 1=1 ' + (WSql));
sql.Add(' and CoType=''¿Í»§'' and Valid=''Y'' '); sql.Add(' and CoType=''¿Í»§'' and Valid=''Y'' ');
if Trim(FAuthority) = '¼Èë' then if Trim(FAuthority) = '¼Èë' then

9
A01基础公司管理/U_GetDllForm.pas
View File

@ -71,10 +71,11 @@ begin
if trim(DataBaseStr) = '' then if trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; server := '106.15.78.45,7781';
dtbase := 'HENGYANData'; pswd := 'rightsoft@2222';
user := 'rtsa';
pswd := 'rightsoft@5740'; dtbase := 'xiangyingszdata';
user := 'xiangyingsa';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// Parameters1 := '¼Èë'; // Parameters1 := '¼Èë';

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

Binary file not shown.

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

@ -1,49 +1,49 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.814,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.583,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.583,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.814,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions> </Transactions>

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

Binary file not shown.

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

@ -322,6 +322,8 @@ inherited frmClothInfo: TfrmClothInfo
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 6
ExplicitTop = 41
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -432,15 +434,6 @@ inherited frmClothInfo: TfrmClothInfo
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 58 Width = 58
end end
object v1Column11: TcxGridDBColumn
Caption = #22270#29255
DataBinding.FieldName = 'IsImg'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 57
end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #22635#21333#20154 Caption = #22635#21333#20154
DataBinding.FieldName = 'filler' DataBinding.FieldName = 'filler'
@ -473,6 +466,14 @@ inherited frmClothInfo: TfrmClothInfo
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column4: TcxGridDBColumn
Caption = #22270#29255
DataBinding.FieldName = 'IsImg'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

@ -83,7 +83,6 @@ type
PM_1: TPopupMenu; PM_1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
N2: TMenuItem; N2: TMenuItem;
v1Column11: TcxGridDBColumn;
Panel7: TPanel; Panel7: TPanel;
Panel4: TPanel; Panel4: TPanel;
Label14: TLabel; Label14: TLabel;
@ -118,6 +117,7 @@ type
ToolButton3: TToolButton; ToolButton3: TToolButton;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column4: 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);

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

@ -7,8 +7,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -280
ExplicitTop = -17
ExplicitWidth = 1460 ExplicitWidth = 1460
ExplicitHeight = 741 ExplicitHeight = 741
PixelsPerInch = 96 PixelsPerInch = 96
@ -324,6 +322,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 6
ExplicitTop = 39
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -424,34 +424,25 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Width = 68 Width = 68
end end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #24223#24067#31859#25968 Caption = #24223#24067#31859#25968'(<)'
DataBinding.FieldName = 'fbmeter' DataBinding.FieldName = 'fbmeter'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 69 Width = 97
end end
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #23567#21367#31859#25968 Caption = #23567#21367#31859#25968'(<)'
DataBinding.FieldName = 'XJMETER' DataBinding.FieldName = 'XJMETER'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 67 Width = 102
end end
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #27425#24067#20010#25968 Caption = #27425#24067#20010#25968'(>=)'
DataBinding.FieldName = 'CBGS' DataBinding.FieldName = 'CBGS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 86
end
object v1Column11: TcxGridDBColumn
Caption = #22270#29255
DataBinding.FieldName = 'IsImg'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 57
end end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #22635#21333#20154 Caption = #22635#21333#20154
@ -506,6 +497,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Align = alClient Align = alClient
AutoSize = True AutoSize = True
TabOrder = 0 TabOrder = 0
ExplicitLeft = 4
ExplicitTop = -6
DesignSize = ( DesignSize = (
1212 1212
40) 40)
@ -625,10 +618,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Align = alClient Align = alClient
Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289 Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
TabOrder = 0 TabOrder = 0
ExplicitLeft = 1
ExplicitTop = 42
ExplicitWidth = 1208
ExplicitHeight = 160
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 2 Left = 2
Top = 14 Top = 14
@ -638,9 +627,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
BevelInner = bvLowered BevelInner = bvLowered
BorderStyle = bsNone BorderStyle = bsNone
TabOrder = 0 TabOrder = 0
ExplicitTop = 15
ExplicitWidth = 1204
ExplicitHeight = 144
end end
end end
object cxGrid3: TcxGrid object cxGrid3: TcxGrid

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

@ -82,7 +82,6 @@ type
PM_1: TPopupMenu; PM_1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
N2: TMenuItem; N2: TMenuItem;
v1Column11: TcxGridDBColumn;
Panel7: TPanel; Panel7: TPanel;
Panel4: TPanel; Panel4: TPanel;
Label14: TLabel; Label14: TLabel;

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

Binary file not shown.

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

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

14
B02基础纱线仓库/U_YarnInfoInPut.dfm
View File

@ -17,9 +17,9 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
Height = 425 Height = 425
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitTop = 30
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource3 DataController.DataSource = DataSource3
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -48,6 +48,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
object VC_Type: TcxGridDBColumn object VC_Type: TcxGridDBColumn
Caption = #31867#22411 Caption = #31867#22411
DataBinding.FieldName = 'Y_Type' DataBinding.FieldName = 'Y_Type'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 78 Width = 78
@ -55,12 +56,14 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Caption = #21697#29260 Caption = #21697#29260
DataBinding.FieldName = 'Brand' DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 100 Width = 100
end end
object v1Column18: TcxGridDBColumn object v1Column18: TcxGridDBColumn
Caption = #37319#36141#21152#24037#21512#21516#21495 Caption = #37319#36141#21152#24037#21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -76,6 +79,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
object v1Column15: TcxGridDBColumn object v1Column15: TcxGridDBColumn
Caption = #21697#29260 Caption = #21697#29260
DataBinding.FieldName = 'SXPinPai' DataBinding.FieldName = 'SXPinPai'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -90,12 +94,14 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
object v1SPName: TcxGridDBColumn object v1SPName: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'Y_Name' DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 101 Width = 101
end end
object v1SPSpec: TcxGridDBColumn object v1SPSpec: TcxGridDBColumn
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec' DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 116 Width = 116
@ -103,6 +109,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
VisibleForCustomization = False VisibleForCustomization = False
@ -111,12 +118,14 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
object v1QtyUnit: TcxGridDBColumn object v1QtyUnit: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition' DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 96 Width = 96
end end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #36816#36153 Caption = #36816#36153
DataBinding.FieldName = 'YunFei' DataBinding.FieldName = 'YunFei'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
VisibleForCustomization = False VisibleForCustomization = False
@ -125,18 +134,21 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'Y_Color' DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = 'D'#25968 Caption = 'D'#25968
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 55 Width = 55
end end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 118 Width = 118
end end

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

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

1
B02基础纱线仓库/U_YarnInfoList.dfm
View File

@ -171,7 +171,6 @@ inherited frmYarnInfoList: TfrmYarnInfoList
Height = 475 Height = 475
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 87
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

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

@ -1,90 +1,62 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.341,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>2025-04-11 13:34:13.341,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="..\..\D10szXIANGYING"/>
<File Path="cloud-messaging.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10szHengYan"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

@ -1,49 +1,49 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions> </Transactions>

3
E03梭织坯布检验/TatInsp.dpr
View File

@ -31,7 +31,8 @@ uses
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_TatMachCutHZList in 'U_TatMachCutHZList.pas' {frmTatMachCutHZList}, U_TatMachCutHZList in 'U_TatMachCutHZList.pas' {frmTatMachCutHZList},
U_TatClothInspHZList in 'U_TatClothInspHZList.pas' {frmTatClothInspHZList}; U_TatClothInspHZList in 'U_TatClothInspHZList.pas' {frmTatClothInspHZList},
U_TatInspSHHZ in 'U_TatInspSHHZ.pas' {frmTatInspSHHZ};
{$R *.res} {$R *.res}

4
E03梭织坯布检验/TatInsp.dproj
View File

@ -163,6 +163,10 @@
<Form>frmTatClothInspHZList</Form> <Form>frmTatClothInspHZList</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_TatInspSHHZ.pas">
<Form>frmTatInspSHHZ</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

9
E03梭织坯布检验/TatInsp.dproj.local
View File

@ -24,12 +24,12 @@
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
@ -42,10 +42,11 @@
<Transaction>1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm</Transaction>
<Transaction>2025/11/24 13:58:34.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas</Transaction> <Transaction>2025/11/24 13:58:34.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas</Transaction>
<Transaction>2025/11/24 15:19:14.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas</Transaction> <Transaction>2025/11/24 15:19:14.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas</Transaction>
<Transaction>2025/12/19 14:11:54.000.060,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatInspSHHZ.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10szXIANGYING"/> <File Path="..\..\D10szXIANGYING"/>
@ -98,5 +99,7 @@
<File Path="U_TatMachCutHZList.dfm"/> <File Path="U_TatMachCutHZList.dfm"/>
<File Path="U_TatClothInspHZList.pas"/> <File Path="U_TatClothInspHZList.pas"/>
<File Path="U_TatClothInspHZList.dfm"/> <File Path="U_TatClothInspHZList.dfm"/>
<File Path="U_TatInspSHHZ.pas"/>
<File Path="U_TatInspSHHZ.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

BIN
E03梭织坯布检验/TatInsp.identcache
View File

Binary file not shown.

3
E03梭织坯布检验/TatInspFile.INI
View File

@ -7,7 +7,7 @@
码表调用Dll文件= 码表调用Dll文件=
启用码表Dll文件=0 启用码表Dll文件=0
启用码表单位=0 启用码表单位=0
标签份数= 标签份数=2
米数下限=1 米数下限=1
米数上限=100 米数上限=100
重量下限=1 重量下限=1
@ -15,3 +15,4 @@
米数小数位=1 米数小数位=1
码数小数位=1 码数小数位=1
重量小数位=0 重量小数位=0
扣米=2

14
E03梭织坯布检验/U_GetDllForm.pas
View File

@ -16,7 +16,7 @@ implementation
uses uses
U_DataLink, U_iniParam, U_TatMachInsp, U_TatClothInspList, U_LabelPrint, U_DataLink, U_iniParam, U_TatMachInsp, U_TatClothInspList, U_LabelPrint,
U_TatMachCutHZList,U_TatClothInspHZList; U_TatMachCutHZList, U_TatClothInspHZList,U_TatInspSHHZ;
///////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 // // 功能说明:取Dll中得窗体 //
@ -175,6 +175,18 @@ begin
end; end;
end; end;
411: //ËðºÄ»ã×Ü
begin
with TfrmTatInspSHHZ.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
10000: 10000:
begin begin
for i := 0 to application.MainForm.MDIChildCount - 1 do for i := 0 to application.MainForm.MDIChildCount - 1 do

100
E03梭织坯布检验/U_TatClothInspHZList.dfm
View File

@ -254,8 +254,8 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 103
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
@ -364,27 +364,21 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column19
end end
item item
Kind = skSum Kind = skSum
Column = Tv1YDpf
end end
item item
Kind = skSum Kind = skSum
Column = Tv1xjPF
end end
item item
Kind = skSum Kind = skSum
Column = Tv1edpf
end end
item item
Kind = skSum Kind = skSum
Column = Tv1cspf
end end
item item
Kind = skSum Kind = skSum
Column = Tv1fqPF
end end
item item
Kind = skSum Kind = skSum
@ -396,7 +390,6 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
end end
item item
Kind = skSum Kind = skSum
Column = Tv1FBPF
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -429,15 +422,14 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'DXMF' DataBinding.FieldName = 'DXMF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.CellMerging = True Width = 80
Width = 72
OnCompareRowValuesForCellMerging = Tv1DXMFCompareRowValuesForCellMerging
end end
object Tv1dxmeter: TcxGridDBColumn object Tv1dxmeter: TcxGridDBColumn
Caption = #23450#22411#31859#25968 Caption = #23450#22411#31859#25968
DataBinding.FieldName = 'dxmeter' DataBinding.FieldName = 'dxmeter'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True Options.CellMerging = True
Width = 80 Width = 80
OnCompareRowValuesForCellMerging = Tv1dxmeterCompareRowValuesForCellMerging OnCompareRowValuesForCellMerging = Tv1dxmeterCompareRowValuesForCellMerging
@ -447,6 +439,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'Carno' DataBinding.FieldName = 'Carno'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True Options.CellMerging = True
Width = 90 Width = 90
OnCompareRowValuesForCellMerging = Tv1CarnoCompareRowValuesForCellMerging OnCompareRowValuesForCellMerging = Tv1CarnoCompareRowValuesForCellMerging
@ -456,6 +449,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'pcid' DataBinding.FieldName = 'pcid'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True Options.CellMerging = True
Width = 68 Width = 68
OnCompareRowValuesForCellMerging = Tv1PCIDCompareRowValuesForCellMerging OnCompareRowValuesForCellMerging = Tv1PCIDCompareRowValuesForCellMerging
@ -465,6 +459,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'CIMachNo' DataBinding.FieldName = 'CIMachNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True Options.CellMerging = True
Width = 80 Width = 80
OnCompareRowValuesForCellMerging = Tv1CIMachNoCompareRowValuesForCellMerging OnCompareRowValuesForCellMerging = Tv1CIMachNoCompareRowValuesForCellMerging
@ -474,6 +469,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'BCIOID' DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True Options.CellMerging = True
Width = 80 Width = 80
OnCompareRowValuesForCellMerging = Tv1BCIOIDCompareRowValuesForCellMerging OnCompareRowValuesForCellMerging = Tv1BCIOIDCompareRowValuesForCellMerging
@ -486,6 +482,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
Properties.DecimalPlaces = 2 Properties.DecimalPlaces = 2
Properties.DisplayFormat = '0.00%' Properties.DisplayFormat = '0.00%'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True Options.CellMerging = True
Width = 90 Width = 90
OnCompareRowValuesForCellMerging = Tv1qgSLCompareRowValuesForCellMerging OnCompareRowValuesForCellMerging = Tv1qgSLCompareRowValuesForCellMerging
@ -495,6 +492,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'qgMeter' DataBinding.FieldName = 'qgMeter'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True Options.CellMerging = True
Width = 90 Width = 90
OnCompareRowValuesForCellMerging = Tv1qgMeterCompareRowValuesForCellMerging OnCompareRowValuesForCellMerging = Tv1qgMeterCompareRowValuesForCellMerging
@ -506,6 +504,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.0%' Properties.DisplayFormat = '0.0%'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90 Width = 90
end end
object Tv1Column21: TcxGridDBColumn object Tv1Column21: TcxGridDBColumn
@ -515,13 +514,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.0%' Properties.DisplayFormat = '0.0%'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 90 Options.Editing = False
end
object Tv1Column22: TcxGridDBColumn
Caption = #20999#21106#38376#24133
DataBinding.FieldName = 'C_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90 Width = 90
end end
object Tv1issp: TcxGridDBColumn object Tv1issp: TcxGridDBColumn
@ -529,6 +522,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'issp' DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True Options.CellMerging = True
Width = 80 Width = 80
OnCompareRowValuesForCellMerging = Tv1isspCompareRowValuesForCellMerging OnCompareRowValuesForCellMerging = Tv1isspCompareRowValuesForCellMerging
@ -538,6 +532,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
@ -545,6 +540,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'YDJs' DataBinding.FieldName = 'YDJs'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74 Width = 74
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
@ -552,13 +548,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'Ydqty' DataBinding.FieldName = 'Ydqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Options.Editing = False
end
object Tv1YDpf: TcxGridDBColumn
Caption = #20248#31561#24179#26041
DataBinding.FieldName = 'YDpf'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
@ -566,6 +556,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'xjJS' DataBinding.FieldName = 'xjJS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
@ -573,13 +564,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'xjqty' DataBinding.FieldName = 'xjqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Options.Editing = False
end
object Tv1xjPF: TcxGridDBColumn
Caption = #23567#21367#24179#26041
DataBinding.FieldName = 'xjPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
@ -587,6 +572,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'edJS' DataBinding.FieldName = 'edJS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
@ -594,13 +580,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'edqty' DataBinding.FieldName = 'edqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Options.Editing = False
end
object Tv1edpf: TcxGridDBColumn
Caption = #20108#31561#24179#26041
DataBinding.FieldName = 'edpf'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1Column17: TcxGridDBColumn object Tv1Column17: TcxGridDBColumn
@ -608,6 +588,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'csJS' DataBinding.FieldName = 'csJS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column18: TcxGridDBColumn object Tv1Column18: TcxGridDBColumn
@ -615,13 +596,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'csqty' DataBinding.FieldName = 'csqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Options.Editing = False
end
object Tv1cspf: TcxGridDBColumn
Caption = #27979#35797#24179#26041
DataBinding.FieldName = 'cspf'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1Column13: TcxGridDBColumn object Tv1Column13: TcxGridDBColumn
@ -629,6 +604,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'fqJS' DataBinding.FieldName = 'fqJS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column14: TcxGridDBColumn object Tv1Column14: TcxGridDBColumn
@ -636,13 +612,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'fqqty' DataBinding.FieldName = 'fqqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Options.Editing = False
end
object Tv1fqPF: TcxGridDBColumn
Caption = #20998#20999#24179#26041
DataBinding.FieldName = 'fqPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1fbJS: TcxGridDBColumn object Tv1fbJS: TcxGridDBColumn
@ -650,6 +620,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'fbJS' DataBinding.FieldName = 'fbJS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1fbqty: TcxGridDBColumn object Tv1fbqty: TcxGridDBColumn
@ -657,22 +628,9 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'fbqty' DataBinding.FieldName = 'fbqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1FBPF: TcxGridDBColumn
Caption = #24223#24067#24179#26041
DataBinding.FieldName = 'FBPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column19: TcxGridDBColumn
Caption = #25439#32791#24179#26041
DataBinding.FieldName = 'SHpf'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object Tv1Column15: TcxGridDBColumn object Tv1Column15: TcxGridDBColumn
DataBinding.FieldName = 'meterall' DataBinding.FieldName = 'meterall'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -749,5 +707,13 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
Caption = #20840#24323 Caption = #20840#24323
OnClick = PM11Click OnClick = PM11Click
end end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end end
end end

237
E03梭织坯布检验/U_TatClothInspHZList.pas
View File

@ -44,7 +44,6 @@ type
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn; v1Column22: TcxGridDBColumn;
Tv1C_Name: TcxGridDBColumn; Tv1C_Name: TcxGridDBColumn;
Tv1DXMF: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1PCID: TcxGridDBColumn; Tv1PCID: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
@ -57,7 +56,6 @@ type
Tv1Column14: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
Tv1dxmeter: TcxGridDBColumn; Tv1dxmeter: TcxGridDBColumn;
Tv1Carno: TcxGridDBColumn; Tv1Carno: TcxGridDBColumn;
@ -65,7 +63,6 @@ type
Tv1qgMeter: TcxGridDBColumn; Tv1qgMeter: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn; Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn; Tv1Column21: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn;
Tv1fbJS: TcxGridDBColumn; Tv1fbJS: TcxGridDBColumn;
Tv1fbqty: TcxGridDBColumn; Tv1fbqty: TcxGridDBColumn;
Tv1CIMachNo: TcxGridDBColumn; Tv1CIMachNo: TcxGridDBColumn;
@ -78,13 +75,10 @@ type
C_GramWeight: TEdit; C_GramWeight: TEdit;
Tv1Column15: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn;
Tv1Column23: TcxGridDBColumn; Tv1Column23: TcxGridDBColumn;
Tv1YDpf: TcxGridDBColumn;
Tv1edpf: TcxGridDBColumn;
Tv1xjPF: TcxGridDBColumn;
Tv1cspf: TcxGridDBColumn;
Tv1fqPF: TcxGridDBColumn;
Tv1FBPF: TcxGridDBColumn;
Tv1issp: TcxGridDBColumn; Tv1issp: TcxGridDBColumn;
N2: TMenuItem;
N3: TMenuItem;
Tv1DXMF: 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);
@ -118,11 +112,16 @@ type
procedure Tv1qgSLCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); procedure Tv1qgSLCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure Tv1qgMeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); procedure Tv1qgMeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure Tv1isspCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); procedure Tv1isspCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
lstCust: TStringList; lstCust: TStringList;
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations } { Private declarations }
public public
canshu1: string; canshu1: string;
@ -132,7 +131,7 @@ type
implementation implementation
uses uses
U_DataLink, U_RTFun, U_LabelPrint; U_DataLink, U_RTFun, U_LabelPrint, U_TatInspSHHZ, U_TatClothInspHZList2;
{$R *.dfm} {$R *.dfm}
@ -173,14 +172,131 @@ begin
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
// with ADOQueryMain do
// begin
// Filtered := False;
// Close;
// sql.Clear;
// sql.Add('select * from ( ');
// sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter,issp=isnull(A.issp,'''') ');
// sql.Add(' ,maX(B.C_Width) AS DXMF,A.CIMachNo,A.BCIOID ');
//// sql.Add(' ,CAST(isNull(A.dxmeter,''1'') AS DECIMAL(18,2)) ');
//
//// SQL.Add(' ,qgMeter=sum(meter+SHMeter)/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
//
// sql.Add(' ,meterall=(select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )');
// sql.Add(' ,C_Widthall= ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
//
// SQL.Add(' ,qgMeter=(select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
//
//// SQL.Add(' ,qgSL = ROUND((select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )*100 ');
//// sql.Add(' / ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1)/CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 2) ');
//
// SQL.Add(' ,qgSL = ROUND((CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) - (select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )');
// SQL.Add(' /ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) )*100 ');
// sql.Add(' /CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 3) ');
//
// SQL.Add(',SHpf=SUM(CASE WHEN ISNUMERIC(A.SHMETER) = 1 AND ISNUMERIC(A.C_WIDTH) = 1 ');
// SQL.Add(' THEN CAST(A.SHMETER AS DECIMAL(18,2))/100 * CAST(A.C_WIDTH AS DECIMAL(18,2)) ');
// SQL.Add(' ELSE 0 END)');
//
// SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )AS Ydqty');
// SQL.Add(',YDpf=SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
//
// SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END )AS edJS');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )AS edqty');
// SQL.Add(',edpf=SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
//
// SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END )AS xjJS');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )AS xjqty');
// SQL.Add(',xjpf=SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
//
// SQL.Add(',SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END )AS fbJS');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )AS fbqty');
// SQL.Add(',fbpf=SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
//
// SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )AS fqqty');
// SQL.Add(',fqpf=SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
//
//// SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN 1 ELSE 0 END )AS xhJS');
//// SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN A.meter ELSE 0 END )AS xhqty');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )AS csqty');
// SQL.Add(',cspf=SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
//
//
// // 添加优等率字段 - 优等卷数/(优等卷数+小卷卷数+二等卷数+测试卷数+分切卷数+废布卷数(排除米数为0的))
// SQL.Add(',YDRate=CAST(');
// SQL.Add(' CASE ');
// SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
// SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJS（排除米数为0）
// SQL.Add(' THEN 0 ');
// SQL.Add(' ELSE ');
// SQL.Add(' CAST(SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // 分子：YDJS
// SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
// SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS
// SQL.Add(' END ');
// SQL.Add('AS DECIMAL(18,4)) ');
//
// // 添加优等率字段 - 优等卷数/(优等卷数+小卷卷数+二等卷数+测试卷数+分切卷数+废布卷数(排除米数为0的))
// SQL.Add(',FBRate=CAST(');
// SQL.Add(' CASE ');
// SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
// SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJS（排除米数为0）
// SQL.Add(' THEN 0 ');
// SQL.Add(' ELSE ');
// SQL.Add(' CAST(SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // 分子：YDJS
// SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
// SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS
// SQL.Add(' END ');
// SQL.Add('AS DECIMAL(18,4)) ');
//
// SQL.Add('from Tat_Cloth_Inspect A ');
// SQL.Add(' left join BS_Cloth_IO B on A.BCIOID = B.BCIOID ');
// SQL.Add(' where (A.BEFOREC_WIDTH='''' OR A.BEFOREC_WIDTH is null) ');
// SQL.Add(' and (NOT EXISTS (select * from BS_Cloth_IO_mx X WHERE X.BCIOID = A.BCIOID and X.C_MXSHWidth is not NULL)) ');
// SQL.Add(' and A.GRADE<>''循环布'' ');
// SQL.Add(' and A.Carno<>'''' and A.Carno is not NULL ');
//
// SQL.Add(WSql1);
//
// sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter');
// sql.Add(' ,A.CIMachNo,A.BCIOID,isnull(A.issp,'''')');
//
// sql.add(' ) T where 1=1 ');
// SQL.Add(WSql);
// sql.Add(' Order By T.Carno,T.pcid,ISNULL(CAST(NULLIF(dxmeter, '''') AS DECIMAL), 0),BCIOID ');
//// showmessage(sql.text);
// Open;
// end;
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from ( '); sql.Add('select * from ( ');
sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter,A.issp '); sql.Add('select A.C_NAME,A.C_GramWeight,A.pcid,A.Carno,A.BCIOID,A.dxmeter,issp=isnull(A.issp,'''') ');
sql.Add(' ,maX(B.C_Width) AS DXMF,A.CIMachNo,A.BCIOID '); sql.Add(',maX(B.C_Width) AS DXMF,A.CIMachNo ');
// sql.Add(' ,CAST(isNull(A.dxmeter,''1'') AS DECIMAL(18,2)) '); // sql.Add(' ,CAST(isNull(A.dxmeter,''1'') AS DECIMAL(18,2)) ');
// SQL.Add(' ,qgMeter=sum(meter+SHMeter)/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) '); // SQL.Add(' ,qgMeter=sum(meter+SHMeter)/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
@ -197,35 +313,35 @@ begin
SQL.Add(' /ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) )*100 '); SQL.Add(' /ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) )*100 ');
sql.Add(' /CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 3) '); sql.Add(' /CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 3) ');
SQL.Add(',SHpf=SUM(CASE WHEN ISNUMERIC(A.SHMETER) = 1 AND ISNUMERIC(A.C_WIDTH) = 1 '); // SQL.Add(',SHpf=SUM(CASE WHEN ISNUMERIC(A.SHMETER) = 1 AND ISNUMERIC(A.C_WIDTH) = 1 ');
SQL.Add(' THEN CAST(A.SHMETER AS DECIMAL(18,2))/100 * CAST(A.C_WIDTH AS DECIMAL(18,2)) '); // SQL.Add(' THEN CAST(A.SHMETER AS DECIMAL(18,2))/100 * CAST(A.C_WIDTH AS DECIMAL(18,2)) ');
SQL.Add(' ELSE 0 END)'); // SQL.Add(' ELSE 0 END)');
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS'); SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )AS Ydqty'); SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )AS Ydqty');
SQL.Add(',YDpf=SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )*A.C_Width/100 '); // SQL.Add(',YDpf=SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END )AS edJS'); SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END )AS edJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )AS edqty'); SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )AS edqty');
SQL.Add(',edpf=SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )*A.C_Width/100 '); // SQL.Add(',edpf=SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END )AS xjJS'); SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END )AS xjJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )AS xjqty'); SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )AS xjqty');
SQL.Add(',xjpf=SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )*A.C_Width/100 '); // SQL.Add(',xjpf=SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
SQL.Add(',SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END )AS fbJS'); SQL.Add(',SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END )AS fbJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )AS fbqty'); SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )AS fbqty');
SQL.Add(',fbpf=SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )*A.C_Width/100 '); // SQL.Add(',fbpf=SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS'); SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )AS fqqty'); SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )AS fqqty');
SQL.Add(',fqpf=SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )*A.C_Width/100 '); // SQL.Add(',fqpf=SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN 1 ELSE 0 END )AS xhJS'); // SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN 1 ELSE 0 END )AS xhJS');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN A.meter ELSE 0 END )AS xhqty'); // SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN A.meter ELSE 0 END )AS xhqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS'); SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )AS csqty'); SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )AS csqty');
SQL.Add(',cspf=SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )*A.C_Width/100 '); // SQL.Add(',cspf=SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
// 添加优等率字段 - 优等卷数/(优等卷数+小卷卷数+二等卷数+测试卷数+分切卷数+废布卷数(排除米数为0的)) // 添加优等率字段 - 优等卷数/(优等卷数+小卷卷数+二等卷数+测试卷数+分切卷数+废布卷数(排除米数为0的))
@ -279,12 +395,12 @@ begin
SQL.Add(WSql1); SQL.Add(WSql1);
sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter'); sql.Add(' group by A.C_NAME,A.C_GramWeight,A.pcid,A.BCIOID,A.Carno,A.dxmeter');
sql.Add(' ,A.CIMachNo,A.BCIOID,A.issp'); sql.Add(' ,A.CIMachNo,isnull(A.issp,'''')');
sql.add(' ) T where 1=1 '); sql.add(' ) T where 1=1 ');
SQL.Add(WSql); SQL.Add(WSql);
sql.Add(' Order By T.Carno,T.pcid,BCIOID'); sql.Add(' Order By T.Carno,T.pcid,ISNULL(CAST(NULLIF(dxmeter, '''') AS DECIMAL), 0) ');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;
end; end;
@ -367,7 +483,14 @@ procedure TfrmTatClothInspHZList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
exit; exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1); TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end; end;
procedure TfrmTatClothInspHZList.orderNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmTatClothInspHZList.orderNoKeyPress(Sender: TObject; var Key: Char);
@ -459,10 +582,10 @@ begin
// exit; // exit;
// end; // end;
if (ARow1.Values[Tv1DXMF.Index] = ARow2.Values[Tv1DXMF.Index]) and (ARow1.Values[Tv1DXMF.Index] <> NULL) and (ARow2.Values[Tv1DXMF.Index] <> NULL) then // if (ARow1.Values[Tv1DXMF.Index] = ARow2.Values[Tv1DXMF.Index]) and (ARow1.Values[Tv1DXMF.Index] <> NULL) and (ARow2.Values[Tv1DXMF.Index] <> NULL) then
AAreEqual := True // AAreEqual := True
else // else
AAreEqual := False; // AAreEqual := False;
end; end;
@ -575,6 +698,34 @@ begin
lstCust.Clear; lstCust.Clear;
end; end;
procedure TfrmTatClothInspHZList.Tv1DblClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmTatClothInspHZList2 := TfrmTatClothInspHZList2.Create(Application);
with frmTatClothInspHZList2 do
begin
fEndDateTime := self.EndDate.DateTime;
fBegDateTime := Self.BegDate.DateTime;
fC_Name := Self.CDS_1.FieldByName('C_Name').AsString;
fissp := Self.CDS_1.FieldByName('issp').AsString;
fCarno := Self.CDS_1.FieldByName('Carno').AsString;
fpcid := Self.CDS_1.FieldByName('pcid').AsString;
if ShowModal = 1 then
begin
end;
end;
finally
frmTatClothInspHZList2.Free;
end;
end;
procedure TfrmTatClothInspHZList.Tv1dxmeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); procedure TfrmTatClothInspHZList.Tv1dxmeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin begin
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
@ -639,6 +790,36 @@ begin
SelOKNo(CDS_1, true); SelOKNo(CDS_1, true);
end; end;
procedure TfrmTatClothInspHZList.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothInspHZList.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatClothInspHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothInspHZList.ToolButton2Click(Sender: TObject); procedure TfrmTatClothInspHZList.ToolButton2Click(Sender: TObject);
var var
WSql: string; WSql: string;

791
E03梭织坯布检验/U_TatClothInspHZList2.dfm Normal file
View File

@ -0,0 +1,791 @@
inherited frmTatClothInspHZList2: TfrmTatClothInspHZList2
Left = 184
Top = 138
Caption = #26816#39564#20449#24687#27719#24635'2'
ClientHeight = 600
ClientWidth = 1540
Position = poScreenCenter
WindowState = wsMaximized
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatInsp.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBExport: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton4: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1540
Height = 67
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
object Label2: TLabel
Left = 70
Top = 36
Width = 12
Height = 13
Caption = #33267
end
object Label5: TLabel
Left = 190
Top = 10
Width = 52
Height = 12
Hint = '0'
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 358
Top = 10
Width = 26
Height = 12
Hint = '0'
Caption = #38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 190
Top = 36
Width = 52
Height = 12
Hint = '0'
Caption = #27969#36716#21345#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 358
Top = 36
Width = 26
Height = 12
Hint = '0'
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 88
Top = 6
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 1
end
object EndDate: TDateTimePicker
Left = 88
Top = 32
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 2
end
object begtime: TDateTimePicker
Left = 137
Top = 132
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 39780.000000000000000000
Kind = dtkTime
TabOrder = 3
end
object endTime: TDateTimePicker
Left = 137
Top = 156
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 0.999317129630071600
Kind = dtkTime
TabOrder = 4
end
object IsJYTime: TCheckBox
Left = 14
Top = 8
Width = 73
Height = 17
Caption = #26597#35810#26085#26399
Checked = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
State = cbChecked
TabOrder = 0
OnClick = IsJYTimeClick
end
object C_Name: TEdit
Tag = 2
Left = 245
Top = 6
Width = 100
Height = 21
Hint = '0'
TabOrder = 5
OnKeyPress = C_NameKeyPress
end
object C_width: TEdit
Tag = 2
Left = 384
Top = 6
Width = 100
Height = 21
Hint = '0'
TabOrder = 6
OnKeyPress = C_NameKeyPress
end
object pcid: TEdit
Tag = 2
Left = 245
Top = 32
Width = 100
Height = 21
Hint = '0'
TabOrder = 7
OnKeyPress = C_NameKeyPress
end
object C_GramWeight: TEdit
Tag = 2
Left = 384
Top = 32
Width = 100
Height = 21
Hint = '0'
TabOrder = 8
OnKeyPress = C_NameKeyPress
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 97
Width = 1540
Height = 503
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatInsp.cxImageList_bar
ParentFont = False
PopupMenu = PM_1
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #26816#39564#31995#25968'=#.##'
Kind = skAverage
end
item
Format = #25442#31639#31995#25968'=#.##'
Kind = skAverage
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column6
end
item
Kind = skSum
Column = Tv1Column1
end
item
Kind = skSum
Column = Tv1Column7
end
item
Kind = skSum
Column = Tv1Column8
end
item
Kind = skSum
Column = Tv1Column9
end
item
Kind = skSum
Column = Tv1Column10
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column13
end
item
Kind = skSum
Column = Tv1Column14
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column17
end
item
Kind = skSum
Column = Tv1Column18
end
item
Kind = skSum
Column = Tv1Column19
end
item
Kind = skSum
Column = Tv1YDpf
end
item
Kind = skSum
Column = Tv1xjPF
end
item
Kind = skSum
Column = Tv1edpf
end
item
Kind = skSum
Column = Tv1cspf
end
item
Kind = skSum
Column = Tv1fqPF
end
item
Kind = skSum
Column = Tv1fbJS
end
item
Kind = skSum
Column = Tv1fbqty
end
item
Kind = skSum
Column = Tv1FBPF
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
object v1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 66
end
object Tv1C_Name: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 66
OnCompareRowValuesForCellMerging = Tv1C_NameCompareRowValuesForCellMerging
end
object Tv1DXMF: TcxGridDBColumn
Caption = #23450#22411#38376#24133
DataBinding.FieldName = 'DXMF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 72
OnCompareRowValuesForCellMerging = Tv1DXMFCompareRowValuesForCellMerging
end
object Tv1dxmeter: TcxGridDBColumn
Caption = #23450#22411#31859#25968
DataBinding.FieldName = 'dxmeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 80
OnCompareRowValuesForCellMerging = Tv1dxmeterCompareRowValuesForCellMerging
end
object Tv1Carno: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'Carno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 90
OnCompareRowValuesForCellMerging = Tv1CarnoCompareRowValuesForCellMerging
end
object Tv1PCID: TcxGridDBColumn
Caption = #27969#36716#21345#21495
DataBinding.FieldName = 'pcid'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 68
OnCompareRowValuesForCellMerging = Tv1PCIDCompareRowValuesForCellMerging
end
object Tv1CIMachNo: TcxGridDBColumn
Caption = #20998#20999#26426#21488
DataBinding.FieldName = 'CIMachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 80
OnCompareRowValuesForCellMerging = Tv1CIMachNoCompareRowValuesForCellMerging
end
object Tv1BCIOID: TcxGridDBColumn
Caption = #20998#20999#21333#21495
DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 80
OnCompareRowValuesForCellMerging = Tv1BCIOIDCompareRowValuesForCellMerging
end
object Tv1qgSL: TcxGridDBColumn
Caption = #20999#21106#32553#29575
DataBinding.FieldName = 'qgSL'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DecimalPlaces = 2
Properties.DisplayFormat = '0.00%'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 90
OnCompareRowValuesForCellMerging = Tv1qgSLCompareRowValuesForCellMerging
end
object Tv1qgMeter: TcxGridDBColumn
Caption = #20999#21106#31859#25968
DataBinding.FieldName = 'qgMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 90
OnCompareRowValuesForCellMerging = Tv1qgMeterCompareRowValuesForCellMerging
end
object Tv1Column20: TcxGridDBColumn
Caption = #20248#31561#29575
DataBinding.FieldName = 'YDRate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.0%'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object Tv1Column21: TcxGridDBColumn
Caption = #24223#24067#29575
DataBinding.FieldName = 'FBRate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.0%'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object Tv1Column22: TcxGridDBColumn
Caption = #20999#21106#38376#24133
DataBinding.FieldName = 'C_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object Tv1issp: TcxGridDBColumn
Caption = #21452#21943
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 80
OnCompareRowValuesForCellMerging = Tv1isspCompareRowValuesForCellMerging
end
object Tv1Column4: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column6: TcxGridDBColumn
Caption = #20248#31561#21367#25968
DataBinding.FieldName = 'YDJs'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object Tv1Column1: TcxGridDBColumn
Caption = #20248#31561#31859#25968
DataBinding.FieldName = 'Ydqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1YDpf: TcxGridDBColumn
Caption = #20248#31561#24179#26041
DataBinding.FieldName = 'YDpf'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column9: TcxGridDBColumn
Caption = #23567#21367#21367#25968
DataBinding.FieldName = 'xjJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column10: TcxGridDBColumn
Caption = #23567#21367#31859#25968
DataBinding.FieldName = 'xjqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1xjPF: TcxGridDBColumn
Caption = #23567#21367#24179#26041
DataBinding.FieldName = 'xjPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column7: TcxGridDBColumn
Caption = #20108#31561#21367#25968
DataBinding.FieldName = 'edJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column8: TcxGridDBColumn
Caption = #20108#31561#31859#25968
DataBinding.FieldName = 'edqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1edpf: TcxGridDBColumn
Caption = #20108#31561#24179#26041
DataBinding.FieldName = 'edpf'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column17: TcxGridDBColumn
Caption = #27979#35797#21367#25968
DataBinding.FieldName = 'csJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column18: TcxGridDBColumn
Caption = #27979#35797#31859#25968
DataBinding.FieldName = 'csqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1cspf: TcxGridDBColumn
Caption = #27979#35797#24179#26041
DataBinding.FieldName = 'cspf'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column13: TcxGridDBColumn
Caption = #20998#20999#21367#25968
DataBinding.FieldName = 'fqJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column14: TcxGridDBColumn
Caption = #20998#20999#31859#25968
DataBinding.FieldName = 'fqqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1fqPF: TcxGridDBColumn
Caption = #20998#20999#24179#26041
DataBinding.FieldName = 'fqPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1fbJS: TcxGridDBColumn
Caption = #24223#24067#21367#25968
DataBinding.FieldName = 'fbJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1fbqty: TcxGridDBColumn
Caption = #24223#24067#31859#25968
DataBinding.FieldName = 'fbqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1FBPF: TcxGridDBColumn
Caption = #24223#24067#24179#26041
DataBinding.FieldName = 'FBPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column19: TcxGridDBColumn
Caption = #25439#32791#24179#26041
DataBinding.FieldName = 'SHpf'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object Tv1Column15: TcxGridDBColumn
DataBinding.FieldName = 'meterall'
DataBinding.IsNullValueType = True
Visible = False
end
object Tv1Column23: TcxGridDBColumn
DataBinding.FieldName = 'C_Widthall'
DataBinding.IsNullValueType = True
Visible = False
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatInsp.ADOLink
Left = 553
Top = 200
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatInsp.ADOLink
Left = 425
Top = 201
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatInsp.ADOLink
CommandTimeout = 600
Parameters = <>
Left = 148
Top = 280
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatInsp.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 252
Top = 260
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatInsp.ADOLink
LockType = ltReadOnly
CommandTimeout = 600
Parameters = <>
Left = 112
Top = 204
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 828
Top = 284
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 728
Top = 288
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
BeforeOpen = CDS_1BeforeOpen
Left = 776
Top = 284
end
object PM_1: TPopupMenu
Left = 560
Top = 384
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object PM11: TMenuItem
Caption = #20840#24323
OnClick = PM11Click
end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end
end

866
E03梭织坯布检验/U_TatClothInspHZList2.pas Normal file
View File

@ -0,0 +1,866 @@
unit U_TatClothInspHZList2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
U_BaseInput, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
U_BaseList, cxPC, System.StrUtils, dxScrollbarAnnotations, cxCurrencyEdit,
System.ImageList, Vcl.ImgList;
type
TfrmTatClothInspHZList2 = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_1: TClientDataSet;
begtime: TDateTimePicker;
endTime: TDateTimePicker;
IsJYTime: TCheckBox;
ToolButton4: TToolButton;
Label5: TLabel;
C_Name: TEdit;
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
Tv1C_Name: TcxGridDBColumn;
Tv1DXMF: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1PCID: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Tv1dxmeter: TcxGridDBColumn;
Tv1Carno: TcxGridDBColumn;
Tv1qgSL: TcxGridDBColumn;
Tv1qgMeter: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn;
Tv1fbJS: TcxGridDBColumn;
Tv1fbqty: TcxGridDBColumn;
Tv1CIMachNo: TcxGridDBColumn;
Tv1BCIOID: TcxGridDBColumn;
Label1: TLabel;
C_width: TEdit;
Label3: TLabel;
pcid: TEdit;
Label4: TLabel;
C_GramWeight: TEdit;
Tv1Column15: TcxGridDBColumn;
Tv1Column23: TcxGridDBColumn;
Tv1YDpf: TcxGridDBColumn;
Tv1edpf: TcxGridDBColumn;
Tv1xjPF: TcxGridDBColumn;
Tv1cspf: TcxGridDBColumn;
Tv1fqPF: TcxGridDBColumn;
Tv1FBPF: TcxGridDBColumn;
Tv1issp: TcxGridDBColumn;
N2: TMenuItem;
N3: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
procedure BTNPClick(Sender: TObject);
procedure BTLPClick(Sender: TObject);
procedure TCBNORChange(Sender: TObject);
procedure JYTypeChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure CDS_1BeforeOpen(DataSet: TDataSet);
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure Tv1PCIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure Tv1C_NameCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure Tv1DXMFCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure Tv1dxmeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure Tv1CarnoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure Tv1CIMachNoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure Tv1BCIOIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure Tv1qgSLCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure Tv1qgMeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure Tv1isspCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations }
public
fC_Name, fissp, fCarno, fpcid: string;
fEndDateTime,fBegDateTime : TDateTime;
{ Public declarations }
end;
var
frmTatClothInspHZList2: TfrmTatClothInspHZList2;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint, U_TatInspSHHZ;
{$R *.dfm}
procedure TfrmTatClothInspHZList2.SetStatus();
begin
end;
procedure TfrmTatClothInspHZList2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FreeAndNil(lstCust);
Action := caFree;
end;
procedure TfrmTatClothInspHZList2.FormCreate(Sender: TObject);
begin
inherited;
lstCust := TStringList.Create;
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 20;
end;
procedure TfrmTatClothInspHZList2.InitGrid();
var
WSql, WSql1: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
if Trim(WSql) <> '' then
WSql := ' and ' + WSql;
if IsJYTime.Checked then
begin
WSql1 := ' and A.FillTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
WSql1 := WSql1 + ' and A.FillTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
end;
try
ADOQueryMain.DisableControls;
// with ADOQueryMain do
// begin
// Filtered := False;
// Close;
// sql.Clear;
// sql.Add('select * from ( ');
// sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter,issp=isnull(A.issp,'''') ');
// sql.Add(' ,maX(B.C_Width) AS DXMF,A.CIMachNo,A.BCIOID ');
//// sql.Add(' ,CAST(isNull(A.dxmeter,''1'') AS DECIMAL(18,2)) ');
//
//// SQL.Add(' ,qgMeter=sum(meter+SHMeter)/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
//
// sql.Add(' ,meterall=(select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )');
// sql.Add(' ,C_Widthall= ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
//
// SQL.Add(' ,qgMeter=(select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
//
//// SQL.Add(' ,qgSL = ROUND((select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )*100 ');
//// sql.Add(' / ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1)/CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 2) ');
//
// SQL.Add(' ,qgSL = ROUND((CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) - (select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )');
// SQL.Add(' /ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) )*100 ');
// sql.Add(' /CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 3) ');
//
// SQL.Add(',SHpf=SUM(CASE WHEN ISNUMERIC(A.SHMETER) = 1 AND ISNUMERIC(A.C_WIDTH) = 1 ');
// SQL.Add(' THEN CAST(A.SHMETER AS DECIMAL(18,2))/100 * CAST(A.C_WIDTH AS DECIMAL(18,2)) ');
// SQL.Add(' ELSE 0 END)');
//
// SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )AS Ydqty');
// SQL.Add(',YDpf=SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
//
// SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END )AS edJS');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )AS edqty');
// SQL.Add(',edpf=SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
//
// SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END )AS xjJS');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )AS xjqty');
// SQL.Add(',xjpf=SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
//
// SQL.Add(',SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END )AS fbJS');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )AS fbqty');
// SQL.Add(',fbpf=SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
//
// SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )AS fqqty');
// SQL.Add(',fqpf=SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
//
//// SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN 1 ELSE 0 END )AS xhJS');
//// SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN A.meter ELSE 0 END )AS xhqty');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )AS csqty');
// SQL.Add(',cspf=SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
//
//
// // 添加优等率字段 - 优等卷数/(优等卷数+小卷卷数+二等卷数+测试卷数+分切卷数+废布卷数(排除米数为0的))
// SQL.Add(',YDRate=CAST(');
// SQL.Add(' CASE ');
// SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
// SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJS（排除米数为0）
// SQL.Add(' THEN 0 ');
// SQL.Add(' ELSE ');
// SQL.Add(' CAST(SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // 分子：YDJS
// SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
// SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS
// SQL.Add(' END ');
// SQL.Add('AS DECIMAL(18,4)) ');
//
// // 添加优等率字段 - 优等卷数/(优等卷数+小卷卷数+二等卷数+测试卷数+分切卷数+废布卷数(排除米数为0的))
// SQL.Add(',FBRate=CAST(');
// SQL.Add(' CASE ');
// SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
// SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJS（排除米数为0）
// SQL.Add(' THEN 0 ');
// SQL.Add(' ELSE ');
// SQL.Add(' CAST(SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // 分子：YDJS
// SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
// SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
// SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS
// SQL.Add(' END ');
// SQL.Add('AS DECIMAL(18,4)) ');
//
// SQL.Add('from Tat_Cloth_Inspect A ');
// SQL.Add(' left join BS_Cloth_IO B on A.BCIOID = B.BCIOID ');
// SQL.Add(' where (A.BEFOREC_WIDTH='''' OR A.BEFOREC_WIDTH is null) ');
// SQL.Add(' and (NOT EXISTS (select * from BS_Cloth_IO_mx X WHERE X.BCIOID = A.BCIOID and X.C_MXSHWidth is not NULL)) ');
// SQL.Add(' and A.GRADE<>''循环布'' ');
// SQL.Add(' and A.Carno<>'''' and A.Carno is not NULL ');
//
// SQL.Add(WSql1);
//
// sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter');
// sql.Add(' ,A.CIMachNo,A.BCIOID,isnull(A.issp,'''')');
//
// sql.add(' ) T where 1=1 ');
// SQL.Add(WSql);
// sql.Add(' Order By T.Carno,T.pcid,ISNULL(CAST(NULLIF(dxmeter, '''') AS DECIMAL), 0),BCIOID ');
//// showmessage(sql.text);
// Open;
// end;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select * from ( ');
sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter,issp=isnull(A.issp,'''') ');
sql.Add(' ,maX(B.C_Width) AS DXMF,A.CIMachNo,A.BCIOID ');
// sql.Add(' ,CAST(isNull(A.dxmeter,''1'') AS DECIMAL(18,2)) ');
// SQL.Add(' ,qgMeter=sum(meter+SHMeter)/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
sql.Add(' ,meterall=(select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )');
sql.Add(' ,C_Widthall= ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
SQL.Add(' ,qgMeter=(select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
// SQL.Add(' ,qgSL = ROUND((select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )*100 ');
// sql.Add(' / ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1)/CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 2) ');
SQL.Add(' ,qgSL = ROUND((CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) - (select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )');
SQL.Add(' /ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) )*100 ');
sql.Add(' /CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 3) ');
SQL.Add(',SHpf=SUM(CASE WHEN ISNUMERIC(A.SHMETER) = 1 AND ISNUMERIC(A.C_WIDTH) = 1 ');
SQL.Add(' THEN CAST(A.SHMETER AS DECIMAL(18,2))/100 * CAST(A.C_WIDTH AS DECIMAL(18,2)) ');
SQL.Add(' ELSE 0 END)');
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )AS Ydqty');
SQL.Add(',YDpf=SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END )AS edJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )AS edqty');
SQL.Add(',edpf=SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END )AS xjJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )AS xjqty');
SQL.Add(',xjpf=SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
SQL.Add(',SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END )AS fbJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )AS fbqty');
SQL.Add(',fbpf=SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )AS fqqty');
SQL.Add(',fqpf=SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN 1 ELSE 0 END )AS xhJS');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN A.meter ELSE 0 END )AS xhqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )AS csqty');
SQL.Add(',cspf=SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
// 添加优等率字段 - 优等卷数/(优等卷数+小卷卷数+二等卷数+测试卷数+分切卷数+废布卷数(排除米数为0的))
SQL.Add(',YDRate=CAST(');
SQL.Add(' CASE ');
SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJS（排除米数为0）
SQL.Add(' THEN 0 ');
SQL.Add(' ELSE ');
SQL.Add(' CAST(SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // 分子：YDJS
SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS
SQL.Add(' END ');
SQL.Add('AS DECIMAL(18,4)) ');
// 添加优等率字段 - 优等卷数/(优等卷数+小卷卷数+二等卷数+测试卷数+分切卷数+废布卷数(排除米数为0的))
SQL.Add(',FBRate=CAST(');
SQL.Add(' CASE ');
SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJS（排除米数为0）
SQL.Add(' THEN 0 ');
SQL.Add(' ELSE ');
SQL.Add(' CAST(SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // 分子：YDJS
SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS
SQL.Add(' END ');
SQL.Add('AS DECIMAL(18,4)) ');
SQL.Add('from Tat_Cloth_Inspect A ');
SQL.Add(' left join BS_Cloth_IO B on A.BCIOID = B.BCIOID ');
SQL.Add(' where (A.BEFOREC_WIDTH='''' OR A.BEFOREC_WIDTH is null) ');
SQL.Add(' and (NOT EXISTS (select * from BS_Cloth_IO_mx X WHERE X.BCIOID = A.BCIOID and X.C_MXSHWidth is not NULL)) ');
SQL.Add(' and A.GRADE<>''循环布'' ');
SQL.Add(' and A.C_Name= ' + QuotedStr(Trim(fC_Name)));
SQL.Add(' and A.Carno= ' + QuotedStr(Trim(fCarno)));
SQL.Add(' and A.pcid= ' + QuotedStr(Trim(fpcid)));
SQL.Add(' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp)));
SQL.Add(WSql1);
sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter');
sql.Add(' ,A.CIMachNo,A.BCIOID,isnull(A.issp,'''')');
sql.add(' ) T where 1=1 ');
SQL.Add(WSql);
sql.Add(' Order By T.Carno,T.pcid,ISNULL(CAST(NULLIF(dxmeter, '''') AS DECIMAL), 0),BCIOID ');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
end;
procedure TfrmTatClothInspHZList2.IsJYTimeClick(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatClothInspHZList2.TBRafreshClick(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothInspHZList2.CDS_1BeforeOpen(DataSet: TDataSet);
begin
lstCust.Clear;
end;
procedure TfrmTatClothInspHZList2.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmTatClothInspHZList2.cxPageControl1Change(Sender: TObject);
begin
CurrentPage := 1;
SetStatus();
InitGrid();
end;
procedure TfrmTatClothInspHZList2.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmTatClothInspHZList2.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatClothInspHZList2.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '检验信息汇总2');
CurrentPage := 1;
RecordsNumber := 500;
SetStatus();
BegDate.DateTime := fBegDateTime;
EndDate.DateTime := fEndDateTime;
InitGrid();
end;
procedure TfrmTatClothInspHZList2.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end;
procedure TfrmTatClothInspHZList2.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
CurrentPage := 1;
InitGrid();
end;
end;
procedure TfrmTatClothInspHZList2.PM11Click(Sender: TObject);
begin
SelOKNo(CDS_1, false);
end;
procedure TfrmTatClothInspHZList2.Tv1PCIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
// begin
// AAreEqual := False;
// exit;
// end;
if (ARow1.Values[Tv1PCID.Index] = ARow2.Values[Tv1PCID.Index]) and (ARow1.Values[Tv1PCID.Index] <> NULL) then
AAreEqual := True
else
AAreEqual := False;
end;
procedure TfrmTatClothInspHZList2.Tv1qgMeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
begin
AAreEqual := False;
exit;
end;
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
// begin
// AAreEqual := False;
// exit;
// end;
if (ARow1.Values[Tv1qgMeter.Index] = ARow2.Values[Tv1qgMeter.Index]) and (ARow1.Values[Tv1qgMeter.Index] <> NULL) and (ARow2.Values[Tv1qgMeter.Index] <> NULL) then
AAreEqual := True
else
AAreEqual := False;
end;
procedure TfrmTatClothInspHZList2.Tv1qgSLCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
begin
AAreEqual := False;
exit;
end;
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
// begin
// AAreEqual := False;
// exit;
// end;
if (ARow1.Values[Tv1qgSL.Index] = ARow2.Values[Tv1qgSL.Index]) and (ARow1.Values[Tv1qgSL.Index] <> NULL) and (ARow2.Values[Tv1qgSL.Index] <> NULL) then
AAreEqual := True
else
AAreEqual := False;
end;
procedure TfrmTatClothInspHZList2.Tv1DXMFCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
begin
AAreEqual := False;
exit;
end;
// if (ARow1.Values[Tv1C_Name.Index] <> ARow2.Values[Tv1C_Name.Index]) or (ARow1.Values[Tv1C_Name.Index] = NULL) or (ARow2.Values[Tv1C_Name.Index] = NULL) then
// begin
// AAreEqual := False;
// exit;
// end;
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
// begin
// AAreEqual := False;
// exit;
// end;
if (ARow1.Values[Tv1DXMF.Index] = ARow2.Values[Tv1DXMF.Index]) and (ARow1.Values[Tv1DXMF.Index] <> NULL) and (ARow2.Values[Tv1DXMF.Index] <> NULL) then
AAreEqual := True
else
AAreEqual := False;
end;
procedure TfrmTatClothInspHZList2.Tv1isspCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
begin
AAreEqual := False;
exit;
end;
if (ARow1.Values[Tv1issp.Index] = ARow2.Values[Tv1issp.Index]) and (ARow1.Values[Tv1issp.Index] <> NULL) and (ARow2.Values[Tv1issp.Index] <> NULL) then
AAreEqual := True
else
AAreEqual := False;
end;
procedure TfrmTatClothInspHZList2.Tv1BCIOIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
begin
AAreEqual := False;
exit;
end;
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
// begin
// AAreEqual := False;
// exit;
// end;
if (ARow1.Values[Tv1BCIOID.Index] = ARow2.Values[Tv1BCIOID.Index]) and (ARow1.Values[Tv1BCIOID.Index] <> NULL) and (ARow2.Values[Tv1BCIOID.Index] <> NULL) then
AAreEqual := True
else
AAreEqual := False;
end;
procedure TfrmTatClothInspHZList2.Tv1CarnoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
begin
AAreEqual := False;
exit;
end;
// if (ARow1.Values[Tv1C_Name.Index] <> ARow2.Values[Tv1C_Name.Index]) or (ARow1.Values[Tv1C_Name.Index] = NULL) or (ARow2.Values[Tv1C_Name.Index] = NULL) then
// begin
// AAreEqual := False;
// exit;
// end;
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
// begin
// AAreEqual := False;
// exit;
// end;
if (ARow1.Values[Tv1Carno.Index] = ARow2.Values[Tv1Carno.Index]) and (ARow1.Values[Tv1Carno.Index] <> NULL) and (ARow2.Values[Tv1Carno.Index] <> NULL) then
AAreEqual := True
else
AAreEqual := False;
end;
procedure TfrmTatClothInspHZList2.Tv1CIMachNoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
begin
AAreEqual := False;
exit;
end;
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
// begin
// AAreEqual := False;
// exit;
// end;
if (ARow1.Values[Tv1CIMachNo.Index] = ARow2.Values[Tv1CIMachNo.Index]) and (ARow1.Values[Tv1CIMachNo.Index] <> NULL) and (ARow2.Values[Tv1CIMachNo.Index] <> NULL) then
AAreEqual := True
else
AAreEqual := False;
end;
procedure TfrmTatClothInspHZList2.Tv1C_NameCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
begin
AAreEqual := False;
exit;
end;
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
// begin
// AAreEqual := False;
// exit;
// end;
if (ARow1.Values[Tv1C_Name.Index] = ARow2.Values[Tv1C_Name.Index]) and (ARow1.Values[Tv1C_Name.Index] <> NULL) and (ARow2.Values[Tv1C_Name.Index] <> NULL) then
AAreEqual := True
else
AAreEqual := False;
end;
procedure TfrmTatClothInspHZList2.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstCust.Clear;
end;
procedure TfrmTatClothInspHZList2.Tv1dxmeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
begin
AAreEqual := False;
exit;
end;
// if (ARow1.Values[Tv1C_Name.Index] <> ARow2.Values[Tv1C_Name.Index]) or (ARow1.Values[Tv1C_Name.Index] = NULL) or (ARow2.Values[Tv1C_Name.Index] = NULL) then
// begin
// AAreEqual := False;
// exit;
// end;
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
// begin
// AAreEqual := False;
// exit;
// end;
if (ARow1.Values[Tv1dxmeter.Index] = ARow2.Values[Tv1dxmeter.Index]) and (ARow1.Values[Tv1dxmeter.Index] <> NULL) and (ARow2.Values[Tv1dxmeter.Index] <> NULL) then
AAreEqual := True
else
AAreEqual := False;
end;
procedure TfrmTatClothInspHZList2.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin
if lstCust <> nil then
AText := IntToStr(lstCust.Count);
end;
procedure TfrmTatClothInspHZList2.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid();
end;
procedure TfrmTatClothInspHZList2.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid();
end;
procedure TfrmTatClothInspHZList2.TCBNORChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothInspHZList2.JYTypeChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothInspHZList2.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, true);
end;
procedure TfrmTatClothInspHZList2.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothInspHZList2.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatClothInspHZList2.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothInspHZList2.ToolButton2Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end
else
begin
WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TradeClothStk';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatClothInspHZList2.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '检验信息汇总2');
end;
end.

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

@ -20,7 +20,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
AutoSize = True AutoSize = True
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 1 TabOrder = 1
ExplicitTop = 101
DesignSize = ( DesignSize = (
1463 1463
24) 24)
@ -649,7 +648,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
' '#27491#24335#25968#25454' ' ' '#27491#24335#25968#25454' '
' '#21024#38500#25968#25454' ') ' '#21024#38500#25968#25454' ')
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 136
ClientRectBottom = 445 ClientRectBottom = 445
ClientRectLeft = 2 ClientRectLeft = 2
ClientRectRight = 1465 ClientRectRight = 1465
@ -669,7 +667,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp OnMouseUp = Tv1MouseUp
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -1400,5 +1397,9 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Caption = #22797#21046 Caption = #22797#21046
OnClick = N1Click OnClick = N1Click
end end
object N2: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N2Click
end
end end
end end

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

@ -143,6 +143,7 @@ type
Tv1C_MXSHWidth: TcxGridDBColumn; Tv1C_MXSHWidth: TcxGridDBColumn;
stkInsert: TToolButton; stkInsert: TToolButton;
Tv1ISSP: TcxGridDBColumn; Tv1ISSP: TcxGridDBColumn;
N2: TMenuItem;
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);
@ -181,6 +182,7 @@ type
procedure cxTabControl1Change(Sender: TObject); procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure stkInsertClick(Sender: TObject); procedure stkInsertClick(Sender: TObject);
procedure N2Click(Sender: TObject);
private private
DQdate: TDateTime; DQdate: TDateTime;
FLeft, FTop: Integer; FLeft, FTop: Integer;
@ -189,6 +191,7 @@ type
function Savedata(): Boolean; function Savedata(): Boolean;
procedure SetStatus(); procedure SetStatus();
procedure PrintCKMDG(MRKOrdID: string); procedure PrintCKMDG(MRKOrdID: string);
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations } { Private declarations }
public public
FFInt: Integer; FFInt: Integer;
@ -268,7 +271,14 @@ procedure TfrmTatClothInspList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
Exit; Exit;
TcxGridToExcel(self.Caption, cxgrid1); with Order_Main do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end; end;
procedure TfrmTatClothInspList.PrintCKMDG(MRKOrdID: string); procedure TfrmTatClothInspList.PrintCKMDG(MRKOrdID: string);
@ -1224,6 +1234,30 @@ begin
end; end;
procedure TfrmTatClothInspList.N2Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatClothInspList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothInspList.RKOrdIDKeyPress(Sender: TObject; var Key: Char); procedure TfrmTatClothInspList.RKOrdIDKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then

682
E03梭织坯布检验/U_TatInspSHHZ.dfm Normal file
View File

@ -0,0 +1,682 @@
inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Left = 184
Top = 138
Caption = #25439#32791#27719#24635#21015#34920
ClientHeight = 600
ClientWidth = 1540
Position = poDesigned
Visible = True
WindowState = wsMaximized
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatInsp.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBExport: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton4: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 67
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
object Label2: TLabel
Left = 70
Top = 36
Width = 12
Height = 12
Caption = #33267
end
object Label5: TLabel
Left = 190
Top = 10
Width = 39
Height = 12
Hint = '0'
Caption = #20135#21697#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object label11: TLabel
Left = 363
Top = 10
Width = 26
Height = 12
Hint = '0'
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object label12: TLabel
Left = 190
Top = 35
Width = 52
Height = 12
Hint = '0'
Caption = #27969#36716#21345#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 88
Top = 6
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 1
end
object EndDate: TDateTimePicker
Left = 88
Top = 32
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 2
end
object begtime: TDateTimePicker
Left = 137
Top = 132
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 39780.000000000000000000
Kind = dtkTime
TabOrder = 3
end
object endTime: TDateTimePicker
Left = 137
Top = 156
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 0.999317129630071600
Kind = dtkTime
TabOrder = 4
end
object IsJYTime: TCheckBox
Left = 14
Top = 8
Width = 73
Height = 17
Caption = #26597#35810#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = IsJYTimeClick
end
object C_Name: TEdit
Tag = 2
Left = 242
Top = 6
Width = 100
Height = 20
Hint = '0'
TabOrder = 5
OnKeyPress = C_NameKeyPress
end
object C_GramWeight: TEdit
Tag = 2
Left = 395
Top = 6
Width = 100
Height = 20
Hint = '0'
TabOrder = 6
OnKeyPress = C_NameKeyPress
end
object PCId: TEdit
Tag = 2
Left = 242
Top = 32
Width = 100
Height = 20
Hint = '0'
TabOrder = 7
OnKeyPress = C_NameKeyPress
end
end
object Panel2: TPanel [2]
Left = 0
Top = 105
Width = 1540
Height = 495
Align = alClient
TabOrder = 2
ExplicitTop = 96
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 1538
Height = 493
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PM_1
TabOrder = 0
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #26816#39564#31995#25968'=#.##'
Kind = skAverage
end
item
Format = #25442#31639#31995#25968'=#.##'
Kind = skAverage
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1SH_TD1
end
item
Kind = skSum
Column = Tv1SH_ZW2
end
item
Kind = skSum
Column = Tv1SH_JT3
end
item
Kind = skSum
Column = Tv1SH_LTY4
end
item
Kind = skSum
Column = Tv1SH_DZ5
end
item
Kind = skSum
Column = Tv1SH_DJ6
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1SH_HD7
end
item
Kind = skSum
Column = Tv1SH_DS8
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1SH_HB9
end
item
Kind = skSum
Column = Tv1SH_SCZ10
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1SH_BB11
end
item
Kind = skSum
Column = Tv1SH_ZW12
end
item
Kind = skSum
Column = Tv1SH_HY13
end
item
Kind = skSum
Column = Tv1SH_DPB14
end
item
Kind = skSum
Column = Tv1SH_GJ15
end
item
Kind = skSum
Column = Tv1SH_YS16
end
item
Kind = skSum
Column = Tv1SH_KZ17
end
item
Kind = skSum
Column = Tv1SH_SC18
end
item
Kind = skSum
Column = Tv1SH_XY19
end
item
Kind = skSum
Column = Tv1SH_YD20
end
item
Kind = skSum
Column = Tv1SH_PD21
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.IncSearch = DataLink_TatInsp.SHuangSe
Styles.Footer = DataLink_TatInsp.Default
Styles.Header = DataLink_TatInsp.Default
Styles.Inactive = DataLink_TatInsp.SHuangSe
Styles.Selection = DataLink_TatInsp.SHuangSe
object v1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1issp: TcxGridDBColumn
Caption = #21452#21943
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column4: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1SH_TD1: TcxGridDBColumn
Caption = #35843#20992
DataBinding.FieldName = 'SH_TD1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object Tv1SH_ZW2: TcxGridDBColumn
Caption = #33039#27745
DataBinding.FieldName = 'SH_ZW2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_JT3: TcxGridDBColumn
Caption = #25509#22836
DataBinding.FieldName = 'SH_JT3'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_LTY4: TcxGridDBColumn
Caption = #34013#26465#21360
DataBinding.FieldName = 'SH_LTY4'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_DZ5: TcxGridDBColumn
Caption = #26723#23376
DataBinding.FieldName = 'SH_DZ5'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_DJ6: TcxGridDBColumn
Caption = #26029#32463
DataBinding.FieldName = 'SH_DJ6'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_HD7: TcxGridDBColumn
Caption = #40657#28857
DataBinding.FieldName = 'SH_HD7'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_DS8: TcxGridDBColumn
Caption = #26029#19997
DataBinding.FieldName = 'SH_DS8'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_HB9: TcxGridDBColumn
Caption = #40644#26001
DataBinding.FieldName = 'SH_HB9'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_SCZ10: TcxGridDBColumn
Caption = #27515#34411#23376
DataBinding.FieldName = 'SH_SCZ10'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_BB11: TcxGridDBColumn
Caption = #30333#26001
DataBinding.FieldName = 'SH_BB11'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_ZW12: TcxGridDBColumn
Caption = #30385#32441
DataBinding.FieldName = 'SH_ZW12'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_HY13: TcxGridDBColumn
Caption = #40644#21360
DataBinding.FieldName = 'SH_HY13'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_DPB14: TcxGridDBColumn
Caption = #22823#30772#36793
DataBinding.FieldName = 'SH_DPB14'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_GJ15: TcxGridDBColumn
Caption = #24178#27974
DataBinding.FieldName = 'SH_GJ15'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_YS16: TcxGridDBColumn
Caption = #27833#19997
DataBinding.FieldName = 'SH_YS16'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_KZ17: TcxGridDBColumn
Caption = #31354#32455
DataBinding.FieldName = 'SH_KZ17'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_SC18: TcxGridDBColumn
Caption = #33394#24046
DataBinding.FieldName = 'SH_SC18'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_XY19: TcxGridDBColumn
Caption = #32483#21360
DataBinding.FieldName = 'SH_XY19'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_YD20: TcxGridDBColumn
Caption = #27833#28857
DataBinding.FieldName = 'SH_YD20'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_PD21: TcxGridDBColumn
Caption = #30772#27934
DataBinding.FieldName = 'SH_PD21'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatInsp.ADOLink
Left = 553
Top = 200
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatInsp.ADOLink
Left = 425
Top = 201
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatInsp.ADOLink
CommandTimeout = 600
Parameters = <>
Left = 148
Top = 280
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatInsp.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 252
Top = 260
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatInsp.ADOLink
LockType = ltReadOnly
CommandTimeout = 600
Parameters = <>
Left = 112
Top = 204
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 708
Top = 156
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 608
Top = 136
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
BeforeOpen = CDS_1BeforeOpen
Left = 552
Top = 140
end
object PM_1: TPopupMenu
Left = 368
Top = 248
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object PM11: TMenuItem
Caption = #20840#24323
OnClick = PM11Click
end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end
end

429
E03梭织坯布检验/U_TatInspSHHZ.pas Normal file
View File

@ -0,0 +1,429 @@
unit U_TatInspSHHZ;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC, System.StrUtils,
dxScrollbarAnnotations, U_BaseList, System.ImageList, Vcl.ImgList, U_BaseInput;
type
TfrmTatInspSHHZ = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_1: TClientDataSet;
begtime: TDateTimePicker;
endTime: TDateTimePicker;
IsJYTime: TCheckBox;
ToolButton4: TToolButton;
Label5: TLabel;
C_Name: TEdit;
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
C_GramWeight: TEdit;
label12: TLabel;
PCId: TEdit;
label11: TLabel;
Panel2: TPanel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1issp: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1SH_TD1: TcxGridDBColumn;
Tv1SH_ZW2: TcxGridDBColumn;
Tv1SH_JT3: TcxGridDBColumn;
Tv1SH_LTY4: TcxGridDBColumn;
Tv1SH_DZ5: TcxGridDBColumn;
Tv1SH_DJ6: TcxGridDBColumn;
Tv1SH_HD7: TcxGridDBColumn;
Tv1SH_DS8: TcxGridDBColumn;
Tv1SH_HB9: TcxGridDBColumn;
Tv1SH_SCZ10: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
N2: TMenuItem;
Tv1SH_BB11: TcxGridDBColumn;
Tv1SH_ZW12: TcxGridDBColumn;
Tv1SH_HY13: TcxGridDBColumn;
Tv1SH_DPB14: TcxGridDBColumn;
Tv1SH_GJ15: TcxGridDBColumn;
Tv1SH_YS16: TcxGridDBColumn;
Tv1SH_KZ17: TcxGridDBColumn;
Tv1SH_SC18: TcxGridDBColumn;
Tv1SH_XY19: TcxGridDBColumn;
Tv1SH_YD20: TcxGridDBColumn;
Tv1SH_PD21: TcxGridDBColumn;
N3: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
procedure BTNPClick(Sender: TObject);
procedure BTLPClick(Sender: TObject);
procedure TCBNORChange(Sender: TObject);
procedure JYTypeChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure CDS_1BeforeOpen(DataSet: TDataSet);
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations }
public
canshu1: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint, U_TatInspSHHZ2;
{$R *.dfm}
procedure TfrmTatInspSHHZ.SetStatus();
begin
end;
procedure TfrmTatInspSHHZ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FreeAndNil(lstCust);
Action := caFree;
end;
procedure TfrmTatInspSHHZ.FormCreate(Sender: TObject);
begin
inherited;
lstCust := TStringList.Create;
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 20;
end;
procedure TfrmTatInspSHHZ.InitGrid();
var
WSql: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
if Trim(WSql) <> '' then
WSql := ' and ' + WSql;
if IsJYTime.Checked then
begin
WSql := WSql + ' and A.Filltime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
WSql := WSql + ' and A.Filltime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
end;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' ExEC P_Tat_Cloth_SHHZ ');
sql.Add(' @wsql = ' + quotedStr(WSql));
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
end;
procedure TfrmTatInspSHHZ.IsJYTimeClick(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatInspSHHZ.TBRafreshClick(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatInspSHHZ.CDS_1BeforeOpen(DataSet: TDataSet);
begin
lstCust.Clear;
end;
procedure TfrmTatInspSHHZ.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmTatInspSHHZ.cxPageControl1Change(Sender: TObject);
begin
CurrentPage := 1;
SetStatus();
InitGrid();
end;
procedure TfrmTatInspSHHZ.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmTatInspSHHZ.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatInspSHHZ.FormShow(Sender: TObject);
begin
inherited;
// ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '损耗汇总列表');
CurrentPage := 1;
RecordsNumber := 500;
SetStatus();
InitGrid();
end;
procedure TfrmTatInspSHHZ.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end;
procedure TfrmTatInspSHHZ.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
CurrentPage := 1;
InitGrid();
end;
end;
procedure TfrmTatInspSHHZ.PM11Click(Sender: TObject);
begin
SelOKNo(CDS_1, false);
end;
procedure TfrmTatInspSHHZ.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstCust.Clear;
end;
procedure TfrmTatInspSHHZ.Tv1DblClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmTatInspSHHZ2 := TfrmTatInspSHHZ2.Create(Application);
with frmTatInspSHHZ2 do
begin
fEndDateTime := self.EndDate.DateTime;
fBegDateTime := Self.BegDate.DateTime;
//
//
fC_Name := Self.CDS_1.FieldByName('C_Name').AsString;
fissp := Self.CDS_1.FieldByName('issp').AsString;
fC_GramWeight := Self.CDS_1.FieldByName('C_GramWeight').AsString;
// fpcid := Self.CDS_1.FieldByName('pcid').AsString;
if ShowModal = 1 then
begin
end;
end;
finally
frmTatInspSHHZ2.Free;
end;
end;
procedure TfrmTatInspSHHZ.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin
if lstCust <> nil then
AText := IntToStr(lstCust.Count);
end;
procedure TfrmTatInspSHHZ.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid();
end;
procedure TfrmTatInspSHHZ.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid();
end;
procedure TfrmTatInspSHHZ.TCBNORChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatInspSHHZ.JYTypeChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatInspSHHZ.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, true);
end;
procedure TfrmTatInspSHHZ.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatInspSHHZ.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatInspSHHZ.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatInspSHHZ.ToolButton2Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end
else
begin
WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TradeClothStk';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatInspSHHZ.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '损耗汇总列表');
end;
end.

642
E03梭织坯布检验/U_TatInspSHHZ2.dfm Normal file
View File

@ -0,0 +1,642 @@
inherited frmTatInspSHHZ2: TfrmTatInspSHHZ2
Left = 184
Top = 138
Caption = #25439#32791#27719#24635#21015#34920'2'
ClientHeight = 600
ClientWidth = 1540
Position = poDesigned
WindowState = wsMaximized
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatInsp.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBExport: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton4: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 67
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitLeft = -1
ExplicitTop = 33
object Label2: TLabel
Left = 70
Top = 36
Width = 12
Height = 13
Caption = #33267
end
object label12: TLabel
Left = 185
Top = 9
Width = 52
Height = 12
Hint = '0'
Caption = #27969#36716#21345#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 88
Top = 6
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 1
end
object EndDate: TDateTimePicker
Left = 88
Top = 32
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 2
end
object begtime: TDateTimePicker
Left = 137
Top = 132
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 39780.000000000000000000
Kind = dtkTime
TabOrder = 3
end
object endTime: TDateTimePicker
Left = 137
Top = 156
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 0.999317129630071600
Kind = dtkTime
TabOrder = 4
end
object IsJYTime: TCheckBox
Left = 14
Top = 8
Width = 73
Height = 17
Caption = #26597#35810#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = IsJYTimeClick
end
object PCId: TEdit
Tag = 2
Left = 237
Top = 6
Width = 100
Height = 21
Hint = '0'
TabOrder = 5
OnKeyPress = C_NameKeyPress
end
end
object Panel2: TPanel [2]
Left = 0
Top = 105
Width = 1540
Height = 495
Align = alClient
TabOrder = 2
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 1538
Height = 493
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PM_1
TabOrder = 0
ExplicitLeft = 0
ExplicitTop = 6
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #26816#39564#31995#25968'=#.##'
Kind = skAverage
end
item
Format = #25442#31639#31995#25968'=#.##'
Kind = skAverage
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1SH_TD1
end
item
Kind = skSum
Column = Tv1SH_ZW2
end
item
Kind = skSum
Column = Tv1SH_JT3
end
item
Kind = skSum
Column = Tv1SH_LTY4
end
item
Kind = skSum
Column = Tv1SH_DZ5
end
item
Kind = skSum
Column = Tv1SH_DJ6
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1SH_HD7
end
item
Kind = skSum
Column = Tv1SH_DS8
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1SH_HB9
end
item
Kind = skSum
Column = Tv1SH_SCZ10
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1SH_BB11
end
item
Kind = skSum
Column = Tv1SH_ZW12
end
item
Kind = skSum
Column = Tv1SH_HY13
end
item
Kind = skSum
Column = Tv1SH_DPB14
end
item
Kind = skSum
Column = Tv1SH_GJ15
end
item
Kind = skSum
Column = Tv1SH_YS16
end
item
Kind = skSum
Column = Tv1SH_KZ17
end
item
Kind = skSum
Column = Tv1SH_SC18
end
item
Kind = skSum
Column = Tv1SH_XY19
end
item
Kind = skSum
Column = Tv1SH_YD20
end
item
Kind = skSum
Column = Tv1SH_PD21
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.IncSearch = DataLink_TatInsp.SHuangSe
Styles.Footer = DataLink_TatInsp.Default
Styles.Header = DataLink_TatInsp.Default
Styles.Inactive = DataLink_TatInsp.SHuangSe
Styles.Selection = DataLink_TatInsp.SHuangSe
object v1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1issp: TcxGridDBColumn
Caption = #21452#21943
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1PCId: TcxGridDBColumn
Caption = #27969#36716#21345#21495
DataBinding.FieldName = 'PCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column4: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1SH_TD1: TcxGridDBColumn
Caption = #35843#20992
DataBinding.FieldName = 'SH_TD1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object Tv1SH_ZW2: TcxGridDBColumn
Caption = #33039#27745
DataBinding.FieldName = 'SH_ZW2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_JT3: TcxGridDBColumn
Caption = #25509#22836
DataBinding.FieldName = 'SH_JT3'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_LTY4: TcxGridDBColumn
Caption = #34013#26465#21360
DataBinding.FieldName = 'SH_LTY4'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_DZ5: TcxGridDBColumn
Caption = #26723#23376
DataBinding.FieldName = 'SH_DZ5'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_DJ6: TcxGridDBColumn
Caption = #26029#32463
DataBinding.FieldName = 'SH_DJ6'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_HD7: TcxGridDBColumn
Caption = #40657#28857
DataBinding.FieldName = 'SH_HD7'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_DS8: TcxGridDBColumn
Caption = #26029#19997
DataBinding.FieldName = 'SH_DS8'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_HB9: TcxGridDBColumn
Caption = #40644#26001
DataBinding.FieldName = 'SH_HB9'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_SCZ10: TcxGridDBColumn
Caption = #27515#34411#23376
DataBinding.FieldName = 'SH_SCZ10'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_BB11: TcxGridDBColumn
Caption = #30333#26001
DataBinding.FieldName = 'SH_BB11'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_ZW12: TcxGridDBColumn
Caption = #30385#32441
DataBinding.FieldName = 'SH_ZW12'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_HY13: TcxGridDBColumn
Caption = #40644#21360
DataBinding.FieldName = 'SH_HY13'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_DPB14: TcxGridDBColumn
Caption = #22823#30772#36793
DataBinding.FieldName = 'SH_DPB14'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_GJ15: TcxGridDBColumn
Caption = #24178#27974
DataBinding.FieldName = 'SH_GJ15'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_YS16: TcxGridDBColumn
Caption = #27833#19997
DataBinding.FieldName = 'SH_YS16'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_KZ17: TcxGridDBColumn
Caption = #31354#32455
DataBinding.FieldName = 'SH_KZ17'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_SC18: TcxGridDBColumn
Caption = #33394#24046
DataBinding.FieldName = 'SH_SC18'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_XY19: TcxGridDBColumn
Caption = #32483#21360
DataBinding.FieldName = 'SH_XY19'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_YD20: TcxGridDBColumn
Caption = #27833#28857
DataBinding.FieldName = 'SH_YD20'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_PD21: TcxGridDBColumn
Caption = #30772#27934
DataBinding.FieldName = 'SH_PD21'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatInsp.ADOLink
Left = 553
Top = 200
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatInsp.ADOLink
Left = 425
Top = 201
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatInsp.ADOLink
CommandTimeout = 600
Parameters = <>
Left = 148
Top = 280
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatInsp.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 252
Top = 260
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatInsp.ADOLink
LockType = ltReadOnly
CommandTimeout = 600
Parameters = <>
Left = 112
Top = 204
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 708
Top = 156
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 608
Top = 136
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
BeforeOpen = CDS_1BeforeOpen
Left = 552
Top = 140
end
object PM_1: TPopupMenu
Left = 368
Top = 248
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object PM11: TMenuItem
Caption = #20840#24323
OnClick = PM11Click
end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end
end

413
E03梭织坯布检验/U_TatInspSHHZ2.pas Normal file
View File

@ -0,0 +1,413 @@
unit U_TatInspSHHZ2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC, System.StrUtils,
dxScrollbarAnnotations, U_BaseList, System.ImageList, Vcl.ImgList, U_BaseInput;
type
TfrmTatInspSHHZ2 = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_1: TClientDataSet;
begtime: TDateTimePicker;
endTime: TDateTimePicker;
IsJYTime: TCheckBox;
ToolButton4: TToolButton;
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
label12: TLabel;
PCId: TEdit;
Panel2: TPanel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1issp: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1SH_TD1: TcxGridDBColumn;
Tv1SH_ZW2: TcxGridDBColumn;
Tv1SH_JT3: TcxGridDBColumn;
Tv1SH_LTY4: TcxGridDBColumn;
Tv1SH_DZ5: TcxGridDBColumn;
Tv1SH_DJ6: TcxGridDBColumn;
Tv1SH_HD7: TcxGridDBColumn;
Tv1SH_DS8: TcxGridDBColumn;
Tv1SH_HB9: TcxGridDBColumn;
Tv1SH_SCZ10: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
N2: TMenuItem;
Tv1SH_BB11: TcxGridDBColumn;
Tv1SH_ZW12: TcxGridDBColumn;
Tv1SH_HY13: TcxGridDBColumn;
Tv1SH_DPB14: TcxGridDBColumn;
Tv1SH_GJ15: TcxGridDBColumn;
Tv1SH_YS16: TcxGridDBColumn;
Tv1SH_KZ17: TcxGridDBColumn;
Tv1SH_SC18: TcxGridDBColumn;
Tv1SH_XY19: TcxGridDBColumn;
Tv1SH_YD20: TcxGridDBColumn;
Tv1SH_PD21: TcxGridDBColumn;
N3: TMenuItem;
Tv1PCId: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
procedure BTNPClick(Sender: TObject);
procedure BTLPClick(Sender: TObject);
procedure TCBNORChange(Sender: TObject);
procedure JYTypeChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure CDS_1BeforeOpen(DataSet: TDataSet);
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations }
public
fC_Name,fissp,fC_GramWeight : string;
fEndDateTime,fBegDateTime : TDateTime;
{ Public declarations }
end;
var
frmTatInspSHHZ2: TfrmTatInspSHHZ2;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint;
{$R *.dfm}
procedure TfrmTatInspSHHZ2.SetStatus();
begin
end;
procedure TfrmTatInspSHHZ2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FreeAndNil(lstCust);
Action := caFree;
end;
procedure TfrmTatInspSHHZ2.FormCreate(Sender: TObject);
begin
inherited;
lstCust := TStringList.Create;
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 20;
end;
procedure TfrmTatInspSHHZ2.InitGrid();
var
WSql: string;
WSql1: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
if Trim(WSql) <> '' then
WSql := ' and ' + WSql;
if IsJYTime.Checked then
begin
WSql := WSql + ' and A.Filltime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
WSql := WSql + ' and A.Filltime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
end;
WSql1 := ' and A.C_Name = ' + QuotedStr(Trim(fC_Name));
WSql1 := WSql1 + ' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp));
WSql1 := WSql1 + ' and A.C_GramWeight = ' + QuotedStr(Trim(fC_GramWeight));
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' ExEC P_Tat_Cloth_SHHZ2 ');
sql.Add(' @wsql = ' + quotedStr(WSql));
sql.Add(' ,@wsql1 = ' + quotedStr(WSql1));
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
end;
procedure TfrmTatInspSHHZ2.IsJYTimeClick(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatInspSHHZ2.TBRafreshClick(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatInspSHHZ2.CDS_1BeforeOpen(DataSet: TDataSet);
begin
lstCust.Clear;
end;
procedure TfrmTatInspSHHZ2.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmTatInspSHHZ2.cxPageControl1Change(Sender: TObject);
begin
CurrentPage := 1;
SetStatus();
InitGrid();
end;
procedure TfrmTatInspSHHZ2.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmTatInspSHHZ2.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatInspSHHZ2.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '损耗汇总列表2');
CurrentPage := 1;
RecordsNumber := 500;
BegDate.DateTime := fBegDateTime;
EndDate.DateTime := fEndDateTime;
SetStatus();
InitGrid();
end;
procedure TfrmTatInspSHHZ2.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end;
procedure TfrmTatInspSHHZ2.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
CurrentPage := 1;
InitGrid();
end;
end;
procedure TfrmTatInspSHHZ2.PM11Click(Sender: TObject);
begin
SelOKNo(CDS_1, false);
end;
procedure TfrmTatInspSHHZ2.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstCust.Clear;
end;
procedure TfrmTatInspSHHZ2.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin
if lstCust <> nil then
AText := IntToStr(lstCust.Count);
end;
procedure TfrmTatInspSHHZ2.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid();
end;
procedure TfrmTatInspSHHZ2.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid();
end;
procedure TfrmTatInspSHHZ2.TCBNORChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatInspSHHZ2.JYTypeChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatInspSHHZ2.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, true);
end;
procedure TfrmTatInspSHHZ2.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatInspSHHZ2.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatInspSHHZ2.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatInspSHHZ2.ToolButton2Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end
else
begin
WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TradeClothStk';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatInspSHHZ2.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '损耗汇总列表2');
end;
end.

11
E03梭织坯布检验/U_TatMachCutHZList.dfm
View File

@ -7,6 +7,7 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -466
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 639 ExplicitHeight = 639
PixelsPerInch = 96 PixelsPerInch = 96
@ -33,7 +34,6 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = 2
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -78,7 +78,6 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 36
object Label2: TLabel object Label2: TLabel
Left = 70 Left = 70
Top = 36 Top = 36
@ -540,5 +539,13 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList
Caption = #20840#24323 Caption = #20840#24323
OnClick = PM11Click OnClick = PM11Click
end end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end end
end end

43
E03梭织坯布检验/U_TatMachCutHZList.pas
View File

@ -63,6 +63,8 @@ type
Tv1qgMeter: TcxGridDBColumn; Tv1qgMeter: TcxGridDBColumn;
Tv1qgMeterGQ: TcxGridDBColumn; Tv1qgMeterGQ: TcxGridDBColumn;
Tv1qgMeterAll: TcxGridDBColumn; Tv1qgMeterAll: TcxGridDBColumn;
N2: TMenuItem;
N3: TMenuItem;
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);
@ -86,11 +88,14 @@ type
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject); procedure IsJYTimeClick(Sender: TObject);
procedure CarnoKeyPress(Sender: TObject; var Key: Char); procedure CarnoKeyPress(Sender: TObject; var Key: Char);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
lstCust: TStringList; lstCust: TStringList;
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations } { Private declarations }
public public
canshu1: string; canshu1: string;
@ -270,7 +275,14 @@ procedure TfrmTatMachCutHZList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
exit; exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1); TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end; end;
procedure TfrmTatMachCutHZList.orderNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmTatMachCutHZList.orderNoKeyPress(Sender: TObject; var Key: Char);
@ -331,6 +343,37 @@ begin
SelOKNo(CDS_1, true); SelOKNo(CDS_1, true);
end; end;
procedure TfrmTatMachCutHZList.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatMachCutHZList.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatMachCutHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatMachCutHZList.ToolButton2Click(Sender: TObject); procedure TfrmTatMachCutHZList.ToolButton2Click(Sender: TObject);
var var
WSql: string; WSql: string;

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

@ -7,6 +7,7 @@
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -689
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 823 ExplicitHeight = 823
PixelsPerInch = 96 PixelsPerInch = 96
@ -5595,16 +5596,14 @@
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 138 Left = 138
Top = 92 Top = 89
Width = 43 Width = 43
Height = 28 Height = 28
Style = csDropDownList
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -20 Font.Height = -20
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ItemIndex = 1
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
Text = '2' Text = '2'
@ -6195,6 +6194,7 @@
ThreadPrepareReport = True ThreadPrepareReport = True
InitialZoom = pzDefault InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
DefaultCopies = 2
DefaultCollate = False DefaultCollate = False
ShowPrintDialog = False ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'

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

@ -4504,7 +4504,9 @@ begin
flag := 'WFBCD'; flag := 'WFBCD';
flagname := '疵点'; flagname := '疵点';
fnote := True; fnote := True;
fnote1 := True;
V1Note.Caption := '英文名称'; V1Note.Caption := '英文名称';
V1Note1.Caption := '疵点等级';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.InitCDPanel(); Self.InitCDPanel();

8
E04梭织坯布仓库/TatClothStk.dpr
View File

@ -33,7 +33,13 @@ uses
U_TatClothStkHZListSEL in 'U_TatClothStkHZListSEL.pas' {frmTatClothStkHZListSEL}, U_TatClothStkHZListSEL in 'U_TatClothStkHZListSEL.pas' {frmTatClothStkHZListSEL},
U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel}, U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}; U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_TatClothStkHZList2 in 'U_TatClothStkHZList2.pas' {frmTatClothStkHZList2},
U_TatClothRKHZList2 in 'U_TatClothRKHZList2.pas' {frmTatClothRKHZList2},
U_TatClothEDCDLook in 'U_TatClothEDCDLook.pas' {frmTatClothEDCDLook},
U_TatClothStkHZList3 in 'U_TatClothStkHZList3.pas' {frmTatClothStkHZList3},
U_TatClothCKHZList3 in 'U_TatClothCKHZList3.pas' {frmTatClothCKHZList3},
U_TatClothCRStkHZList in 'U_TatClothCRStkHZList.pas' {frmTatClothCRStkHZList};
{$R *.res} {$R *.res}

24
E04梭织坯布仓库/TatClothStk.dproj
View File

@ -171,6 +171,30 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="U_TatClothStkHZList2.pas">
<Form>frmTatClothStkHZList2</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatClothRKHZList2.pas">
<Form>frmTatClothRKHZList2</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatClothEDCDLook.pas">
<Form>frmTatClothEDCDLook</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatClothStkHZList3.pas">
<Form>frmTatClothStkHZList3</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatClothCKHZList3.pas">
<Form>frmTatClothCKHZList3</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatClothCRStkHZList.pas">
<Form>frmTatClothCRStkHZList</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

100
E04梭织坯布仓库/TatClothStk.dproj.local
View File

@ -1,71 +1,77 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.782,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.782,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction> <Transaction>2025/12/19 11:28:25.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas</Transaction> <Transaction>2025/12/30 09:28:30.000.231,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothRKHZList2.pas</Transaction>
<Transaction>2025/12/30 14:40:41.000.157,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothEDCDLook.pas</Transaction>
<Transaction>2026/01/05 09:38:54.000.740,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList3.pas</Transaction>
<Transaction>2026/01/05 09:39:04.000.732,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCKHZList3.pas</Transaction>
<Transaction>2026/01/10 09:26:48.000.337,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCRStkHZList.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10szXIANGYING"/> <File Path="..\..\D10szXIANGYING"/>
@ -123,5 +129,17 @@
<File Path="U_TatClothOutList.dfm"/> <File Path="U_TatClothOutList.dfm"/>
<File Path="U_TatClothStkHZListSEL.pas"/> <File Path="U_TatClothStkHZListSEL.pas"/>
<File Path="U_TatClothStkHZListSEL.dfm"/> <File Path="U_TatClothStkHZListSEL.dfm"/>
<File Path="U_TatClothStkHZList2.pas"/>
<File Path="U_TatClothStkHZList2.dfm"/>
<File Path="U_TatClothRKHZList2.pas"/>
<File Path="U_TatClothRKHZList2.dfm"/>
<File Path="U_TatClothEDCDLook.pas"/>
<File Path="U_TatClothEDCDLook.dfm"/>
<File Path="U_TatClothStkHZList3.pas"/>
<File Path="U_TatClothStkHZList3.dfm"/>
<File Path="U_TatClothCKHZList3.pas"/>
<File Path="U_TatClothCKHZList3.dfm"/>
<File Path="U_TatClothCRStkHZList.pas"/>
<File Path="U_TatClothCRStkHZList.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

BIN
E04梭织坯布仓库/TatClothStk.identcache
View File

Binary file not shown.

1
E04梭织坯布仓库/U_DataLink.dfm
View File

@ -1,4 +1,5 @@
inherited DataLink_TatClothStk: TDataLink_TatClothStk inherited DataLink_TatClothStk: TDataLink_TatClothStk
OldCreateOrder = True
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy
Height = 349 Height = 349
Width = 482 Width = 482

15
E04梭织坯布仓库/U_GetDllForm.pas
View File

@ -18,7 +18,7 @@ uses
U_DataLink, U_iniParam, U_TatClothInEdit, U_TatClothInList, U_TatDRList, U_DataLink, U_iniParam, U_TatClothInEdit, U_TatClothInList, U_TatDRList,
U_TatClothDROutEdit, U_TatClothOutEdit, U_TatClothOutList, U_TatClothStkList, U_TatClothDROutEdit, U_TatClothOutEdit, U_TatClothOutList, U_TatClothStkList,
U_TatClothStkHZList, U_TatClothCKHZList, U_TatClothRKHZList, U_TatClothStkHZList, U_TatClothCKHZList, U_TatClothRKHZList,
U_TatClothStkListPH; U_TatClothStkListPH, U_TatClothCRStkHZList;
///////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 // // 功能说明:取Dll中得窗体 //
@ -80,6 +80,8 @@ begin
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// Parameters1 := '查询'; // Parameters1 := '查询';
Parameters1 := '管理'; Parameters1 := '管理';
// Parameters1 := '业务';
// Parameters1 := '财务';
Parameters2 := '备货'; Parameters2 := '备货';
end end
else else
@ -256,6 +258,17 @@ begin
mnewHandle := Handle; mnewHandle := Handle;
end; end;
end; end;
511: //坯布进销存统计汇总
begin
with TfrmTatClothCRStkHZList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
10000: 10000:
begin begin

115
E04梭织坯布仓库/U_TatClothCKHZList.dfm
View File

@ -271,10 +271,11 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -19
Font.Name = #24494#36719#38597#40657 Font.Name = #23435#20307
Font.Style = [] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Style = tsFlatButtons
TabOrder = 2 TabOrder = 2
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = #26377#20986#24211#21333#20986#24211 Caption = #26377#20986#24211#21333#20986#24211
@ -282,7 +283,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1532 Width = 1532
Height = 459 Height = 457
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -294,6 +295,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
@ -349,6 +351,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
end end
item item
Kind = skSum Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1NetWeight
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -371,25 +380,12 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Options.Sorting = False Options.Sorting = False
Width = 66 Width = 66
end end
object Tv1IOTime: TcxGridDBColumn
Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1DRMID: TcxGridDBColumn
Caption = #21457#36135#30003#35831
DataBinding.FieldName = 'DRMID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
end
object Tv1ToCoName: TcxGridDBColumn object Tv1ToCoName: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'ToCoName' DataBinding.FieldName = 'CoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
@ -405,20 +401,15 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
DataBinding.FieldName = 'issp' DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1C_Width: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1C_GramWeight: TcxGridDBColumn object Tv1C_GramWeight: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90 Width = 90
end end
object v1Column23: TcxGridDBColumn object v1Column23: TcxGridDBColumn
@ -442,13 +433,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
DataBinding.FieldName = 'NetWeight' DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Options.Editing = False
end
object Tv1PF: TcxGridDBColumn
Caption = #24179#26041
DataBinding.FieldName = 'PF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
end end
@ -464,7 +449,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1532 Width = 1532
Height = 459 Height = 457
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -473,9 +458,10 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_2
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2 DataController.DataSource = DS_2
@ -553,20 +539,6 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Options.Sorting = False Options.Sorting = False
Width = 66 Width = 66
end end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
end
object cxGridDBColumn5: TcxGridDBColumn object cxGridDBColumn5: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
@ -580,20 +552,15 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
DataBinding.FieldName = 'issp' DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object cxGridDBColumn7: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90 Width = 90
end end
object cxGridDBColumn8: TcxGridDBColumn object cxGridDBColumn8: TcxGridDBColumn
@ -617,13 +584,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
DataBinding.FieldName = 'NetWeight' DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Options.Editing = False
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #24179#26041
DataBinding.FieldName = 'PF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
end end
@ -694,6 +655,14 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Caption = #20840#24323 Caption = #20840#24323
OnClick = PM11Click OnClick = PM11Click
end end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end end
object CDS_2: TClientDataSet object CDS_2: TClientDataSet
Aggregates = <> Aggregates = <>
@ -713,4 +682,24 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Left = 488 Left = 488
Top = 392 Top = 392
end end
object PM_2: TPopupMenu
Left = 424
Top = 272
object MenuItem1: TMenuItem
Caption = #20840#36873
OnClick = MenuItem1Click
end
object MenuItem2: TMenuItem
Caption = #20840#24323
OnClick = MenuItem2Click
end
object MenuItem3: TMenuItem
Caption = #22797#21046
OnClick = MenuItem3Click
end
object MenuItem4: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = MenuItem4Click
end
end
end end

190
E04梭织坯布仓库/U_TatClothCKHZList.pas
View File

@ -54,28 +54,20 @@ type
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn; v1Column22: TcxGridDBColumn;
Tv1IOTime: TcxGridDBColumn;
Tv1DRMID: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1C_Width: TcxGridDBColumn;
Tv1C_GramWeight: TcxGridDBColumn; Tv1C_GramWeight: TcxGridDBColumn;
v1Column23: TcxGridDBColumn; v1Column23: TcxGridDBColumn;
v1Column10: TcxGridDBColumn; v1Column10: TcxGridDBColumn;
Tv1NetWeight: TcxGridDBColumn; Tv1NetWeight: TcxGridDBColumn;
Tv1PF: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView; Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn; cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn; cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn; cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn; cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
CDS_2: TClientDataSet; CDS_2: TClientDataSet;
DS_2: TDataSource; DS_2: TDataSource;
@ -83,6 +75,13 @@ type
Tv1ToCoName: TcxGridDBColumn; Tv1ToCoName: TcxGridDBColumn;
Tv1issp: TcxGridDBColumn; Tv1issp: TcxGridDBColumn;
Tv2issp: TcxGridDBColumn; Tv2issp: TcxGridDBColumn;
N2: TMenuItem;
N3: TMenuItem;
PM_2: TPopupMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
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);
@ -107,12 +106,22 @@ type
procedure IsJYTimeClick(Sender: TObject); procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char); procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure cxTabControl1Change(Sender: TObject); procedure cxTabControl1Change(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure MenuItem4Click(Sender: TObject);
procedure MenuItem3Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure Tv2DblClick(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
lstCust: TStringList; lstCust: TStringList;
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
procedure InitGrid2(); procedure InitGrid2();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
procedure CopyColumnSummaryToClipboard2(AColumn: TcxGridColumn);
{ Private declarations } { Private declarations }
public public
canshu1: string; canshu1: string;
@ -122,7 +131,7 @@ type
implementation implementation
uses uses
U_DataLink, U_RTFun, U_LabelPrint; U_DataLink, U_RTFun, U_LabelPrint, U_TatClothCKHZList2,U_TatClothCKHZList3;
{$R *.dfm} {$R *.dfm}
@ -169,17 +178,22 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_Width,A.C_GramWeight,A.IONO as DRMID '); sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight');
sql.Add(',ToCoName=max(B.ToCoName),ioTime=min(ioTime) '); sql.Add(',B.ToCoID ');
sql.Add(',COName = (select COName from BS_Company X where X.CoID = B.ToCoID)');
sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) ');
sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) '); // sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) ');
SQL.Add(',A.issp'); SQL.Add(',issp=isnull(A.issp,'''') ');
sql.Add(' FROM V_Tat_Cloth_IO A '); sql.Add(' FROM V_Tat_Cloth_IO A ');
sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID '); sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID ');
sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = ''³ö¿â'' '); sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = ''³ö¿â'' ');
sql.Add(WSql); sql.Add(WSql);
SQL.Add(' group by A.C_CODE ,A.C_Width,A.C_GramWeight,A.IONO,A.C_Name,A.issp'); if canshu1 = '业务' then
SQL.Add(' order by A.IONO,A.C_CODE ,A.C_Width,A.C_GramWeight'); begin
sql.Add(' and EXISTS ( select * from BS_Company X where X.COID = B.ToCoID and X.Saleser = ' + quotedStr(Trim(DName)) + ')');
end;
SQL.Add(' group by A.C_CODE ,A.C_GramWeight,A.C_Name,isnull(A.issp,''''),B.ToCoID');
SQL.Add(' order by A.C_CODE ,A.C_GramWeight');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;
@ -194,7 +208,6 @@ begin
end; end;
procedure TfrmTatClothCKHZList.InitGrid2(); procedure TfrmTatClothCKHZList.InitGrid2();
var var
WSql: string; WSql: string;
@ -217,20 +230,18 @@ begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_Width,A.C_GramWeight,DRMID = '''' '); sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight,DRMID = '''' ');
sql.Add(',ioTime=min(ioTime),ioType=max(A.ioType) '); // sql.Add(',ioType=max(A.ioType) ');
sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) ');
sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) '); sql.Add(' ,ISNULL(A.issp, '''') as issp ');
sql.Add(' ,issp = max(issp) ');
sql.Add(' FROM V_Tat_Cloth_IO A '); sql.Add(' FROM V_Tat_Cloth_IO A ');
// sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID '); // sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID ');
sql.Add(' where A.IONo not LIKE ''RSG%'' and A.IOFlag = ''³ö¿â'' '); sql.Add(' where A.IONo not LIKE ''RSG%'' and A.IOFlag = ''³ö¿â'' ');
sql.Add(WSql); sql.Add(WSql);
SQL.Add(' group by A.C_CODE ,A.C_Width,A.C_GramWeight,A.C_Name,A.issp'); SQL.Add(' group by A.C_CODE ,A.C_GramWeight,A.C_Name,ISNULL(A.issp, '''')');
SQL.Add(' order By A.C_CODE ,A.C_Width,A.C_GramWeight'); SQL.Add(' order By A.C_CODE ,A.C_GramWeight');
// SQL.Add(' order by B.DRMID'); // SQL.Add(' order by B.DRMID');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;
end; end;
@ -319,7 +330,14 @@ procedure TfrmTatClothCKHZList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
exit; exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1); TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end; end;
procedure TfrmTatClothCKHZList.orderNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmTatClothCKHZList.orderNoKeyPress(Sender: TObject; var Key: Char);
@ -341,12 +359,65 @@ begin
lstCust.Clear; lstCust.Clear;
end; end;
procedure TfrmTatClothCKHZList.Tv1DblClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmTatClothCKHZList2 := TfrmTatClothCKHZList2.Create(Application);
with frmTatClothCKHZList2 do
begin
fEndDateTime := self.EndDate.DateTime;
fBegDateTime := Self.BegDate.DateTime;
// fDRMID := Self.CDS_1.FieldByName('DRMID').AsString;
fToCoID := Self.CDS_1.FieldByName('ToCoID').AsString;
fC_Name := Self.CDS_1.FieldByName('C_Name').AsString;
fissp := Self.CDS_1.FieldByName('issp').AsString;
// fioType := Self.CDS_1.FieldByName('ioType').AsString;
if ShowModal = 1 then
begin
end;
end;
finally
frmTatClothCKHZList2.Free;
end;
end;
procedure TfrmTatClothCKHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); procedure TfrmTatClothCKHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin begin
if lstCust <> nil then if lstCust <> nil then
AText := IntToStr(lstCust.Count); AText := IntToStr(lstCust.Count);
end; end;
procedure TfrmTatClothCKHZList.Tv2DblClick(Sender: TObject);
begin
if CDS_2.IsEmpty then
Exit;
try
frmTatClothCKHZList3 := TfrmTatClothCKHZList3.Create(Application);
with frmTatClothCKHZList3 do
begin
fEndDateTime := self.EndDate.DateTime;
fBegDateTime := Self.BegDate.DateTime;
fC_Name := Self.CDS_2.FieldByName('C_Name').AsString;
fissp := Self.CDS_2.FieldByName('issp').AsString;
// fioType := Self.CDS_1.FieldByName('ioType').AsString;
if ShowModal = 1 then
begin
end;
end;
finally
frmTatClothCKHZList3.Free;
end;
end;
procedure TfrmTatClothCKHZList.BTNPClick(Sender: TObject); procedure TfrmTatClothCKHZList.BTNPClick(Sender: TObject);
begin begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
@ -374,12 +445,83 @@ begin
InitGrid(); InitGrid();
end; end;
procedure TfrmTatClothCKHZList.N1Click(Sender: TObject); procedure TfrmTatClothCKHZList.MenuItem1Click(Sender: TObject);
begin begin
SelOKNo(CDS_2, true);
end;
procedure TfrmTatClothCKHZList.MenuItem2Click(Sender: TObject);
begin
SelOKNo(CDS_2, false);
end;
procedure TfrmTatClothCKHZList.MenuItem3Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothCKHZList.MenuItem4Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard2(TV2.Controller.FocusedColumn);
end;
procedure TfrmTatClothCKHZList.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, true); SelOKNo(CDS_1, true);
end; end;
procedure TfrmTatClothCKHZList.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothCKHZList.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatClothCKHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothCKHZList.CopyColumnSummaryToClipboard2(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv2;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothCKHZList.ToolButton2Click(Sender: TObject); procedure TfrmTatClothCKHZList.ToolButton2Click(Sender: TObject);
var var
WSql: string; WSql: string;

432
E04梭织坯布仓库/U_TatClothCKHZList2.dfm Normal file
View File

@ -0,0 +1,432 @@
inherited frmTatClothCKHZList2: TfrmTatClothCKHZList2
Left = 184
Top = 138
Caption = #25104#21697#20986#24211#27719#24635#21015#34920'2'
ClientHeight = 600
ClientWidth = 1540
Position = poScreenCenter
WindowState = wsMaximized
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatClothStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBExport: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton4: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 67
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
object Label2: TLabel
Left = 70
Top = 36
Width = 12
Height = 13
Caption = #33267
end
object Label1: TLabel
Left = 206
Top = 10
Width = 26
Height = 12
Hint = '0'
Caption = #38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 88
Top = 6
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 1
end
object EndDate: TDateTimePicker
Left = 88
Top = 32
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 2
end
object begtime: TDateTimePicker
Left = 137
Top = 132
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 39780.000000000000000000
Kind = dtkTime
TabOrder = 3
end
object endTime: TDateTimePicker
Left = 137
Top = 156
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 0.999317129630071600
Kind = dtkTime
TabOrder = 4
end
object IsJYTime: TCheckBox
Left = 14
Top = 8
Width = 73
Height = 17
Caption = #26597#35810#26085#26399
Checked = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
State = cbChecked
TabOrder = 0
OnClick = IsJYTimeClick
end
object C_Width: TEdit
Tag = 2
Left = 238
Top = 6
Width = 100
Height = 21
Hint = '0'
TabOrder = 5
OnKeyPress = C_NameKeyPress
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 105
Width = 1540
Height = 495
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PM_1
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
Column = v1Column10
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #26816#39564#31995#25968'=#.##'
Kind = skAverage
end
item
Format = #25442#31639#31995#25968'=#.##'
Kind = skAverage
end
item
Kind = skSum
Column = v1Column23
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1PF
end
item
Kind = skSum
Column = Tv1NetWeight
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.IncSearch = DataLink_TatClothStk.SHuangSe
Styles.Footer = DataLink_TatClothStk.Default
Styles.Header = DataLink_TatClothStk.Default
Styles.Inactive = DataLink_TatClothStk.SHuangSe
Styles.Selection = DataLink_TatClothStk.SHuangSe
object v1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 66
end
object Tv1IOTime: TcxGridDBColumn
Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1DRMID: TcxGridDBColumn
Caption = #21457#36135#30003#35831
DataBinding.FieldName = 'DRMID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object Tv1ToCoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column3: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object Tv1C_Width: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1issp: TcxGridDBColumn
Caption = #21452#21943
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1C_GramWeight: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object v1Column23: TcxGridDBColumn
Caption = #21367#25968
DataBinding.FieldName = 'js'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column10: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1NetWeight: TcxGridDBColumn
Caption = #20844#26020
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1PF: TcxGridDBColumn
Caption = #24179#26041
DataBinding.FieldName = 'PF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 561
Top = 208
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 425
Top = 201
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
CommandTimeout = 600
Parameters = <>
Left = 148
Top = 280
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 252
Top = 260
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
CommandTimeout = 600
Parameters = <>
Left = 112
Top = 204
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 828
Top = 284
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 728
Top = 288
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
BeforeOpen = CDS_1BeforeOpen
Left = 776
Top = 284
end
object PM_1: TPopupMenu
Left = 560
Top = 384
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object PM11: TMenuItem
Caption = #20840#24323
OnClick = PM11Click
end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end
end

418
E04梭织坯布仓库/U_TatClothCKHZList2.pas Normal file
View File

@ -0,0 +1,418 @@
unit U_TatClothCKHZList2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, cxPC,
System.StrUtils, dxScrollbarAnnotations, U_BaseList, System.ImageList,
Vcl.ImgList;
type
TfrmTatClothCKHZList2 = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_1: TClientDataSet;
begtime: TDateTimePicker;
endTime: TDateTimePicker;
IsJYTime: TCheckBox;
ToolButton4: TToolButton;
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
Label1: TLabel;
C_Width: TEdit;
N2: TMenuItem;
N3: TMenuItem;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
Tv1IOTime: TcxGridDBColumn;
Tv1DRMID: TcxGridDBColumn;
Tv1ToCoName: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1issp: TcxGridDBColumn;
Tv1C_GramWeight: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
Tv1NetWeight: TcxGridDBColumn;
Tv1PF: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Tv1C_Width: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
procedure BTNPClick(Sender: TObject);
procedure BTLPClick(Sender: TObject);
procedure TCBNORChange(Sender: TObject);
procedure JYTypeChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure CDS_1BeforeOpen(DataSet: TDataSet);
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure IOTypeChange(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations }
public
fDRMID: string;
fissp: string;
fC_Name: string;
fioType: string;
fToCoID: string;
fEndDateTime,fBegDateTime : TDateTime;
{ Public declarations }
end;
var
frmTatClothCKHZList2: TfrmTatClothCKHZList2;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint;
{$R *.dfm}
procedure TfrmTatClothCKHZList2.SetStatus();
begin
end;
procedure TfrmTatClothCKHZList2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FreeAndNil(lstCust);
Action := caFree;
end;
procedure TfrmTatClothCKHZList2.FormCreate(Sender: TObject);
begin
inherited;
lstCust := TStringList.Create;
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 20;
end;
procedure TfrmTatClothCKHZList2.InitGrid();
var
WSql: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
if Trim(WSql) <> '' then
WSql := ' and ' + WSql;
if IsJYTime.Checked then
begin
WSql := WSql + ' and A.IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
WSql := WSql + ' and A.IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
end;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IONO as DRMID');
sql.Add(',CAST(ioTime AS DATE) as ioTime ');
sql.Add(', (SELECT COName FROM BS_Company X WHERE X.CoID = B.ToCoID) as COName');
sql.Add(' ,COUNT(*) as js, SUM(A.meter) as Meter,SUM(A.NetWeight) as NetWeight ');
sql.Add(', CAST(A.C_Width AS DECIMAL(18,2))/100 * SUM(A.meter) as pf');
SQL.Add(',ISNULL(A.issp, '''') as issp ');
sql.Add(' FROM V_Tat_Cloth_IO A ');
sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID ');
sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = ''出库'' ');
// sql.Add(' and (select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame)));
sql.Add(' and A.C_Name = ' + QuotedStr(Trim(fC_Name)));
sql.Add(' and B.ToCoID = ' + QuotedStr(Trim(fToCoID)));
sql.Add(' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp)));
sql.Add(WSql);
SQL.Add(' group by A.C_CODE,A.C_width,A.C_GramWeight,A.IONO,A.C_Name,isnull(A.issp,''''),B.ToCoID,CAST(ioTime AS DATE)');
// sql.Add(' HAVING(select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame)));
SQL.Add(' order by A.IONO,A.C_CODE,CAST(A.C_width AS INT),A.C_GramWeight,CAST(ioTime AS DATE)');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
end;
procedure TfrmTatClothCKHZList2.IOTypeChange(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTatClothCKHZList2.IsJYTimeClick(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatClothCKHZList2.TBRafreshClick(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothCKHZList2.CDS_1BeforeOpen(DataSet: TDataSet);
begin
lstCust.Clear;
end;
procedure TfrmTatClothCKHZList2.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmTatClothCKHZList2.cxPageControl1Change(Sender: TObject);
begin
CurrentPage := 1;
SetStatus();
InitGrid();
end;
procedure TfrmTatClothCKHZList2.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmTatClothCKHZList2.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatClothCKHZList2.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品出库汇总2');
CurrentPage := 1;
RecordsNumber := 500;
// canshu1 := Trim(Self.fParameters1);
EndDate.DateTime := fEndDateTime;
BegDate.DateTime := fBegDateTime;
SetStatus();
InitGrid();
end;
procedure TfrmTatClothCKHZList2.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end;
procedure TfrmTatClothCKHZList2.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
CurrentPage := 1;
InitGrid();
end;
end;
procedure TfrmTatClothCKHZList2.PM11Click(Sender: TObject);
begin
SelOKNo(CDS_1, false);
end;
procedure TfrmTatClothCKHZList2.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstCust.Clear;
end;
procedure TfrmTatClothCKHZList2.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin
if lstCust <> nil then
AText := IntToStr(lstCust.Count);
end;
procedure TfrmTatClothCKHZList2.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid();
end;
procedure TfrmTatClothCKHZList2.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid();
end;
procedure TfrmTatClothCKHZList2.TCBNORChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothCKHZList2.JYTypeChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothCKHZList2.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, true);
end;
procedure TfrmTatClothCKHZList2.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothCKHZList2.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatClothCKHZList2.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothCKHZList2.ToolButton2Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end
else
begin
WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TradeClothStk';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatClothCKHZList2.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品出库汇总2');
end;
end.

424
E04梭织坯布仓库/U_TatClothCKHZList3.dfm Normal file
View File

@ -0,0 +1,424 @@
inherited frmTatClothCKHZList3: TfrmTatClothCKHZList3
Left = 184
Top = 138
Caption = #25104#21697#20986#24211#27719#24635#21015#34920'3'
ClientHeight = 600
ClientWidth = 1540
Position = poScreenCenter
WindowState = wsMaximized
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatClothStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBExport: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton4: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 67
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
object Label2: TLabel
Left = 70
Top = 36
Width = 12
Height = 13
Caption = #33267
end
object Label1: TLabel
Left = 206
Top = 10
Width = 26
Height = 12
Hint = '0'
Caption = #38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 88
Top = 6
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 1
end
object EndDate: TDateTimePicker
Left = 88
Top = 32
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 2
end
object begtime: TDateTimePicker
Left = 137
Top = 132
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 39780.000000000000000000
Kind = dtkTime
TabOrder = 3
end
object endTime: TDateTimePicker
Left = 137
Top = 156
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 0.999317129630071600
Kind = dtkTime
TabOrder = 4
end
object IsJYTime: TCheckBox
Left = 14
Top = 8
Width = 73
Height = 17
Caption = #26597#35810#26085#26399
Checked = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
State = cbChecked
TabOrder = 0
OnClick = IsJYTimeClick
end
object C_Width: TEdit
Tag = 2
Left = 238
Top = 6
Width = 100
Height = 21
Hint = '0'
TabOrder = 5
OnKeyPress = C_NameKeyPress
end
end
object cxGrid2: TcxGrid [2]
Left = 0
Top = 105
Width = 1540
Height = 495
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PM_1
TabOrder = 2
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
Column = cxGridDBColumn9
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #26816#39564#31995#25968'=#.##'
Kind = skAverage
end
item
Format = #25442#31639#31995#25968'=#.##'
Kind = skAverage
end
item
Kind = skSum
Column = cxGridDBColumn8
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn10
end
item
Kind = skSum
Column = cxGridDBColumn11
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.IncSearch = DataLink_TatClothStk.SHuangSe
Styles.Footer = DataLink_TatClothStk.Default
Styles.Header = DataLink_TatClothStk.Default
Styles.Inactive = DataLink_TatClothStk.SHuangSe
Styles.Selection = DataLink_TatClothStk.SHuangSe
object cxGridDBColumn1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 66
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv2issp: TcxGridDBColumn
Caption = #21452#21943
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #21367#25968
DataBinding.FieldName = 'js'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #20844#26020
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #24179#26041
DataBinding.FieldName = 'PF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 561
Top = 208
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 425
Top = 201
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
CommandTimeout = 600
Parameters = <>
Left = 148
Top = 280
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 252
Top = 260
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
CommandTimeout = 600
Parameters = <>
Left = 112
Top = 204
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 828
Top = 284
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 728
Top = 288
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
BeforeOpen = CDS_1BeforeOpen
Left = 776
Top = 284
end
object PM_1: TPopupMenu
Left = 560
Top = 384
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object PM11: TMenuItem
Caption = #20840#24323
OnClick = PM11Click
end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end
end

410
E04梭织坯布仓库/U_TatClothCKHZList3.pas Normal file
View File

@ -0,0 +1,410 @@
unit U_TatClothCKHZList3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, cxPC,
System.StrUtils, dxScrollbarAnnotations, U_BaseList, System.ImageList,
Vcl.ImgList;
type
TfrmTatClothCKHZList3 = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_1: TClientDataSet;
begtime: TDateTimePicker;
endTime: TDateTimePicker;
IsJYTime: TCheckBox;
ToolButton4: TToolButton;
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
Label1: TLabel;
C_Width: TEdit;
N2: TMenuItem;
N3: TMenuItem;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
Tv2issp: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
procedure BTNPClick(Sender: TObject);
procedure BTLPClick(Sender: TObject);
procedure TCBNORChange(Sender: TObject);
procedure JYTypeChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure CDS_1BeforeOpen(DataSet: TDataSet);
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure IOTypeChange(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations }
public
fissp: string;
fC_Name: string;
fioType: string;
fEndDateTime,fBegDateTime : TDateTime;
{ Public declarations }
end;
var
frmTatClothCKHZList3: TfrmTatClothCKHZList3;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint;
{$R *.dfm}
procedure TfrmTatClothCKHZList3.SetStatus();
begin
end;
procedure TfrmTatClothCKHZList3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FreeAndNil(lstCust);
Action := caFree;
end;
procedure TfrmTatClothCKHZList3.FormCreate(Sender: TObject);
begin
inherited;
lstCust := TStringList.Create;
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 20;
end;
procedure TfrmTatClothCKHZList3.InitGrid();
var
WSql: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
if Trim(WSql) <> '' then
WSql := ' and ' + WSql;
if IsJYTime.Checked then
begin
WSql := WSql + ' and A.IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
WSql := WSql + ' and A.IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
end;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IOType ');
sql.Add(' ,ioTime=CAST(ioTime AS DATE) ');
sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) ');
sql.Add(' ,pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) ');
SQL.Add(',issp=isnull(A.issp,'''') ');
sql.Add(' FROM V_Tat_Cloth_IO A ');
sql.Add(' where A.IONo not LIKE ''RSG%'' and A.IOFlag = ''出库'' ');
sql.Add(' and A.C_Name = ' + QuotedStr(Trim(fC_Name)));
// sql.Add(' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp)));
sql.Add(WSql);
SQL.Add(' group by A.C_CODE,A.C_width,A.C_GramWeight,A.IOType,A.C_Name,isnull(A.issp,''''),CAST(ioTime AS DATE)');
SQL.Add(' order by A.C_Name,CAST(A.C_width AS INT),A.C_GramWeight,A.IOType,CAST(ioTime AS DATE)');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
TV2.DataController.Filter.Clear;
end;
end;
procedure TfrmTatClothCKHZList3.IOTypeChange(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTatClothCKHZList3.IsJYTimeClick(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatClothCKHZList3.TBRafreshClick(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothCKHZList3.CDS_1BeforeOpen(DataSet: TDataSet);
begin
lstCust.Clear;
end;
procedure TfrmTatClothCKHZList3.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmTatClothCKHZList3.cxPageControl1Change(Sender: TObject);
begin
CurrentPage := 1;
SetStatus();
InitGrid();
end;
procedure TfrmTatClothCKHZList3.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmTatClothCKHZList3.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatClothCKHZList3.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '成品出库汇总3');
CurrentPage := 1;
RecordsNumber := 500;
// canshu1 := Trim(Self.fParameters1);
EndDate.DateTime := fEndDateTime;
BegDate.DateTime := fBegDateTime;
SetStatus();
InitGrid();
end;
procedure TfrmTatClothCKHZList3.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid2);
InitGrid();
end;
procedure TfrmTatClothCKHZList3.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
CurrentPage := 1;
InitGrid();
end;
end;
procedure TfrmTatClothCKHZList3.PM11Click(Sender: TObject);
begin
SelOKNo(CDS_1, false);
end;
procedure TfrmTatClothCKHZList3.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstCust.Clear;
end;
procedure TfrmTatClothCKHZList3.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin
if lstCust <> nil then
AText := IntToStr(lstCust.Count);
end;
procedure TfrmTatClothCKHZList3.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid();
end;
procedure TfrmTatClothCKHZList3.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid();
end;
procedure TfrmTatClothCKHZList3.TCBNORChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothCKHZList3.JYTypeChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothCKHZList3.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, true);
end;
procedure TfrmTatClothCKHZList3.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothCKHZList3.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV2.Controller.FocusedColumn);
end;
procedure TfrmTatClothCKHZList3.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv2;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothCKHZList3.ToolButton2Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end
else
begin
WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TradeClothStk';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatClothCKHZList3.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '成品出库汇总3');
end;
end.

594
E04梭织坯布仓库/U_TatClothCRStkHZList.dfm Normal file
View File

@ -0,0 +1,594 @@
inherited frmTatClothCRStkHZList: TfrmTatClothCRStkHZList
Left = 184
Top = 138
Caption = #25104#21697#20986#20837#24211#23384#27719#24635#21015#34920'1'
ClientHeight = 600
ClientWidth = 1540
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatClothStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitLeft = -1
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBExport: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton4: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 67
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitLeft = 1
ExplicitTop = 33
object Label2: TLabel
Left = 70
Top = 36
Width = 12
Height = 12
Caption = #33267
end
object Label5: TLabel
Left = 190
Top = 9
Width = 39
Height = 12
Hint = '0'
Caption = #20135#21697#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object label11: TLabel
Left = 358
Top = 9
Width = 26
Height = 12
Hint = '0'
Caption = #38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 538
Top = 9
Width = 48
Height = 17
Caption = #26597#35810#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 30
Top = 9
Width = 52
Height = 12
Hint = '0'
Caption = #26597#35810#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 88
Top = 6
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 88
Top = 32
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 1
end
object begtime: TDateTimePicker
Left = 137
Top = 132
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 39780.000000000000000000
Kind = dtkTime
TabOrder = 2
end
object endTime: TDateTimePicker
Left = 137
Top = 156
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 0.999317129630071600
Kind = dtkTime
TabOrder = 3
end
object C_Name: TEdit
Tag = 2
Left = 237
Top = 6
Width = 100
Height = 20
Hint = '0'
TabOrder = 4
OnKeyPress = C_NameKeyPress
end
object C_Width: TEdit
Tag = 2
Left = 390
Top = 6
Width = 100
Height = 20
Hint = '0'
TabOrder = 5
OnKeyPress = C_NameKeyPress
end
object dayDate: TDateTimePicker
Left = 592
Top = 6
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 6
end
end
object Panel2: TPanel [2]
Left = 0
Top = 105
Width = 1540
Height = 495
Align = alClient
TabOrder = 2
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 1538
Height = 493
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PM_1
TabOrder = 0
ExplicitLeft = 2
ExplicitTop = 6
object cxGrid1DBBandedTableView1: TcxGridDBBandedTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
Bands = <
item
end>
end
object Tv1: TcxGridDBBandedTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv1Column16
end
item
Kind = skSum
Column = Tv1Column6
end
item
Kind = skSum
Column = Tv1Column17
end
item
Kind = skSum
Column = Tv1Column14
end
item
Kind = skSum
Column = Tv1Column5
end
item
Kind = skSum
Column = Tv1Column3
end
item
Kind = skSum
Column = Tv1Column7
end
item
Kind = skSum
Column = Tv1Column4
end
item
Kind = skSum
Column = Tv1Column8
end
item
Kind = skSum
Column = Tv1Column9
end
item
Kind = skSum
Column = Tv1Column10
end
item
Kind = skSum
Column = Tv1Column13
end
item
Kind = skSum
Column = Tv1Column12
end
item
Kind = skSum
Column = Tv1Column11
end
item
Kind = skSum
Column = Tv1Column15
end>
DataController.Summary.SummaryGroups = <>
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Header = DataLink_TatClothStk.Default
Bands = <
item
Caption = #22383#24067#20449#24687
end
item
Caption = #26412#26399#25910#20837
end
item
Caption = #26412#26399#21457#20986
end
item
Caption = #24211#23384
end
item
Caption = #26085#25910#20837
end
item
Caption = #26085#21457#20986
end>
object Tv1Column1: TcxGridDBBandedColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 0
Position.ColIndex = 0
Position.RowIndex = 0
end
object Tv1Column3: TcxGridDBBandedColumn
Caption = #24179#26041#25968
DataBinding.FieldName = 'BQOutPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 2
Position.ColIndex = 2
Position.RowIndex = 0
end
object Tv1Column4: TcxGridDBBandedColumn
Caption = #31859#25968
DataBinding.FieldName = 'OldStkmeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 3
Position.ColIndex = 1
Position.RowIndex = 0
end
object Tv1Column5: TcxGridDBBandedColumn
Caption = #31859#25968
DataBinding.FieldName = 'BQOutmeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 2
Position.ColIndex = 1
Position.RowIndex = 0
end
object Tv1Column7: TcxGridDBBandedColumn
Caption = #21367#25968
DataBinding.FieldName = 'OldStkPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 3
Position.ColIndex = 0
Position.RowIndex = 0
end
object Tv1Column8: TcxGridDBBandedColumn
Caption = #24179#26041#25968
DataBinding.FieldName = 'OldStkPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 3
Position.ColIndex = 2
Position.RowIndex = 0
end
object Tv1Column9: TcxGridDBBandedColumn
Caption = #20837#24211#21367#25968
DataBinding.FieldName = 'DayInPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 4
Position.ColIndex = 0
Position.RowIndex = 0
end
object Tv1Column10: TcxGridDBBandedColumn
Caption = #20837#24211#31859#25968
DataBinding.FieldName = 'DayInmeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 4
Position.ColIndex = 1
Position.RowIndex = 0
end
object Tv1Column11: TcxGridDBBandedColumn
Caption = #20986#24211#31859#25968
DataBinding.FieldName = 'DayOutmeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 5
Position.ColIndex = 1
Position.RowIndex = 0
end
object Tv1Column12: TcxGridDBBandedColumn
Caption = #20986#24211#21367#25968
DataBinding.FieldName = 'DayOutPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 5
Position.ColIndex = 0
Position.RowIndex = 0
end
object Tv1Column13: TcxGridDBBandedColumn
Caption = #20986#24211#24179#26041#25968
DataBinding.FieldName = 'DayInPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 4
Position.ColIndex = 2
Position.RowIndex = 0
end
object Tv1Column14: TcxGridDBBandedColumn
Caption = #21367#25968
DataBinding.FieldName = 'BQOutPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 2
Position.ColIndex = 0
Position.RowIndex = 0
end
object Tv1Column15: TcxGridDBBandedColumn
Caption = #20986#24211#24179#26041#25968
DataBinding.FieldName = 'DayOutPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 5
Position.ColIndex = 2
Position.RowIndex = 0
end
object Tv1Column16: TcxGridDBBandedColumn
Caption = #21367#25968
DataBinding.FieldName = 'BQInPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 1
Position.ColIndex = 0
Position.RowIndex = 0
end
object Tv1Column17: TcxGridDBBandedColumn
Caption = #24179#26041#25968
DataBinding.FieldName = 'BQInPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 1
Position.ColIndex = 2
Position.RowIndex = 0
end
object Tv1Column6: TcxGridDBBandedColumn
Caption = #31859#25968
DataBinding.FieldName = 'BQInmeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 1
Position.ColIndex = 1
Position.RowIndex = 0
end
object Tv1Column2: TcxGridDBBandedColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 0
Position.ColIndex = 1
Position.RowIndex = 0
end
object Tv1CIssp: TcxGridDBBandedColumn
Caption = #21452#21943
DataBinding.FieldName = 'Issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 0
Position.ColIndex = 2
Position.RowIndex = 0
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 553
Top = 200
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 425
Top = 201
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
CommandTimeout = 600
Parameters = <>
Left = 148
Top = 280
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 252
Top = 260
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
CommandTimeout = 600
Parameters = <>
Left = 112
Top = 204
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 740
Top = 252
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 552
Top = 272
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
BeforeOpen = CDS_1BeforeOpen
Left = 632
Top = 244
end
object PM_1: TPopupMenu
Left = 368
Top = 248
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object PM11: TMenuItem
Caption = #20840#24323
OnClick = PM11Click
end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end
end

431
E04梭织坯布仓库/U_TatClothCRStkHZList.pas Normal file
View File

@ -0,0 +1,431 @@
unit U_TatClothCRStkHZList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC,
System.StrUtils, dxScrollbarAnnotations;
type
TfrmTatClothCRStkHZList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_1: TClientDataSet;
begtime: TDateTimePicker;
endTime: TDateTimePicker;
ToolButton4: TToolButton;
Label5: TLabel;
C_Name: TEdit;
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
C_Width: TEdit;
label11: TLabel;
Panel2: TPanel;
N2: TMenuItem;
N3: TMenuItem;
Label1: TLabel;
dayDate: TDateTimePicker;
Label3: TLabel;
cxGrid1: TcxGrid;
cxGrid1Level1: TcxGridLevel;
cxGrid1DBBandedTableView1: TcxGridDBBandedTableView;
Tv1: TcxGridDBBandedTableView;
Tv1Column1: TcxGridDBBandedColumn;
Tv1Column3: TcxGridDBBandedColumn;
Tv1Column4: TcxGridDBBandedColumn;
Tv1Column5: TcxGridDBBandedColumn;
Tv1Column7: TcxGridDBBandedColumn;
Tv1Column8: TcxGridDBBandedColumn;
Tv1Column9: TcxGridDBBandedColumn;
Tv1Column10: TcxGridDBBandedColumn;
Tv1Column11: TcxGridDBBandedColumn;
Tv1Column12: TcxGridDBBandedColumn;
Tv1Column13: TcxGridDBBandedColumn;
Tv1Column14: TcxGridDBBandedColumn;
Tv1Column15: TcxGridDBBandedColumn;
Tv1Column16: TcxGridDBBandedColumn;
Tv1Column17: TcxGridDBBandedColumn;
Tv1Column6: TcxGridDBBandedColumn;
Tv1Column2: TcxGridDBBandedColumn;
Tv1CIssp: TcxGridDBBandedColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
procedure BTNPClick(Sender: TObject);
procedure BTLPClick(Sender: TObject);
procedure TCBNORChange(Sender: TObject);
procedure JYTypeChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure CDS_1BeforeOpen(DataSet: TDataSet);
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure N2Click(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure N3Click(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations }
public
canshu1: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint, U_TatClothStkHZList2;
{$R *.dfm}
procedure TfrmTatClothCRStkHZList.SetStatus();
begin
end;
procedure TfrmTatClothCRStkHZList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FreeAndNil(lstCust);
Action := caFree;
end;
procedure TfrmTatClothCRStkHZList.FormCreate(Sender: TObject);
begin
inherited;
lstCust := TStringList.Create;
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 20;
DayDate.Date := SGetServerDate(ADOQueryTemp);
end;
procedure TfrmTatClothCRStkHZList.InitGrid();
var
WSql: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
if Trim(WSql) <> '' then
WSql := ' and ' + WSql;
// if IsJYTime.Checked then
// begin
// WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
// WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
// end;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' exec P_Tat_Cloth_PSC ');
SQL.Add(' @Begdate='+QuotedStr(Trim(FormatDateTime('yyyy-mm-dd', BegDate.Date))));
SQL.Add(' ,@Enddate='+QuotedStr(Trim(FormatDateTime('yyyy-mm-dd', EndDate.Date))));
SQL.Add(' ,@dayDate='+QuotedStr(Trim(FormatDateTime('yyyy-mm-dd', dayDate.Date))));
SQL.Add(' ,@WSql='+QuotedStr(Trim(WSql)));
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
end;
procedure TfrmTatClothCRStkHZList.IsJYTimeClick(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatClothCRStkHZList.TBRafreshClick(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothCRStkHZList.CDS_1BeforeOpen(DataSet: TDataSet);
begin
lstCust.Clear;
end;
procedure TfrmTatClothCRStkHZList.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmTatClothCRStkHZList.cxPageControl1Change(Sender: TObject);
begin
CurrentPage := 1;
SetStatus();
InitGrid();
end;
procedure TfrmTatClothCRStkHZList.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmTatClothCRStkHZList.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatClothCRStkHZList.FormShow(Sender: TObject);
begin
inherited;
ReadCxBandedGrid(trim(self.Caption) + 'Tv1', Tv1, '成品出入库存汇总列表1');
// Tv1Column2.SortOrder := soNone;
CurrentPage := 1;
RecordsNumber := 500;
canshu1 := Trim(Self.fParameters1);
SetStatus();
InitGrid();
end;
procedure TfrmTatClothCRStkHZList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end;
procedure TfrmTatClothCRStkHZList.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
CurrentPage := 1;
InitGrid();
end;
end;
procedure TfrmTatClothCRStkHZList.PM11Click(Sender: TObject);
begin
SelOKNo(CDS_1, false);
end;
procedure TfrmTatClothCRStkHZList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstCust.Clear;
end;
procedure TfrmTatClothCRStkHZList.Tv1DblClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmTatClothStkHZList2 := TfrmTatClothStkHZList2.Create(Application);
with frmTatClothStkHZList2 do
begin
fC_Name := Self.CDS_1.FieldByName('C_Name').AsString;
fissp := Self.CDS_1.FieldByName('issp').AsString;
if ShowModal = 1 then
begin
end;
end;
finally
frmTatClothStkHZList2.Free;
end;
end;
procedure TfrmTatClothCRStkHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin
if lstCust <> nil then
AText := IntToStr(lstCust.Count);
end;
procedure TfrmTatClothCRStkHZList.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid();
end;
procedure TfrmTatClothCRStkHZList.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid();
end;
procedure TfrmTatClothCRStkHZList.TCBNORChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothCRStkHZList.JYTypeChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothCRStkHZList.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, true);
end;
procedure TfrmTatClothCRStkHZList.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothCRStkHZList.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatClothCRStkHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridBandedTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothCRStkHZList.ToolButton2Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end
else
begin
WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TradeClothStk';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatClothCRStkHZList.ToolButton4Click(Sender: TObject);
begin
WriteCxBandedGrid(trim(self.Caption) + 'Tv1', Tv1, '成品出入库存汇总列表1');
end;
end.

635
E04梭织坯布仓库/U_TatClothEDCDLook.dfm Normal file
View File

@ -0,0 +1,635 @@
inherited frmTatClothEDCDLook: TfrmTatClothEDCDLook
Left = 184
Top = 138
Caption = #20108#31561#30133#28857#27719#24635#21015#34920
ClientHeight = 600
ClientWidth = 1540
Position = poDesigned
WindowState = wsMaximized
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatClothStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBExport: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton4: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 67
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
object Label2: TLabel
Left = 70
Top = 36
Width = 12
Height = 13
Caption = #33267
end
object Label5: TLabel
Left = 190
Top = 10
Width = 39
Height = 12
Hint = '0'
Caption = #20135#21697#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object label11: TLabel
Left = 358
Top = 10
Width = 26
Height = 12
Hint = '0'
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object label12: TLabel
Left = 190
Top = 35
Width = 26
Height = 12
Hint = '0'
Caption = #38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 88
Top = 6
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 1
end
object EndDate: TDateTimePicker
Left = 88
Top = 32
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 2
end
object begtime: TDateTimePicker
Left = 137
Top = 132
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 39780.000000000000000000
Kind = dtkTime
TabOrder = 3
end
object endTime: TDateTimePicker
Left = 137
Top = 156
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 0.999317129630071600
Kind = dtkTime
TabOrder = 4
end
object IsJYTime: TCheckBox
Left = 14
Top = 8
Width = 73
Height = 17
Caption = #26597#35810#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = IsJYTimeClick
end
object C_Name: TEdit
Tag = 2
Left = 237
Top = 6
Width = 100
Height = 21
Hint = '0'
TabOrder = 5
OnKeyPress = C_NameKeyPress
end
object C_GramWeight: TEdit
Tag = 2
Left = 390
Top = 6
Width = 100
Height = 21
Hint = '0'
TabOrder = 6
OnKeyPress = C_NameKeyPress
end
object C_width: TEdit
Tag = 2
Left = 237
Top = 32
Width = 100
Height = 21
Hint = '0'
TabOrder = 7
OnKeyPress = C_NameKeyPress
end
end
object Panel2: TPanel [2]
Left = 0
Top = 105
Width = 1540
Height = 495
Align = alClient
TabOrder = 2
object cxGrid2: TcxGrid
Left = 1
Top = 1
Width = 1538
Height = 493
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PM_1
TabOrder = 0
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #26816#39564#31995#25968'=#.##'
Kind = skAverage
end
item
Format = #25442#31639#31995#25968'=#.##'
Kind = skAverage
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn6
end
item
Kind = skSum
Column = cxGridDBColumn7
end
item
Kind = skSum
Column = cxGridDBColumn9
end
item
Kind = skSum
Column = cxGridDBColumn10
end
item
Kind = skSum
Column = cxGridDBColumn12
end
item
Kind = skSum
Column = cxGridDBColumn13
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn15
end
item
Kind = skSum
Column = cxGridDBColumn16
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn18
end
item
Kind = skSum
Column = cxGridDBColumn19
end
item
Kind = skSum
Column = cxGridDBColumn21
end
item
Kind = skSum
Column = cxGridDBColumn14
end
item
Kind = skSum
Column = cxGridDBColumn11
end
item
Kind = skSum
Column = cxGridDBColumn8
end
item
Kind = skSum
Column = cxGridDBColumn17
end
item
Kind = skSum
Column = cxGridDBColumn20
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.IncSearch = DataLink_TatClothStk.SHuangSe
Styles.Footer = DataLink_TatClothStk.Default
Styles.Header = DataLink_TatClothStk.Default
Styles.Inactive = DataLink_TatClothStk.SHuangSe
Styles.Selection = DataLink_TatClothStk.SHuangSe
object cxGridDBColumn1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 66
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #21452#21943
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #20248#31561#21367#25968
DataBinding.FieldName = 'YDJs'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #20248#31561#31859#25968
DataBinding.FieldName = 'Ydqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #20248#31561#24179#26041
DataBinding.FieldName = 'YdPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #20108#31561#21367#25968
DataBinding.FieldName = 'edJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #20108#31561#31859#25968
DataBinding.FieldName = 'edqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #20108#31561#24179#26041
DataBinding.FieldName = 'edPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn12: TcxGridDBColumn
Caption = #23567#21367#21367#25968
DataBinding.FieldName = 'xjJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn13: TcxGridDBColumn
Caption = #23567#21367#25968#37327
DataBinding.FieldName = 'xjqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #23567#21367#24179#26041
DataBinding.FieldName = 'xjPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #20998#20999#21367#25968
DataBinding.FieldName = 'fqJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn16: TcxGridDBColumn
Caption = #20998#20999#24067#25968#37327
DataBinding.FieldName = 'fqqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn17: TcxGridDBColumn
Caption = #20998#20999#24179#26041
DataBinding.FieldName = 'fqPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn18: TcxGridDBColumn
Caption = #27979#35797#21367#25968
DataBinding.FieldName = 'csJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn19: TcxGridDBColumn
Caption = #27979#35797#25968#37327
DataBinding.FieldName = 'csqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn20: TcxGridDBColumn
Caption = #27979#35797#24179#26041
DataBinding.FieldName = 'csPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn21: TcxGridDBColumn
Caption = #24179#26041
DataBinding.FieldName = 'pf'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 553
Top = 200
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 425
Top = 201
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
CommandTimeout = 600
Parameters = <>
Left = 148
Top = 280
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 252
Top = 260
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
CommandTimeout = 600
Parameters = <>
Left = 112
Top = 204
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 708
Top = 156
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 608
Top = 136
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
BeforeOpen = CDS_1BeforeOpen
Left = 552
Top = 140
end
object PM_1: TPopupMenu
Left = 368
Top = 248
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object PM11: TMenuItem
Caption = #20840#24323
OnClick = PM11Click
end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
BeforeOpen = CDS_1BeforeOpen
Left = 552
Top = 276
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 708
Top = 292
end
end

420
E04梭织坯布仓库/U_TatClothEDCDLook.pas Normal file
View File

@ -0,0 +1,420 @@
unit U_TatClothEDCDLook;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, cxPC,
System.StrUtils, dxScrollbarAnnotations, U_BaseList, System.ImageList,
Vcl.ImgList;
type
TfrmTatClothEDCDLook = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_1: TClientDataSet;
begtime: TDateTimePicker;
endTime: TDateTimePicker;
IsJYTime: TCheckBox;
ToolButton4: TToolButton;
Label5: TLabel;
C_Name: TEdit;
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
C_GramWeight: TEdit;
label12: TLabel;
C_width: TEdit;
label11: TLabel;
Panel2: TPanel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
cxGridDBColumn21: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
CDS_2: TClientDataSet;
DS_2: TDataSource;
N2: TMenuItem;
N3: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
procedure BTNPClick(Sender: TObject);
procedure BTLPClick(Sender: TObject);
procedure TCBNORChange(Sender: TObject);
procedure JYTypeChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure CDS_1BeforeOpen(DataSet: TDataSet);
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations }
public
fC_Name: string;
fissp : string;
{ Public declarations }
end;
var
frmTatClothEDCDLook: TfrmTatClothEDCDLook;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint;
{$R *.dfm}
procedure TfrmTatClothEDCDLook.SetStatus();
begin
end;
procedure TfrmTatClothEDCDLook.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FreeAndNil(lstCust);
Action := caFree;
end;
procedure TfrmTatClothEDCDLook.FormCreate(Sender: TObject);
begin
inherited;
lstCust := TStringList.Create;
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 20;
end;
procedure TfrmTatClothEDCDLook.InitGrid();
var
WSql: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
if Trim(WSql) <> '' then
WSql := ' and ' + WSql;
if IsJYTime.Checked then
begin
WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
end;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight ');
SQL.Add('from V_TatClothEDCD A where 1=1 and C_NAME = ' + QuotedStr(Trim(fC_Name)));
if fissp <> '' then
begin
SQL.Add(' and issp = ''双喷''' );
end
else
begin
SQL.Add(' and issp <> ''双喷'' ' );
end;
SQL.Add(WSql);
sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,'''') ');
SQL.Add(' order by A.C_NAME, A.C_width,A.C_GramWeight');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2);
finally
ADOQueryMain.EnableControls;
TV2.DataController.Filter.Clear;
end;
end;
procedure TfrmTatClothEDCDLook.IsJYTimeClick(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatClothEDCDLook.TBRafreshClick(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothEDCDLook.CDS_1BeforeOpen(DataSet: TDataSet);
begin
lstCust.Clear;
end;
procedure TfrmTatClothEDCDLook.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmTatClothEDCDLook.cxPageControl1Change(Sender: TObject);
begin
CurrentPage := 1;
SetStatus();
InitGrid();
end;
procedure TfrmTatClothEDCDLook.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmTatClothEDCDLook.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatClothEDCDLook.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '成品库存汇总');
CurrentPage := 1;
RecordsNumber := 500;
SetStatus();
InitGrid();
end;
procedure TfrmTatClothEDCDLook.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
with CDS_2 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid2);
InitGrid();
end;
procedure TfrmTatClothEDCDLook.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
CurrentPage := 1;
InitGrid();
end;
end;
procedure TfrmTatClothEDCDLook.PM11Click(Sender: TObject);
begin
SelOKNo(CDS_2, false);
end;
procedure TfrmTatClothEDCDLook.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstCust.Clear;
end;
procedure TfrmTatClothEDCDLook.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin
if lstCust <> nil then
AText := IntToStr(lstCust.Count);
end;
procedure TfrmTatClothEDCDLook.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid();
end;
procedure TfrmTatClothEDCDLook.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid();
end;
procedure TfrmTatClothEDCDLook.TCBNORChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothEDCDLook.JYTypeChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothEDCDLook.N1Click(Sender: TObject);
begin
SelOKNo(CDS_2, true);
end;
procedure TfrmTatClothEDCDLook.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothEDCDLook.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV2.Controller.FocusedColumn);
end;
procedure TfrmTatClothEDCDLook.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv2;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothEDCDLook.ToolButton2Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end
else
begin
WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TradeClothStk';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatClothEDCDLook.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '成品库存汇总');
end;
end.

51
E04梭织坯布仓库/U_TatClothInList.dfm
View File

@ -222,7 +222,7 @@ inherited frmTatClothInList: TfrmTatClothInList
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 847 Left = 843
Top = 10 Top = 10
Width = 39 Width = 39
Height = 12 Height = 12
@ -236,7 +236,7 @@ inherited frmTatClothInList: TfrmTatClothInList
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 847 Left = 843
Top = 36 Top = 36
Width = 26 Width = 26
Height = 12 Height = 12
@ -250,7 +250,7 @@ inherited frmTatClothInList: TfrmTatClothInList
ParentFont = False ParentFont = False
end end
object Label8: TLabel object Label8: TLabel
Left = 1012 Left = 1008
Top = 9 Top = 9
Width = 52 Width = 52
Height = 12 Height = 12
@ -263,6 +263,20 @@ inherited frmTatClothInList: TfrmTatClothInList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label6: TLabel
Left = 1008
Top = 36
Width = 26
Height = 12
Hint = '0'
Caption = #31561#32423
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 88 Left = 88
Top = 6 Top = 6
@ -341,7 +355,7 @@ inherited frmTatClothInList: TfrmTatClothInList
end end
object STKID: TEdit object STKID: TEdit
Tag = 2 Tag = 2
Left = 716 Left = 712
Top = 32 Top = 32
Width = 100 Width = 100
Height = 20 Height = 20
@ -371,7 +385,7 @@ inherited frmTatClothInList: TfrmTatClothInList
end end
object jyg: TEdit object jyg: TEdit
Tag = 2 Tag = 2
Left = 716 Left = 712
Top = 6 Top = 6
Width = 100 Width = 100
Height = 20 Height = 20
@ -401,7 +415,7 @@ inherited frmTatClothInList: TfrmTatClothInList
end end
object carno: TEdit object carno: TEdit
Tag = 1 Tag = 1
Left = 892 Left = 882
Top = 6 Top = 6
Width = 100 Width = 100
Height = 20 Height = 20
@ -411,7 +425,7 @@ inherited frmTatClothInList: TfrmTatClothInList
end end
object dept: TEdit object dept: TEdit
Tag = 2 Tag = 2
Left = 892 Left = 882
Top = 32 Top = 32
Width = 100 Width = 100
Height = 20 Height = 20
@ -421,7 +435,7 @@ inherited frmTatClothInList: TfrmTatClothInList
end end
object IOType: TComboBox object IOType: TComboBox
Tag = 1 Tag = 1
Left = 1070 Left = 1061
Top = 6 Top = 6
Width = 100 Width = 100
Height = 20 Height = 20
@ -433,6 +447,16 @@ inherited frmTatClothInList: TfrmTatClothInList
#38144#21806#20986#24211 #38144#21806#20986#24211
#26399#21021#20837#24211) #26399#21021#20837#24211)
end end
object Grade: TEdit
Tag = 2
Left = 1061
Top = 32
Width = 100
Height = 20
Hint = '0'
TabOrder = 16
OnKeyPress = carnoKeyPress
end
end end
object Panel6: TPanel [2] object Panel6: TPanel [2]
Left = 0 Left = 0
@ -828,6 +852,13 @@ inherited frmTatClothInList: TfrmTatClothInList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1FlawList: TcxGridDBColumn
Caption = #30133#28857#24773#20917
DataBinding.FieldName = 'FlawList'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column46: TcxGridDBColumn object v1Column46: TcxGridDBColumn
Caption = #26816#39564#26426#21488 Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo' DataBinding.FieldName = 'CIMachNo'
@ -986,5 +1017,9 @@ inherited frmTatClothInList: TfrmTatClothInList
Caption = #22797#21046 Caption = #22797#21046
OnClick = N2Click OnClick = N2Click
end end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end end
end end

37
E04梭织坯布仓库/U_TatClothInList.pas
View File

@ -110,6 +110,10 @@ type
IOType: TComboBox; IOType: TComboBox;
Label8: TLabel; Label8: TLabel;
Tv1issp: TcxGridDBColumn; Tv1issp: TcxGridDBColumn;
Tv1FlawList: TcxGridDBColumn;
Label6: TLabel;
Grade: TEdit;
N3: TMenuItem;
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);
@ -136,11 +140,13 @@ type
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure carnoKeyPress(Sender: TObject; var Key: Char); procedure carnoKeyPress(Sender: TObject; var Key: Char);
procedure IOTypeChange(Sender: TObject); procedure IOTypeChange(Sender: TObject);
procedure N3Click(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
lstCust: TStringList; lstCust: TStringList;
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations } { Private declarations }
public public
canshu1, canshu2, FWorkshop: string; canshu1, canshu2, FWorkshop: string;
@ -276,7 +282,14 @@ procedure TfrmTatClothInList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
exit; exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1); TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end; end;
procedure TfrmTatClothInList.orderNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmTatClothInList.orderNoKeyPress(Sender: TObject; var Key: Char);
@ -449,6 +462,30 @@ begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end; end;
procedure TfrmTatClothInList.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatClothInList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothInList.ToolButton1Click(Sender: TObject); procedure TfrmTatClothInList.ToolButton1Click(Sender: TObject);
begin begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then

104
E04梭织坯布仓库/U_TatClothOutList.dfm
View File

@ -138,7 +138,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 525 Left = 522
Top = 10 Top = 10
Width = 26 Width = 26
Height = 12 Height = 12
@ -152,7 +152,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
ParentFont = False ParentFont = False
end end
object Label10: TLabel object Label10: TLabel
Left = 671 Left = 668
Top = 36 Top = 36
Width = 39 Width = 39
Height = 12 Height = 12
@ -180,7 +180,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
ParentFont = False ParentFont = False
end end
object Label20: TLabel object Label20: TLabel
Left = 525 Left = 522
Top = 36 Top = 36
Width = 26 Width = 26
Height = 12 Height = 12
@ -208,7 +208,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 671 Left = 668
Top = 10 Top = 10
Width = 39 Width = 39
Height = 12 Height = 12
@ -222,7 +222,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 831 Left = 828
Top = 10 Top = 10
Width = 39 Width = 39
Height = 12 Height = 12
@ -236,7 +236,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 831 Left = 828
Top = 36 Top = 36
Width = 26 Width = 26
Height = 12 Height = 12
@ -249,6 +249,48 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label8: TLabel
Left = 988
Top = 10
Width = 26
Height = 12
Hint = '0'
Caption = #38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 988
Top = 36
Width = 26
Height = 12
Hint = '0'
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 1133
Top = 10
Width = 52
Height = 12
Hint = '0'
Caption = #20986#24211#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 88 Left = 88
Top = 6 Top = 6
@ -317,7 +359,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end end
object conNO: TEdit object conNO: TEdit
Tag = 2 Tag = 2
Left = 409 Left = 406
Top = 6 Top = 6
Width = 100 Width = 100
Height = 20 Height = 20
@ -327,7 +369,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end end
object STKID: TEdit object STKID: TEdit
Tag = 2 Tag = 2
Left = 711 Left = 708
Top = 32 Top = 32
Width = 100 Width = 100
Height = 20 Height = 20
@ -337,7 +379,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end end
object C_Name: TEdit object C_Name: TEdit
Tag = 2 Tag = 2
Left = 409 Left = 406
Top = 32 Top = 32
Width = 100 Width = 100
Height = 20 Height = 20
@ -347,7 +389,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end end
object C_Color: TEdit object C_Color: TEdit
Tag = 2 Tag = 2
Left = 553 Left = 550
Top = 6 Top = 6
Width = 100 Width = 100
Height = 20 Height = 20
@ -357,7 +399,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end end
object C_Pattern: TEdit object C_Pattern: TEdit
Tag = 2 Tag = 2
Left = 553 Left = 550
Top = 32 Top = 32
Width = 100 Width = 100
Height = 20 Height = 20
@ -377,7 +419,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end end
object jyg: TEdit object jyg: TEdit
Tag = 2 Tag = 2
Left = 711 Left = 708
Top = 6 Top = 6
Width = 100 Width = 100
Height = 20 Height = 20
@ -387,7 +429,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end end
object carno: TEdit object carno: TEdit
Tag = 1 Tag = 1
Left = 871 Left = 868
Top = 6 Top = 6
Width = 100 Width = 100
Height = 20 Height = 20
@ -397,7 +439,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end end
object dept: TEdit object dept: TEdit
Tag = 2 Tag = 2
Left = 871 Left = 868
Top = 32 Top = 32
Width = 100 Width = 100
Height = 20 Height = 20
@ -405,6 +447,36 @@ inherited frmTatClothOutList: TfrmTatClothOutList
TabOrder = 14 TabOrder = 14
OnKeyPress = orderNoKeyPress OnKeyPress = orderNoKeyPress
end end
object C_Width: TEdit
Tag = 2
Left = 1018
Top = 6
Width = 100
Height = 20
Hint = '0'
TabOrder = 15
OnKeyPress = orderNoKeyPress
end
object C_GramWeight: TEdit
Tag = 2
Left = 1018
Top = 32
Width = 100
Height = 20
Hint = '0'
TabOrder = 16
OnKeyPress = orderNoKeyPress
end
object IONO: TEdit
Tag = 2
Left = 1189
Top = 6
Width = 100
Height = 20
Hint = '0'
TabOrder = 17
OnKeyPress = orderNoKeyPress
end
end end
object Panel6: TPanel [2] object Panel6: TPanel [2]
Tag = 2 Tag = 2
@ -937,5 +1009,9 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Caption = #22797#21046 Caption = #22797#21046
OnClick = N3Click OnClick = N3Click
end end
object N4: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N4Click
end
end end
end end

40
E04梭织坯布仓库/U_TatClothOutList.pas
View File

@ -105,6 +105,13 @@ type
Label6: TLabel; Label6: TLabel;
dept: TEdit; dept: TEdit;
Tv1issp: TcxGridDBColumn; Tv1issp: TcxGridDBColumn;
Label8: TLabel;
Label9: TLabel;
C_Width: TEdit;
C_GramWeight: TEdit;
Label11: TLabel;
IONO: TEdit;
N4: TMenuItem;
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);
@ -130,11 +137,13 @@ type
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
lstCust: TStringList; lstCust: TStringList;
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations } { Private declarations }
public public
canshu1, canshu2, FWorkshop: string; canshu1, canshu2, FWorkshop: string;
@ -267,7 +276,14 @@ procedure TfrmTatClothOutList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
exit; exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1); TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end; end;
procedure TfrmTatClothOutList.orderNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmTatClothOutList.orderNoKeyPress(Sender: TObject; var Key: Char);
@ -459,6 +475,30 @@ begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end; end;
procedure TfrmTatClothOutList.N4Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatClothOutList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothOutList.ToolButton1Click(Sender: TObject); procedure TfrmTatClothOutList.ToolButton1Click(Sender: TObject);
begin begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then

63
E04梭织坯布仓库/U_TatClothRKHZList.dfm
View File

@ -281,7 +281,9 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 111
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
@ -379,6 +381,26 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
item item
Kind = skSum Kind = skSum
Column = Tv1Column19 Column = Tv1Column19
end
item
Kind = skSum
Column = Tv1xjPF
end
item
Kind = skSum
Column = Tv1fqPF
end
item
Kind = skSum
Column = Tv1csPF
end
item
Kind = skSum
Column = Tv1edPF
end
item
Kind = skSum
Column = Tv1YdPF
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -414,6 +436,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'issp' DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1IOType: TcxGridDBColumn object Tv1IOType: TcxGridDBColumn
@ -421,34 +444,23 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column2: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column5: TcxGridDBColumn
Caption = #27969#36716#21345#21495
DataBinding.FieldName = 'pcid'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 68
end
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #20248#31561#21367#25968 Caption = #20248#31561#21367#25968
DataBinding.FieldName = 'YDJs' DataBinding.FieldName = 'YDJs'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74 Width = 74
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
@ -456,6 +468,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'Ydqty' DataBinding.FieldName = 'Ydqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1YdPF: TcxGridDBColumn object Tv1YdPF: TcxGridDBColumn
@ -463,6 +476,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'YdPF' DataBinding.FieldName = 'YdPF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
@ -470,6 +484,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'edJS' DataBinding.FieldName = 'edJS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
@ -477,6 +492,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'edqty' DataBinding.FieldName = 'edqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1edPF: TcxGridDBColumn object Tv1edPF: TcxGridDBColumn
@ -484,6 +500,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'edPF' DataBinding.FieldName = 'edPF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
@ -491,6 +508,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'xjJS' DataBinding.FieldName = 'xjJS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
@ -498,6 +516,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'xjqty' DataBinding.FieldName = 'xjqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1xjPF: TcxGridDBColumn object Tv1xjPF: TcxGridDBColumn
@ -505,6 +524,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'xjPF' DataBinding.FieldName = 'xjPF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column13: TcxGridDBColumn object Tv1Column13: TcxGridDBColumn
@ -512,6 +532,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'fqJS' DataBinding.FieldName = 'fqJS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column14: TcxGridDBColumn object Tv1Column14: TcxGridDBColumn
@ -519,6 +540,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'fqqty' DataBinding.FieldName = 'fqqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1fqPF: TcxGridDBColumn object Tv1fqPF: TcxGridDBColumn
@ -526,6 +548,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'fqPF' DataBinding.FieldName = 'fqPF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column17: TcxGridDBColumn object Tv1Column17: TcxGridDBColumn
@ -533,6 +556,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'csJS' DataBinding.FieldName = 'csJS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column18: TcxGridDBColumn object Tv1Column18: TcxGridDBColumn
@ -540,6 +564,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'csqty' DataBinding.FieldName = 'csqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1csPF: TcxGridDBColumn object Tv1csPF: TcxGridDBColumn
@ -547,6 +572,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'csPF' DataBinding.FieldName = 'csPF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column19: TcxGridDBColumn object Tv1Column19: TcxGridDBColumn
@ -554,6 +580,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'pf' DataBinding.FieldName = 'pf'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71 Width = 71
end end
end end
@ -622,5 +649,13 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
Caption = #20840#24323 Caption = #20840#24323
OnClick = PM11Click OnClick = PM11Click
end end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end end
end end

79
E04梭织坯布仓库/U_TatClothRKHZList.pas
View File

@ -45,9 +45,7 @@ type
PM_1: TPopupMenu; PM_1: TPopupMenu;
PM11: TMenuItem; PM11: TMenuItem;
N1: TMenuItem; N1: TMenuItem;
Tv1Column2: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
@ -74,6 +72,8 @@ type
Tv1xjPF: TcxGridDBColumn; Tv1xjPF: TcxGridDBColumn;
Tv1fqPF: TcxGridDBColumn; Tv1fqPF: TcxGridDBColumn;
Tv1csPF: TcxGridDBColumn; Tv1csPF: TcxGridDBColumn;
N2: TMenuItem;
N3: TMenuItem;
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);
@ -98,11 +98,15 @@ type
procedure IsJYTimeClick(Sender: TObject); procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char); procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure IOTypeChange(Sender: TObject); procedure IOTypeChange(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
lstCust: TStringList; lstCust: TStringList;
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations } { Private declarations }
public public
canshu1: string; canshu1: string;
@ -112,7 +116,7 @@ type
implementation implementation
uses uses
U_DataLink, U_RTFun, U_LabelPrint; U_DataLink, U_RTFun, U_LabelPrint, U_TatClothRKHZList2;
{$R *.dfm} {$R *.dfm}
@ -159,7 +163,8 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select C_NAME, C_width,C_GramWeight,pcid,max(IOType) as IOType '); // sql.Add('select C_NAME, C_width,C_GramWeight,pcid,max(IOType) as IOType ');
sql.Add('select C_NAME,C_GramWeight,IOType ');
SQL.Add(',pf=SUM(meter/100*CAST(C_WIDTH AS DECIMAL(18,2)))'); SQL.Add(',pf=SUM(meter/100*CAST(C_WIDTH AS DECIMAL(18,2)))');
SQL.Add(',SUM(CASE WHEN GRADE=''ÓŵÈÆ·'' THEN 1 ELSE 0 END )AS YDJS'); SQL.Add(',SUM(CASE WHEN GRADE=''ÓŵÈÆ·'' THEN 1 ELSE 0 END )AS YDJS');
SQL.Add(',SUM(CASE WHEN GRADE=''ÓŵÈÆ·'' THEN meter ELSE 0 END )AS Ydqty'); SQL.Add(',SUM(CASE WHEN GRADE=''ÓŵÈÆ·'' THEN meter ELSE 0 END )AS Ydqty');
@ -187,11 +192,13 @@ begin
SQL.Add(',SUM(CASE WHEN GRADE=''²âÊÔ'' THEN meter ELSE 0 END )AS csqty'); SQL.Add(',SUM(CASE WHEN GRADE=''²âÊÔ'' THEN meter ELSE 0 END )AS csqty');
SQL.Add(',SUM(CASE WHEN GRADE=''²âÊÔ'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF'); SQL.Add(',SUM(CASE WHEN GRADE=''²âÊÔ'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF');
sql.Add(',max(issp) as issp '); sql.Add(',issp=isnull(A.issp,'''') ');
SQL.Add('from V_Tat_Cloth_IO A where (A.IOFlag = ''Èë¿â'' ) ' + WSql); SQL.Add('from V_Tat_Cloth_IO A where (A.IOFlag = ''Èë¿â'' ) ' + WSql);
sql.Add('group by C_NAME, C_width,C_GramWeight,pcid,issp'); // sql.Add('group by C_NAME, C_width,C_GramWeight,pcid,isnull(A.issp,'''')');
sql.Add('Order by C_NAME, C_width,C_GramWeight '); sql.Add('group by C_NAME, IOType,C_GramWeight,isnull(A.issp,'''')');
// sql.Add('Order by C_NAME, C_width,C_GramWeight ');
sql.Add('Order by C_NAME, IOType,C_GramWeight ');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;
end; end;
@ -280,7 +287,14 @@ procedure TfrmTatClothRKHZList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
exit; exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1); TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end; end;
procedure TfrmTatClothRKHZList.orderNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmTatClothRKHZList.orderNoKeyPress(Sender: TObject; var Key: Char);
@ -302,6 +316,28 @@ begin
lstCust.Clear; lstCust.Clear;
end; end;
procedure TfrmTatClothRKHZList.Tv1DblClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmTatClothRKHZList2 := TfrmTatClothRKHZList2.Create(Application);
with frmTatClothRKHZList2 do
begin
fC_Name := Self.CDS_1.FieldByName('C_Name').AsString;
fissp := Self.CDS_1.FieldByName('issp').AsString;
fioType := Self.CDS_1.FieldByName('ioType').AsString;
if ShowModal = 1 then
begin
end;
end;
finally
frmTatClothRKHZList2.Free;
end;
end;
procedure TfrmTatClothRKHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); procedure TfrmTatClothRKHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin begin
if lstCust <> nil then if lstCust <> nil then
@ -341,6 +377,35 @@ begin
SelOKNo(CDS_1, true); SelOKNo(CDS_1, true);
end; end;
procedure TfrmTatClothRKHZList.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothRKHZList.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatClothRKHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothRKHZList.ToolButton2Click(Sender: TObject); procedure TfrmTatClothRKHZList.ToolButton2Click(Sender: TObject);
var var
WSql: string; WSql: string;

676
E04梭织坯布仓库/U_TatClothRKHZList2.dfm Normal file
View File

@ -0,0 +1,676 @@
inherited frmTatClothRKHZList2: TfrmTatClothRKHZList2
Left = 184
Top = 138
Caption = #25104#21697#20837#24211#27719#24635#21015#34920'2'
ClientHeight = 600
ClientWidth = 1540
Position = poScreenCenter
WindowState = wsMaximized
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatClothStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBExport: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton4: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 67
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 32
object Label2: TLabel
Left = 70
Top = 36
Width = 12
Height = 13
Caption = #33267
end
object Label5: TLabel
Left = 190
Top = 10
Width = 39
Height = 12
Hint = '0'
Caption = #20135#21697#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 358
Top = 10
Width = 26
Height = 12
Hint = '0'
Caption = #38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 190
Top = 36
Width = 26
Height = 12
Hint = '0'
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 534
Top = 10
Width = 52
Height = 12
Hint = '0'
Caption = #20837#24211#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 358
Top = 36
Width = 52
Height = 12
Hint = '0'
Caption = #27969#36716#21345#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 88
Top = 6
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 1
end
object EndDate: TDateTimePicker
Left = 88
Top = 32
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 2
end
object begtime: TDateTimePicker
Left = 137
Top = 132
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 39780.000000000000000000
Kind = dtkTime
TabOrder = 3
end
object endTime: TDateTimePicker
Left = 137
Top = 156
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 0.999317129630071600
Kind = dtkTime
TabOrder = 4
end
object IsJYTime: TCheckBox
Left = 14
Top = 8
Width = 73
Height = 17
Caption = #26597#35810#26085#26399
Checked = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
State = cbChecked
TabOrder = 0
OnClick = IsJYTimeClick
end
object C_Name: TEdit
Tag = 2
Left = 237
Top = 6
Width = 100
Height = 21
Hint = '0'
TabOrder = 5
OnKeyPress = C_NameKeyPress
end
object C_Width: TEdit
Tag = 2
Left = 415
Top = 6
Width = 100
Height = 21
Hint = '0'
TabOrder = 6
OnKeyPress = C_NameKeyPress
end
object C_GramWeight: TEdit
Tag = 2
Left = 237
Top = 32
Width = 100
Height = 21
Hint = '0'
TabOrder = 7
OnKeyPress = C_NameKeyPress
end
object IOType: TComboBox
Tag = 2
Left = 591
Top = 6
Width = 100
Height = 21
TabOrder = 8
OnChange = IOTypeChange
Items.Strings = (
#26816#39564#20837#24211
#26399#21021#20837#24211
#27979#35797#20837#24211
#36864#36135#20837#24211)
end
object PCID: TEdit
Tag = 2
Left = 415
Top = 32
Width = 100
Height = 21
Hint = '0'
TabOrder = 9
OnKeyPress = C_NameKeyPress
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 105
Width = 1540
Height = 495
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 111
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #26816#39564#31995#25968'=#.##'
Kind = skAverage
end
item
Format = #25442#31639#31995#25968'=#.##'
Kind = skAverage
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column6
end
item
Kind = skSum
Column = Tv1Column1
end
item
Kind = skSum
Column = Tv1Column7
end
item
Kind = skSum
Column = Tv1Column8
end
item
Kind = skSum
Column = Tv1Column9
end
item
Kind = skSum
Column = Tv1Column10
end
item
Kind = skSum
Column = Tv1Column13
end
item
Kind = skSum
Column = Tv1Column14
end
item
Kind = skSum
Column = Tv1Column17
end
item
Kind = skSum
Column = Tv1Column18
end
item
Kind = skSum
Column = Tv1Column19
end
item
Kind = skSum
Column = Tv1xjPF
end
item
Kind = skSum
Column = Tv1fqPF
end
item
Kind = skSum
Column = Tv1csPF
end
item
Kind = skSum
Column = Tv1edPF
end
item
Kind = skSum
Column = Tv1YdPF
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.IncSearch = DataLink_TatClothStk.SHuangSe
Styles.Footer = DataLink_TatClothStk.Default
Styles.Header = DataLink_TatClothStk.Default
Styles.Inactive = DataLink_TatClothStk.SHuangSe
Styles.Selection = DataLink_TatClothStk.SHuangSe
object v1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column2: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1issp: TcxGridDBColumn
Caption = #21452#21943
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1IOType: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column4: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column5: TcxGridDBColumn
Caption = #27969#36716#21345#21495
DataBinding.FieldName = 'pcid'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
end
object Tv1Column6: TcxGridDBColumn
Caption = #20248#31561#21367#25968
DataBinding.FieldName = 'YDJs'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object Tv1Column1: TcxGridDBColumn
Caption = #20248#31561#31859#25968
DataBinding.FieldName = 'Ydqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1YdPF: TcxGridDBColumn
Caption = #20248#31561#24179#26041
DataBinding.FieldName = 'YdPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column7: TcxGridDBColumn
Caption = #20108#31561#21367#25968
DataBinding.FieldName = 'edJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column8: TcxGridDBColumn
Caption = #20108#31561#31859#25968
DataBinding.FieldName = 'edqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1edPF: TcxGridDBColumn
Caption = #20108#31561#24179#26041
DataBinding.FieldName = 'edPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column9: TcxGridDBColumn
Caption = #23567#21367#21367#25968
DataBinding.FieldName = 'xjJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column10: TcxGridDBColumn
Caption = #23567#21367#25968#37327
DataBinding.FieldName = 'xjqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1xjPF: TcxGridDBColumn
Caption = #23567#21367#24179#26041
DataBinding.FieldName = 'xjPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column13: TcxGridDBColumn
Caption = #20998#20999#21367#25968
DataBinding.FieldName = 'fqJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column14: TcxGridDBColumn
Caption = #20998#20999#24067#25968#37327
DataBinding.FieldName = 'fqqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1fqPF: TcxGridDBColumn
Caption = #20998#20999#24179#26041
DataBinding.FieldName = 'fqPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column17: TcxGridDBColumn
Caption = #27979#35797#21367#25968
DataBinding.FieldName = 'csJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column18: TcxGridDBColumn
Caption = #27979#35797#25968#37327
DataBinding.FieldName = 'csqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1csPF: TcxGridDBColumn
Caption = #27979#35797#24179#26041
DataBinding.FieldName = 'csPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column19: TcxGridDBColumn
Caption = #24179#26041
DataBinding.FieldName = 'pf'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 561
Top = 208
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 425
Top = 201
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
CommandTimeout = 600
Parameters = <>
Left = 148
Top = 280
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 252
Top = 260
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
CommandTimeout = 600
Parameters = <>
Left = 112
Top = 204
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 828
Top = 284
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 728
Top = 288
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
BeforeOpen = CDS_1BeforeOpen
Left = 776
Top = 284
end
object PM_1: TPopupMenu
Left = 560
Top = 384
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object PM11: TMenuItem
Caption = #20840#24323
OnClick = PM11Click
end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end
end

460
E04梭织坯布仓库/U_TatClothRKHZList2.pas Normal file
View File

@ -0,0 +1,460 @@
unit U_TatClothRKHZList2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, cxPC,
System.StrUtils, dxScrollbarAnnotations, U_BaseList, System.ImageList,
Vcl.ImgList;
type
TfrmTatClothRKHZList2 = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_1: TClientDataSet;
begtime: TDateTimePicker;
endTime: TDateTimePicker;
IsJYTime: TCheckBox;
ToolButton4: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label5: TLabel;
C_Name: TEdit;
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
Tv1Column2: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Label1: TLabel;
C_Width: TEdit;
Label3: TLabel;
C_GramWeight: TEdit;
Tv1IOType: TcxGridDBColumn;
IOType: TComboBox;
Label4: TLabel;
Label6: TLabel;
PCID: TEdit;
Tv1issp: TcxGridDBColumn;
Tv1YdPF: TcxGridDBColumn;
Tv1edPF: TcxGridDBColumn;
Tv1xjPF: TcxGridDBColumn;
Tv1fqPF: TcxGridDBColumn;
Tv1csPF: TcxGridDBColumn;
N2: TMenuItem;
N3: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
procedure BTNPClick(Sender: TObject);
procedure BTLPClick(Sender: TObject);
procedure TCBNORChange(Sender: TObject);
procedure JYTypeChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure CDS_1BeforeOpen(DataSet: TDataSet);
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure IOTypeChange(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations }
public
fissp : string;
fC_Name: string;
fioType : string;
{ Public declarations }
end;
var
frmTatClothRKHZList2: TfrmTatClothRKHZList2;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint;
{$R *.dfm}
procedure TfrmTatClothRKHZList2.SetStatus();
begin
end;
procedure TfrmTatClothRKHZList2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FreeAndNil(lstCust);
Action := caFree;
end;
procedure TfrmTatClothRKHZList2.FormCreate(Sender: TObject);
begin
inherited;
lstCust := TStringList.Create;
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 20;
end;
procedure TfrmTatClothRKHZList2.InitGrid();
var
WSql: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
if Trim(WSql) <> '' then
WSql := ' and ' + WSql;
if IsJYTime.Checked then
begin
WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
end;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
// sql.Add('select C_NAME, C_width,C_GramWeight,pcid,max(IOType) as IOType ');
sql.Add('select C_NAME,C_GramWeight,pcid,iotype,C_WIDTH ');
SQL.Add(',pf=SUM(meter/100*CAST(C_WIDTH AS DECIMAL(18,2)))');
SQL.Add(',SUM(CASE WHEN GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
SQL.Add(',SUM(CASE WHEN GRADE=''优等品'' THEN meter ELSE 0 END )AS Ydqty');
SQL.Add(',SUM(CASE WHEN GRADE=''优等品'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF');
SQL.Add(',SUM(CASE WHEN GRADE=''二等品'' THEN 1 ELSE 0 END )AS edJS');
SQL.Add(',SUM(CASE WHEN GRADE=''二等品'' THEN meter ELSE 0 END )AS edqty');
SQL.Add(',SUM(CASE WHEN GRADE=''二等品'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF');
SQL.Add(',SUM(CASE WHEN GRADE=''小卷'' THEN 1 ELSE 0 END )AS xjJS');
SQL.Add(',SUM(CASE WHEN GRADE=''小卷'' THEN meter ELSE 0 END )AS xjqty');
SQL.Add(',SUM(CASE WHEN GRADE=''小卷'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF');
SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN 1 ELSE 0 END )AS fbJS');
SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN meter ELSE 0 END )AS fbqty');
SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fbPF');
SQL.Add(',SUM(CASE WHEN GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS');
SQL.Add(',SUM(CASE WHEN GRADE=''分切'' THEN meter ELSE 0 END )AS fqqty');
SQL.Add(',SUM(CASE WHEN GRADE=''分切'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF');
SQL.Add(',SUM(CASE WHEN GRADE=''循环布'' THEN 1 ELSE 0 END )AS xhJS');
SQL.Add(',SUM(CASE WHEN GRADE=''循环布'' THEN meter ELSE 0 END )AS xhqty');
SQL.Add(',SUM(CASE WHEN GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
SQL.Add(',SUM(CASE WHEN GRADE=''测试'' THEN meter ELSE 0 END )AS csqty');
SQL.Add(',SUM(CASE WHEN GRADE=''测试'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF');
sql.Add(',issp=isnull(A.issp,'''') ');
SQL.Add('from V_Tat_Cloth_IO A where (A.IOFlag = ''入库'' ) ' + WSql);
sql.Add(' and C_NAME=' + QuotedStr(Trim(fC_Name)));
sql.Add(' and ioType=' + QuotedStr(Trim(fioType)));
if fissp <> '' then
begin
SQL.Add(' and isnull(issp,'''') = ''双喷''' );
end
else
begin
SQL.Add(' and isnull(issp,'''') <> ''双喷'' ' );
end;
sql.Add('group by C_NAME, C_width,C_GramWeight,IOType,pcid,isnull(A.issp,'''')');
// sql.Add('group by C_NAME, IOType,C_GramWeight,pcid,isnull(A.issp,'''')');
sql.Add('Order by C_NAME, C_width,pcid,C_GramWeight ');
// sql.Add('Order by C_NAME, IOType,C_GramWeight ');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
end;
procedure TfrmTatClothRKHZList2.IOTypeChange(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTatClothRKHZList2.IsJYTimeClick(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatClothRKHZList2.TBRafreshClick(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothRKHZList2.CDS_1BeforeOpen(DataSet: TDataSet);
begin
lstCust.Clear;
end;
procedure TfrmTatClothRKHZList2.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmTatClothRKHZList2.cxPageControl1Change(Sender: TObject);
begin
CurrentPage := 1;
SetStatus();
InitGrid();
end;
procedure TfrmTatClothRKHZList2.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmTatClothRKHZList2.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatClothRKHZList2.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品入库汇总2');
CurrentPage := 1;
RecordsNumber := 500;
// canshu1 := Trim(Self.fParameters1);
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime;
SetStatus();
InitGrid();
end;
procedure TfrmTatClothRKHZList2.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end;
procedure TfrmTatClothRKHZList2.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
CurrentPage := 1;
InitGrid();
end;
end;
procedure TfrmTatClothRKHZList2.PM11Click(Sender: TObject);
begin
SelOKNo(CDS_1, false);
end;
procedure TfrmTatClothRKHZList2.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstCust.Clear;
end;
procedure TfrmTatClothRKHZList2.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin
if lstCust <> nil then
AText := IntToStr(lstCust.Count);
end;
procedure TfrmTatClothRKHZList2.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid();
end;
procedure TfrmTatClothRKHZList2.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid();
end;
procedure TfrmTatClothRKHZList2.TCBNORChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothRKHZList2.JYTypeChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothRKHZList2.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, true);
end;
procedure TfrmTatClothRKHZList2.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothRKHZList2.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatClothRKHZList2.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothRKHZList2.ToolButton2Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end
else
begin
WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TradeClothStk';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatClothRKHZList2.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品入库汇总2');
end;
end.

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

@ -1,7 +1,7 @@
inherited frmTatClothStkHZList: TfrmTatClothStkHZList inherited frmTatClothStkHZList: TfrmTatClothStkHZList
Left = 184 Left = 184
Top = 138 Top = 138
Caption = #25104#21697#24211#23384#27719#24635#21015#34920 Caption = #25104#21697#24211#23384#27719#24635#21015#34920'1'
ClientHeight = 600 ClientHeight = 600
ClientWidth = 1540 ClientWidth = 1540
FormStyle = fsMDIChild FormStyle = fsMDIChild
@ -19,7 +19,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
ButtonWidth = 91 ButtonWidth = 115
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -33,7 +33,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = 2
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -50,16 +49,23 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
ImageIndex = 20 ImageIndex = 20
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton4: TToolButton object ToolButton1: TToolButton
Left = 142 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20108#31561#27719#24635#26597#30475
ImageIndex = 8
end
object ToolButton4: TToolButton
Left = 261
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
ImageIndex = 16 ImageIndex = 16
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 237 Left = 356
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -78,7 +84,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 32
object Label2: TLabel object Label2: TLabel
Left = 70 Left = 70
Top = 36 Top = 36
@ -114,20 +119,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object label12: TLabel
Left = 190
Top = 35
Width = 26
Height = 12
Hint = '0'
Caption = #38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 88 Left = 88
Top = 6 Top = 6
@ -203,23 +194,21 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
TabOrder = 6 TabOrder = 6
OnKeyPress = C_NameKeyPress OnKeyPress = C_NameKeyPress
end end
object C_width: TEdit
Tag = 2
Left = 237
Top = 32
Width = 100
Height = 20
Hint = '0'
TabOrder = 7
OnKeyPress = C_NameKeyPress
end end
end object Panel2: TPanel [2]
object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1540 Width = 1540
Height = 495 Height = 495
Align = alClient Align = alClient
TabOrder = 2
ExplicitTop = 111
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 1538
Height = 493
Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -228,9 +217,9 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 0
ExplicitTop = 111
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
@ -339,7 +328,30 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column19 end
item
Kind = skSum
Column = Tv1YdPF
end
item
Kind = skSum
Column = Tv1edPF
end
item
Kind = skSum
Column = Tv1xjPF
end
item
Kind = skSum
Column = Tv1fqPF
end
item
Kind = skSum
Column = Tv1csPF
end
item
Kind = skSum
Column = Tv1pf
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -375,20 +387,15 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'issp' DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column2: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
@ -396,6 +403,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'YDJs' DataBinding.FieldName = 'YDJs'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74 Width = 74
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
@ -403,13 +411,15 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'Ydqty' DataBinding.FieldName = 'Ydqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column5: TcxGridDBColumn object Tv1YdPF: TcxGridDBColumn
Caption = #20248#31561#24179#26041 Caption = #20248#31561#24179#26041
DataBinding.FieldName = 'YdPF' DataBinding.FieldName = 'YdPF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
@ -417,6 +427,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'edJS' DataBinding.FieldName = 'edJS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
@ -424,13 +435,15 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'edqty' DataBinding.FieldName = 'edqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column11: TcxGridDBColumn object Tv1edPF: TcxGridDBColumn
Caption = #20108#31561#24179#26041 Caption = #20108#31561#24179#26041
DataBinding.FieldName = 'edPF' DataBinding.FieldName = 'edPF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
@ -438,6 +451,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'xjJS' DataBinding.FieldName = 'xjJS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
@ -445,13 +459,15 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'xjqty' DataBinding.FieldName = 'xjqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column12: TcxGridDBColumn object Tv1xjPF: TcxGridDBColumn
Caption = #23567#21367#24179#26041 Caption = #23567#21367#24179#26041
DataBinding.FieldName = 'xjPF' DataBinding.FieldName = 'xjPF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column13: TcxGridDBColumn object Tv1Column13: TcxGridDBColumn
@ -459,6 +475,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'fqJS' DataBinding.FieldName = 'fqJS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column14: TcxGridDBColumn object Tv1Column14: TcxGridDBColumn
@ -466,13 +483,15 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'fqqty' DataBinding.FieldName = 'fqqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column15: TcxGridDBColumn object Tv1fqPF: TcxGridDBColumn
Caption = #20998#20999#24179#26041 Caption = #20998#20999#24179#26041
DataBinding.FieldName = 'fqPF' DataBinding.FieldName = 'fqPF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column17: TcxGridDBColumn object Tv1Column17: TcxGridDBColumn
@ -480,6 +499,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'csJS' DataBinding.FieldName = 'csJS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column18: TcxGridDBColumn object Tv1Column18: TcxGridDBColumn
@ -487,27 +507,31 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'csqty' DataBinding.FieldName = 'csqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column16: TcxGridDBColumn object Tv1csPF: TcxGridDBColumn
Caption = #27979#35797#24179#26041 Caption = #27979#35797#24179#26041
DataBinding.FieldName = 'csPF' DataBinding.FieldName = 'csPF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column19: TcxGridDBColumn object Tv1pf: TcxGridDBColumn
Caption = #24179#26041 Caption = #24179#26041
DataBinding.FieldName = 'pf' DataBinding.FieldName = 'pf'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 71 Options.Editing = False
Width = 80
end end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
end end
end end
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink Connection = DataLink_TatClothStk.ADOLink
Left = 553 Left = 553
@ -542,25 +566,25 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
end end
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_1 DataSet = CDS_1
Left = 828 Left = 708
Top = 284 Top = 156
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 728 Left = 608
Top = 288 Top = 136
end end
object CDS_1: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
BeforeOpen = CDS_1BeforeOpen BeforeOpen = CDS_1BeforeOpen
Left = 776 Left = 552
Top = 284 Top = 140
end end
object PM_1: TPopupMenu object PM_1: TPopupMenu
Left = 560 Left = 368
Top = 384 Top = 248
object N1: TMenuItem object N1: TMenuItem
Caption = #20840#36873 Caption = #20840#36873
OnClick = N1Click OnClick = N1Click
@ -569,5 +593,13 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
Caption = #20840#24323 Caption = #20840#24323
OnClick = PM11Click OnClick = PM11Click
end end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end end
end end

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

@ -40,11 +40,14 @@ type
PM_1: TPopupMenu; PM_1: TPopupMenu;
PM11: TMenuItem; PM11: TMenuItem;
N1: TMenuItem; N1: TMenuItem;
C_GramWeight: TEdit;
label11: TLabel;
Panel2: TPanel;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn; v1Column22: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1issp: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
@ -56,18 +59,16 @@ type
Tv1Column14: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
C_GramWeight: TEdit; N2: TMenuItem;
label12: TLabel; Tv1pf: TcxGridDBColumn;
C_width: TEdit; Tv1YdPF: TcxGridDBColumn;
label11: TLabel; Tv1edPF: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1xjPF: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn; Tv1fqPF: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn; Tv1csPF: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn; N3: TMenuItem;
Tv1Column16: TcxGridDBColumn; ToolButton1: TToolButton;
Tv1issp: 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);
@ -91,11 +92,17 @@ type
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject); procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char); procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure N2Click(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure N3Click(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
lstCust: TStringList; lstCust: TStringList;
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations } { Private declarations }
public public
canshu1: string; canshu1: string;
@ -105,7 +112,7 @@ type
implementation implementation
uses uses
U_DataLink, U_RTFun, U_LabelPrint; U_DataLink, U_RTFun, U_LabelPrint, U_TatClothStkHZList2;
{$R *.dfm} {$R *.dfm}
@ -152,7 +159,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight '); sql.Add('select A.C_NAME ,A.C_GramWeight');
SQL.Add(',pf=SUM(A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)))'); SQL.Add(',pf=SUM(A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)))');
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS'); SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )AS Ydqty'); SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )AS Ydqty');
@ -174,12 +181,12 @@ begin
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS'); SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )AS csqty'); SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )AS csqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF'); SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF');
sql.Add(', A.issp '); sql.Add(', issp=isnull(A.issp,'''') ');
SQL.Add('from V_Tat_Cloth_stk A where 1=1 ' + WSql); SQL.Add('from V_Tat_Cloth_stk A where 1=1 ' + WSql);
sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,issp'); sql.Add(' group by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') ');
SQL.Add(' order by A.C_NAME, A.C_width,A.C_GramWeight'); SQL.Add(' order by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') ');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;
@ -194,6 +201,8 @@ begin
end; end;
procedure TfrmTatClothStkHZList.IsJYTimeClick(Sender: TObject); procedure TfrmTatClothStkHZList.IsJYTimeClick(Sender: TObject);
begin begin
inherited; inherited;
@ -247,6 +256,7 @@ begin
inherited; inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存汇总'); ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存汇总');
CurrentPage := 1; CurrentPage := 1;
RecordsNumber := 500; RecordsNumber := 500;
canshu1 := Trim(Self.fParameters1); canshu1 := Trim(Self.fParameters1);
@ -259,7 +269,16 @@ procedure TfrmTatClothStkHZList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
exit; exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1); TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end; end;
procedure TfrmTatClothStkHZList.orderNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmTatClothStkHZList.orderNoKeyPress(Sender: TObject; var Key: Char);
@ -281,6 +300,27 @@ begin
lstCust.Clear; lstCust.Clear;
end; end;
procedure TfrmTatClothStkHZList.Tv1DblClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmTatClothStkHZList2 := TfrmTatClothStkHZList2.Create(Application);
with frmTatClothStkHZList2 do
begin
fC_Name := Self.CDS_1.FieldByName('C_Name').AsString;
fissp := Self.CDS_1.FieldByName('issp').AsString;
if ShowModal = 1 then
begin
end;
end;
finally
frmTatClothStkHZList2.Free;
end;
end;
procedure TfrmTatClothStkHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); procedure TfrmTatClothStkHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin begin
if lstCust <> nil then if lstCust <> nil then
@ -320,6 +360,37 @@ begin
SelOKNo(CDS_1, true); SelOKNo(CDS_1, true);
end; end;
procedure TfrmTatClothStkHZList.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothStkHZList.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatClothStkHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothStkHZList.ToolButton2Click(Sender: TObject); procedure TfrmTatClothStkHZList.ToolButton2Click(Sender: TObject);
var var
WSql: string; WSql: string;
@ -373,6 +444,7 @@ end;
procedure TfrmTatClothStkHZList.ToolButton4Click(Sender: TObject); procedure TfrmTatClothStkHZList.ToolButton4Click(Sender: TObject);
begin begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存汇总'); WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存汇总');
end; end;
end. end.

635
E04梭织坯布仓库/U_TatClothStkHZList2.dfm Normal file
View File

@ -0,0 +1,635 @@
inherited frmTatClothStkHZList2: TfrmTatClothStkHZList2
Left = 184
Top = 138
Caption = #25104#21697#24211#23384#27719#24635#21015#34920'2'
ClientHeight = 600
ClientWidth = 1540
Position = poDesigned
WindowState = wsMaximized
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatClothStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBExport: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton4: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 67
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
object Label2: TLabel
Left = 70
Top = 36
Width = 12
Height = 13
Caption = #33267
end
object Label5: TLabel
Left = 190
Top = 10
Width = 39
Height = 12
Hint = '0'
Caption = #20135#21697#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object label11: TLabel
Left = 358
Top = 10
Width = 26
Height = 12
Hint = '0'
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object label12: TLabel
Left = 190
Top = 35
Width = 26
Height = 12
Hint = '0'
Caption = #38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 88
Top = 6
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 1
end
object EndDate: TDateTimePicker
Left = 88
Top = 32
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 2
end
object begtime: TDateTimePicker
Left = 137
Top = 132
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 39780.000000000000000000
Kind = dtkTime
TabOrder = 3
end
object endTime: TDateTimePicker
Left = 137
Top = 156
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 0.999317129630071600
Kind = dtkTime
TabOrder = 4
end
object IsJYTime: TCheckBox
Left = 14
Top = 8
Width = 73
Height = 17
Caption = #26597#35810#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = IsJYTimeClick
end
object C_Name: TEdit
Tag = 2
Left = 237
Top = 6
Width = 100
Height = 21
Hint = '0'
TabOrder = 5
OnKeyPress = C_NameKeyPress
end
object C_GramWeight: TEdit
Tag = 2
Left = 390
Top = 6
Width = 100
Height = 21
Hint = '0'
TabOrder = 6
OnKeyPress = C_NameKeyPress
end
object C_width: TEdit
Tag = 2
Left = 237
Top = 32
Width = 100
Height = 21
Hint = '0'
TabOrder = 7
OnKeyPress = C_NameKeyPress
end
end
object Panel2: TPanel [2]
Left = 0
Top = 105
Width = 1540
Height = 495
Align = alClient
TabOrder = 2
object cxGrid2: TcxGrid
Left = 1
Top = 1
Width = 1538
Height = 493
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PM_1
TabOrder = 0
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #26816#39564#31995#25968'=#.##'
Kind = skAverage
end
item
Format = #25442#31639#31995#25968'=#.##'
Kind = skAverage
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn6
end
item
Kind = skSum
Column = cxGridDBColumn7
end
item
Kind = skSum
Column = cxGridDBColumn9
end
item
Kind = skSum
Column = cxGridDBColumn10
end
item
Kind = skSum
Column = cxGridDBColumn12
end
item
Kind = skSum
Column = cxGridDBColumn13
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn15
end
item
Kind = skSum
Column = cxGridDBColumn16
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn18
end
item
Kind = skSum
Column = cxGridDBColumn19
end
item
Kind = skSum
Column = cxGridDBColumn21
end
item
Kind = skSum
Column = cxGridDBColumn14
end
item
Kind = skSum
Column = cxGridDBColumn11
end
item
Kind = skSum
Column = cxGridDBColumn8
end
item
Kind = skSum
Column = cxGridDBColumn17
end
item
Kind = skSum
Column = cxGridDBColumn20
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.IncSearch = DataLink_TatClothStk.SHuangSe
Styles.Footer = DataLink_TatClothStk.Default
Styles.Header = DataLink_TatClothStk.Default
Styles.Inactive = DataLink_TatClothStk.SHuangSe
Styles.Selection = DataLink_TatClothStk.SHuangSe
object cxGridDBColumn1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 66
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #21452#21943
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #20248#31561#21367#25968
DataBinding.FieldName = 'YDJs'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #20248#31561#31859#25968
DataBinding.FieldName = 'Ydqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #20248#31561#24179#26041
DataBinding.FieldName = 'YdPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #20108#31561#21367#25968
DataBinding.FieldName = 'edJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #20108#31561#31859#25968
DataBinding.FieldName = 'edqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #20108#31561#24179#26041
DataBinding.FieldName = 'edPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn12: TcxGridDBColumn
Caption = #23567#21367#21367#25968
DataBinding.FieldName = 'xjJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn13: TcxGridDBColumn
Caption = #23567#21367#25968#37327
DataBinding.FieldName = 'xjqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #23567#21367#24179#26041
DataBinding.FieldName = 'xjPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #20998#20999#21367#25968
DataBinding.FieldName = 'fqJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn16: TcxGridDBColumn
Caption = #20998#20999#24067#25968#37327
DataBinding.FieldName = 'fqqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn17: TcxGridDBColumn
Caption = #20998#20999#24179#26041
DataBinding.FieldName = 'fqPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn18: TcxGridDBColumn
Caption = #27979#35797#21367#25968
DataBinding.FieldName = 'csJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn19: TcxGridDBColumn
Caption = #27979#35797#25968#37327
DataBinding.FieldName = 'csqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn20: TcxGridDBColumn
Caption = #27979#35797#24179#26041
DataBinding.FieldName = 'csPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn21: TcxGridDBColumn
Caption = #24179#26041
DataBinding.FieldName = 'pf'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 553
Top = 200
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 425
Top = 201
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
CommandTimeout = 600
Parameters = <>
Left = 148
Top = 280
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 252
Top = 260
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
CommandTimeout = 600
Parameters = <>
Left = 112
Top = 204
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 708
Top = 156
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 608
Top = 136
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
BeforeOpen = CDS_1BeforeOpen
Left = 552
Top = 140
end
object PM_1: TPopupMenu
Left = 368
Top = 248
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object PM11: TMenuItem
Caption = #20840#24323
OnClick = PM11Click
end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
BeforeOpen = CDS_1BeforeOpen
Left = 552
Top = 276
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 708
Top = 292
end
end

441
E04梭织坯布仓库/U_TatClothStkHZList2.pas Normal file
View File

@ -0,0 +1,441 @@
unit U_TatClothStkHZList2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, cxPC,
System.StrUtils, dxScrollbarAnnotations, U_BaseList, System.ImageList,
Vcl.ImgList;
type
TfrmTatClothStkHZList2 = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_1: TClientDataSet;
begtime: TDateTimePicker;
endTime: TDateTimePicker;
IsJYTime: TCheckBox;
ToolButton4: TToolButton;
Label5: TLabel;
C_Name: TEdit;
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
C_GramWeight: TEdit;
label12: TLabel;
C_width: TEdit;
label11: TLabel;
Panel2: TPanel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
cxGridDBColumn21: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
CDS_2: TClientDataSet;
DS_2: TDataSource;
N2: TMenuItem;
N3: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
procedure BTNPClick(Sender: TObject);
procedure BTLPClick(Sender: TObject);
procedure TCBNORChange(Sender: TObject);
procedure JYTypeChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure CDS_1BeforeOpen(DataSet: TDataSet);
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations }
public
fC_Name: string;
fissp : string;
{ Public declarations }
end;
var
frmTatClothStkHZList2: TfrmTatClothStkHZList2;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint;
{$R *.dfm}
procedure TfrmTatClothStkHZList2.SetStatus();
begin
end;
procedure TfrmTatClothStkHZList2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FreeAndNil(lstCust);
Action := caFree;
end;
procedure TfrmTatClothStkHZList2.FormCreate(Sender: TObject);
begin
inherited;
lstCust := TStringList.Create;
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 20;
end;
procedure TfrmTatClothStkHZList2.InitGrid();
var
WSql: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
if Trim(WSql) <> '' then
WSql := ' and ' + WSql;
if IsJYTime.Checked then
begin
WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
end;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight ');
SQL.Add(',pf=SUM(A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)))');
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )AS Ydqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF');
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END )AS edJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )AS edqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF');
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END )AS xjJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )AS xjqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF');
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN 1 ELSE 0 END )AS fbJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )AS fbqty');
// SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fbPF');
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )AS fqqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF');
SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN 1 ELSE 0 END )AS xhJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN A.meter ELSE 0 END )AS xhqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )AS csqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF');
sql.Add(', issp=isnull(A.issp,'''') ');
SQL.Add('from V_Tat_Cloth_stk A where 1=1 and C_NAME=' + QuotedStr(Trim(fC_Name)));
if fissp <> '' then
begin
SQL.Add(' and isnull(issp,'''') = ''双喷''' );
end
else
begin
SQL.Add(' and isnull(issp,'''') <> ''双喷'' ' );
end;
SQL.Add(WSql);
sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,'''') ');
SQL.Add(' order by A.C_NAME, CAST(A.C_Width AS DECIMAL(10,2)),A.C_GramWeight');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2);
finally
ADOQueryMain.EnableControls;
TV2.DataController.Filter.Clear;
end;
end;
procedure TfrmTatClothStkHZList2.IsJYTimeClick(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatClothStkHZList2.TBRafreshClick(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothStkHZList2.CDS_1BeforeOpen(DataSet: TDataSet);
begin
lstCust.Clear;
end;
procedure TfrmTatClothStkHZList2.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmTatClothStkHZList2.cxPageControl1Change(Sender: TObject);
begin
CurrentPage := 1;
SetStatus();
InitGrid();
end;
procedure TfrmTatClothStkHZList2.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmTatClothStkHZList2.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatClothStkHZList2.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '成品库存汇总2');
CurrentPage := 1;
RecordsNumber := 500;
SetStatus();
InitGrid();
end;
procedure TfrmTatClothStkHZList2.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
with CDS_2 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid2);
InitGrid();
end;
procedure TfrmTatClothStkHZList2.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
CurrentPage := 1;
InitGrid();
end;
end;
procedure TfrmTatClothStkHZList2.PM11Click(Sender: TObject);
begin
SelOKNo(CDS_2, false);
end;
procedure TfrmTatClothStkHZList2.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstCust.Clear;
end;
procedure TfrmTatClothStkHZList2.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin
if lstCust <> nil then
AText := IntToStr(lstCust.Count);
end;
procedure TfrmTatClothStkHZList2.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid();
end;
procedure TfrmTatClothStkHZList2.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid();
end;
procedure TfrmTatClothStkHZList2.TCBNORChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothStkHZList2.JYTypeChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothStkHZList2.N1Click(Sender: TObject);
begin
SelOKNo(CDS_2, true);
end;
procedure TfrmTatClothStkHZList2.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothStkHZList2.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV2.Controller.FocusedColumn);
end;
procedure TfrmTatClothStkHZList2.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv2;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothStkHZList2.ToolButton2Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end
else
begin
WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TradeClothStk';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatClothStkHZList2.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '成品库存汇总2');
end;
end.

853
E04梭织坯布仓库/U_TatClothStkHZList3.dfm Normal file
View File

@ -0,0 +1,853 @@
inherited frmTatClothStkHZList3: TfrmTatClothStkHZList3
Left = 184
Top = 138
Caption = #25104#21697#24211#23384#27719#24635#21015#34920
ClientHeight = 600
ClientWidth = 1540
Position = poDesigned
Visible = True
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatClothStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitLeft = -1
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBExport: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton4: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 67
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
object Label2: TLabel
Left = 70
Top = 36
Width = 12
Height = 12
Caption = #33267
end
object Label5: TLabel
Left = 190
Top = 10
Width = 39
Height = 12
Hint = '0'
Caption = #20135#21697#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object label11: TLabel
Left = 358
Top = 10
Width = 26
Height = 12
Hint = '0'
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object label12: TLabel
Left = 190
Top = 35
Width = 26
Height = 12
Hint = '0'
Caption = #38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 88
Top = 6
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 1
end
object EndDate: TDateTimePicker
Left = 88
Top = 32
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 2
end
object begtime: TDateTimePicker
Left = 137
Top = 132
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 39780.000000000000000000
Kind = dtkTime
TabOrder = 3
end
object endTime: TDateTimePicker
Left = 137
Top = 156
Width = 55
Height = 20
Date = 39780.000000000000000000
Format = 'HH:mm'
Time = 0.999317129630071600
Kind = dtkTime
TabOrder = 4
end
object IsJYTime: TCheckBox
Left = 14
Top = 8
Width = 73
Height = 17
Caption = #26597#35810#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = IsJYTimeClick
end
object C_Name: TEdit
Tag = 2
Left = 237
Top = 6
Width = 100
Height = 20
Hint = '0'
TabOrder = 5
OnKeyPress = C_NameKeyPress
end
object C_GramWeight: TEdit
Tag = 2
Left = 390
Top = 6
Width = 100
Height = 20
Hint = '0'
TabOrder = 6
OnKeyPress = C_NameKeyPress
end
object C_width: TEdit
Tag = 2
Left = 237
Top = 32
Width = 100
Height = 20
Hint = '0'
TabOrder = 7
OnKeyPress = C_NameKeyPress
end
end
object Panel2: TPanel [2]
Left = 0
Top = 105
Width = 1540
Height = 495
Align = alClient
TabOrder = 2
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 1538
Height = 256
Align = alTop
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PM_2
TabOrder = 0
ExplicitTop = 6
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #26816#39564#31995#25968'=#.##'
Kind = skAverage
end
item
Format = #25442#31639#31995#25968'=#.##'
Kind = skAverage
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column6
end
item
Kind = skSum
Column = Tv1Column1
end
item
Kind = skSum
Column = Tv1Column7
end
item
Kind = skSum
Column = Tv1Column8
end
item
Kind = skSum
Column = Tv1Column9
end
item
Kind = skSum
Column = Tv1Column10
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column13
end
item
Kind = skSum
Column = Tv1Column14
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column17
end
item
Kind = skSum
Column = Tv1Column18
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.IncSearch = DataLink_TatClothStk.SHuangSe
Styles.Footer = DataLink_TatClothStk.Default
Styles.Header = DataLink_TatClothStk.Default
Styles.Inactive = DataLink_TatClothStk.SHuangSe
Styles.Selection = DataLink_TatClothStk.SHuangSe
object v1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1issp: TcxGridDBColumn
Caption = #21452#21943
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column4: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column6: TcxGridDBColumn
Caption = #20248#31561#21367#25968
DataBinding.FieldName = 'YDJs'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 74
end
object Tv1Column1: TcxGridDBColumn
Caption = #20248#31561#31859#25968
DataBinding.FieldName = 'Ydqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column7: TcxGridDBColumn
Caption = #20108#31561#21367#25968
DataBinding.FieldName = 'edJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column8: TcxGridDBColumn
Caption = #20108#31561#31859#25968
DataBinding.FieldName = 'edqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column9: TcxGridDBColumn
Caption = #23567#21367#21367#25968
DataBinding.FieldName = 'xjJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column10: TcxGridDBColumn
Caption = #23567#21367#25968#37327
DataBinding.FieldName = 'xjqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column13: TcxGridDBColumn
Caption = #20998#20999#21367#25968
DataBinding.FieldName = 'fqJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column14: TcxGridDBColumn
Caption = #20998#20999#24067#25968#37327
DataBinding.FieldName = 'fqqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column17: TcxGridDBColumn
Caption = #27979#35797#21367#25968
DataBinding.FieldName = 'csJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column18: TcxGridDBColumn
Caption = #27979#35797#25968#37327
DataBinding.FieldName = 'csqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxGrid2: TcxGrid
Left = 1
Top = 257
Width = 1538
Height = 237
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PM_2
TabOrder = 1
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #26816#39564#31995#25968'=#.##'
Kind = skAverage
end
item
Format = #25442#31639#31995#25968'=#.##'
Kind = skAverage
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn6
end
item
Kind = skSum
Column = cxGridDBColumn7
end
item
Kind = skSum
Column = cxGridDBColumn9
end
item
Kind = skSum
Column = cxGridDBColumn10
end
item
Kind = skSum
Column = cxGridDBColumn12
end
item
Kind = skSum
Column = cxGridDBColumn13
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn15
end
item
Kind = skSum
Column = cxGridDBColumn16
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn18
end
item
Kind = skSum
Column = cxGridDBColumn19
end
item
Kind = skSum
Column = cxGridDBColumn21
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.IncSearch = DataLink_TatClothStk.SHuangSe
Styles.Footer = DataLink_TatClothStk.Default
Styles.Header = DataLink_TatClothStk.Default
Styles.Inactive = DataLink_TatClothStk.SHuangSe
Styles.Selection = DataLink_TatClothStk.SHuangSe
object cxGridDBColumn1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 66
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #21452#21943
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #20248#31561#21367#25968
DataBinding.FieldName = 'YDJs'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 74
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #20248#31561#31859#25968
DataBinding.FieldName = 'Ydqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #20248#31561#24179#26041
DataBinding.FieldName = 'YdPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #20108#31561#21367#25968
DataBinding.FieldName = 'edJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #20108#31561#31859#25968
DataBinding.FieldName = 'edqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #20108#31561#24179#26041
DataBinding.FieldName = 'edPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn12: TcxGridDBColumn
Caption = #23567#21367#21367#25968
DataBinding.FieldName = 'xjJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn13: TcxGridDBColumn
Caption = #23567#21367#25968#37327
DataBinding.FieldName = 'xjqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #23567#21367#24179#26041
DataBinding.FieldName = 'xjPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #20998#20999#21367#25968
DataBinding.FieldName = 'fqJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn16: TcxGridDBColumn
Caption = #20998#20999#24067#25968#37327
DataBinding.FieldName = 'fqqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn17: TcxGridDBColumn
Caption = #20998#20999#24179#26041
DataBinding.FieldName = 'fqPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn18: TcxGridDBColumn
Caption = #27979#35797#21367#25968
DataBinding.FieldName = 'csJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn19: TcxGridDBColumn
Caption = #27979#35797#25968#37327
DataBinding.FieldName = 'csqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn20: TcxGridDBColumn
Caption = #27979#35797#24179#26041
DataBinding.FieldName = 'csPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn21: TcxGridDBColumn
Caption = #24179#26041
DataBinding.FieldName = 'pf'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 553
Top = 200
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 425
Top = 201
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
CommandTimeout = 600
Parameters = <>
Left = 148
Top = 280
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 252
Top = 260
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
CommandTimeout = 600
Parameters = <>
Left = 112
Top = 204
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 708
Top = 156
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 608
Top = 136
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
BeforeOpen = CDS_1BeforeOpen
Left = 552
Top = 140
end
object PM_1: TPopupMenu
Left = 368
Top = 248
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object PM11: TMenuItem
Caption = #20840#24323
OnClick = PM11Click
end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
BeforeOpen = CDS_1BeforeOpen
Left = 552
Top = 276
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 708
Top = 292
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 784
Top = 144
end
object PM_2: TPopupMenu
Left = 408
Top = 401
object N3: TMenuItem
Caption = #22797#21046
OnClick = N3Click
end
end
end

497
E04梭织坯布仓库/U_TatClothStkHZList3.pas Normal file
View File

@ -0,0 +1,497 @@
unit U_TatClothStkHZList3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, cxPC,
System.StrUtils, dxScrollbarAnnotations, U_BaseList;
type
TfrmTatClothStkHZList3 = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_1: TClientDataSet;
begtime: TDateTimePicker;
endTime: TDateTimePicker;
IsJYTime: TCheckBox;
ToolButton4: TToolButton;
Label5: TLabel;
C_Name: TEdit;
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
C_GramWeight: TEdit;
label12: TLabel;
C_width: TEdit;
label11: TLabel;
Panel2: TPanel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1issp: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
cxGridDBColumn21: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
CDS_2: TClientDataSet;
DS_2: TDataSource;
GPM_2: TcxGridPopupMenu;
N2: TMenuItem;
PM_2: TPopupMenu;
N3: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
procedure BTNPClick(Sender: TObject);
procedure BTLPClick(Sender: TObject);
procedure TCBNORChange(Sender: TObject);
procedure JYTypeChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure CDS_1BeforeOpen(DataSet: TDataSet);
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
procedure InitGrid2();
{ Private declarations }
public
canshu1: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint;
{$R *.dfm}
procedure TfrmTatClothStkHZList3.SetStatus();
begin
end;
procedure TfrmTatClothStkHZList3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FreeAndNil(lstCust);
Action := caFree;
end;
procedure TfrmTatClothStkHZList3.FormCreate(Sender: TObject);
begin
inherited;
lstCust := TStringList.Create;
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 20;
end;
procedure TfrmTatClothStkHZList3.InitGrid();
var
WSql: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
if Trim(WSql) <> '' then
WSql := ' and ' + WSql;
if IsJYTime.Checked then
begin
WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
end;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select A.C_NAME ,A.C_GramWeight');
// SQL.Add(',pf=SUM(A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)))');
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )AS Ydqty');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF');
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END )AS edJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )AS edqty');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF');
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END )AS xjJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )AS xjqty');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF');
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN 1 ELSE 0 END )AS fbJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )AS fbqty');
// SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fbPF');
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )AS fqqty');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF');
SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN 1 ELSE 0 END )AS xhJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN A.meter ELSE 0 END )AS xhqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )AS csqty');
// SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF');
sql.Add(', issp=isnull(A.issp,'''') ');
SQL.Add('from V_Tat_Cloth_stk A where 1=1 ' + WSql);
sql.Add(' group by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') ');
SQL.Add(' order by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') ');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
end;
procedure TfrmTatClothStkHZList3.InitGrid2();
var
WSql: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
if Trim(WSql) <> '' then
WSql := ' and ' + WSql;
if IsJYTime.Checked then
begin
WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
end;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight ');
SQL.Add(',pf=SUM(A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)))');
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )AS Ydqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF');
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END )AS edJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )AS edqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF');
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END )AS xjJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )AS xjqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF');
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN 1 ELSE 0 END )AS fbJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )AS fbqty');
// SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fbPF');
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )AS fqqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF');
SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN 1 ELSE 0 END )AS xhJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN A.meter ELSE 0 END )AS xhqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )AS csqty');
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF');
sql.Add(', issp=isnull(A.issp,'''') ');
SQL.Add('from V_Tat_Cloth_stk A where 1=1 and C_NAME=' +QuotedStr(Trim(CDS_1.FieldByName('C_NAME').AsString)) );
SQL.Add( WSql);
sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,'''') ');
SQL.Add(' order by A.C_NAME, A.C_width,A.C_GramWeight');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
end;
procedure TfrmTatClothStkHZList3.IsJYTimeClick(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatClothStkHZList3.TBRafreshClick(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothStkHZList3.CDS_1BeforeOpen(DataSet: TDataSet);
begin
lstCust.Clear;
end;
procedure TfrmTatClothStkHZList3.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmTatClothStkHZList3.cxPageControl1Change(Sender: TObject);
begin
CurrentPage := 1;
SetStatus();
InitGrid();
end;
procedure TfrmTatClothStkHZList3.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmTatClothStkHZList3.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatClothStkHZList3.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存汇总');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '成品库存汇总');
CurrentPage := 1;
RecordsNumber := 500;
SetStatus();
InitGrid();
end;
procedure TfrmTatClothStkHZList3.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
TcxGridToExcel(Self.Caption, cxGrid1);
end;
procedure TfrmTatClothStkHZList3.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
CurrentPage := 1;
InitGrid();
end;
end;
procedure TfrmTatClothStkHZList3.PM11Click(Sender: TObject);
begin
SelOKNo(CDS_1, false);
end;
procedure TfrmTatClothStkHZList3.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstCust.Clear;
end;
procedure TfrmTatClothStkHZList3.Tv1FocusedRecordChanged(
Sender: TcxCustomGridTableView; APrevFocusedRecord,
AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitGrid2();
end;
procedure TfrmTatClothStkHZList3.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin
if lstCust <> nil then
AText := IntToStr(lstCust.Count);
end;
procedure TfrmTatClothStkHZList3.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid();
end;
procedure TfrmTatClothStkHZList3.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid();
end;
procedure TfrmTatClothStkHZList3.TCBNORChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothStkHZList3.JYTypeChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatClothStkHZList3.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, true);
end;
procedure TfrmTatClothStkHZList3.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothStkHZList3.N3Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothStkHZList3.ToolButton2Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end
else
begin
WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TradeClothStk';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatClothStkHZList3.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存汇总');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '成品库存汇总');
end;
end.

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

@ -7,6 +7,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitTop = -14
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 639 ExplicitHeight = 639
PixelsPerInch = 96 PixelsPerInch = 96
@ -218,6 +219,48 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label4: TLabel
Left = 975
Top = 36
Width = 26
Height = 12
Hint = '1'
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 975
Top = 10
Width = 26
Height = 12
Hint = '0'
Caption = #38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 829
Top = 36
Width = 26
Height = 12
Hint = '0'
Caption = #31561#32423
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 88 Left = 88
Top = 6 Top = 6
@ -362,6 +405,36 @@ inherited frmTatClothStkList: TfrmTatClothStkList
TabOrder = 13 TabOrder = 13
OnKeyPress = orderNoKeyPress OnKeyPress = orderNoKeyPress
end end
object C_GramWeight: TEdit
Tag = 2
Left = 1002
Top = 32
Width = 100
Height = 20
Hint = '1'
TabOrder = 14
OnKeyPress = orderNoKeyPress
end
object C_Width: TEdit
Tag = 2
Left = 1002
Top = 6
Width = 100
Height = 20
Hint = '0'
TabOrder = 15
OnKeyPress = orderNoKeyPress
end
object Grade: TEdit
Tag = 2
Left = 857
Top = 32
Width = 100
Height = 20
Hint = '0'
TabOrder = 16
OnKeyPress = orderNoKeyPress
end
end end
object Panel6: TPanel [2] object Panel6: TPanel [2]
Left = 0 Left = 0
@ -480,6 +553,7 @@ 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 = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -540,6 +614,10 @@ inherited frmTatClothStkList: TfrmTatClothStkList
end end
item item
Kind = skSum Kind = skSum
end
item
Kind = skSum
Column = Tv1PF
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -690,6 +768,13 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1PF: TcxGridDBColumn
Caption = #24179#26041
DataBinding.FieldName = 'PF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Caption = #27611#37325 Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight' DataBinding.FieldName = 'GrossWeight'
@ -862,5 +947,13 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Caption = #20840#24323 Caption = #20840#24323
OnClick = PM11Click OnClick = PM11Click
end end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end end
end end

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

@ -96,6 +96,15 @@ type
Label1: TLabel; Label1: TLabel;
dept: TEdit; dept: TEdit;
Tv1issp: TcxGridDBColumn; Tv1issp: TcxGridDBColumn;
Label4: TLabel;
Label6: TLabel;
Label8: TLabel;
C_GramWeight: TEdit;
C_Width: TEdit;
Grade: TEdit;
Tv1PF: TcxGridDBColumn;
N2: TMenuItem;
N3: TMenuItem;
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,11 +126,14 @@ 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 N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
lstCust: TStringList; lstCust: TStringList;
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations } { Private declarations }
public public
canshu1: string; canshu1: string;
@ -256,7 +268,15 @@ procedure TfrmTatClothStkList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
exit; exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1); TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end; end;
procedure TfrmTatClothStkList.orderNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmTatClothStkList.orderNoKeyPress(Sender: TObject; var Key: Char);
@ -335,6 +355,38 @@ begin
SelOKNo(CDS_1, true); SelOKNo(CDS_1, true);
end; end;
procedure TfrmTatClothStkList.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothStkList.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatClothStkList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
var
AView: TcxGridDBTableView;
SummaryIndex: Integer;
SummaryText: string;
begin
AView := Tv1;
// 查找指定列的汇总项
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
if SummaryIndex <> -1 then
begin
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
Clipboard.AsText := SummaryText;
end
else
ShowMessage('未找到该列的汇总数据');
end;
procedure TfrmTatClothStkList.ToolButton2Click(Sender: TObject); procedure TfrmTatClothStkList.ToolButton2Click(Sender: TObject);
var var
WSql: string; WSql: string;

11
E04梭织坯布仓库/U_TatClothStkListPH.dfm
View File

@ -33,6 +33,7 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = 2
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -117,6 +118,7 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 41
object Label2: TLabel object Label2: TLabel
Left = 70 Left = 70
Top = 36 Top = 36
@ -316,7 +318,7 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH
Top = 8 Top = 8
Width = 73 Width = 73
Height = 17 Height = 17
Caption = #26597#35810#26085#26399 Caption = #20837#24211#26085#26399
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -467,6 +469,7 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH
AutoSize = True AutoSize = True
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 2 TabOrder = 2
ExplicitTop = 99
DesignSize = ( DesignSize = (
1536 1536
23) 23)
@ -541,17 +544,15 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH
Top = 1 Top = 1
Width = 78 Width = 78
Height = 20 Height = 20
Style = csDropDownList
Anchors = [akLeft] Anchors = [akLeft]
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = []
ItemIndex = 0
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
Text = '500' Text = '1000'
OnChange = TCBNORChange OnChange = TCBNORChange
Items.Strings = ( Items.Strings = (
'500' '500'

3
E04梭织坯布仓库/U_TatClothStkListPH.pas
View File

@ -270,7 +270,7 @@ begin
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品配货列表'); ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品配货列表');
CurrentPage := 1; CurrentPage := 1;
RecordsNumber := 500; RecordsNumber := 1000;
canshu1 := Trim(Self.fParameters1); canshu1 := Trim(Self.fParameters1);
canshu2 := Trim(Self.fParameters2); canshu2 := Trim(Self.fParameters2);
SetStatus(); SetStatus();
@ -469,6 +469,7 @@ begin
end; end;
CDS_1.Locate('SSel', True, []); CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls; CDS_1.EnableControls;
// ShowMessage(WSql);
try try
frmLabelPrint := TfrmLabelPrint.Create(Application); frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do with frmLabelPrint do

27
E04梭织坯布仓库/U_TatClothStkListsel.dfm
View File

@ -8,7 +8,7 @@ inherited frmTatClothStkListsel: TfrmTatClothStkListsel
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 639 ExplicitHeight = 639
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 13
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -87,7 +87,7 @@ inherited frmTatClothStkListsel: TfrmTatClothStkListsel
Left = 70 Left = 70
Top = 36 Top = 36
Width = 12 Width = 12
Height = 12 Height = 13
Caption = #33267 Caption = #33267
end end
object Label3: TLabel object Label3: TLabel
@ -261,7 +261,7 @@ inherited frmTatClothStkListsel: TfrmTatClothStkListsel
Left = 248 Left = 248
Top = 6 Top = 6
Width = 100 Width = 100
Height = 20 Height = 21
Hint = '0' Hint = '0'
TabOrder = 5 TabOrder = 5
OnKeyPress = orderNoKeyPress OnKeyPress = orderNoKeyPress
@ -271,63 +271,70 @@ inherited frmTatClothStkListsel: TfrmTatClothStkListsel
Left = 409 Left = 409
Top = 6 Top = 6
Width = 100 Width = 100
Height = 20 Height = 21
Hint = '0' Hint = '0'
TabOrder = 6 TabOrder = 6
OnKeyPress = orderNoKeyPress
end end
object STKID: TEdit object STKID: TEdit
Tag = 2 Tag = 2
Left = 711 Left = 711
Top = 32 Top = 32
Width = 100 Width = 100
Height = 20 Height = 21
Hint = '1' Hint = '1'
TabOrder = 7 TabOrder = 7
OnKeyPress = orderNoKeyPress
end end
object C_Name: TEdit object C_Name: TEdit
Tag = 2 Tag = 2
Left = 409 Left = 409
Top = 32 Top = 32
Width = 100 Width = 100
Height = 20 Height = 21
Hint = '0' Hint = '0'
TabOrder = 8 TabOrder = 8
OnKeyPress = orderNoKeyPress
end end
object C_Color: TEdit object C_Color: TEdit
Tag = 2 Tag = 2
Left = 553 Left = 553
Top = 6 Top = 6
Width = 100 Width = 100
Height = 20 Height = 21
Hint = '0' Hint = '0'
TabOrder = 9 TabOrder = 9
OnKeyPress = orderNoKeyPress
end end
object jyg: TEdit object jyg: TEdit
Tag = 2 Tag = 2
Left = 711 Left = 711
Top = 6 Top = 6
Width = 100 Width = 100
Height = 20 Height = 21
Hint = '0' Hint = '0'
TabOrder = 10 TabOrder = 10
OnKeyPress = orderNoKeyPress
end end
object C_Pattern: TEdit object C_Pattern: TEdit
Tag = 2 Tag = 2
Left = 553 Left = 553
Top = 32 Top = 32
Width = 100 Width = 100
Height = 20 Height = 21
Hint = '0' Hint = '0'
TabOrder = 11 TabOrder = 11
OnKeyPress = orderNoKeyPress
end end
object C_Code: TEdit object C_Code: TEdit
Tag = 2 Tag = 2
Left = 248 Left = 248
Top = 32 Top = 32
Width = 100 Width = 100
Height = 20 Height = 21
Hint = '0' Hint = '0'
TabOrder = 12 TabOrder = 12
OnKeyPress = orderNoKeyPress
end end
end end
object Panel6: TPanel [2] object Panel6: TPanel [2]

3
E04梭织坯布仓库/U_TatClothStkListsel.pas
View File

@ -13,7 +13,8 @@ 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_Basehelp, cxPC, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_Basehelp, cxPC,
System.StrUtils, dxScrollbarAnnotations, U_BaseList; System.StrUtils, dxScrollbarAnnotations, U_BaseList, System.ImageList,
Vcl.ImgList;
type type
TfrmTatClothStkListsel = class(TfrmBasehelp) TfrmTatClothStkListsel = class(TfrmBasehelp)

127
E04梭织坯布仓库/U_TatDRList.dfm
View File

@ -156,16 +156,24 @@ inherited frmTatDRList: TfrmTatDRList
ImageIndex = 11 ImageIndex = 11
OnClick = btnWCCXClick OnClick = btnWCCXClick
end end
object ToolButton4: TToolButton object TbAddressCopy: TToolButton
Left = 332 Left = 332
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #22320#22336#22797#21046
ImageIndex = 13
OnClick = TbAddressCopyClick
end
object ToolButton4: TToolButton
Left = 427
Top = 38
AutoSize = True
Caption = #38468#20214 Caption = #38468#20214
ImageIndex = 19 ImageIndex = 19
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 403 Left = 498
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -173,7 +181,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 474 Left = 569
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #19968#38190#21457#36135 Caption = #19968#38190#21457#36135
@ -181,7 +189,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 569 Left = 664
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -189,13 +197,29 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 664 Left = 759
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 7 ImageIndex = 7
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object ToolButton8: TToolButton
Left = 830
Top = 38
AutoSize = True
Caption = #36135#26410#21457#20840
ImageIndex = 8
OnClick = ToolButton8Click
end
object TbUndoVisible: TToolButton
Left = 925
Top = 38
AutoSize = True
Caption = #25764#38144#26174#31034
ImageIndex = 18
OnClick = TbUndoVisibleClick
end
end end
object cxGrid1: TcxGrid [1] object cxGrid1: TcxGrid [1]
Left = 0 Left = 0
@ -205,9 +229,11 @@ inherited frmTatDRList: TfrmTatDRList
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 3 TabOrder = 3
ExplicitTop = 144
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
OnCustomDrawCell = Tv1CustomDrawCell
OnFocusedRecordChanged = Tv1FocusedRecordChanged OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
@ -277,6 +303,24 @@ inherited frmTatDRList: TfrmTatDRList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 49 Width = 49
end end
object Tv1OverTime: TcxGridDBColumn
Caption = #21457#36135#29366#24577
DataBinding.FieldName = 'OverTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
OnCustomDrawCell = Tv1OverTimeCustomDrawCell
HeaderAlignmentHorz = taCenter
Styles.OnGetContentStyle = Tv1FlagStylesGetContentStyle
Width = 80
end
object Tv1CheckEdit: TcxGridDBColumn
Caption = #23457#26680#20462#25913
DataBinding.FieldName = 'CheckEdit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.OnGetContentStyle = Tv1CheckEditStylesGetContentStyle
Width = 80
end
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Caption = #30003#35831#21333#21495 Caption = #30003#35831#21333#21495
DataBinding.FieldName = 'DRMID' DataBinding.FieldName = 'DRMID'
@ -304,7 +348,7 @@ inherited frmTatDRList: TfrmTatDRList
Options.Editing = False Options.Editing = False
Width = 69 Width = 69
end end
object v1Column10: TcxGridDBColumn object Tv1ToCoName: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'ToCoName' DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -312,6 +356,27 @@ inherited frmTatDRList: TfrmTatDRList
Options.Editing = False Options.Editing = False
Width = 124 Width = 124
end end
object Tv1CoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 139
end
object Tv1Saleser: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Contacts: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'Contacts'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Telephone: TcxGridDBColumn object Tv1Telephone: TcxGridDBColumn
Caption = #32852#31995#30005#35805 Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'Telephone' DataBinding.FieldName = 'Telephone'
@ -353,13 +418,6 @@ inherited frmTatDRList: TfrmTatDRList
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end end
object Tv1Column1: TcxGridDBColumn
Caption = #25910#36135#21333#20301
DataBinding.FieldName = 'shdanwei'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 154
end
object Tv1CoAddress: TcxGridDBColumn object Tv1CoAddress: TcxGridDBColumn
Caption = #25910#36135#22320#22336 Caption = #25910#36135#22320#22336
DataBinding.FieldName = 'CoAddress' DataBinding.FieldName = 'CoAddress'
@ -402,7 +460,7 @@ inherited frmTatDRList: TfrmTatDRList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object Tv1Column7: TcxGridDBColumn object Tv1sselJS: TcxGridDBColumn
DataBinding.FieldName = 'sselJS' DataBinding.FieldName = 'sselJS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False Visible = False
@ -425,8 +483,9 @@ inherited frmTatDRList: TfrmTatDRList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 82
object Label4: TLabel object Label4: TLabel
Left = 464 Left = 520
Top = 15 Top = 15
Width = 48 Width = 48
Height = 12 Height = 12
@ -485,7 +544,7 @@ inherited frmTatDRList: TfrmTatDRList
Caption = '-' Caption = '-'
end end
object Label1: TLabel object Label1: TLabel
Left = 286 Left = 343
Top = 15 Top = 15
Width = 48 Width = 48
Height = 12 Height = 12
@ -498,7 +557,7 @@ inherited frmTatDRList: TfrmTatDRList
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 658 Left = 714
Top = 15 Top = 15
Width = 48 Width = 48
Height = 12 Height = 12
@ -511,7 +570,7 @@ inherited frmTatDRList: TfrmTatDRList
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 870 Left = 938
Top = 15 Top = 15
Width = 54 Width = 54
Height = 12 Height = 12
@ -524,7 +583,7 @@ inherited frmTatDRList: TfrmTatDRList
ParentFont = False ParentFont = False
end end
object SSelJS: TLabel object SSelJS: TLabel
Left = 927 Left = 995
Top = 6 Top = 6
Width = 12 Width = 12
Height = 24 Height = 24
@ -557,7 +616,7 @@ inherited frmTatDRList: TfrmTatDRList
end end
object ToCoName: TEdit object ToCoName: TEdit
Tag = 2 Tag = 2
Left = 518 Left = 574
Top = 11 Top = 11
Width = 115 Width = 115
Height = 20 Height = 20
@ -603,7 +662,7 @@ inherited frmTatDRList: TfrmTatDRList
end end
object DRMID: TEdit object DRMID: TEdit
Tag = 2 Tag = 2
Left = 341 Left = 397
Top = 11 Top = 11
Width = 99 Width = 99
Height = 20 Height = 20
@ -612,13 +671,23 @@ inherited frmTatDRList: TfrmTatDRList
end end
object shdanwei: TEdit object shdanwei: TEdit
Tag = 2 Tag = 2
Left = 712 Left = 768
Top = 11 Top = 11
Width = 115 Width = 115
Height = 20 Height = 20
TabOrder = 8 TabOrder = 8
OnChange = ToCoNameChange OnChange = ToCoNameChange
end end
object TbNowDay: TcxButton
Left = 267
Top = 9
Width = 61
Height = 25
Caption = #26412#26085
LookAndFeel.NativeStyle = True
TabOrder = 9
OnClick = TbNowDayClick
end
end end
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
@ -656,7 +725,6 @@ inherited frmTatDRList: TfrmTatDRList
Height = 222 Height = 222
Align = alBottom Align = alBottom
TabOrder = 5 TabOrder = 5
ExplicitTop = 370
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -760,11 +828,20 @@ inherited frmTatDRList: TfrmTatDRList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object TV2PFPrice: TcxGridDBColumn
Caption = #24179#26041#21333#20215
DataBinding.FieldName = 'PFPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2Column1: TcxGridDBColumn object TV2Column1: TcxGridDBColumn
Caption = #25968#37327#21333#20301 Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80
end end
object TV2Column2: TcxGridDBColumn object TV2Column2: TcxGridDBColumn
Caption = #21457#36135#21305#25968 Caption = #21457#36135#21305#25968
@ -906,6 +983,10 @@ inherited frmTatDRList: TfrmTatDRList
Caption = #20840#24323 Caption = #20840#24323
OnClick = PM11Click OnClick = PM11Click
end end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
end end
object cxGridPopupMenu2: TcxGridPopupMenu object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2 Grid = cxGrid2

464
E04梭织坯布仓库/U_TatDRList.pas
View File

@ -1,4 +1,4 @@
unit U_TatDRList; unit U_TatDRList;
interface interface
@ -11,9 +11,9 @@ uses
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList, Clipbrd,
dxDateRanges, dxScrollbarAnnotations, IdBaseComponent, IdComponent, dxDateRanges, dxScrollbarAnnotations, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP; IdTCPConnection, IdTCPClient, IdHTTP, cxButtons;
type type
TfrmTatDRList = class(TfrmBaseList) TfrmTatDRList = class(TfrmBaseList)
@ -62,7 +62,7 @@ type
v1Column17: TcxGridDBColumn; v1Column17: TcxGridDBColumn;
v1Column1: TcxGridDBColumn; v1Column1: TcxGridDBColumn;
v1Column7: TcxGridDBColumn; v1Column7: TcxGridDBColumn;
v1Column10: TcxGridDBColumn; Tv1ToCoName: TcxGridDBColumn;
v1Column27: TcxGridDBColumn; v1Column27: TcxGridDBColumn;
btnWC: TToolButton; btnWC: TToolButton;
btnWCCX: TToolButton; btnWCCX: TToolButton;
@ -82,7 +82,6 @@ type
TV2Column3: TcxGridDBColumn; TV2Column3: TcxGridDBColumn;
Label3: TLabel; Label3: TLabel;
shdanwei: TEdit; shdanwei: TEdit;
Tv1Column1: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
IdHTTP1: TIdHTTP; IdHTTP1: TIdHTTP;
ToolButton3: TToolButton; ToolButton3: TToolButton;
@ -105,13 +104,24 @@ type
Tv1CoAddress: TcxGridDBColumn; Tv1CoAddress: TcxGridDBColumn;
Label5: TLabel; Label5: TLabel;
SSelJS: TLabel; SSelJS: TLabel;
Tv1Column7: TcxGridDBColumn; Tv1sselJS: TcxGridDBColumn;
PM_1: TPopupMenu; PM_1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
PM11: TMenuItem; PM11: TMenuItem;
Tv1Telephone: TcxGridDBColumn; Tv1Telephone: TcxGridDBColumn;
cxGridPopupMenu2: TcxGridPopupMenu; cxGridPopupMenu2: TcxGridPopupMenu;
TV2issp: TcxGridDBColumn; TV2issp: TcxGridDBColumn;
N2: TMenuItem;
Tv1Contacts: TcxGridDBColumn;
TbAddressCopy: TToolButton;
Tv1OverTime: TcxGridDBColumn;
Tv1CheckEdit: TcxGridDBColumn;
Tv1CoName: TcxGridDBColumn;
ToolButton8: TToolButton;
TbUndoVisible: TToolButton;
TV2PFPrice: TcxGridDBColumn;
Tv1Saleser: TcxGridDBColumn;
TbNowDay: TcxButton;
//RMllPDFExport1: TRMllPDFExport; //RMllPDFExport1: TRMllPDFExport;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -146,12 +156,24 @@ type
procedure v1Column4PropertiesChange(Sender: TObject); procedure v1Column4PropertiesChange(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure PM11Click(Sender: TObject); procedure PM11Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure TbAddressCopyClick(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1CheckEditStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
procedure Tv1FlagStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
procedure ToolButton8Click(Sender: TObject);
procedure Tv1OverTimeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure TbUndoVisibleClick(Sender: TObject);
procedure TbNowDayClick(Sender: TObject);
private private
fcxGridStyleFlag: Boolean;
procedure InitGrid(); procedure InitGrid();
procedure InitSubGrid(); procedure InitSubGrid();
procedure InitForm(); procedure InitForm();
procedure SetStatus(); procedure SetStatus();
function DelData(): Boolean; function DelData(): Boolean;
{ Private declarations } { Private declarations }
public public
FFInt: Integer; FFInt: Integer;
@ -180,8 +202,13 @@ begin
ToolButton5.Enabled := False; ToolButton5.Enabled := False;
TbGoodsEdit.Enabled := False; TbGoodsEdit.Enabled := False;
TBEdit.Enabled := False;
Tv1ToCoName.Visible := False;
Tv1CoName.Visible := False;
TBDel.Enabled := False; TBDel.Enabled := False;
if CANSHU1 = '查询' then if CANSHU1 = '查询' then
begin begin
ToolButton1.Enabled := True; ToolButton1.Enabled := True;
TBPrint.Enabled := True; TBPrint.Enabled := True;
@ -192,19 +219,26 @@ begin
TbGoodsEdit.Enabled := True; TbGoodsEdit.Enabled := True;
TBAdd.Enabled := True; TBAdd.Enabled := True;
TBEdit.Enabled := True;
Tv1ToCoName.Visible := True;
TV2PFPrice.Visible := False;
// TBDel.Enabled := True; // TBDel.Enabled := True;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0:
begin
TBEdit.Enabled := True;
end;
1: 1:
begin begin
btnWC.Enabled := true; btnWC.Enabled := true;
TBEdit.Enabled := True;
end; end;
end; end;
end; end;
if canshu1 = '管理' then if canshu1 = '管理' then
begin begin
Tv1CoName.Visible := True;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
@ -213,12 +247,16 @@ begin
tchk.Enabled := true; tchk.Enabled := true;
TBDel.Enabled := True; TBDel.Enabled := True;
TBEdit.Enabled := True;
end; end;
1: 1:
begin begin
Tnochk.Enabled := true; Tnochk.Enabled := true;
btnWC.Enabled := true; btnWC.Enabled := true;
TBDel.Enabled := True; TBDel.Enabled := True;
TBEdit.Enabled := True;
end; end;
2: 2:
begin begin
@ -230,18 +268,64 @@ begin
end; end;
end; end;
end end
else if canshu1 = '录入' then else if canshu1 = '录入' then
begin
case cxTabControl1.TabIndex of
1:
begin begin
Tv1ToCoName.Visible := True;
case cxTabControl1.TabIndex of
0:
begin
TBEdit.Enabled := True;
end;
1:
begin
TBEdit.Enabled := True;
btnWC.Enabled := true; btnWC.Enabled := true;
// TBDel.Enabled := True; // TBDel.Enabled := True;
end; end;
end; end;
end; end;
if canshu1 = '财务' then
begin
TBAdd.Enabled := False;
TBPrint.Enabled := False;
ToolButton2.Enabled := False;
TbAddressCopy.Enabled := False;
ToolButton8.Enabled := False;
TbUndoVisible.Enabled := False;
// Tv1CoName.Visible := True;
// case cxTabControl1.TabIndex of
// 0:
// begin
// ToolButton3.Enabled := true;
//// TbGoodsEdit.Enabled := True;
// tchk.Enabled := true;
//
// TBDel.Enabled := True;
//
// TBEdit.Enabled := True;
// end;
// 1:
// begin
// Tnochk.Enabled := true;
// btnWC.Enabled := true;
// TBDel.Enabled := True;
//
// TBEdit.Enabled := True;
// end;
// 2:
// begin
// btnWCCX.Enabled := true;
// end;
// 3:
// begin
// ToolButton5.Enabled := true;
// end;
// end;
end
end; end;
procedure TfrmTatDRList.FormDestroy(Sender: TObject); procedure TfrmTatDRList.FormDestroy(Sender: TObject);
@ -273,10 +357,8 @@ begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
Sql.Add(' select A.*,B.CoAddress '); Sql.Add(' select A.* ');
Sql.Add(', sselJS=(select isnull(sum(Piece), 0) from Tat_Cloth_DR_Sub X where X.DRMID=A.DRMID ) '); sql.Add(' from V_TatDRList A where 1=1');
Sql.Add(', Telephone=(select Telephone from Bs_Company_contact X where X.CoID=A.ToCoID ) ');
sql.Add(' from Tat_Cloth_DR_Main A left join BS_Company B on A.ToCoID = B.COID where 1=1');
if CheckBox1.Checked then if CheckBox1.Checked then
begin begin
sql.Add(' and A.Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); sql.Add(' and A.Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
@ -305,7 +387,7 @@ begin
end; end;
end; end;
if Trim(canshu1) = '录入' then if Trim(canshu1) = '录入' then
begin begin
sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + ''''); sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
end; end;
@ -327,8 +409,8 @@ end;
procedure TfrmTatDRList.InitForm(); procedure TfrmTatDRList.InitForm();
begin begin
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理'); ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理'); ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理');
EndDate.DateTime := SGetServerDate(ADOQueryTemp); EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 60; BegDate.DateTime := EndDate.DateTime - 60;
@ -351,7 +433,7 @@ begin
Exit; Exit;
// if cxTabControl1.TabIndex <> 0 then // if cxTabControl1.TabIndex <> 0 then
// Exit; // Exit;
// if Trim(canshu1) <> '管理' then // if Trim(canshu1) <> '管理' then
// begin // begin
// with ADOQueryTemp do // with ADOQueryTemp do
@ -367,12 +449,12 @@ begin
// //
// if ADOQueryTemp.ISEMPTY = True then // if ADOQueryTemp.ISEMPTY = True then
// begin // begin
// Application.MessageBox('不能操作他人的数据!', '提示', 0); // Application.MessageBox('不能操作他人的数据!', '提示', 0);
// Exit; // Exit;
// end; // end;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin begin
Application.MessageBox('不能操作他人的数据!', '提示', 0); Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit; Exit;
end; end;
// end; // end;
@ -386,7 +468,7 @@ begin
// end; // end;
// if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then // if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
// begin // begin
// Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0); // Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0);
// Exit; // Exit;
// end; // end;
try try
@ -394,6 +476,8 @@ begin
with frmTatDRtInPut do with frmTatDRtInPut do
begin begin
PState := 1; PState := 1;
canshu1 := self.canshu1;
isCheck := cxTabControl1.TabIndex;
Tv1Volume.Options.Editing := False; Tv1Volume.Options.Editing := False;
Tv1ApplicationReaon.Options.Editing := False; Tv1ApplicationReaon.Options.Editing := False;
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString); FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
@ -413,11 +497,11 @@ begin
Exit; Exit;
if (cxTabControl1.TabIndex <> 0) and (cxTabControl1.TabIndex <> 1) then if (cxTabControl1.TabIndex <> 0) and (cxTabControl1.TabIndex <> 1) then
Exit; Exit;
// if canshu1 <> '管理' then // if canshu1 <> '管理' then
// begin // begin
// if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then // if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
// begin // begin
// Application.MessageBox('不能操作他人的数据!', '提示', 0); // Application.MessageBox('不能操作他人的数据!', '提示', 0);
// Exit; // Exit;
// end; // end;
// end; // end;
@ -426,13 +510,13 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select * from Tat_Cloth_IO where ioflag=''出库'' '); sql.Add(' select * from Tat_Cloth_IO where ioflag=''出库'' ');
sql.add(' and IONo=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''''); sql.add(' and IONo=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + '''');
Open; Open;
end; end;
if ADOQueryTemp.IsEmpty = False then if ADOQueryTemp.IsEmpty = False then
begin begin
Application.MessageBox('出库数据不能删除!', '提示', 0); Application.MessageBox('出库数据不能删除!', '提示', 0);
exit; exit;
end; end;
@ -440,17 +524,17 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select * from Tat_Cloth_IO where ioflag=''待出库'' '); sql.Add(' select * from Tat_Cloth_IO where ioflag=''待出库'' ');
sql.add(' and IONo=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''''); sql.add(' and IONo=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + '''');
Open; Open;
end; end;
if ADOQueryTemp.IsEmpty = False then if ADOQueryTemp.IsEmpty = False then
begin begin
Application.MessageBox('待出库数据不能删除!', '提示', 0); Application.MessageBox('待出库数据不能删除!', '提示', 0);
exit; exit;
end; end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit; Exit;
if DelData() then if DelData() then
begin begin
@ -467,7 +551,7 @@ begin
frmTatDRtInPut := TfrmTatDRtInPut.Create(Application); frmTatDRtInPut := TfrmTatDRtInPut.Create(Application);
with frmTatDRtInPut do with frmTatDRtInPut do
begin begin
PState := 2; ///配货修改 PState := 2; ///配货修改
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString); FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
canshu1 := self.canshu1; canshu1 := self.canshu1;
@ -497,6 +581,13 @@ begin
end; end;
end; end;
procedure TfrmTatDRList.TbNowDayClick(Sender: TObject);
begin
BegDate.Date := strToDate(FormatDateTime('yyyy-MM-dd', SGetServerDate(ADOQueryCmd)));
EndDate.Date := strToDate(FormatDateTime('yyyy-MM-dd', SGetServerDate(ADOQueryCmd)));
InitGrid();
end;
function TfrmTatDRList.DelData(): Boolean; function TfrmTatDRList.DelData(): Boolean;
begin begin
@ -537,7 +628,7 @@ begin
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Result := False; Result := False;
Application.MessageBox('数据删除异常！', '提示', 0); Application.MessageBox('数据删除异常！', '提示', 0);
end; end;
end; end;
@ -545,7 +636,14 @@ procedure TfrmTatDRList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
Exit; Exit;
// SelExportData(Tv1, ADOQueryMain, '发货申请列表'); with Order_Main do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end; end;
procedure TfrmTatDRList.TBPrintClick(Sender: TObject); procedure TfrmTatDRList.TBPrintClick(Sender: TObject);
@ -574,6 +672,16 @@ begin
InitGrid(); InitGrid();
end; end;
procedure TfrmTatDRList.TbUndoVisibleClick(Sender: TObject);
begin
with Order_Main do
begin
Edit;
FieldByName('OverTime').Value := '';
post;
end;
end;
procedure TfrmTatDRList.TBAddClick(Sender: TObject); procedure TfrmTatDRList.TBAddClick(Sender: TObject);
var var
maxno: string; maxno: string;
@ -583,6 +691,7 @@ begin
with frmTatDRtInPut do with frmTatDRtInPut do
begin begin
PState := 0; PState := 0;
isCheck := 0;
FDRMID := ''; FDRMID := '';
canshu1 := self.canshu1; canshu1 := self.canshu1;
if ShowModal = 1 then if ShowModal = 1 then
@ -595,12 +704,54 @@ begin
end; end;
end; end;
//procedure TfrmTatDRList.TbAddressCopyClick(Sender: TObject);
//var
// CopyValue : string;
//begin
// if Order_Main.IsEmpty then
// begin
// Exit;
// end;
//
// if not Order_Main.Active then
// begin
// Application.MessageBox('未选中记录！','提示信息',MB_OK);
// end;
//
// CopyValue := Order_Main.FieldByName('Contacts').AsString + ' ' ;
// CopyValue := CopyValue + Order_Main.FieldByName('Telephone').AsString + #13;
// CopyValue := CopyValue + Order_Main.FieldByName('CoAddress').AsString;
// Clipboard.SetTextBuf(PChar(Trim(CopyValue)));
//end;
procedure TfrmTatDRList.TbAddressCopyClick(Sender: TObject);
var
CopyValue: string;
MsgLabel: TLabel;
begin
if Order_Main.IsEmpty or not Order_Main.Active then
begin
Application.MessageBox('未选中记录！', '提示信息', MB_OK);
Exit;
end;
CopyValue := Order_Main.FieldByName('Contacts').AsString + ' ';
CopyValue := CopyValue + Order_Main.FieldByName('Telephone').AsString + #13;
CopyValue := CopyValue + Order_Main.FieldByName('CoAddress').AsString;
Clipboard.AsText := Trim(CopyValue);
// MessageDlg('地址信息已成功复制到剪贴板！', mtInformation, [mbOK], 0);
end;
procedure TfrmTatDRList.FormShow(Sender: TObject); procedure TfrmTatDRList.FormShow(Sender: TObject);
begin begin
inherited; inherited;
fcxGridStyleFlag := False;
canshu1 := self.fParameters1; canshu1 := self.fParameters1;
InitForm(); InitForm();
SetStatus(); SetStatus();
end; end;
procedure TfrmTatDRList.CheckBox1Click(Sender: TObject); procedure TfrmTatDRList.CheckBox1Click(Sender: TObject);
@ -626,6 +777,7 @@ begin
ToolBar2.Visible := False; ToolBar2.Visible := False;
TBSave.Visible := False; TBSave.Visible := False;
ScrollBox1.Enabled := False; ScrollBox1.Enabled := False;
canshu1 := self.canshu1;
Tv1.OptionsSelection.CellSelect := False; Tv1.OptionsSelection.CellSelect := False;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
@ -665,6 +817,12 @@ begin
exit; exit;
if cxTabControl1.TabIndex <> 0 then if cxTabControl1.TabIndex <> 0 then
exit; exit;
if Order_Main.Locate('ssel', True, []) = false then
begin
Application.MessageBox('请先选择数据！', '提示信息', MB_OK);
exit;
end;
try try
with Order_Main do with Order_Main do
begin begin
@ -691,9 +849,9 @@ begin
InitGrid(); InitGrid();
InitSubGrid(); InitSubGrid();
application.MessageBox('取消成功！', '提示信息'); application.MessageBox('取消成功！', '提示信息');
except except
application.MessageBox('取消失败！', '提示信息', 0); application.MessageBox('取消失败！', '提示信息', 0);
end; end;
end; end;
@ -705,10 +863,10 @@ begin
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application); frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do with frmAttachmentUpload do
begin begin
if Trim(canshu1) <> '查询' then if Trim(canshu1) <> '查询' then
FEditAuthority := True; FEditAuthority := True;
fkeyNO := Trim(Self.Order_Main.fieldbyname('DRMID').AsString); fkeyNO := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
fType := '发货申请'; fType := '发货申请';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
@ -726,6 +884,12 @@ begin
exit; exit;
if cxTabControl1.TabIndex <> 3 then if cxTabControl1.TabIndex <> 3 then
exit; exit;
if Order_Main.Locate('ssel', True, []) = false then
begin
Application.MessageBox('请先选择数据！', '提示信息', MB_OK);
exit;
end;
try try
with Order_Main do with Order_Main do
begin begin
@ -752,9 +916,9 @@ begin
InitGrid(); InitGrid();
InitSubGrid(); InitSubGrid();
application.MessageBox('撤销取消成功！', '提示信息'); application.MessageBox('撤销取消成功！', '提示信息');
except except
application.MessageBox('撤销取消失败！', '提示信息', 0); application.MessageBox('撤销取消失败！', '提示信息', 0);
end; end;
end; end;
@ -773,6 +937,13 @@ begin
exit; exit;
if cxTabControl1.TabIndex <> 0 then if cxTabControl1.TabIndex <> 0 then
exit; exit;
if Order_Main.Locate('ssel', True, []) = false then
begin
Application.MessageBox('请先选择数据！', '提示信息', MB_OK);
exit;
end;
try try
with Order_Main do with Order_Main do
begin begin
@ -801,9 +972,9 @@ begin
InitGrid(); InitGrid();
InitSubGrid(); InitSubGrid();
application.MessageBox('审核成功！', '提示信息'); application.MessageBox('审核成功！', '提示信息');
except except
application.MessageBox('审核失败！', '提示信息', 0); application.MessageBox('审核失败！', '提示信息', 0);
end; end;
end; end;
@ -839,6 +1010,11 @@ begin
SSelJS.Caption := CurrToStr(msumJS); SSelJS.Caption := CurrToStr(msumJS);
end; end;
procedure TfrmTatDRList.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatDRList.PM11Click(Sender: TObject); procedure TfrmTatDRList.PM11Click(Sender: TObject);
begin begin
SelOKNo(Order_Main, false); SelOKNo(Order_Main, false);
@ -851,6 +1027,11 @@ begin
exit; exit;
if cxTabControl1.TabIndex <> 1 then if cxTabControl1.TabIndex <> 1 then
exit; exit;
if Order_Main.Locate('ssel', True, []) = false then
begin
Application.MessageBox('请先选择数据！', '提示信息', MB_OK);
exit;
end;
try try
with Order_Main do with Order_Main do
begin begin
@ -875,9 +1056,9 @@ begin
EnableControls; EnableControls;
end; end;
InitGrid(); InitGrid();
application.MessageBox('撤销成功！', '提示信息'); application.MessageBox('撤销成功！', '提示信息');
except except
application.MessageBox('撤销失败！', '提示信息', 0); application.MessageBox('撤销失败！', '提示信息', 0);
end; end;
end; end;
@ -891,6 +1072,12 @@ procedure TfrmTatDRList.btnWCCXClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
exit; exit;
if Order_Main.Locate('ssel', True, []) = false then
begin
Application.MessageBox('请先选择数据！', '提示信息', MB_OK);
exit;
end;
try try
with Order_Main do with Order_Main do
begin begin
@ -909,7 +1096,7 @@ begin
end; end;
if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
begin begin
Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0); Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
exit; exit;
end; end;
@ -929,16 +1116,16 @@ begin
end; end;
InitGrid(); InitGrid();
InitSubGrid(); InitSubGrid();
application.MessageBox('操作成功！', '提示信息'); application.MessageBox('操作成功！', '提示信息');
except except
application.MessageBox('操作失败！', '提示信息', 0); application.MessageBox('操作失败！', '提示信息', 0);
end; end;
end; end;
procedure TfrmTatDRList.ToolButton6Click(Sender: TObject); procedure TfrmTatDRList.ToolButton6Click(Sender: TObject);
begin begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理'); WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理'); WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理');
end; end;
procedure TfrmTatDRList.ToolButton7Click(Sender: TObject); procedure TfrmTatDRList.ToolButton7Click(Sender: TObject);
@ -957,18 +1144,18 @@ begin
sql.add('where IsStocking=''1'''); sql.add('where IsStocking=''1''');
sql.Add('and STKID IN (SELECT STKID FROM Tat_Cloth_IO F '); sql.Add('and STKID IN (SELECT STKID FROM Tat_Cloth_IO F ');
SQL.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString))); SQL.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
sql.add('and ioflag=''待出库'')'); sql.add('and ioflag=''待出库'')');
sql.Add('update Tat_Cloth_Inspect SET CIIOFlag=''已出库'' '); sql.Add('update Tat_Cloth_Inspect SET CIIOFlag=''已出库'' ');
// sql.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString))); // sql.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
sql.add('where '); sql.add('where ');
sql.Add(' ciid IN (SELECT STKID FROM Tat_Cloth_IO F '); sql.Add(' ciid IN (SELECT STKID FROM Tat_Cloth_IO F ');
SQL.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString))); SQL.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
sql.add('and ioflag=''待出库'')'); sql.add('and ioflag=''待出库'')');
sql.Add('update Tat_Cloth_IO SET ioflag=''出库'',iotime=getdate() '); sql.Add('update Tat_Cloth_IO SET ioflag=''出库'',iotime=getdate() ');
sql.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString))); sql.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
sql.add('and ioflag=''待出库'''); sql.add('and ioflag=''待出库''');
execsql; execsql;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
@ -986,18 +1173,53 @@ begin
end; end;
InitGrid(); InitGrid();
InitSubGrid(); InitSubGrid();
application.MessageBox('操作成功！', '提示信息'); application.MessageBox('操作成功！', '提示信息');
except except
application.MessageBox('操作失败！', '提示信息', 0); application.MessageBox('操作失败！', '提示信息', 0);
end; end;
end; end;
procedure TfrmTatDRList.ToolButton8Click(Sender: TObject);
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add(' SELECT 1 FROM Tat_Cloth_DR_Sub X WHERE X.DRMID=' + quotedStr(Trim(Order_Main.FieldByName('DRMID').asString)));
sql.Add(' AND isnull(X.Piece,0) > isnull(X.DlyPiece,0)');
SQL.Add(' AND CONVERT(date, ' + quotedStr(Trim(Order_Main.FieldByName('DlyDate').asString)) + ') < CONVERT(date, GETDATE())');
Open;
end;
if not ADOQueryCmd.IsEmpty then
begin
with Order_Main do
begin
Edit;
FieldByName('OverTime').asString := '未发完';
post;
end;
end
else
begin
Application.MessageBox('已发完！', '提示信息', MB_OK);
Exit;
end;
end;
procedure TfrmTatDRList.btnWCClick(Sender: TObject); procedure TfrmTatDRList.btnWCClick(Sender: TObject);
var var
str: string; str: string;
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
exit; exit;
if Order_Main.Locate('ssel', True, []) = false then
begin
Application.MessageBox('请先选择数据！', '提示信息', MB_OK);
exit;
end;
try try
with Order_Main do with Order_Main do
begin begin
@ -1016,14 +1238,21 @@ begin
end; end;
if ADOQueryTemp.FieldByName('TT').AsInteger = 0 then if ADOQueryTemp.FieldByName('TT').AsInteger = 0 then
begin begin
application.MessageBox('发货数量为0，不能完成！', '提示信息'); application.MessageBox('发货数量为0，不能完成！', '提示信息');
EnableControls; EnableControls;
exit; exit;
end; end;
if ADOQueryTemp.FieldByName('TT').AsInteger < ADOQueryTemp.FieldByName('T1').AsInteger then if ADOQueryTemp.FieldByName('TT').AsInteger < ADOQueryTemp.FieldByName('T1').AsInteger then
begin begin
if InputQuery('输入备注', '备注', str) then if InputQuery('输入备注', '备注', str) then
begin begin
if Trim(str) = '' then
begin
ShowMessage('备注不能为空！');
Exit; // 或者使用 Exit; 来退出当前过程
end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -1062,9 +1291,30 @@ begin
end; end;
InitGrid(); InitGrid();
InitSubGrid(); InitSubGrid();
application.MessageBox('操作成功！', '提示信息'); application.MessageBox('操作成功！', '提示信息');
except except
application.MessageBox('操作失败！', '提示信息', 0); application.MessageBox('操作失败！', '提示信息', 0);
end;
end;
procedure TfrmTatDRList.Tv1CheckEditStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var
GroupValue: string;
// ColorValue: Integer;
I: Integer;
begin
if (ARecord <> nil) and (ARecord is TcxGridDataRow) then
begin
GroupValue := VarToStr(ARecord.Values[Tv1CheckEdit.Index]);
if (GroupValue <> '') and (GroupValue <> null) then
begin
// ColorValue := StrToInt(GroupValue);
AStyle := TcxStyle.Create(nil);
if GroupValue = '已改单' then
AStyle.Color := $0090FFFF;
AStyle.TextColor := clBlack;
end;
end; end;
end; end;
@ -1108,26 +1358,88 @@ begin
tv1.Controller.EditingController.ShowEdit(); tv1.Controller.EditingController.ShowEdit();
end; end;
procedure TfrmTatDRList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
FLAG: Variant;
begin
// FLAG := AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('FLAG').Index];
// if FLAG = 1 then // 未排入计划单
// begin
// ACanvas.Brush.Color := $00CCCCFF; // 浅红色背景
// ACanvas.Font.Color := clRed;
// ACanvas.Font.Style := [fsBold];
// end;
end;
procedure TfrmTatDRList.Tv1FlagStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var
GroupValue: string;
// ColorValue: Integer;
I: Integer;
begin
// if not fcxGridStyleFlag then
// begin
// Exit;
// end;
//
// if (ARecord <> nil) and (ARecord is TcxGridDataRow) then
// begin
// GroupValue := VarToStr(ARecord.Values[Tv1OverTime.Index]);
// if (GroupValue <> '') and (GroupValue <> null) then
// begin
//// ColorValue := StrToInt(GroupValue);
// AStyle := TcxStyle.Create(nil);
// if GroupValue = '已超期' then
// AStyle.Color := $00CCCCFF;
// AStyle.TextColor := clBlack;
// end;
//
// end;
end;
procedure TfrmTatDRList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure TfrmTatDRList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin begin
InitSubGrid(); InitSubGrid();
end; end;
procedure TfrmTatDRList.Tv1OverTimeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
//单格子
var
FLAG: string;
begin
// id := TV1.GetColumnByFieldName('OverTime').Index; //;-TV1.GroupedItemCount;
// if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('OverTime').Index] = 1 then
// ACanvas.BRUSH.Color := clAqua;
// if AViewInfo.GridRecord.Values[id] = 1 then
// begin
// ACanvas.Brush.Color := clRed;
// end;
FLAG := AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('OverTime').Index];
if FLAG = '未发完' then // 未排入计划单
begin
ACanvas.Brush.Color := $00CCCCFF; // 浅红色背景
ACanvas.Font.Color := clRed;
ACanvas.Font.Style := [fsBold];
end;
end;
procedure TfrmTatDRList.v1Column4PropertiesChange(Sender: TObject); procedure TfrmTatDRList.v1Column4PropertiesChange(Sender: TObject);
var var
mDRMIDList: string; mDRMIDList: string;
TotalPiece: Variant; TotalPiece: Variant;
mDRMID: string; //定位作用 mDRMID: string; //定位作用
begin begin
// mDRMIDList := ''; // mDRMIDList := '';
// 保存当前记录的 BCIID // 保存当前记录的 BCIID
// if not Order_Main.IsEmpty then // if not Order_Main.IsEmpty then
// mDRMID := Trim(Order_Main.FieldByName('DRMID').AsString) // mDRMID := Trim(Order_Main.FieldByName('DRMID').AsString)
// else // else
// mDRMID := ''; // mDRMID := '';
// //
// try // try
// // 确保数据集状态正常 // // 确保数据集状态正常
// Order_Main.DisableControls; // Order_Main.DisableControls;
// try // try
// Order_Main.First; // Order_Main.First;
@ -1146,7 +1458,7 @@ begin
// Order_Main.EnableControls; // Order_Main.EnableControls;
// end; // end;
// //
// // 如果没有选择任何记录 // // 如果没有选择任何记录
// if mDRMIDList = '' then // if mDRMIDList = '' then
// begin // begin
// //
@ -1156,7 +1468,7 @@ begin
// Exit; // Exit;
// end; // end;
// //
// // 执行查询 // // 执行查询
// with ADOQueryCmd do // with ADOQueryCmd do
// begin // begin
// Close; // Close;
@ -1164,16 +1476,16 @@ begin
// SQL.Add('select isnull(sum(Piece), 0) as sselJS from Tat_Cloth_DR_Sub'); // SQL.Add('select isnull(sum(Piece), 0) as sselJS from Tat_Cloth_DR_Sub');
// SQL.Add('where DRMID in (' + mDRMIDList + ')'); // SQL.Add('where DRMID in (' + mDRMIDList + ')');
// //
// // 调试时可以显示SQL语句 // // 调试时可以显示SQL语句
//// ShowMessage('SQL: ' + SQL.Text); //// ShowMessage('SQL: ' + SQL.Text);
// //
// Open; // Open;
// //
// // 处理结果（更安全的方式） // // 处理结果（更安全的方式）
// if not IsEmpty then // if not IsEmpty then
// begin // begin
// TotalPiece := FieldByName('sselJS').Value; // TotalPiece := FieldByName('sselJS').Value;
// // 处理NULL值和空值 // // 处理NULL值和空值
// if VarIsNull(TotalPiece) or VarIsEmpty(TotalPiece) then // if VarIsNull(TotalPiece) or VarIsEmpty(TotalPiece) then
// sselJS.Caption := '0' // sselJS.Caption := '0'
// else // else
@ -1186,7 +1498,7 @@ begin
// end; // end;
// //
// //
// // 最后尝试定位回原记录 // // 最后尝试定位回原记录
// if mDRMID <> '' then // if mDRMID <> '' then
// Order_Main.Locate('DRMID', mDRMID, []); // Order_Main.Locate('DRMID', mDRMID, []);
//// sselJS.Text := '0'; //// sselJS.Text := '0';
@ -1194,9 +1506,9 @@ begin
// except // except
// on E: Exception do // on E: Exception do
// begin // begin
// // 记录错误信息 // // 记录错误信息
// sselJS.Caption := '0'; // sselJS.Caption := '0';
// ShowMessage('查询失败: ' + E.Message + #13#10 + 'SQL语句: ' + ADOQueryCmd.SQL.Text); // ShowMessage('查询失败: ' + E.Message + #13#10 + 'SQL语句: ' + ADOQueryCmd.SQL.Text);
// end; // end;
// end; // end;
@ -1204,7 +1516,7 @@ begin
try try
mDRMID := Trim(Order_Main.FieldByName('DRMID').AsString); mDRMID := Trim(Order_Main.FieldByName('DRMID').AsString);
// 确保数据集状态正常 // 确保数据集状态正常
Order_Main.DisableControls; Order_Main.DisableControls;
// with ADOQueryCmd do // with ADOQueryCmd do
// begin // begin
@ -1215,7 +1527,7 @@ begin
// Open; // Open;
// end; // end;
// 如果没有选择任何记录 // 如果没有选择任何记录
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
exit; exit;
@ -1232,9 +1544,9 @@ begin
except except
on E: Exception do on E: Exception do
begin begin
// 记录错误信息 // 记录错误信息
sselJS.Caption := '0'; sselJS.Caption := '0';
ShowMessage('查询失败: ' + E.Message + #13#10 + 'SQL语句: ' + ADOQueryCmd.SQL.Text); ShowMessage('查询失败: ' + E.Message + #13#10 + 'SQL语句: ' + ADOQueryCmd.SQL.Text);
end; end;
end; end;
end; end;

56
E04梭织坯布仓库/U_TatDRtInPut.dfm
View File

@ -3,7 +3,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Top = 139 Top = 139
Caption = #21457#36135#30003#35831#24405#20837 Caption = #21457#36135#30003#35831#24405#20837
ClientHeight = 644 ClientHeight = 644
ClientWidth = 1252 ClientWidth = 1264
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -19,7 +19,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1252 Width = 1264
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -77,7 +77,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1252 Width = 1264
Height = 99 Height = 99
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -152,19 +152,6 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label3: TLabel
Left = 873
Top = 13
Width = 65
Height = 12
Caption = #25910#36135#21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel object Label4: TLabel
Left = 31 Left = 31
Top = 43 Top = 43
@ -275,23 +262,13 @@ object frmTatDRtInPut: TfrmTatDRtInPut
'Y' 'Y'
'Kg') 'Kg')
end end
object SHDANWEI: TBtnEditC
Tag = 1
Left = 936
Top = 9
Width = 138
Height = 20
TabOrder = 5
OnBtnUpClick = SHDANWEIBtnUpClick
OnBtnDnClick = SHDANWEIBtnDnClick
end
object Seal: TEdit object Seal: TEdit
Tag = 1 Tag = 1
Left = 96 Left = 96
Top = 40 Top = 40
Width = 132 Width = 132
Height = 18 Height = 18
TabOrder = 6 TabOrder = 5
end end
object tube: TEdit object tube: TEdit
Tag = 1 Tag = 1
@ -299,7 +276,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Top = 40 Top = 40
Width = 132 Width = 132
Height = 18 Height = 18
TabOrder = 7 TabOrder = 6
end end
object Packaging: TEdit object Packaging: TEdit
Tag = 1 Tag = 1
@ -307,7 +284,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Top = 40 Top = 40
Width = 132 Width = 132
Height = 18 Height = 18
TabOrder = 8 TabOrder = 7
end end
object ToCoID: TEdit object ToCoID: TEdit
Tag = 1 Tag = 1
@ -315,7 +292,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Top = 35 Top = 35
Width = 96 Width = 96
Height = 18 Height = 18
TabOrder = 9 TabOrder = 8
Visible = False Visible = False
end end
end end
@ -323,7 +300,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 137 Top = 137
Width = 1252 Width = 1264
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -389,7 +366,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 175 Top = 175
Width = 1252 Width = 1264
Height = 469 Height = 469
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
@ -500,6 +477,13 @@ object frmTatDRtInPut: TfrmTatDRtInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 71 Width = 71
end end
object Tv1PFPrice: TcxGridDBColumn
Caption = #24179#26041#21333#20215
DataBinding.FieldName = 'PFPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Volume: TcxGridDBColumn object Tv1Volume: TcxGridDBColumn
Caption = #37197#36135#30003#35831#21367#25968 Caption = #37197#36135#30003#35831#21367#25968
DataBinding.FieldName = 'Volume' DataBinding.FieldName = 'Volume'
@ -542,14 +526,14 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end end
object DataSource1: TDataSource object DataSource1: TDataSource
DataSet = Order_Sub DataSet = Order_Sub
Left = 684 Left = 604
Top = 276 Top = 308
end end
object Order_Sub: TClientDataSet object Order_Sub: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 596 Left = 628
Top = 284 Top = 378
end end
object ADOQuery1: TADOQuery object ADOQuery1: TADOQuery
Connection = DataLink_TatClothStk.ADOLink Connection = DataLink_TatClothStk.ADOLink

53
E04梭织坯布仓库/U_TatDRtInPut.pas
View File

@ -49,8 +49,6 @@ type
ToolButton4: TToolButton; ToolButton4: TToolButton;
Label27: TLabel; Label27: TLabel;
QtyUnit: TComboBox; QtyUnit: TComboBox;
Label3: TLabel;
SHDANWEI: TBtnEditC;
ToolButton5: TToolButton; ToolButton5: TToolButton;
ToolButton6: TToolButton; ToolButton6: TToolButton;
Tv1C_code: TcxGridDBColumn; Tv1C_code: TcxGridDBColumn;
@ -70,6 +68,7 @@ type
Label7: TLabel; Label7: TLabel;
ToCoID: TEdit; ToCoID: TEdit;
Tv1issp: TcxGridDBColumn; Tv1issp: TcxGridDBColumn;
Tv1PFPrice: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -97,6 +96,7 @@ type
public public
PState, CopyInt: Integer; PState, CopyInt: Integer;
FDRMID, canshu1: string; FDRMID, canshu1: string;
isCheck: Integer; /////////判断修改是不是来自已审核状态
{ Public declarations } { Public declarations }
end; end;
@ -198,7 +198,7 @@ end;
procedure TfrmTatDRtInPut.SHDANWEIBtnDnClick(Sender: TObject); procedure TfrmTatDRtInPut.SHDANWEIBtnDnClick(Sender: TObject);
begin begin
SHDANWEI.Text := ''; // SHDANWEI.Text := '';
end; end;
procedure TfrmTatDRtInPut.SHDANWEIBtnUpClick(Sender: TObject); procedure TfrmTatDRtInPut.SHDANWEIBtnUpClick(Sender: TObject);
@ -212,7 +212,7 @@ begin
flagname := '收货单位'; flagname := '收货单位';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
SHDANWEI.text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); // SHDANWEI.text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end; end;
end; end;
@ -228,6 +228,11 @@ begin
readCxGrid(trim(self.Caption), Tv1, '发货管理'); readCxGrid(trim(self.Caption), Tv1, '发货管理');
if canshu1 = '查询' then
begin
Tv1PFPrice.Visible := false;
end;
InitData(); InitData();
end; end;
@ -409,7 +414,15 @@ begin
end; end;
RTSetsavedata(ADOCmd, 'Tat_Cloth_DR_Main', ScrollBox1, 1); RTSetsavedata(ADOCmd, 'Tat_Cloth_DR_Main', ScrollBox1, 1);
FieldByName('DRMID').Value := Trim(MaxMid); FieldByName('DRMID').Value := Trim(MaxMid);
if isCheck <> 1 then
begin
FieldByName('Status').Value := '0'; FieldByName('Status').Value := '0';
end;
if isCheck = 1 then ///标记审核修改
begin
FieldByName('CheckEdit').Value := '已改单';
end;
Post; Post;
end; end;
///////////////// 保存主表 ///////////////// ///////////////// 保存主表 /////////////////
@ -499,6 +512,21 @@ begin
end; end;
// ShowMessage(Order_Sub.FieldByName('Piece').AsString); // ShowMessage(Order_Sub.FieldByName('Piece').AsString);
C_NumHB(); C_NumHB();
///////////////////////////////////////配货申请原因////////////////////
Order_Sub.First;
while not Order_Sub.Eof do
begin
if (Order_Sub.FieldByName('Volume').AsString <> '') and (not Order_Sub.FieldByName('Volume').isnull) then
begin
if ((Order_Sub.FieldByName('ApplicationReaon').AsString = '') or (Order_Sub.FieldByName('ApplicationReaon').isnull)) then
begin
Application.MessageBox('请填写配货申请原因！', '提示信息', MB_OK);
Exit;
end;
end;
Order_Sub.Next;
end;
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('保存成功！', '提示', 0); Application.MessageBox('保存成功！', '提示', 0);
@ -641,22 +669,23 @@ begin
begin begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
while cds_sub.locate('SSel', true, []) do // while cds_sub.locate('SSel', true, []) do
CDS_2.First;
while not CDS_2.Eof do
begin begin
with Self.Order_Sub do with Self.Order_Sub do
begin begin
Append; Append;
FieldByName('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').Value; FieldByName('C_Code').Value := frmTatClothInfoSel.cds_2.fieldbyname('C_Code').Value;
FieldByName('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').Value; FieldByName('C_Name').Value := frmTatClothInfoSel.cds_2.fieldbyname('C_Name').Value;
// FieldByName('C_Spec').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Spec').Value; // FieldByName('C_Spec').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Spec').Value;
FieldByName('C_Width').Value := frmTatClothInfoSel.cds_sub.fieldbyname('C_MXMF').Value; FieldByName('C_Width').Value := frmTatClothInfoSel.cds_2.fieldbyname('C_MXMF').Value;
FieldByName('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_GramWeight').Value; FieldByName('C_GramWeight').Value := frmTatClothInfoSel.cds_2.fieldbyname('C_GramWeight').Value;
FieldByName('C_Color').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Color').Value; FieldByName('C_Color').Value := frmTatClothInfoSel.cds_2.fieldbyname('C_Color').Value;
// FieldByName('C_ColorNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_ColorNo').Value; // FieldByName('C_ColorNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_ColorNo').Value;
// FieldByName('C_Pattern').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Pattern').Value; // FieldByName('C_Pattern').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Pattern').Value;
end; end;
cds_sub.Edit; cds_2.Next;
cds_sub.fieldbyname('SSel').value := false;
end; end;
end; end;

BIN
E04梭织坯布仓库/testDll.identcache
View File

Binary file not shown.