umoveto.dfm

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

object Form_MoveTo: TForm_MoveTo
  Left = 234
  Top = 234
  Width = 661
  Height = 415
  Caption = 'Form_MoveTo'
  Color = 15856627
  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 EditMTRecord: TSpeedButton
    Left = 224
    Top = 356
    Width = 100
    Height = 28
    Caption = #32534#36753#35760#24405
    Flat = True
    OnClick = EditMTRecordClick
  end
  object DeleteMTRecord: TSpeedButton
    Left = 325
    Top = 356
    Width = 100
    Height = 28
    Caption = #21024#38500#35760#24405
    Flat = True
    OnClick = DeleteMTRecordClick
  end
  object OutputMTRecord: TSpeedButton
    Left = 528
    Top = 356
    Width = 100
    Height = 28
    Caption = #23548#20986#35760#24405
    Flat = True
    OnClick = OutputMTRecordClick
  end
  object SBshowAll: TSpeedButton
    Left = 426
    Top = 356
    Width = 100
    Height = 28
    Caption = #26174#31034#20840#37096#35760#24405
    Flat = True
    OnClick = SBshowAllClick
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 1
    Width = 209
    Height = 384
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 20
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #32844#24037#32534#21495#65306
    end
    object Label2: TLabel
      Left = 8
      Top = 79
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #21407'  '#37096'  '#38376#65306
    end
    object Label3: TLabel
      Left = 8
      Top = 50
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #35843#21160#26085#26399#65306
    end
    object Label6: TLabel
      Left = 8
      Top = 178
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #21407'  '#24037'  '#36164#65306
    end
    object TLabel
      Left = 8
      Top = 56
      Width = 3
      Height = 13
    end
    object Label8: TLabel
      Left = 8
      Top = 128
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #26032'  '#37096'  '#38376#65306
    end
    object AddMTRecord: TSpeedButton
      Left = 112
      Top = 352
      Width = 85
      Height = 28
      Caption = #30830#23450
      Flat = True
      OnClick = AddMTRecordClick
    end
    object Label5: TLabel
      Left = 8
      Top = 206
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #26032'  '#24037'  '#36164#65306
    end
    object Label11: TLabel
      Left = 8
      Top = 232
      Width = 60
      Height = 13
      Caption = #35843#21160#21407#22240#65306
    end
    object Edit1: TEdit
      Left = 72
      Top = 16
      Width = 81
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      Text = 'Edit1'
    end
    object SelectEmployeeID: TButton
      Left = 156
      Top = 16
      Width = 49
      Height = 21
      Caption = #36873#25321
      TabOrder = 7
      OnClick = SelectEmployeeIDClick
    end
    object Edit2: TEdit
      Left = 72
      Top = 176
      Width = 129
      Height = 21
      TabOrder = 4
      OnKeyPress = Edit2KeyPress
    end
    object Edit3: TEdit
      Left = 72
      Top = 202
      Width = 129
      Height = 21
      TabOrder = 5
      OnKeyPress = Edit2KeyPress
    end
    object ComboBox1: TComboBox
      Left = 72
      Top = 72
      Width = 129
      Height = 21
      ItemHeight = 13
      TabOrder = 2
    end
    object MoveToDateTime: TDateTimePicker
      Left = 72
      Top = 46
      Width = 129
      Height = 21
      Date = 38443.456043113420000000
      Time = 38443.456043113420000000
      DateFormat = dfLong
      TabOrder = 1
    end
    object ComboBox2: TComboBox
      Left = 72
      Top = 98
      Width = 129
      Height = 21
      ItemHeight = 13
      TabOrder = 3
    end
    object GroupBox2: TGroupBox
      Left = 2
      Top = 256
      Width = 202
      Height = 89
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 8
      object Label4: TLabel
        Left = 24
        Top = 16
        Width = 168
        Height = 13
        Caption = #27880#65306#26412#21151#33021#21482#20316#20026#35760#24405#30340#22686#21152#19982
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label7: TLabel
        Left = 1
        Top = 34
        Width = 192
        Height = 13
        Caption = #32534#36753#65292#20219#20309#25805#20316#19981#20250#24433#21709#21040#35813#32844#24037#30340
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label9: TLabel
        Left = 1
        Top = 53
        Width = 192
        Height = 13
        Caption = #23454#38469#35760#24405#65292#35201#24819#35843#21160#35813#32844#24037#35831#20351#29992#32534
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label10: TLabel
        Left = 1
        Top = 72
        Width = 196
        Height = 13
        Caption = #36753#33756#21333#19979#30340#39#31227#21160#21040#20854#23427#37096#38376#39#21151#33021#22788#29702
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
    end
    object ComboBox3: TComboBox
      Left = 72
      Top = 124
      Width = 129
      Height = 21
      ItemHeight = 13
      TabOrder = 9
      OnClick = ComboBox3Click
    end
    object ComboBox4: TComboBox
      Left = 72
      Top = 150
      Width = 129
      Height = 21
      ItemHeight = 13
      TabOrder = 10
    end
    object Edit4: TEdit
      Left = 72
      Top = 232
      Width = 129
      Height = 21
      TabOrder = 6
      OnKeyPress = Edit4KeyPress
    end
  end
  object DBGridMoveTo: TDBGridEh
    Left = 216
    Top = 5
    Width = 433
    Height = 348
    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 = DS10
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        IsCurrency = False
        DisplayNullIfZero = False
        EditButtons = <>
        FieldName = 'MT_EmployeeID'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #32844#24037#32534#21495
        Width = 80
      end
      item
        IsCurrency = False
        DisplayNullIfZero = False
        EditButtons = <>
        FieldName = 'MT_Date'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #35843#21160#26085#26399
        Width = 80
      end
      item
        IsCurrency = False
        DisplayNullIfZero = False
        EditButtons = <>
        FieldName = 'MT_Explain'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #35843#21160#21407#30001
        Width = 120
      end
      item
        IsCurrency = False
        DisplayNullIfZero = False
        EditButtons = <>
        FieldName = 'MT_OldFirstDept'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #35843#21160#21069#19968#32423#37096#38376
        Width = 100
      end
      item
        IsCurrency = False
        DisplayNullIfZero = False
        EditButtons = <>
        FieldName = 'MT_OldSecondDept'
        Footers = <>
        Title.Caption = #35843#21160#21069#20108#32423#37096#38376
        Width = 100
      end
      item
        IsCurrency = False
        DisplayNullIfZero = False
        EditButtons = <>
        FieldName = 'MT_NewFirstDept'
        Footers = <>
        Title.Caption = #35843#21160#21518#19968#32423#37096#38376
        Width = 100
      end
      item
        IsCurrency = False
        DisplayNullIfZero = False
        EditButtons = <>
        FieldName = 'MT_NewSecondDept'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #35843#21160#21518#37096#38376
        Width = 100
      end
      item
        IsCurrency = False
        DisplayNullIfZero = False
        EditButtons = <>
        FieldName = 'MT_OldPay'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #35843#21160#21069#24037#36164
        Width = 80
      end
      item
        IsCurrency = False
        DisplayNullIfZero = False
        EditButtons = <>
        FieldName = 'MT_NewPay'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #35843#21160#21518#24037#36164
        Width = 80
      end>
  end
  object DS10: TDataSource
    DataSet = ADOQMoveTo
    Left = 320
    Top = 120
  end
  object ADOQMoveTo: TADOQuery
    Active = True
    Connection = Form_Main.ADOC1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM MoveTo')
    Left = 288
    Top = 120
  end
end