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

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

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

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

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

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

@ -1,31 +1,59 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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.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.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.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.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.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.dfm=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.368,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</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.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.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.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.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.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.dfm=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.368,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
<File Path="cloud-messaging.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10szXIANGYING"/>
<File Path="..\A00通用窗体"/>
<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
Caption = #23458#25143#36164#26009#24405#20837
ClientHeight = 643
ClientWidth = 922
ClientWidth = 916
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -21,7 +21,7 @@ object frmCustInput: TfrmCustInput
Tag = 1
Left = 0
Top = 0
Width = 922
Width = 916
Height = 38
AutoSize = True
ButtonHeight = 38
@ -54,7 +54,7 @@ object frmCustInput: TfrmCustInput
object ScrollBox1: TScrollBox
Left = 0
Top = 38
Width = 922
Width = 916
Height = 261
Align = alTop
BevelInner = bvNone
@ -241,8 +241,8 @@ object frmCustInput: TfrmCustInput
end
object CoCode: TEdit
Tag = 2
Left = 71
Top = 31
Left = 70
Top = 30
Width = 140
Height = 20
TabOrder = 0
@ -314,6 +314,7 @@ object frmCustInput: TfrmCustInput
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 8
OnBtnUpClick = SaleserBtnUpClick
OnBtnDnClick = cocountryBtnDnClick
@ -324,7 +325,7 @@ object frmCustInput: TfrmCustInput
Top = 224
Width = 140
Height = 20
Hint = 'khdept/'#37096#38376
Hint = 'dept/'#37096#38376
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -332,6 +333,7 @@ object frmCustInput: TfrmCustInput
Font.Style = []
ParentFont = False
TabOrder = 9
OnBtnUpClick = deptBtnUpClick
OnBtnDnClick = cocountryBtnDnClick
end
object CoBusinessType: TComboBox
@ -349,7 +351,7 @@ object frmCustInput: TfrmCustInput
object Panel1: TPanel
Left = 0
Top = 299
Width = 922
Width = 916
Height = 344
Align = alClient
Caption = 'Panel1'
@ -357,7 +359,7 @@ object frmCustInput: TfrmCustInput
object Panel3: TPanel
Left = 1
Top = 1
Width = 920
Width = 914
Height = 342
Align = alClient
Caption = 'Panel1'
@ -366,7 +368,7 @@ object frmCustInput: TfrmCustInput
Tag = 1
Left = 1
Top = 1
Width = 918
Width = 912
Height = 38
AutoSize = True
ButtonHeight = 38
@ -403,17 +405,78 @@ object frmCustInput: TfrmCustInput
ImageIndex = 6
OnClick = ToolButton7Click
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
object cxGrid2: TcxGrid
Left = 1
Left = 513
Top = 39
Width = 918
Width = 400
Height = 302
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 1
ExplicitLeft = 0
ExplicitLeft = 519
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.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
@ -438,7 +501,7 @@ object frmCustInput: TfrmCustInput
OptionsView.GroupByBox = False
Styles.Footer = DataLink_Company.Default
Styles.Header = DataLink_Company.Default
object cxGridDBColumn2: TcxGridDBColumn
object cxGridDBColumn1: TcxGridDBColumn
Caption = #40664#35748
DataBinding.FieldName = 'IsDefault'
DataBinding.IsNullValueType = True
@ -447,7 +510,7 @@ object frmCustInput: TfrmCustInput
Options.Editing = False
Width = 76
end
object cxGridDBColumn3: TcxGridDBColumn
object cxGridDBColumn4: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'Contacts'
DataBinding.IsNullValueType = True
@ -456,14 +519,14 @@ object frmCustInput: TfrmCustInput
HeaderAlignmentHorz = taCenter
Width = 77
end
object cxGridDBColumn5: TcxGridDBColumn
object cxGridDBColumn7: TcxGridDBColumn
Caption = #32844#20301
DataBinding.FieldName = 'position'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object cxGridDBColumn6: TcxGridDBColumn
object cxGridDBColumn9: TcxGridDBColumn
Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'Telephone'
DataBinding.IsNullValueType = True
@ -472,13 +535,13 @@ object frmCustInput: TfrmCustInput
HeaderAlignmentHorz = taCenter
Width = 86
end
object cxGridDBColumn8: TcxGridDBColumn
object cxGridDBColumn10: TcxGridDBColumn
DataBinding.FieldName = 'EMAIL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object TV2Column2: TcxGridDBColumn
object cxGridDBColumn11: TcxGridDBColumn
Caption = #24494#20449#21495
DataBinding.FieldName = 'WeChat'
DataBinding.IsNullValueType = True
@ -486,8 +549,8 @@ object frmCustInput: TfrmCustInput
Width = 66
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV2
object cxGridLevel1: TcxGridLevel
GridView = TV1
end
end
end
@ -513,6 +576,7 @@ object frmCustInput: TfrmCustInput
Top = 121
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 294
Top = 502
@ -528,4 +592,15 @@ object frmCustInput: TfrmCustInput
Left = 464
Top = 511
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

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

@ -47,15 +47,10 @@ type
ToolButton7: TToolButton;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
Label10: TLabel;
CoLevel: TComboBox;
TV2Column2: TcxGridDBColumn;
TV2KHAddress: TcxGridDBColumn;
cocountry: TBtnEditC;
Label3: TLabel;
Label5: TLabel;
@ -65,6 +60,19 @@ type
Label11: TLabel;
dept: TBtnEditC;
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 FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -78,10 +86,14 @@ type
// procedure cocountryBtnUpClick(Sender: TObject);
procedure ParentCoNameBtnUpClick(Sender: TObject);
procedure SaleserBtnUpClick(Sender: TObject);
procedure deptBtnUpClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
function SaveData(): Boolean;
procedure KHEdit();
public
fkhType: string;
{ Public declarations }
@ -125,6 +137,17 @@ begin
SCreateCDS(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
ADOQueryMain.EnableControls;
end;
@ -183,6 +206,29 @@ 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);
begin
@ -228,6 +274,11 @@ begin
begin
ScrollBox1.Enabled := False;
end;
if FCOID <> '' then
begin
KHEdit();
end;
end;
procedure TfrmCustInput.TBRafreshClick(Sender: TObject);
@ -253,9 +304,37 @@ begin
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;
var
MaxId, MaxSubId, FCoCode, FCCID: string;
MaxId, MaxSubId, FCoCode, FCCID, FID, MaxDZId: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
@ -406,7 +485,7 @@ begin
end;
FieldByName('CCID').Value := Trim(MaxSubId);
FieldByName('COID').Value := Trim(MaxId);
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_LXR, 'BS_Company_contact', 0);
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_LXR, 'BS_Company_contact', 0);
Post;
end;
with CDS_LXR do
@ -420,6 +499,71 @@ begin
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
// begin
@ -441,7 +585,6 @@ end;
procedure TfrmCustInput.ToolButton3Click(Sender: TObject);
begin
if Trim(CoAbbrName.Text) = '' then
begin
Application.MessageBox('简称不能为空!', '提示', 0);
@ -452,6 +595,11 @@ begin
Application.MessageBox('名称不能为空!', '提示', 0);
Exit;
end;
if Trim(Saleser.Text) = '' then
begin
Application.MessageBox('业务员不能为空!', '提示', 0);
Exit;
end;
if SaveData() then
begin
Application.MessageBox('保存成功!', '提示', 0);
@ -459,6 +607,26 @@ begin
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);
var
maxno: string;
@ -520,6 +688,31 @@ begin
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);
var
DwFlag: string;

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

@ -3,12 +3,11 @@ inherited frmCustomer: TfrmCustomer
Top = 169
Caption = #23458#25143#36164#26009#31649#29702
ClientHeight = 611
ClientWidth = 1366
ClientWidth = 1345
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitLeft = -515
ExplicitWidth = 1382
ExplicitWidth = 1361
ExplicitHeight = 650
PixelsPerInch = 96
TextHeight = 12
@ -16,7 +15,7 @@ inherited frmCustomer: TfrmCustomer
Tag = 1
Left = 0
Top = 0
Width = 1366
Width = 1345
Height = 38
AutoSize = True
ButtonHeight = 38
@ -146,7 +145,7 @@ inherited frmCustomer: TfrmCustomer
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1366
Width = 1345
Height = 39
Align = alTop
BevelInner = bvRaised
@ -243,12 +242,10 @@ inherited frmCustomer: TfrmCustomer
object cxGrid1: TcxGrid [2]
Left = 0
Top = 99
Width = 1366
Width = 1345
Height = 309
Align = alClient
TabOrder = 2
ExplicitLeft = 1
ExplicitTop = 94
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -398,7 +395,7 @@ inherited frmCustomer: TfrmCustomer
DataBinding.FieldName = 'dept'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 67
Width = 73
end
object Tv1Column7: TcxGridDBColumn
Caption = #19978#32423#21333#20301
@ -424,7 +421,7 @@ inherited frmCustomer: TfrmCustomer
object Panel2: TPanel [3]
Left = 0
Top = 408
Width = 1366
Width = 1345
Height = 203
Align = alBottom
Caption = 'Panel2'
@ -432,12 +429,10 @@ inherited frmCustomer: TfrmCustomer
object cxGrid2: TcxGrid
Left = 1
Top = 1
Width = 1364
Width = 759
Height = 201
Align = alClient
Align = alLeft
TabOrder = 0
ExplicitLeft = 2
ExplicitTop = 6
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -519,11 +514,58 @@ inherited frmCustomer: TfrmCustomer
GridView = Tv2
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
object cxTabControl1: TcxTabControl [4]
Left = 0
Top = 77
Width = 1366
Width = 1345
Height = 22
Align = alTop
TabOrder = 4
@ -536,7 +578,7 @@ inherited frmCustomer: TfrmCustomer
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 22
ClientRectRight = 1366
ClientRectRight = 1345
ClientRectTop = 19
end
inherited ADOQueryBaseCmd: TADOQuery
@ -615,4 +657,15 @@ inherited frmCustomer: TfrmCustomer
Left = 286
Top = 273
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

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

@ -89,6 +89,12 @@ type
Tv1Column8: TcxGridDBColumn;
Tv1Contacts: TcxGridDBColumn;
Tv1Telephone: TcxGridDBColumn;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
TV2KHAddress: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
CDS_3: TClientDataSet;
DS_3: TDataSource;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -276,6 +282,18 @@ begin
Application.MessageBox('请选择数据!', '提示', 0);
Exit;
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
Exit;
@ -302,6 +320,7 @@ begin
FAuthority := self.fParameters1;
ReadCxGrid(trim(self.caption) + 'Tv1', Tv1, '客户管理');
ReadCxGrid(trim(self.caption) + 'Tv2', Tv2, '客户管理');
ReadCxGrid(trim(self.caption) + 'Tv3', Tv3, '客户管理');
SetStatus();
InitGrid();
end;
@ -315,6 +334,7 @@ procedure TfrmCustomer.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid(trim(self.caption) + 'Tv1', Tv1, '客户管理');
WriteCxGrid(trim(self.caption) + 'Tv2', Tv2, '客户管理');
WriteCxGrid(trim(self.caption) + 'Tv3', Tv3, '客户管理');
end;
procedure TfrmCustomer.ToolButton2Click(Sender: TObject);
@ -604,6 +624,19 @@ begin
SCreateCDS(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;
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.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.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.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.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.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\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.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.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.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.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.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.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.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.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.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.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.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>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>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10szXIANGYING"/>

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

@ -1,24 +1,52 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="DbPanel"/>
<File Path="DbPanel\MovePanel.pas"/>
<File Path="delphitwain"/>
<File Path="delphitwain\DelphiTwain.pas"/>
<File Path="delphitwain\DelphiTwainUtils.pas"/>
<File Path="delphitwain\Twain.pas"/>
<File Path="AES.pas"/>
<File Path="ElAES.pas"/>
<File Path="JDAESExtend.pas"/>
<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="logon.pas"/>
<File Path="logon.dfm"/>
<File Path="spmain.pas"/>
<File Path="spmain.dfm"/>
<File Path="U_iniParam.pas"/>
<File Path="U_Link.pas"/>
<File Path="U_Link.dfm"/>
<File Path="delphitwain"/>
<File Path="delphitwain\DelphiTwain.pas"/>
<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.dfm"/>
<File Path="U_Link.pas"/>
<File Path="U_Link.dfm"/>
<File Path="U_iniParam.pas"/>
<File Path="JDAESExtend.pas"/>
</ProjectSortOrder>
<Transactions>
<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
OldCreateOrder = True
OnDestroy = DataModuleDestroy
Height = 349
Width = 482

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

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

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

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

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

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

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

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

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

@ -13,7 +13,8 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC, System.StrUtils,
dxScrollbarAnnotations, U_BaseList, System.ImageList, Vcl.ImgList, U_BaseInput;
dxScrollbarAnnotations, U_BaseList, System.ImageList, Vcl.ImgList, U_BaseInput,
dxSkinWXI;
type
TfrmTatInspSHHZ = class(TfrmBaseList)
@ -62,9 +63,7 @@ type
Tv1Column4: TcxGridDBColumn;
Tv1SH_TD1: TcxGridDBColumn;
Tv1SH_ZW2: TcxGridDBColumn;
Tv1SH_JT3: TcxGridDBColumn;
Tv1SH_LTY4: TcxGridDBColumn;
Tv1SH_DZ5: TcxGridDBColumn;
Tv1SH_DJ6: TcxGridDBColumn;
Tv1SH_HD7: TcxGridDBColumn;
Tv1SH_DS8: TcxGridDBColumn;
@ -79,8 +78,12 @@ type
Tv1SH_KZ17: TcxGridDBColumn;
Tv1SH_SC18: TcxGridDBColumn;
Tv1SH_XY19: TcxGridDBColumn;
Tv1SH_YD20: TcxGridDBColumn;
Tv1SH_LC1: TcxGridDBColumn;
Tv1SH_PD21: TcxGridDBColumn;
Tv1SH_QT1: TcxGridDBColumn;
Tv1SH_JT1: TcxGridDBColumn;
Tv1SH_MFBZ1: TcxGridDBColumn;
Tv1SH_YB1: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
N4: TMenuItem;
N5: TMenuItem;
@ -97,7 +100,6 @@ type
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
@ -112,12 +114,26 @@ type
cxGridDBColumn21: TcxGridDBColumn;
cxGridDBColumn22: TcxGridDBColumn;
cxGridDBColumn23: TcxGridDBColumn;
cxGridDBColumn24: TcxGridDBColumn;
cxGridDBColumn25: TcxGridDBColumn;
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 FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -131,12 +147,10 @@ type
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);
@ -145,7 +159,6 @@ type
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
@ -269,6 +282,7 @@ procedure TfrmTatInspSHHZ.IsJYTimeClick(Sender: TObject);
begin
inherited;
InitGrid();
InitGrid2();
end;
procedure TfrmTatInspSHHZ.TBRafreshClick(Sender: TObject);
@ -308,7 +322,6 @@ begin
InitGrid2();
end;
end;
procedure TfrmTatInspSHHZ.TBCloseClick(Sender: TObject);
begin
@ -319,8 +332,8 @@ procedure TfrmTatInspSHHZ.FormShow(Sender: TObject);
begin
inherited;
// ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ËðºÄ»ã×ÜÁбí');
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ËðºÄ»ã×ÜÁбí');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ËðºÄ»ã×ÜÁбí');
CurrentPage := 1;
RecordsNumber := 500;
@ -533,6 +546,7 @@ end;
procedure TfrmTatInspSHHZ.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ËðºÄ»ã×ÜÁбí');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ËðºÄ»ã×ÜÁбí');
end;
end.

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

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

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

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

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

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

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

@ -504,13 +504,11 @@ type
procedure ToolButton8Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure MinLenExit(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure carnoBtnClick(Sender: TObject);
// procedure OutPutQty1Change(Sender: TObject);
procedure carnoClick(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure SpeedButton113Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
@ -548,7 +546,6 @@ type
procedure PackagingClick(Sender: TObject);
procedure tubeClick(Sender: TObject);
procedure Edit1Click(Sender: TObject);
private
{ Private declarations }
FCIID, FOperationStatus, FCIFName, FWorkshop: string;
@ -574,7 +571,6 @@ type
function SaveData(FINT: Integer): Boolean; //保存数据
procedure SetKGVisibility(F1: Integer);
function SaveData2(meter: double; grossweight: double): Boolean; //保存数据
procedure InitLCK(MPCId: string); //扫描流程卡
procedure InitJTM(MCIID: string); //扫描卷条码
@ -732,7 +728,6 @@ begin
while not ADOTMP.Eof do
begin
// TEdit(FindComponent('MF' + Trim(IntToStr(i)))).Text := '';
// TEdit(FindComponent('CODE' + Trim(IntToStr(i)))).Text := '';
// TEdit(FindComponent('NAME' + Trim(IntToStr(i)))).Text := ADOTMP.fieldbyName('C_MXNAME').AsString;
i := i + 1;
@ -1041,7 +1036,6 @@ begin
FCIID := Trim(maxno);
//保存挡车工信息
////////////////// 保存疵点信息 //////////////////
with CDS_2 do
begin
@ -2866,14 +2860,14 @@ begin
FieldByName('YG1').value := trim(YG1.Text);
FieldByName('YG2').value := trim(YG2.Text);
FieldByName('C_Code').value := trim(code.Text);//fcode;
FieldByName('C_Name').value := trim(codename.Text);// fname;//trim(codename.Text);
FieldByName('C_Code').value := trim(code.Text); //fcode;
FieldByName('C_Name').value := trim(codename.Text); // fname;//trim(codename.Text);
FieldByName('C_Spec').value := trim(Spec.Text);
FieldByName('C_Color').value := FC_Color;
FieldByName('C_ColorNo').value := FC_ColorNo;
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_Pattern').value := FC_Pattern;
FieldByName('C_CustPattern').value := FC_CustPattern;
@ -2940,7 +2934,6 @@ begin
//保存挡车工信息
////////////////// 保存疵点信息 //////////////////
with CDS_2 do
begin
@ -2992,7 +2985,6 @@ begin
////////////////// 保存疵点信息 //////////////////
///
///
////////////////// 更新卷号疵点信息 //////////////////
with ADOCmd do
begin
@ -3616,7 +3608,6 @@ begin
FFMXID := Trim(FHINT);
// TEdit(FindComponent('MF' + Trim(IntToStr(FXJINT)))).Text := Trim(FName);
// TEdit(FindComponent('CODE' + Trim(IntToStr(FXJINT)))).Text := Trim(FHINT);
// TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := Trim(FName);
end;
@ -3898,10 +3889,27 @@ begin
begin
close;
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);
open;
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
begin
batchno.Text := ADOTmp.FieldByName('batchno').AsString;
@ -3915,7 +3923,7 @@ begin
end
else
begin
FMFFlag := '分切';//为了选择门幅时做判断，为空选择产品门幅
FMFFlag := '分切'; //为了选择门幅时做判断，为空选择产品门幅
InitJTM(edtScan.Text);
end;
@ -3923,7 +3931,7 @@ begin
else
begin
ClearGlobal();
FMFFlag := '不分切';//为了选择门幅时做判断，为空选择产品门幅
FMFFlag := '不分切'; //为了选择门幅时做判断，为空选择产品门幅
FOperationStatus := '布票';
InitLCK(edtScan.Text);
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_TatClothStkHZList3 in 'U_TatClothStkHZList3.pas' {frmTatClothStkHZList3},
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}

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

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

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

@ -1,77 +1,78 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.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.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.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.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.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.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.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.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_BaseInput.pas</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.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.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.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.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.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.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.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.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.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.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.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.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.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.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.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.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10szXIANGYING"/>
@ -141,5 +142,7 @@
<File Path="U_TatClothCKHZList3.dfm"/>
<File Path="U_TatClothCRStkHZList.pas"/>
<File Path="U_TatClothCRStkHZList.dfm"/>
<File Path="U_KHCompanySel.pas"/>
<File Path="U_KHCompanySel.dfm"/>
</ProjectSortOrder>
</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 := '财务';
Parameters2 := '备货';
// DName := 'admin';
// DCode := 'ADMIN';
end
else
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
Width = 67
end
object Tv4Grade: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1C_Width: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
@ -642,6 +649,54 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
DataBinding.FieldName = 'amount'
DataBinding.IsNullValueType = True
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
end
end

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

@ -124,6 +124,13 @@ type
GPM_4: TcxGridPopupMenu;
Tv4PFPrice: 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 FormCreate(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(' where A.IONo not LIKE ''RSG%'' and A.IOFlag = ''³ö¿â'' ');
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(' order By A.C_CODE ,A.C_GramWeight');
// SQL.Add(' order by B.DRMID');
@ -388,10 +400,10 @@ begin
Close;
sql.Clear;
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IONO as DRMID');
sql.Add('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(', (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(', CAST(A.C_Width AS DECIMAL(18,2))/100 * SUM(A.meter) as pf');
SQL.Add(',ISNULL(A.issp, '''') as issp ');
@ -405,6 +417,11 @@ begin
// sql.Add(' and B.ToCoID = ' + QuotedStr(Trim(fToCoID)));
// sql.Add(' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp)));
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
begin
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) + '%'));
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(' 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);
Open;
@ -533,8 +550,10 @@ end;
procedure TfrmTatClothCKHZList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
if PageControl1.ActivePage.Caption = '有出库单出库' then
begin
if CDS_1.IsEmpty then
Exit;
with CDS_1 do
begin
Filtered := false;
@ -543,9 +562,46 @@ begin
end;
TcxGridToExcel(Self.Caption, cxGrid1);
InitGrid();
InitGrid2();
InitGrid3();
end
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();
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;
procedure TfrmTatClothCKHZList.orderNoKeyPress(Sender: TObject; var Key: Char);

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

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

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

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

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

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

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

@ -278,7 +278,7 @@ inherited frmTatClothCRStkHZList: TfrmTatClothCRStkHZList
ParentFont = False
PopupMenu = PM_1
TabOrder = 0
ExplicitLeft = 0
ExplicitLeft = 2
ExplicitTop = 6
object cxGrid1DBBandedTableView1: TcxGridDBBandedTableView
Navigator.Buttons.CustomButtons = <>
@ -577,6 +577,16 @@ inherited frmTatClothCRStkHZList: TfrmTatClothCRStkHZList
Position.ColIndex = 2
Position.RowIndex = 0
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
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

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

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

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

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

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

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

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

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

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

@ -112,6 +112,8 @@ type
Label11: TLabel;
IONO: TEdit;
N4: TMenuItem;
Tv1FHDH: TcxGridDBColumn;
ToolButton3: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -138,6 +140,7 @@ type
procedure ToolButton1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstCust: TStringList;
@ -298,6 +301,10 @@ end;
procedure TfrmTatClothOutList.TBRKCXClick(Sender: TObject);
var
MIOIDS, MStkIds, MOutNos: string;
// maxFHDH: string;
dangqianioFHDH: string;
dangqianFHDH: Integer;
HasEmpty, HasNonEmpty: Boolean;
begin
if CDS_1.IsEmpty then
Exit;
@ -310,6 +317,45 @@ begin
MIOIDS := '';
MStkIds := '';
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;
with CDS_1 do
begin
@ -321,6 +367,29 @@ begin
MIOIDS := MIOIDS + (Trim(CDS_1.fieldbyname('IOID').AsString)) + ',';
MStkIds := MStkIds + (Trim(CDS_1.fieldbyname('STKID').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;
Next;
end;
@ -336,6 +405,7 @@ begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
@ -388,6 +458,36 @@ begin
ExecSQL;
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;
InitGrid();
except
@ -571,6 +671,28 @@ begin
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);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '³ÉÆ·³ö¿âÁбí');

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -436,7 +436,7 @@ begin
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('撤销配货')));
sql.Add(',' + quotedstr(trim(MSTKIDS)));
sql.Add(',' + quotedstr(trim(MStkIds)));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
ExecSQL;
@ -504,6 +504,7 @@ end;
procedure TfrmTatClothStkListPH.ToolButton3Click(Sender: TObject);
var
MIOIDS, MStkIds, MOutNos: string;
mFHDH: string;
begin
if CDS_1.IsEmpty then
Exit;
@ -542,6 +543,36 @@ begin
try
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
begin
Close;
@ -595,7 +626,7 @@ end;
procedure TfrmTatClothStkListPH.ToolButton5Click(Sender: TObject);
var
MIOIDS, MStkIds, MOutNos: string;
mGiftReason : string;
mGiftReason: string;
begin
if CDS_1.IsEmpty then
Exit;
@ -631,7 +662,6 @@ begin
// if Application.MessageBox('确定要执行操作吗？', '提示', 32 + 4) <> IdyeS then
// Exit;
// 新增：弹出输入框让用户填写赠送原因
mGiftReason := '';
if not InputQuery('赠送原因', '请输入赠送原因：', mGiftReason) then

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

@ -4,11 +4,11 @@ inherited frmTatDRList: TfrmTatDRList
BorderStyle = bsNone
Caption = #21457#36135#30003#35831
ClientHeight = 792
ClientWidth = 1465
ClientWidth = 1293
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitWidth = 1481
ExplicitWidth = 1309
ExplicitHeight = 831
PixelsPerInch = 96
TextHeight = 12
@ -16,11 +16,11 @@ inherited frmTatDRList: TfrmTatDRList
Tag = 1
Left = 0
Top = 0
Width = 1465
Width = 1293
Height = 76
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonWidth = 115
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_TatClothStk.ImageList_new32
@ -35,6 +35,7 @@ inherited frmTatDRList: TfrmTatDRList
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 1465
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -75,13 +76,13 @@ inherited frmTatDRList: TfrmTatDRList
ImageIndex = 3
OnClick = TbGoodsEditClick
end
object ToolButton1: TToolButton
object TbLook: TToolButton
Left = 403
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 4
OnClick = ToolButton1Click
OnClick = TbLookClick
end
object TBDel: TToolButton
Left = 474
@ -107,16 +108,32 @@ inherited frmTatDRList: TfrmTatDRList
ImageIndex = 3
OnClick = TbEditPFPriceClick
end
object TBPrint: TToolButton
object TbEditNote: TToolButton
Left = 711
Top = 0
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
ImageIndex = 21
OnClick = TBPrintClick
end
object ToolButton2: TToolButton
Left = 782
Left = 996
Top = 0
AutoSize = True
Caption = #30721#21333#25171#21360
@ -124,24 +141,24 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = ToolButton2Click
end
object ToolButton3: TToolButton
Left = 877
Left = 1091
Top = 0
AutoSize = True
Caption = #21462#28040
ImageIndex = 10
Wrap = True
OnClick = ToolButton3Click
end
object tchk: TToolButton
Left = 948
Top = 0
Left = 0
Top = 38
AutoSize = True
Caption = #23457#26680
ImageIndex = 12
Wrap = True
OnClick = tchkClick
end
object Tnochk: TToolButton
Left = 0
Left = 71
Top = 38
AutoSize = True
Caption = #25764#38144#23457#26680
@ -149,7 +166,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = TnochkClick
end
object btnWC: TToolButton
Left = 95
Left = 166
Top = 38
AutoSize = True
Caption = #23436#25104
@ -157,7 +174,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = btnWCClick
end
object btnWCCX: TToolButton
Left = 166
Left = 237
Top = 38
AutoSize = True
Caption = #25764#38144#23436#25104
@ -165,7 +182,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = btnWCCXClick
end
object TbAddressCopy: TToolButton
Left = 261
Left = 332
Top = 38
AutoSize = True
Caption = #22320#22336#22797#21046
@ -173,7 +190,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = TbAddressCopyClick
end
object ToolButton4: TToolButton
Left = 356
Left = 427
Top = 38
AutoSize = True
Caption = #38468#20214
@ -181,7 +198,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = ToolButton4Click
end
object TBExport: TToolButton
Left = 427
Left = 498
Top = 38
AutoSize = True
Caption = #23548#20986
@ -189,7 +206,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = TBExportClick
end
object TbMXExport: TToolButton
Left = 498
Left = 569
Top = 38
AutoSize = True
Caption = #23548#20986#26126#32454
@ -197,15 +214,23 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = TbMXExportClick
end
object ToolButton7: TToolButton
Left = 593
Left = 664
Top = 38
AutoSize = True
Caption = #19968#38190#21457#36135
ImageIndex = 12
OnClick = ToolButton7Click
end
object TbUpdateM: TToolButton
Left = 759
Top = 38
AutoSize = True
Caption = #25968#37327#26356#26032
ImageIndex = 1
OnClick = TbUpdateMClick
end
object ToolButton6: TToolButton
Left = 688
Left = 854
Top = 38
AutoSize = True
Caption = #20445#23384#26684#24335
@ -213,7 +238,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = ToolButton6Click
end
object ToolButton5: TToolButton
Left = 783
Left = 949
Top = 38
AutoSize = True
Caption = #25764#38144#21462#28040
@ -221,7 +246,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = ToolButton5Click
end
object TBClose: TToolButton
Left = 878
Left = 1044
Top = 38
AutoSize = True
Caption = #20851#38381
@ -229,7 +254,7 @@ inherited frmTatDRList: TfrmTatDRList
OnClick = TBCloseClick
end
object ToolButton8: TToolButton
Left = 949
Left = 1115
Top = 38
AutoSize = True
Caption = #36135#26410#21457#20840
@ -240,7 +265,7 @@ inherited frmTatDRList: TfrmTatDRList
object Panel1: TPanel [1]
Left = 0
Top = 76
Width = 1465
Width = 1293
Height = 45
Align = alTop
BevelInner = bvRaised
@ -248,6 +273,7 @@ inherited frmTatDRList: TfrmTatDRList
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitWidth = 1465
object Label4: TLabel
Left = 520
Top = 15
@ -386,6 +412,7 @@ inherited frmTatDRList: TfrmTatDRList
Height = 20
TabOrder = 2
OnChange = ToCoNameChange
OnKeyPress = ToCoNameKeyPress
end
object MPRTCodeName: TEdit
Tag = 2
@ -456,7 +483,7 @@ inherited frmTatDRList: TfrmTatDRList
object cxTabControl1: TcxTabControl [2]
Left = 0
Top = 121
Width = 1465
Width = 1293
Height = 21
Align = alTop
TabOrder = 2
@ -470,36 +497,40 @@ inherited frmTatDRList: TfrmTatDRList
#24050#21462#28040
#20840#37096)
OnChange = cxTabControl1Change
ExplicitWidth = 1465
ClientRectRight = 0
ClientRectTop = 0
end
object cxSplitter1: TcxSplitter [3]
Left = 0
Top = 784
Width = 1465
Width = 1293
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
ExplicitWidth = 1465
end
object PageControl1: TPageControl [4]
Left = 0
Top = 142
Width = 1465
Width = 1293
Height = 642
ActivePage = TabSheet1
Align = alClient
TabOrder = 4
OnChange = PageControl1Change
ExplicitWidth = 1465
object TabSheet1: TTabSheet
Caption = ' '#27719#24635
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1457
Width = 1285
Height = 337
Align = alClient
PopupMenu = PM_1
TabOrder = 0
ExplicitTop = -6
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -633,12 +664,12 @@ inherited frmTatDRList: TfrmTatDRList
Options.Editing = False
Width = 124
end
object TV1CoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CoName'
object TV1CompanyName: TcxGridDBColumn
Caption = #20844#21496#25260#22836
DataBinding.FieldName = 'CompanyName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 139
Width = 105
end
object TV1Saleser: TcxGridDBColumn
Caption = #19994#21153#21592
@ -759,13 +790,14 @@ inherited frmTatDRList: TfrmTatDRList
object cxGrid2: TcxGrid
Left = 0
Top = 337
Width = 1457
Width = 1285
Height = 277
Align = alBottom
PopupMenu = PM_2
TabOrder = 1
ExplicitLeft = 3
ExplicitTop = 335
ExplicitLeft = 112
ExplicitTop = 343
ExplicitWidth = 1457
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -936,11 +968,82 @@ inherited frmTatDRList: TfrmTatDRList
HeaderAlignmentHorz = taCenter
Width = 87
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
object cxGridLevel1: TcxGridLevel
GridView = TV2
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
object TabSheet2: TTabSheet
Caption = ' '#26126#32454
@ -948,12 +1051,14 @@ inherited frmTatDRList: TfrmTatDRList
object cxGrid3: TcxGrid
Left = 0
Top = 0
Width = 1457
Width = 1285
Height = 614
Align = alClient
PopupMenu = pm_3
TabOrder = 0
ExplicitWidth = 1457
object TV3: TcxGridDBTableView
OnDblClick = TV3DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
@ -994,41 +1099,6 @@ inherited frmTatDRList: TfrmTatDRList
HeaderAlignmentHorz = taCenter
Width = 49
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
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
@ -1045,22 +1115,6 @@ inherited frmTatDRList: TfrmTatDRList
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'
@ -1085,15 +1139,6 @@ inherited frmTatDRList: TfrmTatDRList
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'
@ -1102,22 +1147,6 @@ inherited frmTatDRList: TfrmTatDRList
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'
@ -1142,52 +1171,6 @@ inherited frmTatDRList: TfrmTatDRList
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 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
object cxGridLevel2: TcxGridLevel
GridView = TV3
@ -1202,8 +1185,8 @@ inherited frmTatDRList: TfrmTatDRList
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Left = 153
Top = 233
Left = 121
Top = 313
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
@ -1214,22 +1197,22 @@ inherited frmTatDRList: TfrmTatDRList
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
Parameters = <>
Left = 440
Top = 156
Left = 432
Top = 252
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 552
Top = 168
Left = 568
Top = 248
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 672
Top = 160
Left = 768
Top = 232
end
object DataSource1: TDataSource
DataSet = Order_Main

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

@ -13,7 +13,7 @@ uses
cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList, Clipbrd,
dxDateRanges, dxScrollbarAnnotations, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, cxButtons;
IdTCPConnection, IdTCPClient, IdHTTP, cxButtons, BtnEdit;
type
TfrmTatDRList = class(TfrmBaseList)
@ -31,7 +31,7 @@ type
DataSource1: TDataSource;
TBExport: TToolButton;
Order_Main: TClientDataSet;
ToolButton1: TToolButton;
TbLook: TToolButton;
Panel1: TPanel;
Label4: TLabel;
Label8: TLabel;
@ -92,7 +92,6 @@ type
v1OrdDate: TcxGridDBColumn;
Tv1DlyDate: TcxGridDBColumn;
TV1ToCoName: TcxGridDBColumn;
TV1CoName: TcxGridDBColumn;
TV1Saleser: TcxGridDBColumn;
TV1Contacts: TcxGridDBColumn;
TV1Telephone: TcxGridDBColumn;
@ -133,22 +132,13 @@ type
TV3: TcxGridDBTableView;
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;
cxGridLevel2: TcxGridLevel;
pm_3: TPopupMenu;
N4: TMenuItem;
@ -159,14 +149,19 @@ type
GPM_1: TcxGridPopupMenu;
TbMXExport: TToolButton;
TV3ssel: TcxGridDBColumn;
TV3DRMID: TcxGridDBColumn;
TV3Saleser: TcxGridDBColumn;
TV3ToCoName: TcxGridDBColumn;
TV3Filltime: TcxGridDBColumn;
TV3DlyDate: TcxGridDBColumn;
TV3Contacts: TcxGridDBColumn;
TV3Telephone: 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;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -181,7 +176,7 @@ type
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TbLookClick(Sender: TObject);
procedure ToCoNameChange(Sender: TObject);
procedure tchkClick(Sender: TObject);
procedure TnochkClick(Sender: TObject);
@ -217,6 +212,14 @@ type
procedure N5Click(Sender: TObject);
procedure N4Click(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
fcxGridStyleFlag: Boolean;
procedure InitGrid();
@ -240,7 +243,7 @@ implementation
uses
U_DataLink, U_TatDRtInPut, U_RTFun, U_ZDYHelp, U_LabelPrint,
U_AttachmentUpload;
U_AttachmentUpload, U_TatDRList2;
{$R *.dfm}
@ -257,12 +260,12 @@ begin
TBEdit.Enabled := False;
Tv1ToCoName.Visible := False;
Tv1CoName.Visible := False;
// Tv1CoName.Visible := False;
TBDel.Enabled := False;
if CANSHU1 = '查询' then
begin
ToolButton1.Enabled := True;
TbLook.Enabled := True;
TBPrint.Enabled := True;
ToolButton2.Enabled := True;
ToolButton4.Enabled := True;
@ -290,7 +293,8 @@ begin
if canshu1 = '管理' then
begin
Tv1CoName.Visible := True;
// Tv1CoName.Visible := True;
Tv1ToCoName.Visible := True;
case cxTabControl1.TabIndex of
0:
begin
@ -463,10 +467,12 @@ begin
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理');
ReadCxGrid(trim(self.Caption) + 'Tv3', Tv3, '发货管理');
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 60;
InitGrid();
InitSubGrid2();
end;
@ -529,6 +535,11 @@ begin
PState := 1;
canshu1 := self.canshu1;
isCheck := cxTabControl1.TabIndex;
TbSavePFPrice.Visible := false;
TbSave.Visible := true;
TbSaveNote.Visible := false;
Tv1Volume.Options.Editing := False;
Tv1ApplicationReaon.Options.Editing := False;
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
@ -542,6 +553,35 @@ begin
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);
begin
if Order_Main.IsEmpty then
@ -551,9 +591,10 @@ begin
frmTatDRtInPut := TfrmTatDRtInPut.Create(Application);
with frmTatDRtInPut do
begin
PState := 999;
PState := 999; //修改单价
TbSavePFPrice.Visible := True;
TbSave.Visible := false;
TbSaveNote.Visible := false;
canshu1 := self.canshu1;
isCheck := cxTabControl1.TabIndex;
Tv1Volume.Options.Editing := False;
@ -619,6 +660,7 @@ begin
begin
Order_Main.Delete;
InitSubGrid();
InitSubGrid2();
end;
end;
@ -727,7 +769,9 @@ end;
procedure TfrmTatDRList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
if PageControl1.ActivePage.Caption = ' 汇总' then
begin
if Order_Main.IsEmpty then
Exit;
with Order_Main do
begin
@ -737,6 +781,21 @@ begin
end;
TcxGridToExcel(Self.Caption, cxGrid1);
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;
procedure TfrmTatDRList.TBPrintClick(Sender: TObject);
@ -787,6 +846,11 @@ begin
PState := 0;
isCheck := 0;
FDRMID := '';
TbSavePFPrice.Visible := false;
TbSave.Visible := true;
TbSaveNote.Visible := false;
canshu1 := self.canshu1;
if ShowModal = 1 then
begin
@ -858,7 +922,31 @@ begin
TBRafresh.Click;
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
if Order_Main.IsEmpty then
Exit;
@ -870,6 +958,8 @@ begin
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
ToolBar2.Visible := False;
TBSave.Visible := False;
TbSavePFPrice.Visible := false;
TbSaveNote.Visible := false;
ScrollBox1.Enabled := False;
canshu1 := self.canshu1;
Tv1.OptionsSelection.CellSelect := False;
@ -883,6 +973,71 @@ begin
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);
begin
inherited;
@ -1023,6 +1178,16 @@ begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(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;
procedure TfrmTatDRList.tchkClick(Sender: TObject);
@ -1100,13 +1265,31 @@ begin
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.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(' select A.C_Code,A.C_Name,A.C_Width,A.C_GramWeight ');
SQL.Add(' ,sum(Piece) as Piece,sum(pingfang) as pingfang,sum(DlyPiece) as DlyPiece,sum(DlyQty) as DlyQty,sum(DLYKGQTY) as DLYKGQTY');
// 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 ');
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');
// 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) + ''' ');
@ -1139,8 +1322,9 @@ begin
begin
sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
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);
Open;
@ -1198,6 +1382,13 @@ begin
begin
InitSubGrid2();
TbMXExport.Visible := True;
// TbLook.Visible := False;
// TBDel.visible := False;
// TBEdit.Visible := False;
// TbEditPFPrice.visible := false;
// TbEditNote.visible := false;
end
else
begin
@ -1312,18 +1503,113 @@ begin
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);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理');
WriteCxGrid(trim(self.Caption) + 'Tv3', Tv3, '发货管理');
end;
procedure TfrmTatDRList.ToolButton7Click(Sender: TObject);
var
mFHDH: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
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
begin
close;
@ -1364,8 +1650,11 @@ begin
InitGrid();
InitSubGrid();
application.MessageBox('操作成功！', '提示信息');
ADOQueryCmd.Connection.CommitTrans;
except
application.MessageBox('操作失败！', '提示信息', 0);
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
// application.MessageBox('操作失败！', '提示信息', 0);
end;
end;
@ -1398,6 +1687,35 @@ begin
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);
var
str: string;
@ -1593,6 +1911,56 @@ begin
InitSubGrid();
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);
//单格子
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 = []
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
@ -56,17 +57,25 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ImageIndex = 16
OnClick = TbSavePFPriceClick
end
object TbPHSave: TToolButton
object TbSaveNote: TToolButton
Left = 166
Top = 0
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
ImageIndex = 16
Visible = False
OnClick = TbPHSaveClick
end
object ToolButton4: TToolButton
Left = 261
Left = 356
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -74,7 +83,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 356
Left = 451
Top = 0
AutoSize = True
Caption = #20851#38381
@ -86,7 +95,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Left = 0
Top = 38
Width = 1264
Height = 99
Height = 131
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@ -95,6 +104,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentColor = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 32
object Label1: TLabel
Left = 244
Top = 13
@ -110,7 +120,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end
object Label12: TLabel
Left = 31
Top = 72
Top = 97
Width = 65
Height = 12
Caption = #35746#21333#22791#27880#65306
@ -150,9 +160,9 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object Label27: TLabel
Left = 703
Top = 12
Width = 52
Width = 65
Height = 15
Caption = #25968#37327#21333#20301
Caption = #25968#37327#21333#20301#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -162,7 +172,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end
object Label4: TLabel
Left = 31
Top = 43
Top = 68
Width = 67
Height = 12
Caption = #33136' '#23553#65306
@ -175,7 +185,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end
object Label5: TLabel
Left = 241
Top = 43
Top = 68
Width = 67
Height = 12
Caption = #32440' '#31649#65306
@ -188,7 +198,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end
object Label6: TLabel
Left = 463
Top = 43
Top = 68
Width = 66
Height = 12
Caption = #21253' '#35013' '#34955#65306
@ -200,8 +210,8 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentFont = False
end
object Label7: TLabel
Left = 693
Top = 38
Left = 885
Top = 16
Width = 53
Height = 12
Caption = #23458#25143'ID'#65306
@ -213,6 +223,32 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentFont = False
Visible = False
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
Tag = 1
Left = 306
@ -228,15 +264,15 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object Note: TEdit
Tag = 1
Left = 96
Top = 70
Width = 962
Top = 95
Width = 950
Height = 18
TabOrder = 2
end
object ToCoName: TBtnEditC
Tag = 1
Left = 528
Top = 9
Left = 531
Top = 5
Width = 138
Height = 20
ReadOnly = True
@ -257,7 +293,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end
object QtyUnit: TComboBox
Tag = 2
Left = 758
Left = 767
Top = 9
Width = 96
Height = 20
@ -273,7 +309,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object Seal: TEdit
Tag = 1
Left = 96
Top = 40
Top = 65
Width = 132
Height = 18
TabOrder = 5
@ -281,7 +317,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object tube: TEdit
Tag = 1
Left = 306
Top = 40
Top = 65
Width = 132
Height = 18
TabOrder = 6
@ -289,25 +325,43 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object Packaging: TEdit
Tag = 1
Left = 528
Top = 40
Top = 65
Width = 132
Height = 18
TabOrder = 7
end
object ToCoID: TEdit
Tag = 1
Left = 758
Top = 35
Left = 950
Top = 13
Width = 96
Height = 18
TabOrder = 8
Visible = False
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
object ToolBar2: TToolBar
Tag = 1
Left = 0
Top = 137
Top = 169
Width = 1264
Height = 38
AutoSize = True
@ -329,6 +383,8 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentFont = False
ShowCaptions = True
TabOrder = 2
ExplicitLeft = 8
ExplicitTop = 143
object ToolButton3: TToolButton
Left = 0
Top = 0
@ -373,11 +429,12 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end
object cxGrid1: TcxGrid
Left = 0
Top = 175
Top = 207
Width = 1264
Height = 469
Height = 437
Align = alClient
TabOrder = 3
ExplicitTop = 213
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -521,6 +578,38 @@ object frmTatDRtInPut: TfrmTatDRtInPut
HeaderAlignmentHorz = taCenter
Width = 80
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
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

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

@ -71,6 +71,14 @@ type
Tv1PFPrice: TcxGridDBColumn;
Tv1editStatus: TcxGridDBColumn;
TbSavePFPrice: TToolButton;
Tv1isIncludeTax: TcxGridDBColumn;
Tv1note: TcxGridDBColumn;
TbSaveNote: TToolButton;
Label3: TLabel;
CompanyName: TBtnEditC;
Tv1Grade: TcxGridDBColumn;
Label8: TLabel;
KHaddress: TEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -88,12 +96,17 @@ type
procedure TbPHSaveClick(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure TbSavePFPriceClick(Sender: TObject);
procedure TbSaveNoteClick(Sender: TObject);
procedure CompanyNameBtnUpClick(Sender: TObject);
procedure CompanyNameBtnDnClick(Sender: TObject);
procedure Tv1GradePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
fuserName: string;
procedure InitData();
function SaveData(): Boolean;
function SavePHData(): Boolean;
procedure C_NumHB();
function CheckCusShip(): Boolean;
{ Private declarations }
public
PState, CopyInt: Integer;
@ -110,7 +123,7 @@ implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_TatPlanSel, U_TatClothInfoSel,
U_TatClothStkHZListSEL;
U_TatClothStkHZListSEL,U_KHCompanySel;
{$R *.dfm}
@ -163,7 +176,7 @@ begin
SQL.Clear;
sql.Add(' select 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
sql.Add('where DRMID=''' + Trim(FDRMID) + '''');
end;
@ -298,6 +311,35 @@ begin
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();
var
LocateValues: variant;
@ -374,6 +416,24 @@ begin
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;
var
MaxMid, MaxSid: string;
@ -517,11 +577,36 @@ begin
Exit;
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
Application.MessageBox('细码申请匹数和数量不能全为空！', '提示', 0);
Exit;
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);
C_NumHB();
///////////////////////////////////////配货申请原因////////////////////
@ -546,11 +631,74 @@ begin
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);
var
MaxMid, MaxSid: string;
CurrentYear: string;
begin
if (Order_Sub.Locate('PFPrice', null, [])) = True then
begin
Application.MessageBox('平方单价不能为空！', '提示', 0);
Exit;
end;
///////////////// 保存子表 /////////////////
Order_Sub.DisableControls;
MaxMid := Trim(FDRMID);
@ -896,12 +1044,32 @@ begin
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);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
frmKHCompanySel := TfrmKHCompanySel.Create(Application);
with frmKHCompanySel do
begin
FCoType := '客户';
if canshu1 = '录入' then
@ -910,14 +1078,16 @@ begin
end;
if ShowModal = 1 then
begin
self.ToCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.ToCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
self.ToCoID.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoID').AsString);
self.ToCoName.TxtCode := Trim(frmKHCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.ToCoName.Text := Trim(frmKHCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
self.ToCoID.Text := Trim(frmKHCompanySel.CDS_1.fieldbyname('CoID').AsString);
self.KHAddress.Text := Trim(frmKHCompanySel.CDS_2.fieldbyname('KHaddress').AsString);
end;
end;
finally
frmCompanySel.Free;
frmKHCompanySel.Free;
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.