hwlangs.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

          object Label3: TLabel
            Left = 144
            Top = 11
            Width = 24
            Height = 12
            Caption = #26631#39064
            FocusControl = DBEdit2
          end
          object Label4: TLabel
            Left = 376
            Top = 11
            Width = 24
            Height = 12
            Caption = #25552#31034
            FocusControl = DBEdit3
          end
          object DBEdit1: TDBEdit
            Left = 40
            Top = 3
            Width = 97
            Height = 20
            DataField = 'LangName'
            DataSource = DataSource1
            Enabled = False
            ReadOnly = True
            TabOrder = 0
          end
          object DBEdit2: TDBEdit
            Left = 176
            Top = 3
            Width = 193
            Height = 20
            DataField = 'Name'
            DataSource = DataSource1
            TabOrder = 1
          end
          object DBEdit3: TDBEdit
            Left = 408
            Top = 3
            Width = 193
            Height = 20
            DataField = 'Hint'
            DataSource = DataSource1
            TabOrder = 2
          end
        end
        object Edit1: TEdit
          Left = 56
          Top = 16
          Width = 97
          Height = 20
          TabOrder = 0
          OnKeyDown = Edit1KeyDown
        end
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 432
    Top = 40
    object mmiPrint: TMenuItem
      Action = ActPrint
    end
    object mmiExport: TMenuItem
      Action = ActExport
    end
  end
  object dsLangs: TDataSource
    DataSet = adsLangs
    Left = 16
    Top = 224
  end
  object qryLangs: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.LangsADOC
    Parameters = <>
    SQL.Strings = (
      'select * from Langs order by SeqNo')
    Left = 24
    Top = 272
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'xls'
    Filter = 'Excel'#25991#20214'(*.xls)|*.xls'
    Left = 328
    Top = 72
  end
  object ActionList1: TActionList
    Images = SYSDM.imgBtn
    Left = 368
    Top = 72
    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 = 32848
      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 ActExport: TAction
      Caption = #23548#20986#21040'Excel'
      Hint = #23548#20986#21040'Excel'#25991#20214#20013
      ShortCut = 32852
      OnExecute = ActExportExecute
    end
    object ActLang: TAction
      Caption = #35821#31181
      Hint = #35821#31181#32500#25252
      ImageIndex = 17
      OnExecute = ActLangExecute
    end
    object ActExit: TAction
      Caption = #36864#20986
      Hint = #20851#38381#24403#21069#31383#21475
      ImageIndex = 15
      ShortCut = 32856
      OnExecute = ActExitExecute
    end
  end
  object adsLangs: TADODataSet
    Connection = SYSDM.LangsADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterScroll = adsLangsAfterScroll
    FieldDefs = <
      item
        Name = 'LangID'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'LangName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Name'
        DataType = ftString
        Size = 255
      end
      item
        Name = 'Hint'
        DataType = ftString
        Size = 255
      end
      item
        Name = 'TableName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'SeqNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end>
    IndexFieldNames = 'LangID;SeqNo'
    Parameters = <>
    StoreDefs = True
    Left = 24
    Top = 232
    object adsLangsLangID: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'LangID'
    end
    object adsLangsLangName: TStringField
      DisplayLabel = #35821#35328
      FieldName = 'LangName'
      Size = 50
    end
    object adsLangsName: TStringField
      DisplayLabel = #26631#39064
      FieldName = 'Name'
      Size = 255
    end
    object adsLangsHint: TStringField
      DisplayLabel = #25552#31034
      FieldName = 'Hint'
      Size = 255
    end
    object adsLangsTableName: TStringField
      FieldName = 'TableName'
      Visible = False
      Size = 50
    end
    object adsLangsSeqNo: TIntegerField
      FieldName = 'SeqNo'
      Visible = False
    end
  end
  object ADOQuery1: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.LangsADOC
    Parameters = <>
    Left = 24
    Top = 312
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 384
    Top = 248
  end
  object ADODataSet1: TADODataSet
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 376
    Top = 240
    object ADODataSet1LangID: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'LangID'
    end
    object ADODataSet1LangName: TStringField
      DisplayLabel = #35821#35328
      FieldName = 'LangName'
      Size = 50
    end
    object ADODataSet1Name: TStringField
      DisplayLabel = #26631#39064
      FieldName = 'Name'
      OnChange = ADODataSet1NameChange
      Size = 255
    end
    object ADODataSet1Hint: TStringField
      DisplayLabel = #25552#31034
      FieldName = 'Hint'
      Size = 255
    end
    object ADODataSet1TableName: TStringField
      DisplayLabel = #34920#21517
      FieldName = 'TableName'
      Visible = False
      Size = 50
    end
  end
end