loginmanagerfm.dfm

来自「一个电力企业的后台管理程序」· DFM 代码 · 共 472 行

inherited frm_LoginManager: Tfrm_LoginManager
  Left = 163
  Top = 193
  Width = 796
  Height = 612
  Caption = '操作员管理'
  PixelsPerInch = 96
  TextHeight = 12
  inherited stb_Main: TStatusBar
    Top = 547
    Width = 788
  end
  inherited pnl_Main: TPanel
    Width = 788
    Height = 521
    inherited spl_Main: TSplitter
      Top = 147
      Width = 788
      Height = 3
    end
    inherited rxdbg_Main: TRxDBGrid
      Top = 169
      Width = 788
      Height = 352
      DataSource = Ds_Login
      PopupMenu = nil
      ReadOnly = True
      TitleFont.Height = -12
      TitleFont.Style = [fsBold]
      Columns = <
        item
          Expanded = False
          FieldName = 'WORKID'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作员工号'
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PWD'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作员口令'
          Visible = False
        end
        item
          Expanded = False
          FieldName = 'ROLENAME'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作员角色'
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'WORKNAME'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作员姓名'
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'GENDER'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '性别'
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'PEOPLES'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '民族'
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'BIRTHDAY'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '出生年月日'
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DEPARTMENT'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '工作部门'
          Width = 200
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'temp1'
          PickList.Strings = ()
          Visible = False
        end
        item
          Expanded = False
          FieldName = 'temp2'
          PickList.Strings = ()
          Visible = False
        end
        item
          Expanded = False
          FieldName = 'temp3'
          PickList.Strings = ()
          Visible = False
        end
        item
          Expanded = False
          FieldName = 'temp4'
          PickList.Strings = ()
          Visible = False
        end>
    end
    inherited sbx_Top: TScrollBox
      Top = 19
      Width = 788
      Height = 128
      Constraints.MinWidth = 623
      inherited pnl_Top: TPanel
        Width = 769
        Height = 124
        BorderWidth = 3
        BorderStyle = bsNone
        Constraints.MinWidth = 620
        inherited pnl_TopChild: TPanel
          Left = 5
          Top = 5
          Width = 548
          Height = 114
          Caption = ''
          object Label1: TLabel
            Left = 8
            Top = 16
            Width = 72
            Height = 12
            Caption = '操作员工号：'
          end
          object Label4: TLabel
            Left = 8
            Top = 40
            Width = 72
            Height = 12
            Caption = '操作员姓名：'
          end
          object Label8: TLabel
            Left = 264
            Top = 64
            Width = 72
            Height = 12
            Caption = '出生年月日：'
          end
          object Label5: TLabel
            Left = 168
            Top = 88
            Width = 72
            Height = 12
            Caption = '工 作 部门：'
          end
          object Label6: TLabel
            Left = 8
            Top = 88
            Width = 72
            Height = 12
            Caption = '性      别：'
          end
          object Label3: TLabel
            Left = 264
            Top = 16
            Width = 72
            Height = 12
            Caption = '操作员角色：'
          end
          object Label7: TLabel
            Left = 8
            Top = 64
            Width = 72
            Height = 12
            Caption = '民      族：'
          end
          object Label2: TLabel
            Left = 264
            Top = 40
            Width = 72
            Height = 12
            Caption = '操作员口令：'
          end
          object DBEd_WorkID: TDBEdit
            Left = 80
            Top = 8
            Width = 153
            Height = 20
            DataField = 'WorkID'
            DataSource = Ds_Login
            TabOrder = 0
          end
          object DBEd_WorkName: TDBEdit
            Left = 80
            Top = 32
            Width = 153
            Height = 20
            DataField = 'WorkName'
            DataSource = Ds_Login
            TabOrder = 2
          end
          object DBEd_Birthday: TDBEdit
            Left = 336
            Top = 56
            Width = 185
            Height = 20
            Hint = '日期格式为YYYY.MM.DD'
            DataField = 'Birthday'
            DataSource = Ds_Login
            ParentShowHint = False
            ShowHint = True
            TabOrder = 5
          end
          object Dbcb_Role: TDBLookupComboBox
            Left = 336
            Top = 8
            Width = 185
            Height = 20
            DataField = 'ROLENAME'
            DataSource = Ds_Login
            KeyField = 'RoleName'
            ListField = 'RoleName'
            ListSource = Ds_Role
            TabOrder = 1
            OnClick = actn_Const_EditExecute
          end
          object DBComboBox1: TDBComboBox
            Left = 80
            Top = 80
            Width = 57
            Height = 20
            Style = csDropDownList
            DataField = 'Gender'
            DataSource = Ds_Login
            ItemHeight = 12
            Items.Strings = (
              '男'
              '女')
            TabOrder = 6
            OnChange = actn_Const_EditExecute
          end
          object DBEd_Department: TDBEdit
            Left = 240
            Top = 85
            Width = 281
            Height = 20
            DataField = 'Department'
            DataSource = Ds_Login
            TabOrder = 7
          end
          object DBEd_Pwd: TDBEdit
            Left = 336
            Top = 32
            Width = 185
            Height = 20
            DataField = 'Pwd'
            DataSource = Ds_Login
            TabOrder = 3
          end
          object DBEd_Peoples: TDBEdit
            Left = 80
            Top = 56
            Width = 153
            Height = 20
            DataField = 'Peoples'
            DataSource = Ds_Login
            TabOrder = 4
          end
        end
      end
    end
    object Panel3: TPanel
      Left = 0
      Top = 150
      Width = 788
      Height = 19
      Align = alTop
      Alignment = taLeftJustify
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 2
      object RxLabel2: TRxLabel
        Left = 20
        Top = 4
        Width = 68
        Height = 12
        Caption = ' 操作员列表'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ShadowColor = clInfoBk
        ShadowPos = spLeftBottom
      end
      object Image1: TImage
        Left = 4
        Top = 2
        Width = 14
        Height = 14
        Center = True
        Picture.Data = {
          07544269746D617042010000424D420100000000000076000000280000001100
          0000110000000100040000000000CC0000000000000000000000100000001000
          0000000000000000BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0
          C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
          FF00777777777777777770000000777777000007777770000000777700BBBBB0
          0777700000007770BBBBBBBBB07770000000770BBBBBBBBBBB0770000000770B
          BB00000BBB077000000070BBB0BBBBB0BBB07000000070BB0BBBBBBB0BB07000
          000070BBBBBBBBBBBBB07000000070BBBBBBBBBBBBB07000000070BBB00BBB00
          BBB070000000770BB00BBB00BB0770000000770BBBBBBBBBBB07700000007770
          BBBBBBBBB07770000000777700BBBBB007777000000077777700000777777000
          0000777777777777777770000000}
        Transparent = True
      end
    end
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 788
      Height = 19
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 3
      object RxLabel1: TRxLabel
        Left = 4
        Top = 4
        Width = 92
        Height = 12
        Caption = ' 操作员详细信息'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ShadowColor = clInfoBk
        ShadowPos = spLeftBottom
      end
    end
  end
  inherited dk97_SelfHome: TDock97
    Width = 788
    inherited tbar97_Self: TToolbar97
      Caption = '操作员管理'
      inherited tbtn97_Const_Find: TToolbarButton97
        Visible = False
      end
      inherited tbtn97_Const_Print: TToolbarButton97
        Visible = False
      end
    end
  end
  inherited pm_Main: TPopupMenu
    Top = 288
  end
  inherited atnlst_Main: TActionList
    Top = 248
  end
  inherited mm_Main: TMainMenu
    Top = 288
    inherited mmi_Const: TMenuItem
      Caption = '操作员管理(&M)'
    end
  end
  inherited waps_Const: TwenActionPass
    Left = 120
    Top = 368
  end
  inherited il_MainEn: TImageList
    Top = 288
  end
  object Qr_Login: TQuery
    CachedUpdates = True
    DatabaseName = 'DBECSC'
    SQL.Strings = (
      'select * from sysLogin')
    UpdateObject = Us_Login
    Left = 240
    Top = 256
  end
  object Us_Login: TUpdateSQL
    ModifySQL.Strings = (
      'update sysLogin'
      'set'
      '  WORKID = :WORKID,'
      '  WORKNAME = :WORKNAME,'
      '  ROLENAME = :ROLENAME,'
      '  PWD = :PWD,'
      '  BIRTHDAY = :BIRTHDAY,'
      '  PEOPLES = :PEOPLES,'
      '  GENDER = :GENDER,'
      '  DEPARTMENT = :DEPARTMENT,'
      '  APPNAME = :APPNAME'
      'where'
      '  WORKID = :OLD_WORKID and'
      '  WORKNAME = :OLD_WORKNAME and'
      '  ROLENAME = :OLD_ROLENAME and'
      '  PWD = :OLD_PWD and'
      '  BIRTHDAY = :OLD_BIRTHDAY and'
      '  PEOPLES = :OLD_PEOPLES and'
      '  GENDER = :OLD_GENDER and'
      '  DEPARTMENT = :OLD_DEPARTMENT and'
      '  APPNAME = :OLD_APPNAME')
    InsertSQL.Strings = (
      'insert into sysLogin'
      '  (WORKID, WORKNAME, ROLENAME, PWD, BIRTHDAY, PEOPLES, GENDER, '
      'DEPARTMENT, '
      '   APPNAME)'
      'values'
      '  (:WORKID, :WORKNAME, :ROLENAME, :PWD, :BIRTHDAY, :PEOPLES, '
      ':GENDER, :DEPARTMENT, '
      '   :APPNAME)')
    DeleteSQL.Strings = (
      'delete from sysLogin'
      'where'
      '  WORKID = :OLD_WORKID and'
      '  WORKNAME = :OLD_WORKNAME and'
      '  ROLENAME = :OLD_ROLENAME and'
      '  PWD = :OLD_PWD and'
      '  BIRTHDAY = :OLD_BIRTHDAY and'
      '  PEOPLES = :OLD_PEOPLES and'
      '  GENDER = :OLD_GENDER and'
      '  DEPARTMENT = :OLD_DEPARTMENT and'
      '  APPNAME = :OLD_APPNAME')
    Left = 304
    Top = 256
  end
  object Ds_Login: TDataSource
    DataSet = Qr_Login
    Left = 272
    Top = 248
  end
  object Qr_Role: TQuery
    DatabaseName = 'DBECSC'
    SQL.Strings = (
      'select * from sysrole')
    Left = 240
    Top = 312
  end
  object Ds_Role: TDataSource
    DataSet = Qr_Role
    Left = 288
    Top = 320
  end
  object Table1: TTable
    DatabaseName = 'DBECSC'
    TableName = 'SYSLOGIN'
    Left = 352
    Top = 266
  end
end