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
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -42
ExplicitWidth = 909
ExplicitHeight = 597
PixelsPerInch = 96
@ -22,6 +21,7 @@ inherited frmCompanySel: TfrmCompanySel
Height = 476
Align = alClient
TabOrder = 0
ExplicitTop = 76
object TV1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>
@ -60,6 +60,13 @@ inherited frmCompanySel: TfrmCompanySel
HeaderAlignmentHorz = taCenter
Width = 159
end
object TV1Saleser: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 119
end
object TV1Column4: TcxGridDBColumn
Caption = #23458#25143#22320#22336
DataBinding.FieldName = 'CoAddress'
@ -135,15 +142,47 @@ inherited frmCompanySel: TfrmCompanySel
Height = 12
Caption = #21517#31216
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
Tag = 2
Left = 53
Left = 46
Top = 12
Width = 169
Width = 140
Height = 20
TabOrder = 0
OnChange = CoNameChange
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
inherited ADOQueryBaseCmd: TADOQuery
Connection = ADOConnection1

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

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

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

@ -2,24 +2,23 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Left = 372
Top = 106
Caption = #20135#21697#20449#24687#36873#25321
ClientHeight = 634
ClientWidth = 1485
ClientHeight = 629
ClientWidth = 1509
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -304
ExplicitWidth = 1501
ExplicitHeight = 673
ExplicitWidth = 1525
ExplicitHeight = 668
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1485
Width = 1509
Height = 38
AutoSize = True
ButtonHeight = 38
@ -37,16 +36,17 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitTop = 5
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #36873#25321
Caption = #36873#25321#23436#25104
ImageIndex = 12
OnClick = ToolButton1Click
end
object TBSave: TToolButton
Left = 71
Left = 95
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -55,7 +55,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 166
Left = 190
Top = 0
AutoSize = True
Caption = #20851#38381
@ -67,7 +67,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Left = 0
Top = 82
Width = 216
Height = 552
Height = 547
Align = alLeft
Bands = <
item
@ -85,6 +85,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
ScrollbarAnnotations.CustomAnnotations = <>
TabOrder = 1
OnDblClick = cxDBTreeList1DblClick
ExplicitHeight = 552
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'CTName'
Width = 210
@ -98,24 +99,24 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object Panel3: TPanel [2]
Left = 216
Top = 82
Width = 1269
Height = 552
Width = 1293
Height = 547
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Panel3'
TabOrder = 2
ExplicitWidth = 1269
ExplicitHeight = 552
object cxGrid1: TcxGrid
Left = 2
Top = 42
Width = 1265
Height = 314
Align = alClient
Width = 642
Height = 309
Align = alLeft
TabOrder = 0
ExplicitLeft = 6
ExplicitHeight = 508
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
@ -131,13 +132,13 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
object v1SSel: TcxGridDBColumn
object Tv1SSel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Width = 39
Width = 38
end
object v1Column12: TcxGridDBColumn
Caption = #31867#21035
@ -187,21 +188,24 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
object Panel7: TPanel
Left = 2
Top = 2
Width = 1265
Width = 1289
Height = 40
Align = alTop
BevelOuter = bvNone
TabOrder = 1
ExplicitWidth = 1265
object Panel4: TPanel
Left = 0
Top = 0
Width = 1265
Width = 1289
Height = 40
Align = alClient
AutoSize = True
TabOrder = 0
ExplicitLeft = 4
ExplicitTop = -6
DesignSize = (
1265
1289
40)
object Label14: TLabel
Left = 19
@ -297,14 +301,15 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
end
object cxGrid3: TcxGrid
Left = 2
Top = 356
Width = 1265
Top = 351
Width = 1289
Height = 194
Align = alBottom
TabOrder = 2
ExplicitLeft = 6
ExplicitTop = 362
ExplicitLeft = -50
ExplicitTop = 357
object TV3: TcxGridDBTableView
OnDblClick = TV3DblClick
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
@ -319,21 +324,12 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = 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
Caption = #38376#24133
DataBinding.FieldName = 'C_MXMF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 179
end
end
@ -341,16 +337,94 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
GridView = TV3
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
object Panel1: TPanel [3]
Left = 0
Top = 38
Width = 1485
Width = 1509
Height = 44
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 3
ExplicitTop = 34
object Label3: TLabel
Left = 42
Top = 15
@ -4871,4 +4945,23 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Left = 1003
Top = 508
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

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

@ -12,7 +12,7 @@ uses
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxTL,
cxMaskEdit, cxTLdxBarBuiltInMenu, cxCheckBox, cxInplaceContainer, cxDBTL,
cxTLData, math, dxScrollbarAnnotations;
cxTLData, math, dxScrollbarAnnotations, Vcl.Menus;
type
TfrmTatClothInfoSel = class(TfrmBaseHelp)
@ -36,7 +36,6 @@ type
Panel3: TPanel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1SSel: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1CYNo: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
@ -78,16 +77,28 @@ type
TV3: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV3Column1: TcxGridDBColumn;
CDS_Sub: TClientDataSet;
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 FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TV1DblClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure TCBNOR1Change(Sender: TObject);
@ -95,10 +106,13 @@ type
procedure TBCloseClick(Sender: TObject);
procedure cxDBTreeList1DblClick(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure N1Click(Sender: TObject);
procedure TV3DblClick(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
procedure InitGrid();
procedure InitTree();
procedure InitGrid2();
{ Private declarations }
public
FCoType: string;
@ -132,6 +146,15 @@ begin
cxDBTreeList1.Items[0].Expand(false);
end;
procedure TfrmTatClothInfoSel.N1Click(Sender: TObject);
begin
if CDS_2.IsEmpty then
begin
Exit;
end;
CDS_2.Delete;
end;
procedure TfrmTatClothInfoSel.FormCreate(Sender: TObject);
begin
inherited;
@ -251,6 +274,32 @@ begin
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);
begin
inherited;
@ -262,6 +311,7 @@ begin
InitTree();
InitGrid();
InitGrid2();
end;
procedure TfrmTatClothInfoSel.TBCloseClick(Sender: TObject);
@ -291,10 +341,7 @@ begin
ModalResult := 1;
end;
procedure TfrmTatClothInfoSel.TV1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmTatClothInfoSel.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
@ -310,6 +357,21 @@ begin
SInitCDSData(ADOQueryCmd, CDS_sub);
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);
begin
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.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.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.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.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>
<ProjectSortOrder AutoSort="0" SortType="0">
<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 = []
ParentFont = False
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
end
object ParentCoName: TBtnEditC
@ -316,7 +298,7 @@ object frmCustInput: TfrmCustInput
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 8
TabOrder = 7
OnBtnUpClick = ParentCoNameBtnUpClick
OnBtnDnClick = cocountryBtnDnClick
end
@ -332,7 +314,7 @@ object frmCustInput: TfrmCustInput
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 9
TabOrder = 8
OnBtnUpClick = SaleserBtnUpClick
OnBtnDnClick = cocountryBtnDnClick
end
@ -341,7 +323,7 @@ object frmCustInput: TfrmCustInput
Left = 71
Top = 224
Width = 140
Height = 22
Height = 20
Hint = 'khdept/'#37096#38376
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -349,10 +331,20 @@ object frmCustInput: TfrmCustInput
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 10
OnBtnUpClick = cocountryBtnUpClick
TabOrder = 9
OnBtnDnClick = cocountryBtnDnClick
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
object Panel1: TPanel
Left = 0
@ -420,6 +412,7 @@ object frmCustInput: TfrmCustInput
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 1
ExplicitLeft = 0
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -479,15 +472,6 @@ object frmCustInput: TfrmCustInput
HeaderAlignmentHorz = taCenter
Width = 86
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
DataBinding.FieldName = 'EMAIL'
DataBinding.IsNullValueType = True

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

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

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

@ -7,7 +7,7 @@ inherited frmCustomer: TfrmCustomer
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitLeft = -185
ExplicitLeft = -515
ExplicitWidth = 1382
ExplicitHeight = 650
PixelsPerInch = 96
@ -154,7 +154,6 @@ inherited frmCustomer: TfrmCustomer
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 32
object Label3: TLabel
Left = 190
Top = 13
@ -248,6 +247,8 @@ inherited frmCustomer: TfrmCustomer
Height = 309
Align = alClient
TabOrder = 2
ExplicitLeft = 1
ExplicitTop = 94
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -329,6 +330,20 @@ inherited frmCustomer: TfrmCustomer
Options.Editing = False
Width = 80
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
Caption = #22791#27880
DataBinding.FieldName = 'Note'
@ -421,6 +436,8 @@ inherited frmCustomer: TfrmCustomer
Height = 201
Align = alClient
TabOrder = 0
ExplicitLeft = 2
ExplicitTop = 6
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -481,15 +498,6 @@ inherited frmCustomer: TfrmCustomer
HeaderAlignmentHorz = taCenter
Width = 99
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
Caption = 'EMAIL'
DataBinding.FieldName = 'Email'

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

@ -67,7 +67,6 @@ type
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
v3Column2: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
@ -88,6 +87,8 @@ type
Label5: TLabel;
dept: TEdit;
Tv1Column8: TcxGridDBColumn;
Tv1Contacts: TcxGridDBColumn;
Tv1Telephone: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -205,8 +206,10 @@ begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from BS_Company ');
sql.Add(' where 1=1 ' + (WSql));
sql.Add(' select A.* ');
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'' ');
if Trim(FAuthority) = '¼Èë' then

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

@ -71,10 +71,11 @@ begin
if trim(DataBaseStr) = '' then
begin
server := '101.132.143.144,7781';
dtbase := 'HENGYANData';
user := 'rtsa';
pswd := 'rightsoft@5740';
server := '106.15.78.45,7781';
pswd := 'rightsoft@2222';
dtbase := 'xiangyingszdata';
user := 'xiangyingsa';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// 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"?>
<BorlandProject>
<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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</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.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.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.814,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.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.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.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.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.583,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.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.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.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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.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.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.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.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.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.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</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
PopupMenu = PM_1
TabOrder = 0
ExplicitLeft = 6
ExplicitTop = 41
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -432,15 +434,6 @@ inherited frmClothInfo: TfrmClothInfo
HeaderAlignmentHorz = taCenter
Width = 58
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
Caption = #22635#21333#20154
DataBinding.FieldName = 'filler'
@ -473,6 +466,14 @@ inherited frmClothInfo: TfrmClothInfo
Options.Editing = False
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #22270#29255
DataBinding.FieldName = 'IsImg'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

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

@ -83,7 +83,6 @@ type
PM_1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
v1Column11: TcxGridDBColumn;
Panel7: TPanel;
Panel4: TPanel;
Label14: TLabel;
@ -118,6 +117,7 @@ type
ToolButton3: TToolButton;
Tv1Column3: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);

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

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

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

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

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

Binary file not shown.

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

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

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

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

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

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

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

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

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

@ -1,90 +1,62 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<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.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>2025-04-11 13:34:13.341,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj</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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.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\B04采购计划管理\U_ClothPurchasePlanPut.pas=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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.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.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.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.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.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>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
<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="..\..\D10szXIANGYING"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<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"?>
<BorlandProject>
<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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.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.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.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.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions>

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

@ -31,7 +31,8 @@ uses
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
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}

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

@ -163,6 +163,10 @@
<Form>frmTatClothInspHZList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatInspSHHZ.pas">
<Form>frmTatInspSHHZ</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<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.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.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.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.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.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>
@ -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.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.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.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 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>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10szXIANGYING"/>
@ -98,5 +99,7 @@
<File Path="U_TatMachCutHZList.dfm"/>
<File Path="U_TatClothInspHZList.pas"/>
<File Path="U_TatClothInspHZList.dfm"/>
<File Path="U_TatInspSHHZ.pas"/>
<File Path="U_TatInspSHHZ.dfm"/>
</ProjectSortOrder>
</BorlandProject>

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

Binary file not shown.

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

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

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

@ -16,7 +16,7 @@ implementation
uses
U_DataLink, U_iniParam, U_TatMachInsp, U_TatClothInspList, U_LabelPrint,
U_TatMachCutHZList,U_TatClothInspHZList;
U_TatMachCutHZList, U_TatClothInspHZList,U_TatInspSHHZ;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
@ -175,6 +175,18 @@ begin
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:
begin
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
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 103
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
@ -364,27 +364,21 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
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
@ -396,7 +390,6 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
end
item
Kind = skSum
Column = Tv1FBPF
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -429,15 +422,14 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'DXMF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
Width = 72
OnCompareRowValuesForCellMerging = Tv1DXMFCompareRowValuesForCellMerging
Width = 80
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
@ -447,6 +439,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'Carno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 90
OnCompareRowValuesForCellMerging = Tv1CarnoCompareRowValuesForCellMerging
@ -456,6 +449,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'pcid'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 68
OnCompareRowValuesForCellMerging = Tv1PCIDCompareRowValuesForCellMerging
@ -465,6 +459,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'CIMachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 80
OnCompareRowValuesForCellMerging = Tv1CIMachNoCompareRowValuesForCellMerging
@ -474,6 +469,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 80
OnCompareRowValuesForCellMerging = Tv1BCIOIDCompareRowValuesForCellMerging
@ -486,6 +482,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
Properties.DecimalPlaces = 2
Properties.DisplayFormat = '0.00%'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 90
OnCompareRowValuesForCellMerging = Tv1qgSLCompareRowValuesForCellMerging
@ -495,6 +492,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'qgMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 90
OnCompareRowValuesForCellMerging = Tv1qgMeterCompareRowValuesForCellMerging
@ -506,6 +504,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.0%'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object Tv1Column21: TcxGridDBColumn
@ -515,13 +514,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.0%'
HeaderAlignmentHorz = taCenter
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
@ -529,6 +522,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.CellMerging = True
Width = 80
OnCompareRowValuesForCellMerging = Tv1isspCompareRowValuesForCellMerging
@ -538,6 +532,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column6: TcxGridDBColumn
@ -545,6 +540,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'YDJs'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object Tv1Column1: TcxGridDBColumn
@ -552,13 +548,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'Ydqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
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
@ -566,6 +556,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'xjJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column10: TcxGridDBColumn
@ -573,13 +564,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'xjqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
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
@ -587,6 +572,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'edJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column8: TcxGridDBColumn
@ -594,13 +580,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'edqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
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
@ -608,6 +588,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'csJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column18: TcxGridDBColumn
@ -615,13 +596,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'csqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
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
@ -629,6 +604,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'fqJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column14: TcxGridDBColumn
@ -636,13 +612,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'fqqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
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
@ -650,6 +620,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
DataBinding.FieldName = 'fbJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1fbqty: TcxGridDBColumn
@ -657,22 +628,9 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
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
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
DataBinding.FieldName = 'meterall'
DataBinding.IsNullValueType = True
@ -749,5 +707,13 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
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

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

@ -44,7 +44,6 @@ type
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
Tv1C_Name: TcxGridDBColumn;
Tv1DXMF: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1PCID: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
@ -57,7 +56,6 @@ type
Tv1Column14: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Tv1dxmeter: TcxGridDBColumn;
Tv1Carno: TcxGridDBColumn;
@ -65,7 +63,6 @@ type
Tv1qgMeter: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn;
Tv1fbJS: TcxGridDBColumn;
Tv1fbqty: TcxGridDBColumn;
Tv1CIMachNo: TcxGridDBColumn;
@ -78,13 +75,10 @@ type
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;
Tv1DXMF: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(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 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);
procedure Tv1DblClick(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations }
public
canshu1: string;
@ -132,7 +131,7 @@ type
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint;
U_DataLink, U_RTFun, U_LabelPrint, U_TatInspSHHZ, U_TatClothInspHZList2;
{$R *.dfm}
@ -173,14 +172,131 @@ begin
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,A.issp ');
sql.Add(' ,maX(B.C_Width) AS DXMF,A.CIMachNo,A.BCIOID ');
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 ');
// 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) ');
@ -197,35 +313,35 @@ begin
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(',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(',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(',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(',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(',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(',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 ');
// SQL.Add(',cspf=SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
// 添加优等率字段 - 优等卷数/(优等卷数+小卷卷数+二等卷数+测试卷数+分切卷数+废布卷数(排除米数为0的))
@ -279,12 +395,12 @@ begin
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,A.issp');
sql.Add(' group by A.C_NAME,A.C_GramWeight,A.pcid,A.BCIOID,A.Carno,A.dxmeter');
sql.Add(' ,A.CIMachNo,isnull(A.issp,'''')');
sql.add(' ) T where 1=1 ');
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);
Open;
end;
@ -367,7 +483,14 @@ procedure TfrmTatClothInspHZList.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 TfrmTatClothInspHZList.orderNoKeyPress(Sender: TObject; var Key: Char);
@ -459,10 +582,10 @@ begin
// 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;
// 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;
@ -575,6 +698,34 @@ begin
lstCust.Clear;
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);
begin
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);
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);
var
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
BorderStyle = bsSingle
TabOrder = 1
ExplicitTop = 101
DesignSize = (
1463
24)
@ -649,7 +648,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
' '#27491#24335#25968#25454' '
' '#21024#38500#25968#25454' ')
OnChange = cxTabControl1Change
ExplicitTop = 136
ClientRectBottom = 445
ClientRectLeft = 2
ClientRectRight = 1465
@ -669,7 +667,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
ParentFont = False
PopupMenu = PM_1
TabOrder = 0
ExplicitLeft = 3
object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp
Navigator.Buttons.CustomButtons = <>
@ -1400,5 +1397,9 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Caption = #22797#21046
OnClick = N1Click
end
object N2: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N2Click
end
end
end

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

@ -143,6 +143,7 @@ type
Tv1C_MXSHWidth: TcxGridDBColumn;
stkInsert: TToolButton;
Tv1ISSP: TcxGridDBColumn;
N2: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -181,6 +182,7 @@ type
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure stkInsertClick(Sender: TObject);
procedure N2Click(Sender: TObject);
private
DQdate: TDateTime;
FLeft, FTop: Integer;
@ -189,6 +191,7 @@ type
function Savedata(): Boolean;
procedure SetStatus();
procedure PrintCKMDG(MRKOrdID: string);
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations }
public
FFInt: Integer;
@ -268,7 +271,14 @@ procedure TfrmTatClothInspList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel(self.Caption, cxgrid1);
with Order_Main do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end;
procedure TfrmTatClothInspList.PrintCKMDG(MRKOrdID: string);
@ -1224,6 +1234,30 @@ begin
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);
begin
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
Position = poScreenCenter
Visible = True
ExplicitLeft = -466
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
@ -33,7 +34,6 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitTop = 2
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -78,7 +78,6 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 36
object Label2: TLabel
Left = 70
Top = 36
@ -540,5 +539,13 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList
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

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

@ -63,6 +63,8 @@ type
Tv1qgMeter: TcxGridDBColumn;
Tv1qgMeterGQ: TcxGridDBColumn;
Tv1qgMeterAll: TcxGridDBColumn;
N2: TMenuItem;
N3: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -86,11 +88,14 @@ type
procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject);
procedure CarnoKeyPress(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
canshu1: string;
@ -270,7 +275,14 @@ procedure TfrmTatMachCutHZList.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 TfrmTatMachCutHZList.orderNoKeyPress(Sender: TObject; var Key: Char);
@ -331,6 +343,37 @@ begin
SelOKNo(CDS_1, true);
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);
var
WSql: string;

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

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

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

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

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

@ -33,7 +33,13 @@ uses
U_TatClothStkHZListSEL in 'U_TatClothStkHZListSEL.pas' {frmTatClothStkHZListSEL},
U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel},
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}

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

@ -171,6 +171,30 @@
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</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">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

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

@ -1,71 +1,77 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</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.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.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.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.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.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.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.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.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.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</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.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.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.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.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.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.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.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.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.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.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.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.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.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.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.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.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.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.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.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.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.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.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.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.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.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>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/19 11:28:25.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.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>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10szXIANGYING"/>
@ -123,5 +129,17 @@
<File Path="U_TatClothOutList.dfm"/>
<File Path="U_TatClothStkHZListSEL.pas"/>
<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>
</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
OldCreateOrder = True
OnDestroy = DataModuleDestroy
Height = 349
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_TatClothDROutEdit, U_TatClothOutEdit, U_TatClothOutList, U_TatClothStkList,
U_TatClothStkHZList, U_TatClothCKHZList, U_TatClothRKHZList,
U_TatClothStkListPH;
U_TatClothStkListPH, U_TatClothCRStkHZList;
/////////////////////////////////////////////////////////////////
// 功能说明:取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;
// Parameters1 := '查询';
Parameters1 := '管理';
// Parameters1 := '业务';
// Parameters1 := '财务';
Parameters2 := '备货';
end
else
@ -256,6 +258,17 @@ begin
mnewHandle := Handle;
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:
begin

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

@ -271,10 +271,11 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Style = tsFlatButtons
TabOrder = 2
object TabSheet1: TTabSheet
Caption = #26377#20986#24211#21333#20986#24211
@ -282,7 +283,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Left = 0
Top = 0
Width = 1532
Height = 459
Height = 457
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
@ -294,6 +295,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
PopupMenu = PM_1
TabOrder = 0
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
@ -349,6 +351,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1NetWeight
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -371,25 +380,12 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Options.Sorting = False
Width = 66
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
Caption = #23458#25143
DataBinding.FieldName = 'ToCoName'
DataBinding.FieldName = 'CoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column3: TcxGridDBColumn
@ -405,20 +401,15 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1C_Width: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
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
@ -442,13 +433,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1PF: TcxGridDBColumn
Caption = #24179#26041
DataBinding.FieldName = 'PF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
@ -464,7 +449,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Left = 0
Top = 0
Width = 1532
Height = 459
Height = 457
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
@ -473,9 +458,10 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PM_1
PopupMenu = PM_2
TabOrder = 0
object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
@ -553,20 +539,6 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Options.Sorting = False
Width = 66
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
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
@ -580,20 +552,15 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
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
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
@ -617,13 +584,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #24179#26041
DataBinding.FieldName = 'PF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
@ -694,6 +655,14 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
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 = <>
@ -713,4 +682,24 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Left = 488
Top = 392
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

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

@ -54,28 +54,20 @@ type
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
Tv1IOTime: TcxGridDBColumn;
Tv1DRMID: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1C_Width: TcxGridDBColumn;
Tv1C_GramWeight: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
Tv1NetWeight: TcxGridDBColumn;
Tv1PF: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
CDS_2: TClientDataSet;
DS_2: TDataSource;
@ -83,6 +75,13 @@ type
Tv1ToCoName: TcxGridDBColumn;
Tv1issp: 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 FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -107,12 +106,22 @@ type
procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
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
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
procedure InitGrid2();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
procedure CopyColumnSummaryToClipboard2(AColumn: TcxGridColumn);
{ Private declarations }
public
canshu1: string;
@ -122,7 +131,7 @@ type
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint;
U_DataLink, U_RTFun, U_LabelPrint, U_TatClothCKHZList2,U_TatClothCKHZList3;
{$R *.dfm}
@ -169,17 +178,22 @@ begin
Close;
sql.Clear;
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_Width,A.C_GramWeight,A.IONO as DRMID ');
sql.Add(',ToCoName=max(B.ToCoName),ioTime=min(ioTime) ');
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight');
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(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) ');
SQL.Add(',A.issp');
// 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(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID ');
sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = ''³ö¿â'' ');
sql.Add(WSql);
SQL.Add(' group by A.C_CODE ,A.C_Width,A.C_GramWeight,A.IONO,A.C_Name,A.issp');
SQL.Add(' order by A.IONO,A.C_CODE ,A.C_Width,A.C_GramWeight');
if canshu1 = '业务' then
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);
Open;
@ -194,7 +208,6 @@ begin
end;
procedure TfrmTatClothCKHZList.InitGrid2();
var
WSql: string;
@ -217,20 +230,18 @@ begin
Filtered := False;
Close;
sql.Clear;
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_Width,A.C_GramWeight,DRMID = '''' ');
sql.Add(',ioTime=min(ioTime),ioType=max(A.ioType) ');
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight,DRMID = '''' ');
// sql.Add(',ioType=max(A.ioType) ');
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 = max(issp) ');
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 not LIKE ''RSG%'' and A.IOFlag = ''³ö¿â'' ');
sql.Add(WSql);
SQL.Add(' group by A.C_CODE ,A.C_Width,A.C_GramWeight,A.C_Name,A.issp');
SQL.Add(' order By A.C_CODE ,A.C_Width,A.C_GramWeight');
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_GramWeight');
// SQL.Add(' order by B.DRMID');
// showmessage(sql.text);
Open;
end;
@ -319,7 +330,14 @@ procedure TfrmTatClothCKHZList.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 TfrmTatClothCKHZList.orderNoKeyPress(Sender: TObject; var Key: Char);
@ -341,12 +359,65 @@ begin
lstCust.Clear;
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);
begin
if lstCust <> nil then
AText := IntToStr(lstCust.Count);
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);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
@ -374,12 +445,83 @@ begin
InitGrid();
end;
procedure TfrmTatClothCKHZList.N1Click(Sender: TObject);
procedure TfrmTatClothCKHZList.MenuItem1Click(Sender: TObject);
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);
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);
var
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
end
object Label1: TLabel
Left = 847
Left = 843
Top = 10
Width = 39
Height = 12
@ -236,7 +236,7 @@ inherited frmTatClothInList: TfrmTatClothInList
ParentFont = False
end
object Label4: TLabel
Left = 847
Left = 843
Top = 36
Width = 26
Height = 12
@ -250,7 +250,7 @@ inherited frmTatClothInList: TfrmTatClothInList
ParentFont = False
end
object Label8: TLabel
Left = 1012
Left = 1008
Top = 9
Width = 52
Height = 12
@ -263,6 +263,20 @@ inherited frmTatClothInList: TfrmTatClothInList
Font.Style = [fsBold]
ParentFont = False
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
Left = 88
Top = 6
@ -341,7 +355,7 @@ inherited frmTatClothInList: TfrmTatClothInList
end
object STKID: TEdit
Tag = 2
Left = 716
Left = 712
Top = 32
Width = 100
Height = 20
@ -371,7 +385,7 @@ inherited frmTatClothInList: TfrmTatClothInList
end
object jyg: TEdit
Tag = 2
Left = 716
Left = 712
Top = 6
Width = 100
Height = 20
@ -401,7 +415,7 @@ inherited frmTatClothInList: TfrmTatClothInList
end
object carno: TEdit
Tag = 1
Left = 892
Left = 882
Top = 6
Width = 100
Height = 20
@ -411,7 +425,7 @@ inherited frmTatClothInList: TfrmTatClothInList
end
object dept: TEdit
Tag = 2
Left = 892
Left = 882
Top = 32
Width = 100
Height = 20
@ -421,7 +435,7 @@ inherited frmTatClothInList: TfrmTatClothInList
end
object IOType: TComboBox
Tag = 1
Left = 1070
Left = 1061
Top = 6
Width = 100
Height = 20
@ -433,6 +447,16 @@ inherited frmTatClothInList: TfrmTatClothInList
#38144#21806#20986#24211
#26399#21021#20837#24211)
end
object Grade: TEdit
Tag = 2
Left = 1061
Top = 32
Width = 100
Height = 20
Hint = '0'
TabOrder = 16
OnKeyPress = carnoKeyPress
end
end
object Panel6: TPanel [2]
Left = 0
@ -828,6 +852,13 @@ inherited frmTatClothInList: TfrmTatClothInList
Options.Editing = False
Width = 66
end
object Tv1FlawList: TcxGridDBColumn
Caption = #30133#28857#24773#20917
DataBinding.FieldName = 'FlawList'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column46: TcxGridDBColumn
Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo'
@ -986,5 +1017,9 @@ inherited frmTatClothInList: TfrmTatClothInList
Caption = #22797#21046
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N3Click
end
end
end

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

@ -110,6 +110,10 @@ type
IOType: TComboBox;
Label8: TLabel;
Tv1issp: TcxGridDBColumn;
Tv1FlawList: TcxGridDBColumn;
Label6: TLabel;
Grade: TEdit;
N3: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -136,11 +140,13 @@ type
procedure N2Click(Sender: TObject);
procedure carnoKeyPress(Sender: TObject; var Key: Char);
procedure IOTypeChange(Sender: TObject);
procedure N3Click(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations }
public
canshu1, canshu2, FWorkshop: string;
@ -276,7 +282,14 @@ procedure TfrmTatClothInList.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 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)));
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);
begin
if CDS_1.IsEmpty then

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

@ -138,7 +138,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
ParentFont = False
end
object Label7: TLabel
Left = 525
Left = 522
Top = 10
Width = 26
Height = 12
@ -152,7 +152,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
ParentFont = False
end
object Label10: TLabel
Left = 671
Left = 668
Top = 36
Width = 39
Height = 12
@ -180,7 +180,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
ParentFont = False
end
object Label20: TLabel
Left = 525
Left = 522
Top = 36
Width = 26
Height = 12
@ -208,7 +208,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
ParentFont = False
end
object Label1: TLabel
Left = 671
Left = 668
Top = 10
Width = 39
Height = 12
@ -222,7 +222,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
ParentFont = False
end
object Label4: TLabel
Left = 831
Left = 828
Top = 10
Width = 39
Height = 12
@ -236,7 +236,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
ParentFont = False
end
object Label6: TLabel
Left = 831
Left = 828
Top = 36
Width = 26
Height = 12
@ -249,6 +249,48 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Font.Style = [fsBold]
ParentFont = False
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
Left = 88
Top = 6
@ -317,7 +359,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end
object conNO: TEdit
Tag = 2
Left = 409
Left = 406
Top = 6
Width = 100
Height = 20
@ -327,7 +369,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end
object STKID: TEdit
Tag = 2
Left = 711
Left = 708
Top = 32
Width = 100
Height = 20
@ -337,7 +379,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end
object C_Name: TEdit
Tag = 2
Left = 409
Left = 406
Top = 32
Width = 100
Height = 20
@ -347,7 +389,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end
object C_Color: TEdit
Tag = 2
Left = 553
Left = 550
Top = 6
Width = 100
Height = 20
@ -357,7 +399,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end
object C_Pattern: TEdit
Tag = 2
Left = 553
Left = 550
Top = 32
Width = 100
Height = 20
@ -377,7 +419,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end
object jyg: TEdit
Tag = 2
Left = 711
Left = 708
Top = 6
Width = 100
Height = 20
@ -387,7 +429,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end
object carno: TEdit
Tag = 1
Left = 871
Left = 868
Top = 6
Width = 100
Height = 20
@ -397,7 +439,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end
object dept: TEdit
Tag = 2
Left = 871
Left = 868
Top = 32
Width = 100
Height = 20
@ -405,6 +447,36 @@ inherited frmTatClothOutList: TfrmTatClothOutList
TabOrder = 14
OnKeyPress = orderNoKeyPress
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
object Panel6: TPanel [2]
Tag = 2
@ -937,5 +1009,9 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Caption = #22797#21046
OnClick = N3Click
end
object N4: TMenuItem
Caption = #22797#21046#27880#33050
OnClick = N4Click
end
end
end

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

@ -105,6 +105,13 @@ type
Label6: TLabel;
dept: TEdit;
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 FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -130,11 +137,13 @@ type
procedure N1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
procedure InitGrid();
procedure SetStatus();
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
{ Private declarations }
public
canshu1, canshu2, FWorkshop: string;
@ -267,7 +276,14 @@ procedure TfrmTatClothOutList.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 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)));
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);
begin
if CDS_1.IsEmpty then

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

@ -281,7 +281,9 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
ParentFont = False
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 111
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
@ -379,6 +381,26 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
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
@ -414,6 +436,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1IOType: TcxGridDBColumn
@ -421,34 +444,23 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column2: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
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
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
@ -456,6 +468,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'Ydqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1YdPF: TcxGridDBColumn
@ -463,6 +476,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'YdPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column7: TcxGridDBColumn
@ -470,6 +484,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'edJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column8: TcxGridDBColumn
@ -477,6 +492,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'edqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1edPF: TcxGridDBColumn
@ -484,6 +500,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'edPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column9: TcxGridDBColumn
@ -491,6 +508,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'xjJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column10: TcxGridDBColumn
@ -498,6 +516,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'xjqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1xjPF: TcxGridDBColumn
@ -505,6 +524,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'xjPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column13: TcxGridDBColumn
@ -512,6 +532,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'fqJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column14: TcxGridDBColumn
@ -519,6 +540,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'fqqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1fqPF: TcxGridDBColumn
@ -526,6 +548,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'fqPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column17: TcxGridDBColumn
@ -533,6 +556,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'csJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column18: TcxGridDBColumn
@ -540,6 +564,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'csqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1csPF: TcxGridDBColumn
@ -547,6 +572,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'csPF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column19: TcxGridDBColumn
@ -554,6 +580,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
DataBinding.FieldName = 'pf'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
end
@ -622,5 +649,13 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
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

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

@ -45,9 +45,7 @@ type
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
Tv1Column2: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
@ -74,6 +72,8 @@ type
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);
@ -98,11 +98,15 @@ type
procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure IOTypeChange(Sender: TObject);
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;
@ -112,7 +116,7 @@ type
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint;
U_DataLink, U_RTFun, U_LabelPrint, U_TatClothRKHZList2;
{$R *.dfm}
@ -159,7 +163,8 @@ begin
Close;
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(',SUM(CASE WHEN GRADE=''ÓŵÈÆ·'' THEN 1 ELSE 0 END )AS YDJS');
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/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('group by C_NAME, C_width,C_GramWeight,pcid,issp');
sql.Add('Order by C_NAME, C_width,C_GramWeight ');
// sql.Add('group by C_NAME, C_width,C_GramWeight,pcid,isnull(A.issp,'''')');
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);
Open;
end;
@ -280,7 +287,14 @@ procedure TfrmTatClothRKHZList.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 TfrmTatClothRKHZList.orderNoKeyPress(Sender: TObject; var Key: Char);
@ -302,6 +316,28 @@ begin
lstCust.Clear;
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);
begin
if lstCust <> nil then
@ -341,6 +377,35 @@ begin
SelOKNo(CDS_1, true);
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);
var
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
Left = 184
Top = 138
Caption = #25104#21697#24211#23384#27719#24635#21015#34920
Caption = #25104#21697#24211#23384#27719#24635#21015#34920'1'
ClientHeight = 600
ClientWidth = 1540
FormStyle = fsMDIChild
@ -19,7 +19,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonWidth = 115
Caption = 'ToolBar1'
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -33,7 +33,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitTop = 2
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -50,16 +49,23 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton4: TToolButton
object ToolButton1: TToolButton
Left = 142
Top = 0
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
ImageIndex = 16
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 237
Left = 356
Top = 0
AutoSize = True
Caption = #20851#38381
@ -78,7 +84,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 32
object Label2: TLabel
Left = 70
Top = 36
@ -114,20 +119,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
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
@ -203,23 +194,21 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
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 cxGrid1: TcxGrid [2]
object Panel2: TPanel [2]
Left = 0
Top = 105
Width = 1540
Height = 495
Align = alClient
TabOrder = 2
ExplicitTop = 111
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 1538
Height = 493
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -228,9 +217,9 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
Font.Style = []
ParentFont = False
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 111
TabOrder = 0
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
@ -339,7 +328,30 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
end
item
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>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -375,20 +387,15 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column2: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
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
@ -396,6 +403,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'YDJs'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object Tv1Column1: TcxGridDBColumn
@ -403,13 +411,15 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'Ydqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column5: TcxGridDBColumn
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
@ -417,6 +427,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'edJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column8: TcxGridDBColumn
@ -424,13 +435,15 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'edqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column11: TcxGridDBColumn
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
@ -438,6 +451,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'xjJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column10: TcxGridDBColumn
@ -445,13 +459,15 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'xjqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column12: TcxGridDBColumn
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
@ -459,6 +475,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'fqJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column14: TcxGridDBColumn
@ -466,13 +483,15 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'fqqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column15: TcxGridDBColumn
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
@ -480,6 +499,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'csJS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column18: TcxGridDBColumn
@ -487,27 +507,31 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
DataBinding.FieldName = 'csqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column16: TcxGridDBColumn
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
object Tv1pf: TcxGridDBColumn
Caption = #24179#26041
DataBinding.FieldName = 'pf'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
Options.Editing = False
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 553
@ -542,25 +566,25 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 828
Top = 284
Left = 708
Top = 156
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 728
Top = 288
Left = 608
Top = 136
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
BeforeOpen = CDS_1BeforeOpen
Left = 776
Top = 284
Left = 552
Top = 140
end
object PM_1: TPopupMenu
Left = 560
Top = 384
Left = 368
Top = 248
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
@ -569,5 +593,13 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
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

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

@ -40,11 +40,14 @@ type
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
C_GramWeight: TEdit;
label11: TLabel;
Panel2: TPanel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1issp: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
@ -56,18 +59,16 @@ type
Tv1Column14: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
C_GramWeight: TEdit;
label12: TLabel;
C_width: TEdit;
label11: TLabel;
Tv1Column5: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1issp: TcxGridDBColumn;
N2: TMenuItem;
Tv1pf: TcxGridDBColumn;
Tv1YdPF: TcxGridDBColumn;
Tv1edPF: TcxGridDBColumn;
Tv1xjPF: TcxGridDBColumn;
Tv1fqPF: TcxGridDBColumn;
Tv1csPF: TcxGridDBColumn;
N3: TMenuItem;
ToolButton1: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -91,11 +92,17 @@ type
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;
@ -105,7 +112,7 @@ type
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint;
U_DataLink, U_RTFun, U_LabelPrint, U_TatClothStkHZList2;
{$R *.dfm}
@ -152,7 +159,7 @@ begin
Close;
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(',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');
@ -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 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(', A.issp ');
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_width,A.C_GramWeight,issp');
SQL.Add(' order by A.C_NAME, A.C_width,A.C_GramWeight');
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;
@ -194,6 +201,8 @@ begin
end;
procedure TfrmTatClothStkHZList.IsJYTimeClick(Sender: TObject);
begin
inherited;
@ -247,6 +256,7 @@ begin
inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存汇总');
CurrentPage := 1;
RecordsNumber := 500;
canshu1 := Trim(Self.fParameters1);
@ -259,7 +269,16 @@ procedure TfrmTatClothStkHZList.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 TfrmTatClothStkHZList.orderNoKeyPress(Sender: TObject; var Key: Char);
@ -281,6 +300,27 @@ begin
lstCust.Clear;
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);
begin
if lstCust <> nil then
@ -320,6 +360,37 @@ begin
SelOKNo(CDS_1, true);
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);
var
WSql: string;
@ -373,6 +444,7 @@ end;
procedure TfrmTatClothStkHZList.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存汇总');
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
Position = poScreenCenter
Visible = True
ExplicitTop = -14
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
@ -218,6 +219,48 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Font.Style = [fsBold]
ParentFont = False
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
Left = 88
Top = 6
@ -362,6 +405,36 @@ inherited frmTatClothStkList: TfrmTatClothStkList
TabOrder = 13
OnKeyPress = orderNoKeyPress
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
object Panel6: TPanel [2]
Left = 0
@ -480,6 +553,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
ParentFont = False
PopupMenu = PM_1
TabOrder = 3
ExplicitTop = 133
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -540,6 +614,10 @@ inherited frmTatClothStkList: TfrmTatClothStkList
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1PF
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -690,6 +768,13 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Options.Editing = False
Width = 66
end
object Tv1PF: TcxGridDBColumn
Caption = #24179#26041
DataBinding.FieldName = 'PF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object v1Column8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight'
@ -862,5 +947,13 @@ inherited frmTatClothStkList: TfrmTatClothStkList
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

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

@ -96,6 +96,15 @@ type
Label1: TLabel;
dept: TEdit;
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 FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -117,11 +126,14 @@ type
procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(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
canshu1: string;
@ -256,7 +268,15 @@ procedure TfrmTatClothStkList.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 TfrmTatClothStkList.orderNoKeyPress(Sender: TObject; var Key: Char);
@ -335,6 +355,38 @@ begin
SelOKNo(CDS_1, true);
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);
var
WSql: string;

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

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

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

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

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

@ -8,7 +8,7 @@ inherited frmTatClothStkListsel: TfrmTatClothStkListsel
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 12
TextHeight = 13
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
@ -87,7 +87,7 @@ inherited frmTatClothStkListsel: TfrmTatClothStkListsel
Left = 70
Top = 36
Width = 12
Height = 12
Height = 13
Caption = #33267
end
object Label3: TLabel
@ -261,7 +261,7 @@ inherited frmTatClothStkListsel: TfrmTatClothStkListsel
Left = 248
Top = 6
Width = 100
Height = 20
Height = 21
Hint = '0'
TabOrder = 5
OnKeyPress = orderNoKeyPress
@ -271,63 +271,70 @@ inherited frmTatClothStkListsel: TfrmTatClothStkListsel
Left = 409
Top = 6
Width = 100
Height = 20
Height = 21
Hint = '0'
TabOrder = 6
OnKeyPress = orderNoKeyPress
end
object STKID: TEdit
Tag = 2
Left = 711
Top = 32
Width = 100
Height = 20
Height = 21
Hint = '1'
TabOrder = 7
OnKeyPress = orderNoKeyPress
end
object C_Name: TEdit
Tag = 2
Left = 409
Top = 32
Width = 100
Height = 20
Height = 21
Hint = '0'
TabOrder = 8
OnKeyPress = orderNoKeyPress
end
object C_Color: TEdit
Tag = 2
Left = 553
Top = 6
Width = 100
Height = 20
Height = 21
Hint = '0'
TabOrder = 9
OnKeyPress = orderNoKeyPress
end
object jyg: TEdit
Tag = 2
Left = 711
Top = 6
Width = 100
Height = 20
Height = 21
Hint = '0'
TabOrder = 10
OnKeyPress = orderNoKeyPress
end
object C_Pattern: TEdit
Tag = 2
Left = 553
Top = 32
Width = 100
Height = 20
Height = 21
Hint = '0'
TabOrder = 11
OnKeyPress = orderNoKeyPress
end
object C_Code: TEdit
Tag = 2
Left = 248
Top = 32
Width = 100
Height = 20
Height = 21
Hint = '0'
TabOrder = 12
OnKeyPress = orderNoKeyPress
end
end
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,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_Basehelp, cxPC,
System.StrUtils, dxScrollbarAnnotations, U_BaseList;
System.StrUtils, dxScrollbarAnnotations, U_BaseList, System.ImageList,
Vcl.ImgList;
type
TfrmTatClothStkListsel = class(TfrmBasehelp)

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

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

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

@ -1,4 +1,4 @@
unit U_TatDRList;
unit U_TatDRList;
interface
@ -11,9 +11,9 @@ uses
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList,
dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList, Clipbrd,
dxDateRanges, dxScrollbarAnnotations, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP;
IdTCPConnection, IdTCPClient, IdHTTP, cxButtons;
type
TfrmTatDRList = class(TfrmBaseList)
@ -62,7 +62,7 @@ type
v1Column17: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
Tv1ToCoName: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
btnWC: TToolButton;
btnWCCX: TToolButton;
@ -82,7 +82,6 @@ type
TV2Column3: TcxGridDBColumn;
Label3: TLabel;
shdanwei: TEdit;
Tv1Column1: TcxGridDBColumn;
ToolButton2: TToolButton;
IdHTTP1: TIdHTTP;
ToolButton3: TToolButton;
@ -105,13 +104,24 @@ type
Tv1CoAddress: TcxGridDBColumn;
Label5: TLabel;
SSelJS: TLabel;
Tv1Column7: TcxGridDBColumn;
Tv1sselJS: TcxGridDBColumn;
PM_1: TPopupMenu;
N1: TMenuItem;
PM11: TMenuItem;
Tv1Telephone: TcxGridDBColumn;
cxGridPopupMenu2: TcxGridPopupMenu;
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;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -146,12 +156,24 @@ type
procedure v1Column4PropertiesChange(Sender: TObject);
procedure N1Click(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
fcxGridStyleFlag: Boolean;
procedure InitGrid();
procedure InitSubGrid();
procedure InitForm();
procedure SetStatus();
function DelData(): Boolean;
{ Private declarations }
public
FFInt: Integer;
@ -180,8 +202,13 @@ begin
ToolButton5.Enabled := False;
TbGoodsEdit.Enabled := False;
TBEdit.Enabled := False;
Tv1ToCoName.Visible := False;
Tv1CoName.Visible := False;
TBDel.Enabled := False;
if CANSHU1 = '查询' then
if CANSHU1 = '查询' then
begin
ToolButton1.Enabled := True;
TBPrint.Enabled := True;
@ -192,19 +219,26 @@ begin
TbGoodsEdit.Enabled := True;
TBAdd.Enabled := True;
TBEdit.Enabled := True;
Tv1ToCoName.Visible := True;
TV2PFPrice.Visible := False;
// TBDel.Enabled := True;
case cxTabControl1.TabIndex of
0:
begin
TBEdit.Enabled := True;
end;
1:
begin
btnWC.Enabled := true;
TBEdit.Enabled := True;
end;
end;
end;
if canshu1 = '管理' then
if canshu1 = '管理' then
begin
Tv1CoName.Visible := True;
case cxTabControl1.TabIndex of
0:
begin
@ -213,12 +247,16 @@ begin
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
@ -230,18 +268,64 @@ begin
end;
end;
end
else if canshu1 = '录入' then
begin
case cxTabControl1.TabIndex of
1:
else if canshu1 = '录入' then
begin
Tv1ToCoName.Visible := True;
case cxTabControl1.TabIndex of
0:
begin
TBEdit.Enabled := True;
end;
1:
begin
TBEdit.Enabled := True;
btnWC.Enabled := true;
// TBDel.Enabled := True;
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;
procedure TfrmTatDRList.FormDestroy(Sender: TObject);
@ -273,10 +357,8 @@ begin
Filtered := False;
Close;
sql.Clear;
Sql.Add(' select A.*,B.CoAddress ');
Sql.Add(', sselJS=(select isnull(sum(Piece), 0) from Tat_Cloth_DR_Sub X where X.DRMID=A.DRMID ) ');
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');
Sql.Add(' select A.* ');
sql.Add(' from V_TatDRList A where 1=1');
if CheckBox1.Checked then
begin
sql.Add(' and A.Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
@ -305,7 +387,7 @@ begin
end;
end;
if Trim(canshu1) = '录入' then
if Trim(canshu1) = '录入' then
begin
sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
end;
@ -327,8 +409,8 @@ end;
procedure TfrmTatDRList.InitForm();
begin
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理');
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理');
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 60;
@ -351,7 +433,7 @@ begin
Exit;
// if cxTabControl1.TabIndex <> 0 then
// Exit;
// if Trim(canshu1) <> '管理' then
// if Trim(canshu1) <> '管理' then
// begin
// with ADOQueryTemp do
@ -367,12 +449,12 @@ begin
//
// if ADOQueryTemp.ISEMPTY = True then
// begin
// Application.MessageBox('不能操作他人的数据!', '提示', 0);
// Application.MessageBox('不能操作他人的数据!', '提示', 0);
// Exit;
// end;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
// end;
@ -386,7 +468,7 @@ begin
// end;
// if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
// begin
// Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0);
// Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0);
// Exit;
// end;
try
@ -394,6 +476,8 @@ begin
with frmTatDRtInPut do
begin
PState := 1;
canshu1 := self.canshu1;
isCheck := cxTabControl1.TabIndex;
Tv1Volume.Options.Editing := False;
Tv1ApplicationReaon.Options.Editing := False;
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
@ -413,11 +497,11 @@ begin
Exit;
if (cxTabControl1.TabIndex <> 0) and (cxTabControl1.TabIndex <> 1) then
Exit;
// if canshu1 <> '管理' then
// if canshu1 <> '管理' then
// begin
// if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
// begin
// Application.MessageBox('不能操作他人的数据!', '提示', 0);
// Application.MessageBox('不能操作他人的数据!', '提示', 0);
// Exit;
// end;
// end;
@ -426,13 +510,13 @@ begin
begin
Close;
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) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
Application.MessageBox('出库数据不能删除!', '提示', 0);
Application.MessageBox('出库数据不能删除!', '提示', 0);
exit;
end;
@ -440,17 +524,17 @@ begin
begin
Close;
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) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
Application.MessageBox('待出库数据不能删除!', '提示', 0);
Application.MessageBox('待出库数据不能删除!', '提示', 0);
exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then
begin
@ -467,7 +551,7 @@ begin
frmTatDRtInPut := TfrmTatDRtInPut.Create(Application);
with frmTatDRtInPut do
begin
PState := 2; ///配货修改
PState := 2; ///配货修改
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
canshu1 := self.canshu1;
@ -497,6 +581,13 @@ begin
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;
begin
@ -537,7 +628,7 @@ begin
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('数据删除异常！', '提示', 0);
Application.MessageBox('数据删除异常！', '提示', 0);
end;
end;
@ -545,7 +636,14 @@ procedure TfrmTatDRList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
// SelExportData(Tv1, ADOQueryMain, '发货申请列表');
with Order_Main do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end;
procedure TfrmTatDRList.TBPrintClick(Sender: TObject);
@ -574,6 +672,16 @@ begin
InitGrid();
end;
procedure TfrmTatDRList.TbUndoVisibleClick(Sender: TObject);
begin
with Order_Main do
begin
Edit;
FieldByName('OverTime').Value := '';
post;
end;
end;
procedure TfrmTatDRList.TBAddClick(Sender: TObject);
var
maxno: string;
@ -583,6 +691,7 @@ begin
with frmTatDRtInPut do
begin
PState := 0;
isCheck := 0;
FDRMID := '';
canshu1 := self.canshu1;
if ShowModal = 1 then
@ -595,12 +704,54 @@ begin
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);
begin
inherited;
fcxGridStyleFlag := False;
canshu1 := self.fParameters1;
InitForm();
SetStatus();
end;
procedure TfrmTatDRList.CheckBox1Click(Sender: TObject);
@ -626,6 +777,7 @@ begin
ToolBar2.Visible := False;
TBSave.Visible := False;
ScrollBox1.Enabled := False;
canshu1 := self.canshu1;
Tv1.OptionsSelection.CellSelect := False;
if ShowModal = 1 then
begin
@ -665,6 +817,12 @@ begin
exit;
if cxTabControl1.TabIndex <> 0 then
exit;
if Order_Main.Locate('ssel', True, []) = false then
begin
Application.MessageBox('请先选择数据！', '提示信息', MB_OK);
exit;
end;
try
with Order_Main do
begin
@ -691,9 +849,9 @@ begin
InitGrid();
InitSubGrid();
application.MessageBox('取消成功！', '提示信息');
application.MessageBox('取消成功！', '提示信息');
except
application.MessageBox('取消失败！', '提示信息', 0);
application.MessageBox('取消失败！', '提示信息', 0);
end;
end;
@ -705,10 +863,10 @@ begin
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do
begin
if Trim(canshu1) <> '查询' then
if Trim(canshu1) <> '查询' then
FEditAuthority := True;
fkeyNO := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
fType := '发货申请';
fType := '发货申请';
if ShowModal = 1 then
begin
@ -726,6 +884,12 @@ begin
exit;
if cxTabControl1.TabIndex <> 3 then
exit;
if Order_Main.Locate('ssel', True, []) = false then
begin
Application.MessageBox('请先选择数据！', '提示信息', MB_OK);
exit;
end;
try
with Order_Main do
begin
@ -752,9 +916,9 @@ begin
InitGrid();
InitSubGrid();
application.MessageBox('撤销取消成功！', '提示信息');
application.MessageBox('撤销取消成功！', '提示信息');
except
application.MessageBox('撤销取消失败！', '提示信息', 0);
application.MessageBox('撤销取消失败！', '提示信息', 0);
end;
end;
@ -773,6 +937,13 @@ begin
exit;
if cxTabControl1.TabIndex <> 0 then
exit;
if Order_Main.Locate('ssel', True, []) = false then
begin
Application.MessageBox('请先选择数据！', '提示信息', MB_OK);
exit;
end;
try
with Order_Main do
begin
@ -801,9 +972,9 @@ begin
InitGrid();
InitSubGrid();
application.MessageBox('审核成功！', '提示信息');
application.MessageBox('审核成功！', '提示信息');
except
application.MessageBox('审核失败！', '提示信息', 0);
application.MessageBox('审核失败！', '提示信息', 0);
end;
end;
@ -839,6 +1010,11 @@ begin
SSelJS.Caption := CurrToStr(msumJS);
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);
begin
SelOKNo(Order_Main, false);
@ -851,6 +1027,11 @@ begin
exit;
if cxTabControl1.TabIndex <> 1 then
exit;
if Order_Main.Locate('ssel', True, []) = false then
begin
Application.MessageBox('请先选择数据！', '提示信息', MB_OK);
exit;
end;
try
with Order_Main do
begin
@ -875,9 +1056,9 @@ begin
EnableControls;
end;
InitGrid();
application.MessageBox('撤销成功！', '提示信息');
application.MessageBox('撤销成功！', '提示信息');
except
application.MessageBox('撤销失败！', '提示信息', 0);
application.MessageBox('撤销失败！', '提示信息', 0);
end;
end;
@ -891,6 +1072,12 @@ procedure TfrmTatDRList.btnWCCXClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if Order_Main.Locate('ssel', True, []) = false then
begin
Application.MessageBox('请先选择数据！', '提示信息', MB_OK);
exit;
end;
try
with Order_Main do
begin
@ -909,7 +1096,7 @@ begin
end;
if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
begin
Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
exit;
end;
@ -929,16 +1116,16 @@ begin
end;
InitGrid();
InitSubGrid();
application.MessageBox('操作成功！', '提示信息');
application.MessageBox('操作成功！', '提示信息');
except
application.MessageBox('操作失败！', '提示信息', 0);
application.MessageBox('操作失败！', '提示信息', 0);
end;
end;
procedure TfrmTatDRList.ToolButton6Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理');
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理');
end;
procedure TfrmTatDRList.ToolButton7Click(Sender: TObject);
@ -957,18 +1144,18 @@ begin
sql.add('where IsStocking=''1''');
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('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 ');
sql.Add(' ciid IN (SELECT STKID FROM Tat_Cloth_IO F ');
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('and ioflag=''待出库''');
sql.add('and ioflag=''待出库''');
execsql;
end;
with ADOQueryCmd do
@ -986,18 +1173,53 @@ begin
end;
InitGrid();
InitSubGrid();
application.MessageBox('操作成功！', '提示信息');
application.MessageBox('操作成功！', '提示信息');
except
application.MessageBox('操作失败！', '提示信息', 0);
application.MessageBox('操作失败！', '提示信息', 0);
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);
var
str: string;
begin
if Order_Main.IsEmpty then
exit;
if Order_Main.Locate('ssel', True, []) = false then
begin
Application.MessageBox('请先选择数据！', '提示信息', MB_OK);
exit;
end;
try
with Order_Main do
begin
@ -1016,14 +1238,21 @@ begin
end;
if ADOQueryTemp.FieldByName('TT').AsInteger = 0 then
begin
application.MessageBox('发货数量为0，不能完成！', '提示信息');
application.MessageBox('发货数量为0，不能完成！', '提示信息');
EnableControls;
exit;
end;
if ADOQueryTemp.FieldByName('TT').AsInteger < ADOQueryTemp.FieldByName('T1').AsInteger then
begin
if InputQuery('输入备注', '备注', str) then
if InputQuery('输入备注', '备注', str) then
begin
if Trim(str) = '' then
begin
ShowMessage('备注不能为空！');
Exit; // 或者使用 Exit; 来退出当前过程
end;
with ADOQueryCmd do
begin
Close;
@ -1062,9 +1291,30 @@ begin
end;
InitGrid();
InitSubGrid();
application.MessageBox('操作成功！', '提示信息');
application.MessageBox('操作成功！', '提示信息');
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;
@ -1108,26 +1358,88 @@ begin
tv1.Controller.EditingController.ShowEdit();
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);
begin
InitSubGrid();
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);
var
mDRMIDList: string;
TotalPiece: Variant;
mDRMID: string; //定位作用
mDRMID: string; //定位作用
begin
// mDRMIDList := '';
// 保存当前记录的 BCIID
// 保存当前记录的 BCIID
// if not Order_Main.IsEmpty then
// mDRMID := Trim(Order_Main.FieldByName('DRMID').AsString)
// else
// mDRMID := '';
//
// try
// // 确保数据集状态正常
// // 确保数据集状态正常
// Order_Main.DisableControls;
// try
// Order_Main.First;
@ -1146,7 +1458,7 @@ begin
// Order_Main.EnableControls;
// end;
//
// // 如果没有选择任何记录
// // 如果没有选择任何记录
// if mDRMIDList = '' then
// begin
//
@ -1156,7 +1468,7 @@ begin
// Exit;
// end;
//
// // 执行查询
// // 执行查询
// with ADOQueryCmd do
// begin
// Close;
@ -1164,16 +1476,16 @@ begin
// SQL.Add('select isnull(sum(Piece), 0) as sselJS from Tat_Cloth_DR_Sub');
// SQL.Add('where DRMID in (' + mDRMIDList + ')');
//
// // 调试时可以显示SQL语句
// // 调试时可以显示SQL语句
//// ShowMessage('SQL: ' + SQL.Text);
//
// Open;
//
// // 处理结果（更安全的方式）
// // 处理结果（更安全的方式）
// if not IsEmpty then
// begin
// TotalPiece := FieldByName('sselJS').Value;
// // 处理NULL值和空值
// // 处理NULL值和空值
// if VarIsNull(TotalPiece) or VarIsEmpty(TotalPiece) then
// sselJS.Caption := '0'
// else
@ -1186,7 +1498,7 @@ begin
// end;
//
//
// // 最后尝试定位回原记录
// // 最后尝试定位回原记录
// if mDRMID <> '' then
// Order_Main.Locate('DRMID', mDRMID, []);
//// sselJS.Text := '0';
@ -1194,9 +1506,9 @@ begin
// except
// on E: Exception do
// begin
// // 记录错误信息
// // 记录错误信息
// sselJS.Caption := '0';
// ShowMessage('查询失败: ' + E.Message + #13#10 + 'SQL语句: ' + ADOQueryCmd.SQL.Text);
// ShowMessage('查询失败: ' + E.Message + #13#10 + 'SQL语句: ' + ADOQueryCmd.SQL.Text);
// end;
// end;
@ -1204,7 +1516,7 @@ begin
try
mDRMID := Trim(Order_Main.FieldByName('DRMID').AsString);
// 确保数据集状态正常
// 确保数据集状态正常
Order_Main.DisableControls;
// with ADOQueryCmd do
// begin
@ -1215,7 +1527,7 @@ begin
// Open;
// end;
// 如果没有选择任何记录
// 如果没有选择任何记录
if Order_Main.IsEmpty then
exit;
@ -1232,9 +1544,9 @@ begin
except
on E: Exception do
begin
// 记录错误信息
// 记录错误信息
sselJS.Caption := '0';
ShowMessage('查询失败: ' + E.Message + #13#10 + 'SQL语句: ' + ADOQueryCmd.SQL.Text);
ShowMessage('查询失败: ' + E.Message + #13#10 + 'SQL语句: ' + ADOQueryCmd.SQL.Text);
end;
end;
end;

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

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

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

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

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

Binary file not shown.