ufrm_user_1.dfm

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

      Width = 35
      Height = 35
      Hint = 'Delete user(3)'
      Flat = True
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFF7F7F7FFFFF7E7E7EF7B7B21525252D6D6F7FFFFFFFFFF
        F7EFEFEFF7F7F7FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFF7F7F7FFFFFFD6
        D6DEC6C6109C9C006B6B2994949CE7E7F7FFFFFFFFFFF7F7F7F7FF00FFFF00FF
        FF00FFFF00FFFF00FFFFFFFFFFFFFFD6D6DEBDBD10C6C600BDBD008C8C006B6B
        2994949CEFEFF7FFFFFF7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7BFFFFFFDE
        DEE7BDBD10BDBD00B5B500C6C600BDBD008C8C005A5A296B6B6BFF00FFFF00FF
        FF00FFF7F7F7F7F7FF636363BDBDB5A5A5ADC6C618BDBD00B5B500B5B500B5B5
        00CECE007B7B00ADADB5FF00FFFF00FFFF00FFF7F7F7FFFFFF52525242424252
        525ACECE18BDBD00BDBD00B5B500B5B500C6C6007B7B00ADADB5F7F7F7F7F7F7
        F7F7F7F7F7F7E7E7F74A4A4A7B7B7B7B7B84CECE18ADAD008C8C00BDBD00B5B5
        00C6C6007B7B00ADADB5FFFFF7FFFFF7FFFFF7FFFFF7BDBDF70000A57B7B6B73
        737BCECE106B6B31393929BDBD00B5B500C6C6007B7B00ADADB59494E7A5A5E7
        6B6BDE4242D63131DE0000FF2121B573737BC6C610ADAD31737329B5B500B5B5
        00C6C6007B7B00ADADB56363F77B7BF72929F70000F70000F70000F70000FF31
        31ADCECE10BDBD00BDBD00B5B500B5B500C6C6007B7B00ADADB59494F7A5A5F7
        6B6BF74242F73131F70000FF2121D6737384C6C618BDBD00B5B500B5B500B5B5
        00C6C6007B7B00ADADB5FFFFF7FFFFF7FFFFF7FFFFF7BDBDFF0000C67B7B7373
        737BCECE18B5B500B5B500B5B500B5B500C6C6007B7B00ADADB5F7F7F7F7F7F7
        F7F7F7F7F7F7E7E7FF4A4A5273736B73737BBDBD31D6D600BDBD00B5B500B5B5
        00C6C6007B7B00ADADB5FF00FFFF00FFFF00FFF7F7F7FFFFFF5A5A5A6B6B6B7B
        7B736B6B7B8C8C63BDBD29CECE00BDBD00BDBD00737300ADADB5FF00FFFF00FF
        FF00FFF7F7F7FFFFFF5A5A5A73737384848484847B7B7B847B7B8494946BC6C6
        31E7E708848400ADADB5FF00FFFF00FFFF00FFF7F7F7FFFFFF5252524A4A4A52
        52525252525252525252524A4A524A4A5A737342636300B5B5B5}
      ParentShowHint = False
      ShowHint = True
      OnClick = Tb_exitClick
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 453
    Width = 696
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 200
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object TreeView1: TTreeView
    Left = 0
    Top = 41
    Width = 196
    Height = 412
    Align = alLeft
    Color = clGradientActiveCaption
    Images = ImageList2
    Indent = 19
    PopupMenu = PopupMenu1
    ReadOnly = True
    TabOrder = 2
    OnChange = TreeView1Change
    OnDblClick = TreeView1DblClick
  end
  object DBGrid1: TDBGrid
    Left = 204
    Top = 41
    Width = 492
    Height = 412
    Align = alClient
    Color = clInfoBk
    DataSource = DataSource1
    PopupMenu = PopupMenu2
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'ZE02'
        Title.Alignment = taCenter
        Title.Caption = #31243#24207#20195#34399
        Width = 66
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'prog_desc'
        Title.Alignment = taCenter
        Title.Caption = #31243#24207#35498#26126
        Width = 137
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Permission'
        Title.Alignment = taCenter
        Title.Caption = #21151#33021#21015#34920
        Width = 197
        Visible = True
      end>
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 656
    Top = 8
    object N1: TMenuItem
      Caption = #29992#25142#32068#32173#35703'(&G)'
      object A1: TMenuItem
        Caption = #22686#21152#32068'(&A)'
        ImageIndex = 0
        OnClick = A1Click
      end
      object U2: TMenuItem
        Caption = #32232#36655#32068'(&U)'
        ImageIndex = 1
        OnClick = U2Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object D1: TMenuItem
        Caption = #21034#38500#32068'(&D)'
        ImageIndex = 2
        OnClick = D1Click
      end
    end
    object U1: TMenuItem
      Caption = #29992#25142#32173#35703'(&U)'
      object A2: TMenuItem
        Caption = #22686#21152#29992#25142'(&A)'
        ImageIndex = 3
        OnClick = A2Click
      end
      object U3: TMenuItem
        Caption = #32232#36655#29992#25142'(&U)'
        ImageIndex = 4
        OnClick = U3Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object D2: TMenuItem
        Caption = #21034#38500#29992#25142'(&D)'
        ImageIndex = 5
        OnClick = D2Click
      end
    end
    object R1: TMenuItem
      Caption = #27402#38480#32173#35703'(&R)'
      object A3: TMenuItem
        Caption = #22686#21152#27402#38480'(&A)'
        ImageIndex = 6
        OnClick = A3Click
      end
      object U4: TMenuItem
        Caption = #32232#36655#27402#38480'(&U)'
        ImageIndex = 8
        OnClick = U4Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object D3: TMenuItem
        Caption = #21034#38500#27402#38480'(&D)'
        ImageIndex = 7
        OnClick = D3Click
      end
    end
    object View1: TMenuItem
      Caption = #23519#30475'(&V)'
      object Fullexpand1: TMenuItem
        Caption = #23637#38283#20840#37096
        ImageIndex = 10
        OnClick = Fullexpand1Click
      end
      object FullCollapse1: TMenuItem
        Caption = #38364#38281#20840#37096
        ImageIndex = 9
        OnClick = Fullcollapse1Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object N7: TMenuItem
        Caption = #21047#26032
        ImageIndex = 11
        OnClick = N7Click
      end
    end
    object Exit1: TMenuItem
      Caption = #36864#20986'(&E)'
      OnClick = Exit1Click
    end
  end
  object ImageList1: TImageList
    Left = 624
    Top = 8
    Bitmap = {
      494C01010C000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001001800000000000030
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000