一个用Delphi开发的ERP软件

源代码在线查看: bas200_13.dfm.svn-base

软件大小: 5012 K
上传用户: zhousiqi420
关键词: Delphi ERP 软件
下载地址: 免注册下载 普通下载 VIP

相关代码

				inherited Bas200_13Form: TBas200_13Form
				  Left = 21
				  Top = 1
				  BorderIcons = [biSystemMenu]
				  BorderStyle = bsSingle
				  Caption = #21333#25454#32500#25252
				  ClientHeight = 530
				  ClientWidth = 769
				  OldCreateOrder = True
				  PixelsPerInch = 96
				  TextHeight = 12
				  object gbDetail: TGroupBox [0]
				    Left = 8
				    Top = 472
				    Width = 753
				    Height = 49
				    TabOrder = 2
				    object lblCreateDate: TLabel
				      Left = 24
				      Top = 24
				      Width = 48
				      Height = 12
				      Alignment = taRightJustify
				      Caption = #21046#21333#26085#26399
				    end
				    object lblCreateBy: TLabel
				      Left = 208
				      Top = 24
				      Width = 48
				      Height = 12
				      Alignment = taRightJustify
				      Caption = #21046#21333#20154#21592
				    end
				    object lblUpdateDate: TLabel
				      Left = 376
				      Top = 24
				      Width = 48
				      Height = 12
				      Alignment = taRightJustify
				      Caption = #20462#25913#26085#26399
				    end
				    object lblUpdateBy: TLabel
				      Left = 568
				      Top = 24
				      Width = 48
				      Height = 12
				      Alignment = taRightJustify
				      Caption = #20462#25913#20154#21592
				    end
				    object edtCreateDate: TEdit
				      Left = 80
				      Top = 16
				      Width = 121
				      Height = 20
				      Color = clBtnFace
				      Enabled = False
				      ImeName = ''
				      ReadOnly = True
				      TabOrder = 0
				    end
				    object edtCreateBy: TEdit
				      Left = 264
				      Top = 16
				      Width = 105
				      Height = 20
				      Color = clBtnFace
				      Enabled = False
				      ImeName = ''
				      ReadOnly = True
				      TabOrder = 1
				    end
				    object edtUpdateDate: TEdit
				      Left = 440
				      Top = 16
				      Width = 121
				      Height = 20
				      Color = clBtnFace
				      Enabled = False
				      ImeName = ''
				      ReadOnly = True
				      TabOrder = 2
				    end
				    object edtUpdateBy: TEdit
				      Left = 624
				      Top = 16
				      Width = 105
				      Height = 20
				      Color = clBtnFace
				      Enabled = False
				      ImeName = ''
				      ReadOnly = True
				      TabOrder = 3
				    end
				  end
				  object CoolBar1: TCoolBar [1]
				    Left = 0
				    Top = 0
				    Width = 769
				    Height = 43
				    AutoSize = True
				    Bands = <
				      item
				        Control = ToolBar2
				        ImageIndex = -1
				        MinHeight = 39
				        Width = 765
				      end>
				    object ToolBar2: TToolBar
				      Left = 9
				      Top = 0
				      Width = 752
				      Height = 39
				      AutoSize = True
				      ButtonHeight = 39
				      ButtonWidth = 49
				      Caption = 'ToolBar2'
				      EdgeBorders = []
				      Flat = True
				      Images = SYSDM.imgBtn
				      ParentShowHint = False
				      ShowCaptions = True
				      ShowHint = True
				      TabOrder = 0
				      object tlbFirst: TToolButton
				        Left = 0
				        Top = 0
				        Action = ActFirst
				        AutoSize = True
				      end
				      object tlbPrior: TToolButton
				        Left = 35
				        Top = 0
				        Action = ActPrior
				        AutoSize = True
				      end
				      object tlbNext: TToolButton
				        Left = 70
				        Top = 0
				        Action = ActNext
				        AutoSize = True
				      end
				      object tlbLast: TToolButton
				        Left = 105
				        Top = 0
				        Action = ActLast
				        AutoSize = True
				      end
				      object ToolButton1: TToolButton
				        Left = 140
				        Top = 0
				        Width = 8
				        Caption = 'ToolButton1'
				        ImageIndex = 13
				        Style = tbsSeparator
				      end
				      object tlbInsert: TToolButton
				        Left = 148
				        Top = 0
				        Action = ActInsert
				        AutoSize = True
				      end
				      object tlbUpdate: TToolButton
				        Left = 183
				        Top = 0
				        Action = ActUpdate
				        AutoSize = True
				      end
				      object tlbDelete: TToolButton
				        Left = 218
				        Top = 0
				        Action = ActDelete
				        AutoSize = True
				      end
				      object ToolButton2: TToolButton
				        Left = 253
				        Top = 0
				        Width = 8
				        Caption = 'ToolButton2'
				        ImageIndex = 13
				        Style = tbsSeparator
				      end
				      object tlbSave: TToolButton
				        Left = 261
				        Top = 0
				        Action = ActSave
				        AutoSize = True
				      end
				      object tlbCancel: TToolButton
				        Left = 296
				        Top = 0
				        Action = ActCancel
				        AutoSize = True
				      end
				      object ToolButton3: TToolButton
				        Left = 331
				        Top = 0
				        Width = 8
				        Caption = 'ToolButton3'
				        ImageIndex = 13
				        Style = tbsSeparator
				      end
				      object ToolButton4: TToolButton
				        Left = 339
				        Top = 0
				        Action = Action1
				        AutoSize = True
				      end
				      object ToolButton5: TToolButton
				        Left = 392
				        Top = 0
				        Action = Action2
				        AutoSize = True
				      end
				      object ToolButton8: TToolButton
				        Left = 445
				        Top = 0
				        Action = Action3
				        AutoSize = True
				      end
				      object ToolButton9: TToolButton
				        Left = 498
				        Top = 0
				        Action = Action4
				        AutoSize = True
				      end
				      object ToolButton7: TToolButton
				        Left = 551
				        Top = 0
				        Width = 8
				        Caption = 'ToolButton7'
				        ImageIndex = 16
				        Style = tbsSeparator
				        Visible = False
				      end
				      object tlbRefresh: TToolButton
				        Left = 559
				        Top = 0
				        Action = ActRefresh
				        AutoSize = True
				      end
				      object tlbLocate: TToolButton
				        Left = 594
				        Top = 0
				        Action = ActLocate
				        AutoSize = True
				      end
				      object tlbSearch: TToolButton
				        Left = 629
				        Top = 0
				        Action = ActSearch
				        AutoSize = True
				      end
				      object tlbPrint: TToolButton
				        Left = 664
				        Top = 0
				        Action = ActPrint
				        AutoSize = True
				      end
				      object ToolButton6: TToolButton
				        Left = 699
				        Top = 0
				        Width = 8
				        Caption = 'ToolButton6'
				        ImageIndex = 16
				        Style = tbsSeparator
				      end
				      object tlbExit: TToolButton
				        Left = 707
				        Top = 0
				        Action = ActExit
				        AutoSize = True
				      end
				    end
				  end
				  object gbInfo: TGroupBox [2]
				    Left = 8
				    Top = 48
				    Width = 753
				    Height = 145
				    Caption = #22522#26412#20449#24687
				    TabOrder = 0
				    object lblCode: TLabel
				      Tag = 1
				      Left = 24
				      Top = 24
				      Width = 48
				      Height = 12
				      Alignment = taRightJustify
				      Caption = #21333#25454#32534#21495
				    end
				    object edtCode: TEdit
				      Left = 80
				      Top = 16
				      Width = 121
				      Height = 20
				      ImeName = ''
				      TabOrder = 0
				    end
				  end
				  object ActionList1: TActionList
				    Images = SYSDM.imgBtn
				    Left = 696
				    Top = 8
				    object ActFirst: TAction
				      Caption = #26368#21069
				      Hint = #31227#21040#31532#19968#26465#35760#24405
				      ImageIndex = 0
				      ShortCut = 32838
				      OnExecute = ActFirstExecute
				    end
				    object ActPrior: TAction
				      Caption = #19978#31227
				      Hint = #31227#21040#19978#19968#26465#35760#24405
				      ImageIndex = 1
				      ShortCut = 32834
				      OnExecute = ActPriorExecute
				    end
				    object ActNext: TAction
				      Caption = #19979#31227
				      Hint = #31227#21040#19979#19968#26465#35760#24405
				      ImageIndex = 2
				      ShortCut = 32846
				      OnExecute = ActNextExecute
				    end
				    object ActLast: TAction
				      Caption = #26368#21518
				      Hint = #31227#21040#26368#21518#19968#26465#35760#24405
				      ImageIndex = 3
				      ShortCut = 32844
				      OnExecute = ActLastExecute
				    end
				    object ActInsert: TAction
				      Caption = #26032#22686
				      Hint = #26032#22686#19968#26465#35760#24405
				      ImageIndex = 4
				      ShortCut = 32833
				      OnExecute = ActInsertExecute
				    end
				    object ActUpdate: TAction
				      Caption = #20462#25913
				      Hint = #20462#25913#24403#21069#35760#24405
				      ImageIndex = 5
				      ShortCut = 32837
				      OnExecute = ActUpdateExecute
				    end
				    object ActDelete: TAction
				      Caption = #21024#38500
				      Hint = #21024#38500#24403#21069#35760#24405
				      ImageIndex = 6
				      ShortCut = 32836
				      OnExecute = ActDeleteExecute
				    end
				    object ActSave: TAction
				      Caption = #20445#23384
				      Enabled = False
				      Hint = #20445#23384#32534#36753#30340#35760#24405
				      ImageIndex = 7
				      ShortCut = 32851
				      OnExecute = ActSaveExecute
				    end
				    object ActCancel: TAction
				      Caption = #21462#28040
				      Enabled = False
				      Hint = #21462#28040#32534#36753#30340#35760#24405
				      ImageIndex = 8
				      ShortCut = 32835
				      OnExecute = ActCancelExecute
				    end
				    object ActRefresh: TAction
				      Caption = #21047#26032
				      Hint = #21462#24471#26368#26032#30340#25968#25454
				      ImageIndex = 9
				      ShortCut = 32850
				      OnExecute = ActRefreshExecute
				    end
				    object ActLocate: TAction
				      Caption = #26597#25214
				      Hint = #24555#36895#23450#20301#35760#24405
				      ImageIndex = 10
				      ShortCut = 32847
				      OnExecute = ActLocateExecute
				    end
				    object ActSearch: TAction
				      Caption = #26597#35810
				      Hint = #25353#26465#20214#26597#35810#25968#25454
				      ImageIndex = 11
				      ShortCut = 32849
				      OnExecute = ActSearchExecute
				    end
				    object ActPrint: TAction
				      Caption = #25171#21360
				      Hint = #23558#25968#25454#25171#21360#20986#26469
				      ImageIndex = 12
				      ShortCut = 32848
				      OnExecute = ActPrintExecute
				    end
				    object ActExit: TAction
				      Caption = #36864#20986
				      Hint = #20851#38381#24403#21069#31383#21475
				      ImageIndex = 15
				      ShortCut = 32856
				      OnExecute = ActExitExecute
				    end
				    object Action1: TAction
				      Tag = 2
				      Caption = 'Action1'
				      Visible = False
				    end
				    object Action2: TAction
				      Tag = 2
				      Caption = 'Action2'
				      Visible = False
				    end
				    object Action3: TAction
				      Tag = 2
				      Caption = 'Action3'
				      Visible = False
				    end
				    object Action4: TAction
				      Tag = 2
				      Caption = 'Action4'
				      Visible = False
				    end
				  end
				  object ADOQuery1: TADOQuery
				    CacheSize = 1000
				    Connection = SYSDM.ADOC
				    AfterScroll = ADOQuery1AfterScroll
				    Parameters = 
				    Left = 40
				    Top = 80
				  end
				  object DataSource1: TDataSource
				    DataSet = ADOQuery1
				    Left = 8
				    Top = 80
				  end
				end
							

相关资源