1
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
402fc58484
commit
2966ca178b
23
打卷检验管理/ProjectGroup2.bpg
Normal file
23
打卷检验管理/ProjectGroup2.bpg
Normal 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)
|
||||
|
||||
|
||||
|
|
@ -1,3 +1,5 @@
|
|||
[SERVER]
|
||||
服务器地址=127.0.0.1
|
||||
软件名称=XXXXXXX1
|
||||
服务器地址=101.132.143.144
|
||||
服务器地址类型=3021
|
||||
是否自动更新=1
|
||||
软件名称=打卷检验管理软件
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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 }
|
||||
|
|
@ -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)); // ?? 改成用 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.
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
|
|
@ -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'
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
@ -70,33 +67,62 @@ 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}
|
||||
|
||||
|
|
@ -117,9 +143,9 @@ begin
|
|||
sql.Clear;
|
||||
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);
|
||||
jpg.LoadFromStream(myStream);
|
||||
|
|
@ -153,7 +179,8 @@ begin
|
|||
Exit;
|
||||
end;
|
||||
|
||||
if IdFTP1.Connected then IdFTP1.Quit;
|
||||
if IdFTP1.Connected then
|
||||
IdFTP1.Quit;
|
||||
JPStream.Position := 0;
|
||||
jpg.LoadFromStream(JPStream);
|
||||
Image1.Picture.Assign(jpg);
|
||||
|
|
@ -230,6 +257,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TFormGetPic.ToolButton1Click(Sender: TObject);
|
||||
var
|
||||
Ini: TIniFile;
|
||||
|
|
@ -271,7 +299,8 @@ begin
|
|||
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;
|
||||
|
|
@ -369,7 +397,7 @@ begin
|
|||
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;
|
||||
|
|
@ -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;
|
||||
|
|
@ -436,7 +464,7 @@ end;
|
|||
procedure TFormGetPic.SpeedButton2Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
IF SaveImage() then
|
||||
if SaveImage() then
|
||||
begin
|
||||
ModalResult := 1;
|
||||
end
|
||||
|
|
@ -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);
|
||||
|
|
@ -524,7 +545,8 @@ begin
|
|||
finally
|
||||
MBMP.Free;
|
||||
MJPG.Free;
|
||||
if Fileexists(pchar(sFieldName+'.BMP')) then DeleteFile(pchar(sFieldName+'.BMP'));
|
||||
if Fileexists(pchar(sFieldName + '.BMP')) then
|
||||
DeleteFile(pchar(sFieldName + '.BMP'));
|
||||
FilePath := sFieldName + '.JPG';
|
||||
FileName := ExtractFileName(FilePath);
|
||||
end;
|
||||
|
|
@ -537,7 +559,8 @@ var
|
|||
MJPG: TJpegImage;
|
||||
pathFile: string;
|
||||
begin
|
||||
if Image1.Picture.Graphic=nil then exit;
|
||||
if Image1.Picture.Graphic = nil then
|
||||
exit;
|
||||
|
||||
MJPG := TJpegImage.Create;
|
||||
try
|
||||
|
|
@ -548,7 +571,7 @@ begin
|
|||
begin
|
||||
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';
|
||||
end;
|
||||
|
|
@ -593,3 +616,4 @@ begin
|
|||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user