findcjuserfm.dfm

一个电力部门的催缴费用系统

object FM_FindCjUser: TFM_FindCjUser
  Left = 394
  Top = 295
  BorderStyle = bsDialog
  Caption = '催缴用户查询'
  ClientHeight = 167
  ClientWidth = 351
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
    Left = 20
    Top = 69
    Width = 312
    Height = 45
  end
  object lbl_FindName: TLabel
    Left = 54
    Top = 85
    Width = 48
    Height = 12
    Caption = '用户名称'
  end
  object rg_FindType: TRadioGroup
    Left = 19
    Top = 11
    Width = 313
    Height = 49
    Columns = 3
    ItemIndex = 0
    Items.Strings = (
      '按用户名称'
      '按电话号码'
      '按帐号')
    TabOrder = 0
    OnClick = rg_FindTypeClick
  end
  object edt_Value: TEdit
    Left = 108
    Top = 81
    Width = 168
    Height = 20
    TabOrder = 1
    Text = 'edt_Value'
  end
  object BitBtn1: TBitBtn
    Left = 168
    Top = 128
    Width = 75
    Height = 25
    Caption = '确定'
    TabOrder = 2
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 257
    Top = 128
    Width = 75
    Height = 25
    Caption = '取消'
    TabOrder = 3
    Kind = bkCancel
  end
  object fmstg_findcj: TFormStorage
    Options = []
    StoredProps.Strings = (
      'rg_FindType.ItemIndex')
    StoredValues = <>
    Left = 24
    Top = 128
  end
end