cformcorplist.dfm

人力资源的信息。其他人不需帐号就可自由下载此源码

inherited formCorpList: TformCorpList
  Width = 688
  Height = 519
  OnCreate = IWAppFormCreate
  DesignLeft = 55
  DesignTop = -11
  inherited iwbTitle: TIWLabel
    Left = 159
    Top = 56
    Width = 140
    Height = 32
    Caption = #21333#20301#21015#34920
  end
  inherited IWImage1: TIWImage
    Width = 688
  end
  object iwgCorp: TIWDBGrid [2]
    Left = 160
    Top = 88
    Width = 513
    Height = 297
    Anchors = [akLeft, akTop, akRight, akBottom]
    ZIndex = 0
    BorderColors.Color = clNone
    BorderColors.Light = clNone
    BorderColors.Dark = clNone
    BGColor = clNone
    BorderSize = 1
    BorderStyle = tfDefault
    CellPadding = 0
    CellSpacing = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FrameBuffer = 40
    Lines = tlNone
    UseFrame = True
    UseWidth = True
    Columns = <
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = False
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'No'
        Title.Alignment = taLeftJustify
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #24207#21495
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'ChnName'
        LinkField = 'CorpID'
        OnClick = iwgCorpColumns1Click
        Title.Alignment = taLeftJustify
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #20013#25991#21517#31216
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'EngName'
        Title.Alignment = taLeftJustify
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #33521#25991#21517#31216
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'Phone'
        Title.Alignment = taLeftJustify
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #30005#35805
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'Fax'
        Title.Alignment = taLeftJustify
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #20256#30495
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end>
    DataSource = dmHR.dsCorp
    FooterRowCount = 0
    FromStart = False
    HighlightColor = clHotLight
    HighlightRows = False
    Options = [dgIndicator, dgShowTitles]
    RefreshMode = rmAutomatic
    RowLimit = 3
    RollOver = False
    RowClick = False
    RollOverColor = clDefault
    RowHeaderColor = clMoneyGreen
    RowAlternateColor = clGradientInactiveCaption
    RowCurrentColor = clSkyBlue
  end
  object iwnCorp: TIWDBNavigator [3]
    Left = 272
    Top = 58
    Width = 161
    Height = 25
    ZIndex = 0
    Confirmations.Delete = #26159#21542#30830#23450#35201#21024#38500#24403#21069#35760#24405#65311
    Confirmations.Post = 'Are you sure you want to update this record?'
    Confirmations.Cancel = 'Are you sure you want to cancel your changes to this record?'
    DataSource = dmHR.dsCorp
    ImageHeight = 21
    ImageWidth = 21
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbEdit, nbRefresh]
    Orientation = orHorizontal
    OnEdit = iwnCorpEdit
    OnInsert = iwnCorpInsert
  end
  object iwdmChnInfo: TIWDBMemo [4]
    Left = 160
    Top = 412
    Width = 217
    Height = 93
    Anchors = [akLeft, akBottom]
    ZIndex = 0
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    RawText = False
    ReadOnly = False
    Required = False
    TabOrder = 0
    WantReturns = False
    AutoEditable = False
    DataField = 'ChnInfo'
    DataSource = dmHR.dsCorp
  end
  object iwdmEngInfo: TIWDBMemo [5]
    Left = 400
    Top = 412
    Width = 233
    Height = 93
    Anchors = [akLeft, akBottom]
    ZIndex = 0
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    RawText = False
    ReadOnly = False
    Required = False
    TabOrder = 1
    WantReturns = False
    AutoEditable = False
    DataField = 'EngInfo'
    DataSource = dmHR.dsCorp
  end
  object iwbIWLabel1: TIWLabel [6]
    Left = 160
    Top = 395
    Width = 132
    Height = 20
    Anchors = [akLeft, akBottom]
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #20013#25991#20844#21496#20449#24687
  end
  object iwbIWLabel2: TIWLabel [7]
    Left = 401
    Top = 395
    Width = 132
    Height = 20
    Anchors = [akLeft, akBottom]
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #33521#25991#20844#21496#20449#24687
  end
  object iwbLastPage: TIWButton [8]
    Left = 512
    Top = 56
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = '<'#19978#19968#39029
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 2
    OnClick = iwbLastPageClick
  end
  object iwbNextPage: TIWButton [9]
    Left = 592
    Top = 56
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #19979#19968#39029'>'
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 3
    OnClick = iwbNextPageClick
  end
  object iwbDelete: TIWButton [10]
    Left = 434
    Top = 56
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #21024#38500#20844#21496
    Color = clBtnFace
    Confirmation = #26159#21542#30830#23450#35201#21024#38500#35813#20844#21496#65311
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 4
    OnClick = iwbDeleteClick
  end
  inherited FrameMenu1: TFrameMenu
    Width = 145
    Height = 470
  end
end