ps_comperson.dfm

DELPHI5加SQL SERVER2000完成的进销存系统,具体哪些内容记不清了,六七年前写的,希望还能有点贡献

object F_comperson: TF_comperson
  Left = 253
  Top = 156
  BorderStyle = bsSingle
  Caption = '人员录入表'
  ClientHeight = 235
  ClientWidth = 407
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 407
    Height = 235
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 65
      Height = 16
      Caption = '人员编号：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 49
      Width = 65
      Height = 16
      Caption = '人员姓名：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 16
      Top = 74
      Width = 65
      Height = 16
      Caption = '部门编号：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 16
      Top = 148
      Width = 52
      Height = 16
      Caption = '到职日：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 16
      Top = 123
      Width = 39
      Height = 16
      Caption = '生日：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 16
      Top = 173
      Width = 65
      Height = 16
      Caption = '联络电话：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 16
      Top = 198
      Width = 39
      Height = 16
      Caption = '性别：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 176
      Top = 24
      Width = 39
      Height = 16
      Caption = '备注：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 16
      Top = 99
      Width = 52
      Height = 16
      Caption = '部门名：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object E_id: TDBEdit
      Left = 80
      Top = 21
      Width = 89
      Height = 21
      DataField = 'id'
      DataSource = comdatabase.DS_comperson
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object E_name: TDBEdit
      Left = 80
      Top = 46
      Width = 89
      Height = 24
      DataField = 'name'
      DataSource = comdatabase.DS_comperson
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object E_departmentName: TDBEdit
      Left = 80
      Top = 97
      Width = 89
      Height = 21
      DataField = 'name'
      DataSource = comdatabase.DS_comdepartment
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object E_birthday: TDBEdit
      Left = 80
      Top = 122
      Width = 89
      Height = 21
      DataField = 'birthday'
      DataSource = comdatabase.DS_comperson
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object E_assumedate: TDBEdit
      Left = 80
      Top = 147
      Width = 89
      Height = 21
      DataField = 'assumedate'
      DataSource = comdatabase.DS_comperson
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object E_telephone: TDBEdit
      Left = 80
      Top = 173
      Width = 89
      Height = 21
      DataField = 'telephone'
      DataSource = comdatabase.DS_comperson
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object M_memo: TDBMemo
      Left = 216
      Top = 24
      Width = 177
      Height = 193
      DataField = 'memo'
      DataSource = comdatabase.DS_comperson
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 6
    end
    object R_man: TRadioButton
      Left = 87
      Top = 198
      Width = 41
      Height = 17
      Caption = '男'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = R_manClick
    end
    object R_woman: TRadioButton
      Left = 131
      Top = 198
      Width = 33
      Height = 17
      Caption = '女'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = R_womanClick
    end
    object CB_departid: TDBLookupComboBox
      Left = 80
      Top = 72
      Width = 89
      Height = 21
      DataField = 'departid'
      DataSource = comdatabase.DS_comperson
      KeyField = 'id'
      ListField = 'id'
      ListSource = comdatabase.DS_comdepartment
      TabOrder = 9
      OnCloseUp = CB_departidCloseUp
    end
  end
end