Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

部分修改

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-24 17:37:00 +08:00
parent b27c0bc6f1
commit 763891523b
8 changed files with 550 additions and 615 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
云翔一码通/U_YMTJGWCList.dfm
View File

@ -1,6 +1,6 @@
object frmYMTJGWCList: TfrmYMTJGWCList object frmYMTJGWCList: TfrmYMTJGWCList
Left = 631 Left = 433
Top = 430 Top = 674
Width = 1370 Width = 1370
Height = 750 Height = 750
Caption = #21152#24037#23436#25104#22238#20179#25968#25454 Caption = #21152#24037#23436#25104#22238#20179#25968#25454
@ -321,34 +321,34 @@ object frmYMTJGWCList: TfrmYMTJGWCList
Options.Editing = False Options.Editing = False
Width = 83 Width = 83
end end
object TV1SHDanWei: TcxGridDBColumn object TV1FactoryName: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21152#24037#21333#20301 Caption = #21152#24037#21333#20301
DataBinding.FieldName = 'SHDanWei' DataBinding.FieldName = 'FactoryName'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 101 Width = 101
end end
object TV1MXPrtName: TcxGridDBColumn object TV1SPName: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'MXPrtName' DataBinding.FieldName = 'SPName'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 97 Width = 97
end end
object TV1MXPrtColor: TcxGridDBColumn object TV1SPColor: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'MXPrtColor' DataBinding.FieldName = 'SPColor'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 69 Width = 69
end end
object TV1MXPrtHX: TcxGridDBColumn object TV1SPHX: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'MXPrtHX' DataBinding.FieldName = 'SPHX'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70

13
云翔一码通/U_YMTJGWCList.pas
View File

@ -67,10 +67,10 @@ type
TV1CRTime: TcxGridDBColumn; TV1CRTime: TcxGridDBColumn;
TV1CRType: TcxGridDBColumn; TV1CRType: TcxGridDBColumn;
TV1FSId: TcxGridDBColumn; TV1FSId: TcxGridDBColumn;
TV1MXPrtColor: TcxGridDBColumn; TV1SPColor: TcxGridDBColumn;
TV1MXPrtHX: TcxGridDBColumn; TV1SPHX: TcxGridDBColumn;
TV1SHDanWei: TcxGridDBColumn; TV1FactoryName: TcxGridDBColumn;
TV1MXPrtName: TcxGridDBColumn; TV1SPName: TcxGridDBColumn;
TV1Qty: TcxGridDBColumn; TV1Qty: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel; cxGrid2Level1: TcxGridLevel;
Label13: TLabel; Label13: TLabel;
@ -172,10 +172,9 @@ begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select A.FromMXID, A.Qty, A.CRType, A.CRTime, A.KuWei,B.*, C.SHDanWei '); sql.Add(' select A.*,B.FSId, B.SCConNo');
sql.Add(' from YMT_CK_CR A'); sql.Add(' from YMT_CK_CR A');
sql.Add(' JOIN YMT_FHSQ_Sub B ON B.SSID = A.ToSSID'); sql.Add(' JOIN YMT_FHSQ_Sub B ON B.SSID = A.FromSSID');
sql.Add(' JOIN YMT_FHSQ_Main C ON C.FSId = B.FSId');
sql.add(' where A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); sql.add(' where A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.CRTime<=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); sql.Add(' and A.CRTime<=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
sql.Add(' and isnull(A.CKName,'''')=''ÃæÁÏ'''); sql.Add(' and isnull(A.CKName,'''')=''ÃæÁÏ''');

242
云翔生产管理(MYSC.dll)/U_MLProductOrderNewList.dfm
View File

@ -1,13 +1,13 @@
object frmMLProductOrderNewList: TfrmMLProductOrderNewList object frmMLProductOrderNewList: TfrmMLProductOrderNewList
Left = 189 Left = 1165
Top = 134 Top = 440
Width = 1121 Width = 1121
Height = 687 Height = 687
Caption = #38754#26009#26579#33394#35745#21010#21333 Caption = #38754#26009#26579#33394#35745#21010#21333
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -16,12 +16,12 @@ object frmMLProductOrderNewList: TfrmMLProductOrderNewList
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 107 PixelsPerInch = 96
TextHeight = 13 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1105 Width = 1113
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -139,145 +139,145 @@ object frmMLProductOrderNewList: TfrmMLProductOrderNewList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1105 Width = 1113
Height = 66 Height = 60
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label1: TLabel object Label1: TLabel
Left = 25 Left = 23
Top = 14 Top = 13
Width = 56 Width = 52
Height = 13 Height = 12
Caption = #19979#21333#26085#26399 Caption = #19979#21333#26085#26399
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 202 Left = 186
Top = 14 Top = 13
Width = 42 Width = 39
Height = 13 Height = 12
Caption = #25351#31034#21333 Caption = #25351#31034#21333
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 362 Left = 334
Top = 14 Top = 13
Width = 60 Width = 54
Height = 13 Height = 12
Caption = #23458' '#25143 Caption = #23458' '#25143
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label9: TLabel object Label9: TLabel
Left = 202 Left = 186
Top = 40 Top = 37
Width = 42 Width = 39
Height = 13 Height = 12
Caption = #21512#21516#21495 Caption = #21512#21516#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label12: TLabel object Label12: TLabel
Left = 664 Left = 613
Top = 129 Top = 119
Width = 28 Width = 26
Height = 13 Height = 12
Caption = #20811#37325 Caption = #20811#37325
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 362 Left = 334
Top = 40 Top = 37
Width = 56 Width = 52
Height = 13 Height = 12
Caption = #21152#24037#31867#22411 Caption = #21152#24037#31867#22411
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 544 Left = 502
Top = 14 Top = 13
Width = 42 Width = 39
Height = 13 Height = 12
Caption = #36319#21333#21592 Caption = #36319#21333#21592
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 544 Left = 502
Top = 40 Top = 37
Width = 42 Width = 39
Height = 13 Height = 12
Caption = #19994#21153#21592 Caption = #19994#21153#21592
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 704 Left = 650
Top = 14 Top = 13
Width = 56 Width = 52
Height = 13 Height = 12
Caption = #23457#26680#29366#24577 Caption = #23457#26680#29366#24577
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 83 Left = 77
Top = 10 Top = 9
Width = 97 Width = 89
Height = 21 Height = 20
Date = 40675.464742650460000000 Date = 40675.464742650460000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 40675.464742650460000000 Time = 40675.464742650460000000
TabOrder = 0 TabOrder = 0
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 83 Left = 77
Top = 36 Top = 33
Width = 97 Width = 89
Height = 21 Height = 20
Date = 40675.464761099540000000 Date = 40675.464761099540000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000 Time = 40675.464761099540000000
@ -285,74 +285,74 @@ object frmMLProductOrderNewList: TfrmMLProductOrderNewList
end end
object MLOrderNo: TEdit object MLOrderNo: TEdit
Tag = 2 Tag = 2
Left = 246 Left = 227
Top = 10 Top = 9
Width = 84 Width = 78
Height = 21 Height = 21
TabOrder = 2 TabOrder = 2
OnChange = MLOrderNoChange OnChange = MLOrderNoChange
end end
object KHName: TEdit object KHName: TEdit
Tag = 2 Tag = 2
Left = 424 Left = 391
Top = 10 Top = 9
Width = 87 Width = 81
Height = 21 Height = 21
TabOrder = 3 TabOrder = 3
OnChange = MLOrderNoChange OnChange = MLOrderNoChange
end end
object MLConNo: TEdit object MLConNo: TEdit
Tag = 2 Tag = 2
Left = 246 Left = 227
Top = 36 Top = 33
Width = 84 Width = 78
Height = 21 Height = 21
TabOrder = 4 TabOrder = 4
OnChange = MLOrderNoChange OnChange = MLOrderNoChange
end end
object MPRTKZ: TEdit object MPRTKZ: TEdit
Tag = 2 Tag = 2
Left = 709 Left = 654
Top = 107 Top = 99
Width = 60 Width = 56
Height = 21 Height = 21
TabOrder = 5 TabOrder = 5
OnChange = MLOrderNoChange OnChange = MLOrderNoChange
end end
object JGType: TEdit object JGType: TEdit
Tag = 2 Tag = 2
Left = 424 Left = 391
Top = 36 Top = 33
Width = 87 Width = 81
Height = 21 Height = 21
TabOrder = 6 TabOrder = 6
OnChange = MLOrderNoChange OnChange = MLOrderNoChange
end end
object GenDan: TEdit object GenDan: TEdit
Tag = 2 Tag = 2
Left = 591 Left = 546
Top = 10 Top = 9
Width = 87 Width = 80
Height = 21 Height = 21
TabOrder = 7 TabOrder = 7
OnChange = MLOrderNoChange OnChange = MLOrderNoChange
end end
object YWY: TEdit object YWY: TEdit
Tag = 2 Tag = 2
Left = 591 Left = 546
Top = 36 Top = 33
Width = 87 Width = 80
Height = 21 Height = 21
TabOrder = 8 TabOrder = 8
OnChange = MLOrderNoChange OnChange = MLOrderNoChange
end end
object status: TComboBox object status: TComboBox
Tag = 2 Tag = 2
Left = 764 Left = 705
Top = 10 Top = 9
Width = 112 Width = 104
Height = 21 Height = 20
ItemHeight = 13 ItemHeight = 12
TabOrder = 9 TabOrder = 9
OnChange = MLOrderNoChange OnChange = MLOrderNoChange
Items.Strings = ( Items.Strings = (
@ -364,15 +364,15 @@ object frmMLProductOrderNewList: TfrmMLProductOrderNewList
end end
object Cxgrid1: TcxGrid object Cxgrid1: TcxGrid
Left = 0 Left = 0
Top = 98 Top = 92
Width = 1105 Width = 1113
Height = 329 Height = 361
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv1CellDblClick OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -476,23 +476,23 @@ object frmMLProductOrderNewList: TfrmMLProductOrderNewList
end end
end end
object Panel4: TPanel object Panel4: TPanel
Left = 555 Left = 512
Top = 124 Top = 114
Width = 251 Width = 232
Height = 234 Height = 216
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
object Label14: TLabel object Label14: TLabel
Left = 52 Left = 48
Top = 95 Top = 88
Width = 7 Width = 6
Height = 13 Height = 12
end end
object Panel10: TPanel object Panel10: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 249 Width = 230
Height = 25 Height = 23
Align = alTop Align = alTop
Alignment = taLeftJustify Alignment = taLeftJustify
BevelOuter = bvNone BevelOuter = bvNone
@ -500,17 +500,17 @@ object frmMLProductOrderNewList: TfrmMLProductOrderNewList
Color = clSkyBlue Color = clSkyBlue
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -17
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
OnMouseMove = Panel10MouseMove OnMouseMove = Panel10MouseMove
object Image2: TImage object Image2: TImage
Left = 223 Left = 206
Top = 3 Top = 3
Width = 24 Width = 22
Height = 18 Height = 16
ParentShowHint = False ParentShowHint = False
Picture.Data = { Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500 07544269746D617076040000424D760400000000000036000000280000001500
@ -556,19 +556,19 @@ object frmMLProductOrderNewList: TfrmMLProductOrderNewList
end end
end end
object Button1: TButton object Button1: TButton
Left = 84 Left = 78
Top = 198 Top = 183
Width = 81 Width = 74
Height = 27 Height = 25
Caption = #30830#23450 Caption = #30830#23450
TabOrder = 1 TabOrder = 1
OnClick = Button1Click OnClick = Button1Click
end end
object RadioGroup1: TRadioGroup object RadioGroup1: TRadioGroup
Left = 48 Left = 44
Top = 27 Top = 25
Width = 161 Width = 149
Height = 166 Height = 153
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
#38754#26009#35745#21010#21333 #38754#26009#35745#21010#21333
@ -578,8 +578,8 @@ object frmMLProductOrderNewList: TfrmMLProductOrderNewList
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 427 Top = 453
Width = 1105 Width = 1113
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
@ -587,21 +587,21 @@ object frmMLProductOrderNewList: TfrmMLProductOrderNewList
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 435 Top = 461
Width = 1105 Width = 1113
Height = 212 Height = 195
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 5 TabOrder = 5
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1105 Width = 1113
Height = 212 Height = 195
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource2 DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <

17
云翔生产管理(MYSC.dll)/U_MLProductOrderNewList.pas
View File

@ -13,7 +13,22 @@ uses
cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System,
RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu, cxPC, cxSplitter, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu, cxPC, cxSplitter,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI,
cxCheckBox; cxCheckBox, cxLookAndFeels, cxLookAndFeelPainters, 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,
cxNavigator;
type type
TfrmMLProductOrderNewList = class(TForm) TfrmMLProductOrderNewList = class(TForm)

384
云翔生产管理(MYSC.dll)/U_ZHCPInPut.dfm
View File

@ -1,6 +1,6 @@
object frmZHCPInPut: TfrmZHCPInPut object frmZHCPInPut: TfrmZHCPInPut
Left = 243 Left = 852
Top = 133 Top = 266
Width = 1431 Width = 1431
Height = 770 Height = 770
Caption = #20844#21496#20135#21697#24405#20837 Caption = #20844#21496#20135#21697#24405#20837
@ -87,49 +87,9 @@ object frmZHCPInPut: TfrmZHCPInPut
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
object Image11: TImage
Left = 364
Top = 90
Width = 57
Height = 49
Visible = False
end
object Image22: TImage
Left = 353
Top = 260
Width = 75
Height = 57
Visible = False
end
object Label5: TLabel
Left = 577
Top = 336
Width = 64
Height = 15
Caption = #21407#22270#35828#26126
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 135
Top = 335
Width = 64
Height = 15
Caption = #21407#22270#35828#26126
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel object Label7: TLabel
Left = 579 Left = 579
Top = 384 Top = 355
Width = 59 Width = 59
Height = 15 Height = 15
Caption = #22791' '#27880 Caption = #22791' '#27880
@ -142,7 +102,7 @@ object frmZHCPInPut: TfrmZHCPInPut
end end
object Label8: TLabel object Label8: TLabel
Left = 136 Left = 136
Top = 387 Top = 358
Width = 59 Width = 59
Height = 15 Height = 15
Caption = #21697' '#21517 Caption = #21697' '#21517
@ -155,7 +115,7 @@ object frmZHCPInPut: TfrmZHCPInPut
end end
object Label9: TLabel object Label9: TLabel
Left = 136 Left = 136
Top = 440 Top = 411
Width = 66 Width = 66
Height = 15 Height = 15
Caption = #21407' '#22791' '#27880 Caption = #21407' '#22791' '#27880
@ -363,61 +323,12 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Panel4: TPanel object image22: TImage
Left = 824 Left = 560
Top = 53 Top = 260
Width = 541 Width = 75
Height = 121 Height = 57
Color = clSkyBlue
TabOrder = 24
Visible = False Visible = False
object Button3: TButton
Left = 72
Top = 36
Width = 149
Height = 57
Caption = #26825
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -35
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = Button3Click
end
object Button4: TButton
Left = 292
Top = 35
Width = 149
Height = 57
Caption = #38754#26009
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = Button4Click
end
end
object Panel6: TPanel
Left = 520
Top = 48
Width = 294
Height = 274
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Image1: TImage
Left = 200
Top = 208
Width = 75
Height = 57
Visible = False
OnDblClick = Image1DblClick
end
end end
object Panel5: TPanel object Panel5: TPanel
Left = 2 Left = 2
@ -425,7 +336,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Width = 1419 Width = 1419
Height = 38 Height = 38
Align = alTop Align = alTop
TabOrder = 1 TabOrder = 0
object Label12: TLabel object Label12: TLabel
Left = 208 Left = 208
Top = 12 Top = 12
@ -505,8 +416,8 @@ object frmZHCPInPut: TfrmZHCPInPut
ParentFont = False ParentFont = False
end end
object Label10: TLabel object Label10: TLabel
Left = 1068 Left = 833
Top = 9 Top = 12
Width = 48 Width = 48
Height = 15 Height = 15
Caption = #20135#37327#65306 Caption = #20135#37327#65306
@ -518,8 +429,8 @@ object frmZHCPInPut: TfrmZHCPInPut
ParentFont = False ParentFont = False
end end
object Label11: TLabel object Label11: TLabel
Left = 829 Left = 981
Top = 9 Top = 12
Width = 64 Width = 64
Height = 15 Height = 15
Caption = #33457#22411#21495#65306 Caption = #33457#22411#21495#65306
@ -530,6 +441,19 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label1: TLabel
Left = 1220
Top = 12
Width = 80
Height = 15
Caption = #33457#22411#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object ZIKZ: TEdit object ZIKZ: TEdit
Tag = 2 Tag = 2
Left = 277 Left = 277
@ -562,7 +486,7 @@ object frmZHCPInPut: TfrmZHCPInPut
object ZICF: TEdit object ZICF: TEdit
Tag = 2 Tag = 2
Left = 435 Left = 435
Top = 8 Top = 9
Width = 207 Width = 207
Height = 21 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -577,7 +501,7 @@ object frmZHCPInPut: TfrmZHCPInPut
object ZIID: TEdit object ZIID: TEdit
Tag = 9 Tag = 9
Left = 702 Left = 702
Top = 8 Top = 9
Width = 111 Width = 111
Height = 21 Height = 21
Color = clMenu Color = clMenu
@ -592,8 +516,8 @@ object frmZHCPInPut: TfrmZHCPInPut
end end
object ZICL: TEdit object ZICL: TEdit
Tag = 2 Tag = 2
Left = 1110 Left = 875
Top = 6 Top = 9
Width = 97 Width = 97
Height = 21 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -607,8 +531,8 @@ object frmZHCPInPut: TfrmZHCPInPut
end end
object HXNO: TBtnEditC object HXNO: TBtnEditC
Tag = 2 Tag = 2
Left = 890 Left = 1042
Top = 5 Top = 9
Width = 175 Width = 175
Height = 21 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -621,52 +545,31 @@ object frmZHCPInPut: TfrmZHCPInPut
OnBtnUpClick = HXNOBtnUpClick OnBtnUpClick = HXNOBtnUpClick
OnBtnDnClick = HXNOBtnDnClick OnBtnDnClick = HXNOBtnDnClick
end end
end object HXNM: TEdit
object Panel8: TPanel Tag = 2
Left = 437 Left = 1302
Top = 48 Top = 9
Width = 86 Width = 97
Height = 274 Height = 21
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object Label1: TLabel
Left = 10
Top = 48
Width = 72
Height = 17
Caption = #26631#31614#22270#29255
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end ReadOnly = True
object Button1: TButton TabOrder = 6
Left = 5
Top = 101
Width = 75
Height = 56
Caption = #36873#25321#22270#29255
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = Button1Click
end end
end end
object Panel66: TPanel object Panel66: TPanel
Left = 12 Left = 219
Top = 48 Top = 48
Width = 247 Width = 247
Height = 274 Height = 274
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 3 PopupMenu = pm1
TabOrder = 1
object Image2: TImage object Image2: TImage
Left = 161 Left = 161
Top = 208 Top = 208
@ -695,21 +598,6 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object btn1: TButton
Left = 9
Top = 55
Width = 51
Height = 26
Caption = #26159
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = Button2Click
end
object Panel13: TPanel object Panel13: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
@ -773,11 +661,12 @@ object frmZHCPInPut: TfrmZHCPInPut
FF00} FF00}
ShowHint = True ShowHint = True
Transparent = True Transparent = True
OnClick = img1Click
end end
end end
object WJName: TEdit object WJName: TEdit
Left = 61 Left = 61
Top = 28 Top = 27
Width = 134 Width = 134
Height = 20 Height = 20
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -788,9 +677,9 @@ object frmZHCPInPut: TfrmZHCPInPut
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
end end
object btn2: TButton object Cancel: TButton
Left = 141 Left = 136
Top = 55 Top = 56
Width = 49 Width = 49
Height = 25 Height = 25
Caption = #21542 Caption = #21542
@ -800,7 +689,8 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 3
OnClick = CancelClick
end end
object WJPach: TEdit object WJPach: TEdit
Left = 83 Left = 83
@ -813,10 +703,10 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 4
end end
object btn3: TButton object Rename: TButton
Left = 76 Left = 28
Top = 55 Top = 55
Width = 50 Width = 50
Height = 25 Height = 25
@ -827,18 +717,19 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 2
OnClick = RenameClick
end end
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 258 Left = 465
Top = 48 Top = 48
Width = 86 Width = 86
Height = 274 Height = 274
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 4 TabOrder = 2
object Label3: TLabel object Label3: TLabel
Left = 10 Left = 10
Top = 48 Top = 48
@ -882,45 +773,13 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 3
Visible = False Visible = False
end end
object Edit1: TEdit
Tag = 99
Left = 437
Top = 356
Width = 377
Height = 21
Color = clMenu
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 6
end
object Edit2: TEdit
Tag = 99
Left = 14
Top = 356
Width = 323
Height = 21
Color = clMenu
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 7
end
object ZIGY: TMemo object ZIGY: TMemo
Tag = 9 Tag = 9
Left = 437 Left = 437
Top = 407 Top = 378
Width = 377 Width = 377
Height = 136 Height = 136
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -929,12 +788,12 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 8 TabOrder = 4
end end
object ZIName: TEdit object ZIName: TEdit
Tag = 9 Tag = 9
Left = 14 Left = 14
Top = 407 Top = 377
Width = 323 Width = 323
Height = 23 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -943,12 +802,12 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 9 TabOrder = 5
end end
object Note: TMemo object Note: TMemo
Tag = 9 Tag = 9
Left = 14 Left = 14
Top = 456 Top = 427
Width = 323 Width = 323
Height = 88 Height = 88
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -957,7 +816,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 10 TabOrder = 6
end end
object MianBu: TBtnEditA object MianBu: TBtnEditA
Tag = 9 Tag = 9
@ -966,7 +825,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Width = 150 Width = 150
Height = 23 Height = 23
ReadOnly = True ReadOnly = True
TabOrder = 11 TabOrder = 7
OnBtnClick = MianBuBtnClick OnBtnClick = MianBuBtnClick
end end
object ZhongJianC: TBtnEditA object ZhongJianC: TBtnEditA
@ -976,7 +835,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Width = 150 Width = 150
Height = 23 Height = 23
ReadOnly = True ReadOnly = True
TabOrder = 12 TabOrder = 8
OnBtnClick = ZhongJianCBtnClick OnBtnClick = ZhongJianCBtnClick
end end
object DiBu: TBtnEditA object DiBu: TBtnEditA
@ -985,7 +844,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Top = 104 Top = 104
Width = 150 Width = 150
Height = 23 Height = 23
TabOrder = 13 TabOrder = 9
OnBtnClick = DiBuBtnClick OnBtnClick = DiBuBtnClick
end end
object DiBuName: TBtnEditA object DiBuName: TBtnEditA
@ -994,7 +853,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Top = 104 Top = 104
Width = 200 Width = 200
Height = 23 Height = 23
TabOrder = 14 TabOrder = 10
OnBtnClick = DiBuNameBtnClick OnBtnClick = DiBuNameBtnClick
end end
object ZhongJianCName: TEdit object ZhongJianCName: TEdit
@ -1009,7 +868,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 15 TabOrder = 11
end end
object ZhongJianCID: TEdit object ZhongJianCID: TEdit
Tag = 9 Tag = 9
@ -1024,7 +883,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
ReadOnly = True ReadOnly = True
TabOrder = 16 TabOrder = 12
Visible = False Visible = False
end end
object DiBuID: TEdit object DiBuID: TEdit
@ -1040,7 +899,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
ReadOnly = True ReadOnly = True
TabOrder = 17 TabOrder = 13
Visible = False Visible = False
end end
object MianBuName: TBtnEditA object MianBuName: TBtnEditA
@ -1049,7 +908,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Top = 54 Top = 54
Width = 200 Width = 200
Height = 23 Height = 23
TabOrder = 18 TabOrder = 14
OnBtnClick = MianBuNameBtnClick OnBtnClick = MianBuNameBtnClick
end end
object MBCBDJ: TEdit object MBCBDJ: TEdit
@ -1064,7 +923,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 19 TabOrder = 15
OnChange = MBCBDJChange OnChange = MBCBDJChange
end end
object DBCBDJ: TEdit object DBCBDJ: TEdit
@ -1079,7 +938,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 20 TabOrder = 16
OnChange = MBCBDJChange OnChange = MBCBDJChange
end end
object MHDJ: TEdit object MHDJ: TEdit
@ -1094,7 +953,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 21 TabOrder = 17
OnChange = MBCBDJChange OnChange = MBCBDJChange
end end
object XHJGFDJ: TEdit object XHJGFDJ: TEdit
@ -1109,7 +968,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 22 TabOrder = 18
OnChange = MBCBDJChange OnChange = MBCBDJChange
end end
object CPCBDJ: TEdit object CPCBDJ: TEdit
@ -1125,7 +984,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 23 TabOrder = 19
end end
object TSHGYCB: TEdit object TSHGYCB: TEdit
Tag = 9 Tag = 9
@ -1139,7 +998,7 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 25 TabOrder = 21
OnChange = MBCBDJChange OnChange = MBCBDJChange
end end
object CPSSL: TEdit object CPSSL: TEdit
@ -1154,32 +1013,71 @@ object frmZHCPInPut: TfrmZHCPInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 26 TabOrder = 22
end
object Panel4: TPanel
Left = 824
Top = 53
Width = 541
Height = 121
Color = clSkyBlue
TabOrder = 20
Visible = False
object Button3: TButton
Left = 72
Top = 36
Width = 149
Height = 57
Caption = #26825
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -35
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = Button3Click
end
object Button4: TButton
Left = 292
Top = 35
Width = 149
Height = 57
Caption = #38754#26009
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = Button4Click
end
end end
end end
object ADOTemp: TADOQuery object ADOTemp: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 773 Left = 833
Top = 317 Top = 287
end end
object ADOCmd: TADOQuery object ADOCmd: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
Parameters = <> Parameters = <>
Left = 621 Left = 561
Top = 317 Top = 287
end end
object ADOQuery1: TADOQuery object ADOQuery1: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
Parameters = <> Parameters = <>
Left = 659 Left = 629
Top = 317 Top = 287
end end
object CDS_PRT: TClientDataSet object CDS_PRT: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 621 Left = 561
Top = 355 Top = 355
end end
object RM1: TRMGridReport object RM1: TRMGridReport
@ -1199,8 +1097,8 @@ object frmZHCPInPut: TfrmZHCPInPut
CompressThread = False CompressThread = False
LaterBuildEvents = True LaterBuildEvents = True
OnlyOwnerDataSet = False OnlyOwnerDataSet = False
Left = 773 Left = 561
Top = 355 Top = 423
ReportData = {} ReportData = {}
end end
object ODPat: TOpenDialog object ODPat: TOpenDialog
@ -1213,29 +1111,37 @@ object frmZHCPInPut: TfrmZHCPInPut
ReadTimeout = 0 ReadTimeout = 0
ProxySettings.ProxyType = fpcmNone ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0 ProxySettings.Port = 0
Left = 659 Left = 629
Top = 355 Top = 355
end end
object SaveDialog1: TSaveDialog object SaveDialog1: TSaveDialog
Left = 621 Left = 629
Top = 393 Top = 423
end end
object adoqueryPicture: TADOQuery object adoqueryPicture: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
Parameters = <> Parameters = <>
Left = 735 Left = 765
Top = 317 Top = 287
end end
object RMDBMain: TRMDBDataSet object RMDBMain: TRMDBDataSet
Visible = True Visible = True
DataSet = CDS_PRT DataSet = CDS_PRT
Left = 735 Left = 833
Top = 355 Top = 355
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
Parameters = <> Parameters = <>
Left = 697 Left = 697
Top = 317 Top = 287
end
object pm1: TPopupMenu
Left = 765
Top = 355
object MenuItem2: TMenuItem
Caption = #37325#21629#21517
OnClick = MenuItem2Click
end
end end
end end

482
云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas
View File

@ -12,7 +12,7 @@ uses
cxDropDownEdit, jpeg, IdBaseComponent, IdComponent, IdTCPConnection, cxDropDownEdit, jpeg, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox,
cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport,
IniFiles; IniFiles, Menus;
type type
TfrmZHCPInPut = class(TForm) TfrmZHCPInPut = class(TForm)
@ -26,7 +26,6 @@ type
CDS_PRT: TClientDataSet; CDS_PRT: TClientDataSet;
RM1: TRMGridReport; RM1: TRMGridReport;
Panel3: TPanel; Panel3: TPanel;
Panel6: TPanel;
Panel5: TPanel; Panel5: TPanel;
Label12: TLabel; Label12: TLabel;
Label14: TLabel; Label14: TLabel;
@ -36,13 +35,9 @@ type
ZIKZ: TEdit; ZIKZ: TEdit;
ZIMF: TEdit; ZIMF: TEdit;
ZICF: TEdit; ZICF: TEdit;
Panel8: TPanel;
Button1: TButton;
ODPat: TOpenDialog; ODPat: TOpenDialog;
Image1: TImage;
IdFTP1: TIdFTP; IdFTP1: TIdFTP;
SaveDialog1: TSaveDialog; SaveDialog1: TSaveDialog;
Label1: TLabel;
Panel66: TPanel; Panel66: TPanel;
Image2: TImage; Image2: TImage;
Panel2: TPanel; Panel2: TPanel;
@ -53,13 +48,7 @@ type
ZIID: TEdit; ZIID: TEdit;
adoqueryPicture: TADOQuery; adoqueryPicture: TADOQuery;
Panel1: TPanel; Panel1: TPanel;
Image11: TImage;
Image22: TImage;
RMDBMain: TRMDBDataSet; RMDBMain: TRMDBDataSet;
Label5: TLabel;
Edit1: TEdit;
Label6: TLabel;
Edit2: TEdit;
ZIGY: TMemo; ZIGY: TMemo;
Label7: TLabel; Label7: TLabel;
Label8: TLabel; Label8: TLabel;
@ -106,18 +95,21 @@ type
CPSSL: TEdit; CPSSL: TEdit;
Panel12: TPanel; Panel12: TPanel;
Label32: TLabel; Label32: TLabel;
btn1: TButton;
Panel13: TPanel; Panel13: TPanel;
img1: TImage; img1: TImage;
WJName: TEdit; WJName: TEdit;
btn2: TButton; Cancel: TButton;
WJPach: TEdit; WJPach: TEdit;
btn3: TButton; Rename: TButton;
image22: TImage;
Label1: TLabel;
HXNM: TEdit;
pm1: TPopupMenu;
MenuItem2: TMenuItem;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
@ -134,6 +126,10 @@ type
procedure HXNOBtnDnClick(Sender: TObject); procedure HXNOBtnDnClick(Sender: TObject);
procedure HXNOBtnUpClick(Sender: TObject); procedure HXNOBtnUpClick(Sender: TObject);
procedure MBCBDJChange(Sender: TObject); procedure MBCBDJChange(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure RenameClick(Sender: TObject);
procedure CancelClick(Sender: TObject);
procedure img1Click(Sender: TObject);
private private
lstPat, lstPat2: TStringList; lstPat, lstPat2: TStringList;
FangXiang1, FangXiang2: string; FangXiang1, FangXiang2: string;
@ -262,42 +258,11 @@ begin
sql.Add(' where ZIID=''' + Trim(FMainId) + ''''); sql.Add(' where ZIID=''' + Trim(FMainId) + '''');
Open; Open;
end; end;
SCSHDataNew(ADOQuery1, Panel5, 9); SCSHDataNew(ADOQuery1, Panel5, 9);
SCSHDataNew(ADOQuery1, Panel5, 2); SCSHDataNew(ADOQuery1, Panel5, 2);
SCSHDataNew(ADOQuery1, Panel3, 9); SCSHDataNew(ADOQuery1, Panel3, 9);
with adoqueryPicture do
begin
Close;
sql.Clear;
sql.Add('select * from Image_Info A');
sql.Add(' inner join Image_File B on A.IMID=B.IMID');
sql.Add(' and A.WBID=''' + Trim(FMainId) + '''');
sql.Add(' and isnull(A.IMNo,'''')=''内容'' and A.Valid=''Y'' ');
Open;
end;
if (adoqueryPicture.IsEmpty = False) and (CopyInt <> 99) then
begin
FStr := Trim(adoqueryPicture.fieldbyname('ImageName').AsString);
Edit1.Text := Copy(FStr, 1, Length(FStr) - 4);
jpg := TJpegImage.Create();
myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('ImageFile')), bmread);
jpg.LoadFromStream(myStream);
Image1.Picture.Assign(jpg);
Image1.Width := adoqueryPicture.fieldbyname('ImageWidth').Value;
Image1.Height := adoqueryPicture.fieldbyname('ImageHeight').Value;
if Trim(adoqueryPicture.fieldbyname('FangXiang').AsString) = '垂直' then
begin
Image1.Top := 1;
Image1.Left := Round((Panel6.Width - Image1.Width) / 2);
end
else
begin
Image1.Left := 1;
Image1.Top := Round((Panel6.Height - Image1.Height) / 2);
end;
Image1.Visible := True;
end;
with adoqueryPicture do with adoqueryPicture do
begin begin
Close; Close;
@ -312,7 +277,6 @@ begin
if (adoqueryPicture.IsEmpty = False) and (CopyInt <> 99) then if (adoqueryPicture.IsEmpty = False) and (CopyInt <> 99) then
begin begin
FStr := Trim(adoqueryPicture.fieldbyname('ImageName').AsString); FStr := Trim(adoqueryPicture.fieldbyname('ImageName').AsString);
Edit2.Text := Copy(FStr, 1, Length(FStr) - 4);
jpg := TJpegImage.Create(); jpg := TJpegImage.Create();
myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('ImageFile')), bmread); myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('ImageFile')), bmread);
jpg.LoadFromStream(myStream); jpg.LoadFromStream(myStream);
@ -334,7 +298,6 @@ begin
if TBSave.Visible = False then if TBSave.Visible = False then
begin begin
Button1.Visible := False;
Button2.Visible := False; Button2.Visible := False;
ZIMF.Color := ZIID.Color; ZIMF.Color := ZIID.Color;
ZIKZ.Color := ZIID.Color; ZIKZ.Color := ZIID.Color;
@ -428,14 +391,10 @@ begin
end; end;
RTSetsavedata(ADOCmd, 'ZH_CP_Info', Panel5, 2); RTSetsavedata(ADOCmd, 'ZH_CP_Info', Panel5, 2);
RTSetsavedata(ADOCmd, 'ZH_CP_Info', Panel3, 9); RTSetsavedata(ADOCmd, 'ZH_CP_Info', Panel3, 9);
FieldByName('HXNM').Value := Trim(HXNO.TxtCode); // FieldByName('HXNM').Value := Trim(HXNO.TxtCode);
Post; Post;
end; end;
if Trim(Image1.Hint) <> '' then
begin
SaveImage(maxno, '内容');
end;
if Trim(Image2.Hint) <> '' then if Trim(Image2.Hint) <> '' then
begin begin
SaveImage(maxno, '图片'); SaveImage(maxno, '图片');
@ -500,24 +459,13 @@ begin
// Application.MessageBox('底布编号和底布名称不能都为空!', '提示', 0); // Application.MessageBox('底布编号和底布名称不能都为空!', '提示', 0);
// Exit; // Exit;
// end; // end;
// if Trim(MianBuName.Text) = '' then // if Trim(MianBuName.Text) = '' then
// begin // begin
// Application.MessageBox('面布名称不能为空!', '提示', 0); // Application.MessageBox('面布名称不能为空!', '提示', 0);
// Exit; // Exit;
// end; // end;
if Trim(MHDJ.Text) = '' then
begin
Application.MessageBox('棉花单价不能为空!', '提示', 0);
Exit;
end;
if Trim(XHJGFDJ.Text) = '' then
begin
Application.MessageBox('绣花加工费单价不能为空!', '提示', 0);
Exit;
end;
end; end;
if Trim(ZICL.Text) = '' then if Trim(ZICL.Text) = '' then
@ -551,18 +499,15 @@ var
ImagePath, ImagName, MaxNo, MaxNoFile: string; ImagePath, ImagName, MaxNo, MaxNoFile: string;
AJpeg: TJPEGImage; AJpeg: TJPEGImage;
myStream: TADOBlobStream; myStream: TADOBlobStream;
LocalFileName: string; // 添加的本地变量
begin begin
try try
if Trim(FIMNO) = '内容' then if Trim(FIMNO) = '图片' then
begin
ImagePath := Image1.Hint;
ImagName := Image1.Hint;
end
else if Trim(FIMNO) = '图片' then
begin begin
ImagePath := Image2.Hint; ImagePath := Image2.Hint;
ImagName := Image2.Hint; ImagName := Image2.Hint;
end; end;
AJpeg := TJpegImage.Create(); AJpeg := TJpegImage.Create();
with ADOCmd do with ADOCmd do
begin begin
@ -620,19 +565,14 @@ begin
sql.Add(' select * from Image_File where 1=2'); sql.Add(' select * from Image_File where 1=2');
open; open;
end; end;
with ADOCmd do with ADOCmd do
begin begin
Append; Append;
FieldByName('IMID').Value := Trim(MaxNo); FieldByName('IMID').Value := Trim(MaxNo);
FieldByName('IFID').Value := Trim(MaxNoFile); FieldByName('IFID').Value := Trim(MaxNoFile);
Fieldbyname('Valid').value := Trim('Y'); Fieldbyname('Valid').value := Trim('Y');
if Trim(FIMNO) = '内容' then if Trim(FIMNO) = '图片' then
begin
FieldByName('ImageWidth').Value := Image1.Width;
FieldByName('ImageHeight').Value := Image1.Height;
FieldByName('FangXiang').Value := FangXiang1;
end
else if Trim(FIMNO) = '图片' then
begin begin
FieldByName('ImageWidth').Value := Image2.Width; FieldByName('ImageWidth').Value := Image2.Width;
FieldByName('ImageHeight').Value := Image2.Height; FieldByName('ImageHeight').Value := Image2.Height;
@ -640,11 +580,7 @@ begin
end; end;
FieldByName('IFType').Value := '小'; FieldByName('IFType').Value := '小';
myStream := TADOBlobStream.Create(TBlobField(ADOCmd.FieldByName('ImageFile')), bmWrite); myStream := TADOBlobStream.Create(TBlobField(ADOCmd.FieldByName('ImageFile')), bmWrite);
if Trim(FIMNO) = '内容' then if Trim(FIMNO) = '图片' then
begin
AJpeg.Assign(Image1.Picture.Graphic);
end
else if Trim(FIMNO) = '图片' then
begin begin
AJpeg.Assign(Image2.Picture.Graphic); AJpeg.Assign(Image2.Picture.Graphic);
end; end;
@ -652,19 +588,14 @@ begin
myStream.Free; myStream.Free;
Post; Post;
end; end;
with ADOCmd do with ADOCmd do
begin begin
Append; Append;
FieldByName('IMID').Value := Trim(MaxNo); FieldByName('IMID').Value := Trim(MaxNo);
FieldByName('IFID').Value := Trim(MaxNoFile) + 'D'; FieldByName('IFID').Value := Trim(MaxNoFile) + 'D';
Fieldbyname('Valid').value := Trim('Y'); Fieldbyname('Valid').value := Trim('Y');
if Trim(FIMNO) = '内容' then if Trim(FIMNO) = '图片' then
begin
FieldByName('ImageWidth').Value := Image11.Width;
FieldByName('ImageHeight').Value := Image11.Height;
FieldByName('FangXiang').Value := FangXiang1;
end
else if Trim(FIMNO) = '图片' then
begin begin
FieldByName('ImageWidth').Value := Image22.Width; FieldByName('ImageWidth').Value := Image22.Width;
FieldByName('ImageHeight').Value := Image22.Height; FieldByName('ImageHeight').Value := Image22.Height;
@ -672,11 +603,7 @@ begin
end; end;
FieldByName('IFType').Value := '大'; FieldByName('IFType').Value := '大';
myStream := TADOBlobStream.Create(TBlobField(ADOCmd.FieldByName('ImageFile')), bmWrite); myStream := TADOBlobStream.Create(TBlobField(ADOCmd.FieldByName('ImageFile')), bmWrite);
if Trim(FIMNO) = '内容' then if Trim(FIMNO) = '图片' then
begin
AJpeg.Assign(Image11.Picture.Graphic);
end
else if Trim(FIMNO) = '图片' then
begin begin
AJpeg.Assign(Image22.Picture.Graphic); AJpeg.Assign(Image22.Picture.Graphic);
end; end;
@ -684,6 +611,7 @@ begin
myStream.Free; myStream.Free;
Post; Post;
end; end;
try try
ReadINIFile10(); ReadINIFile10();
server := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '服务器地址', '127.0.0.1'); server := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '服务器地址', '127.0.0.1');
@ -696,6 +624,7 @@ begin
Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING); Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING);
Exit; Exit;
end; end;
if IdFTP1.Connected then if IdFTP1.Connected then
begin begin
if Trim(FIMNO) = '内容' then if Trim(FIMNO) = '内容' then
@ -704,7 +633,7 @@ begin
end end
else if Trim(FIMNO) = '图片' then else if Trim(FIMNO) = '图片' then
begin begin
IdFTP1.Put(lstPat2[0], 'YP' + '\' + Trim(MaxNo) + Trim(ImagName)); IdFTP1.Put(LocalFileName, 'YP' + '\' + Trim(MaxNo) + ImagName);
end; end;
end; end;
if IdFTP1.Connected then if IdFTP1.Connected then
@ -720,93 +649,6 @@ begin
ModalResult := 1; ModalResult := 1;
end; end;
procedure TfrmZHCPInPut.Button1Click(Sender: TObject);
var
AJpeg: TJPEGImage;
Bitmap, Bitmap11: TBitmap;
ARect, ARect11: TRect;
TPHeight, AHeightOffset: Integer;
TPWidth, AWidthOffset: Integer;
WZShuiPing, WZChuiZhi: Integer;
WZFlag: string;
FHFStr: string;
begin
lstPat.Clear;
if ODPat.Execute then
begin
lstPat.AddStrings(ODPat.Files);
end
else
begin
Exit;
end;
if lstPat.Count > 1 then
begin
lstPat.Clear;
Application.MessageBox('不能上传多个图片!', '提示', 0);
Exit;
end
else if lstPat.Count < 1 then
begin
Exit;
end;
Panel1.Visible := True;
Panel1.Refresh;
Panel6.Color := clBtnFace;
Panel6.Hint := '';
AJpeg := TJpegImage.Create();
AJpeg.LoadFromFile(ExtractFileName(ODPat.FileName));
Image1.Hint := ExtractFileName(ODPat.FileName);
if Copy(Image1.Hint, Length(Image1.Hint) - 2, Length(Image1.Hint)) <> 'jpg' then
begin
Application.MessageBox('图片必须是jpg格式', '提示', 0);
Exit;
end;
TPWidth := AJpeg.Width;
TPHeight := AJpeg.Height;
Bitmap := TBitmap.Create;
Bitmap11 := TBitmap.Create;
Bitmap.Width := Panel6.Width - 2;
Bitmap.Height := Round(Panel6.Width / TPWidth * TPHeight);
if Bitmap.Height > Panel6.Height then
begin
WZFlag := '垂直';
Bitmap.Height := Panel6.Height - 2;
Bitmap.Width := Round(Panel6.Height / TPHeight * TPWidth);
end;
Bitmap11.Width := Bitmap.Width * 2;
Bitmap11.Height := Bitmap.Height * 2;
Bitmap.Canvas.FillRect(Rect(0, 0, Bitmap.Width, Bitmap.Height));
ARect := Rect(0, 0, Bitmap.Width, Bitmap.Height);
Bitmap.Canvas.StretchDraw(ARect, AJpeg);
Image1.Height := Bitmap.Height;
Image1.Width := Bitmap.Width;
Image1.Picture.Assign(Bitmap);
if Trim(WZFlag) = '垂直' then
begin
Image1.Top := 1;
Image1.Left := Round((Panel6.Width - Image1.Width) / 2);
end
else
begin
Image1.Left := 1;
Image1.Top := Round((Panel6.Height - Image1.Height) / 2);
end;
FangXiang1 := WZFlag;
Image1.Visible := True;
Bitmap11.Canvas.FillRect(Rect(0, 0, Bitmap11.Width, Bitmap11.Height));
ARect11 := Rect(0, 0, Bitmap11.Width, Bitmap11.Height);
Bitmap11.Canvas.StretchDraw(ARect11, AJpeg);
Image11.Height := Bitmap11.Height;
Image11.Width := Bitmap11.Width;
Image11.Picture.Assign(Bitmap11);
// Image11.Visible:=True;
Edit1.Text := Copy(Image1.Hint, 1, Length(Image1.Hint) - 4);
StrFenHang(Edit1.Text, FHFStr);
ZIGY.Text := FHFStr;
Panel1.Visible := False;
end;
function TfrmZHCPInPut.StrFenHang(FStr: string; var FHStr: string): Boolean; function TfrmZHCPInPut.StrFenHang(FStr: string; var FHStr: string): Boolean;
var var
i, j: Integer; i, j: Integer;
@ -866,12 +708,18 @@ var
AJpeg: TJPEGImage; AJpeg: TJPEGImage;
Bitmap, Bitmap22: TBitmap; Bitmap, Bitmap22: TBitmap;
ARect, ARect22: TRect; ARect, ARect22: TRect;
TPHeight, AHeightOffset: Integer; TPHeight: Integer;
TPWidth, AWidthOffset: Integer; TPWidth: Integer;
WZShuiPing, WZChuiZhi: Integer;
WZFlag: string; WZFlag: string;
FullFileName: string;
FileExt: string;
begin begin
// 初始化变量
WZFlag := ''; // 重要：初始化变量
lstPat2.Clear; lstPat2.Clear;
// 文件选择对话框
if ODPat.Execute then if ODPat.Execute then
begin begin
lstPat2.AddStrings(ODPat.Files); lstPat2.AddStrings(ODPat.Files);
@ -880,6 +728,8 @@ begin
begin begin
Exit; Exit;
end; end;
// 文件数量验证
if lstPat2.Count > 1 then if lstPat2.Count > 1 then
begin begin
lstPat2.Clear; lstPat2.Clear;
@ -890,59 +740,130 @@ begin
begin begin
Exit; Exit;
end; end;
// 显示加载面板
Panel1.Visible := True; Panel1.Visible := True;
Panel1.Refresh; Panel1.Refresh;
AJpeg := TJpegImage.Create();
AJpeg.LoadFromFile(ExtractFileName(ODPat.FileName)); // 使用完整文件路径
Image2.Hint := ExtractFileName(ODPat.FileName); FullFileName := ODPat.FileName; // 获取完整路径
//ShowMessage(Copy(Image2.Hint,Length(Image2.Hint)-2,Length(Image2.Hint))); // 检查文件是否存在
if Copy(Image2.Hint, Length(Image2.Hint) - 2, Length(Image2.Hint)) <> 'jpg' then if not FileExists(FullFileName) then
begin begin
Application.MessageBox('图片必须是jpg格式', '提示', 0); Application.MessageBox(PChar('文件不存在: ' + FullFileName), '错误', 0);
Panel1.Visible := False;
Exit; Exit;
end; end;
TPWidth := AJpeg.Width;
TPHeight := AJpeg.Height; AJpeg := TJpegImage.Create();
Bitmap := TBitmap.Create; Bitmap := nil;
Bitmap22 := TBitmap.Create; Bitmap22 := nil;
Bitmap.Width := Panel66.Width - 2;
Bitmap.Height := Round(Panel66.Width / TPWidth * TPHeight); try
if Bitmap.Height > Panel66.Height then try
begin // 加载JPEG文件（使用完整路径）
WZFlag := '垂直'; AJpeg.LoadFromFile(FullFileName);
Bitmap.Height := Panel66.Height - 2;
Bitmap.Width := Round(Panel66.Height / TPHeight * TPWidth); // 验证JPEG文件是否有效
if (AJpeg.Width <= 0) or (AJpeg.Height <= 0) then
begin
Application.MessageBox('图片文件已损坏或格式不支持!', '错误', 0);
Exit;
end;
// 存储完整路径到Hint
Image2.Hint := FullFileName;
// 改进的文件格式检查
FileExt := LowerCase(ExtractFileExt(FullFileName));
if (FileExt <> '.jpg') and (FileExt <> '.jpeg') then
begin
Application.MessageBox('图片必须是jpg格式', '提示', 0);
Exit;
end;
// 获取图片尺寸
TPWidth := AJpeg.Width;
TPHeight := AJpeg.Height;
// 创建位图对象
Bitmap := TBitmap.Create;
Bitmap22 := TBitmap.Create;
// 计算缩放尺寸
Bitmap.Width := Panel66.Width - 2;
Bitmap.Height := Round(Panel66.Width / TPWidth * TPHeight);
// 如果高度超出面板，则按高度缩放
if Bitmap.Height > Panel66.Height then
begin
WZFlag := '垂直';
Bitmap.Height := Panel66.Height - 2;
Bitmap.Width := Round(Panel66.Height / TPHeight * TPWidth);
end;
// 创建双倍尺寸的位图
Bitmap22.Width := Bitmap.Width * 2;
Bitmap22.Height := Bitmap.Height * 2;
// 绘制小图
Bitmap.Canvas.FillRect(Rect(0, 0, Bitmap.Width, Bitmap.Height));
ARect := Rect(0, 0, Bitmap.Width, Bitmap.Height);
Bitmap.Canvas.StretchDraw(ARect, AJpeg);
// 显示小图
Image2.Height := Bitmap.Height;
Image2.Width := Bitmap.Width;
Image2.Picture.Assign(Bitmap);
// 根据方向设置图片位置
if Trim(WZFlag) = '垂直' then
begin
Image2.Top := 1;
Image2.Left := Round((Panel66.Width - Image2.Width) / 2);
end
else
begin
Image2.Left := 1;
Image2.Top := Round((Panel66.Height - Image2.Height) / 2);
end;
// 保存方向信息
FangXiang2 := WZFlag;
// 绘制大图
Bitmap22.Canvas.FillRect(Rect(0, 0, Bitmap22.Width, Bitmap22.Height));
ARect22 := Rect(0, 0, Bitmap22.Width, Bitmap22.Height);
Bitmap22.Canvas.StretchDraw(ARect22, AJpeg);
// 显示大图
Image22.Height := Bitmap22.Height;
Image22.Width := Bitmap22.Width;
Image22.Picture.Assign(Bitmap22);
Image2.Visible := True;
ZIName.Text := ChangeFileExt(ExtractFileName(FullFileName), '');
Panel12.Visible := True;
except
on E: Exception do
begin
Application.MessageBox(PChar('加载图片时发生错误: ' + E.Message), '错误', 0);
end;
end;
finally
// 确保资源被释放
if Assigned(AJpeg) then
AJpeg.Free;
if Assigned(Bitmap) then
Bitmap.Free;
if Assigned(Bitmap22) then
Bitmap22.Free;
Panel1.Visible := False;
end; end;
Bitmap22.Width := Bitmap.Width * 2;
Bitmap22.Height := Bitmap.Height * 2;
Bitmap.Canvas.FillRect(Rect(0, 0, Bitmap.Width, Bitmap.Height));
ARect := Rect(0, 0, Bitmap.Width, Bitmap.Height);
Bitmap.Canvas.StretchDraw(ARect, AJpeg);
Image2.Height := Bitmap.Height;
Image2.Width := Bitmap.Width;
Image2.Picture.Assign(Bitmap);
if Trim(WZFlag) = '垂直' then
begin
Image2.Top := 1;
Image2.Left := Round((Panel66.Width - Image2.Width) / 2);
end
else
begin
Image2.Left := 1;
Image2.Top := Round((Panel66.Height - Image2.Height) / 2);
end;
FangXiang2 := WZFlag;
Bitmap22.Canvas.FillRect(Rect(0, 0, Bitmap22.Width, Bitmap22.Height));
ARect22 := Rect(0, 0, Bitmap22.Width, Bitmap22.Height);
Bitmap22.Canvas.StretchDraw(ARect22, AJpeg);
Image22.Height := Bitmap22.Height;
Image22.Width := Bitmap22.Width;
Image22.Picture.Assign(Bitmap22);
Image2.Visible := True;
Edit2.Text := Copy(Image2.Hint, 1, Length(Image2.Hint) - 4);
if CopyInt <> 99 then
ZIName.Text := Edit2.Text;
Panel1.Visible := False;
end; end;
procedure TfrmZHCPInPut.ToolButton1Click(Sender: TObject); procedure TfrmZHCPInPut.ToolButton1Click(Sender: TObject);
@ -1263,7 +1184,8 @@ begin
begin begin
HXNO.text := Trim(CDS_HZ.fieldbyname('zdyCode').AsString); HXNO.text := Trim(CDS_HZ.fieldbyname('zdyCode').AsString);
ZICL.text := Trim(CDS_HZ.fieldbyname('defstr1').AsString); ZICL.text := Trim(CDS_HZ.fieldbyname('defstr1').AsString);
HXNO.TxtCode := Trim(CDS_HZ.fieldbyname('ZdyName').AsString); // HXNO.TxtCode := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
HXNM.text := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
end; end;
end; end;
finally finally
@ -1284,5 +1206,95 @@ begin
end; end;
procedure TfrmZHCPInPut.MenuItem2Click(Sender: TObject);
begin
if lstPat2.Count < 1 then
exit;
Panel12.Visible := True;
Cancel.Visible := True;
Rename.Visible := True;
Panel12.Refresh;
WJName.Text := Trim(Image2.Hint);
WJName.Hint := Trim(Image2.Hint);
end;
procedure TfrmZHCPInPut.RenameClick(Sender: TObject);
var
OldFileName, NewFileName, FileExt: string;
begin
// 检查是否有图片被加载
if Trim(Image2.Hint) = '' then
begin
Application.MessageBox('请先选择图片!', '提示', 0);
Exit;
end;
// 检查新文件名是否为空
if Trim(WJName.Text) = '' then
begin
Application.MessageBox('请输入新文件名!', '提示', 0);
Exit;
end;
// 检查原文件是否存在
if not FileExists(Image2.Hint) then
begin
Application.MessageBox('原图片文件不存在，可能已被删除或移动!', '错误', 0);
Exit;
end;
// 获取当前文件名和扩展名
OldFileName := Image2.Hint;
FileExt := ExtractFileExt(OldFileName); // 获取原文件的扩展名
// 构建新文件名（保持相同目录和扩展名）
NewFileName := ExtractFilePath(OldFileName) + Trim(WJName.Text) + FileExt;
// 检查新文件是否已存在（且不是同一个文件）
if (NewFileName <> OldFileName) and FileExists(NewFileName) then
begin
if Application.MessageBox(PChar('文件 "' + ExtractFileName(NewFileName) + '" 已存在，是否覆盖?'), '提示', MB_YESNO + MB_ICONQUESTION) = IDNO then
Exit;
end;
// 执行重命名
if RenameFile(OldFileName, NewFileName) then
begin
// 更新所有相关变量
Image2.Hint := NewFileName; // 更新Hint中的完整路径
// 更新lstPat2中的文件路径
if lstPat2.Count > 0 then
lstPat2[0] := NewFileName
else
lstPat2.Add(NewFileName);
// 更新界面显示（只显示文件名，不含扩展名）
// Edit2.Text := Trim(WJName.Text);
// 如果CopyInt不是99，也更新ZIName
if CopyInt <> 99 then
ZIName.Text := Trim(WJName.Text);
Application.MessageBox(PChar('文件已成功重命名为: ' + ExtractFileName(NewFileName)), '成功', MB_ICONINFORMATION);
// 可选：记录操作日志
// WriteToLog('图片重命名: ' + ExtractFileName(OldFileName) + ' -> ' + ExtractFileName(NewFileName));
Panel12.Visible := False;
end
else
begin
Application.MessageBox('重命名失败，请检查文件是否被占用或权限不足!', '错误', MB_ICONERROR);
end;
end;
procedure TfrmZHCPInPut.CancelClick(Sender: TObject);
begin
panel12.Visible := False;
end;
procedure TfrmZHCPInPut.img1Click(Sender: TObject);
begin
Panel12.Visible := False;
end;
end. end.

5
样品新云翔(YPGLBOM.dll)/ProjectGroup1.bpg
View File

@ -9,7 +9,7 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $** DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
PROJECTS = testDll.exe PROJECTS = testDll.exe YPGLBOM.dll
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
@ -17,4 +17,7 @@ default: $(PROJECTS)
testDll.exe: testDll.dpr testDll.exe: testDll.dpr
$(DCC) $(DCC)
YPGLBOM.dll: YPGLBOM.dpr
$(DCC)

2
样品新云翔(YPGLBOM.dll)/YPGLBOM.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\马国钢开发代码\项目代码\云翔\样品新云翔(YPGLBOM.dll)\testDll.exe HostApplication=D:\Project\D7myYunxiang\样品新云翔(YPGLBOM.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=