Group_DJD/D7DJailisi
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-12-13 16:25:42 +08:00
parent 6a6d35cc44
commit 340b596ad4
2 changed files with 17 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,8 +1,8 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = -33
Top = 113
Width = 1522
Height = 723
Left = 314
Top = 229
Width = 1227
Height = 700
Caption = #25104#21697#26816#39564
Color = clBtnFace
Font.Charset = GB2312_CHARSET
@ -22,7 +22,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0
Top = 87
Width = 545
Height = 605
Height = 574
Align = alLeft
TabOrder = 0
object Tv3: TcxGridDBTableView
@ -198,7 +198,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 545
Top = 87
Width = 205
Height = 605
Height = 574
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
@ -1215,7 +1215,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 750
Top = 87
Width = 355
Height = 605
Height = 574
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
@ -1349,7 +1349,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2
Top = 277
Width = 351
Height = 326
Height = 295
Align = alClient
Color = clWhite
ParentColor = False
@ -2395,7 +2395,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1514
Width = 1211
Height = 30
AutoSize = True
ButtonHeight = 30
@ -2624,7 +2624,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel6: TPanel
Left = 0
Top = 30
Width = 1514
Width = 1211
Height = 57
Align = alTop
BevelInner = bvRaised

20
检验管理/U_MJManageNewFDNew.pas
View File

@ -329,10 +329,7 @@ type
procedure baoNoExit(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Edit13Click(Sender: TObject);
procedure Tv3CustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
procedure Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
// procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
@ -1094,6 +1091,7 @@ begin
if trim(fbaotype) = 'ÊÖ¶¯´ò°ü' then
begin
FieldByName('DBType').Value := 'ÊÖ¶¯´ò°ü';
FieldByName('baoNO').Value := Trim(baono.text);
FieldByName('baoID').Value := Trim(baoID.Text);
end;
@ -1597,13 +1595,13 @@ begin
begin
end
else
else
begin
with ADOCmd do
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_Update_Bao ''' + trim(FMJID) + ''' ');
sql.Add('exec P_Update_Bao_copy1 ''' + trim(FMJID) + ''' ');
if fbaotype = 'µ¥¾íµ¥°ü' then
begin
sql.Add(',1 ');
@ -3138,11 +3136,7 @@ end;
//
//end;
procedure TfrmMJManageNewFDNewSF.Tv3CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure TfrmMJManageNewFDNewSF.Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
Column7Value: string;
Column7Index: Integer;
@ -3163,7 +3157,7 @@ begin
Break;
end;
end;
if Column7Index <> -1 then
begin
Column7Value := VarToStr(AViewInfo.GridRecord.Values[Column7Index]);