浆轴
This commit is contained in:
“ddf”
parent
53e8f4820d
commit
d89a45b5f3
|
|
@ -2,6 +2,6 @@
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions/>
|
<Transactions/>
|
||||||
<Default.Personality>
|
<Default.Personality>
|
||||||
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\WarpBeamStk.dproj"/>
|
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\WarpBeamStk.dproj"/>
|
||||||
</Default.Personality>
|
</Default.Personality>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
|
|
@ -20,7 +20,7 @@ uses
|
||||||
U_EmptyBeamInList, U_EmptyBeamOutList, U_EmptyBeamStkList, U_TatWBOutputList,
|
U_EmptyBeamInList, U_EmptyBeamOutList, U_EmptyBeamStkList, U_TatWBOutputList,
|
||||||
U_TatWBOutputList1, U_WarpBeamQianList, U_TatWBOutputList_CZ,
|
U_TatWBOutputList1, U_WarpBeamQianList, U_TatWBOutputList_CZ,
|
||||||
U_TatWBOutputList_SZ, U_TatWBOutputList_JT, U_TatWBOutputList_XB,
|
U_TatWBOutputList_SZ, U_TatWBOutputList_JT, U_TatWBOutputList_XB,
|
||||||
U_TatWBOutputList_XZ;
|
U_TatWBOutputList_XZ, U_TatOutputList1, U_TatWBPlan;
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////
|
/////////////////////////////////////////////////////////////////
|
||||||
|
|
@ -80,7 +80,7 @@ begin
|
||||||
user := 'rtsa';
|
user := 'rtsa';
|
||||||
pswd := 'rightsoft@5740';
|
pswd := 'rightsoft@5740';
|
||||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||||
// DParameters1:='高权限';
|
Parameters1 := '管理';
|
||||||
Parameters2 := '空轴';
|
Parameters2 := '空轴';
|
||||||
Parameters2 := '经轴';
|
Parameters2 := '经轴';
|
||||||
end
|
end
|
||||||
|
|
@ -131,6 +131,30 @@ begin
|
||||||
//调用子模块窗口
|
//调用子模块窗口
|
||||||
case FormID of
|
case FormID of
|
||||||
|
|
||||||
|
511: //浆纱计划管理
|
||||||
|
begin
|
||||||
|
with TfrmTatWBPlan.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||||
|
begin
|
||||||
|
fFormID := FormID;
|
||||||
|
FormStyle := mstyle;
|
||||||
|
WindowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
mnewHandle := Handle;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
521: //浆纱产量管理
|
||||||
|
begin
|
||||||
|
with TfrmTatOutputList1.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||||
|
begin
|
||||||
|
fFormID := FormID;
|
||||||
|
FormStyle := mstyle;
|
||||||
|
WindowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
mnewHandle := Handle;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
111: //盘头名称定义 轴管编号
|
111: //盘头名称定义 轴管编号
|
||||||
begin
|
begin
|
||||||
with TfrmWarpBeamInfoList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
with TfrmWarpBeamInfoList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||||
|
|
|
||||||
522
E02梭织经轴仓库/U_TatOutputList1.dfm
Normal file
522
E02梭织经轴仓库/U_TatOutputList1.dfm
Normal file
|
|
@ -0,0 +1,522 @@
|
||||||
|
inherited frmTatOutputList1: TfrmTatOutputList1
|
||||||
|
Caption = #27974#32433#36710#38388#20135#37327#31649#29702
|
||||||
|
ClientHeight = 582
|
||||||
|
ClientWidth = 1473
|
||||||
|
WindowState = wsMaximized
|
||||||
|
ExplicitWidth = 1489
|
||||||
|
ExplicitHeight = 621
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 12
|
||||||
|
object ToolBar1: TToolBar [0]
|
||||||
|
Tag = 1
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1473
|
||||||
|
Height = 38
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 38
|
||||||
|
ButtonWidth = 97
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clSkyBlue
|
||||||
|
DisabledImages = DataLink_WarpBeamStk.ImageList_new32
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
Images = DataLink_WarpBeamStk.ImageList_new32
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 0
|
||||||
|
object TBRafresh: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21047#26032
|
||||||
|
ImageIndex = 1
|
||||||
|
OnClick = TBRafreshClick
|
||||||
|
end
|
||||||
|
object TBFind: TToolButton
|
||||||
|
Left = 71
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #36807#28388
|
||||||
|
ImageIndex = 0
|
||||||
|
OnClick = TBFindClick
|
||||||
|
end
|
||||||
|
object TBdel: TToolButton
|
||||||
|
Left = 142
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21024#38500
|
||||||
|
ImageIndex = 5
|
||||||
|
OnClick = TBdelClick
|
||||||
|
end
|
||||||
|
object ToolButton2: TToolButton
|
||||||
|
Left = 213
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20135#37327#24037#36164
|
||||||
|
ImageIndex = 3
|
||||||
|
OnClick = ToolButton2Click
|
||||||
|
end
|
||||||
|
object TBPrint: TToolButton
|
||||||
|
Left = 308
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #25171#21360
|
||||||
|
ImageIndex = 21
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object TBExport: TToolButton
|
||||||
|
Left = 379
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #23548#20986'Excel'
|
||||||
|
ImageIndex = 20
|
||||||
|
OnClick = TBExportClick
|
||||||
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 480
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384#26684#24335
|
||||||
|
ImageIndex = 16
|
||||||
|
OnClick = ToolButton1Click
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 575
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 7
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel [1]
|
||||||
|
Left = 0
|
||||||
|
Top = 38
|
||||||
|
Width = 1473
|
||||||
|
Height = 43
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
Color = clWhite
|
||||||
|
ParentBackground = False
|
||||||
|
TabOrder = 1
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 448
|
||||||
|
Top = 13
|
||||||
|
Width = 24
|
||||||
|
Height = 12
|
||||||
|
Caption = #21345#21495
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 13
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #21047#21345#26085#26399
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 246
|
||||||
|
Top = 13
|
||||||
|
Width = 12
|
||||||
|
Height = 12
|
||||||
|
Caption = #33267
|
||||||
|
end
|
||||||
|
object Label13: TLabel
|
||||||
|
Left = 288
|
||||||
|
Top = 128
|
||||||
|
Width = 24
|
||||||
|
Height = 12
|
||||||
|
Caption = #23458#25143
|
||||||
|
end
|
||||||
|
object Label17: TLabel
|
||||||
|
Left = 440
|
||||||
|
Top = 128
|
||||||
|
Width = 36
|
||||||
|
Height = 12
|
||||||
|
Caption = #19994#21153#21592
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 604
|
||||||
|
Top = 124
|
||||||
|
Width = 36
|
||||||
|
Height = 12
|
||||||
|
Caption = #33457#22411#21495
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 624
|
||||||
|
Top = 13
|
||||||
|
Width = 24
|
||||||
|
Height = 12
|
||||||
|
Caption = #24037#24207
|
||||||
|
end
|
||||||
|
object pcid: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 478
|
||||||
|
Top = 9
|
||||||
|
Width = 80
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 0
|
||||||
|
OnChange = pcidChange
|
||||||
|
end
|
||||||
|
object BegDate: TDateTimePicker
|
||||||
|
Left = 73
|
||||||
|
Top = 9
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
Date = 40768.000000000000000000
|
||||||
|
Time = 0.458268587972270300
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object EndDate: TDateTimePicker
|
||||||
|
Left = 255
|
||||||
|
Top = 9
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
Date = 40768.000000000000000000
|
||||||
|
Time = 0.458268587972270300
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object customerNoName: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 314
|
||||||
|
Top = 124
|
||||||
|
Width = 100
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 3
|
||||||
|
OnChange = pcidChange
|
||||||
|
end
|
||||||
|
object ywy: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 478
|
||||||
|
Top = 124
|
||||||
|
Width = 100
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 4
|
||||||
|
OnChange = pcidChange
|
||||||
|
end
|
||||||
|
object lbHx: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 642
|
||||||
|
Top = 120
|
||||||
|
Width = 80
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 5
|
||||||
|
OnChange = pcidChange
|
||||||
|
end
|
||||||
|
object begtime: TDateTimePicker
|
||||||
|
Left = 157
|
||||||
|
Top = 9
|
||||||
|
Width = 55
|
||||||
|
Height = 20
|
||||||
|
Date = 39780.000000000000000000
|
||||||
|
Format = 'HH:mm'
|
||||||
|
Time = 39780.000000000000000000
|
||||||
|
Kind = dtkTime
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object endTime: TDateTimePicker
|
||||||
|
Left = 339
|
||||||
|
Top = 9
|
||||||
|
Width = 55
|
||||||
|
Height = 20
|
||||||
|
Date = 39780.000000000000000000
|
||||||
|
Format = 'HH:mm'
|
||||||
|
Time = 0.999317129630071600
|
||||||
|
Kind = dtkTime
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object GlideName: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 654
|
||||||
|
Top = 9
|
||||||
|
Width = 80
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 8
|
||||||
|
OnChange = pcidChange
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid2: TcxGrid [2]
|
||||||
|
Left = 0
|
||||||
|
Top = 81
|
||||||
|
Width = 1473
|
||||||
|
Height = 501
|
||||||
|
Align = alClient
|
||||||
|
PopupMenu = PopupMenu1
|
||||||
|
TabOrder = 2
|
||||||
|
object Tv1: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
DataController.DataSource = DataSource1
|
||||||
|
DataController.Filter.AutoDataSetFilter = True
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = #20849' 0 '#34892
|
||||||
|
Kind = skCount
|
||||||
|
Column = Tv1Column5
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv1Column8
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv1Column17
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
object Tv1Column14: TcxGridDBColumn
|
||||||
|
Caption = #36873#25321
|
||||||
|
DataBinding.FieldName = 'ssel'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 45
|
||||||
|
end
|
||||||
|
object Tv1Column12: TcxGridDBColumn
|
||||||
|
Caption = #26085#26399
|
||||||
|
DataBinding.FieldName = 'GOTime'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 94
|
||||||
|
end
|
||||||
|
object Tv1Column5: TcxGridDBColumn
|
||||||
|
Caption = #21345#21495
|
||||||
|
DataBinding.FieldName = 'pcid'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 77
|
||||||
|
end
|
||||||
|
object Tv1Column6: TcxGridDBColumn
|
||||||
|
Caption = #24037#24207
|
||||||
|
DataBinding.FieldName = 'GlideName'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 82
|
||||||
|
end
|
||||||
|
object Tv1Column8: TcxGridDBColumn
|
||||||
|
Caption = #25968#37327
|
||||||
|
DataBinding.FieldName = 'Qty'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 81
|
||||||
|
end
|
||||||
|
object Tv1Column15: TcxGridDBColumn
|
||||||
|
Caption = #21333#20301
|
||||||
|
DataBinding.FieldName = 'QtyUnit'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 60
|
||||||
|
end
|
||||||
|
object Tv1Column18: TcxGridDBColumn
|
||||||
|
Caption = #21592#24037
|
||||||
|
DataBinding.FieldName = 'StaffName'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object Tv1Column10: TcxGridDBColumn
|
||||||
|
Caption = #25805#20316#21592
|
||||||
|
DataBinding.FieldName = 'Filler'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 60
|
||||||
|
end
|
||||||
|
object Tv1Column11: TcxGridDBColumn
|
||||||
|
Caption = #25805#20316#26102#38388
|
||||||
|
DataBinding.FieldName = 'FillTime'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 106
|
||||||
|
end
|
||||||
|
object Tv1Column1: TcxGridDBColumn
|
||||||
|
Caption = #26426#21488#21495
|
||||||
|
DataBinding.FieldName = 'MachineNo'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 84
|
||||||
|
end
|
||||||
|
object Tv1Column2: TcxGridDBColumn
|
||||||
|
Caption = #32463#35268#26684
|
||||||
|
DataBinding.FieldName = 'WB_Spec'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column3: TcxGridDBColumn
|
||||||
|
Caption = #22836#32441
|
||||||
|
DataBinding.FieldName = 'WB_YarnQty'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column4: TcxGridDBColumn
|
||||||
|
Caption = #32433#21517
|
||||||
|
DataBinding.FieldName = 'WB_YarnName'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column7: TcxGridDBColumn
|
||||||
|
Caption = #32463#20135#21697#21517
|
||||||
|
DataBinding.FieldName = 'WB_ClothName'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column9: TcxGridDBColumn
|
||||||
|
Caption = #32467#26463#20154
|
||||||
|
DataBinding.FieldName = 'Ender'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 69
|
||||||
|
end
|
||||||
|
object Tv1Column13: TcxGridDBColumn
|
||||||
|
Caption = #32467#26463#26102#38388
|
||||||
|
DataBinding.FieldName = 'EndTime'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 72
|
||||||
|
end
|
||||||
|
object Tv1Column16: TcxGridDBColumn
|
||||||
|
Caption = #29992#26102'('#20998')'
|
||||||
|
DataBinding.FieldName = 'JGSJ'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 69
|
||||||
|
end
|
||||||
|
object Tv1Column17: TcxGridDBColumn
|
||||||
|
Caption = #20135#37327#24037#36164
|
||||||
|
DataBinding.FieldName = 'OutMoney'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 82
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid2Level1: TcxGridLevel
|
||||||
|
GridView = Tv1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MovePanel2: TMovePanel [3]
|
||||||
|
Left = 351
|
||||||
|
Top = 244
|
||||||
|
Width = 289
|
||||||
|
Height = 49
|
||||||
|
BevelInner = bvLowered
|
||||||
|
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
|
||||||
|
Color = clSkyBlue
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -14
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseCmd: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
Left = 249
|
||||||
|
Top = 168
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseTemp: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
Left = 137
|
||||||
|
Top = 161
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 804
|
||||||
|
Top = 288
|
||||||
|
end
|
||||||
|
object ADOQueryMain: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 852
|
||||||
|
Top = 280
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 764
|
||||||
|
Top = 288
|
||||||
|
end
|
||||||
|
object DataSource1: TDataSource
|
||||||
|
DataSet = CDS_Main
|
||||||
|
Left = 896
|
||||||
|
Top = 360
|
||||||
|
end
|
||||||
|
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid2
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 888
|
||||||
|
Top = 144
|
||||||
|
end
|
||||||
|
object CDS_Main: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 768
|
||||||
|
Top = 376
|
||||||
|
end
|
||||||
|
object RMGridReport1: TRMGridReport
|
||||||
|
ThreadPrepareReport = True
|
||||||
|
InitialZoom = pzDefault
|
||||||
|
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
|
||||||
|
DefaultCollate = False
|
||||||
|
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||||
|
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||||
|
PreviewOptions.RulerVisible = False
|
||||||
|
PreviewOptions.DrawBorder = False
|
||||||
|
PreviewOptions.BorderPen.Color = clGray
|
||||||
|
PreviewOptions.BorderPen.Style = psDash
|
||||||
|
CompressLevel = rmzcFastest
|
||||||
|
CompressThread = False
|
||||||
|
LaterBuildEvents = True
|
||||||
|
OnlyOwnerDataSet = False
|
||||||
|
Left = 720
|
||||||
|
Top = 136
|
||||||
|
ReportData = {}
|
||||||
|
end
|
||||||
|
object PopupMenu1: TPopupMenu
|
||||||
|
Left = 544
|
||||||
|
Top = 192
|
||||||
|
object N1: TMenuItem
|
||||||
|
Caption = #20840#36873
|
||||||
|
OnClick = N1Click
|
||||||
|
end
|
||||||
|
object N2: TMenuItem
|
||||||
|
Caption = #20840#24323
|
||||||
|
OnClick = N2Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
315
E02梭织经轴仓库/U_TatOutputList1.pas
Normal file
315
E02梭织经轴仓库/U_TatOutputList1.pas
Normal file
|
|
@ -0,0 +1,315 @@
|
||||||
|
unit U_TatOutputList1;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||||
|
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
|
||||||
|
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
|
||||||
|
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
|
||||||
|
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
||||||
|
cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common,
|
||||||
|
RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||||
|
dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxCheckBox, Vcl.Menus,
|
||||||
|
dxScrollbarAnnotations;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmTatOutputList1 = class(TfrmBaseList)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBRafresh: TToolButton;
|
||||||
|
TBFind: TToolButton;
|
||||||
|
TBExport: TToolButton;
|
||||||
|
TBPrint: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
Panel1: TPanel;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
DataSource1: TDataSource;
|
||||||
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||||
|
Label3: TLabel;
|
||||||
|
pcid: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
BegDate: TDateTimePicker;
|
||||||
|
EndDate: TDateTimePicker;
|
||||||
|
CDS_Main: TClientDataSet;
|
||||||
|
Tv1: TcxGridDBTableView;
|
||||||
|
cxGrid2Level1: TcxGridLevel;
|
||||||
|
cxGrid2: TcxGrid;
|
||||||
|
MovePanel2: TMovePanel;
|
||||||
|
RMGridReport1: TRMGridReport;
|
||||||
|
customerNoName: TEdit;
|
||||||
|
Label13: TLabel;
|
||||||
|
ywy: TEdit;
|
||||||
|
Label17: TLabel;
|
||||||
|
Tv1Column5: TcxGridDBColumn;
|
||||||
|
Tv1Column6: TcxGridDBColumn;
|
||||||
|
Tv1Column8: TcxGridDBColumn;
|
||||||
|
Tv1Column10: TcxGridDBColumn;
|
||||||
|
Tv1Column11: TcxGridDBColumn;
|
||||||
|
Tv1Column12: TcxGridDBColumn;
|
||||||
|
lbHx: TEdit;
|
||||||
|
Label7: TLabel;
|
||||||
|
TBdel: TToolButton;
|
||||||
|
Tv1Column15: TcxGridDBColumn;
|
||||||
|
begtime: TDateTimePicker;
|
||||||
|
endTime: TDateTimePicker;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
Tv1Column14: TcxGridDBColumn;
|
||||||
|
Tv1Column1: TcxGridDBColumn;
|
||||||
|
Tv1Column2: TcxGridDBColumn;
|
||||||
|
Tv1Column3: TcxGridDBColumn;
|
||||||
|
Tv1Column4: TcxGridDBColumn;
|
||||||
|
Tv1Column7: TcxGridDBColumn;
|
||||||
|
Tv1Column9: TcxGridDBColumn;
|
||||||
|
Tv1Column13: TcxGridDBColumn;
|
||||||
|
Tv1Column16: TcxGridDBColumn;
|
||||||
|
Label4: TLabel;
|
||||||
|
GlideName: TEdit;
|
||||||
|
Tv1Column17: TcxGridDBColumn;
|
||||||
|
ToolButton2: TToolButton;
|
||||||
|
PopupMenu1: TPopupMenu;
|
||||||
|
N1: TMenuItem;
|
||||||
|
N2: TMenuItem;
|
||||||
|
Tv1Column18: TcxGridDBColumn;
|
||||||
|
procedure FormDestroy(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure TBRafreshClick(Sender: TObject);
|
||||||
|
procedure ConNoMChange(Sender: TObject);
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure TBExportClick(Sender: TObject);
|
||||||
|
procedure TBFindClick(Sender: TObject);
|
||||||
|
procedure pcidChange(Sender: TObject);
|
||||||
|
procedure PRTColorChange(Sender: TObject);
|
||||||
|
procedure TBdelClick(Sender: TObject);
|
||||||
|
procedure ToolButton1Click(Sender: TObject);
|
||||||
|
procedure ToolButton2Click(Sender: TObject);
|
||||||
|
procedure N1Click(Sender: TObject);
|
||||||
|
procedure N2Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
FLeft, FTop: Integer;
|
||||||
|
procedure InitGrid();
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
fsyrName, canshu1: string;
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmTatOutputList1: TfrmTatOutputList1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_RTFun, U_ZDYHelp, U_OutPutHelp;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
frmTatOutputList1 := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
|
||||||
|
BegDate.DateTime := EndDate.DateTime - 30;
|
||||||
|
fsyrName := trim(DdataBase);
|
||||||
|
canshu1 := trim(DParameters1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.InitGrid();
|
||||||
|
var
|
||||||
|
Msql, mbegdate, menddate: string;
|
||||||
|
begin
|
||||||
|
Msql := '';
|
||||||
|
if SGetFilters(Panel1, 1, 2) <> '' then
|
||||||
|
Msql := Msql + ' and ' + SGetFilters(Panel1, 1, 2);
|
||||||
|
mbegdate := FormatDateTime('yyyy-MM-dd', begdate.Date) + ' ' + FormatDateTime('HH:nn', begTime.Time);
|
||||||
|
menddate := FormatDateTime('yyyy-MM-dd', enddate.Date) + ' ' + FormatDateTime('HH:nn', endTime.Time);
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
Filtered := False;
|
||||||
|
sql.Add('select A.* ');
|
||||||
|
sql.Add(',B.WB_Spec,B.WB_YarnQty,B.WB_YarnName,B.WB_ClothName ');
|
||||||
|
sql.Add(',JGSJ=DATEDIFF(MI, A.FillTime, A.EndTime) ');
|
||||||
|
sql.Add(' from Tat_Plan_OutPut A left join Tat_WB_Card B on A.Pcid=B.WBCID ');
|
||||||
|
sql.add('where A.GOTime>=''' + trim(mbegdate) + ''' ');
|
||||||
|
sql.Add('and A.GOTime<''' + trim(menddate) + ''' ');
|
||||||
|
|
||||||
|
sql.Add('and GlideName in (''上浆'',''整经'') ');
|
||||||
|
sql.Add(Msql);
|
||||||
|
sql.Add('order by GOTime,pcid');
|
||||||
|
|
||||||
|
// showmessage(sql.Text);
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_Main);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_Main);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
TBFind.Click;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.N1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SelOKNo(CDS_Main, true);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.N2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SelOKNo(CDS_Main, False);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.TBRafreshClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
MovePanel2.Visible := True;
|
||||||
|
MovePanel2.Refresh;
|
||||||
|
InitGrid();
|
||||||
|
MovePanel2.Visible := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.ToolButton1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WriteCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.ToolButton2Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
MGOIDS: string;
|
||||||
|
begin
|
||||||
|
if CDS_Main.IsEmpty then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
if not CDS_Main.Locate('SSel', True, []) then
|
||||||
|
begin
|
||||||
|
application.MessageBox('请选择数据', '提示');
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
with CDS_Main do
|
||||||
|
begin
|
||||||
|
DisableControls;
|
||||||
|
while CDS_Main.Locate('SSel', True, []) do
|
||||||
|
begin
|
||||||
|
MGOIDS := MGOIDS + Trim(CDS_Main.fieldbyname('GOID').AsString) + ',';
|
||||||
|
CDS_Main.Delete;
|
||||||
|
end;
|
||||||
|
EnableControls;
|
||||||
|
end;
|
||||||
|
try
|
||||||
|
frmOutPutHelp := TfrmOutPutHelp.Create(Application);
|
||||||
|
with frmOutPutHelp do
|
||||||
|
begin
|
||||||
|
FGOIDS := MGOIDS;
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmOutPutHelp.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.ConNoMChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active then
|
||||||
|
begin
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ReadCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库');
|
||||||
|
canshu1 := self.fParameters1;
|
||||||
|
|
||||||
|
initgrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.TBExportClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.IsEmpty then
|
||||||
|
exit;
|
||||||
|
// SelExportData(tv1,ADOQueryMain,self.Caption);
|
||||||
|
TcxGridToExcel(self.Caption, cxGrid2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.TBFindClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active then
|
||||||
|
begin
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_Main);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_Main);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.pcidChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TBFind.Click;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.PRTColorChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TBFind.Click;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatOutputList1.TBdelClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CDS_Main.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||||
|
Exit;
|
||||||
|
try
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('delete Tat_Plan_OutPut where GOID=''' + Trim(CDS_Main.fieldbyname('GOID').AsString) + '''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
////////////////// 更新进度 //////////////////
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('insert into Nap_Need_Up(UType,UDataId) values(''机台刷卡'',' + quotedstr(Trim(CDS_Main.fieldbyname('GOID').AsString)) + ') ');
|
||||||
|
execsql;
|
||||||
|
end;
|
||||||
|
////////////////// 更新进度 //////////////////
|
||||||
|
CDS_Main.Delete;
|
||||||
|
except
|
||||||
|
application.MessageBox('删除失败！', '提示信息', 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
828
E02梭织经轴仓库/U_TatWBPlan.dfm
Normal file
828
E02梭织经轴仓库/U_TatWBPlan.dfm
Normal file
|
|
@ -0,0 +1,828 @@
|
||||||
|
inherited frmTatWBPlan: TfrmTatWBPlan
|
||||||
|
Left = 249
|
||||||
|
Top = 194
|
||||||
|
Caption = #27974#32433#35745#21010#21015#34920
|
||||||
|
ClientHeight = 652
|
||||||
|
ClientWidth = 1540
|
||||||
|
Font.Height = -16
|
||||||
|
Position = poScreenCenter
|
||||||
|
ExplicitWidth = 1556
|
||||||
|
ExplicitHeight = 691
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 21
|
||||||
|
object ToolBar1: TToolBar [0]
|
||||||
|
Tag = 1
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1540
|
||||||
|
Height = 38
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 38
|
||||||
|
ButtonWidth = 91
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clSkyBlue
|
||||||
|
DisabledImages = DataLink_WarpBeamStk.ImageList_new32
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
Images = DataLink_WarpBeamStk.ImageList_new32
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 5
|
||||||
|
object TBRafresh: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21047#26032
|
||||||
|
ImageIndex = 1
|
||||||
|
OnClick = TBRafreshClick
|
||||||
|
end
|
||||||
|
object TBFind: TToolButton
|
||||||
|
Left = 71
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #36807#28388
|
||||||
|
ImageIndex = 0
|
||||||
|
OnClick = TBFindClick
|
||||||
|
end
|
||||||
|
object TBAdd: TToolButton
|
||||||
|
Left = 142
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #26032#22686
|
||||||
|
ImageIndex = 9
|
||||||
|
OnClick = TBAddClick
|
||||||
|
end
|
||||||
|
object TBEdit: TToolButton
|
||||||
|
Left = 213
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20462#25913
|
||||||
|
ImageIndex = 3
|
||||||
|
OnClick = TBEditClick
|
||||||
|
end
|
||||||
|
object TBPrint: TToolButton
|
||||||
|
Left = 284
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #25171#21360
|
||||||
|
ImageIndex = 21
|
||||||
|
OnClick = TBPrintClick
|
||||||
|
end
|
||||||
|
object TBView: TToolButton
|
||||||
|
Left = 355
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #26597#30475
|
||||||
|
ImageIndex = 4
|
||||||
|
OnClick = TBViewClick
|
||||||
|
end
|
||||||
|
object TBDel: TToolButton
|
||||||
|
Left = 426
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21024#38500
|
||||||
|
ImageIndex = 5
|
||||||
|
OnClick = TBDelClick
|
||||||
|
end
|
||||||
|
object btnChk: TToolButton
|
||||||
|
Left = 497
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #24320#22987
|
||||||
|
ImageIndex = 20
|
||||||
|
OnClick = btnChkClick
|
||||||
|
end
|
||||||
|
object btnReChk: TToolButton
|
||||||
|
Left = 568
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #25764#38144#24320#22987
|
||||||
|
ImageIndex = 11
|
||||||
|
OnClick = btnReChkClick
|
||||||
|
end
|
||||||
|
object TBEnd: TToolButton
|
||||||
|
Left = 663
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #32467#26463
|
||||||
|
ImageIndex = 20
|
||||||
|
OnClick = TBEndClick
|
||||||
|
end
|
||||||
|
object TBNoEnd: TToolButton
|
||||||
|
Left = 734
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #25764#38144#32467#26463
|
||||||
|
ImageIndex = 11
|
||||||
|
OnClick = TBNoEndClick
|
||||||
|
end
|
||||||
|
object TBExport: TToolButton
|
||||||
|
Left = 829
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #23548#20986
|
||||||
|
ImageIndex = 20
|
||||||
|
OnClick = TBExportClick
|
||||||
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 900
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384#26684#24335
|
||||||
|
ImageIndex = 16
|
||||||
|
OnClick = ToolButton1Click
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 995
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 7
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel [1]
|
||||||
|
Left = 0
|
||||||
|
Top = 38
|
||||||
|
Width = 1540
|
||||||
|
Height = 45
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
Color = clWhite
|
||||||
|
ParentBackground = False
|
||||||
|
TabOrder = 6
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 18
|
||||||
|
Top = 14
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #30331#35760#26085#26399
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 202
|
||||||
|
Top = 14
|
||||||
|
Width = 21
|
||||||
|
Height = 21
|
||||||
|
Caption = '---'
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 341
|
||||||
|
Top = 14
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #23458#25143
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 491
|
||||||
|
Top = 14
|
||||||
|
Width = 48
|
||||||
|
Height = 21
|
||||||
|
Caption = #32463#35268#26684
|
||||||
|
end
|
||||||
|
object BegDate: TDateTimePicker
|
||||||
|
Left = 86
|
||||||
|
Top = 10
|
||||||
|
Width = 112
|
||||||
|
Height = 29
|
||||||
|
Date = 44378.000000000000000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 0.464742650459811600
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object EndDate: TDateTimePicker
|
||||||
|
Left = 227
|
||||||
|
Top = 10
|
||||||
|
Width = 110
|
||||||
|
Height = 29
|
||||||
|
Date = 40675.000000000000000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 0.464761099538009100
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object CustName: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 377
|
||||||
|
Top = 10
|
||||||
|
Width = 110
|
||||||
|
Height = 29
|
||||||
|
TabOrder = 2
|
||||||
|
OnChange = ConNoChange
|
||||||
|
OnKeyPress = CustNameKeyPress
|
||||||
|
end
|
||||||
|
object WB_Spec: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 543
|
||||||
|
Top = 10
|
||||||
|
Width = 110
|
||||||
|
Height = 29
|
||||||
|
TabOrder = 3
|
||||||
|
OnChange = ConNoChange
|
||||||
|
OnKeyPress = CustNameKeyPress
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid1: TcxGrid [2]
|
||||||
|
Left = 0
|
||||||
|
Top = 111
|
||||||
|
Width = 974
|
||||||
|
Height = 541
|
||||||
|
Align = alLeft
|
||||||
|
TabOrder = 2
|
||||||
|
ExplicitTop = 117
|
||||||
|
object Tv1: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
OnFocusedRecordChanged = Tv1FocusedRecordChanged
|
||||||
|
DataController.DataSource = DS_1
|
||||||
|
DataController.Filter.AutoDataSetFilter = True
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
Column = v1Column6
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v1Column6
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
end>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v1PRTOrderQty
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v1Column6
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsData.Editing = False
|
||||||
|
OptionsSelection.CellSelect = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
object Tv1Column2: TcxGridDBColumn
|
||||||
|
Caption = #27974#32433#21333#21495
|
||||||
|
DataBinding.FieldName = 'TWPId'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v1Column31: TcxGridDBColumn
|
||||||
|
Caption = #23458#25143
|
||||||
|
DataBinding.FieldName = 'CustName'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 87
|
||||||
|
end
|
||||||
|
object v1Column5: TcxGridDBColumn
|
||||||
|
Caption = #26085#26399
|
||||||
|
DataBinding.FieldName = 'FillTIme'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 71
|
||||||
|
end
|
||||||
|
object Tv1Column1: TcxGridDBColumn
|
||||||
|
Caption = #20844#21496#25260#22836
|
||||||
|
DataBinding.FieldName = 'OurCoName'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 82
|
||||||
|
end
|
||||||
|
object v1Column19: TcxGridDBColumn
|
||||||
|
Caption = #20132#36135#26085#26399
|
||||||
|
DataBinding.FieldName = 'DlyDate'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxDateEditProperties'
|
||||||
|
Properties.SaveTime = False
|
||||||
|
Properties.ShowTime = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 82
|
||||||
|
end
|
||||||
|
object v1Column21: TcxGridDBColumn
|
||||||
|
Caption = #21697#21517
|
||||||
|
DataBinding.FieldName = 'WB_Spec'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 92
|
||||||
|
end
|
||||||
|
object v1Column2: TcxGridDBColumn
|
||||||
|
Caption = #24635#32463#26681#25968
|
||||||
|
DataBinding.FieldName = 'WB_YarnQty'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 73
|
||||||
|
end
|
||||||
|
object v1Column6: TcxGridDBColumn
|
||||||
|
Caption = #24635#31859#25968
|
||||||
|
DataBinding.FieldName = 'WB_YarnTotalLen'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 59
|
||||||
|
end
|
||||||
|
object v1PRTOrderQty: TcxGridDBColumn
|
||||||
|
Caption = #39044#35745#36724#25968
|
||||||
|
DataBinding.FieldName = 'WB_Qty'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 92
|
||||||
|
end
|
||||||
|
object v1Column7: TcxGridDBColumn
|
||||||
|
Caption = #39044#35745#27974#26009#25104#26412
|
||||||
|
DataBinding.FieldName = 'SizingAgentCost'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 98
|
||||||
|
end
|
||||||
|
object v1Column4: TcxGridDBColumn
|
||||||
|
Caption = #22791#27880
|
||||||
|
DataBinding.FieldName = 'OrdNote'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 90
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid1Level1: TcxGridLevel
|
||||||
|
GridView = Tv1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxTabControl1: TcxTabControl [3]
|
||||||
|
Left = 0
|
||||||
|
Top = 83
|
||||||
|
Width = 1540
|
||||||
|
Height = 28
|
||||||
|
Align = alTop
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
Properties.CustomButtons.Buttons = <>
|
||||||
|
Properties.Style = 6
|
||||||
|
Properties.TabIndex = 0
|
||||||
|
Properties.Tabs.Strings = (
|
||||||
|
#24453#24320#22987
|
||||||
|
#24050#24320#22987
|
||||||
|
#24050#32467#26463
|
||||||
|
#20840#37096)
|
||||||
|
OnChange = cxTabControl1Change
|
||||||
|
ClientRectBottom = 30
|
||||||
|
ClientRectRight = 1540
|
||||||
|
ClientRectTop = 30
|
||||||
|
end
|
||||||
|
object Panel2: TPanel [4]
|
||||||
|
Left = 974
|
||||||
|
Top = 111
|
||||||
|
Width = 566
|
||||||
|
Height = 541
|
||||||
|
Align = alClient
|
||||||
|
Caption = 'Panel2'
|
||||||
|
TabOrder = 4
|
||||||
|
object cxGrid2: TcxGrid
|
||||||
|
Left = 1
|
||||||
|
Top = 67
|
||||||
|
Width = 564
|
||||||
|
Height = 233
|
||||||
|
Align = alClient
|
||||||
|
PopupMenu = PM_1
|
||||||
|
TabOrder = 0
|
||||||
|
object TV2: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
OnFocusedRecordChanged = TV2FocusedRecordChanged
|
||||||
|
DataController.DataSource = DS_2
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
end>
|
||||||
|
DataController.Summary.FooterSummaryItems = <>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
object cxGridDBColumn1: TcxGridDBColumn
|
||||||
|
Caption = #36873#25321
|
||||||
|
DataBinding.FieldName = 'SSel'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 42
|
||||||
|
end
|
||||||
|
object V2Column4: TcxGridDBColumn
|
||||||
|
Caption = #36724#21345#21495
|
||||||
|
DataBinding.FieldName = 'WBCID'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 77
|
||||||
|
end
|
||||||
|
object TV1Column5: TcxGridDBColumn
|
||||||
|
Caption = #21697#21517
|
||||||
|
DataBinding.FieldName = 'WB_Spec'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 71
|
||||||
|
end
|
||||||
|
object V2Column3: TcxGridDBColumn
|
||||||
|
Caption = #25972#32463#38271#24230
|
||||||
|
DataBinding.FieldName = 'WB_YarnLen'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 71
|
||||||
|
end
|
||||||
|
object cxGridDBColumn15: TcxGridDBColumn
|
||||||
|
Caption = #22836#32441
|
||||||
|
DataBinding.FieldName = 'WB_YarnQty'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 65
|
||||||
|
end
|
||||||
|
object TV1Column3: TcxGridDBColumn
|
||||||
|
Caption = #22791#27880
|
||||||
|
DataBinding.FieldName = 'Note'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 146
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridLevel1: TcxGridLevel
|
||||||
|
GridView = TV2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ToolBar2: TToolBar
|
||||||
|
Tag = 1
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 564
|
||||||
|
Height = 38
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 38
|
||||||
|
ButtonWidth = 75
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clSkyBlue
|
||||||
|
DisabledImages = DataLink_WarpBeamStk.ImageList_new32
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
Images = DataLink_WarpBeamStk.ImageList_new32
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 1
|
||||||
|
object ToolButton2: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #24320#36724
|
||||||
|
ImageIndex = 2
|
||||||
|
OnClick = ToolButton2Click
|
||||||
|
end
|
||||||
|
object ToolButton4: TToolButton
|
||||||
|
Left = 71
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #25171#21360
|
||||||
|
ImageIndex = 21
|
||||||
|
OnClick = ToolButton4Click
|
||||||
|
end
|
||||||
|
object ToolButton3: TToolButton
|
||||||
|
Left = 142
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21024#38500
|
||||||
|
ImageIndex = 0
|
||||||
|
OnClick = ToolButton3Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxTabControl2: TcxTabControl
|
||||||
|
Left = 1
|
||||||
|
Top = 39
|
||||||
|
Width = 564
|
||||||
|
Height = 28
|
||||||
|
Align = alTop
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
Properties.CustomButtons.Buttons = <>
|
||||||
|
Properties.Style = 6
|
||||||
|
Properties.TabIndex = 0
|
||||||
|
Properties.Tabs.Strings = (
|
||||||
|
#32463#36724
|
||||||
|
#27974#36724)
|
||||||
|
OnChange = cxTabControl2Change
|
||||||
|
ClientRectBottom = 30
|
||||||
|
ClientRectRight = 564
|
||||||
|
ClientRectTop = 30
|
||||||
|
end
|
||||||
|
object cxGrid3: TcxGrid
|
||||||
|
Left = 1
|
||||||
|
Top = 300
|
||||||
|
Width = 564
|
||||||
|
Height = 240
|
||||||
|
Align = alBottom
|
||||||
|
TabOrder = 3
|
||||||
|
LockedStateImageOptions.AssignedValues = [lsiavFont]
|
||||||
|
LockedStateImageOptions.Font.Charset = GB2312_CHARSET
|
||||||
|
LockedStateImageOptions.Font.Color = clWindowText
|
||||||
|
LockedStateImageOptions.Font.Height = -19
|
||||||
|
LockedStateImageOptions.Font.Name = #24494#36719#38597#40657
|
||||||
|
LockedStateImageOptions.Font.Style = [fsBold]
|
||||||
|
object TV3: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
DataController.DataSource = DS_3
|
||||||
|
DataController.Filter.AutoDataSetFilter = True
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = 'C_Code'
|
||||||
|
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>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsBehavior.FocusCellOnTab = True
|
||||||
|
OptionsBehavior.GoToNextCellOnEnter = True
|
||||||
|
OptionsBehavior.FocusCellOnCycle = True
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
object v2Column10: TcxGridDBColumn
|
||||||
|
Caption = #21407#26009#20195#21495
|
||||||
|
DataBinding.FieldName = 'Y_Code'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 131
|
||||||
|
end
|
||||||
|
object cxGridDBColumn2: TcxGridDBColumn
|
||||||
|
Caption = #21407#26009#21517#31216
|
||||||
|
DataBinding.FieldName = 'Y_Name'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxButtonEditProperties'
|
||||||
|
Properties.Buttons = <
|
||||||
|
item
|
||||||
|
Default = True
|
||||||
|
Kind = bkEllipsis
|
||||||
|
end>
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Moving = False
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 138
|
||||||
|
end
|
||||||
|
object v2Column2: TcxGridDBColumn
|
||||||
|
Caption = #32433#32447#21697#29260
|
||||||
|
DataBinding.FieldName = 'Brand'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Moving = False
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 111
|
||||||
|
end
|
||||||
|
object v2Column6: TcxGridDBColumn
|
||||||
|
Caption = #39068#33394
|
||||||
|
DataBinding.FieldName = 'Y_Color'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 99
|
||||||
|
end
|
||||||
|
object cxGridDBColumn3: TcxGridDBColumn
|
||||||
|
Caption = #37197#27604
|
||||||
|
DataBinding.FieldName = 'Y_Ratio'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 69
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridLevel2: TcxGridLevel
|
||||||
|
GridView = TV3
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited cxProgressBar2: TcxProgressBar
|
||||||
|
ExplicitHeight = 29
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseCmd: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
Left = 214
|
||||||
|
Top = 216
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseTemp: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
Left = 89
|
||||||
|
Top = 217
|
||||||
|
end
|
||||||
|
object GPM_1: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid1
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 525
|
||||||
|
Top = 318
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 503
|
||||||
|
Top = 190
|
||||||
|
end
|
||||||
|
object ADOQueryMain: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 399
|
||||||
|
Top = 194
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 605
|
||||||
|
Top = 191
|
||||||
|
end
|
||||||
|
object DS_1: TDataSource
|
||||||
|
DataSet = CDS_1
|
||||||
|
Left = 650
|
||||||
|
Top = 319
|
||||||
|
end
|
||||||
|
object CDS_1: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 584
|
||||||
|
Top = 318
|
||||||
|
end
|
||||||
|
object DS_2: TDataSource
|
||||||
|
DataSet = CDS_2
|
||||||
|
Left = 646
|
||||||
|
Top = 423
|
||||||
|
end
|
||||||
|
object CDS_2: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 585
|
||||||
|
Top = 422
|
||||||
|
end
|
||||||
|
object GPM_2: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid2
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 531
|
||||||
|
Top = 423
|
||||||
|
end
|
||||||
|
object DS_3: TDataSource
|
||||||
|
DataSet = CDS_3
|
||||||
|
Left = 644
|
||||||
|
Top = 514
|
||||||
|
end
|
||||||
|
object CDS_3: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 590
|
||||||
|
Top = 512
|
||||||
|
end
|
||||||
|
object GPM_3: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid3
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 533
|
||||||
|
Top = 516
|
||||||
|
end
|
||||||
|
object ADO_2: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 440
|
||||||
|
Top = 425
|
||||||
|
end
|
||||||
|
object ADO_3: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 445
|
||||||
|
Top = 512
|
||||||
|
end
|
||||||
|
object PM_1: TPopupMenu
|
||||||
|
Left = 777
|
||||||
|
Top = 304
|
||||||
|
object N5: TMenuItem
|
||||||
|
Caption = #20840#36873
|
||||||
|
OnClick = N5Click
|
||||||
|
end
|
||||||
|
object N6: TMenuItem
|
||||||
|
Caption = #20840#24323
|
||||||
|
OnClick = N6Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
835
E02梭织经轴仓库/U_TatWBPlan.pas
Normal file
835
E02梭织经轴仓库/U_TatWBPlan.pas
Normal file
|
|
@ -0,0 +1,835 @@
|
||||||
|
unit U_TatWBPlan;
|
||||||
|
|
||||||
|
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, cxLookAndFeels,
|
||||||
|
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
|
||||||
|
cxPC, cxCheckBox, dxScrollbarAnnotations, Vcl.Menus, cxContainer,
|
||||||
|
cxProgressBar;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmTatWBPlan = class(TfrmBaseList)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBRafresh: TToolButton;
|
||||||
|
TBFind: TToolButton;
|
||||||
|
TBAdd: TToolButton;
|
||||||
|
TBEdit: TToolButton;
|
||||||
|
TBDel: TToolButton;
|
||||||
|
TBPrint: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
Panel1: TPanel;
|
||||||
|
BegDate: TDateTimePicker;
|
||||||
|
EndDate: TDateTimePicker;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
GPM_1: TcxGridPopupMenu;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
DS_1: TDataSource;
|
||||||
|
TBExport: TToolButton;
|
||||||
|
CDS_1: TClientDataSet;
|
||||||
|
cxGrid1: TcxGrid;
|
||||||
|
Tv1: TcxGridDBTableView;
|
||||||
|
v1Column2: TcxGridDBColumn;
|
||||||
|
v1Column5: TcxGridDBColumn;
|
||||||
|
v1PRTOrderQty: TcxGridDBColumn;
|
||||||
|
v1Column4: TcxGridDBColumn;
|
||||||
|
cxGrid1Level1: TcxGridLevel;
|
||||||
|
v1Column6: TcxGridDBColumn;
|
||||||
|
v1Column7: TcxGridDBColumn;
|
||||||
|
TBView: TToolButton;
|
||||||
|
v1Column19: TcxGridDBColumn;
|
||||||
|
v1Column21: TcxGridDBColumn;
|
||||||
|
v1Column31: TcxGridDBColumn;
|
||||||
|
CustName: TEdit;
|
||||||
|
Label7: TLabel;
|
||||||
|
cxTabControl1: TcxTabControl;
|
||||||
|
Tv1Column1: TcxGridDBColumn;
|
||||||
|
Tv1Column2: TcxGridDBColumn;
|
||||||
|
TBEnd: TToolButton;
|
||||||
|
TBNoEnd: TToolButton;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
btnChk: TToolButton;
|
||||||
|
btnReChk: TToolButton;
|
||||||
|
Panel2: TPanel;
|
||||||
|
cxGrid2: TcxGrid;
|
||||||
|
TV2: TcxGridDBTableView;
|
||||||
|
cxGridDBColumn1: TcxGridDBColumn;
|
||||||
|
V2Column4: TcxGridDBColumn;
|
||||||
|
TV1Column5: TcxGridDBColumn;
|
||||||
|
V2Column3: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn15: TcxGridDBColumn;
|
||||||
|
TV1Column3: TcxGridDBColumn;
|
||||||
|
cxGridLevel1: TcxGridLevel;
|
||||||
|
ToolBar2: TToolBar;
|
||||||
|
ToolButton2: TToolButton;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
DS_2: TDataSource;
|
||||||
|
CDS_2: TClientDataSet;
|
||||||
|
GPM_2: TcxGridPopupMenu;
|
||||||
|
Label3: TLabel;
|
||||||
|
WB_Spec: TEdit;
|
||||||
|
ToolButton4: TToolButton;
|
||||||
|
cxTabControl2: TcxTabControl;
|
||||||
|
cxGrid3: TcxGrid;
|
||||||
|
TV3: TcxGridDBTableView;
|
||||||
|
v2Column10: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn2: TcxGridDBColumn;
|
||||||
|
v2Column2: TcxGridDBColumn;
|
||||||
|
v2Column6: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn3: TcxGridDBColumn;
|
||||||
|
cxGridLevel2: TcxGridLevel;
|
||||||
|
DS_3: TDataSource;
|
||||||
|
CDS_3: TClientDataSet;
|
||||||
|
GPM_3: TcxGridPopupMenu;
|
||||||
|
ADO_2: TADOQuery;
|
||||||
|
ADO_3: TADOQuery;
|
||||||
|
PM_1: TPopupMenu;
|
||||||
|
N5: TMenuItem;
|
||||||
|
N6: TMenuItem;
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure TBFindClick(Sender: TObject);
|
||||||
|
procedure TBEditClick(Sender: TObject);
|
||||||
|
procedure TBDelClick(Sender: TObject);
|
||||||
|
procedure TBExportClick(Sender: TObject);
|
||||||
|
procedure TBPrintClick(Sender: TObject);
|
||||||
|
procedure TBRafreshClick(Sender: TObject);
|
||||||
|
procedure TBAddClick(Sender: TObject);
|
||||||
|
procedure ConNoChange(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure TBViewClick(Sender: TObject);
|
||||||
|
procedure OrdTypeChange(Sender: TObject);
|
||||||
|
procedure C_CodeKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure BatchNoHZKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure CustNameKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure cxTabControl1Change(Sender: TObject);
|
||||||
|
procedure TBEndClick(Sender: TObject);
|
||||||
|
procedure TBNoEndClick(Sender: TObject);
|
||||||
|
procedure ToolButton1Click(Sender: TObject);
|
||||||
|
procedure btnChkClick(Sender: TObject);
|
||||||
|
procedure btnReChkClick(Sender: TObject);
|
||||||
|
procedure ToolButton2Click(Sender: TObject);
|
||||||
|
procedure ToolButton4Click(Sender: TObject);
|
||||||
|
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||||||
|
procedure cxTabControl2Change(Sender: TObject);
|
||||||
|
procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||||||
|
procedure ToolButton3Click(Sender: TObject);
|
||||||
|
procedure N5Click(Sender: TObject);
|
||||||
|
procedure N6Click(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
FInt, PFInt: Integer;
|
||||||
|
procedure InitGrid();
|
||||||
|
procedure InitCard();
|
||||||
|
procedure InitCardYarn();
|
||||||
|
procedure InitForm();
|
||||||
|
function DelData(): Boolean;
|
||||||
|
procedure InitButton();
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
canshu1, FCheJian: string;
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBPlanInPut,
|
||||||
|
U_TatWBPlanCardInPut;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
procedure TfrmTatWBPlan.InitCard();
|
||||||
|
begin
|
||||||
|
with ADO_2 do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select A.* ');
|
||||||
|
sql.Add(' from Tat_WB_Card A ');
|
||||||
|
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
|
||||||
|
case cxTabControl2.TabIndex of
|
||||||
|
0:
|
||||||
|
begin
|
||||||
|
sql.Add('and WB_Type =''经轴'' ');
|
||||||
|
end;
|
||||||
|
1:
|
||||||
|
begin
|
||||||
|
sql.Add('and WB_Type =''浆轴'' ');
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADO_2, CDS_2);
|
||||||
|
SInitCDSData(ADO_2, CDS_2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.InitCardYarn();
|
||||||
|
begin
|
||||||
|
|
||||||
|
with ADO_3 do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select A.* ');
|
||||||
|
sql.Add(' from Tat_WB_Card_Yarn A ');
|
||||||
|
sql.Add('where WBCID=' + quotedstr(trim(CDS_2.fieldbyname('WBCID').AsString)));
|
||||||
|
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADO_3, CDS_3);
|
||||||
|
SInitCDSData(ADO_3, CDS_3);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.InitButton();
|
||||||
|
begin
|
||||||
|
|
||||||
|
TBAdd.Enabled := False;
|
||||||
|
TBEdit.Enabled := False;
|
||||||
|
TBDel.Enabled := False;
|
||||||
|
TBEnd.Enabled := False;
|
||||||
|
TBNoEnd.Enabled := False;
|
||||||
|
btnChk.Enabled := False;
|
||||||
|
btnReChk.Enabled := False;
|
||||||
|
if Trim(canshu1) = '录入' then
|
||||||
|
begin
|
||||||
|
case cxTabControl1.TabIndex of
|
||||||
|
0:
|
||||||
|
begin
|
||||||
|
TBAdd.Enabled := true;
|
||||||
|
TBDel.Enabled := true;
|
||||||
|
TBEdit.Enabled := true;
|
||||||
|
btnChk.Enabled := true;
|
||||||
|
|
||||||
|
end;
|
||||||
|
1:
|
||||||
|
begin
|
||||||
|
TBAdd.Enabled := true;
|
||||||
|
TBEnd.Enabled := true;
|
||||||
|
TBEdit.Enabled := true;
|
||||||
|
btnReChk.Enabled := true;
|
||||||
|
end;
|
||||||
|
2:
|
||||||
|
begin
|
||||||
|
TBNoEnd.Enabled := true;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Trim(canshu1) = '管理' then
|
||||||
|
begin
|
||||||
|
case cxTabControl1.TabIndex of
|
||||||
|
0:
|
||||||
|
begin
|
||||||
|
TBAdd.Enabled := true;
|
||||||
|
TBDel.Enabled := true;
|
||||||
|
TBEdit.Enabled := true;
|
||||||
|
btnChk.Enabled := true;
|
||||||
|
end;
|
||||||
|
1:
|
||||||
|
begin
|
||||||
|
TBAdd.Enabled := true;
|
||||||
|
TBEnd.Enabled := true;
|
||||||
|
TBEdit.Enabled := true;
|
||||||
|
btnReChk.Enabled := true;
|
||||||
|
end;
|
||||||
|
2:
|
||||||
|
begin
|
||||||
|
TBNoEnd.Enabled := true;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.InitGrid();
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Filtered := False;
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select A.* ');
|
||||||
|
sql.Add(' from Tat_WB_Plan A ');
|
||||||
|
sql.Add('where 1=1 ');
|
||||||
|
case cxTabControl1.TabIndex of
|
||||||
|
0:
|
||||||
|
begin
|
||||||
|
sql.Add('and isnull(Status,''0'') =''0'' ');
|
||||||
|
end;
|
||||||
|
1:
|
||||||
|
begin
|
||||||
|
sql.Add('and isnull(Status,''0'') =''9'' ');
|
||||||
|
end;
|
||||||
|
2:
|
||||||
|
begin
|
||||||
|
sql.Add('and isnull(Status,''0'') =''10'' ');
|
||||||
|
sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
|
||||||
|
sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
sql.add('order by A.FILLTIME DESC');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_1);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.N5Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SelOKNo(CDS_2, True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.N6Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SelOKNo(CDS_2, False);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.InitForm();
|
||||||
|
begin
|
||||||
|
|
||||||
|
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '坯布生产管理');
|
||||||
|
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '坯布生产管理');
|
||||||
|
ReadCxGrid(trim(self.Caption) + 'Tv3', Tv3, '坯布生产管理');
|
||||||
|
BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 30;
|
||||||
|
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
|
||||||
|
InitButton();
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.TBFindClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TBRafresh.Click;
|
||||||
|
if ADOQueryMain.Active = False then
|
||||||
|
Exit;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.TBNoEndClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
exit;
|
||||||
|
try
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('update Tat_WB_Plan SET status=''0'',Comper=null,Comptime=null ');
|
||||||
|
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
|
||||||
|
|
||||||
|
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||||
|
sql.Add(' ' + quotedstr(trim(DName)));
|
||||||
|
sql.Add(',getdate() ');
|
||||||
|
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||||
|
sql.Add(',' + quotedstr(trim('生产单撤销结束')));
|
||||||
|
sql.Add(',' + quotedstr(trim('计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
|
||||||
|
sql.Add(',' + quotedstr(trim('成功')));
|
||||||
|
sql.Add(')');
|
||||||
|
execsql;
|
||||||
|
end;
|
||||||
|
application.MessageBox('撤销结束成功！', '提示信息');
|
||||||
|
TBRafresh.Click;
|
||||||
|
except
|
||||||
|
application.MessageBox('撤销结束失败！', '提示信息', 0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.TBEditClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||||
|
sql.Add(' ' + quotedstr(trim(DName)));
|
||||||
|
sql.Add(',getdate() ');
|
||||||
|
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||||
|
sql.Add(',' + quotedstr(trim('浆纱计划单修改')));
|
||||||
|
sql.Add(',' + quotedstr(trim('计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
|
||||||
|
sql.Add(',' + quotedstr(trim('成功')));
|
||||||
|
sql.Add(')');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
try
|
||||||
|
frmTatWBPlanInPut := TfrmTatWBPlanInPut.Create(Application);
|
||||||
|
with frmTatWBPlanInPut do
|
||||||
|
begin
|
||||||
|
PState := 1;
|
||||||
|
FTWPId := Trim(Self.CDS_1.fieldbyname('TWPId').AsString);
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
Self.CDS_1.Locate('TWPId', frmTatWBPlanInPut.FTWPId, []);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmTatWBPlanInPut.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.TBEndClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
exit;
|
||||||
|
try
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('update Tat_WB_Plan SET status=''10'' ,Comper=''' + trim(DName) + ''',Comptime=getdate() ');
|
||||||
|
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
|
||||||
|
|
||||||
|
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||||
|
sql.Add(' ' + quotedstr(trim(DName)));
|
||||||
|
sql.Add(',getdate() ');
|
||||||
|
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||||
|
sql.Add(',' + quotedstr(trim('生产单结束')));
|
||||||
|
sql.Add(',' + quotedstr(trim('计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
|
||||||
|
sql.Add(',' + quotedstr(trim('成功')));
|
||||||
|
sql.Add(')');
|
||||||
|
execsql;
|
||||||
|
end;
|
||||||
|
application.MessageBox('结束成功！', '提示信息');
|
||||||
|
TBRafresh.Click;
|
||||||
|
except
|
||||||
|
application.MessageBox('结束失败！', '提示信息', 0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.TBDelClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
SQL.Add('select A.*');
|
||||||
|
sql.Add('from Tat_Plan_Card A');
|
||||||
|
sql.Add(' where A.TWPId=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + '''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if ADOQueryTemp.IsEmpty = False then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('已产生安排数据不能删除!', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||||
|
Exit;
|
||||||
|
if DelData() then
|
||||||
|
begin
|
||||||
|
CDS_1.Delete;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrmTatWBPlan.DelData(): Boolean;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
Result := false;
|
||||||
|
ADOQueryCmd.Connection.BeginTrans;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('delete Tat_WB_Plan where TWPId=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + '''');
|
||||||
|
|
||||||
|
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||||
|
sql.Add(' ' + quotedstr(trim(DName)));
|
||||||
|
sql.Add(',getdate() ');
|
||||||
|
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||||
|
sql.Add(',' + quotedstr(trim('整经单删除')));
|
||||||
|
sql.Add(',' + quotedstr(trim('整经计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
|
||||||
|
sql.Add(',' + quotedstr(trim('成功')));
|
||||||
|
sql.Add(')');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
ADOQueryCmd.Connection.CommitTrans;
|
||||||
|
Result := True;
|
||||||
|
except
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
Result := False;
|
||||||
|
Application.MessageBox('数据删除异常！', '提示', 0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.TBExportClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
TcxGridToExcel('坯布生产单', cxGrid1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.TBPrintClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
WSql: string;
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
WSql := Trim(CDS_1.fieldbyname('TWPId').AsString);
|
||||||
|
|
||||||
|
try
|
||||||
|
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||||
|
with frmLabelPrint do
|
||||||
|
begin
|
||||||
|
FLMType := 'TatWBPlan';
|
||||||
|
FFiltration1 := WSql;
|
||||||
|
FFiltration2 := WSql;
|
||||||
|
FFiltration3 := WSql;
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
// Self.InitGrid();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmLabelPrint.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.TBRafreshClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.TBAddClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmTatWBPlanInPut := TfrmTatWBPlanInPut.Create(Application);
|
||||||
|
with frmTatWBPlanInPut do
|
||||||
|
begin
|
||||||
|
PState := 0;
|
||||||
|
FTWPId := '';
|
||||||
|
FSubId := '';
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmTatWBPlanInPut.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.ConNoChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active = False then
|
||||||
|
Exit;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
canshu1 := Self.fParameters1;
|
||||||
|
InitForm();
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.TBViewClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmTatWBPlanInPut := TfrmTatWBPlanInPut.Create(Application);
|
||||||
|
with frmTatWBPlanInPut do
|
||||||
|
begin
|
||||||
|
PState := 1;
|
||||||
|
FTWPId := Trim(Self.CDS_1.fieldbyname('TWPId').AsString);
|
||||||
|
TBSave.Visible := False;
|
||||||
|
ToolBar3.Visible := False;
|
||||||
|
ScrollBox1.Enabled := False;
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmTatWBPlanInPut.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.ToolButton1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '坯布生产管理');
|
||||||
|
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '坯布生产管理');
|
||||||
|
WriteCxGrid(trim(self.Caption) + 'Tv3', Tv3, '坯布生产管理');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.ToolButton2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmTatWBPlanCardInPut := TfrmTatWBPlanCardInPut.Create(Application);
|
||||||
|
with frmTatWBPlanCardInPut do
|
||||||
|
begin
|
||||||
|
FTWPId := Trim(self.CDS_1.fieldbyname('TWPId').AsString);
|
||||||
|
case cxTabControl2.TabIndex of
|
||||||
|
0:
|
||||||
|
begin
|
||||||
|
FWB_Type := '经轴';
|
||||||
|
end;
|
||||||
|
1:
|
||||||
|
begin
|
||||||
|
FWB_Type := '浆轴';
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
InitCard();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmTatWBPlanCardInPut.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.ToolButton3Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
rtvalues: TArray<string>;
|
||||||
|
begin
|
||||||
|
if CDS_2.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
Tv2.OnFocusedRecordChanged := nil;
|
||||||
|
if CDS_2.Locate('SSel', True, []) = False then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
rtvalues := SelCDSKey(CDS_2, ['WBCID']);
|
||||||
|
try
|
||||||
|
ADOQueryCmd.Connection.BeginTrans;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
Sql.Clear;
|
||||||
|
Sql.Add('exec P_TatWB_Card_Del ');
|
||||||
|
Sql.Add('@WBCIDS=' + quotedstr(Trim(rtvalues[0])));
|
||||||
|
Sql.Add(',@DCode=' + Quotedstr(DCode));
|
||||||
|
Sql.Add(',@DName=' + Quotedstr(DName));
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||||
|
begin
|
||||||
|
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||||
|
end;
|
||||||
|
ADOQueryCmd.Connection.CommitTrans;
|
||||||
|
InitCard();
|
||||||
|
application.MessageBox('删除成功！', '提示信息');
|
||||||
|
except
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.ToolButton4Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
RTValues: TArray<string>;
|
||||||
|
begin
|
||||||
|
if CDS_2.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
|
||||||
|
RTValues := SelCDSKey(CDS_2, ['WBCID']);
|
||||||
|
|
||||||
|
try
|
||||||
|
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||||
|
with frmLabelPrint do
|
||||||
|
begin
|
||||||
|
FPreviewPrint := False;
|
||||||
|
case cxTabControl2.TabIndex of
|
||||||
|
0:
|
||||||
|
begin
|
||||||
|
FLMType := 'TatWBCard1';
|
||||||
|
end;
|
||||||
|
1:
|
||||||
|
begin
|
||||||
|
FLMType := 'TatWBCard2';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
FFiltration1 := RTValues[0];
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
// Self.InitGrid();
|
||||||
|
// with ADOQueryCmd do
|
||||||
|
// begin
|
||||||
|
// Close;
|
||||||
|
// sql.Clear;
|
||||||
|
// sql.Add('update Tat_WB_Card ');
|
||||||
|
// sql.Add(' set PRTer=' + quotedstr(DName));
|
||||||
|
// sql.Add(', PRTCount=PRTCount+1');
|
||||||
|
// sql.Add(', PRTDate=getdate()');
|
||||||
|
// sql.Add(' where WBCID in (' + WSql + ')');
|
||||||
|
// ExecSQL;
|
||||||
|
// end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmLabelPrint.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||||||
|
begin
|
||||||
|
InitCard();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||||||
|
begin
|
||||||
|
InitCardYarn();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.btnChkClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
exit;
|
||||||
|
try
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('update Tat_WB_Plan SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() ');
|
||||||
|
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
|
||||||
|
|
||||||
|
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||||
|
sql.Add(' ' + quotedstr(trim(DName)));
|
||||||
|
sql.Add(',getdate() ');
|
||||||
|
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||||
|
sql.Add(',' + quotedstr(trim('生产单开始')));
|
||||||
|
sql.Add(',' + quotedstr(trim('计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
|
||||||
|
sql.Add(',' + quotedstr(trim('成功')));
|
||||||
|
sql.Add(')');
|
||||||
|
execsql;
|
||||||
|
end;
|
||||||
|
application.MessageBox('开始成功！', '提示信息');
|
||||||
|
TBRafresh.Click;
|
||||||
|
except
|
||||||
|
application.MessageBox('开始失败！', '提示信息', 0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.btnReChkClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
try
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('update Tat_WB_Plan SET status=''0'',chker=null,Chktime=null ');
|
||||||
|
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
|
||||||
|
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||||
|
sql.Add(' ' + quotedstr(trim(DName)));
|
||||||
|
sql.Add(',getdate() ');
|
||||||
|
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||||
|
sql.Add(',' + quotedstr(trim('生产单撤销开始')));
|
||||||
|
sql.Add(',' + quotedstr(trim('计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
|
||||||
|
sql.Add(',' + quotedstr(trim('成功')));
|
||||||
|
sql.Add(')');
|
||||||
|
execsql;
|
||||||
|
end;
|
||||||
|
TBRafresh.Click;
|
||||||
|
except
|
||||||
|
application.MessageBox('计划单撤销开始失败！', '提示信息', 0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.OrdTypeChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TBRafresh.Click;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.C_CodeKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
begin
|
||||||
|
if Key = #13 then
|
||||||
|
TBRafresh.Click();
|
||||||
|
if ADOQueryMain.Active = False then
|
||||||
|
Exit;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.BatchNoHZKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
begin
|
||||||
|
if Key = #13 then
|
||||||
|
TBRafresh.Click();
|
||||||
|
if ADOQueryMain.Active = False then
|
||||||
|
Exit;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.CustNameKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
begin
|
||||||
|
if Key = #13 then
|
||||||
|
TBRafresh.Click();
|
||||||
|
if ADOQueryMain.Active = False then
|
||||||
|
Exit;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.cxTabControl1Change(Sender: TObject);
|
||||||
|
begin
|
||||||
|
InitButton();
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.cxTabControl2Change(Sender: TObject);
|
||||||
|
begin
|
||||||
|
InitCard();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlan.C_NameKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
begin
|
||||||
|
if Key = #13 then
|
||||||
|
TBRafresh.Click();
|
||||||
|
if ADOQueryMain.Active = False then
|
||||||
|
Exit;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
660
E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm
Normal file
660
E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm
Normal file
|
|
@ -0,0 +1,660 @@
|
||||||
|
inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
|
||||||
|
Left = -35
|
||||||
|
Top = 98
|
||||||
|
Caption = #32463#36724#35745#21010
|
||||||
|
ClientHeight = 667
|
||||||
|
ClientWidth = 1540
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Position = poMainFormCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
ExplicitWidth = 1556
|
||||||
|
ExplicitHeight = 706
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 12
|
||||||
|
object Panel2: TPanel [0]
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1540
|
||||||
|
Height = 667
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 1538
|
||||||
|
Height = 83
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
Color = clWhite
|
||||||
|
ParentBackground = False
|
||||||
|
TabOrder = 1
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 377
|
||||||
|
Top = 50
|
||||||
|
Width = 54
|
||||||
|
Height = 12
|
||||||
|
Caption = #22836' '#32441
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 377
|
||||||
|
Top = 21
|
||||||
|
Width = 54
|
||||||
|
Height = 12
|
||||||
|
Caption = #36724' '#25968
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlue
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 561
|
||||||
|
Top = 50
|
||||||
|
Width = 52
|
||||||
|
Height = 12
|
||||||
|
Caption = #25972#32463#38271#24230
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 763
|
||||||
|
Top = 21
|
||||||
|
Width = 54
|
||||||
|
Height = 12
|
||||||
|
Caption = #22791' '#27880
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 201
|
||||||
|
Top = 21
|
||||||
|
Width = 54
|
||||||
|
Height = 12
|
||||||
|
Caption = #26085' '#26399
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 254
|
||||||
|
Width = 53
|
||||||
|
Height = 12
|
||||||
|
Caption = #20379' '#24212' '#21830
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clMaroon
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label18: TLabel
|
||||||
|
Left = 18
|
||||||
|
Top = 21
|
||||||
|
Width = 52
|
||||||
|
Height = 12
|
||||||
|
Caption = #27974#32433#35745#21010
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label19: TLabel
|
||||||
|
Left = 17
|
||||||
|
Top = 50
|
||||||
|
Width = 54
|
||||||
|
Height = 12
|
||||||
|
Caption = #21697' '#21517
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label12: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 217
|
||||||
|
Width = 53
|
||||||
|
Height = 12
|
||||||
|
Caption = #30424' '#22836' '#21495
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clMaroon
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object WB_YarnQty: TEdit
|
||||||
|
Tag = 1
|
||||||
|
Left = 436
|
||||||
|
Top = 45
|
||||||
|
Width = 100
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object edtCardQty: TEdit
|
||||||
|
Tag = 1
|
||||||
|
Left = 435
|
||||||
|
Top = 20
|
||||||
|
Width = 282
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object WB_Spec: TEdit
|
||||||
|
Tag = 1
|
||||||
|
Left = 76
|
||||||
|
Top = 46
|
||||||
|
Width = 282
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object WB_YarnLen: TEdit
|
||||||
|
Tag = 1
|
||||||
|
Left = 619
|
||||||
|
Top = 45
|
||||||
|
Width = 100
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object Note: TRichEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 823
|
||||||
|
Top = 20
|
||||||
|
Width = 282
|
||||||
|
Height = 49
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 4
|
||||||
|
Zoom = 100
|
||||||
|
end
|
||||||
|
object WBData: TDateTimePicker
|
||||||
|
Left = 258
|
||||||
|
Top = 17
|
||||||
|
Width = 100
|
||||||
|
Height = 20
|
||||||
|
Date = 44378.000000000000000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 0.464742650459811600
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object FtyCoName: TBtnEditC
|
||||||
|
Left = 99
|
||||||
|
Top = 250
|
||||||
|
Width = 100
|
||||||
|
Height = 20
|
||||||
|
ReadOnly = True
|
||||||
|
TabOrder = 6
|
||||||
|
OnBtnUpClick = FtyCoNameBtnUpClick
|
||||||
|
OnBtnDnClick = FtyCoNameBtnDnClick
|
||||||
|
end
|
||||||
|
object TWPId: TEdit
|
||||||
|
Tag = 1
|
||||||
|
Left = 76
|
||||||
|
Top = 17
|
||||||
|
Width = 100
|
||||||
|
Height = 20
|
||||||
|
ReadOnly = True
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object WBNo: TBtnEditC
|
||||||
|
Left = 99
|
||||||
|
Top = 213
|
||||||
|
Width = 100
|
||||||
|
Height = 20
|
||||||
|
ReadOnly = True
|
||||||
|
TabOrder = 8
|
||||||
|
Visible = False
|
||||||
|
OnBtnUpClick = WBNoBtnUpClick
|
||||||
|
OnBtnDnClick = FtyCoNameBtnDnClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel4: TPanel
|
||||||
|
Left = 1
|
||||||
|
Top = 84
|
||||||
|
Width = 1538
|
||||||
|
Height = 582
|
||||||
|
Align = alClient
|
||||||
|
Caption = 'Panel4'
|
||||||
|
TabOrder = 0
|
||||||
|
object Panel3: TPanel
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 1536
|
||||||
|
Height = 580
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
object cxPageControl1: TcxPageControl
|
||||||
|
Left = 1
|
||||||
|
Top = 282
|
||||||
|
Width = 1534
|
||||||
|
Height = 297
|
||||||
|
Align = alClient
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 0
|
||||||
|
Visible = False
|
||||||
|
Properties.CustomButtons.Buttons = <>
|
||||||
|
Properties.Style = 6
|
||||||
|
ClientRectBottom = 297
|
||||||
|
ClientRectRight = 1534
|
||||||
|
ClientRectTop = 0
|
||||||
|
end
|
||||||
|
object cxGrid1: TcxGrid
|
||||||
|
Left = 1
|
||||||
|
Top = 42
|
||||||
|
Width = 1534
|
||||||
|
Height = 240
|
||||||
|
Align = alTop
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
object TV1: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
DataController.DataSource = DS_1
|
||||||
|
DataController.Filter.AutoDataSetFilter = True
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = 'C_Code'
|
||||||
|
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>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsBehavior.FocusCellOnTab = True
|
||||||
|
OptionsBehavior.GoToNextCellOnEnter = True
|
||||||
|
OptionsBehavior.FocusCellOnCycle = True
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
object v2Column10: TcxGridDBColumn
|
||||||
|
Caption = #21407#26009#20195#21495
|
||||||
|
DataBinding.FieldName = 'Y_Code'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 131
|
||||||
|
end
|
||||||
|
object cxGridDBColumn1: TcxGridDBColumn
|
||||||
|
Caption = #21407#26009#21517#31216
|
||||||
|
DataBinding.FieldName = 'Y_Name'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxButtonEditProperties'
|
||||||
|
Properties.Buttons = <
|
||||||
|
item
|
||||||
|
Default = True
|
||||||
|
Kind = bkEllipsis
|
||||||
|
end>
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Moving = False
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 138
|
||||||
|
end
|
||||||
|
object v2Column2: TcxGridDBColumn
|
||||||
|
Caption = #32433#32447#21697#29260
|
||||||
|
DataBinding.FieldName = 'Brand'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Moving = False
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 111
|
||||||
|
end
|
||||||
|
object v2Column6: TcxGridDBColumn
|
||||||
|
Caption = #39068#33394
|
||||||
|
DataBinding.FieldName = 'Y_Color'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 99
|
||||||
|
end
|
||||||
|
object TV1Column2: TcxGridDBColumn
|
||||||
|
Caption = #37197#27604
|
||||||
|
DataBinding.FieldName = 'Y_Ratio'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 69
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridLevel1: TcxGridLevel
|
||||||
|
GridView = TV1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel5: TPanel
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 1534
|
||||||
|
Height = 41
|
||||||
|
Align = alTop
|
||||||
|
TabOrder = 2
|
||||||
|
object Panel6: TPanel
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 184
|
||||||
|
Height = 39
|
||||||
|
Align = alLeft
|
||||||
|
TabOrder = 0
|
||||||
|
object Label21: TLabel
|
||||||
|
Left = 37
|
||||||
|
Top = 7
|
||||||
|
Width = 84
|
||||||
|
Height = 20
|
||||||
|
Caption = #32463#32433#37197#27604
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -20
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ToolBar1: TToolBar
|
||||||
|
Tag = 1
|
||||||
|
Left = 185
|
||||||
|
Top = 1
|
||||||
|
Width = 308
|
||||||
|
Height = 39
|
||||||
|
Align = alLeft
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 38
|
||||||
|
ButtonWidth = 91
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
DisabledImages = DataLink_WarpBeamStk.ImageList_new32
|
||||||
|
EdgeInner = esNone
|
||||||
|
EdgeOuter = esNone
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
Images = DataLink_WarpBeamStk.ImageList_new32
|
||||||
|
List = True
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 1
|
||||||
|
object TBSave: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #24320#21345
|
||||||
|
ImageIndex = 16
|
||||||
|
OnClick = TBSaveClick
|
||||||
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 71
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21024#34892
|
||||||
|
ImageIndex = 5
|
||||||
|
OnClick = ToolButton1Click
|
||||||
|
end
|
||||||
|
object ToolButton2: TToolButton
|
||||||
|
Left = 142
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384#26684#24335
|
||||||
|
ImageIndex = 16
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 237
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 7
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid2: TcxGrid
|
||||||
|
Left = 1
|
||||||
|
Top = 282
|
||||||
|
Width = 1534
|
||||||
|
Height = 297
|
||||||
|
Align = alClient
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
object TV2: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
DataController.DataSource = DS_2
|
||||||
|
DataController.Filter.AutoDataSetFilter = True
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = 'C_Code'
|
||||||
|
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>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsBehavior.FocusCellOnTab = True
|
||||||
|
OptionsBehavior.GoToNextCellOnEnter = True
|
||||||
|
OptionsBehavior.FocusCellOnCycle = True
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
object cxGridDBColumn2: TcxGridDBColumn
|
||||||
|
Caption = #21407#26009#20195#21495
|
||||||
|
DataBinding.FieldName = 'Y_Code'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 131
|
||||||
|
end
|
||||||
|
object cxGridDBColumn3: TcxGridDBColumn
|
||||||
|
Caption = #21407#26009#21517#31216
|
||||||
|
DataBinding.FieldName = 'Y_Name'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxButtonEditProperties'
|
||||||
|
Properties.Buttons = <
|
||||||
|
item
|
||||||
|
Default = True
|
||||||
|
Kind = bkEllipsis
|
||||||
|
end>
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Moving = False
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 138
|
||||||
|
end
|
||||||
|
object cxGridDBColumn4: TcxGridDBColumn
|
||||||
|
Caption = #32433#32447#21697#29260
|
||||||
|
DataBinding.FieldName = 'Brand'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Moving = False
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 111
|
||||||
|
end
|
||||||
|
object cxGridDBColumn5: TcxGridDBColumn
|
||||||
|
Caption = #39068#33394
|
||||||
|
DataBinding.FieldName = 'Y_Color'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 99
|
||||||
|
end
|
||||||
|
object cxGridDBColumn8: TcxGridDBColumn
|
||||||
|
Caption = #37197#27604
|
||||||
|
DataBinding.FieldName = 'Y_Ratio'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 69
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridLevel2: TcxGridLevel
|
||||||
|
GridView = TV2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseCmd: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
Left = 722
|
||||||
|
Top = 338
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseTemp: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
Left = 596
|
||||||
|
Top = 342
|
||||||
|
end
|
||||||
|
inherited ImageList_new32: TImageList
|
||||||
|
Left = 680
|
||||||
|
Top = 416
|
||||||
|
end
|
||||||
|
inherited cxImageList_bar: TcxImageList
|
||||||
|
FormatVersion = 1
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 1028
|
||||||
|
Top = 328
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 866
|
||||||
|
Top = 338
|
||||||
|
end
|
||||||
|
object RMXLSExport1: TRMXLSExport
|
||||||
|
ShowAfterExport = True
|
||||||
|
ExportPrecision = 1
|
||||||
|
PagesOfSheet = 1
|
||||||
|
ExportImages = True
|
||||||
|
ExportFrames = True
|
||||||
|
ExportImageFormat = ifBMP
|
||||||
|
JPEGQuality = 0
|
||||||
|
ScaleX = 1.000000000000000000
|
||||||
|
ScaleY = 1.000000000000000000
|
||||||
|
CompressFile = False
|
||||||
|
Left = 793
|
||||||
|
Top = 416
|
||||||
|
end
|
||||||
|
object DS_1: TDataSource
|
||||||
|
DataSet = CDS_1
|
||||||
|
Left = 614
|
||||||
|
Top = 183
|
||||||
|
end
|
||||||
|
object CDS_1: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 547
|
||||||
|
Top = 181
|
||||||
|
end
|
||||||
|
object PopupMenu1: TPopupMenu
|
||||||
|
Left = 553
|
||||||
|
Top = 412
|
||||||
|
object N2: TMenuItem
|
||||||
|
Caption = #20840#36873
|
||||||
|
end
|
||||||
|
object N3: TMenuItem
|
||||||
|
Caption = #20840#24323
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object GPM_2: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid2
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 484
|
||||||
|
Top = 242
|
||||||
|
end
|
||||||
|
object CDS_2: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 546
|
||||||
|
Top = 239
|
||||||
|
end
|
||||||
|
object DS_2: TDataSource
|
||||||
|
DataSet = CDS_2
|
||||||
|
Left = 614
|
||||||
|
Top = 240
|
||||||
|
end
|
||||||
|
object GPM_1: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid1
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 481
|
||||||
|
Top = 186
|
||||||
|
end
|
||||||
|
end
|
||||||
356
E02梭织经轴仓库/U_TatWBPlanCardInPut.pas
Normal file
356
E02梭织经轴仓库/U_TatWBPlanCardInPut.pas
Normal file
|
|
@ -0,0 +1,356 @@
|
||||||
|
unit U_TatWBPlanCardInPut;
|
||||||
|
|
||||||
|
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, cxCheckBox, cxPC,
|
||||||
|
Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
|
||||||
|
dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList,
|
||||||
|
dxScrollbarAnnotations, cxImageList;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmTatWBPlanCardInPut = class(TfrmBaseInput)
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
RMXLSExport1: TRMXLSExport;
|
||||||
|
Panel2: TPanel;
|
||||||
|
DS_1: TDataSource;
|
||||||
|
CDS_1: TClientDataSet;
|
||||||
|
PopupMenu1: TPopupMenu;
|
||||||
|
N2: TMenuItem;
|
||||||
|
N3: TMenuItem;
|
||||||
|
Panel4: TPanel;
|
||||||
|
Panel1: TPanel;
|
||||||
|
Label8: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
WB_YarnQty: TEdit;
|
||||||
|
edtCardQty: TEdit;
|
||||||
|
WB_Spec: TEdit;
|
||||||
|
WB_YarnLen: TEdit;
|
||||||
|
Note: TRichEdit;
|
||||||
|
GPM_2: TcxGridPopupMenu;
|
||||||
|
Label7: TLabel;
|
||||||
|
WBData: TDateTimePicker;
|
||||||
|
Label10: TLabel;
|
||||||
|
FtyCoName: TBtnEditC;
|
||||||
|
Label18: TLabel;
|
||||||
|
TWPId: TEdit;
|
||||||
|
Label19: TLabel;
|
||||||
|
Label12: TLabel;
|
||||||
|
WBNo: TBtnEditC;
|
||||||
|
Panel3: TPanel;
|
||||||
|
cxPageControl1: TcxPageControl;
|
||||||
|
cxGrid1: TcxGrid;
|
||||||
|
TV1: TcxGridDBTableView;
|
||||||
|
v2Column10: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn1: TcxGridDBColumn;
|
||||||
|
v2Column2: TcxGridDBColumn;
|
||||||
|
v2Column6: TcxGridDBColumn;
|
||||||
|
TV1Column2: TcxGridDBColumn;
|
||||||
|
cxGridLevel1: TcxGridLevel;
|
||||||
|
Panel5: TPanel;
|
||||||
|
Panel6: TPanel;
|
||||||
|
Label21: TLabel;
|
||||||
|
cxGrid2: TcxGrid;
|
||||||
|
TV2: TcxGridDBTableView;
|
||||||
|
cxGridDBColumn2: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn3: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn4: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn5: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn8: TcxGridDBColumn;
|
||||||
|
cxGridLevel2: TcxGridLevel;
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBSave: TToolButton;
|
||||||
|
ToolButton2: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
CDS_2: TClientDataSet;
|
||||||
|
DS_2: TDataSource;
|
||||||
|
GPM_1: TcxGridPopupMenu;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure TBSaveClick(Sender: TObject);
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure FtyCoNameBtnUpClick(Sender: TObject);
|
||||||
|
procedure FtyCoNameBtnDnClick(Sender: TObject);
|
||||||
|
procedure WB_CodeBtnDnClick(Sender: TObject);
|
||||||
|
procedure WB_MachNoBtnUpClick(Sender: TObject);
|
||||||
|
procedure WBNoBtnUpClick(Sender: TObject);
|
||||||
|
procedure ToolButton3Click(Sender: TObject);
|
||||||
|
procedure ToolButton1Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
function TestData(): Boolean;
|
||||||
|
procedure InitYarn();
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
FTWPId, FWB_Type: string;
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_CompanySel, U_YarnInfoSel,
|
||||||
|
U_WarpBeamInfoSel;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
procedure TfrmTatWBPlanCardInPut.InitYarn();
|
||||||
|
begin
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select A.* ');
|
||||||
|
sql.Add(' from Tat_WB_Plan A ');
|
||||||
|
sql.Add(' where A.TWPId=''' + Trim(FTWPId) + '''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if FWB_Type = '经轴' then
|
||||||
|
begin
|
||||||
|
WB_Spec.Text := ADOQueryTemp.FieldByName('WB_Spec').AsString;
|
||||||
|
edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty').AsString;
|
||||||
|
WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_YarnLen').AsString;
|
||||||
|
WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_YarnQty').AsString;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
WB_Spec.Text := ADOQueryTemp.FieldByName('WB_Spec').AsString;
|
||||||
|
WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZGS').AsString;
|
||||||
|
edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJJZZS').AsString;
|
||||||
|
WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZMS').AsString;
|
||||||
|
end;
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select A.* ');
|
||||||
|
sql.Add(' from Tat_WB_Plan_Yarn A ');
|
||||||
|
sql.Add(' where YRType=''大轴经丝'' and A.TWPId=''' + Trim(FTWPId) + '''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADOQueryTemp, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryTemp, CDS_1);
|
||||||
|
SCreateCDS(ADOQueryTemp, CDS_2);
|
||||||
|
SInitCDSData(ADOQueryTemp, CDS_2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrmTatWBPlanCardInPut.TestData(): Boolean;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
|
||||||
|
if StrToIntDef(WB_YarnQty.Text, 0) = 0 then
|
||||||
|
raise Exception.Create('头纹不能为空！');
|
||||||
|
|
||||||
|
if StrToIntDef(WB_YarnLen.Text, 0) = 0 then
|
||||||
|
raise Exception.Create('整经长度不能为空！');
|
||||||
|
|
||||||
|
Result := True;
|
||||||
|
except
|
||||||
|
Result := false;
|
||||||
|
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanCardInPut.WBNoBtnUpClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmWarpBeamInfoSel := TfrmWarpBeamInfoSel.Create(Application);
|
||||||
|
with frmWarpBeamInfoSel do
|
||||||
|
begin
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
Self.WBNo.Text := Trim(frmWarpBeamInfoSel.CDS_Main.fieldbyname('WBNo').AsString);
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmWarpBeamInfoSel.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanCardInPut.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanCardInPut.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ReadCxGrid(Trim(self.Caption) + 'Tv2', Tv2, '坯布轴卡');
|
||||||
|
WBData.DateTime := SGetServerDate(ADOQueryTemp);
|
||||||
|
|
||||||
|
TWPId.Text := FTWPId;
|
||||||
|
|
||||||
|
if FWB_Type = '经轴' then
|
||||||
|
TV1.OptionsData.Editing := False;
|
||||||
|
|
||||||
|
InitYarn();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanCardInPut.FtyCoNameBtnDnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TBtnEditC(Sender).TxtCode := '';
|
||||||
|
TBtnEditC(Sender).Text := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanCardInPut.FtyCoNameBtnUpClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmCompanySel := TfrmCompanySel.Create(Application);
|
||||||
|
with frmCompanySel do
|
||||||
|
begin
|
||||||
|
FCoType := '供应商';
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
FtyCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
|
||||||
|
FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmCompanySel.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanCardInPut.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanCardInPut.TBSaveClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
MWBCID: string;
|
||||||
|
i, j: integer;
|
||||||
|
begin
|
||||||
|
if TestData() = false then
|
||||||
|
exit;
|
||||||
|
try
|
||||||
|
ADOQueryCmd.Connection.BeginTrans;
|
||||||
|
////////////////// 插入轴卡 //////////////////////
|
||||||
|
if GetLSNo(ADOQueryTemp, MWBCID, 'ZK1', 'Tat_WB_Card', 3, 1) = False then
|
||||||
|
begin
|
||||||
|
raise Exception.Create('取布票流水号失败!');
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add(' insert into Tat_WB_Card(WBCID,WBNo,TWPId,WB_Spec,WB_YarnQty,WB_YarnLen ');
|
||||||
|
sql.Add(' ,WBData,FtyCoNo,FtyCoName');
|
||||||
|
sql.Add(' ,WB_Type,Note,FillId,Filler) values');
|
||||||
|
|
||||||
|
for i := 1 to StrToIntdef(edtCardQty.Text, 1) do
|
||||||
|
begin
|
||||||
|
if i > 1 then
|
||||||
|
sql.Add(',');
|
||||||
|
sql.Add(' (' + Quotedstr(Trim(MWBCID) + IntToStr(i)));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(WBNO.Text)));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(FTWPId)));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(WB_Spec.Text)));
|
||||||
|
sql.Add(',' + (Trim(WB_YarnQty.Text)));
|
||||||
|
sql.Add(',' + (Trim(WB_YarnLen.Text)));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(FormatDateTime('yyyy-MM-dd', WBData.DateTime))));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(FtyCoName.TxtCode)));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(FtyCoName.Text)));
|
||||||
|
sql.Add(',' + Quotedstr(FWB_Type));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(Note.Text)));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(DCode)));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(DName)));
|
||||||
|
sql.Add(' )');
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
for i := 1 to StrToIntdef(edtCardQty.Text, 1) do
|
||||||
|
begin
|
||||||
|
sql.Add(' insert into Tat_WB_Card_Yarn(YRId,WBCID,Y_Code,Y_Name,Brand,Y_Color,Y_Ratio');
|
||||||
|
sql.Add(',Filler) values');
|
||||||
|
CDS_1.DisableControls;
|
||||||
|
CDS_1.first;
|
||||||
|
j := 1;
|
||||||
|
while not CDS_1.eof do
|
||||||
|
begin
|
||||||
|
if j > 1 then
|
||||||
|
sql.Add(',');
|
||||||
|
sql.Add(' (' + Quotedstr(Trim(MWBCID) + IntToStr(i) + IntToStr(j)));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(MWBCID) + IntToStr(i)));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('Y_Code').AsString)));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('Y_Name').AsString)));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('Brand').AsString)));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('Y_Color').AsString)));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('Y_Ratio').AsString)));
|
||||||
|
sql.Add(',' + Quotedstr(Trim(DName)));
|
||||||
|
sql.Add(' )');
|
||||||
|
|
||||||
|
CDS_1.Next;
|
||||||
|
j := j + 1;
|
||||||
|
end;
|
||||||
|
CDS_1.enableControls;
|
||||||
|
end;
|
||||||
|
// ShowMessage(sql.Text);
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
////////////////// 插入轴卡 //////////////////////
|
||||||
|
ADOQueryCmd.Connection.CommitTrans;
|
||||||
|
ModalResult := 1;
|
||||||
|
except
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanCardInPut.ToolButton1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
CDS_1.Delete;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanCardInPut.ToolButton3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WriteCxGrid(Trim(self.Caption) + 'Tv2', Tv2, '坯布轴卡');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanCardInPut.WB_CodeBtnDnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TBtnEditC(Sender).Text := '';
|
||||||
|
TBtnEditC(Sender).TxtCode := '';
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanCardInPut.WB_MachNoBtnUpClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
fsj: string;
|
||||||
|
FWZ: Integer;
|
||||||
|
begin
|
||||||
|
fsj := Trim(TEdit(Sender).Hint);
|
||||||
|
FWZ := Pos('/', fsj);
|
||||||
|
try
|
||||||
|
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||||
|
with frmZDYHelp do
|
||||||
|
begin
|
||||||
|
flag := Copy(fsj, 1, FWZ - 1);
|
||||||
|
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmZDYHelp.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
655
E02梭织经轴仓库/U_TatWBPlanInPut.dfm
Normal file
655
E02梭织经轴仓库/U_TatWBPlanInPut.dfm
Normal file
|
|
@ -0,0 +1,655 @@
|
||||||
|
inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
|
||||||
|
Left = 212
|
||||||
|
Top = 14
|
||||||
|
Caption = #27974#32433#35745#21010#24405#20837
|
||||||
|
ClientHeight = 541
|
||||||
|
ClientWidth = 952
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Position = poScreenCenter
|
||||||
|
ExplicitWidth = 968
|
||||||
|
ExplicitHeight = 580
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 12
|
||||||
|
object ToolBar1: TToolBar [0]
|
||||||
|
Tag = 1
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 952
|
||||||
|
Height = 38
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 38
|
||||||
|
ButtonWidth = 91
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
DisabledImages = DataLink_WarpBeamStk.ImageList_new32
|
||||||
|
EdgeInner = esNone
|
||||||
|
EdgeOuter = esNone
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
Images = DataLink_WarpBeamStk.ImageList_new32
|
||||||
|
List = True
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 0
|
||||||
|
object TBSave: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384
|
||||||
|
ImageIndex = 16
|
||||||
|
OnClick = TBSaveClick
|
||||||
|
end
|
||||||
|
object ToolButton8: TToolButton
|
||||||
|
Left = 71
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384#26684#24335
|
||||||
|
ImageIndex = 16
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 166
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 7
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel2: TPanel [1]
|
||||||
|
Left = 0
|
||||||
|
Top = 192
|
||||||
|
Width = 952
|
||||||
|
Height = 349
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 1
|
||||||
|
object cxPageControl1: TcxPageControl
|
||||||
|
Left = 1
|
||||||
|
Top = 42
|
||||||
|
Width = 950
|
||||||
|
Height = 306
|
||||||
|
Align = alClient
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 0
|
||||||
|
Visible = False
|
||||||
|
Properties.CustomButtons.Buttons = <>
|
||||||
|
Properties.Style = 6
|
||||||
|
ClientRectBottom = 306
|
||||||
|
ClientRectRight = 950
|
||||||
|
ClientRectTop = 0
|
||||||
|
end
|
||||||
|
object cxGrid2: TcxGrid
|
||||||
|
Left = 1
|
||||||
|
Top = 42
|
||||||
|
Width = 950
|
||||||
|
Height = 306
|
||||||
|
Align = alClient
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
object Tv2: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
DataController.DataSource = DS_1
|
||||||
|
DataController.Filter.AutoDataSetFilter = True
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = 'C_Code'
|
||||||
|
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>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsBehavior.FocusCellOnTab = True
|
||||||
|
OptionsBehavior.GoToNextCellOnEnter = True
|
||||||
|
OptionsBehavior.FocusCellOnCycle = True
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
object v2Column10: TcxGridDBColumn
|
||||||
|
Caption = #21407#26009#20195#21495
|
||||||
|
DataBinding.FieldName = 'Y_Code'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 131
|
||||||
|
end
|
||||||
|
object cxGridDBColumn1: TcxGridDBColumn
|
||||||
|
Caption = #21407#26009#21517#31216
|
||||||
|
DataBinding.FieldName = 'Y_Name'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxButtonEditProperties'
|
||||||
|
Properties.Buttons = <
|
||||||
|
item
|
||||||
|
Default = True
|
||||||
|
Kind = bkEllipsis
|
||||||
|
end>
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Moving = False
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 138
|
||||||
|
end
|
||||||
|
object v2Column2: TcxGridDBColumn
|
||||||
|
Caption = #32433#32447#21697#29260
|
||||||
|
DataBinding.FieldName = 'Brand'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Moving = False
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 111
|
||||||
|
end
|
||||||
|
object v2Column6: TcxGridDBColumn
|
||||||
|
Caption = #39068#33394
|
||||||
|
DataBinding.FieldName = 'Y_Color'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 99
|
||||||
|
end
|
||||||
|
object Tv2Column2: TcxGridDBColumn
|
||||||
|
Caption = #37197#27604
|
||||||
|
DataBinding.FieldName = 'Y_Ratio'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 69
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridLevel1: TcxGridLevel
|
||||||
|
GridView = Tv2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel5: TPanel
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 950
|
||||||
|
Height = 41
|
||||||
|
Align = alTop
|
||||||
|
TabOrder = 2
|
||||||
|
object Panel6: TPanel
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 184
|
||||||
|
Height = 39
|
||||||
|
Align = alLeft
|
||||||
|
TabOrder = 0
|
||||||
|
object Label21: TLabel
|
||||||
|
Left = 37
|
||||||
|
Top = 7
|
||||||
|
Width = 84
|
||||||
|
Height = 20
|
||||||
|
Caption = #32463#32433#37197#27604
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -20
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ToolBar3: TToolBar
|
||||||
|
Tag = 1
|
||||||
|
Left = 185
|
||||||
|
Top = 1
|
||||||
|
Width = 142
|
||||||
|
Height = 39
|
||||||
|
Align = alLeft
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 38
|
||||||
|
ButtonWidth = 75
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clWhite
|
||||||
|
DisabledImages = DataLink_WarpBeamStk.ImageList_new32
|
||||||
|
EdgeInner = esNone
|
||||||
|
EdgeOuter = esNone
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
Images = DataLink_WarpBeamStk.ImageList_new32
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 1
|
||||||
|
object ToolButton3: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #22686#34892
|
||||||
|
ImageIndex = 2
|
||||||
|
OnClick = ToolButton3Click
|
||||||
|
end
|
||||||
|
object ToolButton4: TToolButton
|
||||||
|
Left = 71
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21024#34892
|
||||||
|
ImageIndex = 6
|
||||||
|
OnClick = ToolButton4Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ScrollBox1: TScrollBox [2]
|
||||||
|
Left = 0
|
||||||
|
Top = 38
|
||||||
|
Width = 952
|
||||||
|
Height = 154
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvNone
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Ctl3D = False
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentCtl3D = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 12
|
||||||
|
Top = 29
|
||||||
|
Width = 67
|
||||||
|
Height = 12
|
||||||
|
Caption = #21697' '#21517#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label14: TLabel
|
||||||
|
Left = 14
|
||||||
|
Top = 6
|
||||||
|
Width = 65
|
||||||
|
Height = 12
|
||||||
|
Caption = #20844#21496#25260#22836#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlue
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 470
|
||||||
|
Top = 6
|
||||||
|
Width = 65
|
||||||
|
Height = 12
|
||||||
|
Caption = #20132#36135#26085#26399#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label16: TLabel
|
||||||
|
Left = 12
|
||||||
|
Top = 72
|
||||||
|
Width = 67
|
||||||
|
Height = 12
|
||||||
|
Caption = #22791' '#27880#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label47: TLabel
|
||||||
|
Left = 238
|
||||||
|
Top = 6
|
||||||
|
Width = 67
|
||||||
|
Height = 12
|
||||||
|
Caption = #23458' '#25143#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 240
|
||||||
|
Top = 29
|
||||||
|
Width = 65
|
||||||
|
Height = 12
|
||||||
|
Caption = #24635#32463#26681#25968#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 431
|
||||||
|
Top = 29
|
||||||
|
Width = 104
|
||||||
|
Height = 12
|
||||||
|
Caption = #23458#25143#19979#21333#24635#31859#25968#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 1
|
||||||
|
Top = 53
|
||||||
|
Width = 78
|
||||||
|
Height = 12
|
||||||
|
Caption = #39044#35745#32463#36724#25968#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 201
|
||||||
|
Top = 53
|
||||||
|
Width = 104
|
||||||
|
Height = 12
|
||||||
|
Caption = #39044#35745#27599#32463#36724#31859#25968#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 444
|
||||||
|
Top = 53
|
||||||
|
Width = 91
|
||||||
|
Height = 12
|
||||||
|
Caption = #39044#35745#29992#27974#25104#26412#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 683
|
||||||
|
Top = 6
|
||||||
|
Width = 91
|
||||||
|
Height = 12
|
||||||
|
Caption = #27974#32433#25490#21333#31859#25968#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label9: TLabel
|
||||||
|
Left = 696
|
||||||
|
Top = 29
|
||||||
|
Width = 78
|
||||||
|
Height = 12
|
||||||
|
Caption = #39044#35745#27974#36724#25968#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
Left = 696
|
||||||
|
Top = 53
|
||||||
|
Width = 78
|
||||||
|
Height = 12
|
||||||
|
Caption = #27599#27974#36724#26681#25968#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label11: TLabel
|
||||||
|
Left = 696
|
||||||
|
Top = 76
|
||||||
|
Width = 78
|
||||||
|
Height = 12
|
||||||
|
Caption = #27599#27974#36724#31859#25968#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label12: TLabel
|
||||||
|
Left = 735
|
||||||
|
Top = 99
|
||||||
|
Width = 39
|
||||||
|
Height = 12
|
||||||
|
Caption = #36724#38271#65306
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object DlyDate: TDateTimePicker
|
||||||
|
Left = 532
|
||||||
|
Top = 2
|
||||||
|
Width = 120
|
||||||
|
Height = 20
|
||||||
|
BevelInner = bvNone
|
||||||
|
Date = 40916.000000000000000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 0.670856296288548000
|
||||||
|
ShowCheckbox = True
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object OrdNote: TRichEdit
|
||||||
|
Left = 81
|
||||||
|
Top = 72
|
||||||
|
Width = 571
|
||||||
|
Height = 66
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
Zoom = 100
|
||||||
|
OnKeyPress = ConNoKeyPress
|
||||||
|
end
|
||||||
|
object WB_Spec: TEdit
|
||||||
|
Left = 81
|
||||||
|
Top = 26
|
||||||
|
Width = 120
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 0
|
||||||
|
OnKeyPress = ConNoKeyPress
|
||||||
|
end
|
||||||
|
object CustName: TBtnEditC
|
||||||
|
Left = 301
|
||||||
|
Top = 2
|
||||||
|
Width = 120
|
||||||
|
Height = 20
|
||||||
|
ReadOnly = True
|
||||||
|
TabOrder = 3
|
||||||
|
OnBtnUpClick = CustNameBtnUpClick
|
||||||
|
OnBtnDnClick = CustNameBtnDnClick
|
||||||
|
end
|
||||||
|
object OurCoName: TBtnEditC
|
||||||
|
Left = 81
|
||||||
|
Top = 2
|
||||||
|
Width = 120
|
||||||
|
Height = 20
|
||||||
|
ReadOnly = True
|
||||||
|
TabOrder = 4
|
||||||
|
OnBtnUpClick = OurCoNameBtnUpClick
|
||||||
|
OnBtnDnClick = CustNameBtnDnClick
|
||||||
|
end
|
||||||
|
object WB_YarnQty: TEdit
|
||||||
|
Left = 301
|
||||||
|
Top = 25
|
||||||
|
Width = 120
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 5
|
||||||
|
OnKeyPress = ConNoKeyPress
|
||||||
|
end
|
||||||
|
object WB_YarnTotalLen: TEdit
|
||||||
|
Left = 532
|
||||||
|
Top = 26
|
||||||
|
Width = 120
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 6
|
||||||
|
OnKeyPress = ConNoKeyPress
|
||||||
|
end
|
||||||
|
object WB_Qty: TEdit
|
||||||
|
Left = 81
|
||||||
|
Top = 50
|
||||||
|
Width = 120
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 7
|
||||||
|
OnKeyPress = ConNoKeyPress
|
||||||
|
end
|
||||||
|
object WB_YarnLen: TEdit
|
||||||
|
Left = 301
|
||||||
|
Top = 50
|
||||||
|
Width = 120
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 8
|
||||||
|
OnKeyPress = ConNoKeyPress
|
||||||
|
end
|
||||||
|
object SizingAgentCost: TEdit
|
||||||
|
Left = 532
|
||||||
|
Top = 50
|
||||||
|
Width = 120
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 9
|
||||||
|
OnKeyPress = ConNoKeyPress
|
||||||
|
end
|
||||||
|
object WB_Qty_JSPDMS: TEdit
|
||||||
|
Left = 771
|
||||||
|
Top = 3
|
||||||
|
Width = 120
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 10
|
||||||
|
OnKeyPress = ConNoKeyPress
|
||||||
|
end
|
||||||
|
object WB_Qty_YJJZZS: TEdit
|
||||||
|
Left = 770
|
||||||
|
Top = 26
|
||||||
|
Width = 120
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 11
|
||||||
|
OnKeyPress = ConNoKeyPress
|
||||||
|
end
|
||||||
|
object WB_Qty_YJMJZGS: TEdit
|
||||||
|
Left = 771
|
||||||
|
Top = 50
|
||||||
|
Width = 120
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 12
|
||||||
|
OnKeyPress = ConNoKeyPress
|
||||||
|
end
|
||||||
|
object WB_Qty_YJMJZMS: TEdit
|
||||||
|
Left = 771
|
||||||
|
Top = 73
|
||||||
|
Width = 120
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 13
|
||||||
|
OnKeyPress = ConNoKeyPress
|
||||||
|
end
|
||||||
|
object WB_Len: TEdit
|
||||||
|
Left = 771
|
||||||
|
Top = 96
|
||||||
|
Width = 120
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 14
|
||||||
|
OnKeyPress = ConNoKeyPress
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseCmd: TADOQuery
|
||||||
|
Left = 1185
|
||||||
|
Top = 88
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseTemp: TADOQuery
|
||||||
|
Left = 1225
|
||||||
|
Top = 193
|
||||||
|
end
|
||||||
|
inherited ImageList_new32: TImageList
|
||||||
|
Left = 1272
|
||||||
|
Top = 200
|
||||||
|
end
|
||||||
|
inherited cxImageList_bar: TcxImageList
|
||||||
|
FormatVersion = 1
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 1090
|
||||||
|
Top = 89
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_WarpBeamStk.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 1410
|
||||||
|
Top = 225
|
||||||
|
end
|
||||||
|
object CDS_1: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 363
|
||||||
|
Top = 394
|
||||||
|
end
|
||||||
|
object DS_1: TDataSource
|
||||||
|
DataSet = CDS_1
|
||||||
|
Left = 436
|
||||||
|
Top = 393
|
||||||
|
end
|
||||||
|
end
|
||||||
419
E02梭织经轴仓库/U_TatWBPlanInPut.pas
Normal file
419
E02梭织经轴仓库/U_TatWBPlanInPut.pas
Normal file
|
|
@ -0,0 +1,419 @@
|
||||||
|
unit U_TatWBPlanInPut;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||||
|
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
||||||
|
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
|
||||||
|
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
|
||||||
|
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit,
|
||||||
|
StrUtils, cxPC, ShellAPI, cxCalendar, Math, cxLookAndFeels,
|
||||||
|
cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxDateRanges,
|
||||||
|
U_BaseInput, System.ImageList, Vcl.ImgList, Vcl.Menus, dxScrollbarAnnotations,
|
||||||
|
cxImageList;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmTatWBPlanInPut = class(TfrmBaseInput)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBSave: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
ToolButton8: TToolButton;
|
||||||
|
Panel2: TPanel;
|
||||||
|
cxPageControl1: TcxPageControl;
|
||||||
|
cxGrid2: TcxGrid;
|
||||||
|
Tv2: TcxGridDBTableView;
|
||||||
|
v2Column10: TcxGridDBColumn;
|
||||||
|
cxGridDBColumn1: TcxGridDBColumn;
|
||||||
|
v2Column2: TcxGridDBColumn;
|
||||||
|
v2Column6: TcxGridDBColumn;
|
||||||
|
Tv2Column2: TcxGridDBColumn;
|
||||||
|
cxGridLevel1: TcxGridLevel;
|
||||||
|
Panel5: TPanel;
|
||||||
|
Panel6: TPanel;
|
||||||
|
Label21: TLabel;
|
||||||
|
ToolBar3: TToolBar;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
ToolButton4: TToolButton;
|
||||||
|
CDS_1: TClientDataSet;
|
||||||
|
DS_1: TDataSource;
|
||||||
|
ScrollBox1: TScrollBox;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label14: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
Label16: TLabel;
|
||||||
|
Label47: TLabel;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
Label7: TLabel;
|
||||||
|
Label8: TLabel;
|
||||||
|
Label9: TLabel;
|
||||||
|
Label10: TLabel;
|
||||||
|
Label11: TLabel;
|
||||||
|
Label12: TLabel;
|
||||||
|
DlyDate: TDateTimePicker;
|
||||||
|
OrdNote: TRichEdit;
|
||||||
|
WB_Spec: TEdit;
|
||||||
|
CustName: TBtnEditC;
|
||||||
|
OurCoName: TBtnEditC;
|
||||||
|
WB_YarnQty: TEdit;
|
||||||
|
WB_YarnTotalLen: TEdit;
|
||||||
|
WB_Qty: TEdit;
|
||||||
|
WB_YarnLen: TEdit;
|
||||||
|
SizingAgentCost: TEdit;
|
||||||
|
WB_Qty_JSPDMS: TEdit;
|
||||||
|
WB_Qty_YJJZZS: TEdit;
|
||||||
|
WB_Qty_YJMJZGS: TEdit;
|
||||||
|
WB_Qty_YJMJZMS: TEdit;
|
||||||
|
WB_Len: TEdit;
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure TBSaveClick(Sender: TObject);
|
||||||
|
procedure C_CodeKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure ConNoKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure MCTypeBtnUpClick(Sender: TObject);
|
||||||
|
procedure CustNameBtnUpClick(Sender: TObject);
|
||||||
|
procedure CustNameBtnDnClick(Sender: TObject);
|
||||||
|
procedure OurCoNameBtnUpClick(Sender: TObject);
|
||||||
|
procedure ToolButton3Click(Sender: TObject);
|
||||||
|
procedure ToolButton4Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
procedure InitData();
|
||||||
|
function SaveData(): Boolean;
|
||||||
|
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
PState, FCopyInt: Integer;
|
||||||
|
FConNo, FTWPId, FSubId: string;
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmTatWBPlanInPut: TfrmTatWBPlanInPut;
|
||||||
|
newh: hwnd;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanInPut.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ModalResult := 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanInPut.InitData();
|
||||||
|
var
|
||||||
|
PBNO, PBFlag: string;
|
||||||
|
begin
|
||||||
|
if PState = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add('select * from Tat_WB_Plan A where A.TWPId=''' + Trim(FTWPId) + '''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCSHData(ADOQueryTemp, ScrollBox1, 0);
|
||||||
|
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select A.* from Tat_WB_Plan_Yarn A ');
|
||||||
|
sql.Add(' where YRType=''大轴经丝'' and A.TWPId=''' + Trim(FTWPId) + '''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADOQueryTemp, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryTemp, CDS_1);
|
||||||
|
|
||||||
|
if FCopyInt = 1 then
|
||||||
|
begin
|
||||||
|
FConNo := '';
|
||||||
|
FTWPId := '';
|
||||||
|
FSubId := '';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanInPut.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
InitData();
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrmTatWBPlanInPut.SaveData(): Boolean;
|
||||||
|
var
|
||||||
|
maxno, maxsubno, maxpbno, maxpzno, maxsjno: string;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
ADOQueryCmd.Connection.BeginTrans;
|
||||||
|
if Trim(FTWPId) = '' then
|
||||||
|
begin
|
||||||
|
if GetLSNo(ADOQueryCmd, maxno, 'SZ', 'Tat_WB_Plan', 4, 1) = False then
|
||||||
|
raise Exception.Create('生成流水号异常！');
|
||||||
|
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
maxno := Trim(FTWPId);
|
||||||
|
end;
|
||||||
|
////////////////////////// 保存主表 //////////////////////////
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
SQL.Add('select * from Tat_WB_Plan where TWPId=''' + Trim(FTWPId) + '''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
if Trim(FTWPId) = '' then
|
||||||
|
begin
|
||||||
|
Append;
|
||||||
|
FieldByName('Filler').Value := Trim(DName);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('Editer').Value := Trim(DName);
|
||||||
|
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
|
||||||
|
end;
|
||||||
|
FieldByName('TWPId').Value := Trim(maxno);
|
||||||
|
RTSetsavedata(ADOQueryCmd, 'Tat_WB_Plan', ScrollBox1, 0);
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
////////////////////////// 保存主表 //////////////////////////
|
||||||
|
|
||||||
|
////////////////////////// 保存经丝配比表 //////////////////////////
|
||||||
|
with CDS_1 do
|
||||||
|
begin
|
||||||
|
First;
|
||||||
|
while not Eof do
|
||||||
|
begin
|
||||||
|
if Trim(CDS_1.fieldbyname('YRId').AsString) = '' then
|
||||||
|
begin
|
||||||
|
if GetLSNo(ADOQueryTemp, maxpbno, 'WY', 'Tat_WB_Plan_Yarn', 4, 1) = False then
|
||||||
|
raise Exception.Create('取配比子流水号失败！');
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
maxpbno := Trim(CDS_1.fieldbyname('YRId').AsString);
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add('select * from Tat_WB_Plan_Yarn where ');
|
||||||
|
sql.Add(' YRId=''' + Trim(maxpbno) + '''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
if Trim(CDS_1.fieldbyname('YRId').AsString) = '' then
|
||||||
|
begin
|
||||||
|
Append;
|
||||||
|
FieldByName('Filler').Value := Trim(DName);
|
||||||
|
FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('Editer').Value := Trim(DName);
|
||||||
|
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
|
||||||
|
end;
|
||||||
|
FieldByName('YRType').Value := '大轴经丝';
|
||||||
|
FieldByName('TWPId').Value := Trim(maxno);
|
||||||
|
FieldByName('YRId').Value := Trim(maxpbno);
|
||||||
|
RTSetsavedataCDS(ADOQueryCmd, Tv2, CDS_1, 'Tat_WB_Plan_Yarn', 0);
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
CDS_1.Edit;
|
||||||
|
CDS_1.FieldByName('TWPId').Value := Trim(maxno);
|
||||||
|
CDS_1.FieldByName('YRId').Value := Trim(maxpbno);
|
||||||
|
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
////////////////////////// 保存经丝配比表 //////////////////////////
|
||||||
|
|
||||||
|
|
||||||
|
ADOQueryCmd.Connection.CommitTrans;
|
||||||
|
FTWPId := Trim(maxno);
|
||||||
|
FSubId := Trim(maxsubno);
|
||||||
|
Result := True;
|
||||||
|
except
|
||||||
|
Result := False;
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanInPut.TBSaveClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
FReal: Double;
|
||||||
|
maxConNo: string;
|
||||||
|
begin
|
||||||
|
|
||||||
|
if Trim(CustName.Text) = '' then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('客户不能为空!', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if SaveData() then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('保存成功！', '提示', 0);
|
||||||
|
ModalResult := 1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanInPut.ToolButton3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmYarnInfoSel := TfrmYarnInfoSel.Create(Application);
|
||||||
|
with frmYarnInfoSel do
|
||||||
|
begin
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
with self.CDS_1 do
|
||||||
|
begin
|
||||||
|
Append;
|
||||||
|
FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
|
||||||
|
FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value;
|
||||||
|
FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value;
|
||||||
|
FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value;
|
||||||
|
FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value;
|
||||||
|
FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
|
||||||
|
FieldByName('Y_Ratio').Value := 0;
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmYarnInfoSel.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanInPut.ToolButton4Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
if Trim(CDS_1.fieldbyname('YRId').AsString) <> '' then
|
||||||
|
begin
|
||||||
|
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||||
|
Exit;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('delete Tat_WB_Plan_Yarn where YRId=''' + Trim(CDS_1.fieldbyname('YRId').AsString) + '''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
CDS_1.Delete;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanInPut.OurCoNameBtnUpClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmCompanySel := TfrmCompanySel.Create(Application);
|
||||||
|
with frmCompanySel do
|
||||||
|
begin
|
||||||
|
FCoType := '我司';
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
OurCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
|
||||||
|
OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
|
||||||
|
// FtyCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
|
||||||
|
// FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmCompanySel.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
begin
|
||||||
|
if Key = #13 then
|
||||||
|
begin
|
||||||
|
Key := #0;
|
||||||
|
SelectNext(ActiveControl as TWinControl, True, True);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanInPut.MCTypeBtnUpClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
fsj: string;
|
||||||
|
FWZ: Integer;
|
||||||
|
begin
|
||||||
|
fsj := Trim(TBtnEditC(Sender).Hint);
|
||||||
|
|
||||||
|
FWZ := Pos('/', fsj);
|
||||||
|
try
|
||||||
|
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||||
|
with frmZDYHelp do
|
||||||
|
begin
|
||||||
|
flag := Copy(fsj, 1, FWZ - 1);
|
||||||
|
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||||||
|
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
TBtnEditC(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmZDYHelp.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanInPut.ConNoKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
begin
|
||||||
|
if Key = #13 then
|
||||||
|
begin
|
||||||
|
Key := #0;
|
||||||
|
SelectNext(ActiveControl as TWinControl, True, True);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanInPut.CustNameBtnDnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TBtnEditC(Sender).TxtCode := '';
|
||||||
|
TBtnEditC(Sender).Text := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTatWBPlanInPut.CustNameBtnUpClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmCompanySel := TfrmCompanySel.Create(Application);
|
||||||
|
with frmCompanySel do
|
||||||
|
begin
|
||||||
|
FCoType := '客户';
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
|
||||||
|
CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmCompanySel.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
|
|
@ -29,7 +29,7 @@
|
||||||
<File Path="fmx.dex.jar"/>
|
<File Path="fmx.dex.jar"/>
|
||||||
<File Path="google-play-billing.dex.jar"/>
|
<File Path="google-play-billing.dex.jar"/>
|
||||||
<File Path="google-play-licensing.dex.jar"/>
|
<File Path="google-play-licensing.dex.jar"/>
|
||||||
<File Path="..\..\D10szKaiXiYa"/>
|
<File Path="..\..\D10SZKaiXiYa"/>
|
||||||
<File Path="..\A00通用方法"/>
|
<File Path="..\A00通用方法"/>
|
||||||
<File Path="..\A00通用方法\AES"/>
|
<File Path="..\A00通用方法\AES"/>
|
||||||
<File Path="..\A00通用方法\AES\ElAES.pas"/>
|
<File Path="..\A00通用方法\AES\ElAES.pas"/>
|
||||||
|
|
@ -120,6 +120,14 @@
|
||||||
<File Path="U_TatWBCardInPutOld.dfm"/>
|
<File Path="U_TatWBCardInPutOld.dfm"/>
|
||||||
<File Path="U_TatWBOutputList1.pas"/>
|
<File Path="U_TatWBOutputList1.pas"/>
|
||||||
<File Path="U_TatWBOutputList1.dfm"/>
|
<File Path="U_TatWBOutputList1.dfm"/>
|
||||||
|
<File Path="U_TatWBOutputList_CZ.pas"/>
|
||||||
|
<File Path="U_TatWBOutputList_CZ.dfm"/>
|
||||||
|
<File Path="U_TatWBOutputList_SZ.pas"/>
|
||||||
|
<File Path="U_TatWBOutputList_SZ.dfm"/>
|
||||||
|
<File Path="U_TatWBOutputList_XB.pas"/>
|
||||||
|
<File Path="U_TatWBOutputList_XB.dfm"/>
|
||||||
|
<File Path="U_TatWBOutputList_XZ.pas"/>
|
||||||
|
<File Path="U_TatWBOutputList_XZ.dfm"/>
|
||||||
<File Path="U_TatWBPlanCard.pas"/>
|
<File Path="U_TatWBPlanCard.pas"/>
|
||||||
<File Path="U_TatWBPlanCard.dfm"/>
|
<File Path="U_TatWBPlanCard.dfm"/>
|
||||||
<File Path="U_WarpBeamInfoList.pas"/>
|
<File Path="U_WarpBeamInfoList.pas"/>
|
||||||
|
|
@ -130,33 +138,25 @@
|
||||||
<File Path="U_WarpBeamQianList.dfm"/>
|
<File Path="U_WarpBeamQianList.dfm"/>
|
||||||
<File Path="U_WarpBeamStkSel.pas"/>
|
<File Path="U_WarpBeamStkSel.pas"/>
|
||||||
<File Path="U_WarpBeamStkSel.dfm"/>
|
<File Path="U_WarpBeamStkSel.dfm"/>
|
||||||
|
<File Path="U_WBSpecInPut.pas"/>
|
||||||
|
<File Path="U_WBSpecInPut.dfm"/>
|
||||||
<File Path="U_WBSpecList.pas"/>
|
<File Path="U_WBSpecList.pas"/>
|
||||||
<File Path="U_WBSpecList.dfm"/>
|
<File Path="U_WBSpecList.dfm"/>
|
||||||
<File Path="U_WBTatPlanSel.pas"/>
|
<File Path="U_WBTatPlanSel.pas"/>
|
||||||
<File Path="U_WBTatPlanSel.dfm"/>
|
<File Path="U_WBTatPlanSel.dfm"/>
|
||||||
<File Path="U_WBTypeSel.pas"/>
|
<File Path="U_WBTypeSel.pas"/>
|
||||||
<File Path="U_WBTypeSel.dfm"/>
|
<File Path="U_WBTypeSel.dfm"/>
|
||||||
<File Path="U_WBSpecInPut.pas"/>
|
|
||||||
<File Path="U_WBSpecInPut.dfm"/>
|
|
||||||
<File Path="U_TatWBOutputList_SZ.pas"/>
|
|
||||||
<File Path="U_TatWBOutputList_SZ.dfm"/>
|
|
||||||
<File Path="U_TatWBOutputList_CZ.pas"/>
|
|
||||||
<File Path="U_TatWBOutputList_CZ.dfm"/>
|
|
||||||
<File Path="U_TatWBOutputList_XB.pas"/>
|
|
||||||
<File Path="U_TatWBOutputList_XB.dfm"/>
|
|
||||||
<File Path="U_TatWBOutputList_XZ.pas"/>
|
|
||||||
<File Path="U_TatWBOutputList_XZ.dfm"/>
|
|
||||||
</ProjectSortOrder>
|
</ProjectSortOrder>
|
||||||
<Transactions>
|
<Transactions>
|
||||||
<Transaction>1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm</Transaction>
|
||||||
<Transaction>2025-02-28 19:52:48.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
|
||||||
<Transaction>2025-02-28 19:53:16.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
|
|
||||||
</Transactions>
|
</Transactions>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue
Block a user