~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
f599f9a69b
commit
55c3cb8cdc
507
针织检验管理/U_ClothHCListDD.dfm
Normal file
507
针织检验管理/U_ClothHCListDD.dfm
Normal file
|
|
@ -0,0 +1,507 @@
|
||||||
|
object frmClothHCListDD: TfrmClothHCListDD
|
||||||
|
Left = 377
|
||||||
|
Top = 240
|
||||||
|
Width = 1179
|
||||||
|
Height = 705
|
||||||
|
Caption = #26816#39564#25351#31034#21333#26597#35810
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poScreenCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
OnDestroy = FormDestroy
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 12
|
||||||
|
object ToolBar1: TToolBar
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1163
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 30
|
||||||
|
ButtonWidth = 59
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clSkyBlue
|
||||||
|
Flat = True
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
Images = DataLink_TradeManage.ThreeImgList
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 0
|
||||||
|
object TBRafresh: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21047#26032
|
||||||
|
ImageIndex = 2
|
||||||
|
OnClick = TBRafreshClick
|
||||||
|
end
|
||||||
|
object TBFind: TToolButton
|
||||||
|
Left = 63
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #36807#28388
|
||||||
|
ImageIndex = 59
|
||||||
|
OnClick = TBFindClick
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 126
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 55
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 32
|
||||||
|
Width = 1163
|
||||||
|
Height = 73
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
Color = clSkyBlue
|
||||||
|
TabOrder = 1
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 23
|
||||||
|
Top = 22
|
||||||
|
Width = 52
|
||||||
|
Height = 12
|
||||||
|
Caption = #21046#21333#26085#26399
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 190
|
||||||
|
Top = 23
|
||||||
|
Width = 53
|
||||||
|
Height = 12
|
||||||
|
Caption = #35746' '#21333' '#21495
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 729
|
||||||
|
Top = 30
|
||||||
|
Width = 54
|
||||||
|
Height = 12
|
||||||
|
Caption = #39068' '#33394
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label9: TLabel
|
||||||
|
Left = 592
|
||||||
|
Top = 6
|
||||||
|
Width = 53
|
||||||
|
Height = 12
|
||||||
|
Caption = #21512' '#21516' '#21495
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 592
|
||||||
|
Top = 30
|
||||||
|
Width = 52
|
||||||
|
Height = 12
|
||||||
|
Caption = #20135#21697#21517#31216
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
Left = 729
|
||||||
|
Top = 6
|
||||||
|
Width = 52
|
||||||
|
Height = 12
|
||||||
|
Caption = #22411#21495#35268#26684
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 190
|
||||||
|
Top = 46
|
||||||
|
Width = 52
|
||||||
|
Height = 12
|
||||||
|
Caption = #35746#21333#26465#30721
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 901
|
||||||
|
Top = 6
|
||||||
|
Width = 52
|
||||||
|
Height = 12
|
||||||
|
Caption = #33457#22411#33457#21495
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object BegDate: TDateTimePicker
|
||||||
|
Left = 76
|
||||||
|
Top = 18
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
Date = 40675.464742650460000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 40675.464742650460000000
|
||||||
|
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object EndDate: TDateTimePicker
|
||||||
|
Left = 76
|
||||||
|
Top = 42
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
Date = 40675.464761099540000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 40675.464761099540000000
|
||||||
|
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object OrderNoM: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 246
|
||||||
|
Top = 18
|
||||||
|
Width = 98
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 2
|
||||||
|
OnChange = OrderNoMChange
|
||||||
|
OnKeyPress = OrderNoMKeyPress
|
||||||
|
end
|
||||||
|
object PRTColor: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 786
|
||||||
|
Top = 26
|
||||||
|
Width = 85
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 3
|
||||||
|
Visible = False
|
||||||
|
OnChange = OrderNoMChange
|
||||||
|
end
|
||||||
|
object SubID: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 246
|
||||||
|
Top = 42
|
||||||
|
Width = 98
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 4
|
||||||
|
Visible = False
|
||||||
|
OnChange = OrderNoMChange
|
||||||
|
end
|
||||||
|
object conNo: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 648
|
||||||
|
Top = 2
|
||||||
|
Width = 86
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 5
|
||||||
|
Visible = False
|
||||||
|
OnChange = OrderNoMChange
|
||||||
|
end
|
||||||
|
object prtCodeName: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 648
|
||||||
|
Top = 26
|
||||||
|
Width = 86
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 6
|
||||||
|
Visible = False
|
||||||
|
OnChange = OrderNoMChange
|
||||||
|
end
|
||||||
|
object prtspec: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 785
|
||||||
|
Top = 2
|
||||||
|
Width = 85
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 7
|
||||||
|
Visible = False
|
||||||
|
OnChange = OrderNoMChange
|
||||||
|
end
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 380
|
||||||
|
Top = 12
|
||||||
|
Width = 137
|
||||||
|
Height = 45
|
||||||
|
Caption = #30830#23450#36873#25321
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 8
|
||||||
|
OnClick = Button1Click
|
||||||
|
end
|
||||||
|
object PRTHX: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 957
|
||||||
|
Top = 2
|
||||||
|
Width = 85
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 9
|
||||||
|
Visible = False
|
||||||
|
OnChange = OrderNoMChange
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid2: TcxGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 105
|
||||||
|
Width = 1163
|
||||||
|
Height = 561
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 2
|
||||||
|
object TV2: TcxGridDBTableView
|
||||||
|
OnDblClick = TV2DblClick
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
DataController.DataSource = DataSource1
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = '0'
|
||||||
|
Position = spFooter
|
||||||
|
end>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsBehavior.GoToNextCellOnEnter = True
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsData.Editing = False
|
||||||
|
OptionsSelection.CellSelect = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||||
|
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||||
|
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||||
|
Styles.Header = DataLink_TradeManage.Default
|
||||||
|
object V2filltime: TcxGridDBColumn
|
||||||
|
Caption = #21046#21333#26102#38388
|
||||||
|
DataBinding.FieldName = 'filltime'
|
||||||
|
PropertiesClassName = 'TcxDateEditProperties'
|
||||||
|
Properties.SaveTime = False
|
||||||
|
Properties.ShowTime = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 96
|
||||||
|
end
|
||||||
|
object V2Subid: TcxGridDBColumn
|
||||||
|
Caption = #35746#21333#26465#30721
|
||||||
|
DataBinding.FieldName = 'Subid'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 58
|
||||||
|
end
|
||||||
|
object V2Column10: TcxGridDBColumn
|
||||||
|
Caption = #35746#21333#21495
|
||||||
|
DataBinding.FieldName = 'OrderNoM'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 72
|
||||||
|
end
|
||||||
|
object V2CustomerNoName: TcxGridDBColumn
|
||||||
|
Caption = #23458#25143
|
||||||
|
DataBinding.FieldName = 'CustomerNoName'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 118
|
||||||
|
end
|
||||||
|
object V2KHOrderNo: TcxGridDBColumn
|
||||||
|
Caption = #23458#25143#35746#21333#21495
|
||||||
|
DataBinding.FieldName = 'KHOrderNo'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object V2Column14: TcxGridDBColumn
|
||||||
|
Caption = #21512#21516#21495
|
||||||
|
DataBinding.FieldName = 'conNo'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object V2Column15: TcxGridDBColumn
|
||||||
|
Caption = #20135#21697#21517#31216
|
||||||
|
DataBinding.FieldName = 'prtCodeName'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object V2Column16: TcxGridDBColumn
|
||||||
|
Caption = #22411#21495#35268#26684
|
||||||
|
DataBinding.FieldName = 'prtspec'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object V2Column13: TcxGridDBColumn
|
||||||
|
Caption = #39068#33394
|
||||||
|
DataBinding.FieldName = 'PRTColor'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 77
|
||||||
|
end
|
||||||
|
object V2Column1: TcxGridDBColumn
|
||||||
|
Caption = #33394#21495
|
||||||
|
DataBinding.FieldName = 'SOrddefstr1'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 73
|
||||||
|
end
|
||||||
|
object V2Column2: TcxGridDBColumn
|
||||||
|
Caption = #33457#22411#33457#21495
|
||||||
|
DataBinding.FieldName = 'PRTHX'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 60
|
||||||
|
end
|
||||||
|
object V2MPRTNiuDu: TcxGridDBColumn
|
||||||
|
Caption = #25968#37327#35201#27714
|
||||||
|
DataBinding.FieldName = 'MPRTNiuDu'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 65
|
||||||
|
end
|
||||||
|
object V2MPRTBZNote: TcxGridDBColumn
|
||||||
|
Caption = #21253#35013#35201#27714
|
||||||
|
DataBinding.FieldName = 'MPRTBZNote'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 65
|
||||||
|
end
|
||||||
|
object V2PRTOrderQty: TcxGridDBColumn
|
||||||
|
Caption = #25968#37327
|
||||||
|
DataBinding.FieldName = 'PRTOrderQty'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 65
|
||||||
|
end
|
||||||
|
object V2OrderUnit: TcxGridDBColumn
|
||||||
|
Caption = #25968#37327#21333#20301
|
||||||
|
DataBinding.FieldName = 'OrderUnit'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 65
|
||||||
|
end
|
||||||
|
object TV2Column1: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'mainid'
|
||||||
|
Visible = False
|
||||||
|
Width = 30
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridLevel1: TcxGridLevel
|
||||||
|
GridView = TV2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid2
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 448
|
||||||
|
Top = 168
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_TradeManage.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 800
|
||||||
|
Top = 12
|
||||||
|
end
|
||||||
|
object ADOQueryMain: TADOQuery
|
||||||
|
Connection = DataLink_TradeManage.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 944
|
||||||
|
Top = 24
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_TradeManage.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 720
|
||||||
|
Top = 216
|
||||||
|
end
|
||||||
|
object DataSource1: TDataSource
|
||||||
|
DataSet = Order_Main
|
||||||
|
Left = 824
|
||||||
|
Top = 184
|
||||||
|
end
|
||||||
|
object Order_Main: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 840
|
||||||
|
Top = 192
|
||||||
|
end
|
||||||
|
end
|
||||||
234
针织检验管理/U_ClothHCListDD.pas
Normal file
234
针织检验管理/U_ClothHCListDD.pas
Normal file
|
|
@ -0,0 +1,234 @@
|
||||||
|
unit U_ClothHCListDD;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
|
||||||
|
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
|
||||||
|
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
|
||||||
|
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||||
|
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
|
||||||
|
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxDropDownEdit,
|
||||||
|
cxCheckBox, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
|
||||||
|
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
|
||||||
|
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||||||
|
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
|
||||||
|
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
|
||||||
|
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||||
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||||
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||||
|
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
|
||||||
|
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
|
||||||
|
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
|
||||||
|
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||||
|
dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmClothHCListDD = class(TForm)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBRafresh: TToolButton;
|
||||||
|
TBFind: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
Panel1: TPanel;
|
||||||
|
BegDate: TDateTimePicker;
|
||||||
|
EndDate: TDateTimePicker;
|
||||||
|
Label1: TLabel;
|
||||||
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
DataSource1: TDataSource;
|
||||||
|
Label3: TLabel;
|
||||||
|
OrderNoM: TEdit;
|
||||||
|
Order_Main: TClientDataSet;
|
||||||
|
Label6: TLabel;
|
||||||
|
PRTColor: TEdit;
|
||||||
|
cxGrid2: TcxGrid;
|
||||||
|
TV2: TcxGridDBTableView;
|
||||||
|
V2filltime: TcxGridDBColumn;
|
||||||
|
cxGridLevel1: TcxGridLevel;
|
||||||
|
V2Column10: TcxGridDBColumn;
|
||||||
|
V2Column13: TcxGridDBColumn;
|
||||||
|
V2Subid: TcxGridDBColumn;
|
||||||
|
V2KHOrderNo: TcxGridDBColumn;
|
||||||
|
V2Column14: TcxGridDBColumn;
|
||||||
|
SubID: TEdit;
|
||||||
|
conNo: TEdit;
|
||||||
|
Label9: TLabel;
|
||||||
|
V2Column15: TcxGridDBColumn;
|
||||||
|
V2Column16: TcxGridDBColumn;
|
||||||
|
prtCodeName: TEdit;
|
||||||
|
Label2: TLabel;
|
||||||
|
prtspec: TEdit;
|
||||||
|
Label10: TLabel;
|
||||||
|
V2CustomerNoName: TcxGridDBColumn;
|
||||||
|
V2MPRTNiuDu: TcxGridDBColumn;
|
||||||
|
V2MPRTBZNote: TcxGridDBColumn;
|
||||||
|
V2PRTOrderQty: TcxGridDBColumn;
|
||||||
|
Label4: TLabel;
|
||||||
|
V2OrderUnit: TcxGridDBColumn;
|
||||||
|
Button1: TButton;
|
||||||
|
V2Column1: TcxGridDBColumn;
|
||||||
|
V2Column2: TcxGridDBColumn;
|
||||||
|
PRTHX: TEdit;
|
||||||
|
Label5: TLabel;
|
||||||
|
TV2Column1: TcxGridDBColumn;
|
||||||
|
procedure FormDestroy(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure TBFindClick(Sender: TObject);
|
||||||
|
procedure TBRafreshClick(Sender: TObject);
|
||||||
|
procedure OrderNoMChange(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure OrderNoMKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure TV2DblClick(Sender: TObject);
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
FInt, PFInt: Integer;
|
||||||
|
procedure InitGrid();
|
||||||
|
procedure InitForm();
|
||||||
|
procedure InitGridWSQL(FWSQL: string);
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
fType: string;
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmClothHCListDD: TfrmClothHCListDD;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_ClothContractInPut, U_Fun, U_ProductOrderList, U_ZDYHelp,
|
||||||
|
U_ProductOrderNewList_JD;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmClothHCListDD.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
frmClothHCListDD := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothHCListDD.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothHCListDD.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
WriteCxGrid(self.Caption + tv2.Name, Tv2, 'ָʾµ¥¹ÜÀí1');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothHCListDD.InitGrid();
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
//ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
|
||||||
|
Close;
|
||||||
|
Filtered := False;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('exec P_View_HC :begdate,:enddate,:WSQL');
|
||||||
|
Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', BegDate.Date);
|
||||||
|
Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', EndDate.Date + 1);
|
||||||
|
Parameters.ParamByName('WSQL').Value := '';
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||||
|
finally
|
||||||
|
//ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothHCListDD.InitGridWSQL(FWSQL: string);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Filtered := False;
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('exec P_View_HC :begdate,:enddate,:WSQL');
|
||||||
|
Parameters.ParamByName('begdate').Value := '2014-01-01';
|
||||||
|
Parameters.ParamByName('enddate').Value := '2050-01-01';
|
||||||
|
Parameters.ParamByName('WSQL').Value := FWSQL;
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothHCListDD.InitForm();
|
||||||
|
begin
|
||||||
|
ReadCxGrid(self.Caption + tv2.Name, Tv2, 'ָʾµ¥¹ÜÀí1');
|
||||||
|
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
|
||||||
|
BegDate.DateTime := EndDate.DateTime - 7;
|
||||||
|
//InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothHCListDD.TBFindClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active = False then
|
||||||
|
Exit;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothHCListDD.TBRafreshClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothHCListDD.OrderNoMChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active = False then
|
||||||
|
Exit;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothHCListDD.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
InitForm();
|
||||||
|
TBRafresh.Click;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothHCListDD.OrderNoMKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
var
|
||||||
|
fsj: string;
|
||||||
|
begin
|
||||||
|
if Key = #13 then
|
||||||
|
begin
|
||||||
|
if Length(Trim(OrderNoM.Text)) < 4 then
|
||||||
|
Exit;
|
||||||
|
fsj := ' and B.OrderNo like ''' + '%' + Trim(OrderNoM.Text) + '%' + '''';
|
||||||
|
InitGridWSQL(fsj);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothHCListDD.TV2DblClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if fType = '10' then
|
||||||
|
frmClothHCListDD.ModalResult := 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothHCListDD.Button1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if fType = '10' then
|
||||||
|
frmClothHCListDD.ModalResult := 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
|
|
@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1384
|
Width = 1384
|
||||||
Height = 62
|
Height = 92
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 119
|
ButtonWidth = 119
|
||||||
|
|
@ -102,34 +102,35 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25764#38144#20986#24211
|
Caption = #25764#38144#20986#24211
|
||||||
ImageIndex = 86
|
ImageIndex = 86
|
||||||
|
Wrap = True
|
||||||
OnClick = ToolButton7Click
|
OnClick = ToolButton7Click
|
||||||
end
|
end
|
||||||
object ToolButton11: TToolButton
|
object ToolButton11: TToolButton
|
||||||
Left = 576
|
Left = 0
|
||||||
Top = 0
|
Top = 30
|
||||||
Caption = #25209#37327#20462#25913#32568#21495
|
Caption = #25209#37327#20462#25913#32568#21495
|
||||||
ImageIndex = 54
|
ImageIndex = 54
|
||||||
OnClick = ToolButton11Click
|
OnClick = ToolButton11Click
|
||||||
end
|
end
|
||||||
object TBDW: TToolButton
|
object TBDW: TToolButton
|
||||||
Left = 695
|
Left = 119
|
||||||
Top = 0
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #20462#25913#25968#37327#21333#20301
|
Caption = #20462#25913#25968#37327#21333#20301
|
||||||
ImageIndex = 54
|
ImageIndex = 54
|
||||||
OnClick = TBDWClick
|
OnClick = TBDWClick
|
||||||
end
|
end
|
||||||
object ToolButton4: TToolButton
|
object ToolButton4: TToolButton
|
||||||
Left = 806
|
Left = 230
|
||||||
Top = 0
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25209#37327#35843#25972#31859#25968
|
Caption = #25209#37327#35843#25972#31859#25968
|
||||||
ImageIndex = 54
|
ImageIndex = 54
|
||||||
OnClick = ToolButton4Click
|
OnClick = ToolButton4Click
|
||||||
end
|
end
|
||||||
object ToolButton13: TToolButton
|
object ToolButton13: TToolButton
|
||||||
Left = 917
|
Left = 341
|
||||||
Top = 0
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25209#37327#20928#37325#36716#38271#24230
|
Caption = #25209#37327#20928#37325#36716#38271#24230
|
||||||
ImageIndex = 54
|
ImageIndex = 54
|
||||||
|
|
@ -137,16 +138,15 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
OnClick = ToolButton13Click
|
OnClick = ToolButton13Click
|
||||||
end
|
end
|
||||||
object ToolButton8: TToolButton
|
object ToolButton8: TToolButton
|
||||||
Left = 1040
|
Left = 464
|
||||||
Top = 0
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25209#37327#20462#25913#30382#37325
|
Caption = #25209#37327#20462#25913#30382#37325
|
||||||
ImageIndex = 54
|
ImageIndex = 54
|
||||||
Wrap = True
|
|
||||||
OnClick = ToolButton8Click
|
OnClick = ToolButton8Click
|
||||||
end
|
end
|
||||||
object ToolButton1: TToolButton
|
object ToolButton1: TToolButton
|
||||||
Left = 0
|
Left = 575
|
||||||
Top = 30
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25171#21360#26631#31614
|
Caption = #25171#21360#26631#31614
|
||||||
|
|
@ -154,7 +154,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
OnClick = ToolButton1Click
|
OnClick = ToolButton1Click
|
||||||
end
|
end
|
||||||
object TCPDB: TToolButton
|
object TCPDB: TToolButton
|
||||||
Left = 87
|
Left = 662
|
||||||
Top = 30
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25104#21697#25171#21253
|
Caption = #25104#21697#25171#21253
|
||||||
|
|
@ -163,33 +163,34 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
OnClick = TCPDBClick
|
OnClick = TCPDBClick
|
||||||
end
|
end
|
||||||
object ToolButton3: TToolButton
|
object ToolButton3: TToolButton
|
||||||
Left = 174
|
Left = 749
|
||||||
Top = 30
|
Top = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25171#21360#21253#26631#31614
|
Caption = #25171#21360#21253#26631#31614
|
||||||
ImageIndex = 12
|
ImageIndex = 12
|
||||||
|
Wrap = True
|
||||||
Visible = False
|
Visible = False
|
||||||
OnClick = ToolButton3Click
|
OnClick = ToolButton3Click
|
||||||
end
|
end
|
||||||
object ToolButton2: TToolButton
|
object ToolButton2: TToolButton
|
||||||
Left = 273
|
Left = 0
|
||||||
Top = 30
|
Top = 60
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25171#21360#26816#39564#25253#21578
|
Caption = #25171#21360#26816#39564#25253#21578
|
||||||
ImageIndex = 12
|
ImageIndex = 12
|
||||||
OnClick = ToolButton2Click
|
OnClick = ToolButton2Click
|
||||||
end
|
end
|
||||||
object ToolButton5: TToolButton
|
object ToolButton5: TToolButton
|
||||||
Left = 384
|
Left = 111
|
||||||
Top = 30
|
Top = 60
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25171#21360
|
Caption = #25171#21360
|
||||||
ImageIndex = 12
|
ImageIndex = 12
|
||||||
OnClick = ToolButton5Click
|
OnClick = ToolButton5Click
|
||||||
end
|
end
|
||||||
object Edit3: TEdit
|
object Edit3: TEdit
|
||||||
Left = 447
|
Left = 174
|
||||||
Top = 30
|
Top = 60
|
||||||
Width = 68
|
Width = 68
|
||||||
Height = 30
|
Height = 30
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
|
|
@ -203,8 +204,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
OnKeyPress = Edit3KeyPress
|
OnKeyPress = Edit3KeyPress
|
||||||
end
|
end
|
||||||
object ComboBox1: TComboBox
|
object ComboBox1: TComboBox
|
||||||
Left = 515
|
Left = 242
|
||||||
Top = 33
|
Top = 63
|
||||||
Width = 182
|
Width = 182
|
||||||
Height = 24
|
Height = 24
|
||||||
Style = csDropDownList
|
Style = csDropDownList
|
||||||
|
|
@ -228,8 +229,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
#26816#39564#30721#21333)
|
#26816#39564#30721#21333)
|
||||||
end
|
end
|
||||||
object Edit4: TEdit
|
object Edit4: TEdit
|
||||||
Left = 697
|
Left = 424
|
||||||
Top = 30
|
Top = 60
|
||||||
Width = 121
|
Width = 121
|
||||||
Height = 30
|
Height = 30
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
|
|
@ -242,32 +243,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
object ToolButton12: TToolButton
|
object ToolButton12: TToolButton
|
||||||
Left = 818
|
Left = 545
|
||||||
Top = 30
|
Top = 60
|
||||||
Caption = #20462#25913#30721#21333
|
Caption = #20462#25913#30721#21333
|
||||||
ImageIndex = 54
|
ImageIndex = 54
|
||||||
Visible = False
|
Visible = False
|
||||||
OnClick = ToolButton12Click
|
OnClick = ToolButton12Click
|
||||||
end
|
end
|
||||||
object ToolButton9: TToolButton
|
object ToolButton9: TToolButton
|
||||||
Left = 937
|
Left = 664
|
||||||
Top = 30
|
Top = 60
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #24322#24120#25968#25454
|
Caption = #24322#24120#25968#25454
|
||||||
ImageIndex = 2
|
ImageIndex = 2
|
||||||
OnClick = ToolButton9Click
|
OnClick = ToolButton9Click
|
||||||
end
|
end
|
||||||
object TBExport: TToolButton
|
object TBExport: TToolButton
|
||||||
Left = 1024
|
Left = 751
|
||||||
Top = 30
|
Top = 60
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #23548#20986
|
Caption = #23548#20986
|
||||||
ImageIndex = 75
|
ImageIndex = 75
|
||||||
OnClick = TBExportClick
|
OnClick = TBExportClick
|
||||||
end
|
end
|
||||||
object TBClose: TToolButton
|
object TBClose: TToolButton
|
||||||
Left = 1087
|
Left = 814
|
||||||
Top = 30
|
Top = 60
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #20851#38381
|
Caption = #20851#38381
|
||||||
ImageIndex = 55
|
ImageIndex = 55
|
||||||
|
|
@ -276,7 +277,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
end
|
end
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 62
|
Top = 92
|
||||||
Width = 1384
|
Width = 1384
|
||||||
Height = 88
|
Height = 88
|
||||||
Align = alTop
|
Align = alTop
|
||||||
|
|
@ -847,9 +848,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
end
|
end
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 150
|
Top = 180
|
||||||
Width = 1384
|
Width = 1384
|
||||||
Height = 568
|
Height = 538
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = PopupMenu1
|
PopupMenu = PopupMenu1
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
|
|
@ -1784,16 +1785,16 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object Panel_SMCK: TPanel
|
object Panel_SMCK: TPanel
|
||||||
Left = 1000
|
Left = 928
|
||||||
Top = 220
|
Top = 220
|
||||||
Width = 317
|
Width = 369
|
||||||
Height = 97
|
Height = 157
|
||||||
Color = clSkyBlue
|
Color = clSkyBlue
|
||||||
TabOrder = 10
|
TabOrder = 10
|
||||||
Visible = False
|
Visible = False
|
||||||
object Label31: TLabel
|
object Label31: TLabel
|
||||||
Left = 16
|
Left = 31
|
||||||
Top = 24
|
Top = 72
|
||||||
Width = 64
|
Width = 64
|
||||||
Height = 16
|
Height = 16
|
||||||
Caption = #20986#24211#26465#30721
|
Caption = #20986#24211#26465#30721
|
||||||
|
|
@ -1804,9 +1805,22 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
Font.Style = []
|
Font.Style = []
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
end
|
end
|
||||||
|
object Label54: TLabel
|
||||||
|
Left = 10
|
||||||
|
Top = 26
|
||||||
|
Width = 48
|
||||||
|
Height = 16
|
||||||
|
Caption = #35746#21333#21495
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
object Edit_CKMJID: TEdit
|
object Edit_CKMJID: TEdit
|
||||||
Left = 88
|
Left = 103
|
||||||
Top = 20
|
Top = 68
|
||||||
Width = 177
|
Width = 177
|
||||||
Height = 24
|
Height = 24
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
|
|
@ -1820,14 +1834,38 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
OnKeyPress = Edit_CKMJIDKeyPress
|
OnKeyPress = Edit_CKMJIDKeyPress
|
||||||
end
|
end
|
||||||
object Button_CKSM: TButton
|
object Button_CKSM: TButton
|
||||||
Left = 212
|
Left = 227
|
||||||
Top = 64
|
Top = 112
|
||||||
Width = 60
|
Width = 60
|
||||||
Height = 25
|
Height = 25
|
||||||
Caption = #20851#38381
|
Caption = #20851#38381
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
OnClick = Button_CKSMClick
|
OnClick = Button_CKSMClick
|
||||||
end
|
end
|
||||||
|
object Fckorderno: TEdit
|
||||||
|
Left = 61
|
||||||
|
Top = 22
|
||||||
|
Width = 177
|
||||||
|
Height = 24
|
||||||
|
Enabled = False
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
OnKeyPress = Edit_CKMJIDKeyPress
|
||||||
|
end
|
||||||
|
object Button15: TButton
|
||||||
|
Left = 246
|
||||||
|
Top = 15
|
||||||
|
Width = 82
|
||||||
|
Height = 39
|
||||||
|
Caption = #36873#25321#35746#21333#21495
|
||||||
|
TabOrder = 3
|
||||||
|
OnClick = Button15Click
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object Panel11: TPanel
|
object Panel11: TPanel
|
||||||
Left = 908
|
Left = 908
|
||||||
|
|
|
||||||
|
|
@ -11,7 +11,20 @@ uses
|
||||||
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
|
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
|
||||||
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
|
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
|
||||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
|
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
|
||||||
cxCurrencyEdit, MMSystem;
|
cxCurrencyEdit, MMSystem, dxSkinsCore, dxSkinBlack, dxSkinBlue,
|
||||||
|
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||||
|
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||||||
|
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||||||
|
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||||
|
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||||
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||||
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||||
|
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||||
|
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||||
|
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||||
|
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||||
|
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmJYOrderCDOne = class(TForm)
|
TfrmJYOrderCDOne = class(TForm)
|
||||||
|
|
@ -221,6 +234,9 @@ type
|
||||||
Tv1Column8: TcxGridDBColumn;
|
Tv1Column8: TcxGridDBColumn;
|
||||||
Filler: TEdit;
|
Filler: TEdit;
|
||||||
Tv1Column9: TcxGridDBColumn;
|
Tv1Column9: TcxGridDBColumn;
|
||||||
|
Label54: TLabel;
|
||||||
|
Fckorderno: TEdit;
|
||||||
|
Button15: TButton;
|
||||||
procedure FormDestroy(Sender: TObject);
|
procedure FormDestroy(Sender: TObject);
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
|
|
@ -284,6 +300,7 @@ type
|
||||||
procedure Button13Click(Sender: TObject);
|
procedure Button13Click(Sender: TObject);
|
||||||
procedure ToolButton14Click(Sender: TObject);
|
procedure ToolButton14Click(Sender: TObject);
|
||||||
procedure Edit_CKMJIDChange(Sender: TObject);
|
procedure Edit_CKMJIDChange(Sender: TObject);
|
||||||
|
procedure Button15Click(Sender: TObject);
|
||||||
// procedure Edit5Click(Sender: TObject);
|
// procedure Edit5Click(Sender: TObject);
|
||||||
// procedure CheckBox3Click(Sender: TObject);
|
// procedure CheckBox3Click(Sender: TObject);
|
||||||
private
|
private
|
||||||
|
|
@ -299,8 +316,8 @@ type
|
||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
public
|
public
|
||||||
FFInt: Integer;
|
FFInt: Integer;
|
||||||
|
Fckmainid: string;
|
||||||
{ Public declarations }
|
{ Public declarations }
|
||||||
end;
|
end;
|
||||||
|
|
||||||
var
|
var
|
||||||
|
|
@ -309,7 +326,7 @@ var
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_CPDBAO, U_MJSJFX;
|
U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_CPDBAO,U_ClothHCListDD, U_MJSJFX;
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
procedure TfrmJYOrderCDOne.JSbaoNum();
|
procedure TfrmJYOrderCDOne.JSbaoNum();
|
||||||
|
|
@ -1451,7 +1468,7 @@ begin
|
||||||
Application.MessageBox('没有选择数据', '提示', 0);
|
Application.MessageBox('没有选择数据', '提示', 0);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + trim(ComboBox1.Text) + '.rmf';
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + trim(ComboBox1.Text) + '.rmf';
|
||||||
|
|
||||||
ExportFtErpFile(Trim(ComboBox1.Text) + '.rmf', ADOQueryCmd);
|
ExportFtErpFile(Trim(ComboBox1.Text) + '.rmf', ADOQueryCmd);
|
||||||
|
|
||||||
|
|
@ -1596,12 +1613,12 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if (trim(ComboBox1.Text) = '检验码单') or (trim(ComboBox1.Text) = '提货核算单') or (trim(ComboBox1.Text) = '出库码单') or (trim(ComboBox1.Text) = '出库码单悦旺不加0.2') or (trim(ComboBox1.Text) = '出库码单不加0.2') or (trim(ComboBox1.Text) = '出库码单悦旺') or (trim(ComboBox1.Text) = '出库码单宇悦') then
|
if (trim(ComboBox1.Text) = '检验码单') or (trim(ComboBox1.Text) = '提货核算单') or (trim(ComboBox1.Text) = '出库码单') or (trim(ComboBox1.Text) = '出库码单悦旺不加0.2') or (trim(ComboBox1.Text) = '出库码单不加0.2') or (trim(ComboBox1.Text) = '出库码单悦旺') or (trim(ComboBox1.Text) = '出库码单宇悦') then
|
||||||
begin
|
begin
|
||||||
with ADOQueryTemp do
|
with ADOQueryTemp do
|
||||||
begin
|
begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.add('exec P_Print_CKMDYDL ');
|
sql.add('exec P_Print_CKMDYDL ');
|
||||||
sql.add('@DName=' + quotedstr(Trim(DCode)));
|
sql.add('@DName=' + quotedstr(Trim(DCode)));
|
||||||
Open;
|
Open;
|
||||||
|
|
@ -1927,7 +1944,19 @@ begin
|
||||||
begin
|
begin
|
||||||
if trim(Edit_CKMJID.Text) = '' then
|
if trim(Edit_CKMJID.Text) = '' then
|
||||||
exit;
|
exit;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.clear;
|
||||||
|
sql.Add('select * from WFB_MJJY where MJID=''' + trim(Edit_CKMJID.text) + ''' ');
|
||||||
|
sql.add(' and mainid=''' + Fckmainid + ''' ');
|
||||||
|
open;
|
||||||
|
end;
|
||||||
|
if ADOQueryCmd.IsEmpty then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('此卷不属于该出库订单的数据,请核实数据！', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
with ADOQueryCmd do
|
with ADOQueryCmd do
|
||||||
begin
|
begin
|
||||||
close;
|
close;
|
||||||
|
|
@ -1945,7 +1974,7 @@ begin
|
||||||
begin
|
begin
|
||||||
PlaySound('wav\重复扫描.wav', 0, SND_FILENAME or SND_ASYNC);
|
PlaySound('wav\重复扫描.wav', 0, SND_FILENAME or SND_ASYNC);
|
||||||
Edit_CKMJID.Text := '';
|
Edit_CKMJID.Text := '';
|
||||||
// Application.MessageBox('没有设置标签', '提示', 0);
|
// Application.MessageBox('没有设置标签', '提示', 0);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
@ -2120,7 +2149,7 @@ end;
|
||||||
procedure TfrmJYOrderCDOne.Button8Click(Sender: TObject);
|
procedure TfrmJYOrderCDOne.Button8Click(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
// if Order_Main.IsEmpty then
|
// if Order_Main.IsEmpty then
|
||||||
// Exit;
|
// Exit;
|
||||||
// if Order_Main.Locate('SSel', True, []) = False then
|
// if Order_Main.Locate('SSel', True, []) = False then
|
||||||
// begin
|
// begin
|
||||||
// Application.MessageBox('没有选择数据!', '提示', 0);
|
// Application.MessageBox('没有选择数据!', '提示', 0);
|
||||||
|
|
@ -2344,5 +2373,23 @@ begin
|
||||||
// edit_CKMJID.SetFocus;
|
// edit_CKMJID.SetFocus;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrmJYOrderCDOne.Button15Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if frmClothHCListDD <> nil then
|
||||||
|
frmClothHCListDD.Free;
|
||||||
|
frmClothHCListDD := TfrmClothHCListDD.create(application);
|
||||||
|
with frmClothHCListDD do
|
||||||
|
begin
|
||||||
|
fType := '10';
|
||||||
|
if showmodal = 1 then
|
||||||
|
begin
|
||||||
|
Fckorderno.Text := trim(Order_Main.fieldbyname('OrderNoM').asstring);
|
||||||
|
Fckmainid := trim(Order_Main.fieldbyname('mainid').asstring);
|
||||||
|
// Button3.Click;
|
||||||
|
end;
|
||||||
|
frmClothHCListDD.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -2850,16 +2850,16 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object Panel_SMCK: TPanel
|
object Panel_SMCK: TPanel
|
||||||
Left = 412
|
Left = 352
|
||||||
Top = 168
|
Top = 112
|
||||||
Width = 317
|
Width = 377
|
||||||
Height = 97
|
Height = 153
|
||||||
Color = clSkyBlue
|
Color = clSkyBlue
|
||||||
TabOrder = 8
|
TabOrder = 8
|
||||||
Visible = False
|
Visible = False
|
||||||
object Label55: TLabel
|
object Label55: TLabel
|
||||||
Left = 16
|
Left = 35
|
||||||
Top = 24
|
Top = 74
|
||||||
Width = 64
|
Width = 64
|
||||||
Height = 16
|
Height = 16
|
||||||
Caption = #20986#24211#26465#30721
|
Caption = #20986#24211#26465#30721
|
||||||
|
|
@ -2870,9 +2870,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
Font.Style = []
|
Font.Style = []
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
end
|
end
|
||||||
|
object Label54: TLabel
|
||||||
|
Left = 35
|
||||||
|
Top = 26
|
||||||
|
Width = 48
|
||||||
|
Height = 16
|
||||||
|
Caption = #35746#21333#21495
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
object Edit_CKMJID: TEdit
|
object Edit_CKMJID: TEdit
|
||||||
Left = 88
|
Left = 107
|
||||||
Top = 20
|
Top = 70
|
||||||
Width = 177
|
Width = 177
|
||||||
Height = 24
|
Height = 24
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
|
|
@ -2885,14 +2898,38 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
OnKeyPress = Edit_CKMJIDKeyPress
|
OnKeyPress = Edit_CKMJIDKeyPress
|
||||||
end
|
end
|
||||||
object Button_CKSM: TButton
|
object Button_CKSM: TButton
|
||||||
Left = 212
|
Left = 231
|
||||||
Top = 64
|
Top = 114
|
||||||
Width = 60
|
Width = 60
|
||||||
Height = 25
|
Height = 25
|
||||||
Caption = #20851#38381
|
Caption = #20851#38381
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
OnClick = Button_CKSMClick
|
OnClick = Button_CKSMClick
|
||||||
end
|
end
|
||||||
|
object Fckorderno: TEdit
|
||||||
|
Left = 86
|
||||||
|
Top = 22
|
||||||
|
Width = 177
|
||||||
|
Height = 24
|
||||||
|
Enabled = False
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
OnKeyPress = Edit_CKMJIDKeyPress
|
||||||
|
end
|
||||||
|
object Button5: TButton
|
||||||
|
Left = 271
|
||||||
|
Top = 15
|
||||||
|
Width = 82
|
||||||
|
Height = 39
|
||||||
|
Caption = #36873#25321#35746#21333#21495
|
||||||
|
TabOrder = 3
|
||||||
|
OnClick = Button5Click
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxStyleRepository1: TcxStyleRepository
|
object cxStyleRepository1: TcxStyleRepository
|
||||||
Left = 732
|
Left = 732
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,20 @@ uses
|
||||||
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
|
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
|
||||||
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
|
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||||||
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
|
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
|
||||||
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI;
|
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI,
|
||||||
|
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
|
||||||
|
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||||||
|
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
|
||||||
|
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
|
||||||
|
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||||
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||||
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||||
|
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||||
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
|
||||||
|
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
|
||||||
|
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
|
||||||
|
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||||
|
dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmMJManageNewFDNewSF = class(TForm)
|
TfrmMJManageNewFDNewSF = class(TForm)
|
||||||
|
|
@ -256,6 +269,9 @@ type
|
||||||
Label55: TLabel;
|
Label55: TLabel;
|
||||||
Edit_CKMJID: TEdit;
|
Edit_CKMJID: TEdit;
|
||||||
Button_CKSM: TButton;
|
Button_CKSM: TButton;
|
||||||
|
Label54: TLabel;
|
||||||
|
Fckorderno: TEdit;
|
||||||
|
Button5: TButton;
|
||||||
procedure FormDestroy(Sender: TObject);
|
procedure FormDestroy(Sender: TObject);
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
|
@ -318,6 +334,7 @@ type
|
||||||
procedure Edit_CKMJIDKeyPress(Sender: TObject; var Key: Char);
|
procedure Edit_CKMJIDKeyPress(Sender: TObject; var Key: Char);
|
||||||
procedure ToolButton1Click(Sender: TObject);
|
procedure ToolButton1Click(Sender: TObject);
|
||||||
procedure Button_CKSMClick(Sender: TObject);
|
procedure Button_CKSMClick(Sender: TObject);
|
||||||
|
procedure Button5Click(Sender: TObject);
|
||||||
private
|
private
|
||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
|
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
|
||||||
|
|
@ -345,20 +362,20 @@ type
|
||||||
procedure On1301(var Message: Tmessage); message 1301;
|
procedure On1301(var Message: Tmessage); message 1301;
|
||||||
function JsXj(str1: string): string;
|
function JsXj(str1: string): string;
|
||||||
public
|
public
|
||||||
fmanage: string;
|
fmanage, Fckmainid: string;
|
||||||
{ Public declarations }
|
{ Public declarations }
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
var
|
var
|
||||||
frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF;
|
frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF;
|
||||||
newh, newh1: hwnd;
|
newh, newh1: hwnd;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
U_DataLink, U_Fun, U_ZDYHelp, U_iniParam, U_ClothHCList, MMSystem,
|
U_DataLink, U_Fun, U_ZDYHelp, U_iniParam, U_ClothHCList, U_ClothHCListDD,
|
||||||
U_SysLogOrder,U_SCPerson;
|
MMSystem, U_SysLogOrder, U_SCPerson;
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
procedure TfrmMJManageNewFDNewSF.PrtBaoData(FBaoid: string);
|
procedure TfrmMJManageNewFDNewSF.PrtBaoData(FBaoid: string);
|
||||||
|
|
@ -2578,7 +2595,7 @@ begin
|
||||||
// FlagStr := 'SCPerson';
|
// FlagStr := 'SCPerson';
|
||||||
if ShowModal = 1 then
|
if ShowModal = 1 then
|
||||||
begin
|
begin
|
||||||
// APID.Text := trim(Order_Main.fieldbyname('Subid').asstring);
|
// APID.Text := trim(Order_Main.fieldbyname('Subid').asstring);
|
||||||
APID.Text := FSDPerson;
|
APID.Text := FSDPerson;
|
||||||
Button3.Click;
|
Button3.Click;
|
||||||
end;
|
end;
|
||||||
|
|
@ -3048,7 +3065,19 @@ begin
|
||||||
begin
|
begin
|
||||||
if trim(Edit_CKMJID.Text) = '' then
|
if trim(Edit_CKMJID.Text) = '' then
|
||||||
exit;
|
exit;
|
||||||
|
with ADOCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.clear;
|
||||||
|
sql.Add('select * from WFB_MJJY where MJID=''' + trim(Edit_CKMJID.text) + ''' ');
|
||||||
|
sql.add(' and mainid=''' + Fckmainid + ''' ');
|
||||||
|
open;
|
||||||
|
end;
|
||||||
|
if ADOCmd.IsEmpty then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('此卷不属于该出库订单的数据,请核实数据！', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
with ADOCmd do
|
with ADOCmd do
|
||||||
begin
|
begin
|
||||||
close;
|
close;
|
||||||
|
|
@ -3101,5 +3130,23 @@ begin
|
||||||
Panel_SMCK.Visible := false;
|
Panel_SMCK.Visible := false;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrmMJManageNewFDNewSF.Button5Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if frmClothHCListDD <> nil then
|
||||||
|
frmClothHCListDD.Free;
|
||||||
|
frmClothHCListDD := TfrmClothHCListDD.create(application);
|
||||||
|
with frmClothHCListDD do
|
||||||
|
begin
|
||||||
|
fType := '10';
|
||||||
|
if showmodal = 1 then
|
||||||
|
begin
|
||||||
|
Fckorderno.Text := trim(Order_Main.fieldbyname('OrderNoM').asstring);
|
||||||
|
Fckmainid := trim(Order_Main.fieldbyname('mainid').asstring);
|
||||||
|
// Button3.Click;
|
||||||
|
end;
|
||||||
|
frmClothHCListDD.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user