home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / 9UTI / WS32SHAR.ZIP / USER.FR_ / USER.FR
Text File  |  1998-03-28  |  20KB  |  613 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
  3. Object = "{BC496AED-9B4E-11CE-A6D5-0000C0BE9395}#2.0#0"; "SSDATB32.OCX"
  4. Object = "{A5CC20C4-B5F5-11CD-98EC-0020AF234C9D}#4.1#0"; "cstext32.ocx"
  5. Begin VB.Form frmUser 
  6.    Caption         =   "Users"
  7.    ClientHeight    =   3270
  8.    ClientLeft      =   2895
  9.    ClientTop       =   4305
  10.    ClientWidth     =   6675
  11.    HelpContextID   =   15000
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3270
  14.    ScaleWidth      =   6675
  15.    Tag             =   "Users Edit"
  16.    Begin VB.CommandButton btnEdit 
  17.       Caption         =   "Delete"
  18.       Height          =   315
  19.       Index           =   4
  20.       Left            =   120
  21.       TabIndex        =   9
  22.       Tag             =   "Delete button"
  23.       ToolTipText     =   "Delete User"
  24.       Top             =   2880
  25.       Width           =   1155
  26.    End
  27.    Begin TabDlg.SSTab stCusTyp 
  28.       Height          =   2715
  29.       Left            =   0
  30.       TabIndex        =   10
  31.       Tag             =   "Edit Selection tab"
  32.       Top             =   60
  33.       Width           =   6675
  34.       _ExtentX        =   11774
  35.       _ExtentY        =   4789
  36.       _Version        =   327681
  37.       Tabs            =   2
  38.       Tab             =   1
  39.       TabHeight       =   520
  40.       TabCaption(0)   =   "&Single Record"
  41.       TabPicture(0)   =   "User.frx":0000
  42.       Tab(0).ControlEnabled=   0   'False
  43.       Tab(0).Control(0)=   "lbl(0)"
  44.       Tab(0).Control(0).Enabled=   0   'False
  45.       Tab(0).Control(1)=   "lbl(1)"
  46.       Tab(0).Control(1).Enabled=   0   'False
  47.       Tab(0).Control(2)=   "lbl(2)"
  48.       Tab(0).Control(2).Enabled=   0   'False
  49.       Tab(0).Control(3)=   "lbl(3)"
  50.       Tab(0).Control(3).Enabled=   0   'False
  51.       Tab(0).Control(4)=   "lbl(4)"
  52.       Tab(0).Control(4).Enabled=   0   'False
  53.       Tab(0).Control(5)=   "clgUser(1)"
  54.       Tab(0).Control(5).Enabled=   0   'False
  55.       Tab(0).Control(6)=   "clgUser(0)"
  56.       Tab(0).Control(6).Enabled=   0   'False
  57.       Tab(0).Control(7)=   "txUser(0)"
  58.       Tab(0).Control(7).Enabled=   0   'False
  59.       Tab(0).Control(8)=   "txUser(1)"
  60.       Tab(0).Control(8).Enabled=   0   'False
  61.       Tab(0).Control(9)=   "txUser(2)"
  62.       Tab(0).Control(9).Enabled=   0   'False
  63.       Tab(0).ControlCount=   10
  64.       TabCaption(1)   =   "&Grid"
  65.       TabPicture(1)   =   "User.frx":001C
  66.       Tab(1).ControlEnabled=   -1  'True
  67.       Tab(1).Control(0)=   "ssgUser"
  68.       Tab(1).Control(0).Enabled=   0   'False
  69.       Tab(1).ControlCount=   1
  70.       Begin VB.TextBox txUser 
  71.          DataField       =   "user_password"
  72.          DataSource      =   "datUser"
  73.          Height          =   315
  74.          Index           =   2
  75.          Left            =   -72300
  76.          MaxLength       =   10
  77.          TabIndex        =   5
  78.          Tag             =   "User Password"
  79.          ToolTipText     =   "Pass Word"
  80.          Top             =   1680
  81.          Width           =   2595
  82.       End
  83.       Begin VB.TextBox txUser 
  84.          DataField       =   "user_refno"
  85.          DataSource      =   "datUser"
  86.          Height          =   315
  87.          Index           =   1
  88.          Left            =   -72300
  89.          MaxLength       =   15
  90.          TabIndex        =   4
  91.          Tag             =   "User Account number"
  92.          ToolTipText     =   "Account #"
  93.          Top             =   1380
  94.          Width           =   2595
  95.       End
  96.       Begin VB.TextBox txUser 
  97.          DataField       =   "user_name"
  98.          DataSource      =   "datUser"
  99.          Height          =   315
  100.          Index           =   0
  101.          Left            =   -72300
  102.          MaxLength       =   30
  103.          TabIndex        =   3
  104.          Tag             =   "User Name"
  105.          ToolTipText     =   "User Name"
  106.          Top             =   1080
  107.          Width           =   2595
  108.       End
  109.       Begin SSDataWidgets_B.SSDBGrid ssgUser 
  110.          Bindings        =   "User.frx":0038
  111.          Height          =   1995
  112.          Left            =   60
  113.          TabIndex        =   11
  114.          Tag             =   "User Edit Grid"
  115.          ToolTipText     =   "User Definition"
  116.          Top             =   540
  117.          Width           =   6540
  118.          _Version        =   131078
  119.          BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  120.             Name            =   "MS Sans Serif"
  121.             Size            =   8.25
  122.             Charset         =   0
  123.             Weight          =   400
  124.             Underline       =   0   'False
  125.             Italic          =   0   'False
  126.             Strikethrough   =   0   'False
  127.          EndProperty
  128.          SelectTypeCol   =   0
  129.          SelectTypeRow   =   1
  130.          RowHeight       =   423
  131.          Columns.Count   =   5
  132.          Columns(0).Width=   1482
  133.          Columns(0).Caption=   "User #"
  134.          Columns(0).Name =   "user_no"
  135.          Columns(0).CaptionAlignment=   0
  136.          Columns(0).DataField=   "user_no"
  137.          Columns(0).DataType=   3
  138.          Columns(0).FieldLen=   256
  139.          Columns(1).Width=   4630
  140.          Columns(1).Caption=   "User Name"
  141.          Columns(1).Name =   "user_name"
  142.          Columns(1).CaptionAlignment=   0
  143.          Columns(1).DataField=   "user_name"
  144.          Columns(1).DataType=   8
  145.          Columns(1).FieldLen=   256
  146.          Columns(2).Width=   2328
  147.          Columns(2).Caption=   "User Acct #"
  148.          Columns(2).Name =   "user_refno"
  149.          Columns(2).CaptionAlignment=   0
  150.          Columns(2).DataField=   "user_refno"
  151.          Columns(2).DataType=   8
  152.          Columns(2).FieldLen=   256
  153.          Columns(3).Width=   3200
  154.          Columns(3).Caption=   "Password"
  155.          Columns(3).Name =   "user_password"
  156.          Columns(3).CaptionAlignment=   0
  157.          Columns(3).DataField=   "user_password"
  158.          Columns(3).DataType=   8
  159.          Columns(3).FieldLen=   256
  160.          Columns(4).Width=   2355
  161.          Columns(4).Caption=   "Security Level"
  162.          Columns(4).Name =   "user_securitylvl"
  163.          Columns(4).Alignment=   1
  164.          Columns(4).CaptionAlignment=   1
  165.          Columns(4).DataField=   "user_securitylvl"
  166.          Columns(4).DataType=   3
  167.          Columns(4).FieldLen=   256
  168.          UseDefaults     =   0   'False
  169.          _ExtentX        =   11536
  170.          _ExtentY        =   3519
  171.          _StockProps     =   79
  172.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  173.             Name            =   "MS Sans Serif"
  174.             Size            =   8.25
  175.             Charset         =   0
  176.             Weight          =   400
  177.             Underline       =   0   'False
  178.             Italic          =   0   'False
  179.             Strikethrough   =   0   'False
  180.          EndProperty
  181.       End
  182.       Begin CSTextLibCtl.silgEdit clgUser 
  183.          Bindings        =   "User.frx":004A
  184.          Height          =   315
  185.          Index           =   0
  186.          Left            =   -72300
  187.          TabIndex        =   2
  188.          TabStop         =   0   'False
  189.          Tag             =   "User Number"
  190.          ToolTipText     =   "User Number"
  191.          Top             =   780
  192.          Width           =   2595
  193.          _Version        =   262145
  194.          _ExtentX        =   4577
  195.          _ExtentY        =   556
  196.          _StockProps     =   125
  197.          Text            =   " 1"
  198.          ForeColor       =   -2147483640
  199.          BackColor       =   14737632
  200.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  201.             Name            =   "MS Sans Serif"
  202.             Size            =   8.26
  203.             Charset         =   0
  204.             Weight          =   400
  205.             Underline       =   0   'False
  206.             Italic          =   0   'False
  207.             Strikethrough   =   0   'False
  208.          EndProperty
  209.          BorderEffect    =   2
  210.          DataProperty    =   2
  211.          ReadOnly        =   -1  'True
  212.          Modified        =   0   'False
  213.          HideSelection   =   -1  'True
  214.          RawData         =   "1"
  215.          Text            =   " 1"
  216.          StartText.x     =   3
  217.          StartText.y     =   4
  218.          FirstVisPos     =   0
  219.          HiAnchor        =   0
  220.          HiNew           =   0
  221.          CaretHeight     =   13
  222.          CurNumDataChars =   0
  223.          MaxDataChars    =   0
  224.          FirstDataPos    =   0
  225.          CurPos          =   0
  226.          MaxLen          =   0
  227.          DataReadOnly    =   0   'False
  228.          Mask            =   ""
  229.          Justification   =   2
  230.          Undo            =   1
  231.          Data            =   1
  232.          DataField       =   "user_no"
  233.       End
  234.       Begin CSTextLibCtl.silgEdit clgUser 
  235.          Bindings        =   "User.frx":005C
  236.          Height          =   315
  237.          Index           =   1
  238.          Left            =   -72300
  239.          TabIndex        =   6
  240.          Tag             =   "User Security Level"
  241.          ToolTipText     =   "User Security Level"
  242.          Top             =   1980
  243.          Width           =   2595
  244.          _Version        =   262145
  245.          _ExtentX        =   4577
  246.          _ExtentY        =   556
  247.          _StockProps     =   125
  248.          Text            =   " 1"
  249.          ForeColor       =   -2147483640
  250.          BackColor       =   16777215
  251.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  252.             Name            =   "MS Sans Serif"
  253.             Size            =   8.26
  254.             Charset         =   0
  255.             Weight          =   400
  256.             Underline       =   0   'False
  257.             Italic          =   0   'False
  258.             Strikethrough   =   0   'False
  259.          EndProperty
  260.          BorderEffect    =   2
  261.          DataProperty    =   2
  262.          Modified        =   0   'False
  263.          HideSelection   =   -1  'True
  264.          RawData         =   "1"
  265.          Text            =   " 1"
  266.          StartText.x     =   3
  267.          StartText.y     =   4
  268.          FirstVisPos     =   0
  269.          HiAnchor        =   0
  270.          HiNew           =   0
  271.          CaretHeight     =   13
  272.          CurNumDataChars =   0
  273.          MaxDataChars    =   0
  274.          FirstDataPos    =   0
  275.          CurPos          =   0
  276.          MaxLen          =   0
  277.          DataReadOnly    =   0   'False
  278.          Mask            =   ""
  279.          Justification   =   2
  280.          Undo            =   1
  281.          Data            =   1
  282.          DataField       =   "user_securitylvl"
  283.       End
  284.       Begin VB.Label lbl 
  285.          BackColor       =   &H00FFFFC0&
  286.          BorderStyle     =   1  'Fixed Single
  287.          Caption         =   "User Security Level"
  288.          Height          =   285
  289.          Index           =   4
  290.          Left            =   -73800
  291.          TabIndex        =   16
  292.          Top             =   1980
  293.          Width           =   1515
  294.       End
  295.       Begin VB.Label lbl 
  296.          BackColor       =   &H00FFFFC0&
  297.          BorderStyle     =   1  'Fixed Single
  298.          Caption         =   "User Password"
  299.          Height          =   285
  300.          Index           =   3
  301.          Left            =   -73800
  302.          TabIndex        =   15
  303.          Top             =   1680
  304.          Width           =   1515
  305.       End
  306.       Begin VB.Label lbl 
  307.          BackColor       =   &H00FFFFC0&
  308.          BorderStyle     =   1  'Fixed Single
  309.          Caption         =   "User Account #"
  310.          Height          =   285
  311.          Index           =   2
  312.          Left            =   -73800
  313.          TabIndex        =   14
  314.          Top             =   1380
  315.          Width           =   1515
  316.       End
  317.       Begin VB.Label lbl 
  318.          BackColor       =   &H00FFFFC0&
  319.          BorderStyle     =   1  'Fixed Single
  320.          Caption         =   "User Name"
  321.          Height          =   285
  322.          Index           =   1
  323.          Left            =   -73800
  324.          TabIndex        =   13
  325.          Top             =   1080
  326.          Width           =   1515
  327.       End
  328.       Begin VB.Label lbl 
  329.          BackColor       =   &H00FFFFC0&
  330.          BorderStyle     =   1  'Fixed Single
  331.          Caption         =   "User Number"
  332.          Height          =   285
  333.          Index           =   0
  334.          Left            =   -73800
  335.          TabIndex        =   12
  336.          Top             =   780
  337.          Width           =   1515
  338.       End
  339.    End
  340.    Begin VB.Data datUser 
  341.       Caption         =   "Cat"
  342.       Connect         =   "Access"
  343.       DatabaseName    =   ""
  344.       DefaultCursorType=   0  'DefaultCursor
  345.       DefaultType     =   2  'UseODBC
  346.       Exclusive       =   0   'False
  347.       Height          =   345
  348.       Left            =   240
  349.       Options         =   0
  350.       ReadOnly        =   0   'False
  351.       RecordsetType   =   1  'Dynaset
  352.       RecordSource    =   ""
  353.       Top             =   0
  354.       Visible         =   0   'False
  355.       Width           =   1140
  356.    End
  357.    Begin VB.CommandButton btnEdit 
  358.       Caption         =   "&New"
  359.       Height          =   315
  360.       Index           =   3
  361.       Left            =   1440
  362.       TabIndex        =   1
  363.       Tag             =   "New Button"
  364.       ToolTipText     =   "Create New User"
  365.       Top             =   2880
  366.       Width           =   1155
  367.    End
  368.    Begin VB.CommandButton btnEdit 
  369.       Caption         =   "E&dit "
  370.       Height          =   315
  371.       Index           =   0
  372.       Left            =   2760
  373.       TabIndex        =   0
  374.       Tag             =   "Edit Button "
  375.       ToolTipText     =   "Edit User"
  376.       Top             =   2880
  377.       Width           =   1155
  378.    End
  379.    Begin VB.CommandButton btnEdit 
  380.       Cancel          =   -1  'True
  381.       Caption         =   "&Close"
  382.       Height          =   315
  383.       Index           =   2
  384.       Left            =   5400
  385.       TabIndex        =   8
  386.       Tag             =   "Close button"
  387.       ToolTipText     =   "Close User Edit"
  388.       Top             =   2880
  389.       Width           =   1155
  390.    End
  391.    Begin VB.CommandButton btnEdit 
  392.       Caption         =   "&Post"
  393.       Height          =   315
  394.       Index           =   1
  395.       Left            =   4140
  396.       TabIndex        =   7
  397.       Tag             =   "Post button"
  398.       ToolTipText     =   "Post User"
  399.       Top             =   2880
  400.       Width           =   1155
  401.    End
  402. End
  403. Attribute VB_Name = "frmUser"
  404. Attribute VB_GlobalNameSpace = False
  405. Attribute VB_Creatable = False
  406. Attribute VB_PredeclaredId = True
  407. Attribute VB_Exposed = False
  408. Attribute VB_Ext_KEY = "RVB_UniqueId" ,"3461E5F10250"
  409. Option Explicit
  410.  
  411. '##ModelId=3461E5F10323
  412. Private Sub btnEdit_Click(Index As Integer)
  413.     Dim Persist As New CPersist
  414.     Dim Rs As Recordset, iErr As Integer
  415.     Static flgEdit As Integer
  416.     Dim Er As New CErr, iErResponse As Integer
  417.     On Error GoTo EdErr
  418.     
  419.     Select Case Index
  420.         Case 0 'edit
  421.             enableEdit
  422.             iErr = Persist.EditRecord(datUser, Rs)
  423.             flgEdit = True
  424.         Case 1 'post
  425.             If flgEdit = True Then
  426.                 iErr = Persist.PostRecord(datUser, Rs)
  427.                 disableFields
  428.                 flgEdit = False
  429.             End If
  430.             If btnEdit(0).Enabled = True Then btnEdit(0).SetFocus
  431.         Case 2 'close
  432.             disableFields
  433.             flgEdit = False
  434.             Unload frmUser
  435.         Case 3 'new
  436.             enableEdit
  437.             iErr = Persist.NewRecord(datUser, Rs)
  438.             flgEdit = True
  439.         Case 4 'delete
  440.             iErr = Persist.DeleteRecord(datUser, Rs)
  441.             disableFields
  442.             flgEdit = False
  443.     
  444.     End Select
  445.     
  446.     Set Persist = Nothing
  447.     
  448. Exit Sub
  449. EdErr:
  450.     iErResponse = Er.Show("User btnEdit_Click")
  451.     If iErResponse = gliResume Then
  452.         Resume
  453.     ElseIf iErResponse = gliResumeNext Then
  454.         Resume Next
  455.     Else
  456.         Exit Sub
  457.     End If
  458. End Sub
  459.  
  460.  
  461. '##ModelId=3461E5F20035
  462. Private Sub cxtUser_Change(Index As Integer)
  463.  
  464. End Sub
  465.  
  466. Private Sub datUser_Error(DataErr As Integer, Response As Integer)
  467.     Dim Er As New CErr, iErResponse As Integer
  468.     On Error GoTo dcErr
  469.  
  470. Exit Sub
  471. dcErr:
  472.     iErResponse = Er.Show("User datUser")
  473.     If iErResponse = gliResume Then
  474.         Resume
  475.     ElseIf iErResponse = gliResumeNext Then
  476.         Resume Next
  477.     Else
  478.         Exit Sub
  479.     End If
  480.  
  481. End Sub
  482.  
  483. '##ModelId=3461E5F20125
  484. Private Sub Form_Activate()
  485.  
  486.     disableFields
  487.     stCusTyp.Tab = 0
  488.  
  489. End Sub
  490.  
  491. '##ModelId=3461E5F2019E
  492. Private Sub Form_Load()
  493.     Dim Win As New CWindow
  494.     Dim dlgResponse, dlgDef, dlgMsg, dlgTitle
  495.     On Error GoTo fLErr
  496.  
  497.     Win.Center Me
  498.  
  499. Exit Sub
  500. fLErr:
  501.     Select Case Err
  502.         'Case 3061
  503.             'Resume Next 'consider taking out if Refresh not used.
  504.         Case Else
  505.             dlgTitle = "Form Customer Type Load Error"
  506.             dlgDef = vbRetryCancel + vbExclamation
  507.             dlgMsg = "ERROR " & Err & " occurred. " & Error$ & "."
  508.             dlgResponse = MsgBox(dlgMsg, dlgDef, dlgTitle)
  509.     End Select
  510.         If dlgResponse = vbRetry Then
  511.             Resume
  512.         ElseIf dlgResponse = vbCancel Then
  513.             Exit Sub
  514.         End If
  515.  
  516. End Sub
  517.  
  518.  
  519.  
  520. '##ModelId=3461E5F20216
  521. Public Sub disableFields()
  522.     Dim i As Integer
  523.     Dim Er As New CErr, iErResponse As Integer
  524.     On Error GoTo DaErr
  525.     
  526.  
  527.     btnEdit(2).Enabled = True
  528.     btnEdit(0).Enabled = True
  529.     btnEdit(1).Enabled = False
  530.     btnEdit(3).Enabled = True
  531.     For i = 0 To 2
  532.         txUser(i).Enabled = False
  533.     Next i
  534.     
  535.     For i = 0 To 1
  536.         clgUser(i).Enabled = False
  537.     Next i
  538.    
  539.     
  540. Exit Sub
  541. DaErr:
  542.     iErResponse = Er.Show("User disableFields")
  543.     If iErResponse = gliResume Then
  544.         Resume
  545.     ElseIf iErResponse = gliResumeNext Then
  546.         Resume Next
  547.     Else
  548.         Exit Sub
  549.     End If
  550. End Sub
  551.  
  552. '##ModelId=3461E5F20270
  553. Public Sub enableEdit()
  554.     Dim i As Integer
  555.     Dim Er As New CErr, iErResponse As Integer
  556.     On Error GoTo EfErr
  557.  
  558.     btnEdit(2).Enabled = True
  559.     btnEdit(0).Enabled = False
  560.     btnEdit(1).Enabled = True
  561.     btnEdit(3).Enabled = False
  562.     For i = 0 To 2
  563.         txUser(i).Enabled = True
  564.     Next i
  565.     
  566.     For i = 0 To 1
  567.         clgUser(i).Enabled = True
  568.     Next i
  569.  
  570. Exit Sub
  571. EfErr:
  572.     iErResponse = Er.Show("User enableEdit")
  573.     If iErResponse = gliResume Then
  574.         Resume
  575.     ElseIf iErResponse = gliResumeNext Then
  576.         Resume Next
  577.     Else
  578.         Exit Sub
  579.     End If
  580. End Sub
  581.  
  582.  
  583. '##ModelId=34A9B718008A
  584. Public Sub Display(DbName As String)
  585.     Dim Persist As New CPersist
  586.     Dim dlgResponse, dlgDef, dlgMsg, dlgTitle
  587.     On Error GoTo fDErr
  588.  
  589.     If Persist.Connect(datUser, "Users", DbName) = True Then Exit Sub
  590.  
  591.     Me.Show 1
  592.     
  593.     Set Persist = Nothing
  594.  
  595. Exit Sub
  596. fDErr:
  597.     Select Case Err
  598.         'Case 3061
  599.             'Resume Next 'consider taking out if Refresh not used.
  600.         Case Else
  601.             dlgTitle = "Form User Display Error"
  602.             dlgDef = vbRetryCancel + vbExclamation
  603.             dlgMsg = "ERROR " & Err & " occurred. " & Error$ & "."
  604.             dlgResponse = MsgBox(dlgMsg, dlgDef, dlgTitle)
  605.     End Select
  606.         If dlgResponse = vbRetry Then
  607.             Resume
  608.         ElseIf dlgResponse = vbCancel Then
  609.             Exit Sub
  610.         End If
  611.  
  612. End Sub
  613.