企业管理

开发平台：
Visual Basic

：源码内容
							VERSION 5.00
Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
Begin VB.Form Dev_HelpItem 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   5235
   ClientLeft      =   2355
   ClientTop       =   2460
   ClientWidth     =   5535
   Icon            =   "帮助_关于.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5235
   ScaleWidth      =   5535
   Begin VSFlex8Ctl.VSFlexGrid CzxsGrid 
      Height          =   4290
      Left            =   75
      TabIndex        =   7
      Top             =   450
      Width           =   5340
      _cx             =   9419
      _cy             =   7567
      Appearance      =   1
      BorderStyle     =   1
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MousePointer    =   0
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      BackColorFixed  =   -2147483633
      ForeColorFixed  =   -2147483630
      BackColorSel    =   -2147483635
      ForeColorSel    =   -2147483634
      BackColorBkg    =   -2147483636
      BackColorAlternate=   -2147483643
      GridColor       =   -2147483633
      GridColorFixed  =   -2147483632
      TreeColor       =   -2147483632
      FloodColor      =   192
      SheetBorder     =   -2147483642
      FocusRect       =   1
      HighLight       =   1
      AllowSelection  =   -1  'True
      AllowBigSelection=   -1  'True
      AllowUserResizing=   0
      SelectionMode   =   0
      GridLines       =   1
      GridLinesFixed  =   2
      GridLineWidth   =   1
      Rows            =   50
      Cols            =   10
      FixedRows       =   1
      FixedCols       =   1
      RowHeightMin    =   0
      RowHeightMax    =   0
      ColWidthMin     =   0
      ColWidthMax     =   0
      ExtendLastCol   =   0   'False
      FormatString    =   $"帮助_关于.frx":1042
      ScrollTrack     =   0   'False
      ScrollBars      =   3
      ScrollTips      =   0   'False
      MergeCells      =   0
      MergeCompare    =   0
      AutoResize      =   -1  'True
      AutoSizeMode    =   0
      AutoSearch      =   0
      AutoSearchDelay =   2
      MultiTotals     =   -1  'True
      SubtotalPosition=   1
      OutlineBar      =   0
      OutlineCol      =   0
      Ellipsis        =   0
      ExplorerBar     =   0
      PicturesOver    =   0   'False
      FillStyle       =   0
      RightToLeft     =   0   'False
      PictureType     =   0
      TabBehavior     =   0
      OwnerDraw       =   0
      Editable        =   0
      ShowComboButton =   1
      WordWrap        =   0   'False
      TextStyle       =   0
      TextStyleFixed  =   0
      OleDragMode     =   0
      OleDropMode     =   0
      DataMode        =   0
      VirtualData     =   -1  'True
      DataMember      =   ""
      ComboSearch     =   3
      AutoSizeMouse   =   -1  'True
      FrozenRows      =   0
      FrozenCols      =   0
      AllowUserFreezing=   0
      BackColorFrozen =   0
      ForeColorFrozen =   0
      WallPaperAlignment=   9
      AccessibleName  =   ""
      AccessibleDescription=   ""
      AccessibleValue =   ""
      AccessibleRole  =   24
   End
   Begin VB.CommandButton QdCommand 
      Caption         =   "确定(&O)"
      Height          =   300
      Left            =   2820
      TabIndex        =   5
      Top             =   4770
      Width           =   795
   End
   Begin VB.CommandButton QxCommand 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   3720
      TabIndex        =   4
      Top             =   4770
      Width           =   795
   End
   Begin VB.CommandButton Bjcommand 
      Caption         =   "编辑(&E)"
      Enabled         =   0   'False
      Height          =   300
      Left            =   4650
      TabIndex        =   3
      Top             =   4770
      Width           =   795
   End
   Begin VB.TextBox CodeText 
      Height          =   300
      Left            =   1050
      TabIndex        =   2
      Top             =   45
      Width           =   4410
   End
   Begin VB.CommandButton Gridsz 
      Caption         =   "保存表格格式"
      Height          =   300
      Index           =   0
      Left            =   60
      TabIndex        =   1
      Top             =   4770
      Width           =   1335
   End
   Begin VB.CommandButton Gridsz 
      Caption         =   "恢复默认格式"
      Height          =   300
      Index           =   1
      Left            =   1410
      TabIndex        =   0
      Top             =   4770
      Width           =   1335
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "编码或名称"
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   6
      Top             =   68
      Width           =   975
   End
End
Attribute VB_Name = "Dev_HelpItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub CodeText_Change()
    
    On Error Resume Next
    
    Dim i As Integer
    
    With CzxsGrid
        For i = 1 To .Rows - 1
            If .TextMatrix(i, 0) Like CodeText & "*" Or .TextMatrix(i, 1) Like Trim(CodeText) & "*" Then
                .Row = i
                .SetFocus
                SendKeys "{LEFT}", True
                CodeText.SetFocus
                Exit For
            End If
        Next
    End With
End Sub
Private Sub CzxsGrid_DblClick()
    
    With CzxsGrid
        If .Rows <> 1 Then
            P_Code = .TextMatrix(.Row, 0)
            P_Name = .TextMatrix(.Row, 1)
        End If
    End With
    Unload Me
End Sub
Private Sub CzxsGrid_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then CzxsGrid_DblClick
End Sub
Private Sub Form_Activate()
    
    CzxsGrid.SetFocus
    SendKeys "{LEFT}", True
End Sub
Private Sub Form_Load()
    P_Code = ""
    P_Name = ""
     
    Dim aDo_Help As New Recordset: Dim aDo_Item As New Recordset
    Dim Ssql As String: Dim i As Integer
    Me.Caption = SsqlHelp
    Select Case Trim(SsqlHelp)
        Case "记录信息"
            Ssql = "select * from DEV_main "
        Case "附属信息"
            Ssql = "select * from DEV_PTcode "
        Case Else
            '-------------------------
            Set aDo_Item = Cw_DataEnvi.DataConnect.Execute("select * from DEV_Item where itemcode=" & SsqlHelp)
            If Trim(aDo_Item!TableName) = "CorrelationList" Then
                Ssql = "select * from DEV_CorrelationSort A,DEV_CorrelationList B where " _
                        & "A.SortCode=b.SortCode and A.SortName='" & Trim(aDo_Item!ItmeCorrelation) & "' order by B.ListCode"
            Else
                Ssql = "select * from " & aDo_Item!TableName
            End If
    End Select
    
    Set aDo_Help = Cw_DataEnvi.DataConnect.Execute(Ssql)
    i = 1
    With CzxsGrid
        .Rows = aDo_Help.RecordCount + 1
        Do While Not aDo_Help.EOF
            Select Case Trim(SsqlHelp)
                Case "记录信息"
                    '<<<<<<<<<<<<<<<<<<<<<<<
                    .TextMatrix(i, 0) = Trim(aDo_Help!DEVID)
                    .TextMatrix(i, 1) = "" & Trim(aDo_Help!Dname)
                    '<<<<<<<<<<<<<<<<<<<<<<<<
                Case "附属信息"
                    '<<<<<<<<<<<<<<<<<<<<<<<
                    .TextMatrix(i, 0) = Trim(aDo_Help!Pcode)
                    .TextMatrix(i, 1) = "" & Trim(aDo_Help!pname)
                    '<<<<<<<<<<<<<<<<<<<<<<<<
                Case Else
                    If Trim(aDo_Item!TableName) = "CorrelationList" Then
                        .TextMatrix(i, 0) = aDo_Help!ListCode
                        .TextMatrix(i, 1) = aDo_Help!Listname
                    Else
                        .TextMatrix(i, 0) = Trim(aDo_Help(Trim(aDo_Item!CloumnName1)))
                        .TextMatrix(i, 1) = Trim(aDo_Help(Trim(aDo_Item!CloumnName2)))
                    End If
            End Select
         
            i = i + 1
            aDo_Help.MoveNext
        Loop
    End With
 
    If aDo_Item.State = 1 Then
        aDo_Item.Close
        Set aDo_Item = Nothing
    End If
    aDo_Help.Close
    CodeText.Text = YesNo_str
End Sub
Private Sub QdCommand_Click()
    CzxsGrid_DblClick
End Sub
Private Sub QxCommand_Click()
    Unload Me
End Sub

						