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