login.dfm

可对供应商,顾客,商品,信息进行添加修改查询删除.可随时统计进货量和销售量,同时统计销售额和利润等.

object LoginFrm: TLoginFrm
  Left = 281
  Top = 156
  Width = 236
  Height = 177
  Caption = #38144#21806#31649#29702#20449#24687#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object LoginPassword_Label: TLabel
    Left = 32
    Top = 78
    Width = 49
    Height = 13
    AutoSize = False
    Caption = #23494#30721
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -14
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LoginUsername_Label: TLabel
    Left = 32
    Top = 46
    Width = 49
    Height = 13
    AutoSize = False
    Caption = #29992#25143#21517
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -14
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LoginTitle_Label: TLabel
    Left = 38
    Top = 12
    Width = 168
    Height = 19
    Caption = #38144#21806#31649#29702#20449#24687#31995#32479
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object LoginUsername_ComboBox: TComboBox
    Left = 85
    Top = 44
    Width = 130
    Height = 22
    Cursor = crIBeam
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ItemHeight = 14
    ParentFont = False
    TabOrder = 0
  end
  object LoginPassword_Edit: TEdit
    Left = 85
    Top = 76
    Width = 130
    Height = 22
    Cursor = crIBeam
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    PasswordChar = '*'
    TabOrder = 1
    Text = '******'
  end
  object LoginCancel_BitBtn: TBitBtn
    Left = 136
    Top = 112
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = #21462#28040
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = LoginCancel_BitBtnClick
    Kind = bkCancel
  end
  object LoginOk_BitBtn: TBitBtn
    Left = 24
    Top = 112
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = #30830#23450
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = LoginOk_BitBtnClick
    Kind = bkOK
  end
  object Login_Database: TDatabase
    AliasName = 'vendition'
    Connected = True
    DatabaseName = 'login'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa')
    SessionName = 'Default'
    Top = 8
  end
  object Login_Table: TTable
    Active = True
    DatabaseName = 'login'
    TableName = 'login'
    Top = 40
  end
  object Login_Query: TQuery
    DatabaseName = 'login'
    Top = 72
  end
end