1

2025-12-08 13:52:19 +08:00 · 2025-12-08 13:52:19 +08:00 · 9c42f3339b
commit 9c42f3339b
parent 82e629aecd
8 changed files with 323 additions and 26 deletions
--- a/打卷检验管理/ProjectGroup1.bpg
+++ b/打卷检验管理/ProjectGroup1.bpg
@ -9,15 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
 DCC = $(ROOT)\bin\dcc32.exe $**
 BRCC = $(ROOT)\bin\brcc32.exe $**
 #------------------------------------------------------------------------------
-PROJECTS = testDll.exe ProductPrice.dll
+PROJECTS = TradeManage.dll testDll.exe
 #------------------------------------------------------------------------------
 default: $(PROJECTS)
 #------------------------------------------------------------------------------

+TradeManage.dll: TradeManage.dpr
+  $(DCC)
+
 testDll.exe: testDll.dpr
  $(DCC)

-ProductPrice.dll: ProductPrice.dpr
-  $(DCC)
-

--- a/打卷检验管理/ProjectGroup1.~bpg
+++ b/打卷检验管理/ProjectGroup1.~bpg
@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = testDll.exe ProductPrice.dll
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+testDll.exe: testDll.dpr
+  $(DCC)
+
+ProductPrice.dll: ProductPrice.dpr
+  $(DCC)
+
+
--- a/打卷检验管理/TradeManage.dof
+++ b/打卷检验管理/TradeManage.dof
@ -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;
--- a/打卷检验管理/U_DataLink.pas
+++ b/打卷检验管理/U_DataLink.pas
@ -4,7 +4,21 @@ interface

 uses
  SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
-  Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs;
+  Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs,
+  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;
 type
  TMyThread = class(TThread)
  protected
--- a/打卷检验管理/U_JYOrderCDOne.dfm
+++ b/打卷检验管理/U_JYOrderCDOne.dfm
@ -1262,8 +1262,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
    end
  end
  object Panel2: TPanel
-    Left = 496
-    Top = 336
+    Left = 416
+    Top = 224
    Width = 273
    Height = 101
    Color = clSkyBlue
@ -1323,8 +1323,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
    end
  end
  object Panel3: TPanel
-    Left = 503
-    Top = 203
+    Left = 7
+    Top = 467
    Width = 231
    Height = 216
    TabOrder = 6
@ -1614,8 +1614,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
    end
  end
  object Panel9: TPanel
-    Left = 804
-    Top = 244
+    Left = 844
+    Top = 300
    Width = 225
    Height = 117
    Color = clSkyBlue
@ -1657,8 +1657,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
    end
  end
  object Panel_SMCK: TPanel
-    Left = 412
-    Top = 180
+    Left = 1052
+    Top = 500
    Width = 317
    Height = 97
    Color = clSkyBlue
@ -1702,8 +1702,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
    end
  end
  object Panel11: TPanel
-    Left = 908
-    Top = 384
+    Left = 1108
+    Top = 416
    Width = 225
    Height = 117
    Color = clSkyBlue
@ -1753,8 +1753,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
    end
  end
  object Panel12: TPanel
-    Left = 612
-    Top = 444
+    Left = 1100
+    Top = 300
    Width = 225
    Height = 117
    Color = clSkyBlue
@ -2087,6 +2087,197 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
    ClientRectRight = 0
    ClientRectTop = 0
  end
+  object Panel16: TPanel
+    Left = 617
+    Top = 443
+    Width = 231
+    Height = 170
+    TabOrder = 16
+    Visible = False
+    object Label43: TLabel
+      Left = 32
+      Top = 80
+      Width = 40
+      Height = 20
+      Caption = #36215#22987
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -20
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label44: TLabel
+      Left = 32
+      Top = 112
+      Width = 40
+      Height = 20
+      Caption = #32467#26463
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -20
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label45: TLabel
+      Left = 33
+      Top = 53
+      Width = 40
+      Height = 20
+      Caption = #39068#33394
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -20
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      Visible = False
+    end
+    object Label46: TLabel
+      Left = 88
+      Top = 53
+      Width = 30
+      Height = 20
+      Caption = '111'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -20
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      Visible = False
+    end
+    object Label47: TLabel
+      Left = 17
+      Top = 26
+      Width = 60
+      Height = 20
+      Caption = #35746#21333#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -20
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label48: TLabel
+      Left = 88
+      Top = 26
+      Width = 30
+      Height = 20
+      Caption = '111'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -20
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Panel17: TPanel
+      Left = 1
+      Top = 1
+      Width = 229
+      Height = 23
+      Align = alTop
+      Alignment = taLeftJustify
+      BevelOuter = bvNone
+      Caption = #31859#25968#33539#22260
+      Color = clSkyBlue
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -19
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 0
+      object Image5: TImage
+        Left = 206
+        Top = 0
+        Width = 22
+        Height = 17
+        ParentShowHint = False
+        Picture.Data = {
+          07544269746D617076040000424D760400000000000036000000280000001500
+          0000110000000100180000000000400400000000000000000000000000000000
+          0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
+          F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
+          404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
+          808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
+          000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00}
+        ShowHint = True
+        Transparent = True
+        OnClick = Image3Click
+      end
+    end
+    object Button16: TButton
+      Left = 75
+      Top = 140
+      Width = 75
+      Height = 25
+      Caption = #30830#23450
+      TabOrder = 3
+      OnClick = Button16Click
+    end
+    object Edit9: TEdit
+      Left = 88
+      Top = 80
+      Width = 65
+      Height = 28
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -20
+      Font.Name = #23435#20307
+      Font.Style = []
+      ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      ParentFont = False
+      TabOrder = 1
+    end
+    object Edit10: TEdit
+      Left = 88
+      Top = 111
+      Width = 65
+      Height = 28
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -20
+      Font.Name = #23435#20307
+      Font.Style = []
+      ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      ParentFont = False
+      TabOrder = 2
+    end
+  end
  object cxGridPopupMenu1: TcxGridPopupMenu
    Grid = cxGrid1
    PopupMenus = <>
@ -2143,6 +2334,10 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      Caption = #36873#25321#26495#21495
      OnClick = N4Click
    end
+    object N5: TMenuItem
+      Caption = #31859#25968#33539#22260
+      OnClick = N5Click
+    end
  end
  object RM2: TRMGridReport
    ThreadPrepareReport = True
--- a/打卷检验管理/U_JYOrderCDOne.pas
+++ b/打卷检验管理/U_JYOrderCDOne.pas
@ -11,7 +11,21 @@ uses
  cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
  RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
-  cxCurrencyEdit, MMSystem, dxBarBuiltInMenu, cxPC;
+  cxCurrencyEdit, MMSystem, dxBarBuiltInMenu, cxPC, 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;

 type
  TfrmJYOrderCDOne = class(TForm)
@ -225,6 +239,19 @@ type
    N4: TMenuItem;
    Tv1Column3: TcxGridDBColumn;
    cxTabControl1: TcxTabControl;
+    N5: TMenuItem;
+    Panel16: TPanel;
+    Label43: TLabel;
+    Label44: TLabel;
+    Label45: TLabel;
+    Label46: TLabel;
+    Label47: TLabel;
+    Label48: TLabel;
+    Panel17: TPanel;
+    Image5: TImage;
+    Button16: TButton;
+    Edit9: TEdit;
+    Edit10: TEdit;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
@ -291,6 +318,8 @@ type
    procedure N4Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure cxTabControl1Change(Sender: TObject);
+    procedure N5Click(Sender: TObject);
+    procedure Button16Click(Sender: TObject);
 //    procedure Edit5Click(Sender: TObject);
 //    procedure CheckBox3Click(Sender: TObject);
  private
@ -418,7 +447,7 @@ begin
        sql.Add('and  A.FillTime<''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' ');
        sql.add('and CKFlag=''Î´³ö¿â'' ');
      end;
-      if cxTabControl1.TabIndex = 1 then                   
+      if cxTabControl1.TabIndex = 1 then
      begin
        sql.Add('where A.CKTime>=''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ''' ');
        sql.Add('and  A.CKTime<''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' ');
@ -2395,5 +2424,44 @@ begin
  InitGrid();
 end;

+procedure TfrmJYOrderCDOne.N5Click(Sender: TObject);
+begin
+  Panel16.Visible := true;
+  Label46.Caption := trim(Order_Main.Fieldbyname('prtcolor').AsString);
+  Label48.Caption := trim(Order_Main.Fieldbyname('orderno').AsString);
+//  showmessage(Order_Main.Fieldbyname('orderno').AsString);
+  FbanID := trim(Order_Main.Fieldbyname('banid').AsString);
+end;
+
+procedure TfrmJYOrderCDOne.Button16Click(Sender: TObject);
+begin
+  Tv1.DataController.Filter.AutoDataSetFilter := True;
+  with Order_Main do
+  begin
+    DisableControls;
+    First;
+    while not Eof do
+    begin
+      if fieldbyname('orderno').Asstring = Label48.Caption then
+      begin
+        if (fieldbyname('MJLen').asfloat >= strtofloat(edit9.Text)) and (fieldbyname('MJLen').asfloat <= strtofloat(Edit10.Text)) then
+        begin
+          Edit;
+          FieldByName('Ssel').Value := True;
+          Post;
+        end;
+      end;
+      next;
+    end;
+    EnableControls;
+  end;
+  Panel16.Visible := false;
+  Label48.Caption := '';
+  Label46.Caption := '';
+  edit9.Text := '';
+  Edit10.text := '';
+  InitSum();
+end;
+
 end.
-                                   
+
--- a/打卷检验管理/testDll.cfg
+++ b/打卷检验管理/testDll.cfg
@ -31,8 +31,8 @@
 -M
 -$M16384,1048576
 -K$00400000
-LE"c:\program files\borland\delphi7\Projects\Bpl"
-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST
--- a/打卷检验管理/testDll.dof
+++ b/打卷检验管理/testDll.dof
@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\路展贸易管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7DJxinlong\打卷检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=