qxuser.dfm

一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码

inherited fqxuser: Tfqxuser
  Left = 288
  Top = 164
  Caption = #29992#25143#35774#32622
  ClientHeight = 291
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    inherited SpeedButton6: TSpeedButton
      Visible = False
    end
  end
  inherited PageControl1: TPageControl
    Height = 242
    inherited TabSheet1: TTabSheet
      inherited lbl1: TLabel
        Top = 21
      end
      inherited Label2: TLabel
        Top = 116
      end
      object Label3: TLabel [3]
        Left = 22
        Top = 46
        Width = 42
        Height = 13
        Caption = #23494'  '#30721#65306
      end
      object Label4: TLabel [4]
        Left = 206
        Top = 44
        Width = 42
        Height = 13
        Caption = #24615'  '#21035#65306
      end
      object lbl2: TLabel [5]
        Left = 22
        Top = 70
        Width = 42
        Height = 13
        Caption = #24180'  '#40836#65306
      end
      object Label5: TLabel [6]
        Left = 22
        Top = 94
        Width = 42
        Height = 13
        Caption = #20303'  '#22336#65306
      end
      object Label6: TLabel [7]
        Left = 206
        Top = 68
        Width = 42
        Height = 13
        Caption = #30005'  '#35805#65306
      end
      inherited DBEdit1: TDBEdit
        DataField = 'User_code'
        DataSource = baseSource
      end
      inherited DBEdit2: TDBEdit
        DataField = 'User_name'
        DataSource = baseSource
      end
      inherited DBMemo1: TDBMemo
        Top = 112
        Height = 81
        DataField = 'fmem'
        DataSource = baseSource
        TabOrder = 8
      end
      object DBCheckBox1: TDBCheckBox
        Left = 328
        Top = 90
        Width = 49
        Height = 17
        Caption = #27880#38144
        DataField = 'User_out'
        DataSource = baseSource
        TabOrder = 7
        ValueChecked = '1'
        ValueUnchecked = '0'
      end
      object DBEdit3: TDBEdit
        Left = 72
        Top = 40
        Width = 121
        Height = 21
        DataField = 'User_pas'
        DataSource = baseSource
        PasswordChar = '*'
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 72
        Top = 64
        Width = 121
        Height = 21
        DataField = 'User_age'
        DataSource = baseSource
        TabOrder = 4
      end
      object DBEdit5: TDBEdit
        Left = 256
        Top = 64
        Width = 121
        Height = 21
        DataField = 'User_tel'
        DataSource = baseSource
        TabOrder = 5
      end
      object DBComboBox1: TDBComboBox
        Left = 256
        Top = 40
        Width = 121
        Height = 21
        Style = csDropDownList
        DataField = 'User_sex'
        DataSource = baseSource
        ItemHeight = 13
        Items.Strings = (
          #30007
          #22899)
        TabOrder = 3
      end
      object DBEdit6: TDBEdit
        Left = 72
        Top = 88
        Width = 249
        Height = 21
        DataField = 'User_adds'
        DataSource = baseSource
        TabOrder = 6
      end
    end
    inherited TabSheet2: TTabSheet
      inherited dxDBGrid: TdxDBGrid
        Height = 214
        KeyField = 'User_code'
        Filter.Criteria = {00000000}
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
        object dxDBGridUser_code: TdxDBGridColumn
          Caption = #32534#21495
          Width = 46
          BandIndex = 0
          RowIndex = 0
          FieldName = 'User_code'
          SummaryFooterType = cstCount
        end
        object dxDBGridUser_name: TdxDBGridColumn
          Caption = #21517#31216
          Width = 61
          BandIndex = 0
          RowIndex = 0
          FieldName = 'User_name'
        end
        object dxDBGridUser_pas: TdxDBGridColumn
          Caption = #23494#30721
          PasswordChar = '*'
          Width = 52
          BandIndex = 0
          RowIndex = 0
          FieldName = 'User_pas'
        end
        object dxDBGridUser_sex: TdxDBGridColumn
          Caption = #24615#21035
          Width = 42
          BandIndex = 0
          RowIndex = 0
          FieldName = 'User_sex'
        end
        object dxDBGridUser_age: TdxDBGridMaskColumn
          Caption = #24180#40836
          Width = 41
          BandIndex = 0
          RowIndex = 0
          FieldName = 'User_age'
        end
        object dxDBGridUser_adds: TdxDBGridColumn
          Caption = #22320#22336
          Width = 100
          BandIndex = 0
          RowIndex = 0
          FieldName = 'User_adds'
        end
        object dxDBGridUser_tel: TdxDBGridMaskColumn
          Caption = #30005#35805
          Width = 100
          BandIndex = 0
          RowIndex = 0
          FieldName = 'User_tel'
        end
        object dxDBGridfmem: TdxDBGridColumn
          Caption = #22791#27880
          Width = 100
          BandIndex = 0
          RowIndex = 0
          FieldName = 'fmem'
        end
        object dxDBGridUser_out: TdxDBGridCheckColumn
          Caption = #27880#38144
          MinWidth = 20
          Width = 50
          BandIndex = 0
          RowIndex = 0
          FieldName = 'User_out'
          ValueChecked = 'True'
          ValueUnchecked = 'False'
        end
      end
    end
  end
  inherited Qbaseinfo: TADOQuery
    Active = True
    CursorType = ctStatic
    SQL.Strings = (
      'select * from Qx_user')
    object QbaseinfoUser_code: TWideStringField
      FieldName = 'User_code'
    end
    object QbaseinfoUser_name: TWideStringField
      FieldName = 'User_name'
    end
    object QbaseinfoUser_pas: TWideStringField
      FieldName = 'User_pas'
    end
    object QbaseinfoUser_sex: TWideStringField
      FieldName = 'User_sex'
    end
    object QbaseinfoUser_age: TIntegerField
      FieldName = 'User_age'
    end
    object QbaseinfoUser_adds: TWideStringField
      FieldName = 'User_adds'
      Size = 100
    end
    object QbaseinfoUser_tel: TIntegerField
      FieldName = 'User_tel'
    end
    object Qbaseinfofmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object QbaseinfoUser_out: TIntegerField
      FieldName = 'User_out'
    end
  end
end