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

40
检验管理/U_MJManageNewFDNew.pas
View File

@ -1,6 +1,6 @@
unit U_MJManageNewFDNew;
interface
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
@ -13,18 +13,17 @@ uses
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, BtnEdit,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, dxSkinscxPCPainter;
type
TfrmMJManageNewFDNewSF = class(TForm)
@ -274,6 +273,7 @@ type
Tv3Column1: TcxGridDBColumn;
Label43: TLabel;
Note: TBtnEditC;
ToolButton4: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -336,6 +336,7 @@ type
procedure Edit10Click(Sender: TObject);
procedure Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure NoteBtnUpClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
private
{ Private declarations }
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
@ -2624,7 +2625,7 @@ begin
RM2.LoadFromFile(fPrintFile);
RM2.DefaultCopies := 1;
//RM2.ShowReport;
RM2.printReport;
RM2.printReport;
end;
end;
@ -2675,5 +2676,16 @@ begin
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.