Group_DJD/D7DJlongsheng
7
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-27 17:25:18 +08:00
parent 4e3b223132
commit 4b54cc914f
4 changed files with 103 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
打卷检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\陈亿项目代码\项目代码\隆生\打卷检验管理\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7DJlongsheng\打卷检验管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=
@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
Comments=
[Excluded Packages]
c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

50
打卷检验管理/TradeManage.skincfg Normal file
View File

@ -0,0 +1,50 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=0
dxSkinBlack=1
dxSkinBlue=1
dxSkinBlueprint=1
dxSkinCaramel=1
dxSkinCoffee=1
dxSkinDarkRoom=1
dxSkinDarkSide=1
dxSkinDevExpressDarkStyle=1
dxSkinDevExpressStyle=1
dxSkinFoggy=1
dxSkinGlassOceans=1
dxSkinHighContrast=1
dxSkiniMaginary=1
dxSkinLilian=1
dxSkinLiquidSky=1
dxSkinLondonLiquidSky=1
dxSkinMcSkin=1
dxSkinMetropolis=1
dxSkinMetropolisDark=1
dxSkinMoneyTwins=1
dxSkinOffice2007Black=1
dxSkinOffice2007Blue=1
dxSkinOffice2007Green=1
dxSkinOffice2007Pink=1
dxSkinOffice2007Silver=1
dxSkinOffice2010Black=1
dxSkinOffice2010Blue=1
dxSkinOffice2010Silver=1
dxSkinOffice2013DarkGray=1
dxSkinOffice2013LightGray=1
dxSkinOffice2013White=1
dxSkinPumpkin=1
dxSkinSeven=1
dxSkinSevenClassic=1
dxSkinSharp=1
dxSkinSharpPlus=1
dxSkinSilver=1
dxSkinSpringTime=1
dxSkinStardust=1
dxSkinSummer2008=1
dxSkinTheAsphaltWorld=1
dxSkinsDefaultPainters=1
dxSkinValentine=1
dxSkinVS2010=1
dxSkinWhiteprint=1
dxSkinXmas2008Blue=1

24
打卷检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 322
Top = 165
Left = 369
Top = 220
Width = 1366
Height = 754
Caption = #25104#21697#26816#39564
@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0
Top = 87
Width = 214
Height = 628
Height = 636
Align = alLeft
TabOrder = 0
object Tv3: TcxGridDBTableView
@ -125,8 +125,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ScrollBox1: TScrollBox
Left = 633
Top = 87
Width = 717
Height = 628
Width = 725
Height = 636
Align = alClient
Color = clWhite
ParentColor = False
@ -977,7 +977,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 428
Top = 87
Width = 205
Height = 628
Height = 636
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
@ -1929,7 +1929,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 214
Top = 87
Width = 214
Height = 628
Height = 636
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
@ -1938,7 +1938,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2
Top = 2
Width = 210
Height = 303
Height = 311
Align = alClient
TabOrder = 0
object Tv2: TcxGridDBTableView
@ -2046,7 +2046,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end
object Panel8: TPanel
Left = 2
Top = 305
Top = 313
Width = 210
Height = 28
Align = alBottom
@ -2061,7 +2061,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end
object AOrdDefNote1: TRichEdit
Left = 2
Top = 333
Top = 341
Width = 210
Height = 293
Align = alBottom
@ -2274,7 +2274,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1350
Width = 1358
Height = 30
AutoSize = True
ButtonHeight = 30
@ -2462,7 +2462,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel6: TPanel
Left = 0
Top = 30
Width = 1350
Width = 1358
Height = 57
Align = alTop
BevelInner = bvRaised

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

@ -346,6 +346,7 @@ type
procedure On1201(var Message: Tmessage); message 1201;
procedure On1301(var Message: Tmessage); message 1301;
function JsXj(str1: string): string;
procedure clearCom(DllName: string);
public
fmanage: string;
{ Public declarations }
@ -354,7 +355,7 @@ type
var
frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF;
newh, newh1: hwnd;
newh, newh1, newh2: hwnd;
implementation
@ -363,6 +364,38 @@ uses
U_SysLogOrder;
{$R *.dfm}
procedure TfrmMJManageNewFDNewSF.clearCom(DllName: string);
type
TMyFunc = function(sCommName: PAnsiChar): HWND; stdcall;
var
Tf1: TMyFunc;
Tp1: TFarProc;
Th1: Thandle;
begin
Th1 := LoadLibrary(Pchar(trim(DllName)));
if Th1 > 0 then
begin
try
Tp1 := GetProcAddress(Th1, 'CommClear');
if Tp1 <> nil then
begin
Tf1 := TMyFunc(Tp1);
newh2 := Tf1('Comm1');
end
else
begin
end;
finally
// FreeLibrary(Th1);
end;
end
else
begin
application.MessageBox(Pchar('ÕÒ²»µ½ ' + trim(DllName) + ' Îļþ£¡'), 'Ìáʾ');
end;
end;
procedure TfrmMJManageNewFDNewSF.PrtBaoData(FBaoid: string);
var
fPrintFile: string;
@ -476,7 +509,7 @@ begin
if Label9.Caption = 'Y' then
begin
MJLen.Text := format('%.' + trim(fxsws) + 'f', [(i1 / 0.9144) / 100000]);
// if i2 = 0 then
// if i2 = 0 then
// Label9.Caption := 'M'
// else
// Label9.Caption := 'Y';
@ -1778,6 +1811,11 @@ begin
end;
if Trim(Edit7.Text) = '¡Ì' then
begin
if trim(JCYDLL) <> '' then
clearCom(JCYDLL);
end;
Label16.Caption := '';
BTAdd.Click;
MJLen.SetFocus;