udatarecord.dfm

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

object Form_DataRecord: TForm_DataRecord
  Left = 315
  Top = 195
  Width = 507
  Height = 357
  Caption = #25968#25454#24211#35760#24405#32479#35745
  Color = clBtnFace
  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 = 8
    Top = 112
    Width = 49
    Height = 13
    AutoSize = False
    Caption = #25968#25454#24211
  end
  object FirstDeptNumber: TStaticText
    Left = 8
    Top = 16
    Width = 489
    Height = 25
    AutoSize = False
    BevelKind = bkSoft
    Caption = #19968#32423#37096#38376#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object SecondDeptNumber: TStaticText
    Left = 8
    Top = 48
    Width = 489
    Height = 25
    AutoSize = False
    BevelKind = bkSoft
    Caption = #20108#32423#37096#38376#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object AllRecord: TStaticText
    Left = 8
    Top = 80
    Width = 489
    Height = 25
    AutoSize = False
    BevelKind = bkSoft
    Caption = #32844#24037#24635#20154#25968#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object DBGridEh1: TDBGridEh
    Left = 8
    Top = 128
    Width = 489
    Height = 193
    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 = []
    UseMenu = True
    DataSource = DS11
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgColumnResize, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        IsCurrency = False
        Alignment = taCenter
        DisplayNullIfZero = False
        EditButtons = <>
        FieldName = #37096#38376
        Footers = <>
        Title.Alignment = taCenter
        Width = 120
      end
      item
        IsCurrency = False
        Alignment = taCenter
        DisplayNullIfZero = False
        EditButtons = <>
        FieldName = #37096#38376#20154#25968
        Footers = <>
        Title.Alignment = taCenter
        Width = 120
      end
      item
        IsCurrency = False
        DisplayNullIfZero = False
        EditButtons = <>
        FieldName = #25968#25454#24211#25991#20214#36335#24452
        Footers = <>
        Title.Alignment = taCenter
        Width = 228
      end>
  end
  object ADOQDataRecord: TADOQuery
    Connection = Form_Main.ADOC1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      ''
      ' '
      '')
    Left = 96
    Top = 64
  end
  object DS11: TDataSource
    DataSet = ADOQuery1
    Left = 88
    Top = 184
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = Form_Main.ADOC1
    CursorType = ctStatic
    OnCalcFields = ADOQuery1CalcFields
    Parameters = <>
    SQL.Strings = (
      
        'select Employee_FirstDept as '#37096#38376' ,count(employee.Employee_FirstDe' +
        'pt) as '#37096#38376#20154#25968
      'from employee,dept'
      
        'where Dept.dept_Name=Employee.Employee_FirstDept or Dept_id=Dept' +
        '_UPID'
      'Group by Employee_FirstDept')
    Left = 32
    Top = 192
    object ADOQuery1DSDesigner: TWideStringField
      FieldName = #37096#38376
      Size = 25
    end
    object ADOQuery1DSDesigner2: TIntegerField
      FieldName = #37096#38376#20154#25968
    end
    object ADOQuery1Field: TStringField
      FieldKind = fkCalculated
      FieldName = #25968#25454#24211#25991#20214#36335#24452
      Size = 50
      Calculated = True
    end
  end
end