unit1.dfm

花了两个多星期写的考勤系统

object Form1: TForm1
  Left = 321
  Top = 185
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 56
    Top = 48
    Width = 505
    Height = 313
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
  object MainMenu1: TMainMenu
    Left = 456
    Top = 128
    object mmFile: TMenuItem
      Caption = '&File'
      object miOpen: TMenuItem
        Caption = '&Open'
        OnClick = miOpenClick
      end
      object miClose: TMenuItem
        Caption = '&Close'
        OnClick = miCloseClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object miExit: TMenuItem
        Caption = '&Exit'
        OnClick = miExitClick
      end
    end
  end
end