addgroomunit.~dfm

很好地delphi书籍源码

object FrmAddGRoom: TFrmAddGRoom
  Left = 206
  Top = 44
  Width = 711
  Height = 417
  BorderStyle = bsSizeToolWin
  Caption = #22686#21152#24202#20301#25805#20316
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 588
    Top = 0
    Width = 115
    Height = 383
    Align = alRight
    Color = clBtnFace
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 40
      Width = 56
      Height = 14
      Caption = #23458#25143#32534#21495
    end
    object LookUpIDSB: TSpeedButton
      Left = 22
      Top = 168
      Width = 81
      Height = 22
      Hint = #26681#25454#29992#25143#22995#21517#26597#25214#23458#25143#32534#21495
      Caption = #23458#25143#22995#21517
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      Layout = blGlyphTop
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = LookUpIDSBClick
    end
    object Label6: TLabel
      Left = 316
      Top = 22
      Width = 280
      Height = 14
      Caption = #27880#24847#65306#22914#26524#23384#22312#21516#22995#21517#23458#25143#65292#24517#39035#30001#32534#21495#21306#20998
    end
    object AddOkSB: TSpeedButton
      Left = 22
      Top = 190
      Width = 81
      Height = 22
      Caption = #25552#20132
      Enabled = False
      OnClick = AddOkSBClick
    end
    object NextSB: TSpeedButton
      Left = 22
      Top = 212
      Width = 81
      Height = 22
      Caption = #21462#28040
      OnClick = NextSBClick
    end
    object GuestIDCB: TComboBox
      Left = 4
      Top = 58
      Width = 107
      Height = 20
      Style = csOwnerDrawFixed
      ItemHeight = 14
      TabOrder = 0
      OnChange = GuestIDCBChange
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 0
    Width = 588
    Height = 383
    Align = alClient
    TabOrder = 1
    object Image1: TImage
      Left = 357
      Top = 185
      Width = 229
      Height = 196
      Align = alClient
      Picture.Data = {
        0A544A504547496D61676559280000FFD8FFE000104A46494600010101006000
        600000FFDB004300080606070605080707070909080A0C140D0C0B0B0C191213
        0F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F2739
        3D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232
        3232323232323232323232323232323232323232323232323232323232323232
        32323232323232323232323232FFC0001108009400C903012200021101031101
        FFC4001F0000010501010101010100000000000000000102030405060708090A
        0BFFC400B5100002010303020403050504040000017D01020300041105122131
        410613516107227114328191A1082342B1C11552D1F02433627282090A161718
        191A25262728292A3435363738393A434445464748494A535455565758595A63
        6465666768696A737475767778797A838485868788898A92939495969798999A
        A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
        D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
        01010101010101010000000000000102030405060708090A0BFFC400B5110002
        0102040403040705040400010277000102031104052131061241510761711322
        328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
        292A35363738393A434445464748494A535455565758595A636465666768696A
        737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
        A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
        E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00F4DB
        DD6F528AFEE238EE70892B2A8F2D4E003F4A84788354EF73EDFEAD7FC2AA6A24
        8D52EFFEBBBF6FF68D5712AAE0953EFB79C573393BEE558D7FEDDD4FFE7E7FF2
        1AFF0085386B9A963FE3E7FF001C5FF0ACA12212ABBD771E809C1FCBAD4EAA70
        7D69A93EE2349759D4703371D7FD85FF000A78D5B52C67ED1B8FA6C51C7E5541
        4607152460014EEFB88BC9ACDE1E1E62878072831CFBE31530D4AF4F3E7E47B2
        0FF0AA2A39E2A4588606095FA719ABD40BA350BCFF009EC7FEF91FE14F17D79F
        F3DBFF001D1FE1555370F7152A91DF8FAD31130BDBBFF9EBFF008E8FF0A7FDB2
        E81FF59FF8E8A8801DA9D5495C5724FB5DD7FCF4FF00C74502EEEBBC9FF8E8A8
        E978AAB0AEC93ED773FF003D7FF1D14BF6BB8FF9EBFF008E8A88E077A6191075
        603F1A2C1764FF006BB9FF009EBFF8E8A6B5E5D0E92FFE3A2AB35DC0A32655FC
        EAB49AB5AA8FF5831EB52E515D46B9997CDF5D7FCF5FFC747F8530EA1763FE5B
        7FE3A3FC2B21B5A84FDC476FC38AA8DACC8EEC120381D4B1C543A915D4AE591B
        E752BB1FF2DBFF001D1FE151B6AD783FE5B7FE3A3FC2B9C9352BA66E15557DFA
        D4125D5D337122E319E9CE6A1D55D06A0CE95B5ABD1FF2F18FF802FF008540DE
        20BD5CFF00A4FD3E45FF000AE6A669DD46D9994F7EF9A8E489E4600C8FD79C31
        1FCAA1D67D0AE43A27F135F29C7DA87FDF0BFE14CFF849EFFF00E7E0FF00DF0B
        FE15CFC513073862460E79FF003DEA5D83D0FE551ED26F61F2A35F524CEA577F
        F5D9FF00F42AE4F5E96E2D8C4F6F2B4599A352571D19829E0F1DFF004AEBF505
        CEA575E8667CFE66B98D7D08F231DE78B8FF00B68B4AB6C552F8908926A5065B
        CE59E2720203165BF1DA7F5C62ACC3A8DCC17860934D78F8CFEE26040FF7836D
        FE46B2F56F10DBE83A54B34E256919FCB896120B6768F9B04838059724742CBD
        C8AA177A2E9FAC59968A2B9B2FB2BE11E02B341290A922A84DADF2E08E551549
        6C90FD0CC62EDB8B9EFBAFEBE476316B9623066B9F253382D73198D41CE31B88
        0B5B6A39E462BCF7529E06F036A562B3C92DD5959B472BCABB6461B18066193C
        9DA4F7E41AF45232CC47AD6D4DB6ECC99256BA1CABE9D3DEAC46B902A24E3DAA
        651CD6E8C8976014EC52019EB4FAA4AE26308C0E38ACEB8D4668AE9614895B20
        9DC4E315A87A73597731FF00A6E71FC3FD6A2775B0E36EA1F69BA73F7957E833
        4D2D70C7999B1DC6315388180CEC6C7AE29A30D9C7271D054EBD5945768D9F3B
        A4723D0B531ADA36209078F7356423BB7C8AC7233D29ED6B383CC47F0A9E543B
        B289B74033B541F5C534A01C01C55D16D2B004AED07FBEA47F4AAFE44EDBB10B
        0C12064819C1C67AF4A5643D4AAC9E8062A2283D2AEAD9DC3AE5E2D9903AB292
        3F5A47D3E6054078F0412771E9D3D334AC3B99C57279A615E78AB42D6E72DE6C
        7103C6364CCD9E39FE0FC2B0B589758B191DEDFEC86053D5D189C75F51DB1512
        696E524D9A3B7AD2151C57332F8835A82DBFE3DEC5E692458E266864D858E782
        03E7FBBCF3F4F4A9AAEBDABF986F2DEE60B5D3829E0851229C2B8DC0AC84651B
        8E3392383494A2C395A3AEDA7CC20743C1FCEA4CFD2B9FF065F6AFA8E973DC6A
        D39919C4124398A34C23C7B8FCAAA3F8B23249C803A1073D0E0FF747E74EC846
        C5F479D42E4F39F35BF99AE53C469836983FF2F76FFF00A39335D75F926FEE31
        DA56FE66A9C90A4A852440CADD411906AA71E6BA08CB95A673979A55AEA7A6DC
        D9DDB32095B70232083B40CFE59FE9CE2AEE9D1A4166B68D72F34881F12CA854
        953C807B1206173DF6E78CE2AD47A2694B219174DB40DDCF90A09FD2ACC9A6DA
        4C0298CA2E318898C7FAA9152A325D84DC7B9CB78A9223A3EAF2C32161269F39
        982CB9556DA0038EE4818F60BDB3CFA005E7BF5AC397C3961736B25BB9B911CA
        851C1B877DC08C11F3135BB6EA5155725B03193D6B4A719277629356B22455C7
        B548A32693BF435220EF5BA4663C0C52E3340EB53227735A24490483E46FA578
        8F88A0886BFA95CDBE9F0CF7A92A18B31063B91647EA78E494E38FC7815EEB3C
        78858918F94D798DBC50DD7896FD1A4C4BE66550B7CA76F92D93EE39C7A673DE
        B9315D2C6D47A89E1DF0A5BD95E47E5012160C04BBB3BE33829F2E0018048E2B
        D42D2D05BC0A9DC0C1AC4D2B126AB75B8A9F2562893E5C1D9E583F8F39AE96AA
        85349361526DBB0CF2D72739FCE91A24C13B79FAD49487A1AE83223F21382060
        F7A1604039504D4BDE8A0085A38F0308BC1F4A52A148DA8A38F4A7BF55E3BD23
        70DC7A534223CE4924F7AE67C5E07F62DC31F98164E3F31FD6BA6F53EA6B97F1
        77FC8BD2F7DD2A0C7E22A6AAFDDBF42A1F123CDF586896282D6F232D6533B48E
        CA48286300A1E0E7972838AE6E4B94379A5CF797A52416E1E68A48B00C451F70
        270327F7600CF552B8E9CF4BAADFCCB75656274F1756B750C8930DBC853228F9
        49381D8F38EDD3AD72FAA7937DE258C1699219A06B7059B7B92EBB30C79C9CDC
        6492739C8ED5E6C52D8EA6CEBBC082592CC5DB0709259DB464118C3A07CE7DF6
        94FC0AF5EB5D77E35CF783229A0D09D662D8798489B8104298A318E7B655ABA0
        F97DFF005AD6C64CE1FC55E2ABA6F16EA8BF699A08ADEEA481628A56030AC46E
        38C649393D38C81CE3277FC27E241AA462D276CCEBF718924B8EBC9F518FC47D
        093B5E37D1F465D135BBA7D3E28A5F9E592E6DAD6269C10DB8B02C3EB9F6CF23
        AD737A559C13789A35481A1FB35DCAAD127CA147EFDC33A01F70EE84A1390B80
        A1B3F7B1B4A356FAEA774EA529D0E5E5B3476C294373F4A714C739CD26D27DBB
        5769E7104B7A2227826A2B5F13587DA65826BA8124846E957CD198C119CB0FE1
        18E79EDCD5B36864EF8AE7747F06EFF15EA177A85921B4681A20F224522DC133
        190101B71E0601C8072A31C0A87CE9E85C145EE3EC3E20C77DAD790618A2B12C
        5559B3BC01DD8E768EE48C7B64F53DE0181583178734A5F115E49FD896623FB2
        DBEC9BC84C33EF9F700318040D8491C9DC33D063795551151142AA8C00060015
        A508CD27CEEE3C44E9C9AF671B0F41935631D2A18CF353574180DBD622DDFF00
        DD35E39B8B6B7AB5E5AAC6D7B6CD1E0647085A166CE7DA2FC33EB8AF60D49B6D
        9484F6535E369F6ADBAD4D1C4648E482E62E46ECB2C2081EC3F7838279FE5C78
        87AA35A4B73D3B48B58EDA7F3235E2E1776EDE482102A01CFB63FCF27A2AE7F4
        D40F3E9B346E8F17D8E7DACA7218178B047AE40CE7FC6BA0ADA92B4489EE1585
        E26D60E9B6A91C1304B890E7A6484EE7DB9C7EBE95BB504F656B72C1AE2D6098
        8E019230D81F8D3A9194A2D45D98E9CA31927257473DE15D7E4D4269AD2E2432
        4BB7CD4638FBBC6471F51F9D75159FA7E9DA6C4915D5AD85A4523C60F99142AA
        4823D40AD0A9A319460949DC75A5194DB8AB21ADD4537F88F43C50F9C8A42092
        D5BA3218490A6B95F19B634251FDE914FF00E3C057532FCA87D6B8FF001C4BB7
        4984019059B8FA303535BF86C70F891C05EDD8B5D42F6DEE60325B369F6E77F2
        3696760C38C1C1071D78C83DB8C4BE8EEAE25927478E59EDEE0C8F337CBB079C
        81485EAC736AC31FAF02B6EFD4B5DDF49644FF006843A8C643EFE0848D4818C8
        ECCE38C633D7AD615C412689A9477725A088CE0A9B557C9FDDC13E4E78240DE8
        4B63A93CE41AF353D6E8EAB69A9DF787A7F3F42800624472CF182463A4CE3A56
        9E53D0FF00DF35434601743B0603064B7495F07386750CDE9DC9AB59FA56845A
        E745A9BC51CD75F6A28B0B3BAB79B80A4127839E08C566CFACE9912095AFEDDC
        75FDD482427F05C9AF3FF105B467C51AB3B066CDECC70CC48FF58DD8F15456DE
        2886E489109383B540CD7054CC5A935189E8C3009A4E523D153C5BA0BBAC6351
        40EC70A851C127E98CD41278CB4D864D92DBDF20C7FAC920089F9B915E78B690
        C934F33C3148ED39277AE7811A7E22AFAA62689B9233D3B5672CCAA2EC5AC052
        F33B1BAF1C476D346B0E9CD771CAC151E09D58124E064F4EBEF52378C6F64890
        DA6970A31EA2E2E4F1CFFB287F9D72B1843731332AA12E1F8006369C81C7D2AE
        40DBB93C83D0E3F1AC5E615DFDAFC87F55A2BECFE67487C4DA8CD090A20864C7
        0550B007F13CD4F63AEEA4A5FED4D0CA081B488CA6D3DFB9CD60C4E158E48EB8
        23157E30EC0144665638054139FF003CD28E2F117BA9322546925B23A1D2351B
        EB9D41966922684F4558F0471EB939AE86B97D011D2F32F1B8054E09040CFF00
        935D3E7A735EEE02739D2BCDEB73CDC4C529DA257D65B669D7073C0889AF22B7
        B875D3F5DFF47F362305CB6401F29DAA3A9EC7660FE1EB5EA5E259C47A45D01C
        9F25B35E536465FF00845B553240CCF25BC91C7843C832CAD9F7F95939EDC52C
        4BF790525A33D3BC373A8F0F68FE6336E164AB93904E157A83DEBA159518021B
        AD795D96A52DBA69B012702C03773D4C441C9EB904FAF4AECAC7518C8FDFCC10
        1608849EADB738FC958FE1574AB27A13383DCE97228EE3EB5C0CBE218A3BB8E2