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-16 10:09:14 +08:00
parent cebba7d3b2
commit f46fb83cdf
5 changed files with 58 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
D01针织生产计划/U_DataLink.dfm
View File

@ -1,4 +1,5 @@
inherited DataLink_KnitPlan: TDataLink_KnitPlan
OldCreateOrder = True
OnDestroy = DataModuleDestroy
Height = 349
Width = 482

1
D01针织生产计划/U_KnitPlanList.dfm
View File

@ -408,6 +408,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
OnCustomDrawCell = Tv1CustomDrawCell
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1

10
D01针织生产计划/U_KnitPlanList.pas
View File

@ -197,6 +197,9 @@ type
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
private
FInt, PFInt: Integer;
procedure InitGrid();
@ -1089,6 +1092,13 @@ begin
end;
procedure TfrmKnitPlanList.Tv1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
TBView.Click;
end;
procedure TfrmKnitPlanList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if cxTabControl1.TabIndex = 1 then

19
D01针织生产计划/U_TradeInspSet.dfm
View File

@ -465,7 +465,6 @@ inherited frmTradeInspSet: TfrmTradeInspSet
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
ExplicitTop = 40
end
object ToolBar2: TToolBar
Tag = 1
@ -492,16 +491,24 @@ inherited frmTradeInspSet: TfrmTradeInspSet
ImageIndex = 2
OnClick = TaddClick
end
object Tupd: TToolButton
object btn1: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #22797#21046
ImageIndex = 9
OnClick = btn1Click
end
object Tupd: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = TupdClick
end
object ToolButton4: TToolButton
Left = 142
Left = 213
Top = 0
AutoSize = True
Caption = #35774#35745#26631#31614
@ -509,7 +516,7 @@ inherited frmTradeInspSet: TfrmTradeInspSet
OnClick = ToolButton4Click
end
object Tdel: TToolButton
Left = 237
Left = 308
Top = 0
AutoSize = True
Caption = #21024#38500
@ -517,7 +524,7 @@ inherited frmTradeInspSet: TfrmTradeInspSet
OnClick = TdelClick
end
object ToolButton2: TToolButton
Left = 308
Left = 379
Top = 0
AutoSize = True
Caption = #35774#20026#21253#26631#31614
@ -525,7 +532,7 @@ inherited frmTradeInspSet: TfrmTradeInspSet
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 415
Left = 486
Top = 0
AutoSize = True
Caption = #35774#20026#21367#26631#31614

33
D01针织生产计划/U_TradeInspSet.pas
View File

@ -86,6 +86,7 @@ type
RuleLenUnit: TComboBox;
Label8: TLabel;
RuleLaterTare: TEdit;
btn1: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -101,6 +102,7 @@ type
procedure ToolButton4Click(Sender: TObject);
procedure LabelTypeChange(Sender: TObject);
procedure TVLabelCellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
@ -235,6 +237,37 @@ begin
frmTradeInspSet := nil;
end;
procedure TfrmTradeInspSet.btn1Click(Sender: TObject);
var
MFromLabelId: string;
begin
MFromLabelId := trim(CDS_Label.fieldbyname('LabelId').asstring);
try
frmLabelInput := TfrmLabelInput.create(self);
with frmLabelInput do
begin
if showModal = 1 then
begin
FLabelId := frmLabelInput.LabelCaption.Text;
with ADOQueryCmd do
begin
close;
sql.clear;
sql.Add(' exec P_BS_Label_Copy');
sql.Add(' @FromLabelId=' + quotedstr(trim(MFromLabelId)));
sql.Add(',@ToLabelId=' + quotedstr(trim(FLabelId)));
// ShowMessage(sql.text);
execSql;
end;
InitLabel();
end;
end;
finally
frmLabelInput.Free;
end;
end;
procedure TfrmTradeInspSet.cxPageControl1Change(Sender: TObject);
begin
case cxPageControl1.ActivePageIndex of