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

供应商品名

Browse Source
This commit is contained in:
LZC 2025-02-26 09:31:39 +08:00
parent caa5bfe6aa
commit b22a6b268e
2 changed files with 124 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
T02贸易汇总仓库/U_ItemizedListInPut.dfm
View File

@ -125,6 +125,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Align = alClient
PopupMenu = PopupMenu2
TabOrder = 0
ExplicitTop = 2
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
OnMouseDown = Tv1MouseDown
@ -223,6 +224,22 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
HeaderAlignmentHorz = taCenter
Width = 145
end
object Tv1Column6: TcxGridDBColumn
Caption = #26579#21378#21697#21517
DataBinding.FieldName = 'C_GYSNAME'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxLookupComboBoxProperties'
Properties.KeyFieldNames = 'C_GYSNAME'
Properties.ListColumns = <
item
Caption = #26579#21378#21697#21517
FieldName = 'C_GYSNAME'
end>
Properties.ListSource = DS_RCPM
Properties.OnEditValueChanged = Tv1Column6PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 98
end
object Tv1Column5: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
@ -373,7 +390,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
end
object OopCoName: TcxButtonEdit
Left = 114
Top = 45
Top = 46
Properties.Buttons = <
item
Default = True
@ -570,4 +587,16 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Left = 755
Top = 340
end
object DS_RCPM: TDataSource
DataSet = ADO_RCPM
Left = 744
Top = 427
end
object ADO_RCPM: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 722
Top = 270
end
end

94
T02贸易汇总仓库/U_ItemizedListInPut.pas
View File

@ -80,6 +80,9 @@ type
ADO_YS: TADOQuery;
DS_YS: TDataSource;
ToolButton5: TToolButton;
Tv1Column6: TcxGridDBColumn;
DS_RCPM: TDataSource;
ADO_RCPM: TADOQuery;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -106,6 +109,7 @@ type
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Tv1Column5PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject);
private
FSCXDH: string;
FShowKeyid: integer;
@ -361,6 +365,14 @@ begin
Open;
end;
with ADO_RCPM do
begin
Close;
sql.Clear;
sql.Add(' SELECT C_GYSNAME FROM BS_Cloth_Info_GYSCP');
Open;
end;
FShowKeyid := GlobalAddAtom('mykey_show');
// RegisterHotKey(handle, FShowKeyid, 0, VK_LEFT); //×ó
@ -1017,6 +1029,26 @@ begin
finally
frmClothInfoSel.Free;
end;
with ADOTemp do
begin
close;
sql.Clear;
sql.Add(' select * from bs_cloth_info a inner join BS_Cloth_Info_GYSCP b on a.bciid=b.bciid ');
sql.Add('where c_code=' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
sql.Add('and factoryname=' + QuotedStr(OopCoName.Text));
open;
end;
if ADOTemp.IsEmpty = false then
begin
with Self.CDS_1 do
begin
edit;
Fieldbyname('C_Name').AsString := trim(ADOTemp.Fieldbyname('C_GYSNAME').AsString);
Post;
end;
end;
end;
@ -1039,6 +1071,47 @@ begin
end;
end;
procedure TfrmItemizedListInPut.Tv1Column6PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
mvalue := TcxTextEdit(Sender).EditingText;
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
ADO_rcPM.Locate('C_gysName', mvalue, []);
Edit;
Post;
end;
with ADOTemp do
begin
close;
sql.Clear;
sql.Add(' select * from bs_cloth_info a inner join BS_Cloth_Info_GYSCP b on a.bciid=b.bciid ');
sql.Add('where C_gysName=' + QuotedStr(CDS_1.FieldByName('C_gysName').AsString));
sql.Add('and factoryname=' + QuotedStr(OopCoName.Text));
open;
end;
if ADOTemp.IsEmpty = false then
begin
with Self.CDS_1 do
begin
edit;
Fieldbyname('C_Name').AsString := trim(ADOTemp.Fieldbyname('C_Name').AsString);
Post;
end;
end;
end;
procedure TfrmItemizedListInPut.Tv1Column7PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
@ -1059,6 +1132,27 @@ begin
Post;
end;
with ADOTemp do
begin
close;
sql.Clear;
sql.Add(' select * from bs_cloth_info a inner join BS_Cloth_Info_GYSCP b on a.bciid=b.bciid ');
sql.Add('where c_name=' + QuotedStr(CDS_1.FieldByName('C_name').AsString));
sql.Add('and factoryname=' + QuotedStr(OopCoName.Text));
open;
end;
if ADOTemp.IsEmpty = false then
begin
with Self.CDS_1 do
begin
edit;
Fieldbyname('C_GYSNAME').AsString := trim(ADOTemp.Fieldbyname('C_GYSNAME').AsString);
Post;
end;
end;
end;
procedure TfrmItemizedListInPut.Tv1DblClick(Sender: TObject);