unit4.dfm

网上书店管理系统

object Form4: TForm4
  Left = 250
  Top = 150
  Width = 618
  Height = 408
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #29992#25143#20449#24687#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 610
    Height = 2
    Align = alTop
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 10
    Width = 609
    Height = 273
    DataSource = DataSource1
    ImeName = #28857'['#24320#22987#31243#24207']'#25110'Ctrl+Alt+W'#21551#21160#19975#33021#20116#31508
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'UserID'
        Title.Caption = #29992#25143#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'userName'
        Title.Caption = #29992#25143#21517
        Width = 77
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VIP'
        Title.Caption = #20250#21592
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'address'
        Title.Caption = #29992#25143#22320#22336
        Width = 98
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'phone'
        Title.Caption = #29992#25143#30005#35805
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'email'
        Title.Caption = #37038#20214
        Width = 147
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'realName'
        Title.Caption = #30495#23454#22995#21517
        Width = 82
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Exp'
        Title.Caption = #32463#39564#20540
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'regDate'
        Title.Caption = #27880#20876#26085#26399
        Width = 136
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zip'
        Title.Caption = #37038#25919
        Width = 90
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 100
    Top = 296
    Width = 75
    Height = 25
    Caption = #19978#19968#26465
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 25
    Top = 296
    Width = 75
    Height = 25
    Caption = #26368#21069#19968#26465
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 250
    Top = 296
    Width = 75
    Height = 25
    Caption = #26368#21518#19968#26465
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 475
    Top = 296
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 4
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 175
    Top = 296
    Width = 75
    Height = 25
    Caption = #19979#19968#26465
    TabOrder = 5
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 325
    Top = 296
    Width = 75
    Height = 25
    Caption = #20462#25913
    TabOrder = 6
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 400
    Top = 296
    Width = 75
    Height = 25
    Caption = #30830#35748#20462#25913
    TabOrder = 7
    OnClick = Button7Click
  end
  object MainMenu1: TMainMenu
    Left = 344
    Top = 104
    object N1: TMenuItem
      Caption = #26032#20070#24405#20837
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #24211#23384#26597#35810
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #35746#21333#26597#35810
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #29992#25143#20449#24687
      OnClick = N4Click
    end
    object N5: TMenuItem
      Caption = #29992#25143#30041#35328
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #20449#24687#21457#24067
      OnClick = N6Click
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 448
    Top = 48
  end
  object Table1: TTable
    AutoRefresh = True
    DatabaseName = 'BookData'
    TableName = 'user'
    Left = 488
    Top = 104
  end
end