guanyuunit.dfm

这是一个有DELPHI编写的自动作息时间打铃控制程序,具有灵活的权限分配,能灵活编写作时间,并有手动打铃功能,能自已加入铃声.你自己看吧

object Form2: TForm2
  Left = 315
  Top = 93
  BorderStyle = bsSingle
  Caption = #26234#33021#20316#24687#26102#38388#25511#21046#31995#32479'           '
  ClientHeight = 166
  ClientWidth = 331
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 88
    Top = 40
    Width = 77
    Height = 24
    Caption = #31243#24207#31616#20171':'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Image1: TImage
    Left = 8
    Top = 16
    Width = 65
    Height = 97
    Picture.Data = {
      0A544A504547496D6167653B0B0000FFD8FFE000104A46494600010101004800
      480000FFDB0043000302020302020303030304030304050805050404050A0707
      06080C0A0C0C0B0A0B0B0D0E12100D0E110E0B0B1016101113141515150C0F17
      1816141812141514FFDB00430103040405040509050509140D0B0D1414141414
      1414141414141414141414141414141414141414141414141414141414141414
      14141414141414141414141414FFC0001108005F004103012200021101031101
      FFC4001F0000010501010101010100000000000000000102030405060708090A
      0BFFC400B5100002010303020403050504040000017D01020300041105122131
      410613516107227114328191A1082342B1C11552D1F02433627282090A161718
      191A25262728292A3435363738393A434445464748494A535455565758595A63
      6465666768696A737475767778797A838485868788898A92939495969798999A
      A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
      D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
      01010101010101010000000000000102030405060708090A0BFFC400B5110002
      0102040403040705040400010277000102031104052131061241510761711322
      328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
      292A35363738393A434445464748494A535455565758595A636465666768696A
      737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
      A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
      E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00FD53
      A28A2800A2BE49FDA2BF6F1D37E1678A6F7C27E1DD3D35BD5E12D6D25D45297F
      26E47DE8C4417E62B9193B8608604719AF19BAF8F9F1CBC6766BF69D69F45848
      CA259C31C52B7391B993041C76CD73D4C453A5F1337A742A56F811FA39457E7B
      689F1CFE34693716B27FC2466F234C0786FADE39048A09C03C67A752083CF5AE
      C64FF82866A7E089921F1CF8261821760ABA9E9F74E20CE0601428EC3273DFDB
      9EA6218AA53D13349E16AD35768FB628AF33F82DFB42F837E3A69865F0F6A51B
      EA30C7BEEB4D7DCB2C3F36D246E037AE71F301C074C852C057A65759C8145145
      0015E5BFB4C7C55FF8539F067C41E2086658352318B4B07240DB7127CAAE3208
      3B06E930473E5E3BD7A957CB1FF0522F0CDE7883F6707B9B65DD1693ABDB5F5C
      8DC07EECAC90F43D7E7993E9D7B54C9D93634AEEC7C4BFB377840EAB71AAF89B
      5457BBD5669FCB49A61960BDB07B761C63A57D3563A3CAF1061061BD003D3F95
      713F03BC3C9A1F81F47061F2DE589656000192C3233F862BDB2D6D1D60C12232
      00DB839CFE15F26E1ED2A36D9F6145FB2A518A47097DA1CC11C84D8319C9193F
      E7FF00AD5E6FF1234A1AC785F55B1B884B9920645623386C707A57BEDE5A4AF0
      1DD2217C6300F26BCFFC45A5A4CE536A9ECDCE7FCE6B2A94DD3D627473A9AB34
      7C81F00BE25DDFC1FF0088DA06A8525492C2FD3CC68C02E63CB23A60820EE8DA
      4523E5273D41C357EDB57E2978B7E1BEA52FC68D2FC37A6C6826D7A54B7B5F31
      9420692408319181F337B7D738AFDADAFA8C34F9E173E3ABC3D9CDA614514575
      9CE15E0BFB50F8AE5974DFF842059DBCDA76B5A75CFF00684D731EF2A846C8FC
      A19FBE1B2F9238289D7271EF55E55FB43782E5F13F8496FADB71B8D384859013
      CC4E06F6C019254AA1EA06D0FD78AE7C4737B26E1B9DB8354DD78AABB3FE91F3
      858E882D748D3BEDB6735B30B7880B68D496E5548DB903230410C7008C1EF557
      48BCB1C196D2EF54B2B7520341A896500125411BF246483D4FA1EFCF47A7416D
      3467CE625C31DB9EC4F39CFE7556E2DAC354BAFECF947DA496DEF84F91369E01
      EC093C0FCFB0AF0AEB96D63E82319DD34CC6D46E20BE926792EEF668226556B6
      B3944529CF40776D20723DBDEB3347B8D3355B48D2C6CB55D3392624D4D4EE70
      090739248E47F173ED8C5749AA5C4167AF0DF6FE5C93ED0C5579040E3DB91FCA
      AE4CB66B692131387DB9560A319CFF00FAEA13D1A6692849CAE795C361268DF1
      7F4CF1CC1109754D0ED0B69F6773186B7763E69667FE22795C0182B807A9F93F
      433C17AF49E29F07685AD4B08B69751B082F1E11FF002CCC91AB95FC338AF893
      48F08DD78BBC4DA7D8D8C2AD733C860476CE141077124038007CC4E0F03A57DD
      7A769F6FA4E9F6B636B1F956B6D12C31479276A2801464F27000EB5E96039F5B
      EC79598C69C631B7C4EEDFA1668A28AF58F0C28A28A00F987E286843C37E3AD4
      2244F2E1BA6FB5C258A9CABF2DC0E803EF0075C28EBD6BCDF55974DBC8D33A8C
      B60CB26E32C1232C8C4313920755E3A1183EF9AFA67E3FDBD8DC783228E780B5
      FCB394B29D7830BAC6F33E4E73831C2E31CE495C8EE3E683A7A5C84748EDF09C
      1DE38CF7C8FCFAE7AD7818987B2A9E4CFA6C1565520937B18D043A7D96A26F9F
      C4573A86E3B0C57722AA03F3745007233DBAF7CE062FCBAC25F5B6E819961DDB
      36BF0D9FA5511E1F89E55964B7B08DA3E9F668C201DFA0033FAE2A80CDF6A5E5
      DAA991170AA631C7E03D4D7149EB647A152514FDD773EC3F80DE198B45F87DA7
      5D3DBECBCBC325C979146E0AE405DA7190AC91C6D8EFC1F4AF48AF1AFD98FE2D
      AFC44F02DA69FA85C447C45A5C090CE819B7DC44AA1567C3773D1B04E1B938DC
      A2BD96BEA29A518A48F8C9CDD49393EA14514568415353D5AC745B5373A85E5B
      D85B0214CD732AC6809E832C40AF24F147ED4FE13D1D5A3D2A3B9D7AE4AA94F2
      90C31125B054B38DC08033C21072067938F92357F10DEEB333DDEA37D3DFDCC8
      3E69A798C923003032CC49C7403E954C4134B2248027CABB893D8F6EDF5E83B7
      AE2A6E60EA763D7A0F8997DF143E29F862E75D16D0C50AC96AB6B6FBD622648D
      C1C2B13F33160A4F19017D2B27C71E12B9B3D4EEF4B69A7B4B98DBE49A318F3A
      33F71F918391D71D08619E2B96F07C822F1868B3127E5D42DDB27D3CC535F48F
      892C6CFC7D1DCC4645B6974E93C982E950962DCEF5607195EDC7719E41C1E4C4
      D0F6B1BC7747760EBFB293E6D99F2F2F83750F3F73DE4E23C1CA0DAA09272790
      01E71CF3CE79CD77BA2F86E4F0F786EEF5E745B6B4B2899ED99C95F3EE0711E3
      0412A1F1939C13F2F3F363B5D1BC1315BEBC906BB73045A7C44169226C897A7C
      B91CA839E49C62A1FDA0F5B861D1ED74A842DBA4ADF2C28A02AC49C28C76E482
      3FDDAE2C360DF373D4E9D0F43178B8C61C94F5BF53C0BC29E23D57C1DA99D434
      6BA974DBF8B81240D8C81821587465C81953907B8C57D01E0AFDB07538E3823F
      11E8F0DF467CB4FB4D8B79526070EECA72ACC78200D8339E80F1E01040AD0166
      2439CE3E5C16E7A9FF00EB7F8D57B44F374F46046587A6067EB5ECA5A1F39CCD
      3D0FB17FE1ADFC1DFF0040FD6FFF0001E2FF00E3B457C79B1FD7FF001D3FE345
      16907B5641752F971F964365C950C3A1F7E47D3F21EB5A56C8CD6EACAB82C7EE
      94209F6C9EC7FA9AC6BDB398D8CB730EF99E142CB02B004EDC820648193818E7
      07BE3AD6BC111E178F9946D072703AFF002ED492B117B965652B346F1CED0387
      043264B2E39F4C8207F2AFB13C171D9EA3696F2C6AAB1DC5BACF945C1E40C1F6
      FBC6BE3D472D964C4BB97E5CF1C0C123F97F915F547C1BBB6BCF0EE8ED191FF1
      E2230707F8582D69166D17A9D76ABE1DD31EC9C344260E769676C95E0F4F7AF9
      4BE2FEA6BA8F8A2EC2BB34168C2D9439C300848EDD72F9FCF9AFA9FC6F76DA5F
      85AE7512773DB44D3E47F16D4248FD2BE2FD46E5B50BB613B348EE4C8EECC496
      C8C924E73DF39EB934D8E4F4B14ECE3C471F2D84FBBCE07FFABDAA0B45115979
      71B02D182A79C65B18C1E3F0AB1F6B3631EC03E67CBAED1D7007A9F7CFF8D416
      90470C929FF584B9C27700F27935998321F2A4FEEAFE468AE4BFE13F87FE7A49
      FF007CD14B9D1163FFD9}
    OnClick = Image1Click
    OnMouseMove = Image1MouseMove
  end
  object Label2: TLabel
    Left = 88
    Top = 8
    Width = 105
    Height = 24
    Caption = #20316#32773':'#25991#21457#20852
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Memo1: TMemo
    Left = 88
    Top = 64
    Width = 241
    Height = 89
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Color = clInactiveBorder
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      #36825#26159#19968#20010#29992#26469#26367#20195#20256#32479#38083#22768#30340
      #31243#24207'.'#34935#24515#24076#26395#23427#20248#32654#30340#38083#22768
      #20351#25105#20204#20197#32654#30340#21551#36842'.')
    ParentBiDiMode = False
    ParentFont = False
    TabOrder = 0
  end
  object BitBtn1: TBitBtn
    Left = 136
    Top = 136
    Width = 75
    Height = 25
    Caption = #20851'   '#38381
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn1Click
  end
end