Category

Development Platform
Home > SourceCode/Document > Applications > ERP-EIP-OA-Portal > View Code
Form_HigherUpCn.frm
Package: ERPSYS.zip　[view]
Upload User: zhpu1995
Upload Date: 2013-09-06
Package Size: 61151k
Code Size: 6k
Category:

ERP-EIP-OA-Portal

Development Platform:

Visual Basic

Form_HigherUpCn.frm：Code Content
  1. VERSION 5.00
  2. Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
  3. Begin VB.Form Frm_HigherUpCo 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "上级单位"
  6.    ClientHeight    =   3390
  7.    ClientLeft      =   3435
  8.    ClientTop       =   2445
  9.    ClientWidth     =   5295
  10.    BeginProperty Font 
  11.       Name            =   "宋体"
  12.       Size            =   9
  13.       Charset         =   134
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "Form_HigherUpCn.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    LockControls    =   -1  'True
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   3390
  25.    ScaleWidth      =   5295
  26.    Begin VB.CommandButton Command2 
  27.       Caption         =   "退出&C"
  28.       Height          =   285
  29.       Index           =   3
  30.       Left            =   3960
  31.       TabIndex        =   4
  32.       Top             =   2970
  33.       Width           =   1245
  34.    End
  35.    Begin VB.CommandButton Command2 
  36.       Caption         =   "添加&A"
  37.       Height          =   285
  38.       Index           =   0
  39.       Left            =   3960
  40.       TabIndex        =   3
  41.       Top             =   1350
  42.       Width           =   1245
  43.    End
  44.    Begin VB.CommandButton Command2 
  45.       Caption         =   "编辑&E"
  46.       Height          =   285
  47.       Index           =   1
  48.       Left            =   3960
  49.       TabIndex        =   2
  50.       Top             =   1770
  51.       Width           =   1245
  52.    End
  53.    Begin VB.CommandButton Command2 
  54.       Caption         =   "删除&D"
  55.       Height          =   285
  56.       Index           =   2
  57.       Left            =   3960
  58.       TabIndex        =   1
  59.       Top             =   2220
  60.       Width           =   1245
  61.    End
  62.    Begin VSFlex6Ctl.vsFlexGrid vsFle 
  63.       Height          =   3195
  64.       Left            =   60
  65.       TabIndex        =   0
  66.       Top             =   90
  67.       Width           =   3795
  68.       _cx             =   8329766
  69.       _cy             =   8328708
  70.       _ConvInfo       =   -1
  71.       Appearance      =   1
  72.       BorderStyle     =   1
  73.       Enabled         =   -1  'True
  74.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  75.          Name            =   "宋体"
  76.          Size            =   9
  77.          Charset         =   134
  78.          Weight          =   400
  79.          Underline       =   0   'False
  80.          Italic          =   0   'False
  81.          Strikethrough   =   0   'False
  82.       EndProperty
  83.       MousePointer    =   0
  84.       BackColor       =   -2147483643
  85.       ForeColor       =   -2147483640
  86.       BackColorFixed  =   -2147483633
  87.       ForeColorFixed  =   -2147483630
  88.       BackColorSel    =   -2147483635
  89.       ForeColorSel    =   -2147483634
  90.       BackColorBkg    =   -2147483636
  91.       BackColorAlternate=   -2147483643
  92.       GridColor       =   -2147483633
  93.       GridColorFixed  =   -2147483632
  94.       TreeColor       =   -2147483632
  95.       FloodColor      =   192
  96.       SheetBorder     =   -2147483642
  97.       FocusRect       =   0
  98.       HighLight       =   1
  99.       AllowSelection  =   -1  'True
  100.       AllowBigSelection=   -1  'True
  101.       AllowUserResizing=   1
  102.       SelectionMode   =   1
  103.       GridLines       =   1
  104.       GridLinesFixed  =   2
  105.       GridLineWidth   =   1
  106.       Rows            =   2
  107.       Cols            =   3
  108.       FixedRows       =   1
  109.       FixedCols       =   0
  110.       RowHeightMin    =   0
  111.       RowHeightMax    =   0
  112.       ColWidthMin     =   0
  113.       ColWidthMax     =   0
  114.       ExtendLastCol   =   0   'False
  115.       FormatString    =   "编号|上级单位名称|备注                "
  116.       ScrollTrack     =   0   'False
  117.       ScrollBars      =   3
  118.       ScrollTips      =   0   'False
  119.       MergeCells      =   0
  120.       MergeCompare    =   0
  121.       AutoResize      =   -1  'True
  122.       AutoSizeMode    =   0
  123.       AutoSearch      =   0
  124.       MultiTotals     =   -1  'True
  125.       SubtotalPosition=   1
  126.       OutlineBar      =   0
  127.       OutlineCol      =   0
  128.       Ellipsis        =   0
  129.       ExplorerBar     =   0
  130.       PicturesOver    =   0   'False
  131.       FillStyle       =   0
  132.       RightToLeft     =   0   'False
  133.       PictureType     =   0
  134.       TabBehavior     =   0
  135.       OwnerDraw       =   0
  136.       Editable        =   0   'False
  137.       ShowComboButton =   -1  'True
  138.       WordWrap        =   0   'False
  139.       TextStyle       =   0
  140.       TextStyleFixed  =   0
  141.       OleDragMode     =   0
  142.       OleDropMode     =   0
  143.       DataMode        =   0
  144.       VirtualData     =   -1  'True
  145.       DataMember      =   ""
  146.    End
  147. End
  148. Attribute VB_Name = "Frm_HigherUpCo"
  149. Attribute VB_GlobalNameSpace = False
  150. Attribute VB_Creatable = False
  151. Attribute VB_PredeclaredId = True
  152. Attribute VB_Exposed = False
  153. Private Sub Command2_Click(Index As Integer)
  154. On Error GoTo err_exit
  156. If Index = 3 Then Unload Me: Exit Sub
  157. If Index = 0 Then
  158.    Frm_HigherUpCoList.Tag = Me.Tag
  159.    Frm_HigherUpCoList.Text1(0).Tag = 1
  160.    Frm_HigherUpCoList.Show 1
  161.    
  162. End If
  164. If Index = 1 And vsFle.Row > 0 Then
  166.    With Frm_HigherUpCoList
  167.         .Text1(0).Text = vsFle.TextMatrix(vsFle.Row, 0)
  168.         .Text1(1).Text = vsFle.TextMatrix(vsFle.Row, 1)
  169.         .Text1(1).Tag = vsFle.TextMatrix(vsFle.Row, 0)
  170.         .Text1(2).Text = vsFle.TextMatrix(vsFle.Row, 2)
  171.         .Text1(0).Tag = 2
  172.         .Tag = Me.Tag
  173.         .Show 1
  174.    End With
  175. End If
  177. If Index = 2 Then
  179.    If vsFle.Rows > 2 Then
  180.        Conn_System.Execute "DELETE " & Me.Tag & ".dbo.gy_HigherUpCo WHERE CODE='" & vsFle.TextMatrix(vsFle.Row, 0) & "'"
  181.        Form_Activate
  182.        Else
  183.        MsgBox "此单位不能删除！ ", 16
  184.    End If
  185.   
  186. End If
  187. Exit Sub
  189. err_exit:
  190. MsgBox Err.Description, 16
  192. End Sub
  194. Private Sub Form_Activate()
  195. Dim aDo_Co As New Recordset
  196. Dim i As Integer
  197. Set aDo_Co = Conn_System.Execute("select * from " & Me.Tag & ".dbo.gy_HigherUpCo")
  198. With vsFle
  199.     .Rows = aDo_Co.RecordCount + 1
  200.     i = 1
  201.     Do While Not aDo_Co.EOF
  202.        .TextMatrix(i, 0) = aDo_Co!code
  203.        .TextMatrix(i, 1) = aDo_Co!Name
  204.        .TextMatrix(i, 2) = aDo_Co!Remark
  205.        i = i + 1
  206.        aDo_Co.MoveNext
  207.     Loop
  208. End With
  209. aDo_Co.Close
  210. Set aDo_Co = Nothing
  212. End Sub
  214. Public Sub Form_Load()
  217. End Sub
  219. Private Sub vsFle_DblClick()
  220. Command2_Click 1
  221. End Sub