D7myYunxiang/云翔生产管理(MYSC.dll)/U_LLCKInPut.dfm

1040 lines
26 KiB
Plaintext
Raw Normal View History

2025-07-05 15:14:36 +08:00
object frmLLCKInPut: TfrmLLCKInPut
Left = 531
Top = 184
Width = 1172
Height = 835
Caption = #21152#24037#20986#24211
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 15
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1164
Height = 30
ButtonHeight = 30
ButtonWidth = 123
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
Images = DataLink_MYSC.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object Label26: TLabel
Left = 0
Top = 0
Width = 36
Height = 30
Caption = ' '
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TBSave: TToolButton
Left = 36
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 5
OnClick = TBSaveClick
end
object ToolButton1: TToolButton
Left = 119
Top = 0
Caption = #36873#25321#25968#25454
ImageIndex = 22
OnClick = ToolButton1Click
end
object Panel2: TPanel
Left = 242
Top = 0
Width = 185
Height = 30
BevelOuter = bvNone
TabOrder = 0
end
object labMYType: TLabel
Left = 427
Top = 0
Width = 240
Height = 30
Caption = ' '
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Panel6: TPanel
Left = 667
Top = 0
Width = 185
Height = 30
BevelOuter = bvNone
TabOrder = 1
end
object TBClose: TToolButton
Left = 852
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object Panel3: TPanel
Left = 0
Top = 30
Width = 1164
Height = 774
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Panel4: TPanel
Left = 2
Top = 2
Width = 1160
Height = 246
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label13: TLabel
Left = 412
Top = 15
Width = 74
Height = 17
Caption = #26085' '#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label33: TLabel
Left = 35
Top = 15
Width = 92
Height = 17
Caption = #21152' '#24037' '#21378#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 33
Top = 57
Width = 94
Height = 17
Caption = #21697' '#21517#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 646
Top = 109
Width = 94
Height = 17
Caption = #20811' '#37325#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 412
Top = 109
Width = 74
Height = 17
Caption = #38376' '#24133#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 596
Top = 109
Width = 20
Height = 17
Caption = 'CM'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 836
Top = 109
Width = 38
Height = 17
Caption = 'g/'#13217
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 646
Top = 15
Width = 94
Height = 17
Caption = #33457' '#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 412
Top = 57
Width = 74
Height = 17
Caption = #39068' '#33394#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 646
Top = 57
Width = 94
Height = 17
Caption = #33394' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 35
Top = 205
Width = 94
Height = 17
Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 414
Top = 205
Width = 90
Height = 17
Caption = #25910#36135#21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 35
Top = 158
Width = 84
Height = 17
Caption = #23458' '#25143#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 412
Top = 160
Width = 72
Height = 17
Caption = #21512#21516#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 646
Top = 160
Width = 90
Height = 17
Caption = #25351#31034#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label17: TLabel
Left = 33
Top = 109
Width = 108
Height = 17
Caption = #22383#24067#32852#31995#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CRTime: TDateTimePicker
Tag = 2
Left = 473
Top = 12
Width = 144
Height = 25
Date = 42459.000000000000000000
Time = 42459.000000000000000000
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object GYSName: TBtnEditA
Tag = 2
Left = 112
Top = 13
Width = 273
Height = 31
Hint = 'GYSNo'
Color = clScrollBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 1
OnBtnClick = GYSNameBtnClick
end
object MYName: TEdit
Tag = 2
Left = 113
Top = 57
Width = 268
Height = 30
Color = clScrollBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 2
end
object MYKZ: TEdit
Tag = 2
Left = 722
Top = 108
Width = 111
Height = 30
Color = clScrollBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 3
end
object MYMF: TEdit
Tag = 2
Left = 473
Top = 108
Width = 113
Height = 30
Color = clScrollBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 4
end
object MYHX: TEdit
Tag = 2
Left = 722
Top = 14
Width = 138
Height = 30
Color = clScrollBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 5
end
object MYColor: TEdit
Tag = 2
Left = 473
Top = 56
Width = 140
Height = 30
Color = clScrollBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 6
end
object MYColorNo: TEdit
Tag = 2
Left = 722
Top = 56
Width = 140
Height = 30
Color = clScrollBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 7
end
object Note: TEdit
Tag = 2
Left = 113
Top = 202
Width = 273
Height = 31
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
end
object ToGYSName: TBtnEditA
Tag = 2
Left = 491
Top = 201
Width = 372
Height = 31
Hint = 'ToGYSNo'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 9
OnBtnClick = ToGYSNameBtnClick
end
object KHNameJC: TBtnEditA
Left = 112
Top = 156
Width = 273
Height = 31
Hint = 'ToGYSNo'
Color = clScrollBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 10
OnBtnClick = KHNameJCBtnClick
end
object MLConNo: TEdit
Left = 473
Top = 157
Width = 140
Height = 30
Color = clScrollBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 11
end
object PBBatchNo: TEdit
Tag = 2
Left = 136
Top = 107
Width = 245
Height = 30
Color = clScrollBar
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 12
end
object MLOrderNo: TcxButtonEdit
Left = 722
Top = 157
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = MLOrderNoPropertiesButtonClick
Style.Color = clScrollBar
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -17
Style.Font.Name = #23435#20307
Style.Font.Style = [fsBold]
Style.IsFontAssigned = True
TabOrder = 13
Width = 141
end
end
object Panel5: TPanel
Left = 2
Top = 248
Width = 1160
Height = 61
Align = alTop
TabOrder = 1
object Label31: TLabel
Left = 251
Top = 23
Width = 90
Height = 17
Caption = #20986#24211#24635#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label32: TLabel
Left = 380
Top = 23
Width = 18
Height = 17
Caption = #21305
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label23: TLabel
Left = 225
Top = 381
Width = 48
Height = 15
Caption = #21333#20215#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label24: TLabel
Left = 1094
Top = -16
Width = 48
Height = 15
Caption = #21333#20215#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label45: TLabel
Left = 488
Top = 23
Width = 18
Height = 17
Caption = #31859
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label50: TLabel
Left = 592
Top = 23
Width = 36
Height = 17
Caption = #20844#26020
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label43: TLabel
Left = 36
Top = 23
Width = 82
Height = 17
Caption = #35745#20215#26041#24335':'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object PS: TEdit
Tag = 2
Left = 325
Top = 22
Width = 50
Height = 30
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object Qty: TEdit
Tag = 2
Left = 410
Top = 22
Width = 74
Height = 30
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object KgQty: TEdit
Tag = 2
Left = 515
Top = 22
Width = 72
Height = 30
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object Panel7: TPanel
Left = 1218
Top = 201
Width = 99
Height = 181
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 3
Visible = False
object Panel1: TPanel
Left = 9
Top = 9
Width = 81
Height = 160
BevelInner = bvRaised
TabOrder = 0
object Label20: TLabel
Left = 27
Top = 17
Width = 22
Height = 126
Caption = #26126#13#10#32454#13#10#30721#13#10#21333#13#10#24405#13#10#20837
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
end
end
object PTID: TEdit
Tag = 2
Left = 1301
Top = 259
Width = 72
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 5
Visible = False
end
object MYPrice: TEdit
Tag = 2
Left = 267
Top = 379
Width = 42
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
Visible = False
end
object MDMFlag: TCheckBox
Left = 114
Top = 18
Width = 51
Height = 26
Caption = #31859
Checked = True
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
State = cbChecked
TabOrder = 6
OnClick = MDMFlagClick
end
object MDKGFlag: TCheckBox
Left = 173
Top = 18
Width = 69
Height = 26
Caption = #20844#26020
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = MDKGFlagClick
end
end
object Panel8: TPanel
Left = 2
Top = 309
Width = 1160
Height = 463
Align = alClient
Caption = 'Panel8'
TabOrder = 2
object Panel9: TPanel
Left = 1
Top = 1
Width = 316
Height = 461
Align = alLeft
TabOrder = 0
object Label18: TLabel
Left = 25
Top = 19
Width = 189
Height = 20
Caption = #27880#65306#36755#20837#25968#37327#25970#22238#36710
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 25
Top = 76
Width = 105
Height = 20
Caption = #26126#32454#25968#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Edit1: TEdit
Left = 120
Top = 72
Width = 96
Height = 35
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnKeyPress = Edit1KeyPress
end
end
object cxGrid1: TcxGrid
Left = 317
Top = 1
Width = 842
Height = 461
Align = alClient
TabOrder = 1
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #20010#25968':##'
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column11
end
item
Kind = skSum
Column = Tv1Column1
end
item
Kind = skSum
Column = Tv1Column2
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = DataLink_MYSC.Default10
Styles.Footer = DataLink_MYSC.Default10
Styles.Header = DataLink_MYSC.Default10
object v1Column11: TcxGridDBColumn
Caption = #26126#32454#25968#37327#65288#31859#65289
DataBinding.FieldName = 'MQty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle1
Styles.Footer = cxStyle1
Styles.Header = cxStyle1
Width = 247
end
object Tv1Column1: TcxGridDBColumn
Caption = #26126#32454#25968#37327#65288#20844#26020#65289
DataBinding.FieldName = 'KgQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle1
Styles.Footer = cxStyle1
Styles.Header = cxStyle1
Width = 181
end
object Tv1Column2: TcxGridDBColumn
Caption = #26680#31639#25968#37327
DataBinding.FieldName = 'HSQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle1
Styles.Footer = cxStyle1
Styles.Header = cxStyle1
Width = 161
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
end
object ADOTemp: TADOQuery
Connection = DataLink_MYSC.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 766
Top = 493
end
object ADOCmd: TADOQuery
Connection = DataLink_MYSC.ADOLink
Parameters = <>
Left = 726
Top = 487
end
object ADOQuery1: TADOQuery
Connection = DataLink_MYSC.ADOLink
Parameters = <>
Left = 730
Top = 532
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 802
Top = 527
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
Params = <>
Left = 839
Top = 493
end
object PopupMenu2: TPopupMenu
Left = 238
Top = 792
object MenuItem1: TMenuItem
Caption = #19978#20256
end
object N3: TMenuItem
Caption = #21024#38500
end
object MenuItem2: TMenuItem
Caption = #37325#21629#21517
end
object N4: TMenuItem
Caption = #21478#23384#20026
end
end
object ImageList1: TImageList
Height = 32
ShareImages = True
Width = 32
Left = 170
Top = 799
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_MYSC.ADOLink
Parameters = <>
Left = 285
Top = 793
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_MYSC.ADOLink
Parameters = <>
Left = 110
Top = 784
end
object ADOQuery2: TADOQuery
Connection = DataLink_MYSC.ADOLink
Parameters = <>
Left = 765
Top = 532
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_MYSC.ADOLink
Parameters = <>
Left = 810
Top = 492
end
object cxStyleRepository1: TcxStyleRepository
Left = 368
Top = 8
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
end
end
end