main.dfm

这是一个三层的进销存系统

          10001F7C1F7C1F7C100010001000100010001000100010001000100010001000
          10001F7C1F7C1F7C10001000100010001000100010001000100010001000FF7F
          10001F7C1F7C1F7C100010001000100010001000100010001000100010001000
          10001F7C1F7C1F7C1000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
          10001F7C1F7C1F7C1000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
          10001F7C1F7C1F7C1000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
          10001F7C1F7C1F7C100010001000100010001000100010001000100010001000
          10001F7C1F7C1F7C10001000100010001000100010001000100010001000FF7F
          10001F7C1F7C1F7C100010001000100010001000100010001000100010001000
          10001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C}
      end
      object spbtn5: TSpeedButton
        Left = 304
        Top = 2
        Width = 25
        Height = 22
        Action = WindowTileVertical1
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C100010001000100010001000100010001000100010001000
          10001F7C1F7C1F7C1000FF7FFF7FFF7FFF7FFF7F1000FF7FFF7FFF7FFF7FFF7F
          10001F7C1F7C1F7C1000FF7FFF7FFF7FFF7FFF7F1000FF7FFF7FFF7FFF7FFF7F
          10001F7C1F7C1F7C1000FF7FFF7FFF7FFF7FFF7F1000FF7FFF7FFF7FFF7FFF7F
          10001F7C1F7C1F7C1000FF7FFF7FFF7FFF7FFF7F1000FF7FFF7FFF7FFF7FFF7F
          10001F7C1F7C1F7C1000FF7FFF7FFF7FFF7FFF7F1000FF7FFF7FFF7FFF7FFF7F
          10001F7C1F7C1F7C1000FF7FFF7FFF7FFF7FFF7F1000FF7FFF7FFF7FFF7FFF7F
          10001F7C1F7C1F7C1000FF7FFF7FFF7FFF7FFF7F1000FF7FFF7FFF7FFF7FFF7F
          10001F7C1F7C1F7C1000FF7FFF7FFF7FFF7FFF7F1000FF7FFF7FFF7FFF7FFF7F
          10001F7C1F7C1F7C1000FF7FFF7FFF7FFF7FFF7F1000FF7FFF7FFF7FFF7FFF7F
          10001F7C1F7C1F7C100010001000100010001000100010001000100010001000
          10001F7C1F7C1F7C10001000100010001000FF7F10001000100010001000FF7F
          10001F7C1F7C1F7C100010001000100010001000100010001000100010001000
          10001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C}
      end
      object spbtn6: TSpeedButton
        Left = 330
        Top = 2
        Width = 25
        Height = 22
        Action = h1003
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C0000FF0300001F7CF75EF75EF75E1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C000000000000FF030000000000000000000000001F7C1F7C1F7C
          1F7C1F7C1F7CF75E0000FF03FF030000E07FE07FE07FE07F00001F7C1F7C1F7C
          1F7C1F7C1F7C1F7C0000FF03FF030000E07FE07FE07FE07F00001F7C1F7C1F7C
          1F7C1F7C1F7C1F7C0000FF03FF030000E07FE07FE07FE07F00001F7C1F7C1F7C
          1F7C1F7C1F7C1F7C0000FF03FF030000E07FE07FE07FE07F00001F7C1F7C1F7C
          007C1F7C1F7C1F7C0000FF03FF030000E07FE07FE07FE07F00001F7C1F7C007C
          007C1F7C1F7C1F7C0000FF03FF030000E07FE07FE07FE07F00001F7C007C007C
          007C007C007C1F7C0000FF03FF030000E07FE07FE07FE07F00001F7C1F7C007C
          007C1F7C1F7C1F7C0000FF03FF030000E07FE07FE07FE07F00001F7C1F7C1F7C
          007C1F7C1F7C1F7C0000FF03FF030000E07FE07FE07FE07F00001F7C1F7C1F7C
          1F7C1F7C1F7C1F7C000000000000E07FE07FE07FE07FE07F00001F7C1F7C1F7C
          1F7C1F7C1F7C1F7C0000E07FE07FE07FE07FE07FE07FE07F00001F7C1F7C1F7C
          1F7C1F7C1F7C1F7C0000E07FE07FE07FE07FE07FE07FE07F00001F7C1F7C1F7C
          1F7C1F7C1F7C1F7C0000000000000000000000000000000000001F7C1F7C1F7C
          1F7C1F7C1F7C}
      end
      object SystemDate: TDateTimePicker
        Left = 56
        Top = 3
        Width = 83
        Height = 20
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38239.000000000000000000
        Format = 'yyyy-MM-dd'
        Time = 38239.000000000000000000
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #32048#26126#39636
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnChange = SystemDateChange
      end
    end
    object Pagec: TPageControl
      Left = 360
      Top = 1
      Width = 127
      Height = 24
      Align = alClient
      BiDiMode = bdRightToLeft
      ParentBiDiMode = False
      TabOrder = 1
      OnChange = PagecChange
    end
  end
  object MainMenu1: TMainMenu
    AutoLineReduction = maManual
    Left = 85
    Top = 52
    object N1: TMenuItem
      Caption = '['#29289#21697#31649#29702'&G]'
      Hint = #29289#21697#31649#29702
      object N2: TMenuItem
        Action = a01
      end
      object N3: TMenuItem
        Caption = '-'
        Hint = #37319#36141#36827#20179
      end
      object N9: TMenuItem
        Action = a02
      end
      object N4: TMenuItem
        Caption = '-'
        Hint = #29992#25143#23494#30721#20462#25913
      end
      object N19: TMenuItem
        Action = a03
      end
      object N6: TMenuItem
        Caption = '-'
        Hint = #26356#25442#25805#20316#29992#25143
      end
      object N27: TMenuItem
        Action = a04
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object N122: TMenuItem
        Action = a05
      end
    end
    object I1: TMenuItem
      Caption = '['#26381#21153#26597#35810'&S]'
      Hint = #26381#21153#26597#35810
      object N8: TMenuItem
        Action = b01
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object N11: TMenuItem
        Action = b02
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object N13: TMenuItem
        Action = b03
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object N15: TMenuItem
        Action = b04
      end
    end
    object S1: TMenuItem
      Caption = '['#20250#21592#31649#29702'&V]'
      Hint = #20250#21592#31649#29702
      object N16: TMenuItem
        Action = c01
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object N18: TMenuItem
        Action = c02
      end
      object N20: TMenuItem
        Caption = '-'
      end
      object N21: TMenuItem
        Action = c03
      end
      object N22: TMenuItem
        Caption = '-'
      end
      object N23: TMenuItem
        Action = c04
      end
      object N24: TMenuItem
        Caption = '-'
      end
      object N25: TMenuItem
        Action = c05
      end
      object N70: TMenuItem
        Caption = '-'
      end
      object N71: TMenuItem
        Action = c06
      end
    end
    object O1: TMenuItem
      Caption = '['#31995#32479#36164#26009'&I]'
      Hint = #31995#32479#36164#26009
      object N26: TMenuItem
        Action = d01
      end
      object N80: TMenuItem
        Action = d10
      end
      object N59: TMenuItem
        Action = d08
      end
      object N28: TMenuItem
        Caption = '-'
      end
      object N29: TMenuItem
        Action = d02
      end
      object N30: TMenuItem
        Caption = '-'
      end
      object N79: TMenuItem
        Action = d11
      end
      object N37: TMenuItem
        Action = d07
      end
      object N31: TMenuItem
        Action = d03
      end
      object N32: TMenuItem
        Caption = '-'
      end
      object N33: TMenuItem
        Action = d04
      end
      object N34: TMenuItem
        Caption = '-'
      end
      object N35: TMenuItem
        Action = d05
      end
      object N36: TMenuItem
        Caption = '-'
      end
      object N38: TMenuItem
        Action = d06
      end
      object N81: TMenuItem
        Caption = '-'
      end
      object N82: TMenuItem
        Action = d09
      end
    end
    object M1: TMenuItem
      Caption = '['#25253#34920#26597#35810'&R]'
      Hint = #25253#34920#26597#35810
      object N39: TMenuItem
        Action = f01
      end
      object N40: TMenuItem
        Action = f02
      end
      object N41: TMenuItem
        Caption = '-'
      end
      object N42: TMenuItem
        Action = f03
      end
      object N43: TMenuItem
        Action = f04
      end
      object N44: TMenuItem
        Caption = '-'
      end
      object N45: TMenuItem
        Action = f05
      end
      object N46: TMenuItem
        Caption = '-'
      end
      object N47: TMenuItem
        Action = f06
      end
      object N48: TMenuItem
        Caption = '-'
      end