~
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
|
||||
Top = 0
|
||||
Width = 1384
|
||||
Height = 62
|
||||
Height = 92
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 119
|
||||
|
|
@ -102,34 +102,35 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
AutoSize = True
|
||||
Caption = #25764#38144#20986#24211
|
||||
ImageIndex = 86
|
||||
Wrap = True
|
||||
OnClick = ToolButton7Click
|
||||
end
|
||||
object ToolButton11: TToolButton
|
||||
Left = 576
|
||||
Top = 0
|
||||
Left = 0
|
||||
Top = 30
|
||||
Caption = #25209#37327#20462#25913#32568#21495
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton11Click
|
||||
end
|
||||
object TBDW: TToolButton
|
||||
Left = 695
|
||||
Top = 0
|
||||
Left = 119
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #20462#25913#25968#37327#21333#20301
|
||||
ImageIndex = 54
|
||||
OnClick = TBDWClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 806
|
||||
Top = 0
|
||||
Left = 230
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#35843#25972#31859#25968
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton13: TToolButton
|
||||
Left = 917
|
||||
Top = 0
|
||||
Left = 341
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#20928#37325#36716#38271#24230
|
||||
ImageIndex = 54
|
||||
|
|
@ -137,16 +138,15 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 1040
|
||||
Top = 0
|
||||
Left = 464
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#20462#25913#30382#37325
|
||||
ImageIndex = 54
|
||||
Wrap = True
|
||||
OnClick = ToolButton8Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 0
|
||||
Left = 575
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#26631#31614
|
||||
|
|
@ -154,7 +154,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TCPDB: TToolButton
|
||||
Left = 87
|
||||
Left = 662
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25104#21697#25171#21253
|
||||
|
|
@ -163,33 +163,34 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = TCPDBClick
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 174
|
||||
Left = 749
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#21253#26631#31614
|
||||
ImageIndex = 12
|
||||
Wrap = True
|
||||
Visible = False
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 273
|
||||
Top = 30
|
||||
Left = 0
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#26816#39564#25253#21578
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 384
|
||||
Top = 30
|
||||
Left = 111
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object Edit3: TEdit
|
||||
Left = 447
|
||||
Top = 30
|
||||
Left = 174
|
||||
Top = 60
|
||||
Width = 68
|
||||
Height = 30
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -203,8 +204,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnKeyPress = Edit3KeyPress
|
||||
end
|
||||
object ComboBox1: TComboBox
|
||||
Left = 515
|
||||
Top = 33
|
||||
Left = 242
|
||||
Top = 63
|
||||
Width = 182
|
||||
Height = 24
|
||||
Style = csDropDownList
|
||||
|
|
@ -228,8 +229,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
#26816#39564#30721#21333)
|
||||
end
|
||||
object Edit4: TEdit
|
||||
Left = 697
|
||||
Top = 30
|
||||
Left = 424
|
||||
Top = 60
|
||||
Width = 121
|
||||
Height = 30
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -242,32 +243,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Visible = False
|
||||
end
|
||||
object ToolButton12: TToolButton
|
||||
Left = 818
|
||||
Top = 30
|
||||
Left = 545
|
||||
Top = 60
|
||||
Caption = #20462#25913#30721#21333
|
||||
ImageIndex = 54
|
||||
Visible = False
|
||||
OnClick = ToolButton12Click
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 937
|
||||
Top = 30
|
||||
Left = 664
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #24322#24120#25968#25454
|
||||
ImageIndex = 2
|
||||
OnClick = ToolButton9Click
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 1024
|
||||
Top = 30
|
||||
Left = 751
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 1087
|
||||
Top = 30
|
||||
Left = 814
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
|
|
@ -276,7 +277,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 62
|
||||
Top = 92
|
||||
Width = 1384
|
||||
Height = 88
|
||||
Align = alTop
|
||||
|
|
@ -847,9 +848,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 150
|
||||
Top = 180
|
||||
Width = 1384
|
||||
Height = 568
|
||||
Height = 538
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 3
|
||||
|
|
@ -1784,16 +1785,16 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
end
|
||||
object Panel_SMCK: TPanel
|
||||
Left = 1000
|
||||
Left = 928
|
||||
Top = 220
|
||||
Width = 317
|
||||
Height = 97
|
||||
Width = 369
|
||||
Height = 157
|
||||
Color = clSkyBlue
|
||||
TabOrder = 10
|
||||
Visible = False
|
||||
object Label31: TLabel
|
||||
Left = 16
|
||||
Top = 24
|
||||
Left = 31
|
||||
Top = 72
|
||||
Width = 64
|
||||
Height = 16
|
||||
Caption = #20986#24211#26465#30721
|
||||
|
|
@ -1804,9 +1805,22 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Font.Style = []
|
||||
ParentFont = False
|
||||
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
|
||||
Left = 88
|
||||
Top = 20
|
||||
Left = 103
|
||||
Top = 68
|
||||
Width = 177
|
||||
Height = 24
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -1820,14 +1834,38 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnKeyPress = Edit_CKMJIDKeyPress
|
||||
end
|
||||
object Button_CKSM: TButton
|
||||
Left = 212
|
||||
Top = 64
|
||||
Left = 227
|
||||
Top = 112
|
||||
Width = 60
|
||||
Height = 25
|
||||
Caption = #20851#38381
|
||||
TabOrder = 1
|
||||
OnClick = Button_CKSMClick
|
||||
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
|
||||
object Panel11: TPanel
|
||||
Left = 908
|
||||
|
|
|
|||
|
|
@ -11,7 +11,20 @@ uses
|
|||
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
|
||||
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
|
||||
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
|
||||
TfrmJYOrderCDOne = class(TForm)
|
||||
|
|
@ -221,6 +234,9 @@ type
|
|||
Tv1Column8: TcxGridDBColumn;
|
||||
Filler: TEdit;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
Label54: TLabel;
|
||||
Fckorderno: TEdit;
|
||||
Button15: TButton;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
@ -284,6 +300,7 @@ type
|
|||
procedure Button13Click(Sender: TObject);
|
||||
procedure ToolButton14Click(Sender: TObject);
|
||||
procedure Edit_CKMJIDChange(Sender: TObject);
|
||||
procedure Button15Click(Sender: TObject);
|
||||
// procedure Edit5Click(Sender: TObject);
|
||||
// procedure CheckBox3Click(Sender: TObject);
|
||||
private
|
||||
|
|
@ -299,8 +316,8 @@ type
|
|||
{ Private declarations }
|
||||
public
|
||||
FFInt: Integer;
|
||||
|
||||
{ Public declarations }
|
||||
Fckmainid: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
|
|
@ -309,7 +326,7 @@ var
|
|||
implementation
|
||||
|
||||
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}
|
||||
procedure TfrmJYOrderCDOne.JSbaoNum();
|
||||
|
|
@ -1451,7 +1468,7 @@ begin
|
|||
Application.MessageBox('没有选择数据', '提示', 0);
|
||||
Exit;
|
||||
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);
|
||||
|
||||
|
|
@ -1596,12 +1613,12 @@ begin
|
|||
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
|
||||
with ADOQueryTemp do
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Print_CKMDYDL ');
|
||||
sql.add('@DName=' + quotedstr(Trim(DCode)));
|
||||
Open;
|
||||
|
|
@ -1927,7 +1944,19 @@ begin
|
|||
begin
|
||||
if trim(Edit_CKMJID.Text) = '' then
|
||||
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
|
||||
begin
|
||||
close;
|
||||
|
|
@ -1945,7 +1974,7 @@ begin
|
|||
begin
|
||||
PlaySound('wav\重复扫描.wav', 0, SND_FILENAME or SND_ASYNC);
|
||||
Edit_CKMJID.Text := '';
|
||||
// Application.MessageBox('没有设置标签', '提示', 0);
|
||||
// Application.MessageBox('没有设置标签', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
|
|
@ -2120,7 +2149,7 @@ end;
|
|||
procedure TfrmJYOrderCDOne.Button8Click(Sender: TObject);
|
||||
begin
|
||||
// if Order_Main.IsEmpty then
|
||||
// Exit;
|
||||
// Exit;
|
||||
// if Order_Main.Locate('SSel', True, []) = False then
|
||||
// begin
|
||||
// Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
|
|
@ -2344,5 +2373,23 @@ begin
|
|||
// edit_CKMJID.SetFocus;
|
||||
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.
|
||||
|
||||
|
|
|
|||
|
|
@ -2850,16 +2850,16 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
end
|
||||
end
|
||||
object Panel_SMCK: TPanel
|
||||
Left = 412
|
||||
Top = 168
|
||||
Width = 317
|
||||
Height = 97
|
||||
Left = 352
|
||||
Top = 112
|
||||
Width = 377
|
||||
Height = 153
|
||||
Color = clSkyBlue
|
||||
TabOrder = 8
|
||||
Visible = False
|
||||
object Label55: TLabel
|
||||
Left = 16
|
||||
Top = 24
|
||||
Left = 35
|
||||
Top = 74
|
||||
Width = 64
|
||||
Height = 16
|
||||
Caption = #20986#24211#26465#30721
|
||||
|
|
@ -2870,9 +2870,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
Font.Style = []
|
||||
ParentFont = False
|
||||
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
|
||||
Left = 88
|
||||
Top = 20
|
||||
Left = 107
|
||||
Top = 70
|
||||
Width = 177
|
||||
Height = 24
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -2885,14 +2898,38 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
OnKeyPress = Edit_CKMJIDKeyPress
|
||||
end
|
||||
object Button_CKSM: TButton
|
||||
Left = 212
|
||||
Top = 64
|
||||
Left = 231
|
||||
Top = 114
|
||||
Width = 60
|
||||
Height = 25
|
||||
Caption = #20851#38381
|
||||
TabOrder = 1
|
||||
OnClick = Button_CKSMClick
|
||||
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
|
||||
object cxStyleRepository1: TcxStyleRepository
|
||||
Left = 732
|
||||
|
|
|
|||
|
|
@ -10,7 +10,20 @@ uses
|
|||
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
|
||||
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||||
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
|
||||
TfrmMJManageNewFDNewSF = class(TForm)
|
||||
|
|
@ -256,6 +269,9 @@ type
|
|||
Label55: TLabel;
|
||||
Edit_CKMJID: TEdit;
|
||||
Button_CKSM: TButton;
|
||||
Label54: TLabel;
|
||||
Fckorderno: TEdit;
|
||||
Button5: TButton;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
@ -318,6 +334,7 @@ type
|
|||
procedure Edit_CKMJIDKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure Button_CKSMClick(Sender: TObject);
|
||||
procedure Button5Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
|
||||
|
|
@ -345,20 +362,20 @@ type
|
|||
procedure On1301(var Message: Tmessage); message 1301;
|
||||
function JsXj(str1: string): string;
|
||||
public
|
||||
fmanage: string;
|
||||
fmanage, Fckmainid: string;
|
||||
{ Public declarations }
|
||||
|
||||
end;
|
||||
|
||||
var
|
||||
frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF;
|
||||
newh, newh1: hwnd;
|
||||
frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF;
|
||||
newh, newh1: hwnd;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_Fun, U_ZDYHelp, U_iniParam, U_ClothHCList, MMSystem,
|
||||
U_SysLogOrder,U_SCPerson;
|
||||
U_DataLink, U_Fun, U_ZDYHelp, U_iniParam, U_ClothHCList, U_ClothHCListDD,
|
||||
MMSystem, U_SysLogOrder, U_SCPerson;
|
||||
|
||||
{$R *.dfm}
|
||||
procedure TfrmMJManageNewFDNewSF.PrtBaoData(FBaoid: string);
|
||||
|
|
@ -2578,7 +2595,7 @@ begin
|
|||
// FlagStr := 'SCPerson';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
// APID.Text := trim(Order_Main.fieldbyname('Subid').asstring);
|
||||
// APID.Text := trim(Order_Main.fieldbyname('Subid').asstring);
|
||||
APID.Text := FSDPerson;
|
||||
Button3.Click;
|
||||
end;
|
||||
|
|
@ -3048,7 +3065,19 @@ begin
|
|||
begin
|
||||
if trim(Edit_CKMJID.Text) = '' then
|
||||
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
|
||||
begin
|
||||
close;
|
||||
|
|
@ -3101,5 +3130,23 @@ begin
|
|||
Panel_SMCK.Visible := false;
|
||||
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.
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user