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

20
检验管理/U_MJManageNewFDNew.pas
View File

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