uworkage.dfm

说明: 比较简单的人事档案管理程序,包含了人事档案的大部分功能,做人事档案的兄弟可以看看. 本程序类型：delphi7 + Access2000 桌面数据库 初始用户名/密码:admin

object Form_WorkAge: TForm_WorkAge
  Left = 284
  Top = 344
  Width = 534
  Height = 322
  Caption = #32844#24037#24037#40836#32479#35745
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 268
    Width = 81
    Height = 13
    AutoSize = False
    Caption = #32479#35745#24037#40836#22823#20110
  end
  object Label2: TLabel
    Left = 125
    Top = 268
    Width = 12
    Height = 13
    AutoSize = False
    Caption = #24180
  end
  object Label3: TLabel
    Left = 178
    Top = 268
    Width = 12
    Height = 13
    AutoSize = False
    Caption = #26376
  end
  object Label4: TLabel
    Left = 232
    Top = 268
    Width = 12
    Height = 13
    AutoSize = False
    Caption = #26085
  end
  object SpeedButton1: TSpeedButton
    Left = 256
    Top = 261
    Width = 85
    Height = 28
    Caption = #30830#23450
    Flat = True
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 432
    Top = 261
    Width = 85
    Height = 28
    Caption = #23548#20986#35760#24405
    Flat = True
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton
    Left = 344
    Top = 261
    Width = 85
    Height = 28
    Caption = #26174#31034#20840#37096#35760#24405
    Flat = True
    OnClick = SpeedButton3Click
  end
  object Edit1: TEdit
    Left = 88
    Top = 264
    Width = 33
    Height = 19
    Ctl3D = False
    MaxLength = 2
    ParentCtl3D = False
    TabOrder = 0
    OnKeyPress = Edit2KeyPress
  end
  object Edit2: TEdit
    Left = 144
    Top = 264
    Width = 33
    Height = 19
    Ctl3D = False
    MaxLength = 2
    ParentCtl3D = False
    TabOrder = 1
    OnKeyPress = Edit2KeyPress
  end
  object Edit3: TEdit
    Left = 192
    Top = 264
    Width = 33
    Height = 19
    Ctl3D = False
    MaxLength = 2
    ParentCtl3D = False
    TabOrder = 2
    OnKeyPress = Edit2KeyPress
  end
  object DBGridWorkAge: TDBGridEh
    Left = 0
    Top = 0
    Width = 521
    Height = 257
    FixGridlinecolor = clGray
    Gridlinecolor = clGray
    FooterDisplayStyle = False
    CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
    CurrencyStyle.CurrencyFont.Color = clWindowText
    CurrencyStyle.CurrencyFont.Height = -11
    CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
    CurrencyStyle.CurrencyFont.Style = []
    CurrencyStyle.CurrencySymbol = #65509
    CurrencyStyle.CompartColor = clSilver
    CurrencyStyle.KilobitColor = clGreen
    CurrencyStyle.RadixColor = clRed
    CurrencyStyle.ShowMinus = True
    CurrencyStyle.ShowZero = False
    CurrencyStyle.MinusColor = clRed
    CurrencyStyle.Layout = tlCenter
    CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
    CurrencyStyle.HeadFont.Color = clWindowText
    CurrencyStyle.HeadFont.Height = -11
    CurrencyStyle.HeadFont.Name = #26999#20307'_GB2312'
    CurrencyStyle.HeadFont.Style = []
    Align = alCustom
    Anchors = [akLeft, akTop, akRight, akBottom]
    UseMenu = True
    DataSource = DS6
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DS6: TDataSource
    DataSet = ADOQWorkAge
    Left = 120
    Top = 56
  end
  object ADOQWorkAge: TADOQuery
    Connection = Form_Main.ADOC1
    CursorType = ctStatic
    OnCalcFields = ADOQWorkAgeCalcFields
    Parameters = <>
    SQL.Strings = (
      'select * from employee')
    Left = 88
    Top = 56
    object ADOQWorkAgeField: TStringField
      FieldKind = fkCalculated
      FieldName = #24037#40836
      Calculated = True
    end
    object ADOQWorkAgeemployee_id: TWideStringField
      DisplayLabel = #32844#24037#32534#21495
      FieldName = 'employee_id'
      Size = 12
    end
    object ADOQWorkAgeemployee_name: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'employee_name'
      Size = 8
    end
    object ADOQWorkAgeemployee_firstdept: TWideStringField
      DisplayLabel = #19968#32423#37096#38376
      FieldName = 'employee_firstdept'
      Size = 15
    end
    object ADOQWorkAgeemployee_seconddept: TWideStringField
      DisplayLabel = #20108#32423#37096#38376
      FieldName = 'employee_seconddept'
      Size = 15
    end
    object ADOQWorkAgeemployee_startworkdate: TWideStringField
      DisplayLabel = #21442#21152#24037#20316#26085#26399
      FieldName = 'employee_startworkdate'
      Size = 15
    end
  end
end