D7wmhengming/基础数据/U_User_bz_List.dfm

333 lines
7.3 KiB
Plaintext
Raw Normal View History

2025-04-27 16:59:54 +08:00
object frmUser_bz_List: TfrmUser_bz_List
Left = 138
Top = 111
Width = 1076
Height = 602
Caption = #21592#24037#32500#25252
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1060
AutoSize = True
ButtonHeight = 30
ButtonWidth = 89
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Images = BaseData10_DataLink.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 2
OnClick = ToolButton1Click
end
object tbyhadd: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #22686#21152
ImageIndex = 3
OnClick = tbyhaddClick
end
object tbyhdelete: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 17
OnClick = tbyhdeleteClick
end
object tbyhup: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 54
OnClick = tbyhupClick
end
object ToolButton6: TToolButton
Left = 252
Top = 0
Width = 8
Caption = 'ToolButton6'
ImageIndex = 2
Style = tbsSeparator
end
object tbqx: TToolButton
Left = 260
Top = 0
AutoSize = True
Caption = #23548#20986'Excel'
ImageIndex = 75
OnClick = tbqxClick
end
object ToolButton7: TToolButton
Left = 353
Top = 0
Width = 8
Caption = 'ToolButton7'
ImageIndex = 2
Style = tbsSeparator
end
object tbclose: TToolButton
Left = 361
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = tbcloseClick
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 77
Width = 1060
Height = 424
Align = alTop
TabOrder = 1
object tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Format = #20849' 0 '#26465
Kind = skCount
Column = tv1Name1
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.ContentOdd = BaseData10_DataLink.cxStyle_gridRow
Styles.Footer = BaseData10_DataLink.cxStyle_gridFoot
Styles.GroupByBox = BaseData10_DataLink.cxStyle_gridGroupBox
Styles.Header = BaseData10_DataLink.cxStyle_gridHead
object tv1Code1: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'userid'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 150
end
object tv1Name1: TcxGridDBColumn
Caption = #21517#31216
DataBinding.FieldName = 'userName'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 138
end
object tv1banzu: TcxGridDBColumn
Caption = #29677#32452
DataBinding.FieldName = 'banzu'
HeaderAlignmentHorz = taCenter
Width = 140
end
end
object cxGrid1Level1: TcxGridLevel
GridView = tv1
end
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1060
Height = 45
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
object Label1: TLabel
Left = 36
Top = 16
Width = 48
Height = 12
Caption = #32534' '#21495
end
object Label2: TLabel
Left = 284
Top = 16
Width = 48
Height = 12
Caption = #21517' '#31216
end
object Label7: TLabel
Left = 516
Top = 16
Width = 48
Height = 12
Caption = #29677' '#32452
end
object Label8: TLabel
Left = 268
Top = 96
Width = 48
Height = 12
Caption = #23398' '#21382
end
object Label3: TLabel
Left = 504
Top = 72
Width = 48
Height = 12
Caption = #26159#21542#22312#32844
end
object Label4: TLabel
Left = 504
Top = 96
Width = 48
Height = 12
Caption = #24037' '#31181
end
object Label5: TLabel
Left = 728
Top = 72
Width = 48
Height = 12
Caption = #30331' '#26426' '#21495
end
object userID: TEdit
Tag = 2
Left = 88
Top = 12
Width = 100
Height = 20
TabOrder = 0
OnChange = userIDChange
end
object USERName: TEdit
Tag = 2
Left = 332
Top = 12
Width = 100
Height = 20
TabOrder = 1
OnChange = userIDChange
end
object banzu: TComboBox
Tag = 2
Left = 572
Top = 12
Width = 100
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 2
OnChange = userIDChange
Items.Strings = (
''
#30002
#20057
#19993)
end
object edu: TComboBox
Tag = 2
Left = 324
Top = 92
Width = 100
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 3
OnChange = userIDChange
Items.Strings = (
''
#23567#23398
#20013#23398
#39640#20013
#20013#19987
#22823#19987
#26412#31185
#30805#22763
#21338#22763)
end
object validName: TComboBox
Tag = 2
Left = 560
Top = 68
Width = 100
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 4
OnChange = userIDChange
Items.Strings = (
''
#26159
#21542)
end
object position: TEdit
Tag = 2
Left = 560
Top = 92
Width = 100
Height = 20
TabOrder = 5
OnChange = userIDChange
end
object fstr1: TEdit
Tag = 2
Left = 784
Top = 68
Width = 100
Height = 20
TabOrder = 6
OnChange = userIDChange
end
end
object ADO_user: TADOQuery
Connection = BaseData10_DataLink.ADOLink
Parameters = <>
Left = 104
Top = 160
end
object ADO_Cmd: TADOQuery
Connection = BaseData10_DataLink.ADOLink
Parameters = <>
Left = 340
Top = 160
end
object DataSource2: TDataSource
DataSet = CDS_User
Left = 148
Top = 168
end
object CDS_User: TClientDataSet
Aggregates = <>
Params = <>
Left = 196
Top = 176
end
end