decgroomunit.dfm

很好地delphi书籍源码

object FrmDecGRoom: TFrmDecGRoom
  Left = 620
  Top = 193
  Width = 726
  Height = 424
  BorderStyle = bsSizeToolWin
  Caption = #20572#29992#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 = 602
    Top = 0
    Width = 116
    Height = 397
    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 = 10
      Top = 16
      Width = 56
      Height = 14
      Caption = #23458#25143#32534#21495
    end
    object LookUpIDSB: TSpeedButton
      Left = 22
      Top = 128
      Width = 75
      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 StopOKSB: TSpeedButton
      Left = 22
      Top = 150
      Width = 75
      Height = 22
      AllowAllUp = True
      Caption = #25552#20132
      Enabled = False
      OnClick = StopOKSBClick
    end
    object CloseSB: TSpeedButton
      Left = 22
      Top = 172
      Width = 75
      Height = 22
      AllowAllUp = True
      Caption = #20851#38381
      OnClick = CloseSBClick
    end
    object GuestIDCB: TComboBox
      Left = 4
      Top = 36
      Width = 105
      Height = 20
      Style = csOwnerDrawVariable
      ItemHeight = 14
      TabOrder = 0
      OnChange = GuestIDCBChange
      OnClick = GuestIDCBChange
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 602
    Height = 397
    ActivePage = TabSheet1
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    Images = ImageList1
    ParentFont = False
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #20572#29992#24202#20301
      object Image1: TImage
        Left = 393
        Top = 145
        Width = 201
        Height = 223
        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