Group_DJD/D7DJlifei
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-11-28 10:06:09 +08:00
parent 402fc58484
commit 2966ca178b
16 changed files with 750 additions and 330 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
打卷检验管理/ProjectGroup2.bpg Normal file
View File

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

6
打卷检验管理/SYSTEMSET.ini
View File

@ -1,3 +1,5 @@
[SERVER] [SERVER]
服务器地址=127.0.0.1 服务器地址=101.132.143.144
软件名称=XXXXXXX1 服务器地址类型=3021
是否自动更新=1
软件名称=打卷检验管理软件

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

@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
Comments= Comments=
[Excluded Packages] [Excluded Packages]
c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package 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;

4
打卷检验管理/TradeManage.dpr
View File

@ -2,11 +2,11 @@ library TradeManage;
uses uses
SysUtils, SysUtils,
classes, classes,
forms, forms,
WinTypes, WinTypes,
WinProcs, WinProcs,
U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule}, 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_ZDYHelpSel in '..\..\..\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField}, U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet}, U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},

17
打卷检验管理/U_ClothHCList.pas
View File

@ -11,7 +11,20 @@ uses
cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
cxTextEdit, cxDropDownEdit, cxCheckBox, cxLookAndFeels, 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 type
TfrmClothHCList = class(TForm) TfrmClothHCList = class(TForm)
@ -123,6 +136,8 @@ begin
Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.Date); Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.Date);
Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',EndDate.Date+1); Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',EndDate.Date+1);
Parameters.ParamByName('WSQL').Value:=''; Parameters.ParamByName('WSQL').Value:='';
// ShowMessage(SQL.text);
// ShowMessage(wsql);
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain,Order_Main);

95
打卷检验管理/U_JYOrderCDOne.dfm
View File

@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1384 Width = 1384
Height = 92 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 119 ButtonWidth = 119
@ -101,28 +101,27 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 0 Top = 0
Caption = #25209#37327#20462#25913#32568#21495 Caption = #25209#37327#20462#25913#32568#21495
ImageIndex = 54 ImageIndex = 54
Wrap = True
OnClick = ToolButton11Click OnClick = ToolButton11Click
end end
object TBDW: TToolButton object TBDW: TToolButton
Left = 0 Left = 608
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913#25968#37327#21333#20301 Caption = #20462#25913#25968#37327#21333#20301
ImageIndex = 54 ImageIndex = 54
OnClick = TBDWClick OnClick = TBDWClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 111 Left = 719
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#35843#25972#31859#25968 Caption = #25209#37327#35843#25972#31859#25968
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton13: TToolButton object ToolButton13: TToolButton
Left = 222 Left = 830
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#20928#37325#36716#38271#24230 Caption = #25209#37327#20928#37325#36716#38271#24230
ImageIndex = 54 ImageIndex = 54
@ -130,15 +129,16 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton13Click OnClick = ToolButton13Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 345 Left = 953
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#30382#37325 Caption = #25209#37327#20462#25913#30382#37325
ImageIndex = 54 ImageIndex = 54
Wrap = True
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 456 Left = 0
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26631#31614 Caption = #25171#21360#26631#31614
@ -146,7 +146,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TCPDB: TToolButton object TCPDB: TToolButton
Left = 543 Left = 87
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25104#21697#25171#21253 Caption = #25104#21697#25171#21253
@ -154,7 +154,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TCPDBClick OnClick = TCPDBClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 630 Left = 174
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#21253#26631#31614 Caption = #25171#21360#21253#26631#31614
@ -163,25 +163,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 729 Left = 273
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26816#39564#25253#21578 Caption = #25171#21360#26816#39564#25253#21578
ImageIndex = 12 ImageIndex = 12
Wrap = True
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 0 Left = 384
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object Edit3: TEdit object Edit3: TEdit
Left = 63 Left = 447
Top = 60 Top = 30
Width = 68 Width = 68
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -195,8 +194,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnKeyPress = Edit3KeyPress OnKeyPress = Edit3KeyPress
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 131 Left = 515
Top = 63 Top = 33
Width = 149 Width = 149
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
@ -220,8 +219,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333) #26816#39564#30721#21333)
end end
object Edit4: TEdit object Edit4: TEdit
Left = 280 Left = 664
Top = 60 Top = 30
Width = 121 Width = 121
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -234,32 +233,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Visible = False Visible = False
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 401 Left = 785
Top = 60 Top = 30
Caption = #20462#25913#30721#21333 Caption = #20462#25913#30721#21333
ImageIndex = 54 ImageIndex = 54
Visible = False Visible = False
OnClick = ToolButton12Click OnClick = ToolButton12Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 520 Left = 904
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #24322#24120#25968#25454 Caption = #24322#24120#25968#25454
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 607 Left = 991
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 75 ImageIndex = 75
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 670 Left = 1054
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
@ -268,7 +267,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 92 Top = 62
Width = 1384 Width = 1384
Height = 88 Height = 88
Align = alTop Align = alTop
@ -537,6 +536,19 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end 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 object EndDate: TDateTimePicker
Left = 84 Left = 84
Top = 34 Top = 34
@ -780,12 +792,21 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
TabOrder = 21 TabOrder = 21
OnClick = CheckBox3Click OnClick = CheckBox3Click
end end
object CustomerNoName: TEdit
Tag = 2
Left = 882
Top = 62
Width = 77
Height = 20
TabOrder = 22
OnChange = PRTCodeNameChange
end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 180 Top = 150
Width = 1384 Width = 1384
Height = 538 Height = 568
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -1086,6 +1107,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 65 Width = 65
end end
object Tv1Column2: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustomerNoName'
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

10
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -223,6 +223,9 @@ type
ComboBox3: TComboBox; ComboBox3: TComboBox;
Edit6: TEdit; Edit6: TEdit;
ADOQuery1: TADOQuery; ADOQuery1: TADOQuery;
Tv1Column2: TcxGridDBColumn;
Label37: TLabel;
CustomerNoName: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -392,7 +395,7 @@ begin
Close; Close;
Filtered := False; Filtered := False;
sql.Clear; sql.Clear;
sql.Add('select A.*,'); sql.Add('select A.*,c.CustomerNoName,');
SQL.Add('cast(A.MJSTR4 as varchar(20)) as gangno,'); SQL.Add('cast(A.MJSTR4 as varchar(20)) as gangno,');
sql.Add('C.OrderNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,B.*,'); 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),'); 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=''´ÎÆ·'' '); sql.add('and mjtype=''´ÎÆ·'' ');
end; end;
sql.add('order by A.mainid,B.prtcolor,gangno,A.mjxh'); sql.add('order by A.mainid,B.prtcolor,gangno,A.mjxh');
// ShowMessage(sql.text);
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
@ -2316,7 +2320,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
SQL.add('Update PRT_CNT Set PRTcnt=PRTcnt+1'); SQL.add('Update PRT_CNT Set PRTcnt=PRTcnt+1');
Open; ExecSQL;
end; end;
end; end;
@ -2324,4 +2328,4 @@ begin
end; end;
end. end.

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

@ -1,8 +1,8 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 322 Left = 223
Top = 165 Top = 133
Width = 1366 Width = 1458
Height = 754 Height = 842
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0 Left = 0
Top = 87 Top = 87
Width = 214 Width = 214
Height = 628 Height = 716
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -123,10 +123,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 633 Left = 721
Top = 87 Top = 87
Width = 717 Width = 721
Height = 628 Height = 716
Align = alClient Align = alClient
Color = clWhite Color = clWhite
ParentColor = False ParentColor = False
@ -972,12 +972,24 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
OnClick = SpeedButton13Click OnClick = SpeedButton13Click
end 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 end
object Panel2: TPanel object Panel2: TPanel
Left = 428 Left = 426
Top = 87 Top = 87
Width = 205 Width = 295
Height = 628 Height = 716
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1000,12 +1012,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Label3: TLabel object Label3: TLabel
Left = 144 Left = 144
Top = 383 Top = 383
Width = 26 Width = 18
Height = 22 Height = 16
Caption = 'cm' Caption = 'cm'
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -19 Font.Height = -14
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
@ -1130,20 +1142,20 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label22: TLabel object Label22: TLabel
Left = 144 Left = 144
Top = 424 Top = 415
Width = 36 Width = 26
Height = 22 Height = 16
Caption = 'g/'#13217 Caption = 'g/'#13217
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -19 Font.Height = -14
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
end end
object Label23: TLabel object Label23: TLabel
Left = 8 Left = 8
Top = 423 Top = 414
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20811#37325 Caption = #20811#37325
@ -1166,6 +1178,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
end end
object Label26: TLabel object Label26: TLabel
Left = 8 Left = 8
@ -1310,6 +1323,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
end end
object Label45: TLabel object Label45: TLabel
Left = 247 Left = 247
@ -1323,10 +1337,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
end end
object Label28: TLabel object Label28: TLabel
Left = 10 Left = 10
Top = 260 Top = 684
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #21253#21495 Caption = #21253#21495
@ -1336,12 +1351,40 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False 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 end
object MJFK: TEdit object MJFK: TEdit
Left = 51 Left = 51
Top = 377 Top = 377
Width = 90 Width = 90
Height = 41 Height = 32
AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -32 Font.Height = -32
@ -1386,10 +1429,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object BTPrint: TButton object BTPrint: TButton
Left = 10 Left = 7
Top = 460 Top = 472
Width = 171 Width = 287
Height = 93 Height = 141
Caption = #25552#20132 Caption = #25552#20132
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1452,9 +1495,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJSJKZ: TEdit object MJSJKZ: TEdit
Left = 51 Left = 51
Top = 418 Top = 409
Width = 90 Width = 90
Height = 41 Height = 31
AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -32 Font.Height = -32
@ -1477,6 +1521,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 17 TabOrder = 17
Visible = False
OnChange = MJQty2Change OnChange = MJQty2Change
OnClick = Edit1Click OnClick = Edit1Click
OnKeyDown = MJQty4KeyDown OnKeyDown = MJQty4KeyDown
@ -1633,13 +1678,14 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 13 TabOrder = 13
Visible = False
OnClick = MJXHClick OnClick = MJXHClick
OnExit = MJStr4Exit OnExit = MJStr4Exit
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object baoNo: TEdit object baoNo: TEdit
Left = 57 Left = 57
Top = 253 Top = 677
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1649,6 +1695,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 6
Visible = False
OnClick = Edit1Click OnClick = Edit1Click
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
@ -1658,10 +1705,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Width = 121 Width = 121
Height = 20 Height = 20
TabOrder = 10 TabOrder = 10
Visible = False
end end
object Button7: TButton object Button7: TButton
Left = 10 Left = 10
Top = 556 Top = 620
Width = 171 Width = 171
Height = 53 Height = 53
Caption = #25171#21253#26631#31614 Caption = #25171#21253#26631#31614
@ -1672,11 +1720,43 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 20 TabOrder = 20
Visible = False
OnClick = Button7Click OnClick = Button7Click
end 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 end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel
Left = 634 Left = 635
Top = 91 Top = 91
Width = 339 Width = 339
Height = 236 Height = 236
@ -1928,8 +2008,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel7: TPanel object Panel7: TPanel
Left = 214 Left = 214
Top = 87 Top = 87
Width = 214 Width = 212
Height = 628 Height = 716
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1937,8 +2017,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 2 Left = 2
Top = 2 Top = 2
Width = 210 Width = 208
Height = 303 Height = 107
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -2046,8 +2126,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel8: TPanel object Panel8: TPanel
Left = 2 Left = 2
Top = 305 Top = 109
Width = 210 Width = 208
Height = 28 Height = 28
Align = alBottom Align = alBottom
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -2061,13 +2141,13 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object AOrdDefNote1: TRichEdit object AOrdDefNote1: TRichEdit
Left = 2 Left = 2
Top = 333 Top = 137
Width = 210 Width = 208
Height = 293 Height = 577
Align = alBottom Align = alBottom
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -13 Font.Height = -24
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
@ -2077,7 +2157,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 634 Left = 629
Top = 328 Top = 328
Width = 353 Width = 353
Height = 334 Height = 334
@ -2274,7 +2354,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1350 Width = 1442
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -2462,7 +2542,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1350 Width = 1442
Height = 57 Height = 57
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -2642,6 +2722,20 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end 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 object BTAdd: TButton
Left = 1070 Left = 1070
Top = 8 Top = 8
@ -3052,4 +3146,15 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Top = 544 Top = 544
ReportData = {} ReportData = {}
end 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 end

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

@ -23,7 +23,7 @@ uses
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, dxSkinscxPCPainter; dxSkinXmas2008Blue, dxSkinscxPCPainter, cxContainer, cxImage, cxDBEdit;
type type
TfrmMJManageNewFDNewSF = class(TForm) TfrmMJManageNewFDNewSF = class(TForm)
@ -262,6 +262,14 @@ type
RM3: TRMGridReport; RM3: TRMGridReport;
Edit5: TEdit; Edit5: TEdit;
Label43: TLabel; Label43: TLabel;
cxDBImage1: TcxDBImage;
ADOQueryImage: TADOQuery;
DataSource4: TDataSource;
Label53: TLabel;
Label54: TLabel;
Edit13: TEdit;
Label55: TLabel;
Edit14: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -320,6 +328,7 @@ type
procedure Timer1Timer(Sender: TObject); procedure Timer1Timer(Sender: TObject);
procedure TBCDClick(Sender: TObject); procedure TBCDClick(Sender: TObject);
procedure Edit5Click(Sender: TObject); procedure Edit5Click(Sender: TObject);
procedure Edit14KeyPress(Sender: TObject; var Key: Char);
private private
{ Private declarations } { Private declarations }
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer; FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
@ -346,6 +355,8 @@ type
procedure On1201(var Message: Tmessage); message 1201; procedure On1201(var Message: Tmessage); message 1201;
procedure On1301(var Message: Tmessage); message 1301; procedure On1301(var Message: Tmessage); message 1301;
function JsXj(str1: string): string; function JsXj(str1: string): string;
procedure initimage();
procedure XSJS();
public public
fmanage: string; fmanage: string;
{ Public declarations } { Public declarations }
@ -455,7 +466,7 @@ procedure TfrmMJManageNewFDNewSF.On1301(var Message: Tmessage);
var var
i1, i2: integer; i1, i2: integer;
unitname: string; unitname: string;
fdata: double; fdata: double;
begin begin
i1 := Message.WParam; i1 := Message.WParam;
i2 := Message.LParam; i2 := Message.LParam;
@ -619,7 +630,9 @@ begin
sql.Add('and mjstr2=''δÈë¿â'' '); sql.Add('and mjstr2=''δÈë¿â'' ');
sql.Add(' order by FillTime desc'); sql.Add(' order by FillTime desc');
Open; Open;
// ShowMessage(sql.text);
end; end;
SCreateCDS20(ADOQueryMain, CDS_MJID); SCreateCDS20(ADOQueryMain, CDS_MJID);
SInitCDSData20(ADOQueryMain, CDS_MJID); SInitCDSData20(ADOQueryMain, CDS_MJID);
end; end;
@ -632,6 +645,7 @@ end;
procedure TfrmMJManageNewFDNewSF.FormShow(Sender: TObject); procedure TfrmMJManageNewFDNewSF.FormShow(Sender: TObject);
begin begin
InitJP(); InitJP();
with ADOTmp do with ADOTmp do
begin begin
Close; Close;
@ -657,6 +671,38 @@ begin
end; end;
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)); // ?? 改成用 ADOTmp 的结果
Open;
end;
// 如果要在这里加载图片，可以加：
// if not ADOQueryImage.IsEmpty then
// LoadImageFromQuery(ADOQueryImage);
end;
procedure TfrmMJManageNewFDNewSF.InitJP(); procedure TfrmMJManageNewFDNewSF.InitJP();
var var
AA: array[0..100] of string; AA: array[0..100] of string;
@ -834,6 +880,7 @@ begin
FInt := 4; FInt := 4;
// if PState=1 then Exit; // if PState=1 then Exit;
InitCDGridID(); InitCDGridID();
// initimage();
//InitCDGrid(); //InitCDGrid();
{with ADOTmp do {with ADOTmp do
begin begin
@ -1564,6 +1611,7 @@ begin
PState := 1; PState := 1;
InitCDGridID(); InitCDGridID();
InitCDGrid(); InitCDGrid();
// initimage();
BtnStatus(True); BtnStatus(True);
Label16.Caption := 'ÐÂÔö'; Label16.Caption := 'ÐÂÔö';
end; end;
@ -2432,6 +2480,7 @@ begin
sql.Add('from JYOrder_Sub C'); sql.Add('from JYOrder_Sub C');
SQL.Add('inner join JYOrder_Main B on B.MainId=C.MainId '); SQL.Add('inner join JYOrder_Main B on B.MainId=C.MainId ');
sql.Add('where C.SubID=''' + Trim(APID.Text) + ''''); sql.Add('where C.SubID=''' + Trim(APID.Text) + '''');
// ShowMessage(sql.Text);
Open; Open;
end; end;
if ADOTmp.IsEmpty = False then if ADOTmp.IsEmpty = False then
@ -2454,6 +2503,8 @@ begin
Label25.Caption := 'É«ºÅ:' + Trim(ADOTmp.fieldbyname('SOrddefstr1').AsString); Label25.Caption := 'É«ºÅ:' + Trim(ADOTmp.fieldbyname('SOrddefstr1').AsString);
Label47.Visible := true; Label47.Visible := true;
Label47.Caption := 'ÑÕÉ«:' + Trim(ADOTmp.fieldbyname('PRTcolor').AsString); Label47.Caption := 'ÑÕÉ«:' + Trim(ADOTmp.fieldbyname('PRTcolor').AsString);
Label53.Visible := True;
label53.Caption := '客户:' + Trim(ADOTmp.fieldbyname('CustomerNoName').AsString);
if Trim(ADOTmp.fieldbyname('PRTHX').AsString) <> '' then if Trim(ADOTmp.fieldbyname('PRTHX').AsString) <> '' then
begin begin
Label2.Visible := true; Label2.Visible := true;
@ -2480,7 +2531,7 @@ begin
Label51.Visible := False; Label51.Visible := False;
Edit12.Text := ''; Edit12.Text := '';
end; 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); MJQty3.Text := Trim(ADOTmp.fieldbyname('SPiZhong').AsString);
kmxs.Text := Trim(ADOTmp.fieldbyname('kmxs').AsString); kmxs.Text := Trim(ADOTmp.fieldbyname('kmxs').AsString);
MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString); MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString);
@ -2521,7 +2572,14 @@ begin
Exit; Exit;
end; end;
APID.Text := ''; APID.Text := '';
initimage();
BTAdd.Click; BTAdd.Click;
if ADOTmp.FieldByName('iscut').Value = '1' then
begin
Edit13.Text := '√'
end
else
Edit13.Text := ''
end; end;
procedure TfrmMJManageNewFDNewSF.Edit7Click(Sender: TObject); procedure TfrmMJManageNewFDNewSF.Edit7Click(Sender: TObject);
@ -2993,5 +3051,24 @@ begin
end; end;
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. end.

206
打卷检验管理/U_OrderInPut.dfm
View File

@ -576,7 +576,7 @@ object frmOrderInPut: TfrmOrderInPut
end end
object Label38: TLabel object Label38: TLabel
Left = 568 Left = 568
Top = 40 Top = 96
Width = 67 Width = 67
Height = 12 Height = 12
Caption = #28907' '#37329#65306 Caption = #28907' '#37329#65306
@ -901,7 +901,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 20 Height = 20
Hint = 'MPRTMF/'#38376#24133 Hint = 'MPRTMF/'#38376#24133
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 46 TabOrder = 45
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -914,7 +914,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 20 Height = 20
Hint = 'MPRTKZ/'#20811#37325 Hint = 'MPRTKZ/'#20811#37325
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 52 TabOrder = 51
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -927,7 +927,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 20 Height = 20
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True ReadOnly = True
TabOrder = 43 TabOrder = 42
Visible = False Visible = False
OnBtnUpClick = MPRTCodeNameBtnUpClick OnBtnUpClick = MPRTCodeNameBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -940,7 +940,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 20 Height = 20
Hint = 'MPRTSpec/'#35268#26684 Hint = 'MPRTSpec/'#35268#26684
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 36 TabOrder = 35
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -953,7 +953,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 20 Height = 20
Hint = 'MPRTDuiSeGY/'#23545#33394#20809#28304 Hint = 'MPRTDuiSeGY/'#23545#33394#20809#28304
ReadOnly = True ReadOnly = True
TabOrder = 28 TabOrder = 27
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -967,7 +967,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'MPRTSL/'#32553#29575 Hint = 'MPRTSL/'#32553#29575
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True ReadOnly = True
TabOrder = 26 TabOrder = 25
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -979,7 +979,7 @@ object frmOrderInPut: TfrmOrderInPut
Width = 278 Width = 278
Height = 20 Height = 20
Hint = 'MPRTNiuDu/'#25968#37327#35201#27714 Hint = 'MPRTNiuDu/'#25968#37327#35201#27714
TabOrder = 19 TabOrder = 18
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -993,7 +993,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'MPRTPH/PH'#20540 Hint = 'MPRTPH/PH'#20540
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True ReadOnly = True
TabOrder = 42 TabOrder = 41
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1007,7 +1007,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'Factory/'#21518#25972#29702#21378 Hint = 'Factory/'#21518#25972#29702#21378
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True ReadOnly = True
TabOrder = 41 TabOrder = 40
Visible = False Visible = False
OnBtnUpClick = YCLFactoryBtnUpClick OnBtnUpClick = YCLFactoryBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1021,7 +1021,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'Factory/'#22383#24067#21378 Hint = 'Factory/'#22383#24067#21378
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True ReadOnly = True
TabOrder = 23 TabOrder = 22
Visible = False Visible = False
OnBtnUpClick = YCLFactoryBtnUpClick OnBtnUpClick = YCLFactoryBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1035,7 +1035,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'Factory/'#21407#26009#24037#21378 Hint = 'Factory/'#21407#26009#24037#21378
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True ReadOnly = True
TabOrder = 50 TabOrder = 49
Visible = False Visible = False
OnBtnUpClick = YCLFactoryBtnUpClick OnBtnUpClick = YCLFactoryBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1047,7 +1047,7 @@ object frmOrderInPut: TfrmOrderInPut
Width = 277 Width = 277
Height = 18 Height = 18
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 47 TabOrder = 46
Visible = False Visible = False
end end
object MPRTKaiJian: TBtnEditC object MPRTKaiJian: TBtnEditC
@ -1057,20 +1057,8 @@ object frmOrderInPut: TfrmOrderInPut
Width = 100 Width = 100
Height = 20 Height = 20
Hint = 'MPRTKaiJian/'#24320#21098 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 TabOrder = 9
Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
end end
@ -1082,7 +1070,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 20 Height = 20
Hint = 'MPRTYaoFeng/'#23553#26465 Hint = 'MPRTYaoFeng/'#23553#26465
ReadOnly = True ReadOnly = True
TabOrder = 11 TabOrder = 10
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1094,7 +1082,7 @@ object frmOrderInPut: TfrmOrderInPut
Width = 276 Width = 276
Height = 20 Height = 20
Hint = 'MPRTJiBenNote/'#33337' '#26679 Hint = 'MPRTJiBenNote/'#33337' '#26679
TabOrder = 16 TabOrder = 15
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1107,7 +1095,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 20 Height = 20
Hint = 'MPRTTeBieNote/'#21253#35013#29305#21035#25552#31034 Hint = 'MPRTTeBieNote/'#21253#35013#29305#21035#25552#31034
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 32 TabOrder = 31
Visible = False Visible = False
OnBtnUpClick = MPRTSCTeBieNoteBtnUpClick OnBtnUpClick = MPRTSCTeBieNoteBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1135,7 +1123,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'MPRTCode/'#20135#21697#32534#21495 Hint = 'MPRTCode/'#20135#21697#32534#21495
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True ReadOnly = True
TabOrder = 35 TabOrder = 34
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1149,7 +1137,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'MPRTQtyNote/'#25968#37327#35828#26126 Hint = 'MPRTQtyNote/'#25968#37327#35828#26126
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True ReadOnly = True
TabOrder = 51 TabOrder = 50
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1163,7 +1151,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'MPRTColorLaoDu1/'#24178#30952 Hint = 'MPRTColorLaoDu1/'#24178#30952
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True ReadOnly = True
TabOrder = 33 TabOrder = 32
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1177,7 +1165,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'MPRTColorLaoDu2/'#28287#30952 Hint = 'MPRTColorLaoDu2/'#28287#30952
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True ReadOnly = True
TabOrder = 31 TabOrder = 30
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1191,7 +1179,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'MPRTColorLaoDu3/'#27838#33394#29282#24230 Hint = 'MPRTColorLaoDu3/'#27838#33394#29282#24230
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True ReadOnly = True
TabOrder = 37 TabOrder = 36
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1205,7 +1193,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'MPRTColorLaoDu4/'#27700#27927#29282#24230 Hint = 'MPRTColorLaoDu4/'#27700#27927#29282#24230
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True ReadOnly = True
TabOrder = 45 TabOrder = 44
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1219,7 +1207,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'MPRTKQiQiu/'#25239#36215#29699 Hint = 'MPRTKQiQiu/'#25239#36215#29699
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True ReadOnly = True
TabOrder = 34 TabOrder = 33
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1233,7 +1221,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'MPRTDingPoLv/'#39030#30772#29575 Hint = 'MPRTDingPoLv/'#39030#30772#29575
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True ReadOnly = True
TabOrder = 49 TabOrder = 48
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1247,7 +1235,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'MPRTZuRanXing/'#38459#29123#24615 Hint = 'MPRTZuRanXing/'#38459#29123#24615
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True ReadOnly = True
TabOrder = 40 TabOrder = 39
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1260,7 +1248,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 20 Height = 20
Hint = 'MPRTKuanNO/'#27454#21495 Hint = 'MPRTKuanNO/'#27454#21495
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 53 TabOrder = 52
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1268,7 +1256,7 @@ object frmOrderInPut: TfrmOrderInPut
object MPRTTangJin: TBtnEditC object MPRTTangJin: TBtnEditC
Tag = 2 Tag = 2
Left = 630 Left = 630
Top = 34 Top = 90
Width = 100 Width = 100
Height = 20 Height = 20
Hint = 'MPRTTangJin/'#28907#37329 Hint = 'MPRTTangJin/'#28907#37329
@ -1291,7 +1279,7 @@ object frmOrderInPut: TfrmOrderInPut
Time = 40916.670856296290000000 Time = 40916.670856296290000000
ShowCheckbox = True ShowCheckbox = True
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 24 TabOrder = 23
Visible = False Visible = False
end end
object OrdDefDate2: TDateTimePicker object OrdDefDate2: TDateTimePicker
@ -1306,7 +1294,7 @@ object frmOrderInPut: TfrmOrderInPut
Time = 40916.670856296290000000 Time = 40916.670856296290000000
ShowCheckbox = True ShowCheckbox = True
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 48 TabOrder = 47
Visible = False Visible = False
end end
object OrdPerson1: TBtnEditC object OrdPerson1: TBtnEditC
@ -1317,7 +1305,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 20 Height = 20
Hint = 'OrdPerson1/'#36319#21333#21592 Hint = 'OrdPerson1/'#36319#21333#21592
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 44 TabOrder = 43
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1347,7 +1335,7 @@ object frmOrderInPut: TfrmOrderInPut
Top = 145 Top = 145
Width = 130 Width = 130
Height = 130 Height = 130
TabOrder = 13 TabOrder = 12
end end
object SYRName: TBtnEditC object SYRName: TBtnEditC
Tag = 2 Tag = 2
@ -1356,7 +1344,7 @@ object frmOrderInPut: TfrmOrderInPut
Width = 99 Width = 99
Height = 20 Height = 20
Hint = 'SYRName/'#20844#21496#21488#22836 Hint = 'SYRName/'#20844#21496#21488#22836
TabOrder = 29 TabOrder = 28
Visible = False Visible = False
OnBtnUpClick = SYRNameBtnUpClick OnBtnUpClick = SYRNameBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1369,7 +1357,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 68 Height = 68
Hint = 'MPRTBZNote/'#21253#35013#35201#27714 Hint = 'MPRTBZNote/'#21253#35013#35201#27714
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 12 TabOrder = 11
OnDblClick = MPRTBZNoteDblClick OnDblClick = MPRTBZNoteDblClick
end end
object MPRTSCTeBieNote: TMemo object MPRTSCTeBieNote: TMemo
@ -1380,7 +1368,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 68 Height = 68
Hint = 'MPRTSCTeBieNote/'#36136#37327#35201#27714 Hint = 'MPRTSCTeBieNote/'#36136#37327#35201#27714
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 14 TabOrder = 13
OnDblClick = MPRTSCTeBieNoteDblClick OnDblClick = MPRTSCTeBieNoteDblClick
end end
object Orddefstr5: TEdit object Orddefstr5: TEdit
@ -1390,7 +1378,7 @@ object frmOrderInPut: TfrmOrderInPut
Width = 98 Width = 98
Height = 18 Height = 18
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 25 TabOrder = 24
Visible = False Visible = False
end end
object orddefnote1: TMemo object orddefnote1: TMemo
@ -1401,7 +1389,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 105 Height = 105
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 21 TabOrder = 20
Visible = False Visible = False
end end
object orddefstr1: TBtnEditC object orddefstr1: TBtnEditC
@ -1412,7 +1400,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 20 Height = 20
Hint = 'orddefstr1/'#39564#36135 Hint = 'orddefstr1/'#39564#36135
ReadOnly = True ReadOnly = True
TabOrder = 30 TabOrder = 29
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1424,7 +1412,7 @@ object frmOrderInPut: TfrmOrderInPut
Width = 53 Width = 53
Height = 18 Height = 18
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 54 TabOrder = 53
Visible = False Visible = False
end end
object orddefstr4: TBtnEditC object orddefstr4: TBtnEditC
@ -1435,7 +1423,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 20 Height = 20
Hint = 'ZMTYPE/'#27491#30721 Hint = 'ZMTYPE/'#27491#30721
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 39 TabOrder = 38
Visible = False Visible = False
OnBtnUpClick = OrdDefStr2BtnUpClick OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
@ -1447,7 +1435,7 @@ object frmOrderInPut: TfrmOrderInPut
Width = 53 Width = 53
Height = 18 Height = 18
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 38 TabOrder = 37
Visible = False Visible = False
end end
object EditCnt: TcxCurrencyEdit object EditCnt: TcxCurrencyEdit
@ -1457,7 +1445,7 @@ object frmOrderInPut: TfrmOrderInPut
Properties.DecimalPlaces = 0 Properties.DecimalPlaces = 0
Properties.DisplayFormat = '#' Properties.DisplayFormat = '#'
Style.BorderStyle = ebsSingle Style.BorderStyle = ebsSingle
TabOrder = 17 TabOrder = 16
Visible = False Visible = False
Width = 73 Width = 73
end end
@ -1470,7 +1458,7 @@ object frmOrderInPut: TfrmOrderInPut
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.ShowFocusRect = False Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle Style.BorderStyle = ebsSingle
TabOrder = 18 TabOrder = 17
Visible = False Visible = False
Height = 185 Height = 185
Width = 232 Width = 232
@ -1482,7 +1470,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 25 Height = 25
Hint = 'Filesother' Hint = 'Filesother'
Caption = #21152#36733#22270#29255 Caption = #21152#36733#22270#29255
TabOrder = 20 TabOrder = 19
Visible = False Visible = False
OnClick = FileNameClick OnClick = FileNameClick
LookAndFeel.Kind = lfOffice11 LookAndFeel.Kind = lfOffice11
@ -1494,7 +1482,7 @@ object frmOrderInPut: TfrmOrderInPut
Width = 277 Width = 277
Height = 54 Height = 54
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 15 TabOrder = 14
Visible = False Visible = False
end end
object PBPrice: TcxCurrencyEdit object PBPrice: TcxCurrencyEdit
@ -1502,7 +1490,7 @@ object frmOrderInPut: TfrmOrderInPut
Left = 598 Left = 598
Top = 372 Top = 372
Properties.DisplayFormat = '0.00' Properties.DisplayFormat = '0.00'
TabOrder = 22 TabOrder = 21
Visible = False Visible = False
Width = 100 Width = 100
end end
@ -1511,7 +1499,7 @@ object frmOrderInPut: TfrmOrderInPut
Left = 62 Left = 62
Top = 396 Top = 396
Properties.DisplayFormat = '0.00' Properties.DisplayFormat = '0.00'
TabOrder = 27 TabOrder = 26
Visible = False Visible = False
Width = 100 Width = 100
end end
@ -1520,7 +1508,7 @@ object frmOrderInPut: TfrmOrderInPut
Top = 88 Top = 88
Width = 281 Width = 281
Height = 20 Height = 20
TabOrder = 55 TabOrder = 54
OnBtnClick = SLBNameBtnClick OnBtnClick = SLBNameBtnClick
end end
object Button1: TButton object Button1: TButton
@ -1529,7 +1517,7 @@ object frmOrderInPut: TfrmOrderInPut
Width = 97 Width = 97
Height = 37 Height = 37
Caption = #35774#35745#26631#31614 Caption = #35774#35745#26631#31614
TabOrder = 56 TabOrder = 55
OnClick = Button1Click OnClick = Button1Click
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
@ -1539,7 +1527,7 @@ object frmOrderInPut: TfrmOrderInPut
Height = 278 Height = 278
Align = alRight Align = alRight
Caption = #26631#31614#23637#31034 Caption = #26631#31614#23637#31034
TabOrder = 57 TabOrder = 56
object RMPreview1: TRMPreview object RMPreview1: TRMPreview
Left = 1 Left = 1
Top = 13 Top = 13
@ -1556,6 +1544,34 @@ object frmOrderInPut: TfrmOrderInPut
Options.BorderPen.Style = psDash Options.BorderPen.Style = psDash
end end
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 end
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
@ -1603,6 +1619,14 @@ object frmOrderInPut: TfrmOrderInPut
ImageIndex = 104 ImageIndex = 104
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton5: TToolButton
Left = 209
Top = 0
AutoSize = True
Caption = #19968#38190#22686#34892
ImageIndex = 105
OnClick = ToolButton5Click
end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
@ -1771,6 +1795,19 @@ object frmOrderInPut: TfrmOrderInPut
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 87 Width = 87
end 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 object v1PRTMF: TcxGridDBColumn
Caption = #38376#24133'(cm)' Caption = #38376#24133'(cm)'
DataBinding.FieldName = 'PRTMF' DataBinding.FieldName = 'PRTMF'
@ -1791,20 +1828,6 @@ object frmOrderInPut: TfrmOrderInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 62 Width = 62
end 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 object v1Column6: TcxGridDBColumn
Caption = #32553#29575'(%)' Caption = #32553#29575'(%)'
DataBinding.FieldName = 'SordQty1' DataBinding.FieldName = 'SordQty1'
@ -1828,6 +1851,37 @@ object frmOrderInPut: TfrmOrderInPut
GridView = Tv1 GridView = Tv1
end end
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 object ADOTemp: TADOQuery
Connection = DataLink_TradeManage.ADOLink Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly LockType = ltReadOnly

96
打卷检验管理/U_OrderInPut.pas
View File

@ -91,7 +91,6 @@ type
Label20: TLabel; Label20: TLabel;
MPRTKaiJian: TBtnEditC; MPRTKaiJian: TBtnEditC;
Label21: TLabel; Label21: TLabel;
MPRTChuanY: TBtnEditC;
Label22: TLabel; Label22: TLabel;
MPRTYaoFeng: TBtnEditC; MPRTYaoFeng: TBtnEditC;
Label23: TLabel; Label23: TLabel;
@ -191,6 +190,14 @@ type
RMBMPExport1: TRMBMPExport; RMBMPExport1: TRMBMPExport;
ToolButton4: TToolButton; ToolButton4: TToolButton;
QryCheckNet: TADOQuery; QryCheckNet: TADOQuery;
ToolButton5: TToolButton;
Panel1: TPanel;
cxTextEdit1: TcxTextEdit;
Button2: TButton;
Button3: TButton;
IsCut: TCheckBox;
CheckBox1: TCheckBox;
MPRTChuanY: TEdit;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -221,6 +228,10 @@ type
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure SLBNameBtnClick(Sender: TObject); procedure SLBNameBtnClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
private private
procedure InitData(); procedure InitData();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
@ -438,7 +449,7 @@ end;
procedure TfrmOrderInPut.TBCloseClick(Sender: TObject); procedure TfrmOrderInPut.TBCloseClick(Sender: TObject);
begin begin
Close; Close;
WriteCxGrid(self.Caption + TV1.Name + '1', Tv1, '生产指示单管理2'); WriteCxGrid(self.Caption + TV1.Name + '1', Tv1, '生产指示单管理33');
end; end;
procedure TfrmOrderInPut.InitData(); procedure TfrmOrderInPut.InitData();
@ -525,9 +536,21 @@ begin
end; end;
procedure TfrmOrderInPut.FormShow(Sender: TObject); procedure TfrmOrderInPut.FormShow(Sender: TObject);
var
fFileName1: string;
begin begin
readCxGrid(self.Caption + TV1.Name + '1', Tv1, '生产指示单管理2'); readCxGrid(self.Caption + TV1.Name + '1', Tv1, '生产指示单管理33');
InitData(); InitData();
panel1.Visible := false;
InitDataSetDictionary();
fFileName1 := ExtractFilePath(Application.ExeName) + 'report\' + trim(SLBName.Text);
RMGridReport1.LoadFromFile(fFileName1);
RMGridReport1.Preview := RMPreview1;
RMGridReport1.ShowReport;
end; end;
procedure TfrmOrderInPut.CJEWM(); procedure TfrmOrderInPut.CJEWM();
@ -1093,6 +1116,7 @@ begin
FieldByName('hxFile').Value := ''; FieldByName('hxFile').Value := '';
Post; Post;
end; end;
end; end;
procedure TfrmOrderInPut.ToolButton2Click(Sender: TObject); procedure TfrmOrderInPut.ToolButton2Click(Sender: TObject);
@ -1797,5 +1821,71 @@ begin
end; end;
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. end.

6
打卷检验管理/U_ProductOrderNewList.dfm
View File

@ -1,6 +1,6 @@
object frmProductOrderNewList: TfrmProductOrderNewList object frmProductOrderNewList: TfrmProductOrderNewList
Left = 464 Left = 221
Top = 256 Top = 156
Width = 1382 Width = 1382
Height = 754 Height = 754
Caption = #21253#35013#25351#31034#21333 Caption = #21253#35013#25351#31034#21333
@ -1133,7 +1133,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
TabOrder = 2 TabOrder = 2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
Properties.TabIndex = 0 Properties.TabIndex = 1
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#26410#23436#25104 #26410#23436#25104
#24050#23436#25104 #24050#23436#25104

4
打卷检验管理/U_ProductOrderNewList.pas
View File

@ -378,6 +378,8 @@ begin
Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', BegDate.DateTime); Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', BegDate.DateTime);
Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1); Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1);
Parameters.ParamByName('WSql').Value := strwhere; Parameters.ParamByName('WSql').Value := strwhere;
// showmessage(SQL.text);
// ShowMessage(strwhere);
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
@ -949,7 +951,7 @@ end;
procedure TfrmProductOrderNewList.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure TfrmProductOrderNewList.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin begin
initImage(ADOQuerySub.fieldbyname('HXFile').AsString); // initImage(ADOQuerySub.fieldbyname('HXFile').AsString);
end; end;
procedure TfrmProductOrderNewList.Picture4DblClick(Sender: TObject); procedure TfrmProductOrderNewList.Picture4DblClick(Sender: TObject);

6
打卷检验管理/U_testdll.dfm
View File

@ -1,6 +1,6 @@
object Form1: TForm1 object Form1: TForm1
Left = 153 Left = 396
Top = 124 Top = 139
Width = 791 Width = 791
Height = 554 Height = 554
Caption = 'Form1' Caption = 'Form1'
@ -21,7 +21,7 @@ object Form1: TForm1
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 783 Width = 775
Height = 25 Height = 25
ButtonWidth = 57 ButtonWidth = 57
Caption = 'ToolBar1' Caption = 'ToolBar1'

326
打卷检验管理/getpic.pas
View File

@ -3,10 +3,10 @@ unit getpic;
interface interface
uses uses
Windows, Messages, SysUtils, strUtils,Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, strUtils, Variants, Classes, Graphics, Controls,
Dialogs, ComCtrls, ToolWin, ExtCtrls, jpeg, IniFiles, ExtDlgs, Forms, Dialogs, ComCtrls, ToolWin, ExtCtrls, jpeg, IniFiles, ExtDlgs,
DelphiTwain, Buttons, StdCtrls, DB, ADODB, IdBaseComponent, IdComponent, DelphiTwain, Buttons, StdCtrls, DB, ADODB,
IdTCPConnection, IdTCPClient, IdFTP; IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP;
type type
TFormGetPic = class(TForm) TFormGetPic = class(TForm)
@ -28,15 +28,12 @@ type
SpeedButton5: TSpeedButton; SpeedButton5: TSpeedButton;
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure TwainTwainAcquire(Sender: TObject; const Index: Integer; procedure TwainTwainAcquire(Sender: TObject; const Index: Integer; Image: TBitmap; var Cancel: Boolean);
Image: TBitmap; var Cancel: Boolean);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Shift: TShiftState; X, Y: Integer); procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject);
@ -46,21 +43,21 @@ type
procedure Initimage(); procedure Initimage();
procedure SpeedButton5Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject);
private private
hWndC : THandle; hWndC: THandle;
CapturingAVI : bool; CapturingAVI: bool;
{ Private declarations } { Private declarations }
ClickPos: TPoint; ClickPos: TPoint;
SelectedSource, PicLeft, PicTop, PicWidth, PicHeight: Integer; SelectedSource, PicLeft, PicTop, PicWidth, PicHeight: Integer;
procedure CreThumb(Width, Height: Integer); procedure CreThumb(Width, Height: Integer);
function SaveImage():Boolean; function SaveImage(): Boolean;
public public
FilePath:string; FilePath: string;
FileName:string; FileName: string;
FTFType:string; FTFType: string;
pat1:string; pat1: string;
pic1:string; pic1: string;
fkeyNo:string; fkeyNo: string;
fFlileFlag:string; fFlileFlag: string;
{ Public declarations } { Public declarations }
MyJpeg: TJPEGImage; MyJpeg: TJPEGImage;
// JPStream: TMemoryStream; // JPStream: TMemoryStream;
@ -70,44 +67,73 @@ var
FormGetPic: TFormGetPic; FormGetPic: TFormGetPic;
implementation implementation
uses U_DataLink,U_Fun10;
const WM_CAP_START = WM_USER; uses
const WM_CAP_STOP = WM_CAP_START + 68; U_DataLink, U_Fun10;
const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10;
const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11; const
const WM_CAP_SAVEDIB = WM_CAP_START + 25; WM_CAP_START = WM_USER;
const WM_CAP_GRAB_FRAME = WM_CAP_START + 60;
const WM_CAP_SEQUENCE = WM_CAP_START + 62; const
const WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20; WM_CAP_STOP = WM_CAP_START + 68;
const WM_CAP_SEQUENCE_NOFILE =WM_CAP_START+ 63 ;
const WM_CAP_SET_OVERLAY =WM_CAP_START+ 51 ; const
const WM_CAP_SET_PREVIEW =WM_CAP_START+ 50 ; WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10;
const WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START +6;
const WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START +2; const
const WM_CAP_SET_CALLBACK_STATUSA= WM_CAP_START +3; WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11;
const WM_CAP_SET_CALLBACK_FRAME= WM_CAP_START +5;
const WM_CAP_SET_SCALE=WM_CAP_START+ 53 ; const
const WM_CAP_SET_PREVIEWRATE=WM_CAP_START+ 52 ; WM_CAP_SAVEDIB = WM_CAP_START + 25;
function capCreateCaptureWindowA(lpszWindowName : PCHAR;
dwStyle : longint; const
x : integer; WM_CAP_GRAB_FRAME = WM_CAP_START + 60;
y : integer;
nWidth : integer; const
nHeight : integer; WM_CAP_SEQUENCE = WM_CAP_START + 62;
ParentWin : HWND;
nId : integer): HWND; const
STDCALL EXTERNAL 'AVICAP32.DLL'; 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} {$R *.dfm}
procedure TFormGetPic.Initimage(); procedure TFormGetPic.Initimage();
var var
jpg:TJpegImage; jpg: TJpegImage;
myStream: TADOBlobStream; myStream: TADOBlobStream;
sFieldName:string; sFieldName: string;
JPStream: TMemoryStream; JPStream: TMemoryStream;
begin begin
jpg:=TJpegImage.Create(); jpg := TJpegImage.Create();
JPStream := TMemoryStream.Create; JPStream := TMemoryStream.Create;
try try
@ -115,48 +141,49 @@ begin
begin begin
close; close;
sql.Clear; 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; open;
IF not IsEmpty then if not IsEmpty then
begin begin
IF not fieldbyname(pic1).IsNull then if not fieldbyname(pic1).IsNull then
begin begin
myStream:=tadoblobstream.Create(tblobfield(adoqueryImage.fieldbyname(pic1)),bmread); myStream := tadoblobstream.Create(tblobfield(adoqueryImage.fieldbyname(pic1)), bmread);
jpg.LoadFromStream(myStream); jpg.LoadFromStream(myStream);
Image2.Picture.Assign(jpg); Image2.Picture.Assign(jpg);
myStream.Free; myStream.Free;
try try
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','服务器地址','127.0.0.1'); IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '服务器地址', '127.0.0.1');
IdFTP1.Username := 'three'; IdFTP1.Username := 'three';
IdFTP1.Password := '641010'; IdFTP1.Password := '641010';
IdFTP1.Connect(); IdFTP1.Connect();
except except
; ;
end; end;
JPStream.Clear; JPStream.Clear;
if IdFTP1.Connected then if IdFTP1.Connected then
begin begin
try try
IdFTP1.Get(fFlileFlag+'\'+ Trim(fieldbyname(pat1).AsString), JPStream); IdFTP1.Get(fFlileFlag + '\' + Trim(fieldbyname(pat1).AsString), JPStream);
except except
Application.MessageBox('客户图样文件不存在', '提示', MB_ICONWARNING); Application.MessageBox('客户图样文件不存在', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
end
else
begin
Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING);
IdFTP1.Quit; IdFTP1.Quit;
Exit; Exit;
end; end;
end
else
begin
Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
if IdFTP1.Connected then IdFTP1.Quit; if IdFTP1.Connected then
JPStream.Position := 0; IdFTP1.Quit;
jpg.LoadFromStream(JPStream); JPStream.Position := 0;
Image1.Picture.Assign(jpg); jpg.LoadFromStream(JPStream);
Image1.Picture.Assign(jpg);
end; end;
end; end;
end; end;
@ -219,7 +246,7 @@ begin
IdFTP1.Quit; IdFTP1.Quit;
except except
IdFTP1.Quit; IdFTP1.Quit;
Application.MessageBox('上传客户图样文件失败，请检查文件服务器！', '提示', MB_ICONWARNING); Application.MessageBox('上传客户图样文件失败，请检查文件服务器！', '提示', MB_ICONWARNING);
end; end;
end; end;
IdFTP1.Quit; IdFTP1.Quit;
@ -230,6 +257,7 @@ begin
end; end;
end; end;
procedure TFormGetPic.ToolButton1Click(Sender: TObject); procedure TFormGetPic.ToolButton1Click(Sender: TObject);
var var
Ini: TIniFile; Ini: TIniFile;
@ -244,7 +272,7 @@ begin
begin begin
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'scanner.ini'); Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'scanner.ini');
try try
Ini.WriteInteger( 'SCANNER', 'Scanner', SelectedSource); Ini.WriteInteger('SCANNER', 'Scanner', SelectedSource);
finally finally
Ini.Free; Ini.Free;
end; end;
@ -266,12 +294,13 @@ begin
{Load source, select transference method and enable (display interface)} {Load source, select transference method and enable (display interface)}
Twain.Source[SelectedSource].Loaded := TRUE; Twain.Source[SelectedSource].Loaded := TRUE;
Twain.Source[SelectedSource].SetICapUnits(tuInches); 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].SetIYResolution(200);
Twain.Source[SelectedSource].SetIXResolution(200); Twain.Source[SelectedSource].SetIXResolution(200);
Twain.Source[SelectedSource].TransferMode := ttmMemory; Twain.Source[SelectedSource].TransferMode := ttmMemory;
Twain.Source[SelectedSource].EnableSource(FALSE, TRUE); 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} end; {if SelectedSource <> -1}
// Twain.UnloadLibrary; // Twain.UnloadLibrary;
end end
@ -279,8 +308,7 @@ begin
ShowMessage('δ°²×°É¨ÃèÒÇ'); ShowMessage('δ°²×°É¨ÃèÒÇ');
end; end;
procedure TFormGetPic.TwainTwainAcquire(Sender: TObject; procedure TFormGetPic.TwainTwainAcquire(Sender: TObject; const Index: Integer; Image: TBitmap; var Cancel: Boolean);
const Index: Integer; Image: TBitmap; var Cancel: Boolean);
begin begin
Image1.Picture.Assign(Image); Image1.Picture.Assign(Image);
Cancel := TRUE; Cancel := TRUE;
@ -346,18 +374,18 @@ var
begin begin
Bitmap := TBitmap.Create; Bitmap := TBitmap.Create;
try try
Ratio := Image1.Picture.Graphic.Width/Image1.Picture.Graphic.Height; Ratio := Image1.Picture.Graphic.Width / Image1.Picture.Graphic.Height;
if Ratio > 1.333 then if Ratio > 1.333 then
begin begin
AHeight := Round(Width/Ratio); AHeight := Round(Width / Ratio);
AHeightOffset := (Height-AHeight) div 2; AHeightOffset := (Height - AHeight) div 2;
AWidth := Width; AWidth := Width;
AWidthOffset := 0; AWidthOffset := 0;
end end
else else
begin begin
AWidth := Round(Height*Ratio); AWidth := Round(Height * Ratio);
AWidthOffset := (Width-AWidth) div 2; AWidthOffset := (Width - AWidth) div 2;
AHeight := Height; AHeight := Height;
AHeightOffset := 0; AHeightOffset := 0;
end; end;
@ -366,10 +394,10 @@ begin
Bitmap.Canvas.Brush.Color := clBtnFace; Bitmap.Canvas.Brush.Color := clBtnFace;
Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height)); Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height));
// StretchDraw original image // 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); Bitmap.Canvas.StretchDraw(ARect, Image1.Picture.Graphic);
// Assign back to the Jpeg, and save to the file // Assign back to the Jpeg, and save to the file
Image2.Picture.Assign(BitMap); Image2.Picture.Assign(Bitmap);
// MyJpeg1.Assign(Image2.Picture.Graphic); // MyJpeg1.Assign(Image2.Picture.Graphic);
finally finally
Bitmap.Free; Bitmap.Free;
@ -380,7 +408,7 @@ procedure TFormGetPic.FormCreate(Sender: TObject);
begin begin
MyJpeg := TJpegImage.Create; MyJpeg := TJpegImage.Create;
// MyJpeg1 := TJpegImage.Create; // MyJpeg1 := TJpegImage.Create;
Button2.Enabled:=false; Button2.Enabled := false;
end; end;
procedure TFormGetPic.FormDestroy(Sender: TObject); procedure TFormGetPic.FormDestroy(Sender: TObject);
@ -389,15 +417,13 @@ begin
MyJpeg.Free; MyJpeg.Free;
end; end;
procedure TFormGetPic.Image1MouseDown(Sender: TObject; procedure TFormGetPic.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
ClickPos.x := X; ClickPos.x := X;
ClickPos.y := Y; ClickPos.y := Y;
end; end;
procedure TFormGetPic.Image1MouseMove(Sender: TObject; Shift: TShiftState; procedure TFormGetPic.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
X, Y: Integer);
var var
NewPos: TPoint; NewPos: TPoint;
begin begin
@ -405,14 +431,16 @@ begin
if ssLeft in Shift then if ssLeft in Shift then
begin begin
{Calculate new position} {Calculate new position}
NewPos.X := Image1.Left + x - ClickPos.x; NewPos.X := Image1.Left + X - ClickPos.x;
NewPos.Y := Image1.Top + y - ClickPos.y; NewPos.Y := Image1.Top + Y - ClickPos.y;
if NewPos.x + Image1.Width < ScrollBox1.Width then if NewPos.x + Image1.Width < ScrollBox1.Width then
NewPos.x := ScrollBox1.Width - Image1.Width; NewPos.x := ScrollBox1.Width - Image1.Width;
if NewPos.y + Image1.Height < ScrollBox1.Height then if NewPos.y + Image1.Height < ScrollBox1.Height then
NewPos.y := ScrollBox1.Height - Image1.Height; NewPos.y := ScrollBox1.Height - Image1.Height;
if NewPos.X > 0 then NewPos.X := 0; if NewPos.X > 0 then
if NewPos.Y > 0 then NewPos.Y := 0; NewPos.X := 0;
if NewPos.Y > 0 then
NewPos.Y := 0;
Image1.Top := NewPos.Y; Image1.Top := NewPos.Y;
Image1.Left := NewPos.X; Image1.Left := NewPos.X;
@ -426,8 +454,8 @@ begin
Image1.Top := 0; Image1.Top := 0;
Image1.Left := 0; Image1.Left := 0;
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
FilePath:=OpenPictureDialog1.FileName; FilePath := OpenPictureDialog1.FileName;
FileName:=ExtractFileName(FilePath); FileName := ExtractFileName(FilePath);
CreThumb(240, 180); CreThumb(240, 180);
SpeedButton2.Enabled := TRUE; SpeedButton2.Enabled := TRUE;
end; end;
@ -436,13 +464,13 @@ end;
procedure TFormGetPic.SpeedButton2Click(Sender: TObject); procedure TFormGetPic.SpeedButton2Click(Sender: TObject);
begin begin
IF SaveImage() then if SaveImage() then
begin begin
ModalResult := 1; ModalResult := 1;
end end
else else
begin begin
application.MessageBox('数据保存失败！','提示信息',0) application.MessageBox('数据保存失败！', '提示信息', 0)
end; end;
// JPStream := TMemoryStream.Create; // JPStream := TMemoryStream.Create;
// MyJPeg.Assign(Image1.Picture.Graphic); // MyJPeg.Assign(Image1.Picture.Graphic);
@ -459,14 +487,7 @@ procedure TFormGetPic.Button1Click(Sender: TObject);
begin begin
hWndC := 0; hWndC := 0;
try try
hWndC := capCreateCaptureWindowA('My Own Capture Window', hWndC := capCreateCaptureWindowA('My Own Capture Window', WS_CHILD or WS_VISIBLE, ScrollBox1.Left, ScrollBox1.Top, ScrollBox1.Width, ScrollBox1.Height, FormGetPic.Handle, 0);
WS_CHILD or WS_VISIBLE ,
ScrollBox1.Left,
ScrollBox1.Top,
ScrollBox1.Width,
ScrollBox1.Height,
FormGetPic.Handle,
0);
if hWndC <> 0 then if hWndC <> 0 then
begin begin
SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0); 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_SEQUENCE_NOFILE, 1, 0);
SendMessage(hWndC, WM_CAP_SET_OVERLAY, 1, 0); SendMessage(hWndC, WM_CAP_SET_OVERLAY, 1, 0);
SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0); SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0);
Button1.Enabled:=false; Button1.Enabled := false;
Button2.Enabled:=true; Button2.Enabled := true;
end end
else else
begin begin
application.MessageBox('连接摄像头失败！','错误信息',MB_ICONERROR); application.MessageBox('连接摄像头失败！', '错误信息', MB_ICONERROR);
end; end;
except except
end; end;
@ -492,74 +513,76 @@ end;
procedure TFormGetPic.Button2Click(Sender: TObject); procedure TFormGetPic.Button2Click(Sender: TObject);
var var
sFieldName:string; sFieldName: string;
MBMP:TBitmap; MBMP: TBitmap;
MJPG:TJpegImage; MJPG: TJpegImage;
begin begin
sFieldName:='D:\抓图'; sFieldName := 'D:\抓图';
if not DirectoryExists(pchar(sFieldName)) then 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 if hWndC <> 0 then
begin 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); SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);
hWndC := 0; hWndC := 0;
application.ProcessMessages; application.ProcessMessages;
Button1.Enabled:=true; Button1.Enabled := true;
Button2.Enabled:=false; Button2.Enabled := false;
try try
MBMP:= TBitmap.Create; MBMP := TBitmap.Create;
MJPG:= TJpegImage.Create; MJPG := TJpegImage.Create;
MBMP.LoadFromFile(pchar(sFieldName+'.BMP')); MBMP.LoadFromFile(pchar(sFieldName + '.BMP'));
MJPG.assign(MBMP); MJPG.assign(MBMP);
Image1.Picture.Bitmap.Assign(MJPG); Image1.Picture.Bitmap.Assign(MJPG);
application.ProcessMessages; application.ProcessMessages;
MJPG.SaveToFile(pchar(sFieldName+'.JPG')); MJPG.SaveToFile(pchar(sFieldName + '.JPG'));
CreThumb(240, 180); CreThumb(240, 180);
finally finally
MBMP.Free; MBMP.Free;
MJPG.Free; MJPG.Free;
if Fileexists(pchar(sFieldName+'.BMP')) then DeleteFile(pchar(sFieldName+'.BMP')); if Fileexists(pchar(sFieldName + '.BMP')) then
FilePath:=sFieldName+'.JPG'; DeleteFile(pchar(sFieldName + '.BMP'));
FileName:=ExtractFileName(FilePath); FilePath := sFieldName + '.JPG';
FileName := ExtractFileName(FilePath);
end; end;
SpeedButton2.Enabled:=true; SpeedButton2.Enabled := true;
end; end;
end; end;
procedure TFormGetPic.SpeedButton4Click(Sender: TObject); procedure TFormGetPic.SpeedButton4Click(Sender: TObject);
var var
MJPG:TJpegImage; MJPG: TJpegImage;
pathFile:string; pathFile: string;
begin begin
if Image1.Picture.Graphic=nil then exit; if Image1.Picture.Graphic = nil then
exit;
MJPG:= TJpegImage.Create; MJPG := TJpegImage.Create;
try try
SaveDialog1.FileName:=FileName; SaveDialog1.FileName := FileName;
if SaveDialog1.Execute then if SaveDialog1.Execute then
begin begin
if SaveDialog1.FileName<>'' then if SaveDialog1.FileName <> '' then
begin 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 begin
pathFile:=pathFile+'.JPG'; pathFile := pathFile + '.JPG';
end; end;
MJPG.Assign(Image1.Picture.Graphic); MJPG.Assign(Image1.Picture.Graphic);
if fileexists(pathFile) then if fileexists(pathFile) then
begin begin
if application.MessageBox(pchar('文件['+trim(pathFile)+']已存在，是否要替换它？'),'提示信息',MB_YESNO+mb_iconinformation+MB_DEFBUTTON2)=idyes then if application.MessageBox(pchar('文件[' + trim(pathFile) + ']已存在，是否要替换它？'), '提示信息', MB_YESNO + mb_iconinformation + MB_DEFBUTTON2) = idyes then
MJPG.SaveToFile(pathFile); MJPG.SaveToFile(pathFile);
end end
else else
MJPG.SaveToFile(pathFile); MJPG.SaveToFile(pathFile);
end; end;
end; end;
@ -576,13 +599,13 @@ begin
begin begin
close; close;
sql.Clear; 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; open;
if RecordCount>0 then if RecordCount > 0 then
begin begin
edit; edit;
fieldByName(pat1).Value:=null; fieldByName(pat1).Value := null;
FieldByName(pic1).Value:=null; FieldByName(pic1).Value := null;
post; post;
Image1.Picture.Assign(nil); Image1.Picture.Assign(nil);
Image2.Picture.Assign(nil); Image2.Picture.Assign(nil);
@ -593,3 +616,4 @@ begin
end; end;
end. end.

4
打卷检验管理/testDll.cfg
View File

@ -31,8 +31,8 @@
-M -M
-$M16384,1048576 -$M16384,1048576
-K$00400000 -K$00400000
-LE"c:\program files\borland\delphi7\Projects\Bpl" -LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"c:\program files\borland\delphi7\Projects\Bpl" -LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-w-UNSAFE_TYPE -w-UNSAFE_TYPE
-w-UNSAFE_CODE -w-UNSAFE_CODE
-w-UNSAFE_CAST -w-UNSAFE_CAST