Group_DJD/D7DJlifei
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-29 10:13:35 +08:00
parent 3800774877
commit 402fc58484
1 changed files with 20 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -13,18 +13,17 @@ uses
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI,
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)
@ -456,7 +455,7 @@ procedure TfrmMJManageNewFDNewSF.On1301(var Message: Tmessage);
var
i1, i2: integer;
unitname: string;
fdata: double;
fdata: double;
begin
i1 := Message.WParam;
i2 := Message.LParam;
@ -465,7 +464,7 @@ begin
if (trim(Edit7.Text) = '¡Ì') then
begin
ShowMessage('1301');
MJLen.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
if i2 = 0 then
Label9.Caption := 'M'
@ -531,14 +530,11 @@ type
TMyFunc = function(fhandle: hwnd; sCommName: PAnsiChar; IntTime: integer; IsMessage: integer): HWND; stdcall;
var
Tf: TMyFunc;
Tp: TFarProc;
Tp: TFarProc;
Th: Thandle;
begin
begin
// closeCom(FComFile);
ShowMessage('1301');
Th := LoadLibrary(Pchar(trim(DllName)));
if Th > 0 then
begin
@ -562,7 +558,7 @@ var
finally
// FreeLibrary(Th);
end;
ShowMessage('Ò»´ò¿ª1301');
end
else
begin
@ -652,10 +648,7 @@ begin
if trim(DllName) <> '' then
OpenCom(DllName);
if trim(JCYDLL) <> '' then
begin
ShowMessage('1301');
OpenCom(JCYDLL);
end;
Edit7.Visible := true;
Label35.Visible := true;
@ -675,7 +668,7 @@ begin
sql.Clear;
sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO ');
// showmessage(sql.text);
Open;
Open;
end;
if ADOTmp.IsEmpty then
begin
@ -1374,7 +1367,7 @@ begin
with ADOCmd do
begin
Close;
SQL.Clear;
SQL.Clear;
sql.Add('select Top 1 MJXH,MJID from WFB_MJJY A where A.Subid=''' + Trim(FSubid) + ''' order by MJXH Desc');
Open;
end;
@ -1896,7 +1889,7 @@ begin
RM2.PrintReport;
end;
if MggCDFalg = '99' then
if MggCDFalg = '99' then
begin
with ADOCmd do
begin
@ -2743,7 +2736,7 @@ begin
MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString);
MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString);
baono.Text := Trim(ADOTmp.fieldbyname('baono').AsString);
baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString);
baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString);
if Trim(ADOTmp.fieldbyname('MJType').AsString) = 'ÕýÆ·' then
begin
Edit3.Text := '¡Ì';