调整页面大小

检验管理/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)
-
 

检验管理/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 = TradeManage.dll testDll.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+TradeManage.dll: ..\..\D7DJwenyuan\打卷检验管理\TradeManage.dpr
+  $(DCC)
+
+testDll.exe: ..\..\D7DJwenyuan\打卷检验管理\testDll.dpr
+  $(DCC)
+
+

检验管理/TradeManage.skincfg

@@ -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

检验管理/U_MJManageNewFDNew.dfm

@@ -1805,8 +1805,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
   end
   object MovePanel1: TMovePanel
-    Left = 1069
-    Top = 99
+    Left = 797
+    Top = 91
     Width = 351
     Height = 238
     BevelInner = bvLowered
@@ -2207,23 +2207,21 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
   end
   object Panel3: TPanel
-    Left = 1170
-    Top = 356
-    Width = 351
-    Height = 313
+    Left = 754
+    Top = 380
+    Width = 303
+    Height = 293
     BevelInner = bvRaised
     BevelOuter = bvLowered
     Color = clSkyBlue
     DragKind = dkDock
-    DragMode = dmAutomatic
     TabOrder = 5
     Visible = False
-    OnMouseDown = Panel3MouseDown
     object SpeedButton1: TSpeedButton
       Left = 5
-      Top = 236
-      Width = 152
-      Height = 72
+      Top = 225
+      Width = 140
+      Height = 65
       Caption = '0'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -2235,9 +2233,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object SpeedButton2: TSpeedButton
       Left = 5
-      Top = 161
-      Width = 70
-      Height = 70
+      Top = 152
+      Width = 65
+      Height = 65
       Caption = '1'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -2248,10 +2246,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnClick = SpeedButton1Click
     end
     object SpeedButton3: TSpeedButton
-      Left = 88
-      Top = 161
-      Width = 70
-      Height = 70
+      Left = 79
+      Top = 152
+      Width = 65
+      Height = 65
       Caption = '2'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -2262,10 +2260,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnClick = SpeedButton1Click
     end
     object SpeedButton4: TSpeedButton
-      Left = 171
-      Top = 161
-      Width = 70
-      Height = 70
+      Left = 154
+      Top = 152
+      Width = 65
+      Height = 65
       Caption = '3'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -2277,9 +2275,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object SpeedButton5: TSpeedButton
       Left = 5
-      Top = 82
-      Width = 70
-      Height = 70
+      Top = 79
+      Width = 65
+      Height = 65
       Caption = '4'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -2290,10 +2288,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnClick = SpeedButton1Click
     end
     object SpeedButton6: TSpeedButton
-      Left = 88
-      Top = 82
-      Width = 70
-      Height = 70
+      Left = 79
+      Top = 79
+      Width = 65
+      Height = 65
       Caption = '5'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -2304,10 +2302,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnClick = SpeedButton1Click
     end
     object SpeedButton7: TSpeedButton
-      Left = 171
-      Top = 82
-      Width = 70
-      Height = 70
+      Left = 154
+      Top = 79
+      Width = 65
+      Height = 65
       Caption = '6'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -2320,8 +2318,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     object SpeedButton8: TSpeedButton
       Left = 5
       Top = 6
-      Width = 70
-      Height = 70
+      Width = 65
+      Height = 65
       Caption = '7'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -2332,10 +2330,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnClick = SpeedButton1Click
     end
     object SpeedButton9: TSpeedButton
-      Left = 88
+      Left = 79
       Top = 6
-      Width = 70
-      Height = 70
+      Width = 65
+      Height = 65
       Caption = '8'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -2346,10 +2344,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnClick = SpeedButton1Click
     end
     object SpeedButton10: TSpeedButton
-      Left = 171
+      Left = 154
       Top = 6
-      Width = 70
-      Height = 70
+      Width = 65
+      Height = 65
       Caption = '9'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -2361,10 +2359,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object SpeedButton11: TSpeedButton
       Tag = 9
-      Left = 171
-      Top = 236
-      Width = 70
-      Height = 70
+      Left = 155
+      Top = 225
+      Width = 65
+      Height = 65
       Caption = '.'
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -2375,10 +2373,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnClick = SpeedButton1Click
     end
     object SpeedButton12: TSpeedButton
-      Left = 262
+      Left = 228
       Top = 6
-      Width = 70
-      Height = 70
+      Width = 65
+      Height = 65
       Caption = #8592
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -2390,10 +2388,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object SpeedButton49: TSpeedButton
       Tag = 9
-      Left = 262
+      Left = 230
       Top = 82
-      Width = 70
-      Height = 223
+      Width = 65
+      Height = 207
       Caption = #38544#34255
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -3047,21 +3045,21 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
   end
   object DataSource3: TDataSource
     DataSet = CDS_MJID
-    Left = 1088
-    Top = 584
+    Left = 1224
+    Top = 592
   end
   object CDS_MJID: TClientDataSet
     Aggregates = <>
     Params = <>
-    Left = 1040
-    Top = 576
+    Left = 1216
+    Top = 560
   end
   object Timer1: TTimer
     Enabled = False
     Interval = 2000
     OnTimer = Timer1Timer
-    Left = 960
-    Top = 576
+    Left = 1280
+    Top = 592
   end
   object ADOQueryPrint: TADOQuery
     Connection = DataLink_TradeManage.ADOLink
@@ -3157,7 +3155,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         ' '
       'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39'  and A.SCXDFlag=1'
       '')
-    Left = 896
-    Top = 580
+    Left = 1288
+    Top = 540
   end
 end

检验管理/U_MJManageNewFDNew.pas

@@ -329,7 +329,7 @@ type
     procedure baoNoExit(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure Edit13Click(Sender: TObject);
-    procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+   // procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
   private
     { Private declarations }
     FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
@@ -3127,13 +3127,13 @@ begin
   end;
 end;
 
-procedure TfrmMJManageNewFDNewSF.Panel3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
-begin
-
-  if Button = mbLeft then
-    (Sender as TPanel).BeginDrag(False);
-
-end;
+//procedure TfrmMJManageNewFDNewSF.Panel3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+//begin
+//
+//  if Button = mbLeft then
+//    (Sender as TPanel).BeginDrag(False);
+//
+//end;
 
 end.