Group_99/D10xhGemei
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2024-12-30 22:05:29 +08:00
parent 9ed02a60eb
commit 707ca8bb33
7 changed files with 1713 additions and 336 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
A02基础产品管理/U_ClothInfo.dfm
View File

@ -283,7 +283,6 @@ inherited frmClothInfo: TfrmClothInfo
Tag = 2
Left = 623
Top = 7
ParentColor = True
TabOrder = 0
OnKeyPress = C_CodeKeyPress
Width = 150
@ -292,7 +291,6 @@ inherited frmClothInfo: TfrmClothInfo
Tag = 2
Left = 864
Top = 7
ParentColor = True
TabOrder = 1
OnKeyPress = C_CodeKeyPress
Width = 150
@ -301,7 +299,6 @@ inherited frmClothInfo: TfrmClothInfo
Tag = 2
Left = 864
Top = 77
ParentColor = True
TabOrder = 2
OnKeyPress = C_CodeKeyPress
Width = 150
@ -310,7 +307,6 @@ inherited frmClothInfo: TfrmClothInfo
Tag = 2
Left = 623
Top = 77
ParentColor = True
TabOrder = 3
OnKeyPress = C_CodeKeyPress
Width = 150
@ -319,7 +315,6 @@ inherited frmClothInfo: TfrmClothInfo
Tag = 2
Left = 80
Top = 7
ParentColor = True
TabOrder = 4
OnKeyPress = C_CodeKeyPress
Width = 150
@ -328,7 +323,6 @@ inherited frmClothInfo: TfrmClothInfo
Tag = 2
Left = 80
Top = 42
ParentColor = True
TabOrder = 5
OnKeyPress = C_CodeKeyPress
Width = 150
@ -337,7 +331,6 @@ inherited frmClothInfo: TfrmClothInfo
Tag = 2
Left = 864
Top = 42
ParentColor = True
TabOrder = 6
OnKeyPress = C_CodeKeyPress
Width = 150
@ -346,7 +339,6 @@ inherited frmClothInfo: TfrmClothInfo
Tag = 2
Left = 623
Top = 42
ParentColor = True
TabOrder = 7
OnKeyPress = C_CodeKeyPress
Width = 150
@ -355,7 +347,6 @@ inherited frmClothInfo: TfrmClothInfo
Tag = 2
Left = 353
Top = 7
ParentColor = True
TabOrder = 8
OnKeyPress = C_CodeKeyPress
Width = 150
@ -364,7 +355,6 @@ inherited frmClothInfo: TfrmClothInfo
Tag = 2
Left = 353
Top = 42
ParentColor = True
TabOrder = 9
OnKeyPress = C_CodeKeyPress
Width = 150
@ -373,7 +363,6 @@ inherited frmClothInfo: TfrmClothInfo
Tag = 2
Left = 353
Top = 77
ParentColor = True
TabOrder = 10
OnKeyPress = C_CodeKeyPress
Width = 150
@ -382,7 +371,6 @@ inherited frmClothInfo: TfrmClothInfo
Tag = 2
Left = 80
Top = 77
ParentColor = True
TabOrder = 11
OnKeyPress = C_CodeKeyPress
Width = 150
@ -582,8 +570,6 @@ inherited frmClothInfo: TfrmClothInfo
Height = 201
Align = alLeft
TabOrder = 1
ExplicitLeft = 7
ExplicitTop = 5
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -652,6 +638,8 @@ inherited frmClothInfo: TfrmClothInfo
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitLeft = 6
ExplicitTop = 41
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>

346
A02基础产品管理/U_ClothInfoInput.dfm
View File

@ -3,7 +3,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Top = 231
Anchors = []
Caption = #20135#21697#20449#24687#24405#20837
ClientHeight = 529
ClientHeight = 653
ClientWidth = 1284
Color = clBtnFace
Font.Charset = GB2312_CHARSET
@ -70,16 +70,18 @@ object frmClothInfoInput: TfrmClothInfoInput
Left = 0
Top = 30
Width = 775
Height = 499
Height = 623
Align = alLeft
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
ExplicitLeft = -5
ExplicitTop = 29
object Label1: TLabel
Left = 33
Top = 19
Left = 37
Top = 18
Width = 64
Height = 21
Caption = #20135#21697#32534#21495
@ -87,8 +89,8 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False
end
object Label5: TLabel
Left = 33
Top = 57
Left = 421
Top = 18
Width = 64
Height = 21
Caption = #20013#25991#21697#21517
@ -96,8 +98,8 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False
end
object Label15: TLabel
Left = 33
Top = 96
Left = 37
Top = 94
Width = 64
Height = 21
Caption = #26377#25928#38376#24133
@ -105,8 +107,8 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False
end
object Label22: TLabel
Left = 429
Top = 96
Left = 421
Top = 94
Width = 64
Height = 21
Caption = #25104#21697#20811#37325
@ -114,8 +116,8 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False
end
object Label4: TLabel
Left = 33
Top = 134
Left = 37
Top = 56
Width = 64
Height = 21
Caption = #33457#22411#32534#21495
@ -137,8 +139,8 @@ object frmClothInfoInput: TfrmClothInfoInput
Visible = False
end
object Label7: TLabel
Left = 429
Top = 134
Left = 37
Top = 132
Width = 64
Height = 21
Caption = #20013#25991#25104#20998
@ -146,8 +148,8 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False
end
object Label6: TLabel
Left = 33
Top = 176
Left = 37
Top = 169
Width = 32
Height = 21
Caption = #35268#26684
@ -155,8 +157,8 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False
end
object Label9: TLabel
Left = 33
Top = 432
Left = 37
Top = 400
Width = 32
Height = 21
Caption = #22791#27880
@ -164,8 +166,8 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False
end
object Label11: TLabel
Left = 33
Top = 216
Left = 37
Top = 238
Width = 32
Height = 21
Caption = #24067#31181
@ -173,8 +175,8 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False
end
object Label10: TLabel
Left = 429
Top = 176
Left = 421
Top = 132
Width = 64
Height = 21
Caption = #33521#25991#25104#20998
@ -182,53 +184,26 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False
end
object Label12: TLabel
Left = 33
Top = 292
Left = 37
Top = 276
Width = 64
Height = 21
Caption = #32433#32447#24418#24577
Color = clWhite
ParentColor = False
end
object Label13: TLabel
Left = 33
Top = 253
Width = 80
Height = 21
Caption = #21518#25972#29702#33521#25991
Color = clWhite
ParentColor = False
end
object Label14: TLabel
Left = 429
Top = 253
Width = 80
Height = 21
Caption = #21518#25972#29702#20013#25991
Color = clWhite
ParentColor = False
end
object Label16: TLabel
Left = 429
Top = 216
Left = 421
Top = 238
Width = 48
Height = 21
Caption = #21152#24037#21035
Color = clWhite
ParentColor = False
end
object Label17: TLabel
Left = 429
Top = 292
Width = 32
Height = 21
Caption = #32568#21495
Color = clWhite
ParentColor = False
end
object Label18: TLabel
Left = 33
Top = 332
Left = 37
Top = 314
Width = 80
Height = 21
Caption = #20379#24212#21830#20195#21495
@ -236,26 +211,17 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False
end
object Label19: TLabel
Left = 429
Top = 332
Left = 421
Top = 314
Width = 48
Height = 21
Caption = #20379#24212#21830
Color = clWhite
ParentColor = False
end
object Label20: TLabel
Left = 429
Top = 18
Width = 32
Height = 21
Caption = #39118#26684
Color = clWhite
ParentColor = False
end
object Label21: TLabel
Left = 429
Top = 57
Left = 421
Top = 56
Width = 64
Height = 21
Caption = #33521#25991#21697#21517
@ -263,18 +229,63 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False
end
object Label23: TLabel
Left = 33
Top = 373
Left = 421
Top = 276
Width = 64
Height = 21
Caption = #26579#33394#26041#24335
Color = clWhite
ParentColor = False
end
object Label2: TLabel
Left = 37
Top = 351
Width = 64
Height = 21
Caption = #26631#20934#25253#20215
Color = clWhite
ParentColor = False
end
object Label8: TLabel
Left = 37
Top = 205
Width = 64
Height = 21
Caption = #37197#36135#31995#25968
Color = clWhite
ParentColor = False
end
object Label13: TLabel
Left = 421
Top = 205
Width = 64
Height = 21
Caption = #37197#39069#38480#21046
Color = clWhite
ParentColor = False
end
object Label14: TLabel
Left = 727
Top = 205
Width = 14
Height = 21
Caption = '%'
Color = clWhite
ParentColor = False
end
object Label20: TLabel
Left = 421
Top = 169
Width = 32
Height = 21
Caption = #24211#20301
Color = clWhite
ParentColor = False
end
object C_Code: TcxTextEdit
Tag = 2
Left = 119
Top = 13
Top = 14
Enabled = False
TabOrder = 0
OnKeyPress = CYColorKeyPress
@ -282,8 +293,8 @@ object frmClothInfoInput: TfrmClothInfoInput
end
object C_Name: TcxTextEdit
Tag = 2
Left = 119
Top = 51
Left = 507
Top = 14
TabOrder = 1
OnKeyPress = CYColorKeyPress
Width = 234
@ -299,7 +310,7 @@ object frmClothInfoInput: TfrmClothInfoInput
end
object C_GramWeight: TcxButtonEdit
Tag = 2
Left = 511
Left = 507
Top = 90
Hint = 'C_GramWeight/'#20811#37325
Properties.Buttons = <
@ -308,7 +319,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
Properties.OnButtonClick = C_WidthPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 3
OnDblClick = C_GramWeightDblClick
@ -316,8 +327,8 @@ object frmClothInfoInput: TfrmClothInfoInput
end
object C_Composition: TcxButtonEdit
Tag = 2
Left = 511
Top = 130
Left = 119
Top = 128
Hint = 'C_Composition/'#25104#20998
Properties.Buttons = <
item
@ -325,7 +336,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
Properties.OnButtonClick = C_WidthPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 4
OnDblClick = C_GramWeightDblClick
@ -334,7 +345,7 @@ object frmClothInfoInput: TfrmClothInfoInput
object C_Spec: TcxButtonEdit
Tag = 2
Left = 119
Top = 170
Top = 165
Hint = 'C_Spec/'#35268#26684
Properties.Buttons = <
item
@ -342,7 +353,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
Properties.OnButtonClick = C_WidthPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 5
OnDblClick = C_GramWeightDblClick
@ -377,7 +388,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
Properties.OnButtonClick = C_WidthPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 7
OnDblClick = C_GramWeightDblClick
@ -386,7 +397,7 @@ object frmClothInfoInput: TfrmClothInfoInput
object C_Pattern: TcxButtonEdit
Tag = 2
Left = 119
Top = 130
Top = 52
Hint = 'C_Pattern/'#33457#22411
Properties.Buttons = <
item
@ -394,7 +405,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
Properties.OnButtonClick = C_WidthPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 8
OnDblClick = C_GramWeightDblClick
@ -403,7 +414,7 @@ object frmClothInfoInput: TfrmClothInfoInput
object CINote: TcxMemo
Tag = 2
Left = 119
Top = 414
Top = 381
TabOrder = 9
Height = 57
Width = 626
@ -411,15 +422,15 @@ object frmClothInfoInput: TfrmClothInfoInput
object GC_Name: TcxTextEdit
Tag = 2
Left = 119
Top = 210
Top = 234
TabOrder = 10
OnKeyPress = CYColorKeyPress
Width = 234
end
object C_EComposition: TcxButtonEdit
Tag = 2
Left = 511
Top = 172
Left = 507
Top = 128
Hint = 'C_EComposition/'#25104#20998
Properties.Buttons = <
item
@ -427,7 +438,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
Properties.OnButtonClick = C_WidthPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 11
OnDblClick = C_GramWeightDblClick
@ -436,108 +447,88 @@ object frmClothInfoInput: TfrmClothInfoInput
object C_YarnSpec: TcxTextEdit
Tag = 2
Left = 119
Top = 286
Top = 272
TabOrder = 12
OnKeyPress = CYColorKeyPress
Width = 234
end
object CraftEName: TcxButtonEdit
Tag = 2
Left = 119
Top = 247
Hint = 'CraftEName/'#35268#26684
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 13
OnDblClick = C_GramWeightDblClick
Width = 234
end
object CraftName: TcxButtonEdit
Tag = 2
Left = 511
Top = 247
Hint = 'CraftName/'#25104#20998
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 14
OnDblClick = C_GramWeightDblClick
Width = 234
end
object CraftCode: TcxTextEdit
Tag = 2
Left = 511
Top = 207
TabOrder = 15
OnKeyPress = CYColorKeyPress
Width = 234
end
object FtyPCId: TcxTextEdit
Tag = 2
Left = 511
Top = 286
TabOrder = 16
Left = 507
Top = 234
TabOrder = 13
OnKeyPress = CYColorKeyPress
Width = 234
end
object FtyNo: TcxTextEdit
Tag = 2
Left = 119
Top = 326
TabOrder = 17
Top = 310
TabOrder = 14
OnKeyPress = CYColorKeyPress
Width = 234
end
object FtyName: TcxTextEdit
Tag = 2
Left = 511
Top = 326
TabOrder = 18
Left = 507
Top = 310
TabOrder = 15
OnKeyPress = CYColorKeyPress
Width = 234
end
object C_Texture: TcxButtonEdit
object C_EName: TcxTextEdit
Tag = 2
Left = 511
Top = 12
Hint = 'C_Texture/'#32441#29702
Left = 507
Top = 52
TabOrder = 16
OnKeyPress = CYColorKeyPress
Width = 234
end
object DyeingMethod: TcxTextEdit
Tag = 2
Left = 507
Top = 272
TabOrder = 17
OnKeyPress = CYColorKeyPress
Width = 234
end
object CostPrice: TcxCurrencyEdit
Left = 119
Top = 347
Properties.AssignedValues.DisplayFormat = True
TabOrder = 18
Width = 234
end
object distributionCoefficient: TcxCurrencyEdit
Left = 119
Top = 201
Properties.AssignedValues.DisplayFormat = True
TabOrder = 19
Width = 234
end
object quota: TcxCurrencyEdit
Left = 507
Top = 201
EditValue = 10.000000000000000000
Properties.AssignedValues.DisplayFormat = True
TabOrder = 20
Width = 210
end
object StkPosition: TcxButtonEdit
Tag = 2
Left = 507
Top = 165
Hint = 'StkPosition/'#24211#20301
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
Properties.OnButtonClick = C_WidthPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 19
OnDblClick = C_GramWeightDblClick
Width = 234
end
object C_EName: TcxTextEdit
Tag = 2
Left = 511
Top = 51
TabOrder = 20
OnKeyPress = CYColorKeyPress
Width = 234
end
object DyeingMethod: TcxTextEdit
Tag = 2
Left = 119
Top = 367
TabOrder = 21
OnKeyPress = CYColorKeyPress
OnDblClick = C_GramWeightDblClick
Width = 234
end
end
@ -545,7 +536,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Left = 775
Top = 30
Width = 509
Height = 499
Height = 623
Align = alClient
TabOrder = 2
object ToolBar2: TToolBar
@ -585,10 +576,11 @@ object frmClothInfoInput: TfrmClothInfoInput
Left = 1
Top = 31
Width = 507
Height = 467
Height = 591
Align = alClient
TabOrder = 1
ExplicitLeft = 3
ExplicitLeft = 6
ExplicitTop = 37
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -608,35 +600,51 @@ object frmClothInfoInput: TfrmClothInfoInput
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object TV1Column1: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 150
Width = 55
end
object TV1Column2: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 150
Width = 26
end
object TV1Column3: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 150
Width = 39
end
object TV1Column4: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 150
Width = 43
end
object TV1Column5: TcxGridDBColumn
Caption = #28014#21160#20215
DataBinding.FieldName = 'floatPrice'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column5PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 68
end
object TV1Column6: TcxGridDBColumn
Caption = #21442#32771#23450#20215
DataBinding.FieldName = 'referencePrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
end
object cxGridLevel2: TcxGridLevel

138
A02基础产品管理/U_ClothInfoInput.pas
View File

@ -47,20 +47,12 @@ type
C_EComposition: TcxButtonEdit;
Label12: TLabel;
C_YarnSpec: TcxTextEdit;
Label13: TLabel;
CraftEName: TcxButtonEdit;
Label14: TLabel;
CraftName: TcxButtonEdit;
Label16: TLabel;
CraftCode: TcxTextEdit;
Label17: TLabel;
FtyPCId: TcxTextEdit;
Label18: TLabel;
Label19: TLabel;
FtyNo: TcxTextEdit;
FtyName: TcxTextEdit;
Label20: TLabel;
C_Texture: TcxButtonEdit;
Label21: TLabel;
Label23: TLabel;
DyeingMethod: TcxTextEdit;
@ -79,6 +71,17 @@ type
CDS_1: TClientDataSet;
GPM_1: TcxGridPopupMenu;
ToolButton2: TToolButton;
CostPrice: TcxCurrencyEdit;
Label2: TLabel;
distributionCoefficient: TcxCurrencyEdit;
Label8: TLabel;
quota: TcxCurrencyEdit;
Label13: TLabel;
Label14: TLabel;
Label20: TLabel;
StkPosition: TcxButtonEdit;
TV1Column5: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
@ -86,15 +89,17 @@ type
procedure CYJGGYBtnDnClick(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure C_GramWeightDblClick(Sender: TObject);
procedure ParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure C_FromNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure TV1Column5PropertiesEditValueChanged(Sender: TObject);
procedure C_WidthPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
canshu1: string;
Fint: Integer;
procedure InitGrid();
procedure InitGrid1();
function SaveData(): Boolean;
{ Private declarations }
public
@ -113,6 +118,19 @@ uses
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel;
{$R *.dfm}
procedure TfrmClothInfoInput.InitGrid1();
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* from BS_Cloth_Info_Sub A ');
sql.Add(' where A.BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1);
end;
procedure TfrmClothInfoInput.InitGrid();
begin
@ -150,16 +168,7 @@ begin
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* from BS_Cloth_Info_Sub A ');
sql.Add(' where A.BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1);
end;
procedure TfrmClothInfoInput.C_FromNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -186,7 +195,7 @@ begin
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
end;
procedure TfrmClothInfoInput.ParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TfrmClothInfoInput.C_WidthPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
@ -197,23 +206,11 @@ begin
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := 'ClothInfo';
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' exec P_BS_Cloth_Info_Get_No ');
sql.Add(' @CTID=' + Quotedstr(FCTID));
sql.Add(' ,@Str=' + Quotedstr(C_Texture.Text));
Open;
end;
GC_Name.Text := trim(ADOQueryTemp.FieldByName('GC_Name').asstring);
end;
end;
finally
@ -225,6 +222,7 @@ procedure TfrmClothInfoInput.FormShow(Sender: TObject);
begin
readCxGrid(self.Caption + 'TV1', Tv1, '样品管理');
InitGrid();
InitGrid1();
if TypeInt = 1 then
begin
FBCIID := '';
@ -387,34 +385,47 @@ begin
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'BS_Cloth_Info_Sub', 0);
Post;
end;
CDS_1.Edit;
CDS_1.FieldByName('BCIID').Value := Trim(MaxBCIID);
CDS_1.FieldByName('BCISID').Value := Trim(maxId2);
Next;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select count(BCISID) as AA from BS_Cloth_Info_Sub where BCIID=''' + Trim(MaxBCIID) + '''');
sql.Add(' group by C_Color,C_ColorNo having count(BCISID)>1');
Open;
if FieldByName('AA').AsInteger > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('颜色色号重复！', '提示', 0);
Exit;
end;
end;
////////////////////////// 保存子表 //////////////////////////
///
///
ADOQueryCmd.Connection.CommitTrans;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add(' exec P_BS_CloInfo_UpAllTab @BCIID=' + QuotedStr(trim(MaxBCIID)));
Sql.Add(',@UpId=' + quotedstr(Trim(DCode)));
Sql.Add(',@Uper=' + quotedstr(Trim(DName)));
ExecSQL;
end;
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add(' exec P_BS_CloInfo_UpAllTab @BCIID=' + QuotedStr(trim(MaxBCIID)));
// Sql.Add(',@UpId=' + quotedstr(Trim(DCode)));
// Sql.Add(',@Uper=' + quotedstr(Trim(DName)));
// ExecSQL;
// end;
FBCIID := MaxBCIID;
Result := True;
except
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
InitGrid1();
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
@ -428,21 +439,15 @@ procedure TfrmClothInfoInput.ToolButton1Click(Sender: TObject);
var
MC_Code: string;
begin
if C_Texture.Text = '' then
begin
Application.MessageBox('·ç¸ñ²»ÄÜΪ¿Õ£¡', 'Ìáʾ', 0);
Exit;
end;
ToolBar1.SetFocus;
if trim(C_Code.Text) = '' then
begin
if GetLSNo(ADOQueryCmd, MC_Code, 'C', 'BS_Cloth_Info', 4, 0) = False then
begin
Application.MessageBox('取最成品编号失败!', '提示', 0);
Exit;
end;
C_Code.Text := MC_Code;
end;
if SaveData() then
begin
@ -530,5 +535,34 @@ begin
end;
end;
procedure TfrmClothInfoInput.TV1Column5PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
MCostPrice, MfloatPrice: Double; //个数，单价，金额
begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
MCostPrice := StrToFloatDef(CostPrice.Text, 0);
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
MfloatPrice := Fieldbyname('floatPrice').AsFloat;
end;
with CDS_1 do
begin
Edit;
FieldByName('referencePrice').Value := MfloatPrice + MCostPrice;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
end.

587
T02贸易汇总仓库/U_TradeClothTotalInInput1.dfm Normal file
View File

@ -0,0 +1,587 @@
inherited frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1
Left = 67
Top = 126
Caption = #26126#32454#20837#24211#30331#35760
ClientHeight = 525
ClientWidth = 879
Font.Charset = GB2312_CHARSET
Font.Height = -16
Position = poScreenCenter
OnClose = FormClose
ExplicitWidth = 895
ExplicitHeight = 564
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 879
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeTotalClothStk.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 1540
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 505
Height = 495
Align = alLeft
TabOrder = 1
ExplicitLeft = 8
object Label12: TLabel
Left = 271
Top = 20
Width = 64
Height = 21
Caption = #20837#24211#31867#22411
end
object Label1: TLabel
Left = 25
Top = 20
Width = 64
Height = 21
Caption = #20837#24211#26102#38388
end
object Label14: TLabel
Left = 25
Top = 55
Width = 64
Height = 21
Caption = #26469#33258#21333#20301
end
object Label2: TLabel
Left = 25
Top = 95
Width = 64
Height = 21
Caption = #20135#21697#32534#21495
Color = clWhite
ParentColor = False
end
object Label5: TLabel
Left = 271
Top = 95
Width = 64
Height = 21
Caption = #20013#25991#21697#21517
Color = clWhite
ParentColor = False
end
object Label15: TLabel
Left = 271
Top = 130
Width = 64
Height = 21
Caption = #26377#25928#38376#24133
Color = clWhite
ParentColor = False
end
object Label22: TLabel
Left = 25
Top = 130
Width = 64
Height = 21
Caption = #25104#21697#20811#37325
Color = clWhite
ParentColor = False
end
object Label4: TLabel
Left = 25
Top = 235
Width = 64
Height = 21
Caption = #33457#22411#32534#21495
Color = clWhite
ParentColor = False
end
object Label7: TLabel
Left = 25
Top = 165
Width = 64
Height = 21
Caption = #20013#25991#25104#20998
Color = clWhite
ParentColor = False
end
object Label6: TLabel
Left = 25
Top = 270
Width = 32
Height = 21
Caption = #35268#26684
Color = clWhite
ParentColor = False
end
object Label11: TLabel
Left = 25
Top = 200
Width = 32
Height = 21
Caption = #39068#33394
Color = clWhite
ParentColor = False
end
object Label10: TLabel
Left = 271
Top = 165
Width = 64
Height = 21
Caption = #33521#25991#25104#20998
Color = clWhite
ParentColor = False
end
object Label16: TLabel
Left = 25
Top = 307
Width = 64
Height = 21
Caption = #26579#21378#32568#21495
Color = clWhite
ParentColor = False
end
object Label21: TLabel
Left = 271
Top = 235
Width = 64
Height = 21
Caption = #33521#25991#21697#21517
Color = clWhite
ParentColor = False
end
object Label27: TLabel
Left = 271
Top = 270
Width = 64
Height = 21
Caption = #25968#37327#21333#20301
end
object Label3: TLabel
Left = 271
Top = 55
Width = 64
Height = 21
Caption = #23384#25918#21333#20301
end
object Label8: TLabel
Left = 271
Top = 200
Width = 32
Height = 21
Caption = #33394#21495
Color = clWhite
ParentColor = False
end
object Label17: TLabel
Left = 271
Top = 305
Width = 32
Height = 21
Caption = #31867#22411
end
object Label18: TLabel
Left = 27
Top = 342
Width = 64
Height = 21
Caption = #20986#24211#21333#21495
Visible = False
end
object IOType: TcxComboBox
Left = 339
Top = 16
Properties.Items.Strings = (
#37319#36141#20837#24211
#21152#24037#20837#24211
#29983#20135#36864#22238
#30424#30408#20837#24211
#38144#21806#36864#22238)
TabOrder = 0
Width = 150
end
object IOTime: TcxDateEdit
Left = 95
Top = 16
Properties.ImmediatePost = True
Properties.ShowTime = False
TabOrder = 1
Width = 150
end
object FromCoName: TcxButtonEdit
Left = 95
Top = 51
ParentColor = True
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = FromCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 2
OnDblClick = FromCoNameDblClick
Width = 150
end
object C_Name: TcxTextEdit
Left = 339
Top = 91
TabOrder = 3
Width = 150
end
object C_Color: TcxTextEdit
Left = 95
Top = 196
TabOrder = 4
Width = 150
end
object FtyPCId: TcxTextEdit
Left = 95
Top = 303
TabOrder = 5
Width = 150
end
object C_EName: TcxTextEdit
Left = 339
Top = 231
TabOrder = 6
Width = 150
end
object C_Code: TcxButtonEdit
Left = 95
Top = 91
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = C_CodePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 7
Width = 150
end
object QtyUnit: TcxComboBox
Left = 339
Top = 266
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'M'
'Y'
'Kg')
TabOrder = 8
Text = 'M'
Width = 150
end
object StkCoName: TcxButtonEdit
Left = 339
Top = 51
ParentColor = True
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = StkCoNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 9
OnDblClick = FromCoNameDblClick
Width = 150
end
object C_EComposition: TcxTextEdit
Left = 339
Top = 161
TabOrder = 10
Width = 150
end
object C_GramWeight: TcxTextEdit
Left = 95
Top = 126
TabOrder = 11
Width = 150
end
object C_Composition: TcxTextEdit
Left = 95
Top = 161
TabOrder = 12
Width = 150
end
object C_Width: TcxTextEdit
Left = 339
Top = 126
TabOrder = 13
Width = 150
end
object C_Spec: TcxTextEdit
Left = 95
Top = 266
TabOrder = 14
Width = 150
end
object C_Pattern: TcxTextEdit
Left = 95
Top = 231
TabOrder = 15
Width = 150
end
object C_Colorno: TcxTextEdit
Left = 339
Top = 196
TabOrder = 16
Width = 150
end
object C_Degree: TcxComboBox
Left = 339
Top = 301
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#22383#24067
#21322#25104#21697
#25104#21697)
TabOrder = 17
Text = #25104#21697
Width = 150
end
object BCIONO: TcxTextEdit
Left = 95
Top = 338
Properties.ReadOnly = True
TabOrder = 18
Visible = False
Width = 189
end
end
object pnl1: TPanel [2]
Left = 505
Top = 30
Width = 374
Height = 495
Align = alClient
Caption = 'pnl1'
TabOrder = 2
ExplicitLeft = 1040
ExplicitTop = 512
ExplicitWidth = 313
ExplicitHeight = 137
object cxGrid1: TcxGrid
Tag = 2
Left = 1
Top = 72
Width = 372
Height = 422
Align = alClient
TabOrder = 0
ExplicitLeft = 6
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource3
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv1Column1
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv1Column1: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 169
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object tlb1: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 372
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeTotalClothStk.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 1
ExplicitWidth = 311
ExplicitHeight = 60
object btn1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 2
OnClick = TBAddClick
end
object btn3: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 6
OnClick = TBDelClick
end
object btn4: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
end
object pnl2: TPanel
Left = 1
Top = 31
Width = 372
Height = 41
Align = alTop
TabOrder = 2
ExplicitLeft = 72
ExplicitTop = 160
ExplicitWidth = 185
object Label9: TLabel
Left = 33
Top = 10
Width = 32
Height = 21
Caption = #21305#25968
end
object Label13: TLabel
Left = 193
Top = 10
Width = 32
Height = 21
Caption = #25968#37327
end
object inPiece: TcxCurrencyEdit
Left = 71
Top = 6
Properties.AssignedValues.DisplayFormat = True
TabOrder = 0
Width = 98
end
object inQty: TcxCurrencyEdit
Left = 231
Top = 6
Properties.AssignedValues.DisplayFormat = True
TabOrder = 1
OnKeyPress = inQtyKeyPress
Width = 98
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 241
Top = 280
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 201
Top = 297
end
inherited ImageList_new32: TImageList
Left = 80
Top = 208
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
end
object DataSource3: TDataSource
DataSet = CDS_Sub
Left = 749
Top = 250
end
object CDS_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 645
Top = 224
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Parameters = <>
Left = 224
Top = 208
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 368
Top = 192
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 317
Top = 303
end
object GPM_1: TcxGridPopupMenu
PopupMenus = <>
Left = 472
Top = 294
end
object CDS_LM: TClientDataSet
Aggregates = <>
Params = <>
Left = 608
Top = 328
end
object OpenDialog1: TOpenDialog
Left = 522
Top = 338
end
end

725
T02贸易汇总仓库/U_TradeClothTotalInInput1.pas Normal file
View File

@ -0,0 +1,725 @@
unit U_TradeClothTotalInInput1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, ToolWin,
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, ComObj,
dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, cxMaskEdit,
cxImageList, cxCurrencyEdit;
type
TfrmTradeClothTotalInInput1 = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
DataSource3: TDataSource;
CDS_Sub: TClientDataSet;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
GPM_1: TcxGridPopupMenu;
CDS_LM: TClientDataSet;
OpenDialog1: TOpenDialog;
Panel1: TPanel;
Label12: TLabel;
Label1: TLabel;
IOType: TcxComboBox;
IOTime: TcxDateEdit;
Label14: TLabel;
FromCoName: TcxButtonEdit;
Label2: TLabel;
Label5: TLabel;
Label15: TLabel;
Label22: TLabel;
Label4: TLabel;
Label7: TLabel;
Label6: TLabel;
Label11: TLabel;
Label10: TLabel;
Label16: TLabel;
Label21: TLabel;
C_Name: TcxTextEdit;
C_Color: TcxTextEdit;
FtyPCId: TcxTextEdit;
C_EName: TcxTextEdit;
C_Code: TcxButtonEdit;
Label27: TLabel;
QtyUnit: TcxComboBox;
Label3: TLabel;
StkCoName: TcxButtonEdit;
C_EComposition: TcxTextEdit;
C_GramWeight: TcxTextEdit;
C_Composition: TcxTextEdit;
C_Width: TcxTextEdit;
C_Spec: TcxTextEdit;
C_Pattern: TcxTextEdit;
Label8: TLabel;
C_Colorno: TcxTextEdit;
pnl1: TPanel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
Tv1Column1: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
tlb1: TToolBar;
btn1: TToolButton;
btn3: TToolButton;
btn4: TToolButton;
pnl2: TPanel;
inPiece: TcxCurrencyEdit;
Label9: TLabel;
inQty: TcxCurrencyEdit;
Label13: TLabel;
Label17: TLabel;
C_Degree: TcxComboBox;
Label18: TLabel;
BCIONO: TcxTextEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure FromCoNameDblClick(Sender: TObject);
procedure FromCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure C_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure inQtyKeyPress(Sender: TObject; var Key: Char);
procedure StkCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
{ Private declarations }
function SaveCKData(): Boolean;
public
{ Public declarations }
FBCId, canshu3, FSTKName, FKHName: string;
end;
var
frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_TradePlanSel, U_ClothInfoSel;
{$R *.dfm}
procedure TfrmTradeClothTotalInInput1.C_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
frmClothInfoSel := TfrmClothInfoSel.Create(self);
with frmClothInfoSel do
begin
if showmodal = 1 then
begin
self.C_Code.text := frmClothInfoSel.CDS_1.fieldbyname('C_Code').asstring;
self.C_Name.text := frmClothInfoSel.CDS_1.fieldbyname('C_Name').asstring;
self.C_EName.text := frmClothInfoSel.CDS_1.fieldbyname('C_EName').asstring;
self.C_Spec.text := frmClothInfoSel.CDS_1.fieldbyname('C_Spec').asstring;
self.C_Composition.text := frmClothInfoSel.CDS_1.fieldbyname('C_Composition').asstring;
self.C_EComposition.text := frmClothInfoSel.CDS_1.fieldbyname('C_EComposition').asstring;
self.C_Width.text := frmClothInfoSel.CDS_1.fieldbyname('C_Width').asstring;
self.C_GramWeight.text := frmClothInfoSel.CDS_1.fieldbyname('C_GramWeight').asstring;
self.C_Color.text := frmClothInfoSel.CDS_3.fieldbyname('C_Color').asstring;
self.C_Colorno.text := frmClothInfoSel.CDS_3.fieldbyname('C_Colorno').asstring;
QtyUnit.text := 'M';
end;
free;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmTradeClothTotalInInput1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmTradeClothTotalInInput1.TBAddClick(Sender: TObject);
begin
if CDS_Sub.IsEmpty = False then
begin
CopyAddRowCDS(CDS_Sub);
with CDS_Sub do
begin
Edit;
FieldByName('BCIOID').Value := null;
FieldByName('StkCoNo').Value := '本厂仓库';
FieldByName('StkCoName').Value := '本厂仓库';
post;
end;
end
else
begin
with CDS_Sub do
begin
Append;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('StkCoNo').Value := '本厂仓库';
FieldByName('StkCoName').Value := '本厂仓库';
FieldByName('QtyUnit').Value := 'M';
Post;
end;
end;
end;
function TfrmTradeClothTotalInInput1.SaveCKData(): Boolean;
var
Maxno, MBCIOID: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
CDS_Sub.DisableControls;
with CDS_Sub do
begin
First;
while not eof do
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(CDS_Sub.fieldbyname('BCIOID').AsString) + '''');
open;
end;
MBCIOID := Trim(ADOQueryTemp.fieldbyname('BCIOID').AsString);
if Trim(MBCIOID) = '' then
begin
if not GetLSNo(ADOQueryCmd, Maxno, 'MR', 'BS_Cloth_IO', 4, 1) then
raise Exception.Create('取染色坯布入库编号失败！');
end
else
begin
Maxno := Trim(MBCIOID);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(MBCIOID) = '' then
begin
Append;
FieldByName('Fillid').Value := Trim(Dcode);
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editid').Value := Trim(Dcode);
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
end;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Cloth_IO', 0);
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_IO', Panel1, 0);
FieldByName('FromCoNo').Value := Trim(FromCoName.Properties.LookupItems.Text);
FieldByName('CustNo').Value := CDS_Sub.fieldbyname('CustNo').Value;
FieldByName('FromCoNo').Value := CDS_Sub.fieldbyname('FromCoNo').Value;
FieldByName('StkCoNo').Value := Trim(StkCoName.Properties.LookupItems.Text);
FieldByName('FromMainId').Value := CDS_Sub.fieldbyname('FromMainId').Value;
FieldByName('FromSubId').Value := CDS_Sub.fieldbyname('FromSubId').Value;
FieldByName('BCIOID').Value := Trim(Maxno);
FieldByName('STKID').Value := Trim(Maxno);
FieldByName('STKName').Value := FSTKName;
FieldByName('IOFlag').Value := '入库';
FieldByName('IOQtyFlag').Value := 1;
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update BS_Cloth_IO Set StkPiece=(select Sum(isnull(Piece,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID )');
sql.Add(',StkQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID )');
sql.Add(' where BCIOID=''' + Trim(Maxno) + '''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select stkQty,StkPiece from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + '''');
Open;
end;
if ADOQueryTemp.FieldByName('stkQty').Value < 0 then
raise Exception.Create('入库数量小于出库数量不能保存!');
if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then
raise Exception.Create('入库匹数小于出库匹数不能保存!');
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
sql.Add('values(''贸易布坯入库'' ');
sql.Add(',' + quotedstr(Maxno));
sql.Add(',''保存'' ');
sql.Add(',' + quotedstr(DName));
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(Maxno));
sql.Add(') ');
ExecSQL;
end;
Edit;
FieldByName('BCIOID').Value := Trim(Maxno);
Post;
Next;
end;
end;
CDS_Sub.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTradeClothTotalInInput1.StkCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
self.StkCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.StkCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTradeClothTotalInInput1.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTradeClothTotalInInput1.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(FSTKName + '入库登记', Tv1, '贸易汇总仓库');
IOTime.Date := SGetServerDate(ADOQueryTemp);
// IOType.text :='采购入库';
with CDS_LM do
begin
FieldDefs.Clear;
FieldDefs.Add('LXH', ftInteger, 0);
FieldDefs.Add('lCode', ftString, 40);
FieldDefs.Add('LName', ftString, 40);
close;
CreateDataSet;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from BS_Cloth_IO A');
sql.Add(' where BCIOID=''' + Trim(FBCId) + '''');
Open;
end;
SCSHData(ADOQueryTemp, Panel1, 0);
FromCoName.Properties.LookupItems.Text := Trim(ADOQueryTemp.FieldByName('FromCoNo').AsString);
StkCoName.Properties.LookupItems.Text := Trim(ADOQueryTemp.FieldByName('StkCoNo').AsString);
SCreateCDS(ADOQueryTemp, CDS_Sub);
SInitCDSData(ADOQueryTemp, CDS_Sub);
end;
procedure TfrmTradeClothTotalInInput1.FromCoNameDblClick(Sender: TObject);
begin
TcxButtonEdit(Sender).Text := '';
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
end;
procedure TfrmTradeClothTotalInInput1.FromCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
if IoType.text = '销售退回' then
begin
FCoType := '客户';
end
else
begin
FCoType := '供应商';
end;
if ShowModal = 1 then
begin
self.FromCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.FromCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTradeClothTotalInInput1.inQtyKeyPress(Sender: TObject; var Key: Char);
var
i: Integer;
begin
if Key = #13 then
begin
with CDS_Sub do
begin
DisableControls;
for i := 1 to StrToIntDef(inPiece.Text, 1) do
begin
Append;
FieldByName('Qty').Value := StrTofloatDef(inQty.Text, 0);
Post;
end;
EnableControls;
end;
inPiece.Text := '1';
inQty.Text := '';
end;
end;
procedure TfrmTradeClothTotalInInput1.TBDelClick(Sender: TObject);
begin
if CDS_Sub.IsEmpty then
Exit;
if Trim(CDS_Sub.fieldbyname('BCIOID').AsString) <> '' then
begin
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('exec P_Fin_Flow_Judge ');
Sql.Add(' @FFIDS=' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString)));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Open;
end;
if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
begin
Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
sql.Add('values(''贸易样布入库'' ');
sql.Add(',' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString)));
sql.Add(',''删除'' ');
sql.Add(',' + quotedstr(DName));
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString)));
sql.Add(') ');
Sql.Add('exec P_BS_Cloth_In_Del ');
Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString)));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans;
CDS_Sub.Delete;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end
else
begin
CDS_Sub.Delete;
end;
end;
procedure TfrmTradeClothTotalInInput1.TBSaveClick(Sender: TObject);
var
Maxno: string;
begin
if CDS_Sub.IsEmpty then
Exit;
if not GetLSNo(ADOQueryCmd, Maxno, 'BRO', 'BS_Cloth_IO', 4, 1) then
begin
Application.MessageBox('取出库单号失败!', '提示', 0);
Exit;
end
else
BCIONO.Text := Maxno;
if trim(IOType.text) = '' then
begin
Application.MessageBox('入库类型不能为空!', '提示', 0);
Exit;
end;
if CDS_Sub.Locate('Qty', null, []) = True then
begin
Application.MessageBox('数量不能为空!', '提示', 0);
Exit;
end;
if SaveCKData() then
begin
Application.MessageBox('保存成功!', '提示', 0);
//ModalResult:=1;
Exit;
end;
end;
procedure TfrmTradeClothTotalInInput1.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid(FSTKName + '入库登记', Tv1, '贸易汇总仓库');
end;
procedure TfrmTradeClothTotalInInput1.Tv1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '客户';
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('CustNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
FieldByName('CustName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTradeClothTotalInInput1.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('StkCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
FieldByName('StkCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTradeClothTotalInInput1.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmTradePlanSel := TfrmTradePlanSel.Create(Application);
with frmTradePlanSel do
begin
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('FromCoNo').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('FtyNo').AsString);
FieldByName('FromCoName').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('FtyName').AsString);
FieldByName('FromOrdNo').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
FieldByName('FromMainId').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('MainId').AsString);
FieldByName('FromSubId').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('SubId').AsString);
FieldByName('C_Code').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Code').AsString);
FieldByName('C_Name').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Name').AsString);
FieldByName('C_Spec').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Spec').AsString);
FieldByName('C_Composition').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Composition').AsString);
FieldByName('C_Width').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Width').AsString);
FieldByName('C_GramWeight').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_GramWeight').AsString);
FieldByName('C_Color').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Color').AsString);
FieldByName('C_ColorNo').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_ColorNo').AsString);
FieldByName('C_Pattern').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Pattern').AsString);
end;
end;
end;
finally
frmTradePlanSel.Free;
end;
end;
procedure TfrmTradeClothTotalInInput1.Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
with frmClothInfoSel do
begin
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
edit;
FieldByName('C_Code').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString);
FieldByName('C_Name').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString);
FieldByName('C_Spec').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString);
FieldByName('C_Composition').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString);
FieldByName('C_Width').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString);
FieldByName('C_GramWeight').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString);
Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_ColorNo').AsString);
Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Color').AsString);
Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Pattern').AsString);
Fieldbyname('GC_Name').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('GC_Name').AsString);
Fieldbyname('CraftCode').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('CraftCode').AsString);
end;
end;
end;
finally
frmClothInfoSel.Free;
end;
end;
procedure TfrmTradeClothTotalInInput1.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('FromCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
FieldByName('FromCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
FieldByName('SalesER').Value := Trim(CDS_1.fieldbyname('SalesER').AsString);
end;
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTradeClothTotalInInput1.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'JWLYCLName';
flagname := '品名';
MainType := FSTKName;
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('C_Name').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTradeClothTotalInInput1.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'StkPosition';
flagname := '库位';
MainType := FSTKName;
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('StkPosition').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTradeClothTotalInInput1.v1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'C_Spec';
flagname := '规格';
MainType := FSTKName;
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('C_Spec').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
end.

212
T02贸易汇总仓库/U_TradeClothTotalInList.dfm
View File

@ -20,7 +20,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
Images = DataLink_TradeTotalClothStk.cxImageList_bar
@ -37,7 +37,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 71
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
@ -46,15 +46,23 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = TBFindClick
end
object TBAdd: TToolButton
Left = 142
Left = 126
Top = 0
AutoSize = True
Caption = #20837#24211
ImageIndex = 9
OnClick = TBAddClick
end
object btn1: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #26126#32454#20837#24211
ImageIndex = 9
OnClick = btn1Click
end
object TBEdit: TToolButton
Left = 213
Left = 276
Top = 0
AutoSize = True
Caption = #20462#25913
@ -62,7 +70,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 284
Left = 339
Top = 0
AutoSize = True
Caption = #21024#38500
@ -70,7 +78,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = TBDelClick
end
object ToolButton2: TToolButton
Left = 355
Left = 402
Top = 0
AutoSize = True
Caption = #25171#21360
@ -78,7 +86,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = ToolButton2Click
end
object ToolButton3: TToolButton
Left = 426
Left = 465
Top = 0
AutoSize = True
Caption = #38468#20214
@ -86,7 +94,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = ToolButton3Click
end
object TBExport: TToolButton
Left = 497
Left = 528
Top = 0
AutoSize = True
Caption = #23548#20986
@ -94,7 +102,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 568
Left = 591
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -102,7 +110,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 671
Left = 678
Top = 0
AutoSize = True
Caption = #20851#38381
@ -401,47 +409,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 44
end
object Tv1Column29: TcxGridDBColumn
Caption = #35843#20986#35745#21010#21333#21495
DataBinding.FieldName = 'SupOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object Tv1Column30: TcxGridDBColumn
Caption = #35843#20986#21512#21516#21495
DataBinding.FieldName = 'SupConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 129
end
object Tv1Column13: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'FromOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object Tv1Column19: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'FromConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26465#30721
DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 110
Width = 55
end
object Tv1Column37: TcxGridDBColumn
Caption = #20837#24211#21333#21495
@ -449,7 +417,47 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 114
Width = 55
end
object Tv1Column29: TcxGridDBColumn
Caption = #35843#20986#35745#21010#21333#21495
DataBinding.FieldName = 'SupOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object Tv1Column30: TcxGridDBColumn
Caption = #35843#20986#21512#21516#21495
DataBinding.FieldName = 'SupConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object Tv1Column13: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'FromOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object Tv1Column19: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'FromConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26465#30721
DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object v1Column2: TcxGridDBColumn
Tag = 2
@ -461,7 +469,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
Width = 55
end
object v1Column4: TcxGridDBColumn
Tag = 2
@ -476,7 +484,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
#26399#21021#20837#24211)
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Width = 55
end
object v1Column14: TcxGridDBColumn
Tag = 2
@ -493,7 +501,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
Width = 55
end
object Tv1Column11: TcxGridDBColumn
Caption = #37319#36141#21333#21495
@ -501,7 +509,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 56
Width = 55
end
object Tv1Column20: TcxGridDBColumn
Caption = #33521#25991#21697#21517
@ -509,7 +517,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object v2Column1: TcxGridDBColumn
Tag = 2
@ -524,7 +532,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object v1Column8: TcxGridDBColumn
Tag = 2
@ -534,7 +542,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column4: TcxGridDBColumn
Caption = #32568#21495
@ -542,7 +550,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object v1Column13: TcxGridDBColumn
Caption = #38376#24133
@ -550,7 +558,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object v1Column11: TcxGridDBColumn
Caption = #20811#37325
@ -558,7 +566,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column6: TcxGridDBColumn
Caption = #32534#21495
@ -566,7 +574,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object v1Column15: TcxGridDBColumn
Caption = #21305#25968
@ -574,7 +582,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object v2Column6: TcxGridDBColumn
Tag = 2
@ -584,7 +592,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object v1Column3: TcxGridDBColumn
Tag = 2
@ -599,7 +607,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object v1Column5: TcxGridDBColumn
Tag = 2
@ -615,7 +623,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column14: TcxGridDBColumn
Caption = #25209#21495
@ -623,7 +631,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object v1Column19: TcxGridDBColumn
Caption = #36710#38388
@ -631,7 +639,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object v1Column12: TcxGridDBColumn
Tag = 2
@ -640,7 +648,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object v1Column20: TcxGridDBColumn
Caption = #19994#21153#21592
@ -648,7 +656,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
Width = 55
end
object Tv1Column3: TcxGridDBColumn
Caption = #33394#21035
@ -656,7 +664,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
Width = 55
end
object Tv1Column5: TcxGridDBColumn
Caption = #30721#23610
@ -664,7 +672,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column32: TcxGridDBColumn
Caption = #25220#30721
@ -672,7 +680,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
Width = 55
end
object Tv1Column1: TcxGridDBColumn
Caption = #39068#33394
@ -680,7 +688,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column21: TcxGridDBColumn
Caption = #33521#25991#39068#33394
@ -688,7 +696,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column2: TcxGridDBColumn
Caption = #33394#21495
@ -696,7 +704,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column10: TcxGridDBColumn
Caption = #27454#21495
@ -704,7 +712,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column8: TcxGridDBColumn
Caption = #33457#22411
@ -712,7 +720,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column36: TcxGridDBColumn
Caption = #24211#20301
@ -720,7 +728,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column9: TcxGridDBColumn
Caption = #25104#20998
@ -728,7 +736,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column12: TcxGridDBColumn
Caption = #38468#20214
@ -737,7 +745,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column15: TcxGridDBColumn
Caption = #30331#35760#20154
@ -745,7 +753,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column16: TcxGridDBColumn
Caption = #30331#35760#26102#38388
@ -753,7 +761,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column17: TcxGridDBColumn
Caption = #20462#25913#20154
@ -761,7 +769,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column18: TcxGridDBColumn
Caption = #20462#25913#26102#38388
@ -769,7 +777,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column22: TcxGridDBColumn
Caption = #31867#22411
@ -777,7 +785,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column27: TcxGridDBColumn
Caption = #22383#24067#20379#24212#21830
@ -785,7 +793,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column25: TcxGridDBColumn
Caption = #24067#31181
@ -793,7 +801,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column24: TcxGridDBColumn
Caption = #21518#25972#29702#33521#25991
@ -801,7 +809,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column34: TcxGridDBColumn
Caption = #32467#26696#31867#22411
@ -809,7 +817,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column26: TcxGridDBColumn
Caption = #21518#25972#29702#20013#25991
@ -817,7 +825,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column23: TcxGridDBColumn
Caption = #21152#24037#21035
@ -825,7 +833,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column33: TcxGridDBColumn
Caption = #21367#21495
@ -833,7 +841,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
object Tv1Column35: TcxGridDBColumn
Caption = #38477#32423#21407#22240
@ -841,18 +849,24 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
Width = 55
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
inherited loadProcess: TPanel
Left = 801
Top = 360
ExplicitLeft = 801
ExplicitTop = 360
end
inherited cxProgressBar2: TcxProgressBar
Left = 649
Top = 344
ExplicitLeft = 649
ExplicitTop = 344
Left = 793
Top = 296
ExplicitLeft = 793
ExplicitTop = 296
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery

25
T02贸易汇总仓库/U_TradeClothTotalInList.pas
View File

@ -116,6 +116,7 @@ type
StkCoName: TcxTextEdit;
Label11: TLabel;
BCIOID: TcxTextEdit;
btn1: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -144,6 +145,7 @@ type
procedure cxButton3Click(Sender: TObject);
procedure BCIONoKeyPress(Sender: TObject; var Key: Char);
procedure IOTypePropertiesChange(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
canshu1, canshu2, canshu3: string;
procedure InitGrid();
@ -158,7 +160,7 @@ implementation
uses
U_DataLink, U_RTFun, U_LabelPrint, U_AttachmentUpload,
U_TradeClothTotalInInput;
U_TradeClothTotalInInput1, U_TradeClothTotalInInput;
{$R *.dfm}
procedure TfrmTradeClothTotalInList.setStatus();
@ -287,6 +289,25 @@ begin
InitGrid();
end;
procedure TfrmTradeClothTotalInList.btn1Click(Sender: TObject);
begin
try
frmTradeClothTotalInInput1 := TfrmTradeClothTotalInInput1.Create(Application);
with frmTradeClothTotalInInput1 do
begin
FBCId := '';
frmTradeClothTotalInInput1.canshu3 := Trim(Self.canshu3);
FSTKName := Self.FSTKName;
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmTradeClothTotalInInput1.Free;
end;
end;
procedure TfrmTradeClothTotalInList.BCIOIDPropertiesChange(Sender: TObject);
begin
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
@ -403,7 +424,7 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans;
CDS_1.Delete;
InitGrid();
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0);