jinru.~dfm

商品批发管理系统 本作品采用C/S模式

object denglu: Tdenglu
  Left = 290
  Top = 215
  Width = 291
  Height = 180
  Caption = #21830#21697#25209#21457#31649#29702#31995#32479#30331#38470
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #26032#23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 40
    Top = 32
    Width = 32
    Height = 16
    Caption = #22995#21517
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26032#23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 40
    Top = 72
    Width = 32
    Height = 16
    Caption = #23494#30721
  end
  object nameEdit: TEdit
    Left = 88
    Top = 24
    Width = 121
    Height = 24
    TabOrder = 0
  end
  object psEdit: TEdit
    Left = 88
    Top = 64
    Width = 121
    Height = 24
    PasswordChar = '*'
    TabOrder = 1
    OnKeyPress = psEditKeyPress
  end
  object enBt: TButton
    Left = 40
    Top = 104
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 2
    OnClick = enBtClick
  end
  object disBt: TButton
    Left = 160
    Top = 104
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 3
    OnClick = disBtClick
  end
  object ADOTable1: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=hhx;Persist Security Info=True;User' +
      ' ID=sa;Initial Catalog=CAT;Data Source=CAX'
    CursorType = ctStatic
    TableName = 'denglu'
    Left = 232
    Top = 16
    object ADOTable1name: TStringField
      FieldName = 'name'
      FixedChar = True
      Size = 8
    end
    object ADOTable1password: TStringField
      FieldName = 'password'
      FixedChar = True
    end
    object ADOTable1jb: TStringField
      FieldName = 'jb'
      Size = 10
    end
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    Left = 40
    Top = 8
  end
end