Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-07-19 09:52:09 +08:00
parent bc0b8f7aef
commit b0ee797f6b
10 changed files with 521 additions and 236 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
A00通用窗体/U_WBSpecSel.pas
View File

@ -12,22 +12,7 @@ uses
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxCheckBox, Vcl.Menus,
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmWBSpecSel = class(TfrmBaseHelp)

9
A00通用窗体/U_YarnInfoSel.dfm
View File

@ -285,15 +285,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Options.Editing = False
Width = 80
end
object v1Column2: TcxGridDBColumn
Tag = 2
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880

19
A00通用窗体/U_YarnInfoSel.pas
View File

@ -12,23 +12,7 @@ uses
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxCheckBox, Vcl.Menus,
dxScrollbarAnnotations, cxContainer, cxImageList, dxSkinsCore,
dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnInfoSel = class(TfrmBaseHelp)
@ -49,7 +33,6 @@ type
ImageList1: TImageList;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column2: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1SPName: TcxGridDBColumn;

39
A00通用组件/FrameDateTimeSel.pas
View File

@ -6,41 +6,10 @@ uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
Vcl.ComCtrls, dxCore, cxDateUtils,
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, Vcl.StdCtrls,
Vcl.Menus, cxButtons, Vcl.ExtCtrls, DateUtils,
cxSpinEdit, cxTimeEdit, dxSkinsCore,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinsDefaultPainters,
dxSkinWXI, ;
Vcl.ComCtrls, dxCore, cxDateUtils, cxTextEdit, cxMaskEdit, cxDropDownEdit,
cxCalendar, Vcl.StdCtrls, Vcl.Menus, cxButtons, Vcl.ExtCtrls, DateUtils,
cxSpinEdit, cxTimeEdit, dxSkinsCore, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinsDefaultPainters, dxSkinWXI;
type
TfrmFrameDateTimeSel = class(TFrame)

2
E02梭织经轴仓库/U_TatWBPlanCard.dfm
View File

@ -195,8 +195,6 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
Align = alLeft
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitLeft = -6
ExplicitTop = 119
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

361
E02梭织经轴仓库/U_TatWBPlanInPut.dfm
View File

@ -3,12 +3,13 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Top = 14
Caption = #27974#32433#35745#21010#24405#20837
ClientHeight = 616
ClientWidth = 952
ClientWidth = 1429
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
Position = poScreenCenter
ExplicitWidth = 968
ExplicitTop = -30
ExplicitWidth = 1445
ExplicitHeight = 655
PixelsPerInch = 96
TextHeight = 12
@ -16,7 +17,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Tag = 1
Left = 0
Top = 0
Width = 952
Width = 1429
Height = 38
AutoSize = True
ButtonHeight = 38
@ -35,6 +36,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 1124
object TBSave: TToolButton
Left = 0
Top = 0
@ -62,16 +64,15 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
object Panel2: TPanel [1]
Left = 0
Top = 353
Width = 952
Width = 1429
Height = 263
Align = alClient
TabOrder = 1
ExplicitTop = 192
ExplicitHeight = 349
ExplicitWidth = 1124
object cxPageControl1: TcxPageControl
Left = 1
Top = 42
Width = 950
Width = 1427
Height = 220
Align = alClient
Color = clWhite
@ -87,122 +88,20 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ExplicitHeight = 306
ExplicitWidth = 1122
ClientRectBottom = 220
ClientRectRight = 950
ClientRectRight = 1427
ClientRectTop = 0
end
object cxGrid2: TcxGrid
Left = 1
Top = 42
Width = 950
Height = 220
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
ExplicitHeight = 306
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
Width = 1427
Height = 41
Align = alTop
TabOrder = 2
TabOrder = 1
ExplicitLeft = 2
ExplicitTop = 6
object Panel6: TPanel
Left = 1
Top = 1
@ -268,11 +167,204 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
end
end
end
object cxGrid1: TcxGrid
Left = 1
Top = 42
Width = 1427
Height = 220
Align = alClient
TabOrder = 2
ExplicitWidth = 1122
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.GroupByBox = False
object v1Column18: TcxGridDBColumn
Caption = #37319#36141#21152#24037#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Visible = False
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 106
end
object v1Column15: TcxGridDBColumn
Caption = #21697#29260
DataBinding.FieldName = 'SXPinPai'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Visible = False
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 103
end
object Tv1Column2: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 94
end
object v1SPName: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Width = 101
end
object v1SPSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 116
end
object v1Column1: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 92
end
object v1Column10: TcxGridDBColumn
Caption = #36816#36153
DataBinding.FieldName = 'YunFei'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 68
end
object Tv1Column1: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column7: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1Column8: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object v1Column3: TcxGridDBColumn
Caption = #26681#25968
DataBinding.FieldName = 'YarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 72
end
object Tv1Column4: TcxGridDBColumn
Caption = #24490#29615#26681#25968
DataBinding.FieldName = 'CycleYarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 102
end
object Tv1Column9: TcxGridDBColumn
Caption = #31859#29992#37327
DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column6: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column5: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column12: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 118
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
object ScrollBox1: TScrollBox [2]
Left = 0
Top = 38
Width = 952
Width = 1429
Height = 315
Align = alTop
BevelInner = bvNone
@ -286,6 +378,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentCtl3D = False
ParentFont = False
TabOrder = 2
OnDblClick = gynoDblClick
ExplicitLeft = 1
ExplicitTop = 41
object Label3: TLabel
Left = 639
@ -547,6 +641,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
TabOrder = 1
Zoom = 100
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_Spec: TEdit
@ -555,6 +650,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 0
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object CustName: TBtnEditC
@ -564,6 +660,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Height = 20
ReadOnly = True
TabOrder = 2
OnDblClick = gynoDblClick
OnBtnUpClick = CustNameBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
@ -574,6 +671,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Height = 20
ReadOnly = True
TabOrder = 3
OnDblClick = gynoDblClick
OnBtnUpClick = WB_CodeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
object WB_YarnTotalLen: TEdit
@ -582,6 +681,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 4
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_Qty: TEdit
@ -590,6 +690,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 5
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_YarnLen: TEdit
@ -598,6 +699,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 6
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_Qty_YJJZZS: TEdit
@ -614,6 +716,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 8
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_Qty_YJMJZMS: TEdit
@ -622,14 +725,16 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 9
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object TWPNo: TEdit
object TWPId: TEdit
Left = 90
Top = 5
Width = 120
Height = 18
TabOrder = 10
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_Name: TEdit
@ -638,6 +743,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 11
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_YarnQty: TEdit
@ -654,6 +760,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 13
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object gkbh: TBtnEditC
@ -663,6 +770,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Height = 20
ReadOnly = True
TabOrder = 14
OnDblClick = gynoDblClick
OnBtnUpClick = gkbhBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
object WB_ReedNo: TEdit
@ -671,6 +780,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 15
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_ReedNote: TEdit
@ -687,6 +797,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 17
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object gyno: TBtnEditC
@ -696,6 +807,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Height = 20
ReadOnly = True
TabOrder = 18
OnDblClick = gynoDblClick
OnBtnUpClick = gynoBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
end
@ -708,8 +821,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Top = 193
end
inherited ImageList_new32: TImageList
Left = 1272
Top = 200
Left = 1120
Top = 256
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
@ -721,14 +834,14 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1090
Left = 930
Top = 89
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Parameters = <>
Left = 1410
Top = 225
Left = 1298
Top = 137
end
object CDS_1: TClientDataSet
Aggregates = <>
@ -738,7 +851,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 436
Top = 393
Left = 476
Top = 401
end
end

273
E02梭织经轴仓库/U_TatWBPlanInPut.pas
View File

@ -25,14 +25,6 @@ type
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;
@ -63,7 +55,7 @@ type
WB_Qty_YJMJZGS: TEdit;
WB_Qty_YJMJZMS: TEdit;
Label13: TLabel;
TWPNo: TEdit;
TWPId: TEdit;
Label15: TLabel;
Label17: TLabel;
WB_Name: TEdit;
@ -80,6 +72,25 @@ type
Label24: TLabel;
WB_YarnDensity: TEdit;
gyno: TBtnEditC;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column18: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
v1SPName: TcxGridDBColumn;
v1SPSpec: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -91,10 +102,15 @@ type
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure gynoBtnUpClick(Sender: TObject);
procedure WB_CodeBtnUpClick(Sender: TObject);
procedure gkbhBtnUpClick(Sender: TObject);
procedure gynoDblClick(Sender: TObject);
procedure Tv1Column7PropertiesEditValueChanged(Sender: TObject);
private
procedure InitData();
function SaveData(): Boolean;
procedure JSJS();
{ Private declarations }
public
PState, FCopyInt: Integer;
@ -109,7 +125,8 @@ var
implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel;
U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel, U_TatPlanSel2,
U_WBSpecSel, U_GKManageSel;
{$R *.dfm}
@ -160,6 +177,74 @@ begin
InitData();
end;
procedure TfrmTatWBPlanInPut.gkbhBtnUpClick(Sender: TObject);
begin
try
frmGKManageSel := tfrmGKManageSel.Create(Application);
with frmGKManageSel do
begin
if ShowModal = 1 then
begin
SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString;
SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString;
end;
end;
finally
frmGKManageSel.Free;
end;
end;
procedure TfrmTatWBPlanInPut.gynoBtnUpClick(Sender: TObject);
begin
inherited;
try
frmTatPlanSel2 := TfrmTatPlanSel2.Create(Application);
with frmTatPlanSel2 do
begin
FISSJ := '否';
if ShowModal = 1 then
begin
Self.GYNo.Text := CDS_1.FieldByName('OrderNo').asstring;
// Self.GYNo.Properties.LookupItems.Text := CDS_1.FieldByName('Subid').asstring;
Self.CustName.Text := CDS_1.FieldByName('CustName').asstring;
Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from Tat_WB_Spec A');
sql.Add(' where WB_Code=''' + trim(WB_Code.Text) + ''' ');
Open;
end;
Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString);
Self.WB_Spec.Text := Trim(ADOQueryTemp.fieldbyname('WB_Spec').AsString);
Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring;
Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString);
Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString);
Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString);
Self.WB_YarnDensity.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnDensity').AsString);
Self.OrdNote.Text := Trim(ADOQueryTemp.fieldbyname('Note').AsString);
end;
end;
finally
frmTatPlanSel2.Free;
end;
end;
procedure TfrmTatWBPlanInPut.gynoDblClick(Sender: TObject);
begin
inherited;
TcxButtonEdit(Sender).Text := '';
end;
function TfrmTatWBPlanInPut.SaveData(): Boolean;
var
maxno, maxsubno, maxpbno, maxpzno, maxsjno: string;
@ -243,7 +328,7 @@ begin
FieldByName('YRType').Value := '´óÖá¾­Ë¿';
FieldByName('TWPId').Value := Trim(maxno);
FieldByName('YRId').Value := Trim(maxpbno);
RTSetsavedataCDS(ADOQueryCmd, Tv2, CDS_1, 'Tat_WB_Plan_Yarn', 0);
RTSetsavedataCDS(ADOQueryCmd, Tv1, CDS_1, 'Tat_WB_Plan_Yarn', 0);
Post;
end;
CDS_1.Edit;
@ -298,13 +383,16 @@ 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;
FieldByName('ZS').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value;
FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value;
FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value;
FieldByName('NOTE').Value := frmYarnInfoSel.CDS_1.fieldbyname('NOTE').Value;
Post;
end;
@ -334,6 +422,96 @@ begin
CDS_1.Delete;
end;
procedure TfrmTatWBPlanInPut.Tv1Column7PropertiesEditValueChanged(
Sender: TObject);
var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //根数
end
else
begin
GS := FieldByName('YarnQty').Value; //根数
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //循环根数
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end;
// if FieldByName('SH').Value = null then
// begin
// SUNHAO := 0; //损耗
// end
// else
// begin
// SUNHAO := FieldByName('SH').Value; //损耗
// end;
if FieldByName('Denier').Value = null then
begin
DS := 0; //D数
end
else
begin
DS := FieldByName('Denier').Value; //D数
end;
TW := strtofloatdef(WB_YarnQty.text, 0); //头纹
end;
if ZGS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
Post;
end;
end;
end;
procedure TfrmTatWBPlanInPut.WB_CodeBtnUpClick(Sender: TObject);
begin
try
frmWBSpecSel := TfrmWBSpecSel.Create(Application);
with frmWBSpecSel do
begin
if ShowModal = 1 then
begin
Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString);
Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value;
Self.WB_Width.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString);
Self.WB_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString);
Self.WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString);
Self.WB_YarnDensity.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnDensity').AsString);
Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString);
Self.OrdNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('Note').AsString);
end;
end;
finally
frmWBSpecSel.Free;
end;
end;
procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
@ -369,12 +547,79 @@ begin
end;
procedure TfrmTatWBPlanInPut.JSJS();
var
GS, ZGS, MF, DS, WM, TW: double;
begin
if CDS_1.IsEmpty then
exit;
with CDS_1 do
begin
DisableControls;
first;
while not eof do
begin
with CDS_1 do
begin
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //根数
end
else
begin
GS := FieldByName('YarnQty').Value; //根数
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //循环根数
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end;
MF := strtofloatdef(WB_Width.text, 0); //筘幅
TW := strtofloatdef(WB_YarnQty.text, 0); //头纹
if FieldByName('TestDenier').Value = null then
begin
DS := 0; //D数
end
else
begin
DS := FieldByName('TestDenier').Value; //D数
end;
WM := strtofloatdef(WB_YarnDensity.text, 0); //纬密
end;
if ZGS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
Post;
end;
end;
next;
end;
First;
EnableControls;
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;

7
E02梭织经轴仓库/U_WBSpecInPut.dfm
View File

@ -2,21 +2,20 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 88
Top = 141
Caption = #25972#32463#24037#33402#24405#20837
ClientHeight = 863
ClientHeight = 845
ClientWidth = 1115
Color = clWhite
Font.Height = -16
Position = poMainFormCenter
ExplicitTop = -5
ExplicitWidth = 1131
ExplicitHeight = 902
ExplicitHeight = 884
PixelsPerInch = 96
TextHeight = 21
object cxGrid1: TcxGrid [0]
Left = 0
Top = 455
Width = 1115
Height = 408
Height = 390
Align = alClient
TabOrder = 0
ExplicitTop = 461

2
E02梭织经轴仓库/U_WBSpecList.dfm
View File

@ -540,6 +540,8 @@ inherited frmWBSpecList: TfrmWBSpecList
Align = alTop
ParentFont = False
TabOrder = 1
ExplicitLeft = 6
ExplicitTop = 6
Height = 239
Width = 594
end

28
E02梭织经轴仓库/WarpBeamStk.dproj.local
View File

@ -125,19 +125,19 @@
<File Path="U_WBTypeSel.dfm"/>
</ProjectSortOrder>
<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.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.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.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</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.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.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.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.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.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.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<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.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.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.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</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.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.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.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.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.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.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
</Transactions>
</BorlandProject>