ufrmusers.dfm

主要介绍了Delphi中的DLL封装和调用对象技术

object frmUsers: TfrmUsers
  Left = 408
  Top = 161
  Width = 488
  Height = 384
  Caption = #29992#25143#32500#25252#65288#30028#38754#21644#19994#21153#30340#29289#29702#20998#31163#65289
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 14
  object btnQryByName: TSpeedButton
    Left = 176
    Top = 40
    Width = 24
    Height = 24
    Caption = 'Go'#65281
    OnClick = btnQryByNameClick
  end
  object Label1: TLabel
    Left = 232
    Top = 118
    Width = 42
    Height = 14
    Caption = #24615#21035#65306
  end
  object Label2: TLabel
    Left = 232
    Top = 40
    Width = 42
    Height = 14
    Caption = #32534#21495#65306
  end
  object Label3: TLabel
    Left = 232
    Top = 79
    Width = 42
    Height = 14
    Caption = #22995#21517#65306
  end
  object Label5: TLabel
    Left = 232
    Top = 157
    Width = 42
    Height = 14
    Caption = #32844#21153#65306
  end
  object Label6: TLabel
    Left = 232
    Top = 196
    Width = 42
    Height = 14
    Caption = #30005#35805#65306
  end
  object Label7: TLabel
    Left = 232
    Top = 236
    Width = 42
    Height = 14
    Caption = #37096#38376#65306
  end
  object btnExit: TButton
    Left = 344
    Top = 312
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 0
    OnClick = btnExitClick
  end
  object edtQryByName: TLabeledEdit
    Left = 16
    Top = 40
    Width = 153
    Height = 22
    EditLabel.Width = 70
    EditLabel.Height = 14
    EditLabel.Caption = #27169#31946#26597#35810#65306
    TabOrder = 1
  end
  object DBEdit1: TDBEdit
    Left = 270
    Top = 76
    Width = 145
    Height = 22
    DataField = 'NAME'
    DataSource = DataSource1
    TabOrder = 2
  end
  object DBEdit2: TDBEdit
    Left = 270
    Top = 37
    Width = 145
    Height = 22
    DataField = 'ID'
    DataSource = DataSource1
    TabOrder = 3
  end
  object DBEdit3: TDBEdit
    Left = 270
    Top = 154
    Width = 145
    Height = 22
    DataField = 'JOB'
    DataSource = DataSource1
    TabOrder = 4
  end
  object DBEdit4: TDBEdit
    Left = 270
    Top = 193
    Width = 145
    Height = 22
    DataField = 'TEL'
    DataSource = DataSource1
    TabOrder = 5
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 73
    Width = 185
    Height = 264
    DataSource = DataSource1
    Options = [dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 6
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'NAME'
        Width = 175
        Visible = True
      end>
  end
  object dbcbSex: TDBComboBox
    Left = 270
    Top = 115
    Width = 145
    Height = 22
    DataField = 'SEX'
    DataSource = DataSource1
    ItemHeight = 14
    Items.Strings = (
      #30007#24615
      #22899#24615
      #19981#35814)
    TabOrder = 7
  end
  object dbcbDep: TDBComboBox
    Left = 270
    Top = 232
    Width = 171
    Height = 22
    DataField = 'DEP'
    DataSource = DataSource1
    ItemHeight = 14
    TabOrder = 8
  end
  object btnUpdate: TBitBtn
    Left = 256
    Top = 312
    Width = 75
    Height = 25
    Caption = #26356#26032
    Enabled = False
    TabOrder = 9
    OnClick = btnUpdateClick
  end
  object DataSource1: TDataSource
    DataSet = cdsUserMaint
    Left = 248
    Top = 272
  end
  object cdsUserMaint: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 208
    Top = 272
    object cdsUserMaintID: TWideStringField
      FieldName = 'ID'
      KeyFields = 'ID'
      Size = 8
    end
    object cdsUserMaintNAME: TWideStringField
      FieldName = 'NAME'
      Size = 8
    end
    object cdsUserMaintSEX: TWideStringField
      FieldName = 'SEX'
      Size = 2
    end
    object cdsUserMaintJOB: TWideStringField
      FieldName = 'JOB'
    end
    object cdsUserMaintTEL: TWideStringField
      FieldName = 'TEL'
    end
    object cdsUserMaintCALL: TWideStringField
      FieldName = 'CALL'
      Size = 15
    end
    object cdsUserMaintDEP: TWideStringField
      FieldName = 'DEP'
    end
    object cdsUserMaintGROUP_ID: TWideStringField
      FieldName = 'GROUP_ID'
      Size = 2
    end
    object cdsUserMaintPASSWORD: TWideStringField
      FieldName = 'PASSWORD'
      Size = 6
    end
  end
end