D10myBiaoqi/A01基础公司管理/U_FactoryInput.dfm
DESKTOP-E401PHE\Administrator ce80572b23 111
2024-09-06 17:24:10 +08:00

706 lines
18 KiB
Plaintext

object frmFactoryInput: TfrmFactoryInput
Left = 261
Top = 149
Caption = #20379#24212#21830#36164#26009#24405#20837
ClientHeight = 573
ClientWidth = 1168
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Tag = 1
Left = 0
Top = 0
Width = 1168
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Company.ImageList_new32
Images = DataLink_Company.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton3: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = ToolButton3Click
end
object ToolButton2: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 166
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 38
Width = 1168
Height = 247
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentCtl3D = False
ParentFont = False
TabOrder = 1
object Label2: TLabel
Left = 16
Top = 76
Width = 65
Height = 12
Caption = #20379#24212#21830#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 238
Top = 76
Width = 65
Height = 12
Caption = #20379#24212#21830#20840#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 27
Top = 188
Width = 54
Height = 12
Caption = #22791' '#27880
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 241
Top = 16
Width = 65
Height = 12
Caption = #20379#24212#21830#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 554
Top = 76
Width = 65
Height = 12
Caption = #20379#24212#21830#31616#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 29
Top = 110
Width = 52
Height = 24
Caption = #23454#38469#29983#20135#13#10#32463#33829#22320#22336
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 561
Top = 41
Width = 52
Height = 15
Caption = #19978#32423#21333#20301
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 567
Top = 113
Width = 40
Height = 12
Caption = #27010' '#36848
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 567
Top = 14
Width = 65
Height = 12
Caption = #20379#24212#21830#31561#32423
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 16
Top = 43
Width = 65
Height = 12
Caption = #20379#24212#21830#26469#28304
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 240
Top = 42
Width = 47
Height = 12
Caption = #31246' '#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 16
Top = 14
Width = 65
Height = 12
Caption = #20379#24212#21830#31867#21035
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CoName: TEdit
Tag = 2
Left = 313
Top = 71
Width = 200
Height = 20
TabOrder = 1
end
object CoNote: TMemo
Tag = 2
Left = 90
Top = 157
Width = 420
Height = 73
ScrollBars = ssVertical
TabOrder = 3
end
object CoAbbrName: TEdit
Tag = 2
Left = 636
Top = 71
Width = 122
Height = 20
TabOrder = 2
end
object CoCode: TEdit
Tag = 2
Left = 90
Top = 71
Width = 123
Height = 20
TabOrder = 0
end
object CoAddress: TMemo
Tag = 2
Left = 90
Top = 109
Width = 420
Height = 30
ScrollBars = ssVertical
TabOrder = 4
end
object CoBusinessType: TBtnEditC
Tag = 2
Left = 313
Top = 12
Width = 200
Height = 20
Hint = 'FactType/'#20379#24212#21830#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnBtnUpClick = COGdyBtnUpClick
OnBtnDnClick = COGdyBtnDnClick
end
object ParentCoName: TBtnEditC
Tag = 2
Left = 636
Top = 40
Width = 140
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 6
OnBtnUpClick = ParentCoNameBtnUpClick
end
object GaiSu: TMemo
Tag = 2
Left = 636
Top = 104
Width = 280
Height = 128
Hint = 'GaiSu/'#27010#36848
ScrollBars = ssVertical
TabOrder = 7
OnDblClick = GaiSuDblClick
end
object CoLevel: TComboBox
Tag = 2
Left = 634
Top = 9
Width = 125
Height = 22
TabOrder = 8
Items.Strings = (
'A'
'B'
'C')
end
object Source: TBtnEditC
Tag = 2
Left = 90
Top = 40
Width = 123
Height = 20
Hint = 'Source/'#20379#24212#21830#26469#28304
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
OnBtnUpClick = COGdyBtnUpClick
OnBtnDnClick = COGdyBtnDnClick
end
object DPNo: TEdit
Tag = 2
Left = 312
Top = 40
Width = 200
Height = 20
TabOrder = 10
end
object category: TComboBox
Tag = 2
Left = 89
Top = 11
Width = 125
Height = 22
Enabled = False
TabOrder = 11
Items.Strings = (
#29983#20135
#26381#21153)
end
end
object Panel2: TPanel
Left = 0
Top = 285
Width = 475
Height = 288
Align = alLeft
Caption = 'Panel1'
TabOrder = 2
object ToolBar2: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 473
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 103
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Company.ImageList_new32
Images = DataLink_Company.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #35774#20026#40664#35748#20154
ImageIndex = 15
OnClick = ToolButton1Click
end
object ToolButton4: TToolButton
Left = 107
Top = 0
AutoSize = True
Caption = #22686#21152#32852#31995#20154
ImageIndex = 2
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 214
Top = 0
AutoSize = True
Caption = #21024#38500#32852#31995#20154
ImageIndex = 6
OnClick = ToolButton5Click
end
end
object cxGrid1: TcxGrid
Left = 1
Top = 39
Width = 473
Height = 248
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 1
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_LXR
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
Styles.Footer = DataLink_Company.Default
Styles.Header = DataLink_Company.Default
object v3Column3: TcxGridDBColumn
Caption = #40664#35748
DataBinding.FieldName = 'IsDefault'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object Tv1Column4: TcxGridDBColumn
Caption = #32844#21153
DataBinding.FieldName = 'position'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = ButtonEdit
HeaderAlignmentHorz = taCenter
Width = 59
end
object Tv1Column1: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'Contacts'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Width = 108
end
object Tv1Column2: TcxGridDBColumn
Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'Telephone'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #25163#26426#21495
DataBinding.FieldName = 'PhoneNumber'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Width = 86
end
object Tv1Column3: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
end
end
end
object Panel1: TPanel
Left = 475
Top = 285
Width = 693
Height = 288
Align = alClient
Caption = 'Panel1'
TabOrder = 3
object ToolBar3: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 691
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 115
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Company.ImageList_new32
Images = DataLink_Company.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton12: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #35774#20026#40664#35748#36134#21495
ImageIndex = 16
OnClick = ToolButton6Click
end
object ToolButton13: TToolButton
Left = 119
Top = 0
AutoSize = True
Caption = #22686#21152#36134#21495
ImageIndex = 2
OnClick = ToolButton7Click
end
object ToolButton14: TToolButton
Left = 214
Top = 0
AutoSize = True
Caption = #21024#38500#36134#21495
ImageIndex = 6
OnClick = ToolButton8Click
end
end
object cxGrid4: TcxGrid
Left = 1
Top = 39
Width = 691
Height = 248
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 1
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_Bank
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
Styles.Footer = DataLink_Company.Default
Styles.Header = DataLink_Company.Default
object cxGridDBColumn10: TcxGridDBColumn
Caption = #40664#35748
DataBinding.FieldName = 'IsDefault'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 59
end
object TV2Column1: TcxGridDBColumn
Caption = #36134#25143#21517#31216
DataBinding.FieldName = 'AcName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 118
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #38134#34892#36134#21495
DataBinding.FieldName = 'account'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Width = 221
end
object cxGridDBColumn12: TcxGridDBColumn
Caption = #24320#25143#34892
DataBinding.FieldName = 'OpenBank'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 286
end
object TV2Column2: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
end
object cxGridLevel4: TcxGridLevel
GridView = TV2
end
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Company.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 659
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Company.ADOLink
Parameters = <>
Left = 582
Top = 65535
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Company.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 501
Top = 1
end
object CDS_LXR: TClientDataSet
Aggregates = <>
Params = <>
Left = 104
Top = 385
end
object DS_LXR: TDataSource
DataSet = CDS_LXR
Left = 185
Top = 383
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 251
Top = 389
end
object DS_Bank: TDataSource
DataSet = CDS_Bank
Left = 690
Top = 382
end
object CDS_Bank: TClientDataSet
Aggregates = <>
Params = <>
Left = 601
Top = 383
end
object ADOQuery1: TADOQuery
Connection = DataLink_Company.ADOLink
Parameters = <>
Left = 720
Top = 2
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid4
PopupMenus = <>
Left = 574
Top = 443
end
end