employeesfm.dfm

来自「医药连锁经营管理系统源码」· DFM 代码 · 共 1,133 行 · 第 1/4 页

object FmEmployees: TFmEmployees
  Left = -7
  Top = 116
  Width = 796
  Height = 503
  Caption = #21592#24037#36164#26009#24211
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 24
    Width = 788
    Height = 409
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object dbgEmployees: TxDBGridEh
      Left = 0
      Top = 0
      Width = 788
      Height = 409
      Align = alClient
      AllowedOperations = []
      ColumnDefValues.Title.Alignment = taCenter
      DataSource = DsEmployees
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghRowHighlight]
      ReadOnly = True
      RowHeight = 16
      SortLocal = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      TitleHeight = 15
      OnDblClick = dbgEmployeesDblClick
      RowColorsUse = True
      RowColor1 = 16772846
      Columns = <
        item
          EditButtons = <>
          FieldName = 'EmpNo'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'NAME'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'OLDNAME'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'Sex'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'BIRTHDAY'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'DepartID'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'DepartName'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'DUTY'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'State'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'HireDate'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'FireDate'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'CARDID'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'DEGREE'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'SPECIALTY'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'NativePlace'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'TEL'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'Mobile'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'Address'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'LinkMan'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'LinkTel'
          Footers = <>
          Title.TitleButton = True
        end
        item
          EditButtons = <>
          FieldName = 'Remark'
          Footers = <>
          Title.TitleButton = True
        end>
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 433
    Width = 788
    Height = 43
    Align = alBottom
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 1
    object RzBorder1: TRzBorder
      Left = 0
      Top = 0
      Width = 788
      Height = 6
      BorderInner = fsBump
      BorderOuter = fsBump
      BorderSides = [sdBottom]
      Align = alTop
    end
    object BtnNew: TRzBitBtn
      Left = 205
      Top = 12
      Width = 80
      Height = 26
      Action = ActNew
      Caption = #26032#22686'(&N)'
      Color = 15791348
      Font.Charset = GB2312_CHARSET
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDD000
        7DDDDDDDDDDD7DD07DDDDDDDDD7000D07DDDDDDDDD7DD0D07777DDDD7000D0D0
        0000DDDD7FF0D0DDDDD0DD007FF0D00000D0DD7D7FF0DDDDD07700000FF00000
        D0DD7FFFFFFFFFF077DD7FFFFFFFFFF0DDDD77777FF07777DDDDDDDD7FF0D0DD
        DDDDDDDD7FF077DDDDDDDDDD7FF0DDDDDDDDDDDD7777DDDDDDDD}
      ImageIndex = 2
      Images = ImageList1
    end
    object BitBtn2: TRzBitBtn
      Left = 696
      Top = 12
      Width = 80
      Height = 26
      Action = ActExit
      Caption = #36864#20986'(&E)'
      Color = 15791348
      Font.Charset = GB2312_CHARSET
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000C40E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDDD0DDDDDDDDDDDDDD00DDDDDDDDDDDDD030DDDDDDDDDDDD0330DDDDDD
        DDDD0033300000000DDDD03330FF0DDDDDDDD03300FF0DDDD4DDD03330FF0DDD
        44DDD03330FF0DD44444D03330FF0D444444D03330FF0DD44444D0330FFF0DDD
        44DDD030FFFF0DDDD4DDD00FFFFF0DDDDDDDD00000000DDDDDDD}
      ImageIndex = 7
      Images = ImageList1
    end
    object BtnPrint: TRzBitBtn
      Left = 597
      Top = 12
      Width = 80
      Height = 26
      Action = ActPrint
      Caption = #25253#34920'(&P)'
      Color = 15791348
      Font.Charset = GB2312_CHARSET
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = #23435#20307