sysoperatorinputfrm.dfm

这是一个超市管理系统源代码,看上去还不错,大家看下

object SysOperatorInputDlg: TSysOperatorInputDlg
  Left = 307
  Top = 288
  BorderStyle = bsDialog
  Caption = #31995#32479#31649#29702#21592#35774#32622
  ClientHeight = 367
  ClientWidth = 502
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = True
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 40
    Width = 48
    Height = 12
    Caption = #29992#25143#21517#65306
  end
  object Label2: TLabel
    Left = 232
    Top = 40
    Width = 60
    Height = 12
    Caption = #30495#23454#22995#21517#65306
  end
  object Label3: TLabel
    Left = 16
    Top = 72
    Width = 36
    Height = 12
    Caption = #24615#21035#65306
  end
  object Label4: TLabel
    Left = 232
    Top = 72
    Width = 36
    Height = 12
    Caption = #23494#30721#65306
  end
  object Label5: TLabel
    Left = 232
    Top = 104
    Width = 60
    Height = 12
    Caption = #26435#38480#32452#21035#65306
  end
  object Label7: TLabel
    Left = 16
    Top = 128
    Width = 36
    Height = 12
    Caption = #22791#27880#65306
  end
  object Label6: TLabel
    Left = 8
    Top = 104
    Width = 84
    Height = 12
    Caption = #20877#27425#36755#20837#23494#30721#65306
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 502
    Height = 29
    ButtonHeight = 20
    ButtonWidth = 67
    Caption = 'ToolBar1'
    ShowCaptions = True
    TabOrder = 0
    object TBAdd: TToolButton
      Left = 0
      Top = 2
      Caption = #28155#21152
      ImageIndex = 0
      OnClick = TBAddClick
    end
    object TBEdit: TToolButton
      Left = 67
      Top = 2
      Caption = #32534#36753
      ImageIndex = 1
      OnClick = TBEditClick
    end
    object TBDelete: TToolButton
      Left = 134
      Top = 2
      Caption = #21024#38500
      ImageIndex = 2
      OnClick = TBDeleteClick
    end
    object TBOK: TToolButton
      Left = 201
      Top = 2
      Caption = #30830#35748
      Enabled = False
      ImageIndex = 3
      OnClick = TBOKClick
    end
    object TBCancel: TToolButton
      Left = 268
      Top = 2
      Caption = #21462#28040
      Enabled = False
      ImageIndex = 4
      OnClick = TBCancelClick
    end
    object TBExit: TToolButton
      Left = 335
      Top = 2
      Caption = '   '#20851#38381'   '
      ImageIndex = 5
      OnClick = TBExitClick
    end
  end
  object DBEdtUserName: TDBEdit
    Left = 96
    Top = 40
    Width = 121
    Height = 20
    DataField = 'UserName'
    DataSource = DMMain.DSSysOperator
    TabOrder = 1
  end
  object DBEdtUserRealName: TDBEdit
    Left = 304
    Top = 40
    Width = 137
    Height = 20
    DataField = 'UserRealName'
    DataSource = DMMain.DSSysOperator
    TabOrder = 2
  end
  object DBEdtPassword: TDBEdit
    Left = 304
    Top = 72
    Width = 137
    Height = 20
    DataField = 'Password'
    DataSource = DMMain.DSSysOperator
    PasswordChar = '*'
    TabOrder = 3
  end
  object EdtPasswordAgain: TEdit
    Left = 96
    Top = 104
    Width = 121
    Height = 20
    PasswordChar = '*'
    TabOrder = 4
    Text = 'EdtPasswordAgain'
  end
  object DBCBSex: TDBComboBox
    Left = 96
    Top = 72
    Width = 121
    Height = 20
    DataField = 'Sex'
    DataSource = DMMain.DSSysOperator
    ItemHeight = 12
    Items.Strings = (
      'f'
      'm')
    TabOrder = 5
  end
  object DBMRemark: TDBMemo
    Left = 8
    Top = 144
    Width = 481
    Height = 97
    DataField = 'Remark'
    DataSource = DMMain.DSSysOperator
    TabOrder = 6
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 248
    Width = 489
    Height = 120
    DataSource = DMMain.DSSysOperator
    TabOrder = 7
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnKeyPress = DBGrid1KeyPress
  end
  object DBCBPermission: TDBComboBox
    Left = 304
    Top = 104
    Width = 137
    Height = 20
    DataField = 'Permission'
    DataSource = DMMain.DSSysOperator
    ItemHeight = 12
    TabOrder = 8
  end
end