fmain.dfm

Delphi的Glib功能实现 具体功能请看帮助

    Top = 57
    Width = 225
    Height = 420
    Align = alLeft
    TabOrder = 1
    object pcModo: TPageControl
      Left = 1
      Top = 1
      Width = 223
      Height = 418
      ActivePage = TabSheet1
      Align = alClient
      Images = ImageList1
      TabIndex = 0
      TabOrder = 0
      OnChange = pcModoChange
      object TabSheet1: TTabSheet
        Caption = '&Administrador'
        ImageIndex = 3
        object Label1: TLabel
          Left = 16
          Top = 124
          Width = 29
          Height = 13
          Caption = 'Mesa:'
        end
        object btnCrearMesa: TBitBtn
          Left = 8
          Top = 32
          Width = 200
          Height = 25
          Action = ActionCrearMesa
          Caption = 'Crear una nueva mesa'
          TabOrder = 0
          Glyph.Data = {
            42020000424D4202000000000000420000002800000010000000100000000100
            1000030000000002000000000000000000000000000000000000007C0000E003
            00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CEE1C3025EE1C1F7CC001C001A001
            1F7C1F7C1F7C1F7C1F7C1F7C3025502910002F257D6F3B677C6FE001683BC001
            1F7C1F7C1F7C1F7C1F7C5129F43D92315029F53D7D6F000200020002893FE001
            C001C0011F7C1F7C1F7C51291B63FB5E9A521C637D6F2002CB4BCB47AA43893F
            683FE0011F7C1F7C1F7C722DF53D5D6B3C673C679E73400220022002CB470002
            0002E0011F7C1F7C9331B435D4395D6B3C675C6B7D6F7D6F7D6F2002CB4B2002
            7E6F5B6B1F7C1F7CF53D5D6B5C6B3C675D6B784E38469C525D6B400240022002
            5D6B50291F7C1F7C15427D6F9E733C679E7393311F7C1F7C5D6B7D6F9D737D6F
            FA5E2F251F7C1F7CD539B435DA5A3C679E73F43D30259331784E3C671C639952
            502930251F7C1F7C1F7CF73DFB5E5D6B7D6F9E73FB5E3C675D6B3C671C633C67
            584A30251F7C1F7C1F7C9A52FF7FDE7B5D6B3C677D6F7D6F3C671C63784E774E
            D439712D1F7C1F7C1F7C5A4A99523846B9569E735D6B3C675D6B1B6393319331
            94311F7C1F7C1F7C1F7C1F7C5C4A1F7C594ADF7B9952F63DB9561C63B4351F7C
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C7A4E995238461F7CF63DD439B4351F7C
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
            1F7C1F7C1F7C}
        end
        object btnBorrarMesa: TBitBtn
          Left = 8
          Top = 64
          Width = 200
          Height = 25
          Action = ActionBorrarMEsa
          Caption = 'Borrar una mesa'
          TabOrder = 1
          Glyph.Data = {
            42020000424D4202000000000000420000002800000010000000100000000100
            1000030000000002000000000000000000000000000000000000007C0000E003
            00001F0000001F7CFF7FFF7FFF7F1F7CFF7FFF7FFF7F1F7C1F7C1F7C1F7C1F7C
            1F7C1F7C1F7CFF7FE7684154EF69FF7F845C835C755E712D1F7C1F7CEC1C1F7C
            1F7C1F7C1F7CFF7F6358C57DC268C360227D627DC660B8560E21EE1C3025EE1C
            1F7C1F7C1F7CFF7FEF718260857D647D647D825C1873B95651293846DC5A5029
            1F7C1F7C1F7C1F7CFF7F7462825C857D2379CE619E73FB5E9952FC5EDA5A0F21
            1F7C1F7C1F7C1F7CFF7F6354E77DE36C857D82605B775D6B3C67FB5E99520F21
            0E21EF1C1F7C1F7C5C6B625CA77D1166E758A57DA55C9E731B631C63FB5E784E
            FD5E0F211F7C1F7C574AD772E860BE77BD7BA65CD6725E6BDC5A1B631C63FB5E
            FC5E50291F7C1F7C15429E73DE7B3C679E73FA5EFF7F1F7C7A4E1C631C63B956
            50292F251F7C1F7CD539B435DA5A3C679E73F43D30259331784E3C671C639952
            502930251F7C1F7C1F7CF73DFB5E5D6B7D6F9E73FB5E3C675D6B3C671C633C67
            584A30251F7C1F7C1F7C9A52FF7FDE7B5D6B3C677D6F7D6F3C671C63784E774E
            D439712D1F7C1F7C1F7C5A4A99523846B9569E735D6B3C675D6B1B6393319331
            94311F7C1F7C1F7C1F7C1F7C5C4A1F7C594ADF7B9952F63DB9561C63B4351F7C
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C7A4E995238461F7CF63DD439B4351F7C
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
            1F7C1F7C1F7C}
        end
        object btnModifMesa: TBitBtn
          Left = 8
          Top = 88
          Width = 200
          Height = 25
          Action = ActionModificarMesa
          Caption = 'Modificar mesa'
          TabOrder = 2
          Glyph.Data = {
            42020000424D4202000000000000420000002800000010000000100000000100
            1000030000000002000000000000000000000000000000000000007C0000E003
            00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CEE1C3025EE1C1F7C017D427D217D
            A078017D1F7C1F7C1F7C1F7C3025502910002F251C633B670E210279A97EA97E
            C1741F7C1F7C1F7C1F7C5129F43D92315029B956385B0D265B6B6679427D067E
            E57D20601F7C1F7C1F7C51291B63FB5E9A525D6B071A271A5D6B65713C67E46C
            C47D60601F7C1F7C1F7C722DF53D5D6B3C673C67230E820E385FFB5E1B63D76A
            A16C825C1F7C1F7C9331B435D4395D6B3C675C6B2412683344127D6F24165D6B
            086108591F7C1F7CF53D5D6B5C6B3C675D6B5C6B29226833A93BC31644125D6B
            326A755E1F7C1F7C15427D6F9E733C679E731B631F7C4106ED53ED4F65167D6F
            FA5E2F251F7C1F7CD539B435DA5A3C679E731B63AA2A640E8516A516A71E7D6F
            502930251F7C1F7C1F7CF73DFB5E5D6B7D6F9E735C6B7D6F5D6B7D6F7D6F3C67
            584A30251F7C1F7C1F7C9A52FF7FDE7B5D6B3C677D6F7D6F3C671C63784E774E
            D439712D1F7C1F7C1F7C5A4A99523846B9569E735D6B3C675D6B1B6393319331
            94311F7C1F7C1F7C1F7C1F7C5C4A1F7C594ADF7B9952F63DB9561C63B4351F7C
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C7A4E995238461F7CF63DD439B4351F7C
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
            1F7C1F7C1F7C}
        end
        object cbMesa: TComboBox
          Left = 56
          Top = 120
          Width = 150
          Height = 21
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 3
          Text = '<sin selecci'#243'n>'
          OnChange = cbMesaChange
          Items.Strings = (
            '<sin selecci'#243'n>')
        end
        object btnGuardarDist: TBitBtn
          Left = 7
          Top = 176
          Width = 200
          Height = 25
          Action = ActionGuardarDistribucion
          Caption = 'Guardar distribuci'#243'n de mesas'
          TabOrder = 4
          Glyph.Data = {
            42020000424D4202000000000000420000002800000010000000100000000100
            1000030000000002000000000000000000000000000000000000007C0000E003
            00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
            1F7C1F7C1F7C1F7C280428084808690C680C4808480848084808470847080600
            040005001F7C1F7CCC18922D143E1A63D95A9852774E564A354614421442EC18
            040004001F7C1F7C0E1DF435784A3C67DA5ABA569952784E574A164236462F21
            260005001F7C1F7C2F25363EB9527D6F1C63FB5EDA5A9952784E574A574A7025
            270005001F7C1F7C50299846FA5A9F733D671C63FB5EDA5AB956784E9852912D
            480405001F7C1F7C912DB94E3C639E777E6F5D6B3C671B63DA5AB956B956B231
            690805001F7C1F7CB235DA525C671F7C1F7CFF7FBF779E737D6F3C673C67F335
            8A0C06001F7C1F7CD3391B5BFA56FB56DA52B94E7746363EF435D331B22D5021
            CC1406001F7C1F7C153E5C63FA56DA52B94E98467742363E1536B32D71255021
            0E1D06001F7C1F7C36465D677D6BBE739E739E6F7D6B7D6B7D6B5C673B633542
            2F1D27041F7C1F7C574A9E6BDF77DA52B94EDF7B1F7C1F7C1F7C1F7C1F7C1B5F
            702527041F7C1F7C9852BF73FF7BD42D30193C631F7C1F7C1F7C1F7C1F7C3C63
            F43528041F7C1F7CB956FF7B1F7C984AB3295C671F7C1F7C1F7C1F7C1F7C7D6B
            F53906001F7C1F7C9852B95698529752564A1542F43DB3359131702D50290E1D
            490805001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
            1F7C1F7C1F7C}
        end
        object btnRecuperarDist: TBitBtn
          Left = 7
          Top = 200
          Width = 200
          Height = 25
          Action = ActionRecuperarDistribucion
          Caption = 'Recuperar distribuci'#243'n de mesas'
          TabOrder = 5
          Glyph.Data = {
            42020000424D4202000000000000420000002800000010000000100000000100
            1000030000000002000000000000000000000000000000000000007C0000E003
            00001F0000001F7C9A1DBA21BA21BA219A1D79195819371517111611F50CD508
            540034003400D8001E5BFF7FFF7FFF7FFF7FDF7F9E777D6F3C67FA5ED95AB956
            B50434005400F9045C36FF7FFF7FFF7FDF7BBE777E735D6F3C6B1C63FB5EDA5A
            571D340054009A153C2A7F5FBF677F571F4BBE467E3EFD2D9C217B1D591D3819
            B608550055001B265C2A1E4FBF5F3F439F327F2E1F229E15FC04BB009A007900
            3700550055001B26FE423C32FF735F531F47BF363F26BE193D09DB0079005800
            370056005500FB21DF5FDB1DBF6F9F6BFF6B7F57FF3E7F2E1F1E9E113C099900
            370056005500FB21FF673C263C321E531E4FFE46BE429E367E329F321F1AFF15
            7D0D770055001C26FF67FE463B36DE4ABD46BD469D429C42FB2DBB1D7F2A5F22
            5F267C1176001C26FF67DD4A1C63FF7FFF7FFF7FFF7FFF7FDF7F5B3ADB211C32
            9A1D7A15B7041C26FF679F57FD4ABB52DF7BFF7FDF7BBF77BF779F733E675A46
            D50C550075001C26BF5F7F537F4FBD3A19365D6BFF7FDF7B9F739F737E6FB82D
            7500760076007A113D2E1C261C2639099825D835BB52BF77DF7BBF779B4E3521
            9600760076007A115D2E3D2A3D2A5A099829D735972D39425E677E6F972D5621
            7600560076007A115D2E3D2A3D2A5A099829D735B731B72DD835F83976297629
            56217625B604FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
            FF7FFF7FFF7F}
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'Modo &Normal'
        ImageIndex = 2
        object Label2: TLabel
          Left = 16
          Top = 24
          Width = 29
          Height = 13
          Caption = 'Mesa:'
        end
        object btnOcupar: TBitBtn
          Left = 8
          Top = 57
          Width = 200
          Height = 25
          Action = ActionNuevoCliente
          Caption = 'Nuevo cliente (ocupar mesa)'
          TabOrder = 0
          Glyph.Data = {
            42020000424D4202000000000000420000002800000010000000100000000100
            1000030000000002000000000000000000000000000000000000007C0000E003
            00001F0000001F7C1F7C1F7C1F7C86084D1DD12DF2351336F2316E21A7101F7C
            1F7C1F7C1F7C1F7C1F7C860458367F5BDF67FF6FFF73FF73FF6FDF677F5B783A
            65081F7C1F7C1F7C1F7CF6259F577F539F5BBF5FBF63BF63BF5F7F577F537F53
            B2251F7C1F7C1F7C1F7C71153F473E4B5F537F579F5B9F577F575E4F3E471F43
            2D191F7C1F7C1F7C1F7C8804DD3A1E433E4B3E4B5E4F5E4F3E4B1E471E43BD36
            66041F7C1F7C1F7C1F7C1F7C17221E431E471E4B1E4B1E471E471E471F3FF621
            1F7C1F7C1F7C1F7C1F7C1F7CCB04DE3A5E575E575E575E573E535E53DD3AA808
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C93151E4B5E5B3E573E575E5B1E4B51151F7C
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C24005A2E9F5FDF6FDF6F9F5F592E22001F7C
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C71197F57BF5FBF63BF639F5F5F534F191F7C
            1F7C1F7C1F7C1F7C1F7C1F7C4500BC323E4B5E4F7F535E533E4F3F479B322300
            1F7C1F7C1F7C1F7C1F7C1F7CAA04BE32FD3E1E431E471E47FE42DD3A9D328704
            1F7C1F7C1F7C1F7C1F7C1F7CAA009D32FD461E471E4B1E4BFD46FE427C2A6604
            1F7C1F7C1F7C1F7C1F7C1F7C04005A2E5F5B3E533E573E573E535F5718260100