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

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-05 17:08:26 +08:00
parent a7eba97372
commit 55badb4118
2 changed files with 35 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
检验管理/U_MJManageNewFDNew.dfm
View File

@ -2521,7 +2521,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Width = 1243 Width = 1243
Height = 30 Height = 30
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 107
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
EdgeInner = esNone EdgeInner = esNone
@ -2570,9 +2570,16 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object ToolButton4: TToolButton
Left = 276 Left = 276
Top = 0 Top = 0
Caption = #37325#22797#37325#26032#21462#21495
ImageIndex = 51
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 383
Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55

36
检验管理/U_MJManageNewFDNew.pas
View File

@ -13,18 +13,17 @@ uses
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, BtnEdit, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, BtnEdit,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue, dxSkinscxPCPainter;
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmMJManageNewFDNewSF = class(TForm) TfrmMJManageNewFDNewSF = class(TForm)
@ -274,6 +273,7 @@ type
Tv3Column1: TcxGridDBColumn; Tv3Column1: TcxGridDBColumn;
Label43: TLabel; Label43: TLabel;
Note: TBtnEditC; Note: TBtnEditC;
ToolButton4: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -336,6 +336,7 @@ type
procedure Edit10Click(Sender: TObject); procedure Edit10Click(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 NoteBtnUpClick(Sender: TObject); procedure NoteBtnUpClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer; FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
@ -2675,5 +2676,16 @@ begin
end; end;
end; end;
procedure TfrmMJManageNewFDNewSF.ToolButton4Click(Sender: TObject);
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add(' update SY_MaxBH set BHNo=BHNo+5 where BHType=''WFB_MJJY_CD'' and BHStr=''MC'' ');
Execsql;
end;
end;
end. end.