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

1

Browse Source
This commit is contained in:
libingpeng 2025-11-10 17:28:36 +08:00
parent 7e6b2e19cf
commit 6a6d35cc44
2 changed files with 930 additions and 947 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1750
检验管理/U_MJManageNewFDNew.dfm
View File

File diff suppressed because it is too large Load Diff

127
检验管理/U_MJManageNewFDNew.pas
View File

@ -48,28 +48,6 @@ type
CDS_MJID: TClientDataSet; CDS_MJID: TClientDataSet;
Timer1: TTimer; Timer1: TTimer;
ADOQueryPrint: TADOQuery; ADOQueryPrint: TADOQuery;
ScrollBox1: TScrollBox;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
SpeedButton22: TSpeedButton;
SpeedButton23: TSpeedButton;
SpeedButton24: TSpeedButton;
SpeedButton25: TSpeedButton;
SpeedButton26: TSpeedButton;
SpeedButton29: TSpeedButton;
SpeedButton31: TSpeedButton;
SpeedButton32: TSpeedButton;
SpeedButton33: TSpeedButton;
SpeedButton34: TSpeedButton;
SpeedButton37: TSpeedButton;
SpeedButton38: TSpeedButton;
SpeedButton40: TSpeedButton;
SpeedButton41: TSpeedButton;
SpeedButton42: TSpeedButton;
cxStyleRepository2: TcxStyleRepository; cxStyleRepository2: TcxStyleRepository;
cxStyle3: TcxStyle; cxStyle3: TcxStyle;
cxStyleRepository3: TcxStyleRepository; cxStyleRepository3: TcxStyleRepository;
@ -80,27 +58,6 @@ type
cxStyle6: TcxStyle; cxStyle6: TcxStyle;
cxGridPopupMenu2: TcxGridPopupMenu; cxGridPopupMenu2: TcxGridPopupMenu;
ADOQueryMainDSC: TADOQuery; ADOQueryMainDSC: TADOQuery;
SpeedButton45: TSpeedButton;
SpeedButton46: TSpeedButton;
SpeedButton47: TSpeedButton;
SpeedButton50: TSpeedButton;
SpeedButton51: TSpeedButton;
SpeedButton54: TSpeedButton;
SpeedButton55: TSpeedButton;
SpeedButton56: TSpeedButton;
SpeedButton57: TSpeedButton;
SpeedButton59: TSpeedButton;
SpeedButton62: TSpeedButton;
SpeedButton63: TSpeedButton;
SpeedButton64: TSpeedButton;
SpeedButton65: TSpeedButton;
SpeedButton66: TSpeedButton;
SpeedButton70: TSpeedButton;
SpeedButton71: TSpeedButton;
SpeedButton72: TSpeedButton;
SpeedButton73: TSpeedButton;
SpeedButton74: TSpeedButton;
SpeedButton75: TSpeedButton;
Panel2: TPanel; Panel2: TPanel;
Label9: TLabel; Label9: TLabel;
MJFK: TEdit; MJFK: TEdit;
@ -179,27 +136,8 @@ type
v2Column3: TcxGridDBColumn; v2Column3: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
Panel8: TPanel; Panel8: TPanel;
AOrdDefNote1: TRichEdit;
Label34: TLabel; Label34: TLabel;
ComboBox1: TComboBox; ComboBox1: TComboBox;
SpeedButton20: TSpeedButton;
SpeedButton27: TSpeedButton;
SpeedButton28: TSpeedButton;
SpeedButton35: TSpeedButton;
SpeedButton36: TSpeedButton;
SpeedButton43: TSpeedButton;
SpeedButton52: TSpeedButton;
SpeedButton53: TSpeedButton;
SpeedButton60: TSpeedButton;
SpeedButton61: TSpeedButton;
SpeedButton68: TSpeedButton;
SpeedButton69: TSpeedButton;
SpeedButton77: TSpeedButton;
SpeedButton78: TSpeedButton;
SpeedButton79: TSpeedButton;
SpeedButton80: TSpeedButton;
SpeedButton81: TSpeedButton;
SpeedButton82: TSpeedButton;
v3Column4: TcxGridDBColumn; v3Column4: TcxGridDBColumn;
Label36: TLabel; Label36: TLabel;
MJStr4: TEdit; MJStr4: TEdit;
@ -270,6 +208,67 @@ type
MinbaoNo: TEdit; MinbaoNo: TEdit;
MaxbaoNo: TEdit; MaxbaoNo: TEdit;
Tv3Column7: TcxGridDBColumn; Tv3Column7: TcxGridDBColumn;
ScrollBox1: TScrollBox;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
SpeedButton22: TSpeedButton;
SpeedButton23: TSpeedButton;
SpeedButton24: TSpeedButton;
SpeedButton25: TSpeedButton;
SpeedButton26: TSpeedButton;
SpeedButton29: TSpeedButton;
SpeedButton31: TSpeedButton;
SpeedButton32: TSpeedButton;
SpeedButton33: TSpeedButton;
SpeedButton34: TSpeedButton;
SpeedButton37: TSpeedButton;
SpeedButton38: TSpeedButton;
SpeedButton40: TSpeedButton;
SpeedButton41: TSpeedButton;
SpeedButton42: TSpeedButton;
SpeedButton45: TSpeedButton;
SpeedButton46: TSpeedButton;
SpeedButton47: TSpeedButton;
SpeedButton50: TSpeedButton;
SpeedButton51: TSpeedButton;
SpeedButton54: TSpeedButton;
SpeedButton55: TSpeedButton;
SpeedButton56: TSpeedButton;
SpeedButton57: TSpeedButton;
SpeedButton59: TSpeedButton;
SpeedButton62: TSpeedButton;
SpeedButton63: TSpeedButton;
SpeedButton64: TSpeedButton;
SpeedButton65: TSpeedButton;
SpeedButton66: TSpeedButton;
SpeedButton70: TSpeedButton;
SpeedButton71: TSpeedButton;
SpeedButton72: TSpeedButton;
SpeedButton73: TSpeedButton;
SpeedButton74: TSpeedButton;
SpeedButton75: TSpeedButton;
SpeedButton20: TSpeedButton;
SpeedButton27: TSpeedButton;
SpeedButton28: TSpeedButton;
SpeedButton35: TSpeedButton;
SpeedButton36: TSpeedButton;
SpeedButton43: TSpeedButton;
SpeedButton52: TSpeedButton;
SpeedButton53: TSpeedButton;
SpeedButton60: TSpeedButton;
SpeedButton61: TSpeedButton;
SpeedButton68: TSpeedButton;
SpeedButton69: TSpeedButton;
SpeedButton77: TSpeedButton;
SpeedButton78: TSpeedButton;
SpeedButton79: TSpeedButton;
SpeedButton80: TSpeedButton;
SpeedButton81: TSpeedButton;
SpeedButton82: TSpeedButton;
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);
@ -2570,7 +2569,7 @@ begin
Label51.Visible := False; Label51.Visible := False;
Edit12.Text := ''; Edit12.Text := '';
end; end;
AOrdDefNote1.Text := '°ü×°ÒªÇó:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 + 'ÖÊÁ¿ÒªÇó:' + #13 + Trim(ADOTmp.fieldbyname('MPRTSCTeBieNote').AsString); //AOrdDefNote1.Text := '°ü×°ÒªÇó:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 + 'ÖÊÁ¿ÒªÇó:' + #13 + Trim(ADOTmp.fieldbyname('MPRTSCTeBieNote').AsString);
MJQty3.Text := Trim(ADOTmp.fieldbyname('SPiZhong').AsString); MJQty3.Text := Trim(ADOTmp.fieldbyname('SPiZhong').AsString);
kmxs.Text := Trim(ADOTmp.fieldbyname('kmxs').AsString); kmxs.Text := Trim(ADOTmp.fieldbyname('kmxs').AsString);
MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString); MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString);
@ -2605,7 +2604,7 @@ begin
FAPID := ''; FAPID := '';
FMainId := ''; FMainId := '';
FSubId := ''; FSubId := '';
AOrdDefNote1.Text := ''; // AOrdDefNote1.Text := '';
MJStr4.Text := ''; MJStr4.Text := '';
fRollType := ''; fRollType := '';
Exit; Exit;