zfrm_addcustomeru.dfm

专业的评标管理系统

object zfrm_addcustomer: Tzfrm_addcustomer
  Left = 268
  Top = 34
  BorderStyle = bsDialog
  Caption = '添加用户'
  ClientHeight = 363
  ClientWidth = 551
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 12
    Top = 8
    Width = 528
    Height = 301
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '用户部门关联'
      object GroupBox1: TGroupBox
        Left = 5
        Top = 0
        Width = 509
        Height = 267
        TabOrder = 0
        object Label1: TLabel
          Left = 9
          Top = 15
          Width = 72
          Height = 12
          Caption = '用户列表(&U):'
          FocusControl = ListView1
        end
        object Label2: TLabel
          Left = 335
          Top = 15
          Width = 96
          Height = 12
          Caption = '新添加用户名(&M):'
        end
        object Label3: TLabel
          Left = 244
          Top = 15
          Width = 72
          Height = 12
          Caption = '当前部门(&S):'
        end
        object ListView1: TListView
          Left = 8
          Top = 36
          Width = 222
          Height = 182
          Columns = <
            item
              Caption = '用户姓名'
              Width = 60
            end
            item
              Caption = '性别'
              Width = 40
            end
            item
              Caption = '用户代码'
              Width = 100
            end>
          MultiSelect = True
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
          OnDblClick = Button1Click
        end
        object Button3: TButton
          Left = 17
          Top = 229
          Width = 98
          Height = 25
          Caption = '新建用户(&N)...'
          TabOrder = 1
          OnClick = Button3Click
        end
        object Button6: TButton
          Left = 119
          Top = 229
          Width = 98
          Height = 25
          Caption = '用户属性(&N)...'
          TabOrder = 2
          OnClick = Button6Click
        end
        object Button2: TButton
          Left = 243
          Top = 135
          Width = 80
          Height = 22
          Caption = '<- 删除(&R)'
          TabOrder = 3
          OnClick = Button2Click
        end
        object Button1: TButton
          Left = 243
          Top = 97
          Width = 80
          Height = 22
          Caption = '添加(&A) ->'
          TabOrder = 4
          OnClick = Button1Click
        end
        object ListView2: TListView
          Left = 335
          Top = 36
          Width = 164
          Height = 214
          Columns = <
            item
              Caption = '用户姓名'
              Width = 60
            end
            item
              Caption = '用户代码'
              Width = 100
            end
            item
              Caption = '性别'
            end>
          ReadOnly = True
          RowSelect = True
          TabOrder = 5
          ViewStyle = vsReport
          OnDblClick = Button2Click
        end
        object StaticText1: TStaticText
          Left = 243
          Top = 37
          Width = 80
          Height = 17
          Alignment = taCenter
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = '总公司'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 6
        end
      end
    end
  end
  object Button5: TButton
    Left = 323
    Top = 323
    Width = 90
    Height = 25
    Cancel = True
    Caption = '取消'
    TabOrder = 1
    OnClick = Button5Click
  end
  object Button4: TButton
    Left = 139
    Top = 323
    Width = 90
    Height = 25
    Caption = '确定'
    TabOrder = 2
    OnClick = Button4Click
  end
  object Query1: TQuery
    DatabaseName = 'efidicdb'
    Left = 18
    Top = 332
  end
  object Query2: TQuery
    DatabaseName = 'efidicdb'
    Left = 254
    Top = 328
  end
  object Query3: TQuery
    DatabaseName = 'efidicdb'
    Left = 458
    Top = 330
  end
end