From 2966ca178bc96e0a446f43f46357734d8e3f7a39 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 28 Nov 2025 10:06:09 +0800 Subject: [PATCH] 1 --- 打卷检验管理/ProjectGroup2.bpg | 23 ++ 打卷检验管理/SYSTEMSET.ini | 6 +- 打卷检验管理/TradeManage.dof | 3 - 打卷检验管理/TradeManage.dpr | 4 +- 打卷检验管理/U_ClothHCList.pas | 17 +- 打卷检验管理/U_JYOrderCDOne.dfm | 95 ++++--- 打卷检验管理/U_JYOrderCDOne.pas | 10 +- 打卷检验管理/U_MJManageNewFDNew.dfm | 191 +++++++++++---- 打卷检验管理/U_MJManageNewFDNew.pas | 83 ++++++- 打卷检验管理/U_OrderInPut.dfm | 206 ++++++++++------ 打卷检验管理/U_OrderInPut.pas | 96 +++++++- 打卷检验管理/U_ProductOrderNewList.dfm | 6 +- 打卷检验管理/U_ProductOrderNewList.pas | 4 +- 打卷检验管理/U_testdll.dfm | 6 +- 打卷检验管理/getpic.pas | 326 +++++++++++++------------ 打卷检验管理/testDll.cfg | 4 +- 16 files changed, 750 insertions(+), 330 deletions(-) create mode 100644 打卷检验管理/ProjectGroup2.bpg diff --git a/打卷检验管理/ProjectGroup2.bpg b/打卷检验管理/ProjectGroup2.bpg new file mode 100644 index 0000000..091c62d --- /dev/null +++ b/打卷检验管理/ProjectGroup2.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: TradeManage.dpr + $(DCC) + +testDll.exe: testDll.dpr + $(DCC) + + diff --git a/打卷检验管理/SYSTEMSET.ini b/打卷检验管理/SYSTEMSET.ini index e4904d4..e1b3c00 100644 --- a/打卷检验管理/SYSTEMSET.ini +++ b/打卷检验管理/SYSTEMSET.ini @@ -1,3 +1,5 @@ [SERVER] -ַ=127.0.0.1 -=XXXXXXX1 \ No newline at end of file +ַ=101.132.143.144 +ַ=3021 +ǷԶ=1 += diff --git a/打卷检验管理/TradeManage.dof b/打卷检验管理/TradeManage.dof index 90665f8..02b9a05 100644 --- 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; diff --git a/打卷检验管理/TradeManage.dpr b/打卷检验管理/TradeManage.dpr index 5ff5452..dd7f318 100644 --- a/打卷检验管理/TradeManage.dpr +++ b/打卷检验管理/TradeManage.dpr @@ -2,11 +2,11 @@ library TradeManage; uses SysUtils, classes, - forms, + forms, WinTypes, WinProcs, U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule}, - U_GetDllForm in 'U_GetDllForm.pas', + U_GetDllForm in 'U_GetDllForm.pas', U_ZDYHelpSel in '..\..\..\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField}, U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet}, diff --git a/打卷检验管理/U_ClothHCList.pas b/打卷检验管理/U_ClothHCList.pas index 4767899..ae2dbfb 100644 --- a/打卷检验管理/U_ClothHCList.pas +++ b/打卷检验管理/U_ClothHCList.pas @@ -11,7 +11,20 @@ uses cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxDropDownEdit, cxCheckBox, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator; + cxLookAndFeelPainters, cxNavigator, 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 TfrmClothHCList = class(TForm) @@ -123,6 +136,8 @@ begin Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.Date); Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',EndDate.Date+1); Parameters.ParamByName('WSQL').Value:=''; +// ShowMessage(SQL.text); +// ShowMessage(wsql); Open; end; SCreateCDS20(ADOQueryMain,Order_Main); diff --git a/打卷检验管理/U_JYOrderCDOne.dfm b/打卷检验管理/U_JYOrderCDOne.dfm index f15f3e5..36fbc98 100644 --- a/打卷检验管理/U_JYOrderCDOne.dfm +++ b/打卷检验管理/U_JYOrderCDOne.dfm @@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Left = 0 Top = 0 Width = 1384 - Height = 92 + Height = 62 AutoSize = True ButtonHeight = 30 ButtonWidth = 119 @@ -101,28 +101,27 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Top = 0 Caption = #25209#37327#20462#25913#32568#21495 ImageIndex = 54 - Wrap = True OnClick = ToolButton11Click end object TBDW: TToolButton - Left = 0 - Top = 30 + Left = 608 + Top = 0 AutoSize = True Caption = #20462#25913#25968#37327#21333#20301 ImageIndex = 54 OnClick = TBDWClick end object ToolButton4: TToolButton - Left = 111 - Top = 30 + Left = 719 + Top = 0 AutoSize = True Caption = #25209#37327#35843#25972#31859#25968 ImageIndex = 54 OnClick = ToolButton4Click end object ToolButton13: TToolButton - Left = 222 - Top = 30 + Left = 830 + Top = 0 AutoSize = True Caption = #25209#37327#20928#37325#36716#38271#24230 ImageIndex = 54 @@ -130,15 +129,16 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton13Click end object ToolButton8: TToolButton - Left = 345 - Top = 30 + Left = 953 + Top = 0 AutoSize = True Caption = #25209#37327#20462#25913#30382#37325 ImageIndex = 54 + Wrap = True OnClick = ToolButton8Click end object ToolButton1: TToolButton - Left = 456 + Left = 0 Top = 30 AutoSize = True Caption = #25171#21360#26631#31614 @@ -146,7 +146,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton1Click end object TCPDB: TToolButton - Left = 543 + Left = 87 Top = 30 AutoSize = True Caption = #25104#21697#25171#21253 @@ -154,7 +154,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TCPDBClick end object ToolButton3: TToolButton - Left = 630 + Left = 174 Top = 30 AutoSize = True Caption = #25171#21360#21253#26631#31614 @@ -163,25 +163,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton3Click end object ToolButton2: TToolButton - Left = 729 + Left = 273 Top = 30 AutoSize = True Caption = #25171#21360#26816#39564#25253#21578 ImageIndex = 12 - Wrap = True OnClick = ToolButton2Click end object ToolButton5: TToolButton - Left = 0 - Top = 60 + Left = 384 + Top = 30 AutoSize = True Caption = #25171#21360 ImageIndex = 12 OnClick = ToolButton5Click end object Edit3: TEdit - Left = 63 - Top = 60 + Left = 447 + Top = 30 Width = 68 Height = 30 Font.Charset = GB2312_CHARSET @@ -195,8 +194,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnKeyPress = Edit3KeyPress end object ComboBox1: TComboBox - Left = 131 - Top = 63 + Left = 515 + Top = 33 Width = 149 Height = 24 Style = csDropDownList @@ -220,8 +219,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne #26816#39564#30721#21333) end object Edit4: TEdit - Left = 280 - Top = 60 + Left = 664 + Top = 30 Width = 121 Height = 30 Font.Charset = GB2312_CHARSET @@ -234,32 +233,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Visible = False end object ToolButton12: TToolButton - Left = 401 - Top = 60 + Left = 785 + Top = 30 Caption = #20462#25913#30721#21333 ImageIndex = 54 Visible = False OnClick = ToolButton12Click end object ToolButton9: TToolButton - Left = 520 - Top = 60 + Left = 904 + Top = 30 AutoSize = True Caption = #24322#24120#25968#25454 ImageIndex = 2 OnClick = ToolButton9Click end object TBExport: TToolButton - Left = 607 - Top = 60 + Left = 991 + Top = 30 AutoSize = True Caption = #23548#20986 ImageIndex = 75 OnClick = TBExportClick end object TBClose: TToolButton - Left = 670 - Top = 60 + Left = 1054 + Top = 30 AutoSize = True Caption = #20851#38381 ImageIndex = 55 @@ -268,7 +267,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object Panel1: TPanel Left = 0 - Top = 92 + Top = 62 Width = 1384 Height = 88 Align = alTop @@ -537,6 +536,19 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Font.Style = [fsBold] ParentFont = False end + object Label37: TLabel + Left = 839 + Top = 67 + Width = 26 + Height = 12 + Caption = #23458#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object EndDate: TDateTimePicker Left = 84 Top = 34 @@ -780,12 +792,21 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne TabOrder = 21 OnClick = CheckBox3Click end + object CustomerNoName: TEdit + Tag = 2 + Left = 882 + Top = 62 + Width = 77 + Height = 20 + TabOrder = 22 + OnChange = PRTCodeNameChange + end end object cxGrid1: TcxGrid Left = 0 - Top = 180 + Top = 150 Width = 1384 - Height = 538 + Height = 568 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 @@ -1086,6 +1107,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne HeaderAlignmentHorz = taCenter Width = 65 end + object Tv1Column2: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 80 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index 58288f7..ba5ff04 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -223,6 +223,9 @@ type ComboBox3: TComboBox; Edit6: TEdit; ADOQuery1: TADOQuery; + Tv1Column2: TcxGridDBColumn; + Label37: TLabel; + CustomerNoName: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -392,7 +395,7 @@ begin Close; Filtered := False; sql.Clear; - sql.Add('select A.*,'); + sql.Add('select A.*,c.CustomerNoName,'); SQL.Add('cast(A.MJSTR4 as varchar(20)) as gangno,'); sql.Add('C.OrderNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,B.*,'); sql.Add('KouFenQty=(select Sum(X.KouFenQty) from WFB_MJJY_CD X where X.MJID=A.MJID),'); @@ -407,6 +410,7 @@ begin sql.add('and mjtype=''Ʒ'' '); end; sql.add('order by A.mainid,B.prtcolor,gangno,A.mjxh'); +// ShowMessage(sql.text); Open; end; SCreateCDS20(ADOQueryMain, Order_Main); @@ -2316,7 +2320,7 @@ begin Close; sql.Clear; SQL.add('Update PRT_CNT Set PRTcnt=PRTcnt+1'); - Open; + ExecSQL; end; end; @@ -2324,4 +2328,4 @@ begin end; end. - + diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index e00c9b5..f459b42 100644 --- a/打卷检验管理/U_MJManageNewFDNew.dfm +++ b/打卷检验管理/U_MJManageNewFDNew.dfm @@ -1,8 +1,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF - Left = 322 - Top = 165 - Width = 1366 - Height = 754 + Left = 223 + Top = 133 + Width = 1458 + Height = 842 Caption = #25104#21697#26816#39564 Color = clBtnFace Font.Charset = GB2312_CHARSET @@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 0 Top = 87 Width = 214 - Height = 628 + Height = 716 Align = alLeft TabOrder = 0 object Tv3: TcxGridDBTableView @@ -123,10 +123,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end end object ScrollBox1: TScrollBox - Left = 633 + Left = 721 Top = 87 - Width = 717 - Height = 628 + Width = 721 + Height = 716 Align = alClient Color = clWhite ParentColor = False @@ -972,12 +972,24 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Visible = False OnClick = SpeedButton13Click end + object cxDBImage1: TcxDBImage + Left = 0 + Top = 0 + Hint = 'FilesOther' + AutoSize = True + DataBinding.DataField = 'FilesOther' + DataBinding.DataSource = DataSource4 + Properties.GraphicClassName = 'TJPEGImage' + TabOrder = 0 + Height = 705 + Width = 809 + end end object Panel2: TPanel - Left = 428 + Left = 426 Top = 87 - Width = 205 - Height = 628 + Width = 295 + Height = 716 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -1000,12 +1012,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object Label3: TLabel Left = 144 Top = 383 - Width = 26 - Height = 22 + Width = 18 + Height = 16 Caption = 'cm' Font.Charset = ANSI_CHARSET Font.Color = clBlue - Font.Height = -19 + Font.Height = -14 Font.Name = 'Arial' Font.Style = [] ParentFont = False @@ -1130,20 +1142,20 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label22: TLabel Left = 144 - Top = 424 - Width = 36 - Height = 22 + Top = 415 + Width = 26 + Height = 16 Caption = 'g/'#13217 Font.Charset = ANSI_CHARSET Font.Color = clBlue - Font.Height = -19 + Font.Height = -14 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label23: TLabel Left = 8 - Top = 423 + Top = 414 Width = 42 Height = 20 Caption = #20811#37325 @@ -1166,6 +1178,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Name = 'Arial' Font.Style = [] ParentFont = False + Visible = False end object Label26: TLabel Left = 8 @@ -1310,6 +1323,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Name = 'Arial' Font.Style = [] ParentFont = False + Visible = False end object Label45: TLabel Left = 247 @@ -1323,10 +1337,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Name = 'Arial' Font.Style = [] ParentFont = False + Visible = False end object Label28: TLabel Left = 10 - Top = 260 + Top = 684 Width = 42 Height = 20 Caption = #21253#21495 @@ -1336,12 +1351,40 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False + Visible = False + end + object Label54: TLabel + Left = 48 + Top = 446 + Width = 105 + Height = 20 + Caption = #26159#21542#21098#24067#22836 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label55: TLabel + Left = 10 + Top = 260 + Width = 21 + Height = 20 + Caption = #30721 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False end object MJFK: TEdit Left = 51 Top = 377 Width = 90 - Height = 41 + Height = 32 + AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 @@ -1386,10 +1429,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnKeyPress = MJstr3KeyPress end object BTPrint: TButton - Left = 10 - Top = 460 - Width = 171 - Height = 93 + Left = 7 + Top = 472 + Width = 287 + Height = 141 Caption = #25552#20132 Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1452,9 +1495,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJSJKZ: TEdit Left = 51 - Top = 418 + Top = 409 Width = 90 - Height = 41 + Height = 31 + AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 @@ -1477,6 +1521,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Style = [fsBold] ParentFont = False TabOrder = 17 + Visible = False OnChange = MJQty2Change OnClick = Edit1Click OnKeyDown = MJQty4KeyDown @@ -1633,13 +1678,14 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Style = [fsBold] ParentFont = False TabOrder = 13 + Visible = False OnClick = MJXHClick OnExit = MJStr4Exit OnKeyPress = MJstr3KeyPress end object baoNo: TEdit Left = 57 - Top = 253 + Top = 677 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1649,6 +1695,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Style = [fsBold] ParentFont = False TabOrder = 6 + Visible = False OnClick = Edit1Click OnKeyPress = MJstr3KeyPress end @@ -1658,10 +1705,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Width = 121 Height = 20 TabOrder = 10 + Visible = False end object Button7: TButton Left = 10 - Top = 556 + Top = 620 Width = 171 Height = 53 Caption = #25171#21253#26631#31614 @@ -1672,11 +1720,43 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Style = [fsBold] ParentFont = False TabOrder = 20 + Visible = False OnClick = Button7Click end + object Edit13: TEdit + Left = 162 + Top = 431 + Width = 40 + Height = 43 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 21 + OnClick = Edit4Click + OnKeyPress = MJstr3KeyPress + end + object Edit14: TEdit + Tag = 6 + Left = 56 + Top = 254 + Width = 90 + Height = 36 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -28 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 22 + OnKeyPress = Edit14KeyPress + end end object MovePanel1: TMovePanel - Left = 634 + Left = 635 Top = 91 Width = 339 Height = 236 @@ -1928,8 +2008,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object Panel7: TPanel Left = 214 Top = 87 - Width = 214 - Height = 628 + Width = 212 + Height = 716 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -1937,8 +2017,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object cxGrid2: TcxGrid Left = 2 Top = 2 - Width = 210 - Height = 303 + Width = 208 + Height = 107 Align = alClient TabOrder = 0 object Tv2: TcxGridDBTableView @@ -2046,8 +2126,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Panel8: TPanel Left = 2 - Top = 305 - Width = 210 + Top = 109 + Width = 208 Height = 28 Align = alBottom Font.Charset = GB2312_CHARSET @@ -2061,13 +2141,13 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object AOrdDefNote1: TRichEdit Left = 2 - Top = 333 - Width = 210 - Height = 293 + Top = 137 + Width = 208 + Height = 577 Align = alBottom Font.Charset = GB2312_CHARSET Font.Color = clBlue - Font.Height = -13 + Font.Height = -24 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 @@ -2077,7 +2157,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end end object Panel3: TPanel - Left = 634 + Left = 629 Top = 328 Width = 353 Height = 334 @@ -2274,7 +2354,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1350 + Width = 1442 Height = 30 AutoSize = True ButtonHeight = 30 @@ -2462,7 +2542,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object Panel6: TPanel Left = 0 Top = 30 - Width = 1350 + Width = 1442 Height = 57 Align = alTop BevelInner = bvRaised @@ -2642,6 +2722,20 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Style = [fsBold] ParentFont = False end + object Label53: TLabel + Left = 828 + Top = 4 + Width = 40 + Height = 19 + Caption = #23458#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end object BTAdd: TButton Left = 1070 Top = 8 @@ -3052,4 +3146,15 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Top = 544 ReportData = {} end + object ADOQueryImage: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 712 + Top = 408 + end + object DataSource4: TDataSource + DataSet = ADOQueryImage + Left = 320 + Top = 608 + end end diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index aad32a6..cd15622 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -23,7 +23,7 @@ uses dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, - dxSkinXmas2008Blue, dxSkinscxPCPainter; + dxSkinXmas2008Blue, dxSkinscxPCPainter, cxContainer, cxImage, cxDBEdit; type TfrmMJManageNewFDNewSF = class(TForm) @@ -262,6 +262,14 @@ type RM3: TRMGridReport; Edit5: TEdit; Label43: TLabel; + cxDBImage1: TcxDBImage; + ADOQueryImage: TADOQuery; + DataSource4: TDataSource; + Label53: TLabel; + Label54: TLabel; + Edit13: TEdit; + Label55: TLabel; + Edit14: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -320,6 +328,7 @@ type procedure Timer1Timer(Sender: TObject); procedure TBCDClick(Sender: TObject); procedure Edit5Click(Sender: TObject); + procedure Edit14KeyPress(Sender: TObject; var Key: Char); private { Private declarations } FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer; @@ -346,6 +355,8 @@ type procedure On1201(var Message: Tmessage); message 1201; procedure On1301(var Message: Tmessage); message 1301; function JsXj(str1: string): string; + procedure initimage(); + procedure XSJS(); public fmanage: string; { Public declarations } @@ -455,7 +466,7 @@ procedure TfrmMJManageNewFDNewSF.On1301(var Message: Tmessage); var i1, i2: integer; unitname: string; - fdata: double; + fdata: double; begin i1 := Message.WParam; i2 := Message.LParam; @@ -619,7 +630,9 @@ begin sql.Add('and mjstr2=''δ'' '); sql.Add(' order by FillTime desc'); Open; +// ShowMessage(sql.text); end; + SCreateCDS20(ADOQueryMain, CDS_MJID); SInitCDSData20(ADOQueryMain, CDS_MJID); end; @@ -632,6 +645,7 @@ end; procedure TfrmMJManageNewFDNewSF.FormShow(Sender: TObject); begin InitJP(); + with ADOTmp do begin Close; @@ -657,6 +671,38 @@ begin end; end; +procedure TfrmMJManageNewFDNewSF.initimage(); +var + hxfileID: string; +begin + // һ jyorder_sub hxfile + with ADOCmd do + begin + Close; + SQL.Clear; + SQL.Add('select hxfile from jyorder_sub where subid = ' + QuotedStr(FAPID)); +// showmessage(SQL.Text); // + Open; // ?? + if IsEmpty then + Exit; // û鵽˳ + hxfileID := FieldByName('hxfile').AsString; + end; + + // ڶ TP_File + with ADOQueryImage do + begin + Close; + SQL.Clear; + SQL.Add('select * from TP_File A'); + SQL.Add('where WBid = ' + QuotedStr(hxfileID)); // ?? ij ADOTmp Ľ + Open; + end; + + // ҪͼƬԼӣ + // if not ADOQueryImage.IsEmpty then + // LoadImageFromQuery(ADOQueryImage); +end; + procedure TfrmMJManageNewFDNewSF.InitJP(); var AA: array[0..100] of string; @@ -834,6 +880,7 @@ begin FInt := 4; // if PState=1 then Exit; InitCDGridID(); +// initimage(); //InitCDGrid(); {with ADOTmp do begin @@ -1564,6 +1611,7 @@ begin PState := 1; InitCDGridID(); InitCDGrid(); +// initimage(); BtnStatus(True); Label16.Caption := ''; end; @@ -2432,6 +2480,7 @@ begin sql.Add('from JYOrder_Sub C'); SQL.Add('inner join JYOrder_Main B on B.MainId=C.MainId '); sql.Add('where C.SubID=''' + Trim(APID.Text) + ''''); +// ShowMessage(sql.Text); Open; end; if ADOTmp.IsEmpty = False then @@ -2454,6 +2503,8 @@ begin Label25.Caption := 'ɫ:' + Trim(ADOTmp.fieldbyname('SOrddefstr1').AsString); Label47.Visible := true; Label47.Caption := 'ɫ:' + Trim(ADOTmp.fieldbyname('PRTcolor').AsString); + Label53.Visible := True; + label53.Caption := 'ͻ:' + Trim(ADOTmp.fieldbyname('CustomerNoName').AsString); if Trim(ADOTmp.fieldbyname('PRTHX').AsString) <> '' then begin Label2.Visible := true; @@ -2480,7 +2531,7 @@ begin Label51.Visible := False; Edit12.Text := ''; end; - AOrdDefNote1.Text := 'װҪ:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 + 'Ҫ:' + #13 + Trim(ADOTmp.fieldbyname('MPRTSCTeBieNote').AsString); + AOrdDefNote1.Text := 'װҪ:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 + 'Ҫ:' + #13 + Trim(ADOTmp.fieldbyname('MPRTSCTeBieNote').AsString)+#13+''+#13+Trim(ADOTmp.fieldbyname('MPRTChuanY').AsString); MJQty3.Text := Trim(ADOTmp.fieldbyname('SPiZhong').AsString); kmxs.Text := Trim(ADOTmp.fieldbyname('kmxs').AsString); MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString); @@ -2521,7 +2572,14 @@ begin Exit; end; APID.Text := ''; + initimage(); BTAdd.Click; + if ADOTmp.FieldByName('iscut').Value = '1' then + begin + Edit13.Text := '' + end + else + Edit13.Text := '' end; procedure TfrmMJManageNewFDNewSF.Edit7Click(Sender: TObject); @@ -2993,5 +3051,24 @@ begin end; end; +procedure TfrmMJManageNewFDNewSF.XSJS(); +var + FXS, FMS, FMS1: Double; +begin + FXS := StrToFloatDef(Edit14.Text, 0); + FMS := StrToFloatDef(MJLen.Text, 0); + + FMS1 := FMS * FXS; + MJLen.Text := FloatToStrF(FMS1, ffFixed, 10, 2); +end; + +procedure TfrmMJManageNewFDNewSF.Edit14KeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + XSJS; + end; +end; + end. diff --git a/打卷检验管理/U_OrderInPut.dfm b/打卷检验管理/U_OrderInPut.dfm index 48e8b51..52f14e8 100644 --- a/打卷检验管理/U_OrderInPut.dfm +++ b/打卷检验管理/U_OrderInPut.dfm @@ -576,7 +576,7 @@ object frmOrderInPut: TfrmOrderInPut end object Label38: TLabel Left = 568 - Top = 40 + Top = 96 Width = 67 Height = 12 Caption = #28907' '#37329#65306 @@ -901,7 +901,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 20 Hint = 'MPRTMF/'#38376#24133 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - TabOrder = 46 + TabOrder = 45 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -914,7 +914,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 20 Hint = 'MPRTKZ/'#20811#37325 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - TabOrder = 52 + TabOrder = 51 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -927,7 +927,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 20 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ReadOnly = True - TabOrder = 43 + TabOrder = 42 Visible = False OnBtnUpClick = MPRTCodeNameBtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -940,7 +940,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 20 Hint = 'MPRTSpec/'#35268#26684 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - TabOrder = 36 + TabOrder = 35 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -953,7 +953,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 20 Hint = 'MPRTDuiSeGY/'#23545#33394#20809#28304 ReadOnly = True - TabOrder = 28 + TabOrder = 27 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -967,7 +967,7 @@ object frmOrderInPut: TfrmOrderInPut Hint = 'MPRTSL/'#32553#29575 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ReadOnly = True - TabOrder = 26 + TabOrder = 25 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -979,7 +979,7 @@ object frmOrderInPut: TfrmOrderInPut Width = 278 Height = 20 Hint = 'MPRTNiuDu/'#25968#37327#35201#27714 - TabOrder = 19 + TabOrder = 18 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -993,7 +993,7 @@ object frmOrderInPut: TfrmOrderInPut Hint = 'MPRTPH/PH'#20540 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ReadOnly = True - TabOrder = 42 + TabOrder = 41 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1007,7 +1007,7 @@ object frmOrderInPut: TfrmOrderInPut Hint = 'Factory/'#21518#25972#29702#21378 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ReadOnly = True - TabOrder = 41 + TabOrder = 40 Visible = False OnBtnUpClick = YCLFactoryBtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1021,7 +1021,7 @@ object frmOrderInPut: TfrmOrderInPut Hint = 'Factory/'#22383#24067#21378 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ReadOnly = True - TabOrder = 23 + TabOrder = 22 Visible = False OnBtnUpClick = YCLFactoryBtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1035,7 +1035,7 @@ object frmOrderInPut: TfrmOrderInPut Hint = 'Factory/'#21407#26009#24037#21378 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ReadOnly = True - TabOrder = 50 + TabOrder = 49 Visible = False OnBtnUpClick = YCLFactoryBtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1047,7 +1047,7 @@ object frmOrderInPut: TfrmOrderInPut Width = 277 Height = 18 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - TabOrder = 47 + TabOrder = 46 Visible = False end object MPRTKaiJian: TBtnEditC @@ -1057,20 +1057,8 @@ object frmOrderInPut: TfrmOrderInPut Width = 100 Height = 20 Hint = 'MPRTKaiJian/'#24320#21098 - TabOrder = 10 - Visible = False - OnBtnUpClick = OrdDefStr2BtnUpClick - OnBtnDnClick = CustomerNoNameBtnDnClick - end - object MPRTChuanY: TBtnEditC - Tag = 2 - Left = 96 - Top = 33 - Width = 100 - Height = 20 - Hint = 'MPRTChuanY/'#33337#26679 - ReadOnly = True TabOrder = 9 + Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick end @@ -1082,7 +1070,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 20 Hint = 'MPRTYaoFeng/'#23553#26465 ReadOnly = True - TabOrder = 11 + TabOrder = 10 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1094,7 +1082,7 @@ object frmOrderInPut: TfrmOrderInPut Width = 276 Height = 20 Hint = 'MPRTJiBenNote/'#33337' '#26679 - TabOrder = 16 + TabOrder = 15 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1107,7 +1095,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 20 Hint = 'MPRTTeBieNote/'#21253#35013#29305#21035#25552#31034 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - TabOrder = 32 + TabOrder = 31 Visible = False OnBtnUpClick = MPRTSCTeBieNoteBtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1135,7 +1123,7 @@ object frmOrderInPut: TfrmOrderInPut Hint = 'MPRTCode/'#20135#21697#32534#21495 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ReadOnly = True - TabOrder = 35 + TabOrder = 34 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1149,7 +1137,7 @@ object frmOrderInPut: TfrmOrderInPut Hint = 'MPRTQtyNote/'#25968#37327#35828#26126 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ReadOnly = True - TabOrder = 51 + TabOrder = 50 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1163,7 +1151,7 @@ object frmOrderInPut: TfrmOrderInPut Hint = 'MPRTColorLaoDu1/'#24178#30952 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ReadOnly = True - TabOrder = 33 + TabOrder = 32 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1177,7 +1165,7 @@ object frmOrderInPut: TfrmOrderInPut Hint = 'MPRTColorLaoDu2/'#28287#30952 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ReadOnly = True - TabOrder = 31 + TabOrder = 30 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1191,7 +1179,7 @@ object frmOrderInPut: TfrmOrderInPut Hint = 'MPRTColorLaoDu3/'#27838#33394#29282#24230 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ReadOnly = True - TabOrder = 37 + TabOrder = 36 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1205,7 +1193,7 @@ object frmOrderInPut: TfrmOrderInPut Hint = 'MPRTColorLaoDu4/'#27700#27927#29282#24230 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ReadOnly = True - TabOrder = 45 + TabOrder = 44 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1219,7 +1207,7 @@ object frmOrderInPut: TfrmOrderInPut Hint = 'MPRTKQiQiu/'#25239#36215#29699 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ReadOnly = True - TabOrder = 34 + TabOrder = 33 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1233,7 +1221,7 @@ object frmOrderInPut: TfrmOrderInPut Hint = 'MPRTDingPoLv/'#39030#30772#29575 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ReadOnly = True - TabOrder = 49 + TabOrder = 48 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1247,7 +1235,7 @@ object frmOrderInPut: TfrmOrderInPut Hint = 'MPRTZuRanXing/'#38459#29123#24615 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ReadOnly = True - TabOrder = 40 + TabOrder = 39 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1260,7 +1248,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 20 Hint = 'MPRTKuanNO/'#27454#21495 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - TabOrder = 53 + TabOrder = 52 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1268,7 +1256,7 @@ object frmOrderInPut: TfrmOrderInPut object MPRTTangJin: TBtnEditC Tag = 2 Left = 630 - Top = 34 + Top = 90 Width = 100 Height = 20 Hint = 'MPRTTangJin/'#28907#37329 @@ -1291,7 +1279,7 @@ object frmOrderInPut: TfrmOrderInPut Time = 40916.670856296290000000 ShowCheckbox = True ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - TabOrder = 24 + TabOrder = 23 Visible = False end object OrdDefDate2: TDateTimePicker @@ -1306,7 +1294,7 @@ object frmOrderInPut: TfrmOrderInPut Time = 40916.670856296290000000 ShowCheckbox = True ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - TabOrder = 48 + TabOrder = 47 Visible = False end object OrdPerson1: TBtnEditC @@ -1317,7 +1305,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 20 Hint = 'OrdPerson1/'#36319#21333#21592 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - TabOrder = 44 + TabOrder = 43 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1347,7 +1335,7 @@ object frmOrderInPut: TfrmOrderInPut Top = 145 Width = 130 Height = 130 - TabOrder = 13 + TabOrder = 12 end object SYRName: TBtnEditC Tag = 2 @@ -1356,7 +1344,7 @@ object frmOrderInPut: TfrmOrderInPut Width = 99 Height = 20 Hint = 'SYRName/'#20844#21496#21488#22836 - TabOrder = 29 + TabOrder = 28 Visible = False OnBtnUpClick = SYRNameBtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1369,7 +1357,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 68 Hint = 'MPRTBZNote/'#21253#35013#35201#27714 ScrollBars = ssVertical - TabOrder = 12 + TabOrder = 11 OnDblClick = MPRTBZNoteDblClick end object MPRTSCTeBieNote: TMemo @@ -1380,7 +1368,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 68 Hint = 'MPRTSCTeBieNote/'#36136#37327#35201#27714 ScrollBars = ssVertical - TabOrder = 14 + TabOrder = 13 OnDblClick = MPRTSCTeBieNoteDblClick end object Orddefstr5: TEdit @@ -1390,7 +1378,7 @@ object frmOrderInPut: TfrmOrderInPut Width = 98 Height = 18 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - TabOrder = 25 + TabOrder = 24 Visible = False end object orddefnote1: TMemo @@ -1401,7 +1389,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 105 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ScrollBars = ssVertical - TabOrder = 21 + TabOrder = 20 Visible = False end object orddefstr1: TBtnEditC @@ -1412,7 +1400,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 20 Hint = 'orddefstr1/'#39564#36135 ReadOnly = True - TabOrder = 30 + TabOrder = 29 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1424,7 +1412,7 @@ object frmOrderInPut: TfrmOrderInPut Width = 53 Height = 18 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - TabOrder = 54 + TabOrder = 53 Visible = False end object orddefstr4: TBtnEditC @@ -1435,7 +1423,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 20 Hint = 'ZMTYPE/'#27491#30721 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - TabOrder = 39 + TabOrder = 38 Visible = False OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick @@ -1447,7 +1435,7 @@ object frmOrderInPut: TfrmOrderInPut Width = 53 Height = 18 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - TabOrder = 38 + TabOrder = 37 Visible = False end object EditCnt: TcxCurrencyEdit @@ -1457,7 +1445,7 @@ object frmOrderInPut: TfrmOrderInPut Properties.DecimalPlaces = 0 Properties.DisplayFormat = '#' Style.BorderStyle = ebsSingle - TabOrder = 17 + TabOrder = 16 Visible = False Width = 73 end @@ -1470,7 +1458,7 @@ object frmOrderInPut: TfrmOrderInPut Properties.ReadOnly = True Properties.ShowFocusRect = False Style.BorderStyle = ebsSingle - TabOrder = 18 + TabOrder = 17 Visible = False Height = 185 Width = 232 @@ -1482,7 +1470,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 25 Hint = 'Filesother' Caption = #21152#36733#22270#29255 - TabOrder = 20 + TabOrder = 19 Visible = False OnClick = FileNameClick LookAndFeel.Kind = lfOffice11 @@ -1494,7 +1482,7 @@ object frmOrderInPut: TfrmOrderInPut Width = 277 Height = 54 ScrollBars = ssVertical - TabOrder = 15 + TabOrder = 14 Visible = False end object PBPrice: TcxCurrencyEdit @@ -1502,7 +1490,7 @@ object frmOrderInPut: TfrmOrderInPut Left = 598 Top = 372 Properties.DisplayFormat = '0.00' - TabOrder = 22 + TabOrder = 21 Visible = False Width = 100 end @@ -1511,7 +1499,7 @@ object frmOrderInPut: TfrmOrderInPut Left = 62 Top = 396 Properties.DisplayFormat = '0.00' - TabOrder = 27 + TabOrder = 26 Visible = False Width = 100 end @@ -1520,7 +1508,7 @@ object frmOrderInPut: TfrmOrderInPut Top = 88 Width = 281 Height = 20 - TabOrder = 55 + TabOrder = 54 OnBtnClick = SLBNameBtnClick end object Button1: TButton @@ -1529,7 +1517,7 @@ object frmOrderInPut: TfrmOrderInPut Width = 97 Height = 37 Caption = #35774#35745#26631#31614 - TabOrder = 56 + TabOrder = 55 OnClick = Button1Click end object GroupBox1: TGroupBox @@ -1539,7 +1527,7 @@ object frmOrderInPut: TfrmOrderInPut Height = 278 Align = alRight Caption = #26631#31614#23637#31034 - TabOrder = 57 + TabOrder = 56 object RMPreview1: TRMPreview Left = 1 Top = 13 @@ -1556,6 +1544,34 @@ object frmOrderInPut: TfrmOrderInPut Options.BorderPen.Style = psDash end end + object IsCut: TCheckBox + Tag = 2 + Left = 568 + Top = 8 + Width = 97 + Height = 17 + Caption = #26159#21542#21098#24067#22836 + TabOrder = 57 + end + object CheckBox1: TCheckBox + Tag = 8 + Left = 568 + Top = 32 + Width = 41 + Height = 17 + Caption = #33337#26679 + TabOrder = 58 + OnClick = CheckBox1Click + end + object MPRTChuanY: TEdit + Tag = 2 + Left = 616 + Top = 32 + Width = 100 + Height = 18 + Enabled = False + TabOrder = 59 + end end object ToolBar2: TToolBar Left = 0 @@ -1603,6 +1619,14 @@ object frmOrderInPut: TfrmOrderInPut ImageIndex = 104 OnClick = ToolButton3Click end + object ToolButton5: TToolButton + Left = 209 + Top = 0 + AutoSize = True + Caption = #19968#38190#22686#34892 + ImageIndex = 105 + OnClick = ToolButton5Click + end end object cxGrid1: TcxGrid Left = 0 @@ -1771,6 +1795,19 @@ object frmOrderInPut: TfrmOrderInPut Styles.Header = DataLink_TradeManage.Default Width = 87 end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411#22270#29255 + DataBinding.FieldName = 'HXFile' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column9PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 59 + end object v1PRTMF: TcxGridDBColumn Caption = #38376#24133'(cm)' DataBinding.FieldName = 'PRTMF' @@ -1791,20 +1828,6 @@ object frmOrderInPut: TfrmOrderInPut HeaderAlignmentHorz = taCenter Width = 62 end - object v1Column9: TcxGridDBColumn - Caption = #33457#22411#22270#29255 - DataBinding.FieldName = 'HXFile' - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.OnButtonClick = v1Column9PropertiesButtonClick - Visible = False - HeaderAlignmentHorz = taCenter - Width = 59 - end object v1Column6: TcxGridDBColumn Caption = #32553#29575'(%)' DataBinding.FieldName = 'SordQty1' @@ -1828,6 +1851,37 @@ object frmOrderInPut: TfrmOrderInPut GridView = Tv1 end end + object Panel1: TPanel + Left = 528 + Top = 168 + Width = 313 + Height = 145 + TabOrder = 4 + object cxTextEdit1: TcxTextEdit + Left = 96 + Top = 48 + TabOrder = 0 + Width = 121 + end + object Button2: TButton + Left = 40 + Top = 96 + Width = 75 + Height = 25 + Caption = #30830#35748 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 200 + Top = 96 + Width = 75 + Height = 25 + Caption = #21462#28040 + TabOrder = 2 + OnClick = Button3Click + end + end object ADOTemp: TADOQuery Connection = DataLink_TradeManage.ADOLink LockType = ltReadOnly diff --git a/打卷检验管理/U_OrderInPut.pas b/打卷检验管理/U_OrderInPut.pas index 8bde4cb..a0eaf73 100644 --- a/打卷检验管理/U_OrderInPut.pas +++ b/打卷检验管理/U_OrderInPut.pas @@ -91,7 +91,6 @@ type Label20: TLabel; MPRTKaiJian: TBtnEditC; Label21: TLabel; - MPRTChuanY: TBtnEditC; Label22: TLabel; MPRTYaoFeng: TBtnEditC; Label23: TLabel; @@ -191,6 +190,14 @@ type RMBMPExport1: TRMBMPExport; ToolButton4: TToolButton; QryCheckNet: TADOQuery; + ToolButton5: TToolButton; + Panel1: TPanel; + cxTextEdit1: TcxTextEdit; + Button2: TButton; + Button3: TButton; + IsCut: TCheckBox; + CheckBox1: TCheckBox; + MPRTChuanY: TEdit; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -221,6 +228,10 @@ type procedure Button1Click(Sender: TObject); procedure SLBNameBtnClick(Sender: TObject); procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); private procedure InitData(); procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); @@ -438,7 +449,7 @@ end; procedure TfrmOrderInPut.TBCloseClick(Sender: TObject); begin Close; - WriteCxGrid(self.Caption + TV1.Name + '1', Tv1, 'ָʾ2'); + WriteCxGrid(self.Caption + TV1.Name + '1', Tv1, 'ָʾ33'); end; procedure TfrmOrderInPut.InitData(); @@ -525,9 +536,21 @@ begin end; procedure TfrmOrderInPut.FormShow(Sender: TObject); +var + fFileName1: string; begin - readCxGrid(self.Caption + TV1.Name + '1', Tv1, 'ָʾ2'); + readCxGrid(self.Caption + TV1.Name + '1', Tv1, 'ָʾ33'); InitData(); + panel1.Visible := false; + + InitDataSetDictionary(); + + + fFileName1 := ExtractFilePath(Application.ExeName) + 'report\' + trim(SLBName.Text); + + RMGridReport1.LoadFromFile(fFileName1); + RMGridReport1.Preview := RMPreview1; + RMGridReport1.ShowReport; end; procedure TfrmOrderInPut.CJEWM(); @@ -1093,6 +1116,7 @@ begin FieldByName('hxFile').Value := ''; Post; end; + end; procedure TfrmOrderInPut.ToolButton2Click(Sender: TObject); @@ -1797,5 +1821,71 @@ begin end; end; +procedure TfrmOrderInPut.ToolButton5Click(Sender: TObject); +begin + Panel1.Visible := true; +end; + +procedure TfrmOrderInPut.Button2Click(Sender: TObject); +var + i, j, AddCount, StartIndex: Integer; +begin + Tv1.Columns[0].FocusWithSelection; + + if Trim(OrderNo.Text) = '' then + begin + Application.MessageBox('ŲΪ!', 'ʾ', 0); + Exit; + end; + + if not TryStrToInt(Trim(cxTextEdit1.Text), AddCount) then + begin + Application.MessageBox('Ч', 'ʾ', 0); + Exit; + end; + + if AddCount <= 0 then + begin + Application.MessageBox(' 0 ֣', 'ʾ', 0); + Exit; + end; + + StartIndex := Order_Sub.RecordCount; + + for j := 1 to AddCount do + begin + CopyAddRow(Tv1, Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('XHNO').Value := IntToStr(StartIndex + j); + FieldByName('PRTColor').Value := ''; + FieldByName('PRTOrderQty').Value := Null; + FieldByName('PRTPrice').Value := 0; + FieldByName('SOrddefstr4').Value := Null; + FieldByName('SOrddefstr2').Value := Null; + FieldByName('SOrddefstr10').Value := Null; + FieldByName('hxFile').Value := ''; + Post; + end; + end; + + Application.MessageBox(PChar(' ' + IntToStr(AddCount) + ' У'), 'ʾ', MB_ICONINFORMATION); +end; + +procedure TfrmOrderInPut.Button3Click(Sender: TObject); +begin + Panel1.Visible := False; +end; + +procedure TfrmOrderInPut.CheckBox1Click(Sender: TObject); +begin + if CheckBox1.Checked then + MPRTChuanY.Enabled := True + else + MPRTChuanY.Enabled := False; + +end; + end. diff --git a/打卷检验管理/U_ProductOrderNewList.dfm b/打卷检验管理/U_ProductOrderNewList.dfm index cc20e5f..44d7709 100644 --- a/打卷检验管理/U_ProductOrderNewList.dfm +++ b/打卷检验管理/U_ProductOrderNewList.dfm @@ -1,6 +1,6 @@ object frmProductOrderNewList: TfrmProductOrderNewList - Left = 464 - Top = 256 + Left = 221 + Top = 156 Width = 1382 Height = 754 Caption = #21253#35013#25351#31034#21333 @@ -1133,7 +1133,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList TabOrder = 2 Properties.CustomButtons.Buttons = <> Properties.Style = 9 - Properties.TabIndex = 0 + Properties.TabIndex = 1 Properties.Tabs.Strings = ( #26410#23436#25104 #24050#23436#25104 diff --git a/打卷检验管理/U_ProductOrderNewList.pas b/打卷检验管理/U_ProductOrderNewList.pas index db91e14..80e673e 100644 --- a/打卷检验管理/U_ProductOrderNewList.pas +++ b/打卷检验管理/U_ProductOrderNewList.pas @@ -378,6 +378,8 @@ begin Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', BegDate.DateTime); Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1); Parameters.ParamByName('WSql').Value := strwhere; +// showmessage(SQL.text); +// ShowMessage(strwhere); Open; end; SCreateCDS20(ADOQueryMain, Order_Main); @@ -949,7 +951,7 @@ end; procedure TfrmProductOrderNewList.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin - initImage(ADOQuerySub.fieldbyname('HXFile').AsString); +// initImage(ADOQuerySub.fieldbyname('HXFile').AsString); end; procedure TfrmProductOrderNewList.Picture4DblClick(Sender: TObject); diff --git a/打卷检验管理/U_testdll.dfm b/打卷检验管理/U_testdll.dfm index b1d8f4c..ee16dae 100644 --- a/打卷检验管理/U_testdll.dfm +++ b/打卷检验管理/U_testdll.dfm @@ -1,6 +1,6 @@ object Form1: TForm1 - Left = 153 - Top = 124 + Left = 396 + Top = 139 Width = 791 Height = 554 Caption = 'Form1' @@ -21,7 +21,7 @@ object Form1: TForm1 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 783 + Width = 775 Height = 25 ButtonWidth = 57 Caption = 'ToolBar1' diff --git a/打卷检验管理/getpic.pas b/打卷检验管理/getpic.pas index 4a22a13..c03e479 100644 --- a/打卷检验管理/getpic.pas +++ b/打卷检验管理/getpic.pas @@ -3,10 +3,10 @@ unit getpic; interface uses - Windows, Messages, SysUtils, strUtils,Variants, Classes, Graphics, Controls, Forms, - Dialogs, ComCtrls, ToolWin, ExtCtrls, jpeg, IniFiles, ExtDlgs, - DelphiTwain, Buttons, StdCtrls, DB, ADODB, IdBaseComponent, IdComponent, - IdTCPConnection, IdTCPClient, IdFTP; + Windows, Messages, SysUtils, strUtils, Variants, Classes, Graphics, Controls, + Forms, Dialogs, ComCtrls, ToolWin, ExtCtrls, jpeg, IniFiles, ExtDlgs, + DelphiTwain, Buttons, StdCtrls, DB, ADODB, + IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP; type TFormGetPic = class(TForm) @@ -28,15 +28,12 @@ type SpeedButton5: TSpeedButton; procedure ToolButton1Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject); - procedure TwainTwainAcquire(Sender: TObject; const Index: Integer; - Image: TBitmap; var Cancel: Boolean); + procedure TwainTwainAcquire(Sender: TObject; const Index: Integer; Image: TBitmap; var Cancel: Boolean); procedure FormShow(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); - procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); - procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, - Y: Integer); + procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); @@ -46,21 +43,21 @@ type procedure Initimage(); procedure SpeedButton5Click(Sender: TObject); private - hWndC : THandle; - CapturingAVI : bool; + hWndC: THandle; + CapturingAVI: bool; { Private declarations } ClickPos: TPoint; SelectedSource, PicLeft, PicTop, PicWidth, PicHeight: Integer; procedure CreThumb(Width, Height: Integer); - function SaveImage():Boolean; + function SaveImage(): Boolean; public - FilePath:string; - FileName:string; - FTFType:string; - pat1:string; - pic1:string; - fkeyNo:string; - fFlileFlag:string; + FilePath: string; + FileName: string; + FTFType: string; + pat1: string; + pic1: string; + fkeyNo: string; + fFlileFlag: string; { Public declarations } MyJpeg: TJPEGImage; // JPStream: TMemoryStream; @@ -70,44 +67,73 @@ var FormGetPic: TFormGetPic; implementation -uses U_DataLink,U_Fun10; -const WM_CAP_START = WM_USER; -const WM_CAP_STOP = WM_CAP_START + 68; -const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10; -const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11; -const WM_CAP_SAVEDIB = WM_CAP_START + 25; -const WM_CAP_GRAB_FRAME = WM_CAP_START + 60; -const WM_CAP_SEQUENCE = WM_CAP_START + 62; -const WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20; -const WM_CAP_SEQUENCE_NOFILE =WM_CAP_START+ 63 ; -const WM_CAP_SET_OVERLAY =WM_CAP_START+ 51 ; -const WM_CAP_SET_PREVIEW =WM_CAP_START+ 50 ; -const WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START +6; -const WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START +2; -const WM_CAP_SET_CALLBACK_STATUSA= WM_CAP_START +3; -const WM_CAP_SET_CALLBACK_FRAME= WM_CAP_START +5; -const WM_CAP_SET_SCALE=WM_CAP_START+ 53 ; -const WM_CAP_SET_PREVIEWRATE=WM_CAP_START+ 52 ; -function capCreateCaptureWindowA(lpszWindowName : PCHAR; -dwStyle : longint; -x : integer; -y : integer; -nWidth : integer; -nHeight : integer; -ParentWin : HWND; -nId : integer): HWND; -STDCALL EXTERNAL 'AVICAP32.DLL'; + +uses + U_DataLink, U_Fun10; + +const + WM_CAP_START = WM_USER; + +const + WM_CAP_STOP = WM_CAP_START + 68; + +const + WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10; + +const + WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11; + +const + WM_CAP_SAVEDIB = WM_CAP_START + 25; + +const + WM_CAP_GRAB_FRAME = WM_CAP_START + 60; + +const + WM_CAP_SEQUENCE = WM_CAP_START + 62; + +const + WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20; + +const + WM_CAP_SEQUENCE_NOFILE = WM_CAP_START + 63; + +const + WM_CAP_SET_OVERLAY = WM_CAP_START + 51; + +const + WM_CAP_SET_PREVIEW = WM_CAP_START + 50; + +const + WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START + 6; + +const + WM_CAP_SET_CALLBACK_ERROR = WM_CAP_START + 2; + +const + WM_CAP_SET_CALLBACK_STATUSA = WM_CAP_START + 3; + +const + WM_CAP_SET_CALLBACK_FRAME = WM_CAP_START + 5; + +const + WM_CAP_SET_SCALE = WM_CAP_START + 53; + +const + WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52; + +function capCreateCaptureWindowA(lpszWindowName: PCHAR; dwStyle: longint; x: integer; y: integer; nWidth: integer; nHeight: integer; ParentWin: HWND; nId: integer): HWND; stdcall external 'AVICAP32.DLL'; {$R *.dfm} procedure TFormGetPic.Initimage(); var - jpg:TJpegImage; + jpg: TJpegImage; myStream: TADOBlobStream; - sFieldName:string; + sFieldName: string; JPStream: TMemoryStream; begin - jpg:=TJpegImage.Create(); + jpg := TJpegImage.Create(); JPStream := TMemoryStream.Create; try @@ -115,48 +141,49 @@ begin begin close; sql.Clear; - sql.Add('select * from TP_File where WBID='+quotedstr(trim(fkeyNo))); + sql.Add('select * from TP_File where WBID=' + quotedstr(trim(fkeyNo))); open; - IF not IsEmpty then + if not IsEmpty then begin - IF not fieldbyname(pic1).IsNull then + if not fieldbyname(pic1).IsNull then begin - myStream:=tadoblobstream.Create(tblobfield(adoqueryImage.fieldbyname(pic1)),bmread); + myStream := tadoblobstream.Create(tblobfield(adoqueryImage.fieldbyname(pic1)), bmread); jpg.LoadFromStream(myStream); Image2.Picture.Assign(jpg); myStream.Free; - try - IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); - IdFTP1.Username := 'three'; - IdFTP1.Password := '641010'; - IdFTP1.Connect(); - except - ; - end; + try + IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', 'ַ', '127.0.0.1'); + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; - JPStream.Clear; - if IdFTP1.Connected then - begin - try - IdFTP1.Get(fFlileFlag+'\'+ Trim(fieldbyname(pat1).AsString), JPStream); - except - Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); - IdFTP1.Quit; - Exit; - end; - end - else - begin - Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + JPStream.Clear; + if IdFTP1.Connected then + begin + try + IdFTP1.Get(fFlileFlag + '\' + Trim(fieldbyname(pat1).AsString), JPStream); + except + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); IdFTP1.Quit; Exit; end; + end + else + begin + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; - if IdFTP1.Connected then IdFTP1.Quit; - JPStream.Position := 0; - jpg.LoadFromStream(JPStream); - Image1.Picture.Assign(jpg); + if IdFTP1.Connected then + IdFTP1.Quit; + JPStream.Position := 0; + jpg.LoadFromStream(JPStream); + Image1.Picture.Assign(jpg); end; end; end; @@ -219,7 +246,7 @@ begin IdFTP1.Quit; except IdFTP1.Quit; - Application.MessageBox('ϴͻͼļʧܣļ', 'ʾ', MB_ICONWARNING); + Application.MessageBox('ϴͻͼļʧܣļ', 'ʾ', MB_ICONWARNING); end; end; IdFTP1.Quit; @@ -230,6 +257,7 @@ begin end; end; + procedure TFormGetPic.ToolButton1Click(Sender: TObject); var Ini: TIniFile; @@ -244,7 +272,7 @@ begin begin Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'scanner.ini'); try - Ini.WriteInteger( 'SCANNER', 'Scanner', SelectedSource); + Ini.WriteInteger('SCANNER', 'Scanner', SelectedSource); finally Ini.Free; end; @@ -266,12 +294,13 @@ begin {Load source, select transference method and enable (display interface)} Twain.Source[SelectedSource].Loaded := TRUE; Twain.Source[SelectedSource].SetICapUnits(tuInches); - Twain.Source[SelectedSource].SetImagelayoutFrame(PicLeft/25.4, PicTop/25.4, (PicLeft+PicWidth)/25.4, (PicTop+PicHeight)/25.4); + Twain.Source[SelectedSource].SetImagelayoutFrame(PicLeft / 25.4, PicTop / 25.4, (PicLeft + PicWidth) / 25.4, (PicTop + PicHeight) / 25.4); Twain.Source[SelectedSource].SetIYResolution(200); Twain.Source[SelectedSource].SetIXResolution(200); Twain.Source[SelectedSource].TransferMode := ttmMemory; Twain.Source[SelectedSource].EnableSource(FALSE, TRUE); - while Twain.Source[SelectedSource].Enabled do Application.ProcessMessages; + while Twain.Source[SelectedSource].Enabled do + Application.ProcessMessages; end; {if SelectedSource <> -1} // Twain.UnloadLibrary; end @@ -279,8 +308,7 @@ begin ShowMessage('δװɨ'); end; -procedure TFormGetPic.TwainTwainAcquire(Sender: TObject; - const Index: Integer; Image: TBitmap; var Cancel: Boolean); +procedure TFormGetPic.TwainTwainAcquire(Sender: TObject; const Index: Integer; Image: TBitmap; var Cancel: Boolean); begin Image1.Picture.Assign(Image); Cancel := TRUE; @@ -346,18 +374,18 @@ var begin Bitmap := TBitmap.Create; try - Ratio := Image1.Picture.Graphic.Width/Image1.Picture.Graphic.Height; + Ratio := Image1.Picture.Graphic.Width / Image1.Picture.Graphic.Height; if Ratio > 1.333 then begin - AHeight := Round(Width/Ratio); - AHeightOffset := (Height-AHeight) div 2; + AHeight := Round(Width / Ratio); + AHeightOffset := (Height - AHeight) div 2; AWidth := Width; AWidthOffset := 0; end else begin - AWidth := Round(Height*Ratio); - AWidthOffset := (Width-AWidth) div 2; + AWidth := Round(Height * Ratio); + AWidthOffset := (Width - AWidth) div 2; AHeight := Height; AHeightOffset := 0; end; @@ -366,10 +394,10 @@ begin Bitmap.Canvas.Brush.Color := clBtnFace; Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height)); // StretchDraw original image - ARect := Rect(AWidthOffset, AHeightOffset, AWidth+AWidthOffset, AHeight+AHeightOffset); + ARect := Rect(AWidthOffset, AHeightOffset, AWidth + AWidthOffset, AHeight + AHeightOffset); Bitmap.Canvas.StretchDraw(ARect, Image1.Picture.Graphic); // Assign back to the Jpeg, and save to the file - Image2.Picture.Assign(BitMap); + Image2.Picture.Assign(Bitmap); // MyJpeg1.Assign(Image2.Picture.Graphic); finally Bitmap.Free; @@ -380,7 +408,7 @@ procedure TFormGetPic.FormCreate(Sender: TObject); begin MyJpeg := TJpegImage.Create; // MyJpeg1 := TJpegImage.Create; - Button2.Enabled:=false; + Button2.Enabled := false; end; procedure TFormGetPic.FormDestroy(Sender: TObject); @@ -389,15 +417,13 @@ begin MyJpeg.Free; end; -procedure TFormGetPic.Image1MouseDown(Sender: TObject; - Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +procedure TFormGetPic.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ClickPos.x := X; ClickPos.y := Y; end; -procedure TFormGetPic.Image1MouseMove(Sender: TObject; Shift: TShiftState; - X, Y: Integer); +procedure TFormGetPic.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var NewPos: TPoint; begin @@ -405,14 +431,16 @@ begin if ssLeft in Shift then begin {Calculate new position} - NewPos.X := Image1.Left + x - ClickPos.x; - NewPos.Y := Image1.Top + y - ClickPos.y; + NewPos.X := Image1.Left + X - ClickPos.x; + NewPos.Y := Image1.Top + Y - ClickPos.y; if NewPos.x + Image1.Width < ScrollBox1.Width then NewPos.x := ScrollBox1.Width - Image1.Width; if NewPos.y + Image1.Height < ScrollBox1.Height then NewPos.y := ScrollBox1.Height - Image1.Height; - if NewPos.X > 0 then NewPos.X := 0; - if NewPos.Y > 0 then NewPos.Y := 0; + if NewPos.X > 0 then + NewPos.X := 0; + if NewPos.Y > 0 then + NewPos.Y := 0; Image1.Top := NewPos.Y; Image1.Left := NewPos.X; @@ -426,8 +454,8 @@ begin Image1.Top := 0; Image1.Left := 0; Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); - FilePath:=OpenPictureDialog1.FileName; - FileName:=ExtractFileName(FilePath); + FilePath := OpenPictureDialog1.FileName; + FileName := ExtractFileName(FilePath); CreThumb(240, 180); SpeedButton2.Enabled := TRUE; end; @@ -436,13 +464,13 @@ end; procedure TFormGetPic.SpeedButton2Click(Sender: TObject); begin - IF SaveImage() then + if SaveImage() then begin ModalResult := 1; end else begin - application.MessageBox('ݱʧܣ','ʾϢ',0) + application.MessageBox('ݱʧܣ', 'ʾϢ', 0) end; // JPStream := TMemoryStream.Create; // MyJPeg.Assign(Image1.Picture.Graphic); @@ -459,14 +487,7 @@ procedure TFormGetPic.Button1Click(Sender: TObject); begin hWndC := 0; try - hWndC := capCreateCaptureWindowA('My Own Capture Window', - WS_CHILD or WS_VISIBLE , - ScrollBox1.Left, - ScrollBox1.Top, - ScrollBox1.Width, - ScrollBox1.Height, - FormGetPic.Handle, - 0); + hWndC := capCreateCaptureWindowA('My Own Capture Window', WS_CHILD or WS_VISIBLE, ScrollBox1.Left, ScrollBox1.Top, ScrollBox1.Width, ScrollBox1.Height, FormGetPic.Handle, 0); if hWndC <> 0 then begin SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0); @@ -478,12 +499,12 @@ begin //SendMessage(hWndC, WM_CAP_SEQUENCE_NOFILE, 1, 0); SendMessage(hWndC, WM_CAP_SET_OVERLAY, 1, 0); SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0); - Button1.Enabled:=false; - Button2.Enabled:=true; + Button1.Enabled := false; + Button2.Enabled := true; end else begin - application.MessageBox('ͷʧܣ','Ϣ',MB_ICONERROR); + application.MessageBox('ͷʧܣ', 'Ϣ', MB_ICONERROR); end; except end; @@ -492,74 +513,76 @@ end; procedure TFormGetPic.Button2Click(Sender: TObject); var - sFieldName:string; - MBMP:TBitmap; - MJPG:TJpegImage; + sFieldName: string; + MBMP: TBitmap; + MJPG: TJpegImage; begin - sFieldName:='D:\ץͼ'; + sFieldName := 'D:\ץͼ'; if not DirectoryExists(pchar(sFieldName)) then - CreateDirectory(pchar(sFieldName),nil); + CreateDirectory(pchar(sFieldName), nil); - sFieldName:=sFieldName+'\'+formatdateTime('yyyyMMddhhnnss',SGetServerDateTime(ADOQuery1)); + sFieldName := sFieldName + '\' + formatdateTime('yyyyMMddhhnnss', SGetServerDateTime(ADOQuery1)); - FileName:=ExtractFileName(sFieldName); + FileName := ExtractFileName(sFieldName); if hWndC <> 0 then begin - SendMessage(hWndC,WM_CAP_SAVEDIB,0,longint(pchar(sFieldName+'.BMP'))); + SendMessage(hWndC, WM_CAP_SAVEDIB, 0, longint(pchar(sFieldName + '.BMP'))); SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0); hWndC := 0; application.ProcessMessages; - Button1.Enabled:=true; - Button2.Enabled:=false; + Button1.Enabled := true; + Button2.Enabled := false; try - MBMP:= TBitmap.Create; - MJPG:= TJpegImage.Create; - MBMP.LoadFromFile(pchar(sFieldName+'.BMP')); + MBMP := TBitmap.Create; + MJPG := TJpegImage.Create; + MBMP.LoadFromFile(pchar(sFieldName + '.BMP')); MJPG.assign(MBMP); Image1.Picture.Bitmap.Assign(MJPG); application.ProcessMessages; - MJPG.SaveToFile(pchar(sFieldName+'.JPG')); + MJPG.SaveToFile(pchar(sFieldName + '.JPG')); CreThumb(240, 180); finally MBMP.Free; MJPG.Free; - if Fileexists(pchar(sFieldName+'.BMP')) then DeleteFile(pchar(sFieldName+'.BMP')); - FilePath:=sFieldName+'.JPG'; - FileName:=ExtractFileName(FilePath); + if Fileexists(pchar(sFieldName + '.BMP')) then + DeleteFile(pchar(sFieldName + '.BMP')); + FilePath := sFieldName + '.JPG'; + FileName := ExtractFileName(FilePath); end; - SpeedButton2.Enabled:=true; + SpeedButton2.Enabled := true; end; end; procedure TFormGetPic.SpeedButton4Click(Sender: TObject); var - MJPG:TJpegImage; - pathFile:string; + MJPG: TJpegImage; + pathFile: string; begin - if Image1.Picture.Graphic=nil then exit; + if Image1.Picture.Graphic = nil then + exit; - MJPG:= TJpegImage.Create; + MJPG := TJpegImage.Create; try - SaveDialog1.FileName:=FileName; + SaveDialog1.FileName := FileName; if SaveDialog1.Execute then begin - if SaveDialog1.FileName<>'' then + if SaveDialog1.FileName <> '' then begin - pathFile:=trim(SaveDialog1.FileName); + pathFile := trim(SaveDialog1.FileName); - IF (RightStr(UPPERCASE(pathFile),4)<>'.JPG') and (RightStr(UPPERCASE(pathFile),5)<>'.JPEG') then + if (RightStr(UPPERCASE(pathFile), 4) <> '.JPG') and (RightStr(UPPERCASE(pathFile), 5) <> '.JPEG') then begin - pathFile:=pathFile+'.JPG'; + pathFile := pathFile + '.JPG'; end; MJPG.Assign(Image1.Picture.Graphic); if fileexists(pathFile) then begin - if application.MessageBox(pchar('ļ['+trim(pathFile)+']ѴڣǷҪ滻'),'ʾϢ',MB_YESNO+mb_iconinformation+MB_DEFBUTTON2)=idyes then - MJPG.SaveToFile(pathFile); + if application.MessageBox(pchar('ļ[' + trim(pathFile) + ']ѴڣǷҪ滻'), 'ʾϢ', MB_YESNO + mb_iconinformation + MB_DEFBUTTON2) = idyes then + MJPG.SaveToFile(pathFile); end else - MJPG.SaveToFile(pathFile); + MJPG.SaveToFile(pathFile); end; end; @@ -576,13 +599,13 @@ begin begin close; sql.Clear; - sql.Add('select * from TP_File where WBID='+quotedstr(trim(fkeyNo))); + sql.Add('select * from TP_File where WBID=' + quotedstr(trim(fkeyNo))); open; - if RecordCount>0 then + if RecordCount > 0 then begin edit; - fieldByName(pat1).Value:=null; - FieldByName(pic1).Value:=null; + fieldByName(pat1).Value := null; + FieldByName(pic1).Value := null; post; Image1.Picture.Assign(nil); Image2.Picture.Assign(nil); @@ -593,3 +616,4 @@ begin end; end. + diff --git a/打卷检验管理/testDll.cfg b/打卷检验管理/testDll.cfg index 6c57635..e9c1cc1 100644 --- 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