personinfo_unit.dfm

货源代理管理系统 同样是DELPHI7下的

object frmPersonInfo: TfrmPersonInfo
  Left = 270
  Top = 198
  BorderStyle = bsDialog
  Caption = #39550#39542#20154#21592#20449#24687
  ClientHeight = 269
  ClientWidth = 506
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 506
    Height = 31
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 0
    object btnAdd: TSpeedButton
      Left = 3
      Top = 3
      Width = 50
      Height = 25
      Caption = #28155#21152
      Flat = True
      OnClick = btnAddClick
    end
    object btnModfiy: TSpeedButton
      Left = 55
      Top = 3
      Width = 50
      Height = 25
      Caption = #20462#25913
      Flat = True
      OnClick = btnModfiyClick
    end
    object btnDel: TSpeedButton
      Left = 108
      Top = 3
      Width = 50
      Height = 25
      Caption = #21024#38500
      Flat = True
      OnClick = btnDelClick
    end
    object btnCancel: TSpeedButton
      Left = 162
      Top = 3
      Width = 50
      Height = 25
      Caption = #21462#28040
      Flat = True
      OnClick = btnCancelClick
    end
    object btnSave: TSpeedButton
      Left = 215
      Top = 3
      Width = 50
      Height = 25
      Caption = #20445#23384
      Flat = True
      OnClick = btnSaveClick
    end
    object btnClosed: TSpeedButton
      Left = 452
      Top = 3
      Width = 50
      Height = 25
      Caption = #20851#38381
      Flat = True
      OnClick = btnClosedClick
    end
    object btnFind: TSpeedButton
      Left = 268
      Top = 3
      Width = 50
      Height = 25
      Caption = #26597#35810
      Flat = True
      OnClick = btnFindClick
    end
    object btnRefresh: TSpeedButton
      Left = 321
      Top = 3
      Width = 50
      Height = 25
      Caption = #21047#26032
      Flat = True
      OnClick = btnRefreshClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 31
    Width = 161
    Height = 238
    Align = alLeft
    BevelInner = bvLowered
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 157
      Height = 234
      Align = alClient
      DataSource = DM.dsrPerson
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'PersonID'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 50
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Name'
          Title.Alignment = taCenter
          Title.Caption = #22995#21517
          Width = 70
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 161
    Top = 31
    Width = 345
    Height = 238
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 18
      Width = 60
      Height = 12
      Caption = #32534'    '#21495#65306
    end
    object Label2: TLabel
      Left = 184
      Top = 18
      Width = 60
      Height = 12
      Caption = #22995'    '#21517#65306
    end
    object Label3: TLabel
      Left = 184
      Top = 48
      Width = 60
      Height = 12
      Caption = #24615'    '#21035#65306
    end
    object Label4: TLabel
      Left = 8
      Top = 48
      Width = 60
      Height = 12
      Caption = #29983'    '#26085#65306
    end
    object Label5: TLabel
      Left = 8
      Top = 78
      Width = 60
      Height = 12
      Caption = #36523#20221#35777#21495#65306
    end
    object Label6: TLabel
      Left = 184
      Top = 78
      Width = 60
      Height = 12
      Caption = #30005'    '#35805#65306
    end
    object Label7: TLabel
      Left = 8
      Top = 109
      Width = 60
      Height = 12
      Caption = 'E '#65293'mail'#65306
    end
    object Label8: TLabel
      Left = 8
      Top = 139
      Width = 60
      Height = 12
      Caption = #23478#24237#22320#22336#65306
    end
    object Label9: TLabel
      Left = 8
      Top = 170
      Width = 60
      Height = 12
      Caption = #24037#20316#22320#28857#65306
    end
    object SpeedButton1: TSpeedButton
      Left = 156
      Top = 44
      Width = 22
      Height = 20
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031
        00333773F77777FF7733331000909000133333377737F777FF33330098F0F890
        0333337733F733F77F33370980FFF08907333373373F373373F33099FF0FFFF9
        903337F3F373F33FF7F33090FFF0FF00903337F73337F37737F33099FFF0FFF9
        9033373F33F7F3F33733370980F0F0890733337FF737F7337F33330098F0F890
        03333F77FF3733377FFF000009999900000377777FFFFF77777F088700000008
        77037F3377777773337F088887707888870373F3337773F33373307880707088
        7033373FF737F73FF733337003303300733333777337FF777333333333000333
        3333333333777333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object DBText1: TDBText
      Left = 72
      Top = 16
      Width = 105
      Height = 17
      DataField = 'PersonID'
      DataSource = DM.dsrPerson
    end
    object DBEdit1: TDBEdit
      Left = 244
      Top = 14
      Width = 90
      Height = 20
      DataField = 'Name'
      DataSource = DM.dsrPerson
      TabOrder = 0
    end
    object DBComboBox1: TDBComboBox
      Left = 244
      Top = 44
      Width = 90
      Height = 20
      DataField = 'Sex'
      DataSource = DM.dsrPerson
      ItemHeight = 12
      Items.Strings = (
        #30007
        #22899)
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 72
      Top = 44
      Width = 83
      Height = 20
      DataField = 'Birthday'
      DataSource = DM.dsrPerson
      ReadOnly = True
      TabOrder = 2
    end
    object DBEdit3: TDBEdit
      Left = 72
      Top = 74
      Width = 105
      Height = 20
      DataField = 'IDCard'
      DataSource = DM.dsrPerson
      TabOrder = 3
    end
    object DBEdit4: TDBEdit
      Left = 244
      Top = 74
      Width = 90
      Height = 20
      DataField = 'Telephone'
      DataSource = DM.dsrPerson
      TabOrder = 4
    end
    object DBEdit5: TDBEdit
      Left = 72
      Top = 105
      Width = 264
      Height = 20
      DataField = 'EMail'
      DataSource = DM.dsrPerson
      TabOrder = 5
    end
    object DBEdit6: TDBEdit
      Left = 72
      Top = 135
      Width = 264
      Height = 20
      DataField = 'Address'
      DataSource = DM.dsrPerson
      TabOrder = 6
    end
    object DBEdit7: TDBEdit
      Left = 72
      Top = 166
      Width = 264
      Height = 20
      DataField = 'WorkingPlace'
      DataSource = DM.dsrPerson
      TabOrder = 7
    end
  end
end