Group_01/D7YPDJlingyao
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
43fbfa8db2
D7YPDJlingyao/样品(YPGL.dll)/U_CPAdd.dfm
DESKTOP-E401PHE\Administrator 43fbfa8db2 ~
2025-07-19 16:53:04 +08:00

744 lines
17 KiB
Plaintext
Raw Blame History

object frmCPAdd: TfrmCPAdd
Left = 432
Top = 240
Width = 1021
Height = 498
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1005
Height = 30
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_YPGL.ThreeImgList
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Images = DataLink_YPGL.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 14
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
object ToolButton2: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #26631#31614#25171#21360
ImageIndex = 12
OnClick = ToolButton2Click
end
object ComboBox1: TComboBox
Left = 213
Top = 3
Width = 166
Height = 24
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 16
ItemIndex = 0
ParentFont = False
TabOrder = 1
Text = #26679#21697#26631#31614
Items.Strings = (
#26679#21697#26631#31614
#23567#26679#26631#31614
#25968#30721#31859#26679
#33337#26679#26631#31614
'')
end
object Panel1: TPanel
Left = 379
Top = 0
Width = 304
Height = 30
BevelOuter = bvNone
Color = clSkyBlue
TabOrder = 0
object Label21: TLabel
Left = 173
Top = 10
Width = 24
Height = 12
Caption = #20221#25968
end
object CheckBox1: TCheckBox
Left = 26
Top = 7
Width = 97
Height = 17
Caption = #38376#24133#21333#20301#33521#23544
TabOrder = 0
OnClick = CheckBox1Click
end
object Edit1: TEdit
Left = 131
Top = 6
Width = 38
Height = 20
TabOrder = 1
end
end
end
object Panel2: TPanel
Left = 0
Top = 30
Width = 1005
Height = 429
Align = alClient
BevelOuter = bvNone
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 41
Top = 26
Width = 85
Height = 16
Caption = #20135#21697#32534#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 687
Top = 26
Width = 87
Height = 16
Caption = #35268' '#26684#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 39
Top = 68
Width = 87
Height = 16
Caption = #20811' '#37325#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 371
Top = 237
Width = 87
Height = 16
Caption = #33457' '#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 687
Top = 68
Width = 87
Height = 16
Caption = #26550' '#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 41
Top = 237
Width = 85
Height = 16
Caption = #20013#25991#21697#21517#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 41
Top = 195
Width = 85
Height = 16
Caption = #20013#25991#25104#20998#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 373
Top = 68
Width = 85
Height = 16
Caption = #26377#25928#38376#24133#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 689
Top = 153
Width = 85
Height = 16
Caption = #20013#25991#39068#33394#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 371
Top = 280
Width = 87
Height = 16
Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label18: TLabel
Left = 373
Top = 26
Width = 85
Height = 16
Caption = #33521#25991#25104#20998#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 373
Top = 151
Width = 85
Height = 16
Caption = #33521#25991#39068#33394#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 423
Top = 195
Width = 35
Height = 16
Caption = 'PO'#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 356
Top = 110
Width = 102
Height = 16
Caption = #20379#24212#21830#32534#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 688
Top = 110
Width = 86
Height = 16
Caption = #20379' '#24212' '#21830#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 689
Top = 193
Width = 85
Height = 16
Caption = #24037#21378#32593#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 39
Top = 153
Width = 87
Height = 16
Caption = #20215' '#26684#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 39
Top = 110
Width = 87
Height = 16
Caption = #25968' '#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label17: TLabel
Left = 16
Top = 318
Width = 137
Height = 16
Caption = #31859#25968'/'#24211#20301'/'#39068#33394#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 686
Top = 233
Width = 102
Height = 16
Caption = #23458#25143#35746#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 41
Top = 276
Width = 68
Height = 16
Caption = #27611#38376#24133#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CYNo: TEdit
Left = 121
Top = 22
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnKeyPress = CYNoKeyPress
end
object CYSpec: TEdit
Left = 769
Top = 22
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnKeyPress = CYECFKeyPress
end
object CYKZ: TEdit
Left = 121
Top = 64
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnKeyPress = CYECFKeyPress
end
object CYHX: TEdit
Left = 453
Top = 233
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 16
OnKeyPress = CYECFKeyPress
end
object KuWei: TEdit
Left = 769
Top = 64
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
OnKeyPress = CYECFKeyPress
end
object CYName: TEdit
Left = 121
Top = 233
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 15
OnKeyPress = CYECFKeyPress
end
object CYECF: TEdit
Left = 453
Top = 22
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnKeyPress = CYECFKeyPress
end
object CYMF: TEdit
Left = 453
Top = 64
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnKeyPress = CYECFKeyPress
end
object CYColor: TEdit
Left = 769
Top = 149
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 10
OnKeyPress = CYECFKeyPress
end
object CYEColor: TEdit
Left = 453
Top = 147
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 11
OnKeyPress = CYECFKeyPress
end
object Note: TEdit
Left = 453
Top = 276
Width = 532
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 17
OnKeyPress = CYECFKeyPress
end
object CYCF: TBtnEditC
Left = 121
Top = 190
Width = 201
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 12
OnKeyPress = CYECFKeyPress
OnBtnUpClick = CYCFBtnUpClick
OnBtnDnClick = CYCFBtnDnClick
end
object CYPO: TEdit
Left = 453
Top = 191
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 13
OnKeyPress = CYECFKeyPress
end
object CYFacNO: TEdit
Left = 453
Top = 106
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
OnKeyPress = CYECFKeyPress
end
object MGNO: TEdit
Left = 769
Top = 189
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 14
OnExit = CYMFExit
OnKeyPress = CYECFKeyPress
end
object CYPrice: TEdit
Left = 121
Top = 149
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 9
OnKeyPress = CYECFKeyPress
end
object Qty: TEdit
Left = 121
Top = 106
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 6
OnKeyPress = CYECFKeyPress
end
object CYFacName: TBtnEditC
Left = 769
Top = 106
Width = 201
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 8
OnKeyPress = CYECFKeyPress
OnBtnUpClick = CYFacNameBtnUpClick
end
object MSKWYS: TcxMemo
Left = 144
Top = 305
TabOrder = 18
Height = 93
Width = 829
end
object KHorderno: TEdit
Left = 777
Top = 229
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 19
OnKeyPress = CYECFKeyPress
end
object MMF: TEdit
Left = 121
Top = 272
Width = 200
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 20
OnKeyPress = CYECFKeyPress
end
end
object ADOQueryMain: TADOQuery
Connection = DataLink_YPGL.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 521
Top = 37
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_YPGL.ADOLink
Parameters = <>
Left = 573
Top = 33
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_YPGL.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 613
Top = 45
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = ADOQueryPrint
Left = 964
Top = 180
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_YPGL.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 325
Top = 117
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 964
Top = 140
ReportData = {}
end
end
Reference in New Issue View Git Blame Copy Permalink