LZC/D10gmBitao
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

111

Browse Source
This commit is contained in:
“username” 2025-04-19 15:55:10 +08:00
parent 802fa5545e
commit 912a9ff6ef
3 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
B02基础纱线仓库/U_YarnOutEdit.dfm
View File

@ -10,7 +10,6 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -8
ExplicitWidth = 1422 ExplicitWidth = 1422
ExplicitHeight = 793 ExplicitHeight = 793
PixelsPerInch = 96 PixelsPerInch = 96
@ -406,7 +405,6 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ExplicitLeft = -1
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick OnDblClick = TV2DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>

2
B02基础纱线仓库/U_YarnStkHZSel.dfm
View File

@ -162,8 +162,8 @@ inherited frmYarnStkHZSel: TfrmYarnStkHZSel
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitLeft = -1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1

15
B02基础纱线仓库/U_YarnStkHZSel.pas
View File

@ -69,6 +69,7 @@ type
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
@ -108,9 +109,12 @@ begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select A.* '); sql.Add(' select FromCoNo,FromCoName,StkCoNo,StkCoName,Brand,Y_Name,stkqty=sum(ioqtyflag*qty),Price,QtyUnit,StkPosition');
sql.Add(' from BS_Yarn_IO A where A.IOFlag=''Èë¿â'' and isnull(STkQty,0)>0 '); sql.Add(' from BS_Yarn_IO A where');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); sql.Add(' isnull(stkName,'''')=''' + Trim(FstkName) + '''');
sql.Add('GROUP BY FromCoNo,FromCoName,StkCoNo,StkCoName,Brand,Y_Name,Price,QtyUnit,StkPosition');
SQL.Add('HAVING sum(ioqtyflag*qty)>0');
sql.Add('order by StkCoName,Brand,Y_Name');
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_Main); SCreateCDS(ADOQueryMain, CDS_Main);
@ -203,5 +207,10 @@ begin
ModalResult := 1; ModalResult := 1;
end; end;
procedure TfrmYarnStkHZSel.Tv1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
end. end.