ajgls.dfm
资源名称:挡案管理系统.rar [点击查看]
上传用户:szruida
上传日期:2007-06-01
资源大小:6518k
文件大小:20k
源码类别:
Delphi控件源码
开发平台:
Delphi
- object Am_ajgl: TAm_ajgl
- Left = 187
- Top = 106
- Width = 803
- Height = 366
- Caption = #26696#21367#31649#29702
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- FormStyle = fsMDIChild
- Icon.Data = {
- 0000010001001010000001002000680400001600000028000000100000002000
- 0000010020000000000040040000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000666666FF666666FF666666FF666666FF666666FF666666FF6666
- 66FF666666FF666666FF666666FF666666FF666666FF666666FF000000000000
- 00001C82B5FF1A80B3FF177DB0FF157BAEFF1278ABFF0F75A8FF0C72A5FF0A70
- A3FF076DA0FF056B9EFF03699CFF01679AFF006699FF666666FF666666FF2187
- BAFF66CCFFFF1F85B8FF8EF4FFFF6ED4FFFF6ED4FFFF6ED4FFFF6ED4FFFF6ED4
- FFFF6ED4FFFF6ED4FFFF6ED4FFFF3AA0D3FF99FFFFFF006699FF666666FF248A
- BDFF66CCFFFF268CBFFF8EF4FFFF7AE0FFFF7AE0FFFF7AE0FFFF7AE0FFFF7AE0
- FFFF7AE0FFFF7AE0FFFF7AE0FFFF43A9DCFF99FFFFFF01679AFF666666FF278D
- C0FF66CCFFFF2C92C5FF8EF4FFFF85EBFFFF85EBFFFF85EBFFFF85EBFFFF85EB
- FFFF85EBFFFF85EBFFFF85EBFFFF4DB3E6FF99FFFFFF03699CFF666666FF298F
- C2FF66CCFFFF3298CBFF8EF4FFFF91F7FFFF91F7FFFF91F7FFFF91F7FFFF91F7
- FFFF91F7FFFF91F7FFFF91F7FFFF56BCEFFF99FFFFFF056B9EFF666666FF2C92
- C5FF6ED4FFFF3399CCFF8EF4FFFF8EF4FFFF8EF4FFFF8EF4FFFF8EF4FFFF8EF4
- FFFF8EF4FFFF8EF4FFFF8EF4FFFF5FC5F8FF99FFFFFF076DA0FF666666FF2E94
- C7FF7AE0FFFF2C92C5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFF80E6FFFFFFFFFFFF0A70A3FF666666FF3096
- C9FF85EBFFFF80E6FFFF2C92C5FF2C92C5FF2C92C5FF2C92C5FF2C92C5FF2C92
- C5FF278DC0FF2389BCFF1F85B8FF1B81B4FF1A80B3FF1A80B3FF000000003298
- CBFF91F7FFFF8EF4FFFF8EF4FFFF8EF4FFFF8EF4FFFF8EF4FFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFF157BAEFF666666FF00000000000000003399
- CCFFFFFFFFFF99FFFFFF99FFFFFF99FFFFFF99FFFFFFFFFFFFFF248ABDFF2187
- BAFF1E84B7FF1C82B5FF1A80B3FF177DB0FF0000000000000000000000000000
- 00003399CCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF298FC2FF000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000003399CCFF3298CBFF3096C9FF2E94C7FF00000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000FFFF
- 0000C00100008000000000000000000000000000000000000000000000000000
- 000000010000000300000007000081FF0000C3FF0000FFFF0000FFFF0000}
- OldCreateOrder = False
- Position = poDefault
- ShowHint = True
- Visible = True
- OnClose = FormClose
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 12
- object StatusBar1: TStatusBar
- Left = 0
- Top = 320
- Width = 795
- Height = 19
- Panels = <
- item
- Text = #26723#26696#31649#29702#31995#32479
- Width = 200
- end
- item
- Text = #24320#21457#21830#65306'E'#29436#36719#20214#20844#21496
- Width = 50
- end>
- SimplePanel = False
- end
- object CoolBar1: TCoolBar
- Left = 0
- Top = 0
- Width = 795
- Height = 49
- Bands = <
- item
- Control = ToolBar1
- ImageIndex = -1
- MinHeight = 40
- Width = 791
- end>
- FixedSize = True
- object ToolBar1: TToolBar
- Left = 9
- Top = 0
- Width = 778
- Height = 40
- ButtonHeight = 30
- ButtonWidth = 107
- Caption = 'ToolBar1'
- Images = mainfrm.zsg
- List = True
- ShowCaptions = True
- TabOrder = 0
- object Add1: TToolButton
- Left = 0
- Top = 2
- Action = Add
- AutoSize = True
- Enabled = False
- ImageIndex = 0
- end
- object xiugai: TToolButton
- Left = 81
- Top = 2
- Action = Edit
- AutoSize = True
- Enabled = False
- ImageIndex = 1
- end
- object dele1: TToolButton
- Left = 162
- Top = 2
- Action = Delete
- AutoSize = True
- Enabled = False
- ImageIndex = 2
- end
- object Ajgd1: TToolButton
- Left = 243
- Top = 2
- AutoSize = True
- Caption = #26696#21367#24402#26723'(&G)'
- Enabled = False
- ImageIndex = 9
- OnClick = Ajgd1Click
- end
- object WJCZ: TToolButton
- Left = 348
- Top = 2
- AutoSize = True
- Caption = #25991#20214#25805#20316'(&F)'
- DropdownMenu = PopupMenu2
- Enabled = False
- ImageIndex = 7
- end
- object refresh1: TToolButton
- Left = 453
- Top = 2
- Action = Refresh
- AutoSize = True
- ImageIndex = 3
- end
- object ToolButton6: TToolButton
- Left = 534
- Top = 2
- Action = Quit
- AutoSize = True
- ImageIndex = 6
- end
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 49
- Width = 795
- Height = 271
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 2
- object Splitter1: TSplitter
- Left = 223
- Top = 0
- Width = 4
- Height = 271
- Cursor = crHSplit
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 223
- Height = 271
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 0
- object Tree: TTreeView
- Left = 0
- Top = 0
- Width = 223
- Height = 271
- Align = alClient
- Images = mainfrm.TreeView
- Indent = 19
- PopupMenu = PopupMenu1
- ReadOnly = True
- RowSelect = True
- TabOrder = 0
- OnChange = TreeChange
- OnClick = TreeClick
- end
- end
- object Panel3: TPanel
- Left = 227
- Top = 0
- Width = 568
- Height = 271
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 1
- object Splitter2: TSplitter
- Left = 0
- Top = 151
- Width = 568
- Height = 3
- Cursor = crVSplit
- Align = alTop
- end
- object Panel4: TPanel
- Left = 0
- Top = 0
- Width = 568
- Height = 151
- Align = alTop
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 0
- object GroupBox1: TGroupBox
- Left = 2
- Top = 2
- Width = 564
- Height = 147
- Align = alClient
- Caption = #26696#21367#31649#29702
- TabOrder = 0
- object DBGridEh1: TDBGridEh
- Left = 2
- Top = 14
- Width = 560
- Height = 131
- Align = alClient
- DataSource = V_Ajgl
- FooterColor = clWindow
- FooterFont.Charset = ANSI_CHARSET
- FooterFont.Color = clWindowText
- FooterFont.Height = -12
- FooterFont.Name = #23435#20307
- FooterFont.Style = []
- ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
- Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
- OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking]
- TabOrder = 0
- TitleFont.Charset = ANSI_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -12
- TitleFont.Name = #23435#20307
- TitleFont.Style = []
- OnDblClick = DBGridEh1DblClick
- Columns = <
- item
- EditButtons = <>
- FieldName = 'aj_xh'
- Footers = <>
- Title.Caption = #24207#21495
- end
- item
- EditButtons = <>
- FieldName = 'ajlb_mc'
- Footers = <>
- Title.Caption = #26696#21367#31867#21035
- end
- item
- EditButtons = <>
- FieldName = 'aj_tm'
- Footers = <>
- Title.Caption = #39064#21517
- end
- item
- EditButtons = <>
- FieldName = 'aj_ndh'
- Footers = <>
- Title.Caption = #24180#20195#21495
- end
- item
- EditButtons = <>
- FieldName = 'user_name'
- Footers = <>
- Title.Caption = #29992#25143#21517
- end
- item
- EditButtons = <>
- FieldName = 'aj_Bmmc'
- Footers = <>
- Title.Caption = #36131#20219#32773
- end
- item
- EditButtons = <>
- FieldName = 'mj_mc'
- Footers = <>
- Title.Caption = #23494#32423
- end
- item
- EditButtons = <>
- FieldName = 'bgqx_mc'
- Footers = <>
- Title.Caption = #20445#31649#26399#38480
- end
- item
- EditButtons = <>
- FieldName = 'aj_dh'
- Footers = <>
- Title.Caption = #26723#21495
- end
- item
- EditButtons = <>
- FieldName = 'aj_ys'
- Footers = <>
- Title.Caption = #39029#25968
- end
- item
- EditButtons = <>
- FieldName = 'aj_bzqsrq'
- Footers = <>
- Title.Caption = #32534#21046#36215#22987#26085#26399
- end
- item
- EditButtons = <>
- FieldName = 'aj_bzjsrq'
- Footers = <>
- Title.Caption = #32534#21046#32467#26463#26085#26399
- end
- item
- EditButtons = <>
- FieldName = 'aj_gdqsrq'
- Footers = <>
- Title.Caption = #24402#26723#36215#22987#26085#26399
- end
- item
- EditButtons = <>
- FieldName = 'aj_gdjsrq'
- Footers = <>
- Title.Caption = #24402#26723#32467#26463#26085#26399
- end
- item
- EditButtons = <>
- FieldName = 'aj_ljr'
- Footers = <>
- Title.Caption = #31435#21367#20154
- end
- item
- EditButtons = <>
- FieldName = 'aj_jcr'
- Footers = <>
- Title.Caption = #26816#26597#20154
- end
- item
- EditButtons = <>
- FieldName = 'aj_ztc'
- Footers = <>
- Title.Caption = #20027#39064#35789
- end
- item
- EditButtons = <>
- FieldName = 'aj_wsh'
- Footers = <>
- Title.Caption = #24494#32553#21495
- end
- item
- EditButtons = <>
- FieldName = 'aj_dm'
- Footers = <>
- Title.Caption = #26696#21367#20195#30721
- end
- item
- EditButtons = <>
- FieldName = 'ajzt_mc'
- Footers = <>
- Title.Caption = #26696#21367#36733#20307
- end>
- end
- end
- end
- object Panel5: TPanel
- Left = 0
- Top = 154
- Width = 568
- Height = 117
- Align = alClient
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 1
- object GroupBox2: TGroupBox
- Left = 2
- Top = 2
- Width = 564
- Height = 113
- Align = alClient
- Caption = #25991#20214#31649#29702
- TabOrder = 0
- object DBGridEh2: TDBGridEh
- Left = 2
- Top = 14
- Width = 560
- Height = 97
- Align = alClient
- DataSource = Ds_Wjgl2
- FooterColor = clWindow
- FooterFont.Charset = ANSI_CHARSET
- FooterFont.Color = clWindowText
- FooterFont.Height = -12
- FooterFont.Name = #23435#20307
- FooterFont.Style = []
- ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
- Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
- OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking]
- TabOrder = 0
- TitleFont.Charset = ANSI_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -12
- TitleFont.Name = #23435#20307
- TitleFont.Style = []
- OnDblClick = DBGridEh2DblClick
- Columns = <
- item
- EditButtons = <>
- FieldName = 'wj_ndh'
- Footers = <>
- Title.Caption = #24180#20195#21495
- end
- item
- EditButtons = <>
- FieldName = 'wj_xh'
- Footers = <>
- Title.Caption = #24207#21495
- end
- item
- EditButtons = <>
- FieldName = 'ajlb_mc'
- Footers = <>
- Title.Caption = #26696#21367#31867#21035
- end
- item
- EditButtons = <>
- FieldName = 'aj_xh'
- Footers = <>
- Title.Caption = #26696#21367#24207#21495
- end
- item
- EditButtons = <>
- FieldName = 'wj_ys'
- Footers = <>
- Title.Caption = #39029#25968
- end
- item
- EditButtons = <>
- FieldName = 'wj_jnxh'
- Footers = <>
- Title.Caption = #21367#20869#24207#21495
- end
- item
- EditButtons = <>
- FieldName = 'wj_hh'
- Footers = <>
- Title.Caption = #30418#21495
- end
- item
- EditButtons = <>
- FieldName = 'wj_dh'
- Footers = <>
- Title.Caption = #26723#21495
- end
- item
- EditButtons = <>
- FieldName = 'wj_tm'
- Footers = <>
- Title.Caption = #39064#21517
- end
- item
- EditButtons = <>
- FieldName = 'wj_gdrq'
- Footers = <>
- Title.Caption = #24402#26723#26085#26399
- end
- item
- EditButtons = <>
- FieldName = 'wj_rq'
- Footers = <>
- Title.Caption = #26085#26399
- end
- item
- EditButtons = <>
- FieldName = 'bgqx_mc'
- Footers = <>
- Title.Caption = #20445#31649#26399#38480
- end
- item
- EditButtons = <>
- FieldName = 'mj_mc'
- Footers = <>
- Title.Caption = #23494#32423
- end
- item
- EditButtons = <>
- FieldName = 'wj_ztc'
- Footers = <>
- Title.Caption = #20027#39064#35789
- end
- item
- EditButtons = <>
- FieldName = 'wj_ty'
- Footers = <>
- Title.Caption = #25552#35201
- end
- item
- EditButtons = <>
- FieldName = 'wj_fz'
- Footers = <>
- Title.Caption = #38468#27880
- end
- item
- EditButtons = <>
- FieldName = 'user_name'
- Footers = <>
- Title.Caption = #29992#25143#21517
- end
- item
- EditButtons = <>
- FieldName = 'wj_wsh'
- Footers = <>
- Title.Caption = #24494#32553#21495
- end
- item
- EditButtons = <>
- FieldName = 'wj_dm'
- Footers = <>
- Title.Caption = #25991#20214#20195#30721
- end
- item
- EditButtons = <>
- FieldName = 'wj_yc'
- Footers = <>
- Title.Caption = #39029#27425
- end
- item
- EditButtons = <>
- FieldName = 'ztlb_mc'
- Footers = <>
- Title.Caption = #36733#20307#31867#21035
- end
- item
- EditButtons = <>
- FieldName = 'bm_mc'
- Footers = <>
- Title.Caption = #36131#20219#32773
- end
- item
- EditButtons = <>
- FieldName = 'wjlb_mc'
- Footers = <>
- Title.Caption = #25991#20214#31867#21035
- end>
- end
- end
- end
- end
- end
- object XPBarMenu1: TXPBarMenu
- BarCaption = #26696#21367#31649#29702
- BarFont.Charset = GB2312_CHARSET
- BarFont.Color = clWhite
- BarFont.Height = -11
- BarFont.Name = 'Tahoma'
- BarFont.Style = []
- Font.Charset = GB2312_CHARSET
- Font.Color = clMenuText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- CheckedColor = clHighlight
- IconWidth = 24
- DrawSelect = True
- UseSystemColors = True
- OverrideOwnerDraw = False
- FlatMenu = True
- AutoDetect = True
- Active = True
- Left = 184
- Top = 112
- end
- object V_Ajgl: TDataSource
- DataSet = DM.V_ajgl
- Left = 240
- Top = 144
- end
- object Ds_Wjgl2: TDataSource
- DataSet = DM.V_Wjgl2
- Left = 184
- Top = 256
- end
- object ActionList1: TActionList
- Left = 184
- Top = 144
- object Add: TAction
- Caption = #22686#21152'(&A)'
- OnExecute = AddExecute
- end
- object Edit: TAction
- Caption = #20462#25913'(&E)'
- OnExecute = EditExecute
- end
- object Delete: TAction
- Caption = #21024#38500'(&D)'
- OnExecute = DeleteExecute
- end
- object Save: TAction
- Caption = #20445#23384'(&S)'
- end
- object Refresh: TAction
- Caption = #21047#26032'(&R)'
- OnExecute = RefreshExecute
- end
- object Print: TAction
- Caption = #25171#21360'(&P)'
- end
- object Quit: TAction
- Caption = #36864#20986'(&X)'
- OnExecute = QuitExecute
- end
- end
- object PopupMenu1: TPopupMenu
- OwnerDraw = True
- Left = 184
- Top = 216
- object A1: TMenuItem
- Action = Add
- Enabled = False
- end
- object E1: TMenuItem
- Action = Edit
- Enabled = False
- end
- object D1: TMenuItem
- Action = Delete
- Enabled = False
- end
- object N5: TMenuItem
- Caption = #23637#24320
- OnClick = N5Click
- end
- object N6: TMenuItem
- Caption = #21472#36215
- OnClick = N6Click
- end
- end
- object PopupMenu2: TPopupMenu
- OwnerDraw = True
- Left = 184
- Top = 176
- object N7: TMenuItem
- Caption = #28155#21152#25991#20214
- OnClick = N7Click
- end
- object N8: TMenuItem
- Caption = #20462#25913#25991#20214
- OnClick = N8Click
- end
- object N9: TMenuItem
- Caption = #21024#38500#25991#20214
- OnClick = N9Click
- end
- object N11: TMenuItem
- Caption = #31227#20986#25991#20214
- end
- end
- object ClientDataSet1: TClientDataSet
- Aggregates = <>
- Params = <>
- ProviderName = 'Provider1'
- RemoteServer = ljsz.Socket1
- Left = 152
- Top = 256
- end
- end