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

0526

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-05-26 10:27:37 +08:00
parent a33af2b46f
commit 95fa3bf810
58 changed files with 8232 additions and 685 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,26 +2,26 @@ inherited frmCompanySel: TfrmCompanySel
Left = 372 Left = 372
Top = 106 Top = 106
Caption = #21333#20301#21517#31216#36873#25321 Caption = #21333#20301#21517#31216#36873#25321
ClientHeight = 558 ClientHeight = 960
ClientWidth = 893 ClientWidth = 1407
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 909 ExplicitWidth = 1423
ExplicitHeight = 597 ExplicitHeight = 999
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object cxGrid1: TcxGrid [0] object cxGrid1: TcxGrid [0]
Left = 0 Left = 0
Top = 82 Top = 82
Width = 893 Width = 1407
Height = 476 Height = 878
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitTop = 76 ExplicitTop = 88
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
OnDblClick = TV1DblClick OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -83,7 +83,7 @@ inherited frmCompanySel: TfrmCompanySel
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 893 Width = 1407
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -101,6 +101,7 @@ inherited frmCompanySel: TfrmCompanySel
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
ExplicitWidth = 893
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -129,12 +130,13 @@ inherited frmCompanySel: TfrmCompanySel
object Panel1: TPanel [2] object Panel1: TPanel [2]
Left = 0 Left = 0
Top = 38 Top = 38
Width = 893 Width = 1407
Height = 44 Height = 44
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 2 TabOrder = 2
ExplicitWidth = 893
object Label1: TLabel object Label1: TLabel
Left = 18 Left = 18
Top = 17 Top = 17

5
A00通用窗体/U_UserSel.dfm
View File

@ -120,6 +120,7 @@ inherited frmUserSel: TfrmUserSel
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -136,6 +137,7 @@ inherited frmUserSel: TfrmUserSel
object VC_SSel: TcxGridDBColumn object VC_SSel: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -144,6 +146,7 @@ inherited frmUserSel: TfrmUserSel
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'UserID' DataBinding.FieldName = 'UserID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
@ -151,6 +154,7 @@ inherited frmUserSel: TfrmUserSel
object v2Column2: TcxGridDBColumn object v2Column2: TcxGridDBColumn
Caption = #21517#31216 Caption = #21517#31216
DataBinding.FieldName = 'UserName' DataBinding.FieldName = 'UserName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 171 Width = 171
@ -158,6 +162,7 @@ inherited frmUserSel: TfrmUserSel
object v2Column3: TcxGridDBColumn object v2Column3: TcxGridDBColumn
Caption = #37096#38376 Caption = #37096#38376
DataBinding.FieldName = 'Udept' DataBinding.FieldName = 'Udept'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 71 Width = 71

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

@ -14,7 +14,7 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDBLookupComboBox, ComObj, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDBLookupComboBox, ComObj, cxLookAndFeels, cxLookAndFeelPainters,
dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, U_BaseHelp, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, U_BaseHelp,
dxBarBuiltInMenu, System.ImageList, Vcl.ImgList; dxBarBuiltInMenu, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations;
type type
FdDy = record FdDy = record

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

@ -1,31 +1,59 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.693,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.693,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.pas=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.pas=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.311,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.311,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.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.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.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.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.dfm=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.dfm=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.368,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.368,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <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="..\..\D10szXIANGYING"/> <File Path="..\..\D10szXIANGYING"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>

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

Binary file not shown.

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

@ -3,7 +3,7 @@ object frmCustInput: TfrmCustInput
Top = 149 Top = 149
Caption = #23458#25143#36164#26009#24405#20837 Caption = #23458#25143#36164#26009#24405#20837
ClientHeight = 643 ClientHeight = 643
ClientWidth = 922 ClientWidth = 916
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -21,7 +21,7 @@ object frmCustInput: TfrmCustInput
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 922 Width = 916
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -54,7 +54,7 @@ object frmCustInput: TfrmCustInput
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 38 Top = 38
Width = 922 Width = 916
Height = 261 Height = 261
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -241,8 +241,8 @@ object frmCustInput: TfrmCustInput
end end
object CoCode: TEdit object CoCode: TEdit
Tag = 2 Tag = 2
Left = 71 Left = 70
Top = 31 Top = 30
Width = 140 Width = 140
Height = 20 Height = 20
TabOrder = 0 TabOrder = 0
@ -314,6 +314,7 @@ object frmCustInput: TfrmCustInput
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
ReadOnly = True
TabOrder = 8 TabOrder = 8
OnBtnUpClick = SaleserBtnUpClick OnBtnUpClick = SaleserBtnUpClick
OnBtnDnClick = cocountryBtnDnClick OnBtnDnClick = cocountryBtnDnClick
@ -324,7 +325,7 @@ object frmCustInput: TfrmCustInput
Top = 224 Top = 224
Width = 140 Width = 140
Height = 20 Height = 20
Hint = 'khdept/'#37096#38376 Hint = 'dept/'#37096#38376
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -332,6 +333,7 @@ object frmCustInput: TfrmCustInput
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 9 TabOrder = 9
OnBtnUpClick = deptBtnUpClick
OnBtnDnClick = cocountryBtnDnClick OnBtnDnClick = cocountryBtnDnClick
end end
object CoBusinessType: TComboBox object CoBusinessType: TComboBox
@ -349,7 +351,7 @@ object frmCustInput: TfrmCustInput
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 299 Top = 299
Width = 922 Width = 916
Height = 344 Height = 344
Align = alClient Align = alClient
Caption = 'Panel1' Caption = 'Panel1'
@ -357,7 +359,7 @@ object frmCustInput: TfrmCustInput
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 920 Width = 914
Height = 342 Height = 342
Align = alClient Align = alClient
Caption = 'Panel1' Caption = 'Panel1'
@ -366,7 +368,7 @@ object frmCustInput: TfrmCustInput
Tag = 1 Tag = 1
Left = 1 Left = 1
Top = 1 Top = 1
Width = 918 Width = 912
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -403,17 +405,78 @@ object frmCustInput: TfrmCustInput
ImageIndex = 6 ImageIndex = 6
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object ToolButton1: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #22320#22336#22686#34892
ImageIndex = 2
OnClick = ToolButton1Click
end
object ToolButton4: TToolButton
Left = 332
Top = 0
AutoSize = True
Caption = #22320#22336#21024#34892
ImageIndex = 6
OnClick = ToolButton4Click
end
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 513
Top = 39 Top = 39
Width = 918 Width = 400
Height = 302 Height = 302
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
TabOrder = 1 TabOrder = 1
ExplicitLeft = 0 ExplicitLeft = 519
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
Styles.Footer = DataLink_Company.Default
Styles.Header = DataLink_Company.Default
object TV2KHAddress: TcxGridDBColumn
Caption = #22320#22336
DataBinding.FieldName = 'KHAddress'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 391
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV2
end
end
object cxGrid1: TcxGrid
Left = 1
Top = 39
Width = 512
Height = 302
Align = alLeft
BorderStyle = cxcbsNone
TabOrder = 2
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
@ -438,7 +501,7 @@ object frmCustInput: TfrmCustInput
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Footer = DataLink_Company.Default Styles.Footer = DataLink_Company.Default
Styles.Header = DataLink_Company.Default Styles.Header = DataLink_Company.Default
object cxGridDBColumn2: TcxGridDBColumn object cxGridDBColumn1: TcxGridDBColumn
Caption = #40664#35748 Caption = #40664#35748
DataBinding.FieldName = 'IsDefault' DataBinding.FieldName = 'IsDefault'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -447,7 +510,7 @@ object frmCustInput: TfrmCustInput
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
end end
object cxGridDBColumn3: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #32852#31995#20154 Caption = #32852#31995#20154
DataBinding.FieldName = 'Contacts' DataBinding.FieldName = 'Contacts'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -456,14 +519,14 @@ object frmCustInput: TfrmCustInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 77 Width = 77
end end
object cxGridDBColumn5: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
Caption = #32844#20301 Caption = #32844#20301
DataBinding.FieldName = 'position' DataBinding.FieldName = 'position'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object cxGridDBColumn6: TcxGridDBColumn object cxGridDBColumn9: TcxGridDBColumn
Caption = #32852#31995#30005#35805 Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'Telephone' DataBinding.FieldName = 'Telephone'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -472,13 +535,13 @@ object frmCustInput: TfrmCustInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 86 Width = 86
end end
object cxGridDBColumn8: TcxGridDBColumn object cxGridDBColumn10: TcxGridDBColumn
DataBinding.FieldName = 'EMAIL' DataBinding.FieldName = 'EMAIL'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object TV2Column2: TcxGridDBColumn object cxGridDBColumn11: TcxGridDBColumn
Caption = #24494#20449#21495 Caption = #24494#20449#21495
DataBinding.FieldName = 'WeChat' DataBinding.FieldName = 'WeChat'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -486,8 +549,8 @@ object frmCustInput: TfrmCustInput
Width = 66 Width = 66
end end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV2 GridView = TV1
end end
end end
end end
@ -513,6 +576,7 @@ object frmCustInput: TfrmCustInput
Top = 121 Top = 121
end end
object cxGridPopupMenu2: TcxGridPopupMenu object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <> PopupMenus = <>
Left = 294 Left = 294
Top = 502 Top = 502
@ -528,4 +592,15 @@ object frmCustInput: TfrmCustInput
Left = 464 Left = 464
Top = 511 Top = 511
end end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 545
Top = 436
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 633
Top = 436
end
end end

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

@ -47,15 +47,10 @@ type
ToolButton7: TToolButton; ToolButton7: TToolButton;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
TV2: TcxGridDBTableView; TV2: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel; cxGridLevel2: TcxGridLevel;
Label10: TLabel; Label10: TLabel;
CoLevel: TComboBox; CoLevel: TComboBox;
TV2Column2: TcxGridDBColumn; TV2KHAddress: TcxGridDBColumn;
cocountry: TBtnEditC; cocountry: TBtnEditC;
Label3: TLabel; Label3: TLabel;
Label5: TLabel; Label5: TLabel;
@ -65,6 +60,19 @@ type
Label11: TLabel; Label11: TLabel;
dept: TBtnEditC; dept: TBtnEditC;
CoBusinessType: TComboBox; CoBusinessType: TComboBox;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
ToolButton1: TToolButton;
ToolButton4: TToolButton;
CDS_1: TClientDataSet;
DS_1: TDataSource;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -78,10 +86,14 @@ type
// procedure cocountryBtnUpClick(Sender: TObject); // procedure cocountryBtnUpClick(Sender: TObject);
procedure ParentCoNameBtnUpClick(Sender: TObject); procedure ParentCoNameBtnUpClick(Sender: TObject);
procedure SaleserBtnUpClick(Sender: TObject); procedure SaleserBtnUpClick(Sender: TObject);
procedure deptBtnUpClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
function SaveData(): Boolean; function SaveData(): Boolean;
procedure KHEdit();
public public
fkhType: string; fkhType: string;
{ Public declarations } { Public declarations }
@ -125,6 +137,17 @@ begin
SCreateCDS(ADOQueryMain, CDS_LXR); SCreateCDS(ADOQueryMain, CDS_LXR);
SInitCDSData(ADOQueryMain, CDS_LXR); SInitCDSData(ADOQueryMain, CDS_LXR);
with ADOQueryMain do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from KH_Address where COID=' + quotedstr(Trim(FCOID)));
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
@ -183,6 +206,29 @@ end;
// end; // end;
//end; //end;
procedure TfrmCustInput.deptBtnUpClick(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); procedure TfrmCustInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
@ -228,6 +274,11 @@ begin
begin begin
ScrollBox1.Enabled := False; ScrollBox1.Enabled := False;
end; end;
if FCOID <> '' then
begin
KHEdit();
end;
end; end;
procedure TfrmCustInput.TBRafreshClick(Sender: TObject); procedure TfrmCustInput.TBRafreshClick(Sender: TObject);
@ -253,9 +304,37 @@ begin
end; end;
end; end;
procedure TfrmCustInput.KHEdit();
begin
try
ADOQueryCmd.DisableControls;
with ADOQueryCmd do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from Tat_Cloth_DR_Main A inner join Tat_Cloth_IO B on A.DRMID=B.IONO ');
SQL.add(' where A.ToCOID=''' + Trim(FCOID) + '''');
sql.add(' and B.ioflag=''出库'' ');
Open;
end;
if not ADOQueryCmd.IsEmpty then
begin
CoCode.enabled := false;
CoName.enabled := false;
CoAbbrName.enabled := false;
CoBusinessType.enabled := false;
CoLevel.enabled := false;
end;
finally
ADOQueryCmd.EnableControls;
end;
end;
function TfrmCustInput.SaveData(): Boolean; function TfrmCustInput.SaveData(): Boolean;
var var
MaxId, MaxSubId, FCoCode, FCCID: string; MaxId, MaxSubId, FCoCode, FCCID, FID, MaxDZId: string;
begin begin
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
@ -406,7 +485,7 @@ begin
end; end;
FieldByName('CCID').Value := Trim(MaxSubId); FieldByName('CCID').Value := Trim(MaxSubId);
FieldByName('COID').Value := Trim(MaxId); FieldByName('COID').Value := Trim(MaxId);
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_LXR, 'BS_Company_contact', 0); RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_LXR, 'BS_Company_contact', 0);
Post; Post;
end; end;
with CDS_LXR do with CDS_LXR do
@ -420,6 +499,71 @@ begin
end; end;
end; end;
////////////// 联系人 /////////////////// ////////////// 联系人 ///////////////////
////////////// 地址 ///////////////////
if not CDS_1.IsEmpty then
begin
with CDS_1 do
begin
CDS_1.First;
while not Eof do
begin
FID := Trim(CDS_1.fieldbyname('ID').AsString);
if Trim(FID) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxDZId, 'DZ', 'BS_Company_contact', 4, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('地址最大ID失败!', '提示', 0);
Exit;
end;
end
else
begin
MaxDZId := trim(FID);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from KH_Address where ID=' + quotedstr(Trim(MaxDZId)));
Open;
end;
with ADOQueryCmd do
begin
if Trim(FID) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('ID').Value := Trim(MaxDZId);
FieldByName('CoCode').Value := Trim(CoCode.Text);
FieldByName('COID').Value := Trim(MaxId);
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_1, 'KH_Address', 0);
Post;
end;
// with CDS_1 do
// begin
// Edit;
// FieldByName('ID').Value := Trim(MaxDZId);
// Post;
// end;
CDS_1.Next;
end;
end;
end;
////////////// 地址 ///////////////////
//////////////// 更新名称 //////////////////////// //////////////// 更新名称 ////////////////////////
// with ADOQueryCmd do // with ADOQueryCmd do
// begin // begin
@ -441,7 +585,6 @@ end;
procedure TfrmCustInput.ToolButton3Click(Sender: TObject); procedure TfrmCustInput.ToolButton3Click(Sender: TObject);
begin begin
if Trim(CoAbbrName.Text) = '' then if Trim(CoAbbrName.Text) = '' then
begin begin
Application.MessageBox('简称不能为空!', '提示', 0); Application.MessageBox('简称不能为空!', '提示', 0);
@ -452,6 +595,11 @@ begin
Application.MessageBox('名称不能为空!', '提示', 0); Application.MessageBox('名称不能为空!', '提示', 0);
Exit; Exit;
end; end;
if Trim(Saleser.Text) = '' then
begin
Application.MessageBox('业务员不能为空!', '提示', 0);
Exit;
end;
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('保存成功!', '提示', 0); Application.MessageBox('保存成功!', '提示', 0);
@ -459,6 +607,26 @@ begin
end; end;
end; end;
procedure TfrmCustInput.ToolButton4Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if Trim(CDS_1.fieldbyname('ID').AsString) <> '' then
begin
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete from KH_Address where ID=''' + Trim(CDS_1.fieldbyname('ID').AsString) + '''');
ExecSQL;
end;
end;
CDS_1.Delete;
end;
procedure TfrmCustInput.ToolButton6Click(Sender: TObject); procedure TfrmCustInput.ToolButton6Click(Sender: TObject);
var var
maxno: string; maxno: string;
@ -520,6 +688,31 @@ begin
end; end;
procedure TfrmCustInput.ToolButton1Click(Sender: TObject);
var
maxno: string;
begin
if CoCode.text = '' then
begin
Application.MessageBox('提示信息', '客户编号不能为空', MB_OK);
Exit;
end;
if GetLSNo(ADOQueryCmd, maxno, 'DZ', 'KH_Address', 4, 1) = False then
begin
Application.MessageBox('地址最大ID失败!', '提示', 0);
Exit;
end;
with CDS_1 do
begin
Append;
fieldbyname('ID').Value := trim(maxno);
Post;
end;
end;
procedure TfrmCustInput.ToolButton2Click(Sender: TObject); procedure TfrmCustInput.ToolButton2Click(Sender: TObject);
var var
DwFlag: string; DwFlag: string;

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

@ -3,12 +3,11 @@ inherited frmCustomer: TfrmCustomer
Top = 169 Top = 169
Caption = #23458#25143#36164#26009#31649#29702 Caption = #23458#25143#36164#26009#31649#29702
ClientHeight = 611 ClientHeight = 611
ClientWidth = 1366 ClientWidth = 1345
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -515 ExplicitWidth = 1361
ExplicitWidth = 1382
ExplicitHeight = 650 ExplicitHeight = 650
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
@ -16,7 +15,7 @@ inherited frmCustomer: TfrmCustomer
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1366 Width = 1345
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -146,7 +145,7 @@ inherited frmCustomer: TfrmCustomer
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1366 Width = 1345
Height = 39 Height = 39
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -243,12 +242,10 @@ inherited frmCustomer: TfrmCustomer
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 99 Top = 99
Width = 1366 Width = 1345
Height = 309 Height = 309
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitLeft = 1
ExplicitTop = 94
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -398,7 +395,7 @@ inherited frmCustomer: TfrmCustomer
DataBinding.FieldName = 'dept' DataBinding.FieldName = 'dept'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 67 Width = 73
end end
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #19978#32423#21333#20301 Caption = #19978#32423#21333#20301
@ -424,7 +421,7 @@ inherited frmCustomer: TfrmCustomer
object Panel2: TPanel [3] object Panel2: TPanel [3]
Left = 0 Left = 0
Top = 408 Top = 408
Width = 1366 Width = 1345
Height = 203 Height = 203
Align = alBottom Align = alBottom
Caption = 'Panel2' Caption = 'Panel2'
@ -432,12 +429,10 @@ inherited frmCustomer: TfrmCustomer
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1364 Width = 759
Height = 201 Height = 201
Align = alClient Align = alLeft
TabOrder = 0 TabOrder = 0
ExplicitLeft = 2
ExplicitTop = 6
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -519,11 +514,58 @@ inherited frmCustomer: TfrmCustomer
GridView = Tv2 GridView = Tv2
end end
end end
object cxGrid3: TcxGrid
Left = 760
Top = 1
Width = 584
Height = 201
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 1
ExplicitLeft = 761
ExplicitTop = 6
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
Styles.Footer = DataLink_Company.Default
Styles.Header = DataLink_Company.Default
object TV2KHAddress: TcxGridDBColumn
Caption = #22320#22336
DataBinding.FieldName = 'KHAddress'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 578
end
end
object cxGridLevel3: TcxGridLevel
GridView = TV3
end
end
end end
object cxTabControl1: TcxTabControl [4] object cxTabControl1: TcxTabControl [4]
Left = 0 Left = 0
Top = 77 Top = 77
Width = 1366 Width = 1345
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 4 TabOrder = 4
@ -536,7 +578,7 @@ inherited frmCustomer: TfrmCustomer
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1366 ClientRectRight = 1345
ClientRectTop = 19 ClientRectTop = 19
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
@ -615,4 +657,15 @@ inherited frmCustomer: TfrmCustomer
Left = 286 Left = 286
Top = 273 Top = 273
end end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 904
Top = 464
end
object DS_3: TDataSource
DataSet = CDS_3
Left = 1064
Top = 472
end
end end

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

@ -89,6 +89,12 @@ type
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Contacts: TcxGridDBColumn; Tv1Contacts: TcxGridDBColumn;
Tv1Telephone: TcxGridDBColumn; Tv1Telephone: TcxGridDBColumn;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
TV2KHAddress: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
CDS_3: TClientDataSet;
DS_3: TDataSource;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -276,6 +282,18 @@ begin
Application.MessageBox('请选择数据!', '提示', 0); Application.MessageBox('请选择数据!', '提示', 0);
Exit; Exit;
end; end;
with ADOQueryCmd do
begin
SQL.Clear;
sql.Add('select * from Tat_Cloth_DR_Main where ToCoID=' + quotedstr(trim(CDS_1.fieldbyname('COID').AsString)));
open;
end;
if not ADOQueryCmd.IsEmpty then
begin
Application.MessageBox('已有申请单不能删除', '提示信息！', MB_OK);
Exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit; Exit;
@ -302,6 +320,7 @@ begin
FAuthority := self.fParameters1; FAuthority := self.fParameters1;
ReadCxGrid(trim(self.caption) + 'Tv1', Tv1, '客户管理'); ReadCxGrid(trim(self.caption) + 'Tv1', Tv1, '客户管理');
ReadCxGrid(trim(self.caption) + 'Tv2', Tv2, '客户管理'); ReadCxGrid(trim(self.caption) + 'Tv2', Tv2, '客户管理');
ReadCxGrid(trim(self.caption) + 'Tv3', Tv3, '客户管理');
SetStatus(); SetStatus();
InitGrid(); InitGrid();
end; end;
@ -315,6 +334,7 @@ procedure TfrmCustomer.ToolButton1Click(Sender: TObject);
begin begin
WriteCxGrid(trim(self.caption) + 'Tv1', Tv1, '客户管理'); WriteCxGrid(trim(self.caption) + 'Tv1', Tv1, '客户管理');
WriteCxGrid(trim(self.caption) + 'Tv2', Tv2, '客户管理'); WriteCxGrid(trim(self.caption) + 'Tv2', Tv2, '客户管理');
WriteCxGrid(trim(self.caption) + 'Tv3', Tv3, '客户管理');
end; end;
procedure TfrmCustomer.ToolButton2Click(Sender: TObject); procedure TfrmCustomer.ToolButton2Click(Sender: TObject);
@ -604,6 +624,19 @@ begin
SCreateCDS(ADOQueryTemp, CDS_2); SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2); SInitCDSData(ADOQueryTemp, CDS_2);
with ADOQueryTemp do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from KH_Address where COID=' + quotedstr(Trim(CDS_1.FieldByName('COID').AsString)));
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_3);
SInitCDSData(ADOQueryTemp, CDS_3);
end; end;
procedure TfrmCustomer.btnSaleserClick(Sender: TObject); procedure TfrmCustomer.btnSaleserClick(Sender: TObject);

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

Binary file not shown.

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

@ -9,44 +9,44 @@
<Transaction>1899-12-30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.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.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.060,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatInspSHHZ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</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.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<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.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm</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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>2025-11-24 13:58:34.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>2025-11-24 15:19:14.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas</Transaction>
<Transaction>2025-12-19 14:11:54.000.060,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatInspSHHZ.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10szXIANGYING"/> <File Path="..\..\D10szXIANGYING"/>

52
E03梭织坯布检验/TatInspLogin.dproj.local
View File

@ -1,24 +1,52 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="DbPanel"/> <File Path="android-support-v4.dex.jar"/>
<File Path="DbPanel\MovePanel.pas"/> <File Path="cloud-messaging.dex.jar"/>
<File Path="delphitwain"/> <File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
<File Path="delphitwain\DelphiTwain.pas"/> <File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
<File Path="delphitwain\DelphiTwainUtils.pas"/> <File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
<File Path="delphitwain\Twain.pas"/> <File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
<File Path="AES.pas"/> <File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
<File Path="ElAES.pas"/> <File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
<File Path="JDAESExtend.pas"/> <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="logon.pas"/> <File Path="logon.pas"/>
<File Path="logon.dfm"/> <File Path="logon.dfm"/>
<File Path="spmain.pas"/> <File Path="spmain.pas"/>
<File Path="spmain.dfm"/> <File Path="spmain.dfm"/>
<File Path="U_iniParam.pas"/> <File Path="delphitwain"/>
<File Path="U_Link.pas"/> <File Path="delphitwain\DelphiTwain.pas"/>
<File Path="U_Link.dfm"/> <File Path="delphitwain\DelphiTwainUtils.pas"/>
<File Path="delphitwain\Twain.pas"/>
<File Path="DbPanel"/>
<File Path="DbPanel\MovePanel.pas"/>
<File Path="AES.pas"/>
<File Path="ElAES.pas"/>
<File Path="U_upPassword.pas"/> <File Path="U_upPassword.pas"/>
<File Path="U_upPassword.dfm"/> <File Path="U_upPassword.dfm"/>
<File Path="U_Link.pas"/>
<File Path="U_Link.dfm"/>
<File Path="U_iniParam.pas"/>
<File Path="JDAESExtend.pas"/>
</ProjectSortOrder> </ProjectSortOrder>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj</Transaction>

BIN
E03梭织坯布检验/TatInspLogin.res
View File

Binary file not shown.

1
E03梭织坯布检验/U_DataLink.dfm
View File

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

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

@ -6,7 +6,7 @@ uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, U_BaseDataLink, dxCore, dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, U_BaseDataLink, dxCore,
cxLocalization, cxImageList, cxGraphics, dxSkinsForm; cxLocalization, cxImageList, cxGraphics, dxSkinsForm, dxSkinWXI;
type type
TMyThread = class(TThread) TMyThread = class(TThread)

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

@ -77,7 +77,6 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 24
object Label2: TLabel object Label2: TLabel
Left = 70 Left = 70
Top = 36 Top = 36
@ -271,9 +270,6 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitTop = 103
ExplicitWidth = 1540
ExplicitHeight = 503
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -698,7 +694,6 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
ParentFont = False ParentFont = False
PopupMenu = PM_2 PopupMenu = PM_2
TabOrder = 0 TabOrder = 0
ExplicitLeft = -3
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

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

@ -668,7 +668,8 @@ procedure TfrmTatClothInspHZList.FormShow(Sender: TObject);
begin begin
inherited; inherited;
// ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '检验信息汇总'); ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '检验信息汇总');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '检验信息汇总');
CurrentPage := 1; CurrentPage := 1;
RecordsNumber := 500; RecordsNumber := 500;
canshu1 := Trim(Self.fParameters1); canshu1 := Trim(Self.fParameters1);
@ -1096,6 +1097,7 @@ end;
procedure TfrmTatClothInspHZList.ToolButton4Click(Sender: TObject); procedure TfrmTatClothInspHZList.ToolButton4Click(Sender: TObject);
begin begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '检验信息汇总'); WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '检验信息汇总');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '检验信息汇总');
end; end;
end. end.

559
E03梭织坯布检验/U_TatInspSHHZ.dfm
View File

@ -2,13 +2,15 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Left = 184 Left = 184
Top = 138 Top = 138
Caption = #25439#32791#27719#24635#21015#34920 Caption = #25439#32791#27719#24635#21015#34920
ClientHeight = 600 ClientHeight = 610
ClientWidth = 1540 ClientWidth = 1540
Position = poDesigned FormStyle = fsMDIChild
Position = poDefault
Visible = True Visible = True
WindowState = wsMaximized WindowState = wsMaximized
ExplicitLeft = 1
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 639 ExplicitHeight = 649
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -216,14 +218,15 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1540 Width = 1540
Height = 495 Height = 505
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitHeight = 495
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1538 Width = 1538
Height = 493 Height = 503
ActivePage = TabSheet1 ActivePage = TabSheet1
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -233,7 +236,7 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitLeft = 0 ExplicitLeft = 2
ExplicitTop = 6 ExplicitTop = 6
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = ' '#27719#24635' ' Caption = ' '#27719#24635' '
@ -241,7 +244,7 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1530 Width = 1530
Height = 457 Height = 467
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -252,8 +255,9 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 264 ExplicitLeft = 83
ExplicitTop = 200 ExplicitTop = -27
ExplicitHeight = 457
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -320,7 +324,7 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
end end
item item
Kind = skSum Kind = skSum
Column = Tv1SH_JT3 Column = Tv1SH_LC1
end end
item item
Kind = skSum Kind = skSum
@ -328,7 +332,6 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
end end
item item
Kind = skSum Kind = skSum
Column = Tv1SH_DZ5
end end
item item
Kind = skSum Kind = skSum
@ -403,11 +406,46 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
end end
item item
Kind = skSum Kind = skSum
Column = Tv1SH_YD20
end end
item item
Kind = skSum Kind = skSum
Column = Tv1SH_PD21 Column = Tv1SH_PD21
end
item
Kind = skSum
Column = Tv1SH_BK22
end
item
Kind = skSum
Column = Tv1SH_ZB1
end
item
Kind = skSum
Column = Tv1SH_ZZ2
end
item
Kind = skSum
Column = Tv1SH_JT1
end
item
Kind = skSum
Column = Tv1SH_DW1
end
item
Kind = skSum
Column = Tv1SH_YD1
end
item
Kind = skSum
Column = Tv1SH_QT1
end
item
Kind = skSum
Column = Tv1SH_MFBZ1
end
item
Kind = skSum
Column = Tv1SH_YB1
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -454,6 +492,13 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1SH_JT1: TcxGridDBColumn
Caption = #25509#22836
DataBinding.FieldName = 'SH_JT1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SH_TD1: TcxGridDBColumn object Tv1SH_TD1: TcxGridDBColumn
Caption = #35843#20992 Caption = #35843#20992
DataBinding.FieldName = 'SH_TD1' DataBinding.FieldName = 'SH_TD1'
@ -462,20 +507,26 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Options.Editing = False Options.Editing = False
Width = 74 Width = 74
end end
object Tv1SH_ZW2: TcxGridDBColumn object Tv1SH_ZB1: TcxGridDBColumn
Caption = #33039#27745 Caption = #33039#24067
DataBinding.FieldName = 'SH_ZW2' DataBinding.FieldName = 'SH_ZB1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SH_DJ6: TcxGridDBColumn
Caption = #26029#32463
DataBinding.FieldName = 'SH_DJ6'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1SH_JT3: TcxGridDBColumn object Tv1SH_YD1: TcxGridDBColumn
Caption = #25509#22836 Caption = #27833#28857
DataBinding.FieldName = 'SH_JT3' DataBinding.FieldName = 'SH_YD1'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1SH_LTY4: TcxGridDBColumn object Tv1SH_LTY4: TcxGridDBColumn
@ -486,17 +537,84 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1SH_DZ5: TcxGridDBColumn object Tv1SH_PD21: TcxGridDBColumn
Caption = #26723#23376 Caption = #30772#27934
DataBinding.FieldName = 'SH_DZ5' DataBinding.FieldName = 'SH_PD21'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1SH_DJ6: TcxGridDBColumn object Tv1SH_QT1: TcxGridDBColumn
Caption = #26029#32463 Caption = #20854#20182
DataBinding.FieldName = 'SH_DJ6' DataBinding.FieldName = 'SH_QT1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SH_DW1: TcxGridDBColumn
Caption = #26029#32428
DataBinding.FieldName = 'SH_DW1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
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_ZZ2: TcxGridDBColumn
Caption = #35126#30385
DataBinding.FieldName = 'SH_ZZ2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
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_DPB14: TcxGridDBColumn
Caption = #22823#30772#36793
DataBinding.FieldName = 'SH_DPB14'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SH_MFBZ1: TcxGridDBColumn
Caption = #38376#24133#19981#36275
DataBinding.FieldName = 'SH_MFBZ1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
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_YB1: TcxGridDBColumn
Caption = #26679#24067
DataBinding.FieldName = 'SH_YB1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SH_BB11: TcxGridDBColumn
Caption = #30333#26001
DataBinding.FieldName = 'SH_BB11'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -510,22 +628,29 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1SH_DS8: TcxGridDBColumn object Tv1SH_KZ17: TcxGridDBColumn
Caption = #26029#19997 Caption = #31354#32455
DataBinding.FieldName = 'SH_DS8' DataBinding.FieldName = 'SH_KZ17'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1SH_HB9: TcxGridDBColumn object Tv1SH_GJ15: TcxGridDBColumn
Caption = #40644#26001 Caption = #24178#27974
DataBinding.FieldName = 'SH_HB9' DataBinding.FieldName = 'SH_GJ15'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1SH_BK22: TcxGridDBColumn
Caption = #30333#22359
DataBinding.FieldName = 'SH_BK22'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SH_SCZ10: TcxGridDBColumn object Tv1SH_SCZ10: TcxGridDBColumn
Caption = #27515#34411#23376 Caption = #27515#34411#23376
DataBinding.FieldName = 'SH_SCZ10' DataBinding.FieldName = 'SH_SCZ10'
@ -534,9 +659,33 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1SH_BB11: TcxGridDBColumn object Tv1SH_LC1: TcxGridDBColumn
Caption = #30333#26001 Caption = #25289#38271
DataBinding.FieldName = 'SH_BB11' DataBinding.FieldName = 'SH_LC1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
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_XY19: TcxGridDBColumn
Caption = #32483#21360
DataBinding.FieldName = 'SH_XY19'
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 DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -558,70 +707,6 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end 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 end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -635,7 +720,7 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1530 Width = 1530
Height = 457 Height = 467
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -646,7 +731,7 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
ParentFont = False ParentFont = False
PopupMenu = PM_2 PopupMenu = PM_2
TabOrder = 0 TabOrder = 0
ExplicitLeft = 3 ExplicitHeight = 457
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -720,7 +805,6 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
end end
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn9
end end
item item
Kind = skSum Kind = skSum
@ -795,11 +879,55 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
end end
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn24
end end
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn25 Column = cxGridDBColumn25
end
item
Kind = skSum
Column = TV2SH_BK22
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = TV2SH_QT26
end
item
Kind = skSum
Column = TV2SH_DW1
end
item
Kind = skSum
Column = TV2SH_JT1
end
item
Kind = skSum
Column = TV2SH_ZB1
end
item
Kind = skSum
Column = TV2SH_ZZ2
end
item
Kind = skSum
Column = TV2SH_YD1
end
item
Kind = skSum
Column = TV2SH_MFBZ1
end
item
Kind = skSum
Column = TV2SH_YB1
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -853,6 +981,13 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object TV2SH_JT1: TcxGridDBColumn
Caption = #25509#22836
DataBinding.FieldName = 'SH_JT1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn5: TcxGridDBColumn object cxGridDBColumn5: TcxGridDBColumn
Caption = #35843#20992 Caption = #35843#20992
DataBinding.FieldName = 'SH_TD1' DataBinding.FieldName = 'SH_TD1'
@ -861,20 +996,26 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Options.Editing = False Options.Editing = False
Width = 74 Width = 74
end end
object cxGridDBColumn6: TcxGridDBColumn object TV2SH_ZB1: TcxGridDBColumn
Caption = #33039#27745 Caption = #33039#24067
DataBinding.FieldName = 'SH_ZW2' DataBinding.FieldName = 'SH_ZB1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #26029#32463
DataBinding.FieldName = 'SH_DJ6'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn7: TcxGridDBColumn object TV2SH_YD1: TcxGridDBColumn
Caption = #25509#22836 Caption = #27833#28857
DataBinding.FieldName = 'SH_JT3' DataBinding.FieldName = 'SH_YD1'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn8: TcxGridDBColumn object cxGridDBColumn8: TcxGridDBColumn
@ -885,17 +1026,84 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn9: TcxGridDBColumn object cxGridDBColumn25: TcxGridDBColumn
Caption = #26723#23376 Caption = #30772#27934
DataBinding.FieldName = 'SH_DZ5' DataBinding.FieldName = 'SH_PD21'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn10: TcxGridDBColumn object TV2SH_QT26: TcxGridDBColumn
Caption = #26029#32463 Caption = #20854#20182
DataBinding.FieldName = 'SH_DJ6' DataBinding.FieldName = 'SH_QT1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2SH_DW1: TcxGridDBColumn
Caption = #26029#32428
DataBinding.FieldName = 'SH_DW1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn13: TcxGridDBColumn
Caption = #40644#26001
DataBinding.FieldName = 'SH_HB9'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TV2SH_ZZ2: TcxGridDBColumn
Caption = #35126#30385
DataBinding.FieldName = 'SH_ZZ2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn20: TcxGridDBColumn
Caption = #27833#19997
DataBinding.FieldName = 'SH_YS16'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn18: TcxGridDBColumn
Caption = #22823#30772#36793
DataBinding.FieldName = 'SH_DPB14'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TV2SH_MFBZ1: TcxGridDBColumn
Caption = #38376#24133#19981#36275
DataBinding.FieldName = 'SH_MFBZ1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn22: TcxGridDBColumn
Caption = #33394#24046
DataBinding.FieldName = 'SH_SC18'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TV2SH_YB1: TcxGridDBColumn
Caption = #26679#24067
DataBinding.FieldName = 'SH_YB1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #30333#26001
DataBinding.FieldName = 'SH_BB11'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -909,22 +1117,29 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn12: TcxGridDBColumn object cxGridDBColumn21: TcxGridDBColumn
Caption = #26029#19997 Caption = #31354#32455
DataBinding.FieldName = 'SH_DS8' DataBinding.FieldName = 'SH_KZ17'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn13: TcxGridDBColumn object cxGridDBColumn19: TcxGridDBColumn
Caption = #40644#26001 Caption = #24178#27974
DataBinding.FieldName = 'SH_HB9' DataBinding.FieldName = 'SH_GJ15'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object TV2SH_BK22: TcxGridDBColumn
Caption = #30333#22359
DataBinding.FieldName = 'SH_BK22'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn14: TcxGridDBColumn object cxGridDBColumn14: TcxGridDBColumn
Caption = #27515#34411#23376 Caption = #27515#34411#23376
DataBinding.FieldName = 'SH_SCZ10' DataBinding.FieldName = 'SH_SCZ10'
@ -933,9 +1148,33 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn15: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
Caption = #30333#26001 Caption = #25289#38271
DataBinding.FieldName = 'SH_BB11' DataBinding.FieldName = 'SH_LC1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #33039#27745
DataBinding.FieldName = 'SH_ZW2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn23: TcxGridDBColumn
Caption = #32483#21360
DataBinding.FieldName = 'SH_XY19'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn12: TcxGridDBColumn
Caption = #26029#19997
DataBinding.FieldName = 'SH_DS8'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -957,70 +1196,6 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn18: TcxGridDBColumn
Caption = #22823#30772#36793
DataBinding.FieldName = 'SH_DPB14'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn19: TcxGridDBColumn
Caption = #24178#27974
DataBinding.FieldName = 'SH_GJ15'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn20: TcxGridDBColumn
Caption = #27833#19997
DataBinding.FieldName = 'SH_YS16'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn21: TcxGridDBColumn
Caption = #31354#32455
DataBinding.FieldName = 'SH_KZ17'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn22: TcxGridDBColumn
Caption = #33394#24046
DataBinding.FieldName = 'SH_SC18'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn23: TcxGridDBColumn
Caption = #32483#21360
DataBinding.FieldName = 'SH_XY19'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn24: TcxGridDBColumn
Caption = #27833#28857
DataBinding.FieldName = 'SH_YD20'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn25: TcxGridDBColumn
Caption = #30772#27934
DataBinding.FieldName = 'SH_PD21'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV2 GridView = TV2
@ -1068,15 +1243,15 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
PopupMenus = <> PopupMenus = <>
Left = 608 Left = 656
Top = 136 Top = 200
end end
object CDS_1: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
BeforeOpen = CDS_1BeforeOpen BeforeOpen = CDS_1BeforeOpen
Left = 552 Left = 608
Top = 140 Top = 204
end end
object PM_1: TPopupMenu object PM_1: TPopupMenu
Left = 368 Left = 368

38
E03梭织坯布检验/U_TatInspSHHZ.pas
View File

@ -13,7 +13,8 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC, System.StrUtils, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC, System.StrUtils,
dxScrollbarAnnotations, U_BaseList, System.ImageList, Vcl.ImgList, U_BaseInput; dxScrollbarAnnotations, U_BaseList, System.ImageList, Vcl.ImgList, U_BaseInput,
dxSkinWXI;
type type
TfrmTatInspSHHZ = class(TfrmBaseList) TfrmTatInspSHHZ = class(TfrmBaseList)
@ -62,9 +63,7 @@ type
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1SH_TD1: TcxGridDBColumn; Tv1SH_TD1: TcxGridDBColumn;
Tv1SH_ZW2: TcxGridDBColumn; Tv1SH_ZW2: TcxGridDBColumn;
Tv1SH_JT3: TcxGridDBColumn;
Tv1SH_LTY4: TcxGridDBColumn; Tv1SH_LTY4: TcxGridDBColumn;
Tv1SH_DZ5: TcxGridDBColumn;
Tv1SH_DJ6: TcxGridDBColumn; Tv1SH_DJ6: TcxGridDBColumn;
Tv1SH_HD7: TcxGridDBColumn; Tv1SH_HD7: TcxGridDBColumn;
Tv1SH_DS8: TcxGridDBColumn; Tv1SH_DS8: TcxGridDBColumn;
@ -79,8 +78,12 @@ type
Tv1SH_KZ17: TcxGridDBColumn; Tv1SH_KZ17: TcxGridDBColumn;
Tv1SH_SC18: TcxGridDBColumn; Tv1SH_SC18: TcxGridDBColumn;
Tv1SH_XY19: TcxGridDBColumn; Tv1SH_XY19: TcxGridDBColumn;
Tv1SH_YD20: TcxGridDBColumn; Tv1SH_LC1: TcxGridDBColumn;
Tv1SH_PD21: TcxGridDBColumn; Tv1SH_PD21: TcxGridDBColumn;
Tv1SH_QT1: TcxGridDBColumn;
Tv1SH_JT1: TcxGridDBColumn;
Tv1SH_MFBZ1: TcxGridDBColumn;
Tv1SH_YB1: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
N4: TMenuItem; N4: TMenuItem;
N5: TMenuItem; N5: TMenuItem;
@ -97,7 +100,6 @@ type
cxGridDBColumn6: TcxGridDBColumn; cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn; cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn; cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn; cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn; cxGridDBColumn12: TcxGridDBColumn;
@ -112,12 +114,26 @@ type
cxGridDBColumn21: TcxGridDBColumn; cxGridDBColumn21: TcxGridDBColumn;
cxGridDBColumn22: TcxGridDBColumn; cxGridDBColumn22: TcxGridDBColumn;
cxGridDBColumn23: TcxGridDBColumn; cxGridDBColumn23: TcxGridDBColumn;
cxGridDBColumn24: TcxGridDBColumn;
cxGridDBColumn25: TcxGridDBColumn; cxGridDBColumn25: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
TV2SH_BK22: TcxGridDBColumn;
TV2SH_QT26: TcxGridDBColumn;
Tv1SH_BK22: TcxGridDBColumn;
Tv1SH_ZB1: TcxGridDBColumn;
Tv1SH_DW1: TcxGridDBColumn;
Tv1SH_ZZ2: TcxGridDBColumn;
Tv1SH_YD1: TcxGridDBColumn;
TV2SH_DW1: TcxGridDBColumn;
TV2SH_JT1: TcxGridDBColumn;
TV2SH_ZB1: TcxGridDBColumn;
TV2SH_ZZ2: TcxGridDBColumn;
TV2SH_YD1: TcxGridDBColumn;
TV2SH_MFBZ1: TcxGridDBColumn;
TV2SH_YB1: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject); procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -131,12 +147,10 @@ type
procedure cxPageControl1Change(Sender: TObject); procedure cxPageControl1Change(Sender: TObject);
procedure CDS_1BeforeOpen(DataSet: TDataSet); procedure CDS_1BeforeOpen(DataSet: TDataSet);
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject); procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char); procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
@ -145,7 +159,6 @@ type
procedure N5Click(Sender: TObject); procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject); procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject); procedure N7Click(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
lstCust: TStringList; lstCust: TStringList;
@ -269,6 +282,7 @@ procedure TfrmTatInspSHHZ.IsJYTimeClick(Sender: TObject);
begin begin
inherited; inherited;
InitGrid(); InitGrid();
InitGrid2();
end; end;
procedure TfrmTatInspSHHZ.TBRafreshClick(Sender: TObject); procedure TfrmTatInspSHHZ.TBRafreshClick(Sender: TObject);
@ -308,7 +322,6 @@ begin
InitGrid2(); InitGrid2();
end; end;
end; end;
procedure TfrmTatInspSHHZ.TBCloseClick(Sender: TObject); procedure TfrmTatInspSHHZ.TBCloseClick(Sender: TObject);
begin begin
@ -319,8 +332,8 @@ procedure TfrmTatInspSHHZ.FormShow(Sender: TObject);
begin begin
inherited; inherited;
// ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ËðºÄ»ã×ÜÁбí'); ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ËðºÄ»ã×ÜÁбí');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ËðºÄ»ã×ÜÁбí');
CurrentPage := 1; CurrentPage := 1;
RecordsNumber := 500; RecordsNumber := 500;
@ -533,6 +546,7 @@ end;
procedure TfrmTatInspSHHZ.ToolButton4Click(Sender: TObject); procedure TfrmTatInspSHHZ.ToolButton4Click(Sender: TObject);
begin begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ËðºÄ»ã×ÜÁбí'); WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ËðºÄ»ã×ÜÁбí');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ËðºÄ»ã×ÜÁбí');
end; end;
end. end.

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

@ -7,7 +7,6 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -689
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 639 ExplicitHeight = 639
PixelsPerInch = 96 PixelsPerInch = 96
@ -182,6 +181,7 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 103
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -320,6 +320,10 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList
item item
Kind = skSum Kind = skSum
Column = Tv1ZJqty Column = Tv1ZJqty
end
item
Kind = skSum
Column = Tv1SHGJ
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -449,6 +453,13 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList
Options.Editing = False Options.Editing = False
Width = 71 Width = 71
end end
object Tv1SHGJ: TcxGridDBColumn
Caption = #25439#32791#20844#26020
DataBinding.FieldName = 'SHGJ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1qgMeter: TcxGridDBColumn object Tv1qgMeter: TcxGridDBColumn
Caption = #20999#21106#31859#25968 Caption = #20999#21106#31859#25968
DataBinding.FieldName = 'qgMeterNoGQ' DataBinding.FieldName = 'qgMeterNoGQ'

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

@ -65,6 +65,7 @@ type
Tv1qgMeterAll: TcxGridDBColumn; Tv1qgMeterAll: TcxGridDBColumn;
N2: TMenuItem; N2: TMenuItem;
N3: TMenuItem; N3: TMenuItem;
Tv1SHGJ: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);

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

@ -7,7 +7,6 @@
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -689
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 823 ExplicitHeight = 823
PixelsPerInch = 96 PixelsPerInch = 96

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

@ -504,13 +504,11 @@ type
procedure ToolButton8Click(Sender: TObject); procedure ToolButton8Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject); procedure ComboBox1Change(Sender: TObject);
procedure MinLenExit(Sender: TObject); procedure MinLenExit(Sender: TObject);
procedure Button5Click(Sender: TObject); procedure Button5Click(Sender: TObject);
procedure carnoBtnClick(Sender: TObject); procedure carnoBtnClick(Sender: TObject);
// procedure OutPutQty1Change(Sender: TObject); // procedure OutPutQty1Change(Sender: TObject);
procedure carnoClick(Sender: TObject); procedure carnoClick(Sender: TObject);
procedure Button7Click(Sender: TObject); procedure Button7Click(Sender: TObject);
procedure SpeedButton113Click(Sender: TObject); procedure SpeedButton113Click(Sender: TObject);
procedure Button9Click(Sender: TObject); procedure Button9Click(Sender: TObject);
@ -548,7 +546,6 @@ type
procedure PackagingClick(Sender: TObject); procedure PackagingClick(Sender: TObject);
procedure tubeClick(Sender: TObject); procedure tubeClick(Sender: TObject);
procedure Edit1Click(Sender: TObject); procedure Edit1Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FCIID, FOperationStatus, FCIFName, FWorkshop: string; FCIID, FOperationStatus, FCIFName, FWorkshop: string;
@ -574,7 +571,6 @@ type
function SaveData(FINT: Integer): Boolean; //保存数据 function SaveData(FINT: Integer): Boolean; //保存数据
procedure SetKGVisibility(F1: Integer); procedure SetKGVisibility(F1: Integer);
function SaveData2(meter: double; grossweight: double): Boolean; //保存数据 function SaveData2(meter: double; grossweight: double): Boolean; //保存数据
procedure InitLCK(MPCId: string); //扫描流程卡 procedure InitLCK(MPCId: string); //扫描流程卡
procedure InitJTM(MCIID: string); //扫描卷条码 procedure InitJTM(MCIID: string); //扫描卷条码
@ -732,7 +728,6 @@ begin
while not ADOTMP.Eof do while not ADOTMP.Eof do
begin begin
// TEdit(FindComponent('MF' + Trim(IntToStr(i)))).Text := ''; // TEdit(FindComponent('MF' + Trim(IntToStr(i)))).Text := '';
// TEdit(FindComponent('CODE' + Trim(IntToStr(i)))).Text := ''; // TEdit(FindComponent('CODE' + Trim(IntToStr(i)))).Text := '';
// TEdit(FindComponent('NAME' + Trim(IntToStr(i)))).Text := ADOTMP.fieldbyName('C_MXNAME').AsString; // TEdit(FindComponent('NAME' + Trim(IntToStr(i)))).Text := ADOTMP.fieldbyName('C_MXNAME').AsString;
i := i + 1; i := i + 1;
@ -1041,7 +1036,6 @@ begin
FCIID := Trim(maxno); FCIID := Trim(maxno);
//保存挡车工信息 //保存挡车工信息
////////////////// 保存疵点信息 ////////////////// ////////////////// 保存疵点信息 //////////////////
with CDS_2 do with CDS_2 do
begin begin
@ -2866,14 +2860,14 @@ begin
FieldByName('YG1').value := trim(YG1.Text); FieldByName('YG1').value := trim(YG1.Text);
FieldByName('YG2').value := trim(YG2.Text); FieldByName('YG2').value := trim(YG2.Text);
FieldByName('C_Code').value := trim(code.Text);//fcode; FieldByName('C_Code').value := trim(code.Text); //fcode;
FieldByName('C_Name').value := trim(codename.Text);// fname;//trim(codename.Text); FieldByName('C_Name').value := trim(codename.Text); // fname;//trim(codename.Text);
FieldByName('C_Spec').value := trim(Spec.Text); FieldByName('C_Spec').value := trim(Spec.Text);
FieldByName('C_Color').value := FC_Color; FieldByName('C_Color').value := FC_Color;
FieldByName('C_ColorNo').value := FC_ColorNo; FieldByName('C_ColorNo').value := FC_ColorNo;
FieldByName('C_StyleNo').value := FC_StyleNo; FieldByName('C_StyleNo').value := FC_StyleNo;
FieldByName('C_Width').value := FMF;//trim(mf.Text); FieldByName('C_Width').value := FMF; //trim(mf.Text);
FieldByName('C_GramWeight').value := trim(kz.Text); FieldByName('C_GramWeight').value := trim(kz.Text);
FieldByName('C_Pattern').value := FC_Pattern; FieldByName('C_Pattern').value := FC_Pattern;
FieldByName('C_CustPattern').value := FC_CustPattern; FieldByName('C_CustPattern').value := FC_CustPattern;
@ -2940,7 +2934,6 @@ begin
//保存挡车工信息 //保存挡车工信息
////////////////// 保存疵点信息 ////////////////// ////////////////// 保存疵点信息 //////////////////
with CDS_2 do with CDS_2 do
begin begin
@ -2992,7 +2985,6 @@ begin
////////////////// 保存疵点信息 ////////////////// ////////////////// 保存疵点信息 //////////////////
/// ///
/// ///
////////////////// 更新卷号疵点信息 ////////////////// ////////////////// 更新卷号疵点信息 //////////////////
with ADOCmd do with ADOCmd do
begin begin
@ -3616,7 +3608,6 @@ begin
FFMXID := Trim(FHINT); FFMXID := Trim(FHINT);
// TEdit(FindComponent('MF' + Trim(IntToStr(FXJINT)))).Text := Trim(FName); // TEdit(FindComponent('MF' + Trim(IntToStr(FXJINT)))).Text := Trim(FName);
// TEdit(FindComponent('CODE' + Trim(IntToStr(FXJINT)))).Text := Trim(FHINT); // TEdit(FindComponent('CODE' + Trim(IntToStr(FXJINT)))).Text := Trim(FHINT);
// TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := Trim(FName); // TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := Trim(FName);
end; end;
@ -3898,10 +3889,27 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('select * from Tat_Cloth_Inspect where CIID=''' + Trim(edtScan.Text) + ''' '); sql.Add(' select * from Tat_Cloth_Inspect where CIID=''' + Trim(edtScan.Text) + ''' ');
// ShowMessage(sql.Text); // ShowMessage(sql.Text);
open; open;
end; end;
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(edtScan.Text) + ''' ');
sql.Add(' AND CAST(fillTime AS DATE) >= CAST(GETDATE() - 2 AS DATE)');
// ShowMessage(sql.Text);
open;
end;
if ADOCmd.IsEmpty and ADOTmp.IsEmpty then
begin
ShowMessage('请选择最近三天的切割工单');
exit;
end;
if ADOTmp.IsEmpty = FALSE then if ADOTmp.IsEmpty = FALSE then
begin begin
batchno.Text := ADOTmp.FieldByName('batchno').AsString; batchno.Text := ADOTmp.FieldByName('batchno').AsString;
@ -3915,7 +3923,7 @@ begin
end end
else else
begin begin
FMFFlag := '分切';//为了选择门幅时做判断，为空选择产品门幅 FMFFlag := '分切'; //为了选择门幅时做判断，为空选择产品门幅
InitJTM(edtScan.Text); InitJTM(edtScan.Text);
end; end;
@ -3923,7 +3931,7 @@ begin
else else
begin begin
ClearGlobal(); ClearGlobal();
FMFFlag := '不分切';//为了选择门幅时做判断，为空选择产品门幅 FMFFlag := '不分切'; //为了选择门幅时做判断，为空选择产品门幅
FOperationStatus := '布票'; FOperationStatus := '布票';
InitLCK(edtScan.Text); InitLCK(edtScan.Text);
InitJYGrid(); InitJYGrid();

BIN
E03梭织坯布检验/testDll.res
View File

Binary file not shown.

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

@ -39,7 +39,8 @@ uses
U_TatClothEDCDLook in 'U_TatClothEDCDLook.pas' {frmTatClothEDCDLook}, U_TatClothEDCDLook in 'U_TatClothEDCDLook.pas' {frmTatClothEDCDLook},
U_TatClothStkHZList3 in 'U_TatClothStkHZList3.pas' {frmTatClothStkHZList3}, U_TatClothStkHZList3 in 'U_TatClothStkHZList3.pas' {frmTatClothStkHZList3},
U_TatClothCKHZList3 in 'U_TatClothCKHZList3.pas' {frmTatClothCKHZList3}, U_TatClothCKHZList3 in 'U_TatClothCKHZList3.pas' {frmTatClothCKHZList3},
U_TatClothCRStkHZList in 'U_TatClothCRStkHZList.pas' {frmTatClothCRStkHZList}; U_TatClothCRStkHZList in 'U_TatClothCRStkHZList.pas' {frmTatClothCRStkHZList},
U_KHCompanySel in 'U_KHCompanySel.pas' {frmKHCompanySel};
{$R *.res} {$R *.res}

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

@ -195,6 +195,10 @@
<Form>frmTatClothCRStkHZList</Form> <Form>frmTatClothCRStkHZList</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_KHCompanySel.pas">
<Form>frmKHCompanySel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
@ -920,6 +924,7 @@
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/> <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/> <ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
</Deployment> </Deployment>
<ModelSupport>False</ModelSupport>
</BorlandProject> </BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion> <ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions> </ProjectExtensions>

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

@ -1,77 +1,78 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.782,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.782,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.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.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_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj</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.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.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.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.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.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.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.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.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.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.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.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.112,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_KHCompanySel.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_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.740,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList3.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.740,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList3.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.157,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothEDCDLook.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.157,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothEDCDLook.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.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.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.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.337,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCRStkHZList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.337,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCRStkHZList.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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.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.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.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.732,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCKHZList3.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.732,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCKHZList3.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothRKHZList2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothRKHZList2.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.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.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.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>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10szXIANGYING"/> <File Path="..\..\D10szXIANGYING"/>
@ -141,5 +142,7 @@
<File Path="U_TatClothCKHZList3.dfm"/> <File Path="U_TatClothCKHZList3.dfm"/>
<File Path="U_TatClothCRStkHZList.pas"/> <File Path="U_TatClothCRStkHZList.pas"/>
<File Path="U_TatClothCRStkHZList.dfm"/> <File Path="U_TatClothCRStkHZList.dfm"/>
<File Path="U_KHCompanySel.pas"/>
<File Path="U_KHCompanySel.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

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

Binary file not shown.

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

@ -83,6 +83,8 @@ begin
// Parameters1 := '业务'; // Parameters1 := '业务';
// Parameters1 := '财务'; // Parameters1 := '财务';
Parameters2 := '备货'; Parameters2 := '备货';
// DName := 'admin';
// DCode := 'ADMIN';
end end
else else
begin begin

4653
E04梭织坯布仓库/U_KHCompanySel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

217
E04梭织坯布仓库/U_KHCompanySel.pas Normal file
View File

@ -0,0 +1,217 @@
unit U_KHCompanySel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput,
dxScrollbarAnnotations;
type
TfrmKHCompanySel = class(TfrmBaseHelp)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
TBSave: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
CoName: TEdit;
GPM_1: TcxGridPopupMenu;
ImageList1: TImageList;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
TV1Saleser: TcxGridDBColumn;
Label2: TLabel;
CoAbbrName: TEdit;
Label3: TLabel;
Saleser: TEdit;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
TV2address: TcxGridDBColumn;
CDS_2: TClientDataSet;
DS_2: TDataSource;
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 TBCloseClick(Sender: TObject);
procedure CoNameChange(Sender: TObject);
procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView;
APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
procedure TV2DblClick(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
FCoType, FAuthority: string;
{ Public declarations }
end;
var
frmKHCompanySel: TfrmKHCompanySel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmKHCompanySel.FormCreate(Sender: TObject);
begin
inherited;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
except
application.MessageBox('网络连接失败！', '提示信息');
end;
end;
procedure TfrmKHCompanySel.CoNameChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
end;
procedure TfrmKHCompanySel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CoName.SetFocus;
Action := cahide;
end;
procedure TfrmKHCompanySel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select A.* from BS_Company A where 1=1 and valid=''Y'' ');
if Trim(FCoType) <> '' then
begin
sql.Add(' and A.CoType=''' + Trim(FCoType) + '''');
end;
if Trim(FAuthority) = '理单业务' then
begin
SQL.Add('and ( filler=' + quotedstr(trim(dname)));
sql.Add('or SalesId=' + quotedstr(trim(DCode)) + ' or exists (select * from [dbo].[F_Tool_SplitString](TallyId,'','') X where X.RTValue =' + quotedstr(trim(DCode)) + '))');
end;
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmKHCompanySel.FormShow(Sender: TObject);
begin
inherited;
InitGrid();
ReadCxGrid('客户名称选择' + Trim(FCoType), TV1, '客户名称');
ReadCxGrid('客户名称选择' + Trim(FCoType), TV2, '客户名称');
end;
procedure TfrmKHCompanySel.TBCloseClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmKHCompanySel.TBSaveClick(Sender: TObject);
begin
WriteCxGrid('客户名称选择' + Trim(FCoType), TV1, '客户名称');
WriteCxGrid('客户名称选择' + Trim(FCoType), TV2, '客户名称');
end;
procedure TfrmKHCompanySel.ToolButton1Click(Sender: TObject);
begin
CoName.SetFocus;
ModalResult := 1;
end;
procedure TfrmKHCompanySel.TV1FocusedRecordChanged(
Sender: TcxCustomGridTableView; APrevFocusedRecord,
AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
with ADOQueryTemp do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from KH_Address where COID=' + quotedstr(Trim(CDS_1.FieldByName('COID').AsString)));
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
end;
procedure TfrmKHCompanySel.TV2DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmKHCompanySel.FormDestroy(Sender: TObject);
begin
inherited;
frmKHCompanySel := nil;
end;
end.

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

@ -574,6 +574,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Options.Editing = False Options.Editing = False
Width = 67 Width = 67
end end
object Tv4Grade: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1C_Width: TcxGridDBColumn object Tv1C_Width: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
@ -642,6 +649,54 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
DataBinding.FieldName = 'amount' DataBinding.FieldName = 'amount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv4Saleser: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv4dept: TcxGridDBColumn
Caption = #37096#38376
DataBinding.FieldName = 'dept'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv4isIncludeTax: TcxGridDBColumn
Caption = #26159#21542#21547#31246
DataBinding.FieldName = 'isIncludeTax'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv4CompanyName: TcxGridDBColumn
Caption = #20844#21496#25260#22836
DataBinding.FieldName = 'CompanyName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv4note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
end
object Tv4FHDH: TcxGridDBColumn
Caption = #20986#24211#21495
DataBinding.FieldName = 'FHDH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
end end

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

@ -124,6 +124,13 @@ type
GPM_4: TcxGridPopupMenu; GPM_4: TcxGridPopupMenu;
Tv4PFPrice: TcxGridDBColumn; Tv4PFPrice: TcxGridDBColumn;
Tv4amount: TcxGridDBColumn; Tv4amount: TcxGridDBColumn;
Tv4Saleser: TcxGridDBColumn;
Tv4dept: TcxGridDBColumn;
Tv4CompanyName: TcxGridDBColumn;
Tv4note: TcxGridDBColumn;
Tv4isIncludeTax: TcxGridDBColumn;
Tv4Grade: TcxGridDBColumn;
Tv4FHDH: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -296,6 +303,11 @@ begin
sql.Add(' left join BS_Company D on D.CoID = B.ToCoID '); sql.Add(' left join BS_Company D on D.CoID = B.ToCoID ');
sql.Add(' where A.IONo not LIKE ''RSG%'' and A.IOFlag = ''³ö¿â'' '); sql.Add(' where A.IONo not LIKE ''RSG%'' and A.IOFlag = ''³ö¿â'' ');
sql.Add(WSql); sql.Add(WSql);
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, '''')'); 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 A.C_CODE ,A.C_GramWeight');
// SQL.Add(' order by B.DRMID'); // SQL.Add(' order by B.DRMID');
@ -388,10 +400,10 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IONO as DRMID'); sql.Add('SELECT A.C_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IONO as DRMID,A.Grade,A.FHDH ');
sql.Add(',CAST(ioTime AS DATE) as ioTime, C.PFPrice, (CAST(A.C_Width AS DECIMAL(18,2))/100 * SUM(A.meter) * C.PFPrice) as amount'); sql.Add(',CAST(ioTime AS DATE) as ioTime, C.PFPrice, (CAST(A.C_Width AS DECIMAL(18,2))/100 * SUM(A.meter) * C.PFPrice) as amount');
// sql.Add(', (SELECT COName FROM BS_Company X WHERE X.CoID = B.ToCoID) as COName'); // sql.Add(', (SELECT COName FROM BS_Company X WHERE X.CoID = B.ToCoID) as COName');
sql.Add(', D.COName '); sql.Add(', D.COName,D.Saleser,D.dept,B.CompanyName,C.note,C.isIncludeTax ');
sql.Add(' ,COUNT(*) as js, SUM(A.meter) as Meter,SUM(A.NetWeight) as NetWeight '); 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(', CAST(A.C_Width AS DECIMAL(18,2))/100 * SUM(A.meter) as pf');
SQL.Add(',ISNULL(A.issp, '''') as issp '); SQL.Add(',ISNULL(A.issp, '''') as issp ');
@ -405,6 +417,11 @@ begin
// sql.Add(' and B.ToCoID = ' + QuotedStr(Trim(fToCoID))); // sql.Add(' and B.ToCoID = ' + QuotedStr(Trim(fToCoID)));
// sql.Add(' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp))); // sql.Add(' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp)));
sql.Add(WSql); sql.Add(WSql);
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;
if C_Name.text <> '' then if C_Name.text <> '' then
begin begin
SQL.Add(' and A.C_Name like ' + QuotedStr('%' + Trim(C_Name.text) + '%')); SQL.Add(' and A.C_Name like ' + QuotedStr('%' + Trim(C_Name.text) + '%'));
@ -426,9 +443,9 @@ begin
SQL.Add(' and A.C_GramWeight like ' + QuotedStr('%' + Trim(C_GramWeight.text) + '%')); SQL.Add(' and A.C_GramWeight like ' + QuotedStr('%' + Trim(C_GramWeight.text) + '%'));
end; end;
SQL.Add(' group by A.C_CODE,A.C_width,A.C_GramWeight,A.IONO,A.C_Name,isnull(A.issp,''''),B.ToCoID, D.COName,CAST(ioTime AS DATE),C.PFPrice'); SQL.Add(' group by A.C_CODE,A.C_width,A.C_GramWeight,A.IONO,A.C_Name,isnull(A.issp,''''),B.ToCoID, D.COName,CAST(ioTime AS DATE),C.PFPrice,D.Saleser,D.dept,B.CompanyName,C.note,C.isIncludeTax,A.Grade,A.FHDH');
// sql.Add(' HAVING(select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame))); // 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) '); SQL.Add(' order by A.IONO,A.C_CODE,CAST(A.C_width AS INT),A.C_GramWeight,CAST(ioTime AS DATE),A.Grade,A.FHDH');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;
@ -533,8 +550,10 @@ end;
procedure TfrmTatClothCKHZList.TBExportClick(Sender: TObject); procedure TfrmTatClothCKHZList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if PageControl1.ActivePage.Caption = '有出库单出库' then
exit; begin
if CDS_1.IsEmpty then
Exit;
with CDS_1 do with CDS_1 do
begin begin
Filtered := false; Filtered := false;
@ -543,9 +562,46 @@ begin
end; end;
TcxGridToExcel(Self.Caption, cxGrid1); TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid(); InitGrid();
InitGrid2(); end
InitGrid3(); else if PageControl1.ActivePage.Caption = '有出库单出库明细' then
begin
if CDS_4.IsEmpty then
Exit;
with CDS_4 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid4);
InitGrid4(); InitGrid4();
end
else if PageControl1.ActivePage.Caption = '无出库单出库' then
begin
if CDS_2.IsEmpty then
Exit;
with CDS_2 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid2);
InitGrid2();
end
else if PageControl1.ActivePage.Caption = '有出库单汇总(客户)' then
begin
if CDS_3.IsEmpty then
Exit;
with CDS_3 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid3);
InitGrid3();
end;
end; end;
procedure TfrmTatClothCKHZList.orderNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmTatClothCKHZList.orderNoKeyPress(Sender: TObject; var Key: Char);

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

@ -180,7 +180,6 @@ inherited frmTatClothCKHZList2: TfrmTatClothCKHZList2
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 111
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

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

@ -366,7 +366,7 @@ end;
procedure TfrmTatClothCKHZList2.TBExportClick(Sender: TObject); procedure TfrmTatClothCKHZList2.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if CDS_1.IsEmpty then
exit; exit;
with CDS_1 do with CDS_1 do
begin begin

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

@ -252,7 +252,7 @@ end;
procedure TfrmTatClothCKHZList3.TBExportClick(Sender: TObject); procedure TfrmTatClothCKHZList3.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if CDS_1.IsEmpty then
exit; exit;
with CDS_1 do with CDS_1 do
begin begin

12
E04梭织坯布仓库/U_TatClothCRStkHZList.dfm
View File

@ -278,7 +278,7 @@ inherited frmTatClothCRStkHZList: TfrmTatClothCRStkHZList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 0 ExplicitLeft = 2
ExplicitTop = 6 ExplicitTop = 6
object cxGrid1DBBandedTableView1: TcxGridDBBandedTableView object cxGrid1DBBandedTableView1: TcxGridDBBandedTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -577,6 +577,16 @@ inherited frmTatClothCRStkHZList: TfrmTatClothCRStkHZList
Position.ColIndex = 2 Position.ColIndex = 2
Position.RowIndex = 0 Position.RowIndex = 0
end end
object Tv1Grade: TcxGridDBBandedColumn
Caption = #31561#32423
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 87
Position.BandIndex = 0
Position.ColIndex = 3
Position.RowIndex = 0
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

1
E04梭织坯布仓库/U_TatClothCRStkHZList.pas
View File

@ -74,6 +74,7 @@ type
cb_GradeXJ: TCheckBox; cb_GradeXJ: TCheckBox;
cb_GradeFQ: TCheckBox; cb_GradeFQ: TCheckBox;
cb_GradeCS: TCheckBox; cb_GradeCS: TCheckBox;
Tv1Grade: TcxGridDBBandedColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);

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

@ -102,6 +102,7 @@ inherited frmTatClothInList: TfrmTatClothInList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 39
object Label2: TLabel object Label2: TLabel
Left = 70 Left = 70
Top = 36 Top = 36
@ -291,6 +292,34 @@ inherited frmTatClothInList: TfrmTatClothInList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label11: TLabel
Left = 1184
Top = 36
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 Label12: TLabel
Left = 1331
Top = 11
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 object BegDate: TDateTimePicker
Left = 88 Left = 88
Top = 6 Top = 6
@ -483,6 +512,26 @@ inherited frmTatClothInList: TfrmTatClothInList
TabOrder = 17 TabOrder = 17
OnKeyPress = carnoKeyPress OnKeyPress = carnoKeyPress
end end
object C_Width: TEdit
Tag = 1
Left = 1213
Top = 32
Width = 100
Height = 20
Hint = '0'
TabOrder = 18
OnKeyPress = carnoKeyPress
end
object C_GramWeight: TEdit
Tag = 1
Left = 1364
Top = 7
Width = 100
Height = 20
Hint = '0'
TabOrder = 19
OnKeyPress = carnoKeyPress
end
end end
object Panel6: TPanel [2] object Panel6: TPanel [2]
Left = 0 Left = 0
@ -935,7 +984,7 @@ inherited frmTatClothInList: TfrmTatClothInList
end end
object Tv1Column15: TcxGridDBColumn object Tv1Column15: TcxGridDBColumn
Caption = #32440#31649 Caption = #32440#31649
DataBinding.FieldName = 'Seal' DataBinding.FieldName = 'tube'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
@ -949,7 +998,7 @@ inherited frmTatClothInList: TfrmTatClothInList
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #33136#23553 Caption = #33136#23553
DataBinding.FieldName = 'tube' DataBinding.FieldName = 'Seal'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 67 Width = 67

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

@ -117,6 +117,10 @@ type
Tv1StkExists: TcxGridDBColumn; Tv1StkExists: TcxGridDBColumn;
Label9: TLabel; Label9: TLabel;
StkExists: TEdit; StkExists: TEdit;
Label11: TLabel;
Label12: TLabel;
C_Width: TEdit;
C_GramWeight: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);

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

@ -2,13 +2,13 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Left = 184 Left = 184
Top = 138 Top = 138
Caption = #25104#21697#20986#24211#21015#34920 Caption = #25104#21697#20986#24211#21015#34920
ClientHeight = 600 ClientHeight = 601
ClientWidth = 1540 ClientWidth = 1540
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 639 ExplicitHeight = 640
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -19,7 +19,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
ButtonWidth = 91 ButtonWidth = 103
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -57,17 +57,25 @@ inherited frmTatClothOutList: TfrmTatClothOutList
ImageIndex = 21 ImageIndex = 21
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton2: TToolButton object ToolButton3: TToolButton
Left = 261 Left = 261
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20986#24211#21495#25171#21360
ImageIndex = 21
OnClick = ToolButton3Click
end
object ToolButton2: TToolButton
Left = 368
Top = 0
AutoSize = True
Caption = #21246#36873#25171#21360 Caption = #21246#36873#25171#21360
ImageIndex = 21 ImageIndex = 21
Visible = False Visible = False
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 356 Left = 463
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -75,7 +83,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 427 Left = 534
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -83,7 +91,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 522 Left = 629
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -585,7 +593,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Left = 0 Left = 0
Top = 132 Top = 132
Width = 1540 Width = 1540
Height = 468 Height = 469
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -939,6 +947,13 @@ inherited frmTatClothOutList: TfrmTatClothOutList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 72 Width = 72
end end
object Tv1FHDH: TcxGridDBColumn
Caption = #20986#24211#21495
DataBinding.FieldName = 'FHDH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

@ -112,6 +112,8 @@ type
Label11: TLabel; Label11: TLabel;
IONO: TEdit; IONO: TEdit;
N4: TMenuItem; N4: TMenuItem;
Tv1FHDH: TcxGridDBColumn;
ToolButton3: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -138,6 +140,7 @@ type
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject); procedure N4Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
lstCust: TStringList; lstCust: TStringList;
@ -298,6 +301,10 @@ end;
procedure TfrmTatClothOutList.TBRKCXClick(Sender: TObject); procedure TfrmTatClothOutList.TBRKCXClick(Sender: TObject);
var var
MIOIDS, MStkIds, MOutNos: string; MIOIDS, MStkIds, MOutNos: string;
// maxFHDH: string;
dangqianioFHDH: string;
dangqianFHDH: Integer;
HasEmpty, HasNonEmpty: Boolean;
begin begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
Exit; Exit;
@ -310,6 +317,45 @@ begin
MIOIDS := ''; MIOIDS := '';
MStkIds := ''; MStkIds := '';
MOutNos := ''; MOutNos := '';
HasEmpty := False;
HasNonEmpty := False;
// 第一遍遍历：检查 IONO 是否同时存在空和非空
CDS_1.DisableControls;
CDS_1.First;
while not CDS_1.Eof do
begin
if CDS_1.FieldByName('SSel').AsBoolean then
begin
if Trim(CDS_1.FieldByName('IONO').AsString) = '' then
HasEmpty := True
else
HasNonEmpty := True;
end;
CDS_1.Next;
end;
CDS_1.EnableControls;
// 如果同时存在空和非空，则报错或退出
if HasEmpty and HasNonEmpty then
begin
// 可以根据需要抛出异常或提示
raise Exception.Create('出库单号 为空/不为空 不能同时选择！');
// 或者 Exit; 不执行后续拼接
end;
// maxFHDH := '';
//
// with ADOQueryTemp do
// begin
// Close;
// Sql.Clear;
// sql.Add('select * from tat_cloth_io_FHDH where ID = 1');
// Open;
// end;
// maxFHDH := ADOQueryTemp.FieldByName('ioFHID').AsString;
CDS_1.DisableControls; CDS_1.DisableControls;
with CDS_1 do with CDS_1 do
begin begin
@ -321,6 +367,29 @@ begin
MIOIDS := MIOIDS + (Trim(CDS_1.fieldbyname('IOID').AsString)) + ','; MIOIDS := MIOIDS + (Trim(CDS_1.fieldbyname('IOID').AsString)) + ',';
MStkIds := MStkIds + (Trim(CDS_1.fieldbyname('STKID').AsString)) + ','; MStkIds := MStkIds + (Trim(CDS_1.fieldbyname('STKID').AsString)) + ',';
MOutNos := MOutNos + (Trim(CDS_1.fieldbyname('IONO').AsString)) + ','; MOutNos := MOutNos + (Trim(CDS_1.fieldbyname('IONO').AsString)) + ',';
// if CDS_1.fieldbyname('FHDH').AsString = maxFHDH then
// begin
// with ADOQueryTemp do
// begin
// Close;
// Sql.Clear;
// sql.Add('select * from tat_cloth_io where FHDH = ' + QuotedStr(Trim(CDS_1.fieldbyname('FHDH').AsString)));
// Open;
// end;
//
// if ADOQueryTemp.IsEmpty then
// begin
// with ADOQueryCmd do
// begin
// Close;
// Sql.Clear;
// sql.Add('update tat_cloth_io_FHDH SET FHDH = FHDH-1 where ID = 1 ');
// EXECSQL;
// end;
// end;
// end;
end; end;
Next; Next;
end; end;
@ -336,6 +405,7 @@ begin
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -388,6 +458,36 @@ begin
ExecSQL; ExecSQL;
end; end;
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// SQL.Add('select max(FHDH) as dangqianFHDH from tat_cloth_io ');
// Open;
// end;
// dangqianioFHDH := ADOQueryCmd.FieldByName('dangqianFHDH').AsString;
// dangqianFHDH := StrToInt(Copy(dangqianioFHDH, Length(dangqianioFHDH) - 5, 6))+1;
// with ADOQueryTemp do
// begin
// Close;
// Sql.Clear;
// sql.Add('select * from tat_cloth_io where FHDH = ''' + dangqianioFHDH +''' ');
// Open;
// end;
//
// if ADOQueryTemp.IsEmpty then
// begin
// with ADOQueryCmd do
// begin
// Close;
// Sql.Clear;
// sql.Add('update tat_cloth_io_FHDH SET ioFHDH = ' + QuotedStr(Trim(dangqianioFHDH)) );
// SQL.Add(' ,FHDH = ' + IntToStr(dangqianFHDH));
// sql.Add(' where ID = 1 ');
// EXECSQL;
// end;
// end;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
InitGrid(); InitGrid();
except except
@ -571,6 +671,28 @@ begin
end; end;
end; end;
procedure TfrmTatClothOutList.ToolButton3Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TatClothOut3';
FFiltration1 := Trim(self.CDS_1.fieldbyname('FHDH').AsString);
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatClothOutList.ToolButton4Click(Sender: TObject); procedure TfrmTatClothOutList.ToolButton4Click(Sender: TObject);
begin begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '³ÉÆ·³ö¿âÁбí'); WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '³ÉÆ·³ö¿âÁбí');

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

@ -77,6 +77,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 32
object Label2: TLabel object Label2: TLabel
Left = 70 Left = 70
Top = 36 Top = 36
@ -298,6 +299,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>

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

@ -360,6 +360,7 @@ procedure TfrmTatClothRKHZList.TBRafreshClick(Sender: TObject);
begin begin
CurrentPage := 1; CurrentPage := 1;
InitGrid(); InitGrid();
InitGrid2();
end; end;
procedure TfrmTatClothRKHZList.CDS_1BeforeOpen(DataSet: TDataSet); procedure TfrmTatClothRKHZList.CDS_1BeforeOpen(DataSet: TDataSet);
@ -404,6 +405,7 @@ begin
inherited; inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品入库汇总'); ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品入库汇总');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '成品入库汇总');
CurrentPage := 1; CurrentPage := 1;
RecordsNumber := 500; RecordsNumber := 500;
canshu1 := Trim(Self.fParameters1); canshu1 := Trim(Self.fParameters1);
@ -419,8 +421,10 @@ end;
procedure TfrmTatClothRKHZList.TBExportClick(Sender: TObject); procedure TfrmTatClothRKHZList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if PageControl1.ActivePage.Caption = ' 汇总 ' then
exit; begin
if CDS_1.IsEmpty then
Exit;
with CDS_1 do with CDS_1 do
begin begin
Filtered := false; Filtered := false;
@ -429,6 +433,21 @@ begin
end; end;
TcxGridToExcel(Self.Caption, cxGrid1); TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid(); InitGrid();
end
else if PageControl1.ActivePage.Caption = ' 明细 ' then
begin
if CDS_2.IsEmpty then
Exit;
with CDS_2 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid2);
InitGrid2();
end;
end; end;
procedure TfrmTatClothRKHZList.orderNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmTatClothRKHZList.orderNoKeyPress(Sender: TObject; var Key: Char);
@ -466,6 +485,8 @@ begin
fC_Name := Self.CDS_1.FieldByName('C_Name').AsString; fC_Name := Self.CDS_1.FieldByName('C_Name').AsString;
fissp := Self.CDS_1.FieldByName('issp').AsString; fissp := Self.CDS_1.FieldByName('issp').AsString;
fioType := Self.CDS_1.FieldByName('ioType').AsString; fioType := Self.CDS_1.FieldByName('ioType').AsString;
fC_GramWeight := Self.CDS_1.FieldByName('C_GramWeight').AsString;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
@ -616,6 +637,7 @@ end;
procedure TfrmTatClothRKHZList.ToolButton4Click(Sender: TObject); procedure TfrmTatClothRKHZList.ToolButton4Click(Sender: TObject);
begin begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品入库汇总'); WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品入库汇总');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '成品入库汇总');
end; end;
end. end.

4
E04梭织坯布仓库/U_TatClothRKHZList2.pas
View File

@ -113,6 +113,7 @@ type
fissp : string; fissp : string;
fC_Name: string; fC_Name: string;
fioType : string; fioType : string;
fC_GramWeight : string;
fEndDateTime,fBegDateTime : TDateTime; fEndDateTime,fBegDateTime : TDateTime;
{ Public declarations } { Public declarations }
end; end;
@ -203,6 +204,7 @@ begin
SQL.Add('from V_Tat_Cloth_IO A where (A.IOFlag = ''Èë¿â'' ) ' + WSql); SQL.Add('from V_Tat_Cloth_IO A where (A.IOFlag = ''Èë¿â'' ) ' + WSql);
sql.Add(' and C_NAME=' + QuotedStr(Trim(fC_Name))); sql.Add(' and C_NAME=' + QuotedStr(Trim(fC_Name)));
sql.Add(' and ioType=' + QuotedStr(Trim(fioType))); sql.Add(' and ioType=' + QuotedStr(Trim(fioType)));
sql.Add(' and C_GramWeight=' + QuotedStr(Trim(fC_GramWeight)));
SQL.Add(' and Grade <> ''·Ï²¼'' '); SQL.Add(' and Grade <> ''·Ï²¼'' ');
SQL.Add(' and Grade <> ''Ñ­»·²¼'' '); SQL.Add(' and Grade <> ''Ñ­»·²¼'' ');
@ -305,7 +307,7 @@ end;
procedure TfrmTatClothRKHZList2.TBExportClick(Sender: TObject); procedure TfrmTatClothRKHZList2.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if CDS_1.IsEmpty then
exit; exit;
with CDS_1 do with CDS_1 do
begin begin

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

@ -370,7 +370,7 @@ begin
inherited; inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存汇总'); ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存汇总');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '成品库存汇总');
CurrentPage := 1; CurrentPage := 1;
RecordsNumber := 500; RecordsNumber := 500;
canshu1 := Trim(Self.fParameters1); canshu1 := Trim(Self.fParameters1);
@ -382,9 +382,10 @@ end;
procedure TfrmTatClothStkHZList.TBExportClick(Sender: TObject); procedure TfrmTatClothStkHZList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if PageControl1.ActivePage.Caption = ' 汇总 ' then
exit; begin
if CDS_1.IsEmpty then
Exit;
with CDS_1 do with CDS_1 do
begin begin
Filtered := false; Filtered := false;
@ -393,6 +394,20 @@ begin
end; end;
TcxGridToExcel(Self.Caption, cxGrid1); TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid(); InitGrid();
end
else if PageControl1.ActivePage.Caption = ' 明细 ' then
begin
if CDS_2.IsEmpty then
Exit;
with CDS_2 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid2);
InitGrid2();
end;
end; end;
@ -583,7 +598,7 @@ end;
procedure TfrmTatClothStkHZList.ToolButton4Click(Sender: TObject); procedure TfrmTatClothStkHZList.ToolButton4Click(Sender: TObject);
begin begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存汇总'); WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存汇总');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '成品库存汇总');
end; end;
end. end.

2
E04梭织坯布仓库/U_TatClothStkHZList2.dfm
View File

@ -233,6 +233,8 @@ inherited frmTatClothStkHZList2: TfrmTatClothStkHZList2
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 2
ExplicitTop = 6
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

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

@ -117,7 +117,6 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 36
object Label2: TLabel object Label2: TLabel
Left = 70 Left = 70
Top = 36 Top = 36
@ -468,7 +467,6 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH
AutoSize = True AutoSize = True
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 2 TabOrder = 2
ExplicitTop = 111
DesignSize = ( DesignSize = (
1536 1536
23) 23)
@ -575,7 +573,6 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 3 TabOrder = 3
ExplicitTop = 134
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -892,14 +889,14 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH
DataBinding.FieldName = 'ckfilltime' DataBinding.FieldName = 'ckfilltime'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 67 Width = 78
end end
object Tv1Column15: TcxGridDBColumn object Tv1Column15: TcxGridDBColumn
Caption = #36192#36865 Caption = #36192#36865
DataBinding.FieldName = 'ISZS' DataBinding.FieldName = 'ISZS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 68 Width = 79
end end
object Tv1GiftReason: TcxGridDBColumn object Tv1GiftReason: TcxGridDBColumn
Caption = #36192#36865#21407#22240 Caption = #36192#36865#21407#22240

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

@ -436,7 +436,7 @@ begin
sql.Add(',getdate() '); sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption))); sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('撤销配货'))); sql.Add(',' + quotedstr(trim('撤销配货')));
sql.Add(',' + quotedstr(trim(MSTKIDS))); sql.Add(',' + quotedstr(trim(MStkIds)));
sql.Add(',' + quotedstr(trim('成功'))); sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')'); sql.Add(')');
ExecSQL; ExecSQL;
@ -504,6 +504,7 @@ end;
procedure TfrmTatClothStkListPH.ToolButton3Click(Sender: TObject); procedure TfrmTatClothStkListPH.ToolButton3Click(Sender: TObject);
var var
MIOIDS, MStkIds, MOutNos: string; MIOIDS, MStkIds, MOutNos: string;
mFHDH: string;
begin begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
Exit; Exit;
@ -542,6 +543,36 @@ begin
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add(' select FHDH from tat_cloth_io_FHDH where CompanyName = '+ quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString)));
Open;
end;
mFHDH := ADOQueryCmd.FieldByName('FHDH').AsString;
mFHDH := FormatDateTime('yy', Date) + Format('%.6d', [(StrToIntDef(mFHDH, 0) + 1000000) mod 1000000]);
with ADOQueryCmd do
begin
Close;
Sql.Clear;
sql.Add(' update tat_cloth_io_FHDH SET FHDH = FHDH+1,ioFHDH=''' + mFHDH + ''' ');
SQL.Add(' where CompanyName = '+ quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString)));
EXECSQL;
end;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
sql.Add('update Tat_Cloth_IO SET FHDH = ''' + mFHDH + ''' ');
sql.Add(' WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString]( ' + QuotedStr(MStkIds));
SQL.Add(','','') X where X.RTValue=Tat_Cloth_IO.stkid) ');
sql.add('and ioflag=''´ý³ö¿â''');
EXECSQL;
end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -595,7 +626,7 @@ end;
procedure TfrmTatClothStkListPH.ToolButton5Click(Sender: TObject); procedure TfrmTatClothStkListPH.ToolButton5Click(Sender: TObject);
var var
MIOIDS, MStkIds, MOutNos: string; MIOIDS, MStkIds, MOutNos: string;
mGiftReason : string; mGiftReason: string;
begin begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
Exit; Exit;
@ -631,7 +662,6 @@ begin
// if Application.MessageBox('确定要执行操作吗？', '提示', 32 + 4) <> IdyeS then // if Application.MessageBox('确定要执行操作吗？', '提示', 32 + 4) <> IdyeS then
// Exit; // Exit;
// 新增：弹出输入框让用户填写赠送原因 // 新增：弹出输入框让用户填写赠送原因
mGiftReason := ''; mGiftReason := '';
if not InputQuery('赠送原因', '请输入赠送原因：', mGiftReason) then if not InputQuery('赠送原因', '请输入赠送原因：', mGiftReason) then

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

@ -4,11 +4,11 @@ inherited frmTatDRList: TfrmTatDRList
BorderStyle = bsNone BorderStyle = bsNone
Caption = #21457#36135#30003#35831 Caption = #21457#36135#30003#35831
ClientHeight = 792 ClientHeight = 792
ClientWidth = 1465 ClientWidth = 1293
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1481 ExplicitWidth = 1309
ExplicitHeight = 831 ExplicitHeight = 831
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
@ -16,11 +16,11 @@ inherited frmTatDRList: TfrmTatDRList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1465 Width = 1293
Height = 76 Height = 76
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
ButtonWidth = 91 ButtonWidth = 115
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
DisabledImages = DataLink_TatClothStk.ImageList_new32 DisabledImages = DataLink_TatClothStk.ImageList_new32
@ -35,6 +35,7 @@ inherited frmTatDRList: TfrmTatDRList
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1465
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -75,13 +76,13 @@ inherited frmTatDRList: TfrmTatDRList
ImageIndex = 3 ImageIndex = 3
OnClick = TbGoodsEditClick OnClick = TbGoodsEditClick
end end
object ToolButton1: TToolButton object TbLook: TToolButton
Left = 403 Left = 403
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
ImageIndex = 4 ImageIndex = 4
OnClick = ToolButton1Click OnClick = TbLookClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 474 Left = 474
@ -107,16 +108,32 @@ inherited frmTatDRList: TfrmTatDRList
ImageIndex = 3 ImageIndex = 3
OnClick = TbEditPFPriceClick OnClick = TbEditPFPriceClick
end end
object TBPrint: TToolButton object TbEditNote: TToolButton
Left = 711 Left = 711
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913#22791#27880
ImageIndex = 3
OnClick = TbEditNoteClick
end
object ToolButton1: TToolButton
Left = 806
Top = 0
AutoSize = True
Caption = #20844#21496#25260#22836#20462#25913
ImageIndex = 3
OnClick = ToolButton1Click
end
object TBPrint: TToolButton
Left = 925
Top = 0
AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 21 ImageIndex = 21
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 782 Left = 996
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #30721#21333#25171#21360 Caption = #30721#21333#25171#21360
@ -124,24 +141,24 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 877 Left = 1091
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21462#28040 Caption = #21462#28040
ImageIndex = 10 ImageIndex = 10
Wrap = True
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object tchk: TToolButton object tchk: TToolButton
Left = 948 Left = 0
Top = 0 Top = 38
AutoSize = True AutoSize = True
Caption = #23457#26680 Caption = #23457#26680
ImageIndex = 12 ImageIndex = 12
Wrap = True
OnClick = tchkClick OnClick = tchkClick
end end
object Tnochk: TToolButton object Tnochk: TToolButton
Left = 0 Left = 71
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680 Caption = #25764#38144#23457#26680
@ -149,7 +166,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = TnochkClick OnClick = TnochkClick
end end
object btnWC: TToolButton object btnWC: TToolButton
Left = 95 Left = 166
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #23436#25104 Caption = #23436#25104
@ -157,7 +174,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = btnWCClick OnClick = btnWCClick
end end
object btnWCCX: TToolButton object btnWCCX: TToolButton
Left = 166 Left = 237
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #25764#38144#23436#25104 Caption = #25764#38144#23436#25104
@ -165,7 +182,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = btnWCCXClick OnClick = btnWCCXClick
end end
object TbAddressCopy: TToolButton object TbAddressCopy: TToolButton
Left = 261 Left = 332
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #22320#22336#22797#21046 Caption = #22320#22336#22797#21046
@ -173,7 +190,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = TbAddressCopyClick OnClick = TbAddressCopyClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 356 Left = 427
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #38468#20214 Caption = #38468#20214
@ -181,7 +198,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 427 Left = 498
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -189,7 +206,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = TBExportClick OnClick = TBExportClick
end end
object TbMXExport: TToolButton object TbMXExport: TToolButton
Left = 498 Left = 569
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #23548#20986#26126#32454 Caption = #23548#20986#26126#32454
@ -197,15 +214,23 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = TbMXExportClick OnClick = TbMXExportClick
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 593 Left = 664
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #19968#38190#21457#36135 Caption = #19968#38190#21457#36135
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object TbUpdateM: TToolButton
Left = 759
Top = 38
AutoSize = True
Caption = #25968#37327#26356#26032
ImageIndex = 1
OnClick = TbUpdateMClick
end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 688 Left = 854
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -213,7 +238,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 783 Left = 949
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #25764#38144#21462#28040 Caption = #25764#38144#21462#28040
@ -221,7 +246,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 878 Left = 1044
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -229,7 +254,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 949 Left = 1115
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #36135#26410#21457#20840 Caption = #36135#26410#21457#20840
@ -240,7 +265,7 @@ inherited frmTatDRList: TfrmTatDRList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 76 Top = 76
Width = 1465 Width = 1293
Height = 45 Height = 45
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -248,6 +273,7 @@ inherited frmTatDRList: TfrmTatDRList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitWidth = 1465
object Label4: TLabel object Label4: TLabel
Left = 520 Left = 520
Top = 15 Top = 15
@ -386,6 +412,7 @@ inherited frmTatDRList: TfrmTatDRList
Height = 20 Height = 20
TabOrder = 2 TabOrder = 2
OnChange = ToCoNameChange OnChange = ToCoNameChange
OnKeyPress = ToCoNameKeyPress
end end
object MPRTCodeName: TEdit object MPRTCodeName: TEdit
Tag = 2 Tag = 2
@ -456,7 +483,7 @@ inherited frmTatDRList: TfrmTatDRList
object cxTabControl1: TcxTabControl [2] object cxTabControl1: TcxTabControl [2]
Left = 0 Left = 0
Top = 121 Top = 121
Width = 1465 Width = 1293
Height = 21 Height = 21
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -470,36 +497,40 @@ inherited frmTatDRList: TfrmTatDRList
#24050#21462#28040 #24050#21462#28040
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitWidth = 1465
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end
object cxSplitter1: TcxSplitter [3] object cxSplitter1: TcxSplitter [3]
Left = 0 Left = 0
Top = 784 Top = 784
Width = 1465 Width = 1293
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
ExplicitWidth = 1465
end end
object PageControl1: TPageControl [4] object PageControl1: TPageControl [4]
Left = 0 Left = 0
Top = 142 Top = 142
Width = 1465 Width = 1293
Height = 642 Height = 642
ActivePage = TabSheet1 ActivePage = TabSheet1
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
OnChange = PageControl1Change OnChange = PageControl1Change
ExplicitWidth = 1465
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = ' '#27719#24635 Caption = ' '#27719#24635
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1457 Width = 1285
Height = 337 Height = 337
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitTop = -6
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -633,12 +664,12 @@ inherited frmTatDRList: TfrmTatDRList
Options.Editing = False Options.Editing = False
Width = 124 Width = 124
end end
object TV1CoName: TcxGridDBColumn object TV1CompanyName: TcxGridDBColumn
Caption = #23458#25143 Caption = #20844#21496#25260#22836
DataBinding.FieldName = 'CoName' DataBinding.FieldName = 'CompanyName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 139 Width = 105
end end
object TV1Saleser: TcxGridDBColumn object TV1Saleser: TcxGridDBColumn
Caption = #19994#21153#21592 Caption = #19994#21153#21592
@ -759,13 +790,14 @@ inherited frmTatDRList: TfrmTatDRList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 337 Top = 337
Width = 1457 Width = 1285
Height = 277 Height = 277
Align = alBottom Align = alBottom
PopupMenu = PM_2 PopupMenu = PM_2
TabOrder = 1 TabOrder = 1
ExplicitLeft = 3 ExplicitLeft = 112
ExplicitTop = 335 ExplicitTop = 343
ExplicitWidth = 1457
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -936,11 +968,82 @@ inherited frmTatDRList: TfrmTatDRList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 87 Width = 87
end end
object TV2isIncludeTax: TcxGridDBColumn
Caption = #26159#21542#21547#31246
DataBinding.FieldName = 'isIncludeTax'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2Grade: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV2 GridView = TV2
end end
end end
object Panel2: TPanel
Left = 532
Top = 53
Width = 318
Height = 114
Color = clCream
ParentBackground = False
TabOrder = 2
Visible = False
object Label6: TLabel
Left = 37
Top = 27
Width = 65
Height = 12
Caption = #20844#21496#25260#22836#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CompanyName: TBtnEditC
Tag = 1
Left = 103
Top = 24
Width = 191
Height = 20
TabOrder = 0
OnBtnUpClick = CompanyNameBtnUpClick
end
object Button1: TButton
Left = 56
Top = 64
Width = 75
Height = 25
Caption = #30830#23450
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 192
Top = 64
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 2
OnClick = Button2Click
end
end
end end
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = ' '#26126#32454 Caption = ' '#26126#32454
@ -948,12 +1051,14 @@ inherited frmTatDRList: TfrmTatDRList
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1457 Width = 1285
Height = 614 Height = 614
Align = alClient Align = alClient
PopupMenu = pm_3 PopupMenu = pm_3
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1457
object TV3: TcxGridDBTableView object TV3: TcxGridDBTableView
OnDblClick = TV3DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3 DataController.DataSource = DS_3
@ -994,41 +1099,6 @@ inherited frmTatDRList: TfrmTatDRList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 49 Width = 49
end end
object TV3DRMID: TcxGridDBColumn
Caption = #30003#35831#21333#21495
DataBinding.FieldName = 'DRMID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV3Filltime: TcxGridDBColumn
Caption = #30331#35760#26085#26399
DataBinding.FieldName = 'Filltime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV3DlyDate: TcxGridDBColumn
Caption = #21457#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV3Saleser: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV3ToCoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn1: TcxGridDBColumn object cxGridDBColumn1: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
@ -1045,22 +1115,6 @@ inherited frmTatDRList: TfrmTatDRList
Options.Editing = False Options.Editing = False
Width = 71 Width = 71
end end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #21452#21943
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object cxGridDBColumn8: TcxGridDBColumn object cxGridDBColumn8: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_width' DataBinding.FieldName = 'C_width'
@ -1085,15 +1139,6 @@ inherited frmTatDRList: TfrmTatDRList
Options.Editing = False Options.Editing = False
Width = 81 Width = 81
end end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #27599#21367#31859#25968
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object cxGridDBColumn12: TcxGridDBColumn object cxGridDBColumn12: TcxGridDBColumn
Caption = #30003#35831#24179#26041 Caption = #30003#35831#24179#26041
DataBinding.FieldName = 'pingfang' DataBinding.FieldName = 'pingfang'
@ -1102,22 +1147,6 @@ inherited frmTatDRList: TfrmTatDRList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object cxGridDBColumn13: TcxGridDBColumn
Caption = #24179#26041#21333#20215
DataBinding.FieldName = 'PFPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn15: TcxGridDBColumn object cxGridDBColumn15: TcxGridDBColumn
Caption = #21457#36135#21305#25968 Caption = #21457#36135#21305#25968
DataBinding.FieldName = 'DlyPiece' DataBinding.FieldName = 'DlyPiece'
@ -1142,52 +1171,6 @@ inherited frmTatDRList: TfrmTatDRList
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end end
object cxGridDBColumn18: TcxGridDBColumn
Caption = #37197#36135#30003#35831#21367#25968
DataBinding.FieldName = 'Volume'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 102
end
object cxGridDBColumn19: TcxGridDBColumn
Caption = #30003#35831#20154
DataBinding.FieldName = 'Applicant'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn20: TcxGridDBColumn
Caption = #37197#36135#30003#35831#21407#22240
DataBinding.FieldName = 'ApplicationReaon'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn21: TcxGridDBColumn
Caption = #20462#25913#29366#24577
DataBinding.FieldName = 'editStatus'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object TV3Contacts: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'Contacts'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV3Telephone: TcxGridDBColumn
Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'Telephone'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = TV3 GridView = TV3
@ -1202,8 +1185,8 @@ inherited frmTatDRList: TfrmTatDRList
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink Connection = DataLink_TatClothStk.ADOLink
Left = 153 Left = 121
Top = 233 Top = 313
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
@ -1214,22 +1197,22 @@ inherited frmTatDRList: TfrmTatDRList
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink Connection = DataLink_TatClothStk.ADOLink
Parameters = <> Parameters = <>
Left = 440 Left = 432
Top = 156 Top = 252
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_TatClothStk.ADOLink Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 552 Left = 568
Top = 168 Top = 248
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 672 Left = 768
Top = 160 Top = 232
end end
object DataSource1: TDataSource object DataSource1: TDataSource
DataSet = Order_Main DataSet = Order_Main

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

@ -13,7 +13,7 @@ uses
cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList, Clipbrd, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList, Clipbrd,
dxDateRanges, dxScrollbarAnnotations, IdBaseComponent, IdComponent, dxDateRanges, dxScrollbarAnnotations, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, cxButtons; IdTCPConnection, IdTCPClient, IdHTTP, cxButtons, BtnEdit;
type type
TfrmTatDRList = class(TfrmBaseList) TfrmTatDRList = class(TfrmBaseList)
@ -31,7 +31,7 @@ type
DataSource1: TDataSource; DataSource1: TDataSource;
TBExport: TToolButton; TBExport: TToolButton;
Order_Main: TClientDataSet; Order_Main: TClientDataSet;
ToolButton1: TToolButton; TbLook: TToolButton;
Panel1: TPanel; Panel1: TPanel;
Label4: TLabel; Label4: TLabel;
Label8: TLabel; Label8: TLabel;
@ -92,7 +92,6 @@ type
v1OrdDate: TcxGridDBColumn; v1OrdDate: TcxGridDBColumn;
Tv1DlyDate: TcxGridDBColumn; Tv1DlyDate: TcxGridDBColumn;
TV1ToCoName: TcxGridDBColumn; TV1ToCoName: TcxGridDBColumn;
TV1CoName: TcxGridDBColumn;
TV1Saleser: TcxGridDBColumn; TV1Saleser: TcxGridDBColumn;
TV1Contacts: TcxGridDBColumn; TV1Contacts: TcxGridDBColumn;
TV1Telephone: TcxGridDBColumn; TV1Telephone: TcxGridDBColumn;
@ -133,22 +132,13 @@ type
TV3: TcxGridDBTableView; TV3: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn; cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn; cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn; cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn; cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn; cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn; cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn; cxGridDBColumn17: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
cxGridDBColumn21: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel; cxGridLevel2: TcxGridLevel;
pm_3: TPopupMenu; pm_3: TPopupMenu;
N4: TMenuItem; N4: TMenuItem;
@ -159,14 +149,19 @@ type
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
TbMXExport: TToolButton; TbMXExport: TToolButton;
TV3ssel: TcxGridDBColumn; TV3ssel: TcxGridDBColumn;
TV3DRMID: TcxGridDBColumn;
TV3Saleser: TcxGridDBColumn;
TV3ToCoName: TcxGridDBColumn;
TV3Filltime: TcxGridDBColumn;
TV3DlyDate: TcxGridDBColumn;
TV3Contacts: TcxGridDBColumn;
TV3Telephone: TcxGridDBColumn;
TV1CheckEditPiece: TcxGridDBColumn; TV1CheckEditPiece: TcxGridDBColumn;
TV2isIncludeTax: TcxGridDBColumn;
TV2note: TcxGridDBColumn;
TbEditNote: TToolButton;
TV1CompanyName: TcxGridDBColumn;
ToolButton1: TToolButton;
TV2Grade: TcxGridDBColumn;
Panel2: TPanel;
CompanyName: TBtnEditC;
Label6: TLabel;
Button1: TButton;
Button2: TButton;
TbUpdateM: TToolButton;
//RMllPDFExport1: TRMllPDFExport; //RMllPDFExport1: TRMllPDFExport;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -181,7 +176,7 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject); procedure CheckBox2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure TbLookClick(Sender: TObject);
procedure ToCoNameChange(Sender: TObject); procedure ToCoNameChange(Sender: TObject);
procedure tchkClick(Sender: TObject); procedure tchkClick(Sender: TObject);
procedure TnochkClick(Sender: TObject); procedure TnochkClick(Sender: TObject);
@ -217,6 +212,14 @@ type
procedure N5Click(Sender: TObject); procedure N5Click(Sender: TObject);
procedure N4Click(Sender: TObject); procedure N4Click(Sender: TObject);
procedure TbMXExportClick(Sender: TObject); procedure TbMXExportClick(Sender: TObject);
procedure TbEditNoteClick(Sender: TObject);
procedure ToCoNameKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton1Click(Sender: TObject);
procedure TV3DblClick(Sender: TObject);
procedure CompanyNameBtnUpClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure TbUpdateMClick(Sender: TObject);
private private
fcxGridStyleFlag: Boolean; fcxGridStyleFlag: Boolean;
procedure InitGrid(); procedure InitGrid();
@ -240,7 +243,7 @@ implementation
uses uses
U_DataLink, U_TatDRtInPut, U_RTFun, U_ZDYHelp, U_LabelPrint, U_DataLink, U_TatDRtInPut, U_RTFun, U_ZDYHelp, U_LabelPrint,
U_AttachmentUpload; U_AttachmentUpload, U_TatDRList2;
{$R *.dfm} {$R *.dfm}
@ -257,12 +260,12 @@ begin
TBEdit.Enabled := False; TBEdit.Enabled := False;
Tv1ToCoName.Visible := False; Tv1ToCoName.Visible := False;
Tv1CoName.Visible := False; // Tv1CoName.Visible := False;
TBDel.Enabled := False; TBDel.Enabled := False;
if CANSHU1 = '查询' then if CANSHU1 = '查询' then
begin begin
ToolButton1.Enabled := True; TbLook.Enabled := True;
TBPrint.Enabled := True; TBPrint.Enabled := True;
ToolButton2.Enabled := True; ToolButton2.Enabled := True;
ToolButton4.Enabled := True; ToolButton4.Enabled := True;
@ -290,7 +293,8 @@ begin
if canshu1 = '管理' then if canshu1 = '管理' then
begin begin
Tv1CoName.Visible := True; // Tv1CoName.Visible := True;
Tv1ToCoName.Visible := True;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
@ -463,10 +467,12 @@ begin
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理'); ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理'); ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理');
ReadCxGrid(trim(self.Caption) + 'Tv3', Tv3, '发货管理');
EndDate.DateTime := SGetServerDate(ADOQueryTemp); EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 60; BegDate.DateTime := EndDate.DateTime - 60;
InitGrid(); InitGrid();
InitSubGrid2();
end; end;
@ -529,6 +535,11 @@ begin
PState := 1; PState := 1;
canshu1 := self.canshu1; canshu1 := self.canshu1;
isCheck := cxTabControl1.TabIndex; isCheck := cxTabControl1.TabIndex;
TbSavePFPrice.Visible := false;
TbSave.Visible := true;
TbSaveNote.Visible := false;
Tv1Volume.Options.Editing := False; Tv1Volume.Options.Editing := False;
Tv1ApplicationReaon.Options.Editing := False; Tv1ApplicationReaon.Options.Editing := False;
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString); FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
@ -542,6 +553,35 @@ begin
end; end;
end; end;
procedure TfrmTatDRList.TbEditNoteClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmTatDRtInPut := TfrmTatDRtInPut.Create(Application);
with frmTatDRtInPut do
begin
PState := 888; //修改备注
TbSavePFPrice.Visible := false;
TbSave.Visible := false;
TbSaveNote.Visible := True;
canshu1 := self.canshu1;
isCheck := cxTabControl1.TabIndex;
Tv1Volume.Options.Editing := False;
Tv1ApplicationReaon.Options.Editing := False;
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmTatDRtInPut.Free;
end;
end;
procedure TfrmTatDRList.TbEditPFPriceClick(Sender: TObject); procedure TfrmTatDRList.TbEditPFPriceClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
@ -551,9 +591,10 @@ begin
frmTatDRtInPut := TfrmTatDRtInPut.Create(Application); frmTatDRtInPut := TfrmTatDRtInPut.Create(Application);
with frmTatDRtInPut do with frmTatDRtInPut do
begin begin
PState := 999; PState := 999; //修改单价
TbSavePFPrice.Visible := True; TbSavePFPrice.Visible := True;
TbSave.Visible := false; TbSave.Visible := false;
TbSaveNote.Visible := false;
canshu1 := self.canshu1; canshu1 := self.canshu1;
isCheck := cxTabControl1.TabIndex; isCheck := cxTabControl1.TabIndex;
Tv1Volume.Options.Editing := False; Tv1Volume.Options.Editing := False;
@ -619,6 +660,7 @@ begin
begin begin
Order_Main.Delete; Order_Main.Delete;
InitSubGrid(); InitSubGrid();
InitSubGrid2();
end; end;
end; end;
@ -727,7 +769,9 @@ end;
procedure TfrmTatDRList.TBExportClick(Sender: TObject); procedure TfrmTatDRList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if PageControl1.ActivePage.Caption = ' 汇总' then
begin
if Order_Main.IsEmpty then
Exit; Exit;
with Order_Main do with Order_Main do
begin begin
@ -737,6 +781,21 @@ begin
end; end;
TcxGridToExcel(Self.Caption, cxGrid1); TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid(); InitGrid();
end
else if PageControl1.ActivePage.Caption = ' 明细' then
begin
if CDS_3.IsEmpty then
Exit;
with CDS_3 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid3);
InitSubGrid2();
end;
end; end;
procedure TfrmTatDRList.TBPrintClick(Sender: TObject); procedure TfrmTatDRList.TBPrintClick(Sender: TObject);
@ -787,6 +846,11 @@ begin
PState := 0; PState := 0;
isCheck := 0; isCheck := 0;
FDRMID := ''; FDRMID := '';
TbSavePFPrice.Visible := false;
TbSave.Visible := true;
TbSaveNote.Visible := false;
canshu1 := self.canshu1; canshu1 := self.canshu1;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
@ -858,7 +922,31 @@ begin
TBRafresh.Click; TBRafresh.Click;
end; end;
procedure TfrmTatDRList.ToolButton1Click(Sender: TObject); procedure TfrmTatDRList.CompanyNameBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('CompanyName/公司抬头', fsj); //先英文再中文
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTatDRList.TbLookClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
Exit; Exit;
@ -870,6 +958,8 @@ begin
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString); FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
ToolBar2.Visible := False; ToolBar2.Visible := False;
TBSave.Visible := False; TBSave.Visible := False;
TbSavePFPrice.Visible := false;
TbSaveNote.Visible := false;
ScrollBox1.Enabled := False; ScrollBox1.Enabled := False;
canshu1 := self.canshu1; canshu1 := self.canshu1;
Tv1.OptionsSelection.CellSelect := False; Tv1.OptionsSelection.CellSelect := False;
@ -883,6 +973,71 @@ begin
end; end;
end; end;
procedure TfrmTatDRList.ToolButton1Click(Sender: TObject);
//var
// InputValue: string;
// topIndex: Integer;
// mDRMIDs: string;
begin
if Order_Main.Locate('ssel', True, []) = false then
begin
ShowMessage('请先选择要修改的记录');
Exit;
end;
CompanyName.text := '';
Panel2.Visible := True;
// topIndex := tv1.Controller.TopRowIndex;
//
// // 初始化为空字符串
// InputValue := '';
//
// if InputQuery('公司抬头修改', '请输入公司抬头', InputValue) then
// begin
// // 循环设置指定范围内的行
// Order_Main.DisableControls;
//
// Order_Main.First;
// while not Order_Main.eof do
// begin
// if Order_Main.fieldByName('ssel').Value then
// begin
// if mDRMIDs <> '' then
// begin
// mDRMIDs := mDRMIDs + ',' + QuotedStr(Order_Main.FieldByName('DRMID').AsString);
// end
// else
// begin
// mDRMIDs := QuotedStr(Order_Main.FieldByName('DRMID').AsString);
// end;
//
// end;
// Order_Main.Next;
// end;
// Order_Main.EnableControls;
//
// try
//
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.add(' update Tat_Cloth_DR_Main set CompanyName=' + QuotedStr(Trim(InputValue)));
// SQL.Add(' WHERE DRMID IN (' + mDRMIDs + ')'); // 添加括号
//// showMessage(sql.Text);
// ExecSQL;
// end;
//
// finally
//// Order_Main.Refresh;
// end;
//
// end;
//
// tv1.Controller.TopRowIndex := topIndex;
end;
procedure TfrmTatDRList.ToolButton2Click(Sender: TObject); procedure TfrmTatDRList.ToolButton2Click(Sender: TObject);
begin begin
inherited; inherited;
@ -1023,6 +1178,16 @@ begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main); SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main); SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmTatDRList.ToCoNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitSubGrid2();
end;
end; end;
procedure TfrmTatDRList.tchkClick(Sender: TObject); procedure TfrmTatDRList.tchkClick(Sender: TObject);
@ -1100,13 +1265,31 @@ begin
sql.Clear; sql.Clear;
// sql.Add('select A.* '); // sql.Add('select A.* ');
// sql.Add(' from Tat_Cloth_DR_Sub A where A.DRMID in (select rtvalue from F_Tool_SplitString(''' + SelCDSKey(Order_Main, ['DRMID'])[0] + ''' , '',''))'); // sql.Add(' from Tat_Cloth_DR_Sub A where A.DRMID in (select rtvalue from F_Tool_SplitString(''' + SelCDSKey(Order_Main, ['DRMID'])[0] + ''' , '',''))');
sql.Add(' select B.*,A.ToCoName,A.Filltime,A.DlyDate,C.Saleser '); sql.Add(' select A.C_Code,A.C_Name,A.C_Width,A.C_GramWeight ');
SQL.Add(' ,Telephone=(select top 1 Telephone from Bs_Company_contact X where X.CoID=A.ToCoID )'); SQL.Add(' ,sum(Piece) as Piece,sum(pingfang) as pingfang,sum(DlyPiece) as DlyPiece,sum(DlyQty) as DlyQty,sum(DLYKGQTY) as DLYKGQTY');
SQL.Add(' ,Contacts=(select top 1 Contacts from Bs_Company_contact X where X.CoID=A.ToCoID ) '); // SQL.Add(' ,Telephone=(select top 1 Telephone from Bs_Company_contact X where X.CoID=A.ToCoID )');
SQL.Add(' from Tat_Cloth_DR_Sub B '); // SQL.Add(' ,Contacts=(select top 1 Contacts from Bs_Company_contact X where X.CoID=A.ToCoID ) ');
sql.Add(' left join Tat_Cloth_DR_Main A on A.DRMID = B.DRMID '); SQL.Add(' from ');
sql.Add(' left join BS_Company C on A.ToCoID = C.COID ');
SQL.Add(' (select Y.*,X.status,X.ToCoName,X.shdanwei,X.Filltime,X.Filler from Tat_Cloth_DR_Sub Y left join Tat_Cloth_DR_Main X on X.DRMID=Y.DRMID ) A');
// sql.Add(' left join Tat_Cloth_DR_Main A on A.DRMID = B.DRMID ');
// sql.Add(' left join BS_Company C on A.ToCoID = C.COID ');
SQL.Add(' where 1 = 1'); SQL.Add(' where 1 = 1');
// if DRMID.Text <> '' then
// begin
// SQL.Add(' and A.DRMID like ' + QuotedStr('%' + Trim(DRMID.text) + '%'));
// end;
if ToCoName.Text <> '' then
begin
SQL.Add(' and A.ToCoName like ' + QuotedStr('%' + Trim(ToCoName.text) + '%'));
end;
if shdanwei.Text <> '' then
begin
SQL.Add(' and A.shdanwei like ' + QuotedStr('%' + Trim(shdanwei.text) + '%'));
end;
if CheckBox1.Checked then if CheckBox1.Checked then
begin begin
sql.Add(' and A.Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); sql.Add(' and A.Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
@ -1139,8 +1322,9 @@ begin
begin begin
sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + ''''); sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
end; end;
sql.Add(' order by A.DRMID , A.Filltime desc ');
SQL.Add(' group by A.C_Code,A.C_Name,A.C_Width,A.C_GramWeight ');
sql.Add(' order by A.C_Code,A.C_Width,A.C_GramWeight desc ');
// ShowMessage(SQL.Text); // ShowMessage(SQL.Text);
Open; Open;
@ -1198,6 +1382,13 @@ begin
begin begin
InitSubGrid2(); InitSubGrid2();
TbMXExport.Visible := True; TbMXExport.Visible := True;
// TbLook.Visible := False;
// TBDel.visible := False;
// TBEdit.Visible := False;
// TbEditPFPrice.visible := false;
// TbEditNote.visible := false;
end end
else else
begin begin
@ -1312,18 +1503,113 @@ begin
end; end;
end; end;
procedure TfrmTatDRList.Button1Click(Sender: TObject);
var
topIndex: Integer;
mDRMIDs: string;
begin
if Order_Main.Locate('ssel', True, []) = false then
begin
ShowMessage('请先选择要修改的记录');
Exit;
end;
if CompanyName.text = '' then
begin
ShowMessage('公司抬头不能为空');
Exit;
end;
topIndex := tv1.Controller.TopRowIndex;
// 循环设置指定范围内的行
// Order_Main.DisableControls;
TV1.beginupdate();
Order_Main.First;
while not Order_Main.eof do
begin
if Order_Main.fieldByName('ssel').Value then
begin
if mDRMIDs <> '' then
begin
mDRMIDs := mDRMIDs + ',' + QuotedStr(Order_Main.FieldByName('DRMID').AsString);
end
else
begin
mDRMIDs := QuotedStr(Order_Main.FieldByName('DRMID').AsString);
end;
end;
Order_Main.Next;
end;
TV1.endupdate();
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.add(' update Tat_Cloth_DR_Main set CompanyName=' + QuotedStr(Trim(CompanyName.text)));
SQL.Add(' WHERE DRMID IN (' + mDRMIDs + ')'); // 添加括号
// showMessage(sql.Text);
ExecSQL;
end;
Panel2.Visible := False;
tv1.Controller.TopRowIndex := topIndex;
end;
procedure TfrmTatDRList.Button2Click(Sender: TObject);
begin
Panel2.Visible := False;
end;
procedure TfrmTatDRList.ToolButton6Click(Sender: TObject); procedure TfrmTatDRList.ToolButton6Click(Sender: TObject);
begin begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理'); WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理'); WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理');
WriteCxGrid(trim(self.Caption) + 'Tv3', Tv3, '发货管理');
end; end;
procedure TfrmTatDRList.ToolButton7Click(Sender: TObject); procedure TfrmTatDRList.ToolButton7Click(Sender: TObject);
var
mFHDH: string;
begin begin
try try
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do with Order_Main do
begin begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add(' select FHDH from tat_cloth_io_FHDH where CompanyName = '+ quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString)));
Open;
end;
mFHDH := ADOQueryCmd.FieldByName('FHDH').AsString;
mFHDH := FormatDateTime('yy', Date) + Format('%.6d', [(StrToIntDef(mFHDH, 0) + 1000000) mod 1000000]);
with ADOQueryCmd do
begin
Close;
Sql.Clear;
sql.Add(' update tat_cloth_io_FHDH SET FHDH = FHDH+1,ioFHDH=''' + mFHDH + ''' ');
SQL.Add(' where CompanyName = '+ quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString)));
EXECSQL;
end;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
sql.Add('update Tat_Cloth_IO SET FHDH = ''' + mFHDH + ''' ');
sql.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
sql.add('and ioflag=''待出库''');
EXECSQL;
end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
close; close;
@ -1364,8 +1650,11 @@ begin
InitGrid(); InitGrid();
InitSubGrid(); InitSubGrid();
application.MessageBox('操作成功！', '提示信息'); application.MessageBox('操作成功！', '提示信息');
ADOQueryCmd.Connection.CommitTrans;
except except
application.MessageBox('操作失败！', '提示信息', 0); ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
// application.MessageBox('操作失败！', '提示信息', 0);
end; end;
end; end;
@ -1398,6 +1687,35 @@ begin
end; end;
procedure TfrmTatDRList.TbUpdateMClick(Sender: TObject);
begin
try
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_Tat_Cloth_DR @OutNoS=' + Quotedstr(Trim(Order_Main.fieldbyname('DRMID').AsString)));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end;
end;
InitGrid();
InitSubGrid();
application.MessageBox('操作成功！', '提示信息');
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
// application.MessageBox('操作失败！', '提示信息', 0);
end;
end;
procedure TfrmTatDRList.btnWCClick(Sender: TObject); procedure TfrmTatDRList.btnWCClick(Sender: TObject);
var var
str: string; str: string;
@ -1593,6 +1911,56 @@ begin
InitSubGrid(); InitSubGrid();
end; end;
procedure TfrmTatDRList.TV3DblClick(Sender: TObject);
begin
if CDS_3.IsEmpty then
Exit;
try
frmTatDRList2 := TfrmTatDRList2.Create(Application);
with frmTatDRList2 do
begin
fEndDateTime := self.EndDate.DateTime;
fBegDateTime := Self.BegDate.DateTime;
fC_Name := Self.CDS_3.FieldByName('C_Name').AsString;
fC_GramWeight := Self.CDS_3.FieldByName('C_GramWeight').AsString;
fC_Width := Self.CDS_3.FieldByName('C_Width').AsString;
// ffiller := Self.CDS_3.FieldByName('filler').AsString;
fcanshu1 := canshu1;
case cxTabControl1.TabIndex of
0:
begin
fstatus := '0';
end;
1:
begin
fstatus := '9';
end;
2:
begin
fstatus := '10';
end;
3:
begin
fstatus := '-2';
end;
4:
begin
fstatus := '999';
end;
end;
if ShowModal = 1 then
begin
end;
end;
finally
frmTatDRList2.Free;
end;
end;
procedure TfrmTatDRList.cxgrdbclmnTV11OverTimeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure TfrmTatDRList.cxgrdbclmnTV11OverTimeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
//单格子 //单格子
var var

573
E04梭织坯布仓库/U_TatDRList2.dfm Normal file
View File

@ -0,0 +1,573 @@
inherited frmTatDRList2: TfrmTatDRList2
Left = 184
Top = 138
Caption = #21457#36135#30003#35831#26126#32454#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
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_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 cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 1538
Height = 493
Align = alClient
TabOrder = 0
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = cxGridDBColumn15
end
item
Kind = skSum
Column = cxGridDBColumn10
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object TV1ssel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 49
end
object TV1DRMID: TcxGridDBColumn
Caption = #30003#35831#21333#21495
DataBinding.FieldName = 'DRMID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Filltime: TcxGridDBColumn
Caption = #30331#35760#26085#26399
DataBinding.FieldName = 'Filltime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1DlyDate: TcxGridDBColumn
Caption = #21457#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Saleser: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1ToCoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #21452#21943
DataBinding.FieldName = 'issp'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #30003#35831#21367#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #27599#21367#31859#25968
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object cxGridDBColumn12: TcxGridDBColumn
Caption = #30003#35831#24179#26041
DataBinding.FieldName = 'pingfang'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn13: TcxGridDBColumn
Caption = #24179#26041#21333#20215
DataBinding.FieldName = 'PFPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #21457#36135#21305#25968
DataBinding.FieldName = 'DlyPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object cxGridDBColumn16: TcxGridDBColumn
Caption = #21457#36135#31859#25968
DataBinding.FieldName = 'DlyQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn17: TcxGridDBColumn
Caption = #21457#36135#37325#37327
DataBinding.FieldName = 'DLYKGQTY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object cxGridDBColumn18: TcxGridDBColumn
Caption = #37197#36135#30003#35831#21367#25968
DataBinding.FieldName = 'Volume'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 102
end
object cxGridDBColumn19: TcxGridDBColumn
Caption = #30003#35831#20154
DataBinding.FieldName = 'Applicant'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn20: TcxGridDBColumn
Caption = #37197#36135#30003#35831#21407#22240
DataBinding.FieldName = 'ApplicationReaon'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn21: TcxGridDBColumn
Caption = #20462#25913#29366#24577
DataBinding.FieldName = 'editStatus'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
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 TV1isIncludeTax: TcxGridDBColumn
Caption = #26159#21542#21547#31246
DataBinding.FieldName = 'isIncludeTax'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Grade: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel2: 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 = 708
Top = 156
end
object GPM_1: TcxGridPopupMenu
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

479
E04梭织坯布仓库/U_TatDRList2.pas Normal file
View File

@ -0,0 +1,479 @@
unit U_TatDRList2;
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
TfrmTatDRList2 = 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;
CDS_2: TClientDataSet;
DS_2: TDataSource;
N2: TMenuItem;
N3: TMenuItem;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
TV1ssel: TcxGridDBColumn;
TV1DRMID: TcxGridDBColumn;
TV1Filltime: TcxGridDBColumn;
TV1DlyDate: TcxGridDBColumn;
TV1Saleser: TcxGridDBColumn;
TV1ToCoName: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: 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;
TV1Contacts: TcxGridDBColumn;
TV1Telephone: TcxGridDBColumn;
TV1isIncludeTax: TcxGridDBColumn;
TV1note: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
TV1Grade: 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: string;
fC_Width: string;
fC_GramWeight: string;
fstatus : string;
// ffiller : string;
fcanshu1 : string;
fEndDateTime, fBegDateTime: TDateTime;
{ Public declarations }
end;
var
frmTatDRList2: TfrmTatDRList2;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint;
{$R *.dfm}
procedure TfrmTatDRList2.SetStatus();
begin
end;
procedure TfrmTatDRList2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FreeAndNil(lstCust);
Action := caFree;
end;
procedure TfrmTatDRList2.FormCreate(Sender: TObject);
begin
inherited;
lstCust := TStringList.Create;
end;
procedure TfrmTatDRList2.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;
with ADOQueryCMD do
begin
Close;
sql.Clear;
// sql.Add('select A.* ');
// sql.Add(' from Tat_Cloth_DR_Sub A where A.DRMID in (select rtvalue from F_Tool_SplitString(''' + SelCDSKey(Order_Main, ['DRMID'])[0] + ''' , '',''))');
sql.Add(' select B.*,A.ToCoName,A.Filler,A.Filltime,A.DlyDate,C.Saleser ');
SQL.Add(' ,Telephone=(select top 1 Telephone from Bs_Company_contact X where X.CoID=A.ToCoID )');
SQL.Add(' ,Contacts=(select top 1 Contacts from Bs_Company_contact X where X.CoID=A.ToCoID ) ');
SQL.Add(' from Tat_Cloth_DR_Sub B ');
sql.Add(' left join Tat_Cloth_DR_Main A on A.DRMID = B.DRMID ');
sql.Add(' left join BS_Company C on A.ToCoID = C.COID ');
// SQL.Add(' group by B.C_Code,B.C_Name,C.Width,C.C_GramWeight ');
SQL.Add(' where 1 = 1');
SQL.Add(' and C_Name=' + QuotedStr(Trim(fC_Name)));
SQL.Add(' and C_GramWeight=' + QuotedStr(Trim(fC_GramWeight)));
SQL.Add(' and C_Width=' + QuotedStr(Trim(fC_Width)));
if fstatus <> '999' then
begin
SQL.Add(' and A.status=' + QuotedStr(Trim(fstatus)));
end
else
begin
SQL.Add(' and isnull(A.status,''0'')<>''-2'' ');
end;
if Trim(fcanshu1) = '录入' then
begin
sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
end;
// if DRMID.Text <> '' then
// begin
// SQL.Add(' and A.DRMID like ' + QuotedStr('%' + Trim(DRMID.text) + '%'));
// end;
// if ToCoName.Text <> '' then
// begin
// SQL.Add(' and A.ToCoName like ' + QuotedStr('%' + Trim(ToCoName.text) + '%'));
// end;
// if shdanwei.Text <> '' then
// begin
// SQL.Add(' and A.shdanwei like ' + QuotedStr('%' + Trim(shdanwei.text) + '%'));
// end;
//
// if CheckBox1.Checked then
// begin
// sql.Add(' and A.Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
// sql.Add(' and A.Filltime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
// end;
// case cxTabControl1.TabIndex of
// 0:
// begin
// SQL.Add(' and isnull(A.status,''0'')=''0'' ');
// end;
// 1:
// begin
// SQL.Add(' and isnull(A.status,''0'')=''9'' ');
// end;
// 2:
// begin
// SQL.Add(' and isnull(A.status,''0'')=''10'' ');
// end;
// 3:
// begin
// SQL.Add(' and isnull(A.status,''0'')=''-2'' ');
// end;
// 4:
// begin
// SQL.Add(' and isnull(A.status,''0'')<>''-2'' ');
// end;
// end;
SQL.Add(WSql);
sql.Add(' order by A.DRMID , A.Filltime desc ');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryCMD, CDS_1);
SInitCDSData(ADOQueryCMD, CDS_1);
end;
procedure TfrmTatDRList2.IsJYTimeClick(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmTatDRList2.TBRafreshClick(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatDRList2.CDS_1BeforeOpen(DataSet: TDataSet);
begin
lstCust.Clear;
end;
procedure TfrmTatDRList2.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmTatDRList2.cxPageControl1Change(Sender: TObject);
begin
CurrentPage := 1;
SetStatus();
InitGrid();
end;
procedure TfrmTatDRList2.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmTatDRList2.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatDRList2.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货申请2');
CurrentPage := 1;
RecordsNumber := 500;
EndDate.DateTime := fEndDateTime;
BegDate.DateTime := fBegDateTime;
SetStatus();
InitGrid();
end;
procedure TfrmTatDRList2.TBExportClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
exit;
with CDS_1 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
end;
procedure TfrmTatDRList2.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
CurrentPage := 1;
InitGrid();
end;
end;
procedure TfrmTatDRList2.PM11Click(Sender: TObject);
begin
SelOKNo(CDS_2, false);
end;
procedure TfrmTatDRList2.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstCust.Clear;
end;
procedure TfrmTatDRList2.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin
if lstCust <> nil then
AText := IntToStr(lstCust.Count);
end;
procedure TfrmTatDRList2.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid();
end;
procedure TfrmTatDRList2.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid();
end;
procedure TfrmTatDRList2.TCBNORChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatDRList2.JYTypeChange(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmTatDRList2.N1Click(Sender: TObject);
begin
SelOKNo(CDS_2, true);
end;
procedure TfrmTatDRList2.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatDRList2.N3Click(Sender: TObject);
begin
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
end;
procedure TfrmTatDRList2.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 TfrmTatDRList2.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 TfrmTatDRList2.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货申请2');
end;
end.

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

@ -12,6 +12,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Font.Style = [] Font.Style = []
OldCreateOrder = True OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
WindowState = wsMaximized
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
@ -56,17 +57,25 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ImageIndex = 16 ImageIndex = 16
OnClick = TbSavePFPriceClick OnClick = TbSavePFPriceClick
end end
object TbPHSave: TToolButton object TbSaveNote: TToolButton
Left = 166 Left = 166
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#22791#27880
ImageIndex = 16
OnClick = TbSaveNoteClick
end
object TbPHSave: TToolButton
Left = 261
Top = 0
AutoSize = True
Caption = #37197#36135#20445#23384 Caption = #37197#36135#20445#23384
ImageIndex = 16 ImageIndex = 16
Visible = False Visible = False
OnClick = TbPHSaveClick OnClick = TbPHSaveClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 261 Left = 356
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -74,7 +83,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 356 Left = 451
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -86,7 +95,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1264 Width = 1264
Height = 99 Height = 131
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -95,6 +104,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 32
object Label1: TLabel object Label1: TLabel
Left = 244 Left = 244
Top = 13 Top = 13
@ -110,7 +120,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end end
object Label12: TLabel object Label12: TLabel
Left = 31 Left = 31
Top = 72 Top = 97
Width = 65 Width = 65
Height = 12 Height = 12
Caption = #35746#21333#22791#27880#65306 Caption = #35746#21333#22791#27880#65306
@ -150,9 +160,9 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object Label27: TLabel object Label27: TLabel
Left = 703 Left = 703
Top = 12 Top = 12
Width = 52 Width = 65
Height = 15 Height = 15
Caption = #25968#37327#21333#20301 Caption = #25968#37327#21333#20301#65306
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -162,7 +172,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end end
object Label4: TLabel object Label4: TLabel
Left = 31 Left = 31
Top = 43 Top = 68
Width = 67 Width = 67
Height = 12 Height = 12
Caption = #33136' '#23553#65306 Caption = #33136' '#23553#65306
@ -175,7 +185,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end end
object Label5: TLabel object Label5: TLabel
Left = 241 Left = 241
Top = 43 Top = 68
Width = 67 Width = 67
Height = 12 Height = 12
Caption = #32440' '#31649#65306 Caption = #32440' '#31649#65306
@ -188,7 +198,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end end
object Label6: TLabel object Label6: TLabel
Left = 463 Left = 463
Top = 43 Top = 68
Width = 66 Width = 66
Height = 12 Height = 12
Caption = #21253' '#35013' '#34955#65306 Caption = #21253' '#35013' '#34955#65306
@ -200,8 +210,8 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 693 Left = 885
Top = 38 Top = 16
Width = 53 Width = 53
Height = 12 Height = 12
Caption = #23458#25143'ID'#65306 Caption = #23458#25143'ID'#65306
@ -213,6 +223,32 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentFont = False ParentFont = False
Visible = False Visible = False
end end
object Label3: TLabel
Left = 703
Top = 68
Width = 65
Height = 12
Caption = #20844#21496#25260#22836#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 31
Top = 41
Width = 65
Height = 12
Caption = #23458#25143#22320#22336#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OutType: TComboBox object OutType: TComboBox
Tag = 1 Tag = 1
Left = 306 Left = 306
@ -228,15 +264,15 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object Note: TEdit object Note: TEdit
Tag = 1 Tag = 1
Left = 96 Left = 96
Top = 70 Top = 95
Width = 962 Width = 950
Height = 18 Height = 18
TabOrder = 2 TabOrder = 2
end end
object ToCoName: TBtnEditC object ToCoName: TBtnEditC
Tag = 1 Tag = 1
Left = 528 Left = 531
Top = 9 Top = 5
Width = 138 Width = 138
Height = 20 Height = 20
ReadOnly = True ReadOnly = True
@ -257,7 +293,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end end
object QtyUnit: TComboBox object QtyUnit: TComboBox
Tag = 2 Tag = 2
Left = 758 Left = 767
Top = 9 Top = 9
Width = 96 Width = 96
Height = 20 Height = 20
@ -273,7 +309,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object Seal: TEdit object Seal: TEdit
Tag = 1 Tag = 1
Left = 96 Left = 96
Top = 40 Top = 65
Width = 132 Width = 132
Height = 18 Height = 18
TabOrder = 5 TabOrder = 5
@ -281,7 +317,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object tube: TEdit object tube: TEdit
Tag = 1 Tag = 1
Left = 306 Left = 306
Top = 40 Top = 65
Width = 132 Width = 132
Height = 18 Height = 18
TabOrder = 6 TabOrder = 6
@ -289,25 +325,43 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object Packaging: TEdit object Packaging: TEdit
Tag = 1 Tag = 1
Left = 528 Left = 528
Top = 40 Top = 65
Width = 132 Width = 132
Height = 18 Height = 18
TabOrder = 7 TabOrder = 7
end end
object ToCoID: TEdit object ToCoID: TEdit
Tag = 1 Tag = 1
Left = 758 Left = 950
Top = 35 Top = 13
Width = 96 Width = 96
Height = 18 Height = 18
TabOrder = 8 TabOrder = 8
Visible = False Visible = False
end end
object CompanyName: TBtnEditC
Tag = 1
Left = 766
Top = 65
Width = 138
Height = 20
TabOrder = 9
OnBtnUpClick = CompanyNameBtnUpClick
OnBtnDnClick = CompanyNameBtnDnClick
end
object KHaddress: TEdit
Tag = 1
Left = 102
Top = 41
Width = 950
Height = 18
TabOrder = 10
end
end end
object ToolBar2: TToolBar object ToolBar2: TToolBar
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 137 Top = 169
Width = 1264 Width = 1264
Height = 38 Height = 38
AutoSize = True AutoSize = True
@ -329,6 +383,8 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 2 TabOrder = 2
ExplicitLeft = 8
ExplicitTop = 143
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -373,11 +429,12 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 175 Top = 207
Width = 1264 Width = 1264
Height = 469 Height = 437
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
ExplicitTop = 213
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -521,6 +578,38 @@ object frmTatDRtInPut: TfrmTatDRtInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1isIncludeTax: TcxGridDBColumn
Caption = #26159#21542#21547#31246
DataBinding.FieldName = 'isIncludeTax'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#26410#21547#31246
#24050#21547#31246)
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Grade: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1GradePropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 120
end
object Tv1note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 544
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

@ -71,6 +71,14 @@ type
Tv1PFPrice: TcxGridDBColumn; Tv1PFPrice: TcxGridDBColumn;
Tv1editStatus: TcxGridDBColumn; Tv1editStatus: TcxGridDBColumn;
TbSavePFPrice: TToolButton; TbSavePFPrice: TToolButton;
Tv1isIncludeTax: TcxGridDBColumn;
Tv1note: TcxGridDBColumn;
TbSaveNote: TToolButton;
Label3: TLabel;
CompanyName: TBtnEditC;
Tv1Grade: TcxGridDBColumn;
Label8: TLabel;
KHaddress: TEdit;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -88,12 +96,17 @@ type
procedure TbPHSaveClick(Sender: TObject); procedure TbPHSaveClick(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure TbSavePFPriceClick(Sender: TObject); procedure TbSavePFPriceClick(Sender: TObject);
procedure TbSaveNoteClick(Sender: TObject);
procedure CompanyNameBtnUpClick(Sender: TObject);
procedure CompanyNameBtnDnClick(Sender: TObject);
procedure Tv1GradePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private private
fuserName: string; fuserName: string;
procedure InitData(); procedure InitData();
function SaveData(): Boolean; function SaveData(): Boolean;
function SavePHData(): Boolean; function SavePHData(): Boolean;
procedure C_NumHB(); procedure C_NumHB();
function CheckCusShip(): Boolean;
{ Private declarations } { Private declarations }
public public
PState, CopyInt: Integer; PState, CopyInt: Integer;
@ -110,7 +123,7 @@ implementation
uses uses
U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_TatPlanSel, U_TatClothInfoSel, U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_TatPlanSel, U_TatClothInfoSel,
U_TatClothStkHZListSEL; U_TatClothStkHZListSEL,U_KHCompanySel;
{$R *.dfm} {$R *.dfm}
@ -163,7 +176,7 @@ begin
SQL.Clear; SQL.Clear;
sql.Add(' select A.* '); sql.Add(' select A.* ');
sql.Add(' from Tat_Cloth_DR_Sub A'); sql.Add(' from Tat_Cloth_DR_Sub A');
if (PState = 1) or (PState = 2) or (PState = 999) then ////²é¿´ºÍÐÞ¸Ä ºÍÐ޸ĵ¥¼Û if (PState = 1) or (PState = 2) or (PState = 999) or (PState = 888) then ////查看和修改 和修改单价和修改备注
begin begin
sql.Add('where DRMID=''' + Trim(FDRMID) + ''''); sql.Add('where DRMID=''' + Trim(FDRMID) + '''');
end; end;
@ -298,6 +311,35 @@ begin
end; end;
end; end;
procedure TfrmTatDRtInPut.CompanyNameBtnDnClick(Sender: TObject);
begin
CompanyName.Text := '';
end;
procedure TfrmTatDRtInPut.CompanyNameBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('CompanyName/公司抬头', fsj); //先英文再中文
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTatDRtInPut.C_NumHB(); procedure TfrmTatDRtInPut.C_NumHB();
var var
LocateValues: variant; LocateValues: variant;
@ -374,6 +416,24 @@ begin
end; end;
end; end;
function TfrmTatDRtInPut.CheckCusShip(): Boolean;
begin
// try
// with ADOCmd do
// begin
// Close;
// sql.Clear;
// SQL.Add('select * from Tat_Cloth_DR_Main where DRMID=''' + Trim(MaxMid) + '''');
// Open;
// end;
// Result := True;
// except
// ADOCmd.Connection.RollbackTrans;
// application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
// Result := False;
// end;
end;
function TfrmTatDRtInPut.SaveData(): Boolean; function TfrmTatDRtInPut.SaveData(): Boolean;
var var
MaxMid, MaxSid: string; MaxMid, MaxSid: string;
@ -517,11 +577,36 @@ begin
Exit; Exit;
end; end;
if (Order_Sub.Locate('Piece', null, [])) and (Order_Sub.Locate('Qty', null, [])) = True then if Trim(CompanyName.Text) = '' then
begin
Application.MessageBox('公司抬头不能为空！', '提示', 0);
Exit;
end;
if (Order_Sub.Locate('Piece', null, [])) and (Order_Sub.Locate('Qty', null, [])) then
begin begin
Application.MessageBox('细码申请匹数和数量不能全为空！', '提示', 0); Application.MessageBox('细码申请匹数和数量不能全为空！', '提示', 0);
Exit; Exit;
end; end;
if ((Order_Sub.Locate('PFPrice', null, [])) = True) then
begin
Application.MessageBox('平方单价不能为空！', '提示', 0);
Exit;
end;
if ((Order_Sub.Locate('isIncludeTax', null, [])) = True) or ((Order_Sub.Locate('isIncludeTax', '', [])) = True) then
begin
Application.MessageBox('是否含税不能为空！', '提示', 0);
Exit;
end;
if ((Order_Sub.Locate('Grade', null, [])) = True) or ((Order_Sub.Locate('Grade', '', [])) = True) then
begin
Application.MessageBox('等级不能为空！', '提示', 0);
Exit;
end;
// ShowMessage(Order_Sub.FieldByName('Piece').AsString); // ShowMessage(Order_Sub.FieldByName('Piece').AsString);
C_NumHB(); C_NumHB();
///////////////////////////////////////配货申请原因//////////////////// ///////////////////////////////////////配货申请原因////////////////////
@ -546,11 +631,74 @@ begin
end; end;
end; end;
procedure TfrmTatDRtInPut.TbSaveNoteClick(Sender: TObject);
var
MaxMid, MaxSid: string;
CurrentYear: string;
begin
if (Order_Sub.Locate('note', null, [])) = True then
begin
// Application.MessageBox('平方单价不能为空！', '提示', 0);
// Exit;
end;
///////////////// 保存子表 /////////////////
Order_Sub.DisableControls;
MaxMid := Trim(FDRMID);
with Order_Sub do
begin
First;
while not Eof do
begin
// if Trim(Order_Sub.fieldbyname('DRSID').AsString) = '' then
// begin
// if GetLSNo(ADOCmd, MaxSid, 'TDS', 'Tat_Cloth_DR_Sub', 4, 1) = False then
// raise Exception.Create('取子流水号失败！');
// end
// else
// begin
MaxSid := Trim(Order_Sub.fieldbyname('DRSID').AsString);
// end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Cloth_DR_Sub ');
sql.Add(' where DRMID=''' + Trim(MaxMid) + '''');
sql.Add(' and DRSID=''' + Trim(MaxSid) + '''');
// ShowMessage(sql.Text);
Open;
if ADOCmd.IsEmpty then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('note').Value := Order_Sub.fieldbyname('note').Value;
Post;
end;
Next;
end;
end;
Order_Sub.EnableControls;
Application.MessageBox('保存成功！', '提示', 0);
ModalResult := 1;
end;
procedure TfrmTatDRtInPut.TbSavePFPriceClick(Sender: TObject); procedure TfrmTatDRtInPut.TbSavePFPriceClick(Sender: TObject);
var var
MaxMid, MaxSid: string; MaxMid, MaxSid: string;
CurrentYear: string; CurrentYear: string;
begin begin
if (Order_Sub.Locate('PFPrice', null, [])) = True then
begin
Application.MessageBox('平方单价不能为空！', '提示', 0);
Exit;
end;
///////////////// 保存子表 ///////////////// ///////////////// 保存子表 /////////////////
Order_Sub.DisableControls; Order_Sub.DisableControls;
MaxMid := Trim(FDRMID); MaxMid := Trim(FDRMID);
@ -896,12 +1044,32 @@ begin
end; end;
procedure TfrmTatDRtInPut.Tv1GradePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'Grade';
flagname := '等级';
if ShowModal = 1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName('Grade').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
Self.Order_Sub.Post;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTatDRtInPut.ToCoNameBtnUpClick(Sender: TObject); procedure TfrmTatDRtInPut.ToCoNameBtnUpClick(Sender: TObject);
begin begin
try try
frmCompanySel := TfrmCompanySel.Create(Application); frmKHCompanySel := TfrmKHCompanySel.Create(Application);
with frmCompanySel do with frmKHCompanySel do
begin begin
FCoType := '客户'; FCoType := '客户';
if canshu1 = '录入' then if canshu1 = '录入' then
@ -910,14 +1078,16 @@ begin
end; end;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
self.ToCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); self.ToCoName.TxtCode := Trim(frmKHCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.ToCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); self.ToCoName.Text := Trim(frmKHCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
self.ToCoID.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoID').AsString); self.ToCoID.Text := Trim(frmKHCompanySel.CDS_1.fieldbyname('CoID').AsString);
self.KHAddress.Text := Trim(frmKHCompanySel.CDS_2.fieldbyname('KHaddress').AsString);
end; end;
end; end;
finally finally
frmCompanySel.Free; frmKHCompanySel.Free;
end; end;
end; end;

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

Binary file not shown.

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

Binary file not shown.

BIN
F01染色坯布仓库/DyeGreyClothStk.identcache
View File

Binary file not shown.