开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
资源名称：ERPSYS.zip　[点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：30k
源码类别：

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
  4. Begin VB.Form Xt_Control 
  5.    Caption         =   "桌面"
  6.    ClientHeight    =   5850
  7.    ClientLeft      =   675
  8.    ClientTop       =   1665
  9.    ClientWidth     =   9240
  10.    Icon            =   "系统_主操作桌面.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   5850
  14.    ScaleWidth      =   9240
  15.    WindowState     =   2  'Maximized
  16.    Begin VB.PictureBox picTitles 
  17.       Align           =   1  'Align Top
  18.       Appearance      =   0  'Flat
  19.       BorderStyle     =   0  'None
  20.       BeginProperty Font 
  21.          Name            =   "MS Sans Serif"
  22.          Size            =   8.25
  23.          Charset         =   0
  24.          Weight          =   400
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       ForeColor       =   &H80000008&
  30.       Height          =   300
  31.       Left            =   0
  32.       ScaleHeight     =   300
  33.       ScaleWidth      =   9240
  34.       TabIndex        =   2
  35.       TabStop         =   0   'False
  36.       Top             =   420
  37.       Width           =   9240
  38.       Begin VB.Label lblTitle 
  39.          BorderStyle     =   1  'Fixed Single
  40.          Caption         =   " 列表视图:"
  41.          Height          =   270
  42.          Index           =   1
  43.          Left            =   2078
  44.          TabIndex        =   4
  45.          Tag             =   " 列表视图:"
  46.          Top             =   12
  47.          Width           =   3216
  48.       End
  49.       Begin VB.Label lblTitle 
  50.          BorderStyle     =   1  'Fixed Single
  51.          Caption         =   "百利/ERP5.0"
  52.          Height          =   270
  53.          Index           =   0
  54.          Left            =   0
  55.          TabIndex        =   3
  56.          Tag             =   " 树形视图:"
  57.          Top             =   12
  58.          Width           =   2016
  59.       End
  60.    End
  61.    Begin VB.PictureBox picSplitter 
  62.       BackColor       =   &H00808080&
  63.       BorderStyle     =   0  'None
  64.       FillColor       =   &H00808080&
  65.       BeginProperty Font 
  66.          Name            =   "MS Sans Serif"
  67.          Size            =   8.25
  68.          Charset         =   0
  69.          Weight          =   400
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.       Height          =   4800
  75.       Left            =   4575
  76.       ScaleHeight     =   2090.126
  77.       ScaleMode       =   0  'User
  78.       ScaleWidth      =   780
  79.       TabIndex        =   0
  80.       Top             =   780
  81.       Visible         =   0   'False
  82.       Width           =   72
  83.    End
  84.    Begin MSComctlLib.ImageList ImageList1 
  85.       Left            =   5400
  86.       Top             =   825
  87.       _ExtentX        =   1005
  88.       _ExtentY        =   1005
  89.       BackColor       =   -2147483643
  90.       ImageWidth      =   16
  91.       ImageHeight     =   16
  92.       MaskColor       =   12632256
  93.       _Version        =   393216
  94.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  95.          NumListImages   =   7
  96.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  97.             Picture         =   "系统_主操作桌面.frx":038A
  98.             Key             =   "stb"
  99.          EndProperty
  100.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  101.             Picture         =   "系统_主操作桌面.frx":13DC
  102.             Key             =   "xttb"
  103.          EndProperty
  104.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  105.             Picture         =   "系统_主操作桌面.frx":242E
  106.             Key             =   "szk"
  107.          EndProperty
  108.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  109.             Picture         =   "系统_主操作桌面.frx":27C8
  110.             Key             =   "gnqx1"
  111.          EndProperty
  112.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  113.             Picture         =   "系统_主操作桌面.frx":2C1A
  114.             Key             =   "kpgl1"
  115.          EndProperty
  116.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  117.             Picture         =   "系统_主操作桌面.frx":34F4
  118.             Key             =   "kpgl"
  119.          EndProperty
  120.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  121.             Picture         =   "系统_主操作桌面.frx":3DCE
  122.             Key             =   "gnqx"
  123.          EndProperty
  124.       EndProperty
  125.    End
  126.    Begin MSComctlLib.ListView lvListView 
  127.       Height          =   3375
  128.       Left            =   2160
  129.       TabIndex        =   1
  130.       Top             =   705
  131.       Width           =   2295
  132.       _ExtentX        =   4048
  133.       _ExtentY        =   5953
  134.       Arrange         =   2
  135.       LabelEdit       =   1
  136.       LabelWrap       =   -1  'True
  137.       HideSelection   =   -1  'True
  138.       OLEDragMode     =   1
  139.       OLEDropMode     =   1
  140.       PictureAlignment=   1
  141.       _Version        =   393217
  142.       Icons           =   "ImageList2"
  143.       SmallIcons      =   "ImageList1"
  144.       ColHdrIcons     =   "ImageList1"
  145.       ForeColor       =   -2147483640
  146.       BackColor       =   -2147483643
  147.       BorderStyle     =   1
  148.       Appearance      =   1
  149.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  150.          Name            =   "宋体"
  151.          Size            =   9
  152.          Charset         =   134
  153.          Weight          =   400
  154.          Underline       =   0   'False
  155.          Italic          =   0   'False
  156.          Strikethrough   =   0   'False
  157.       EndProperty
  158.       OLEDragMode     =   1
  159.       OLEDropMode     =   1
  160.       NumItems        =   0
  161.    End
  162.    Begin MSComDlg.CommonDialog dlgCommonDialog 
  163.       Left            =   3360
  164.       Top             =   2160
  165.       _ExtentX        =   847
  166.       _ExtentY        =   847
  167.       _Version        =   393216
  168.    End
  169.    Begin MSComctlLib.TreeView tvTreeView 
  170.       Height          =   4800
  171.       Left            =   0
  172.       TabIndex        =   5
  173.       Top             =   705
  174.       Width           =   2010
  175.       _ExtentX        =   3545
  176.       _ExtentY        =   8467
  177.       _Version        =   393217
  178.       Indentation     =   564
  179.       Style           =   7
  180.       ImageList       =   "ImageList1"
  181.       Appearance      =   1
  182.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  183.          Name            =   "宋体"
  184.          Size            =   9
  185.          Charset         =   134
  186.          Weight          =   400
  187.          Underline       =   0   'False
  188.          Italic          =   0   'False
  189.          Strikethrough   =   0   'False
  190.       EndProperty
  191.    End
  192.    Begin MSComctlLib.Toolbar tbToolBar 
  193.       Align           =   1  'Align Top
  194.       Height          =   420
  195.       Left            =   0
  196.       TabIndex        =   6
  197.       Top             =   0
  198.       Width           =   9240
  199.       _ExtentX        =   16298
  200.       _ExtentY        =   741
  201.       ButtonWidth     =   609
  202.       ButtonHeight    =   582
  203.       AllowCustomize  =   0   'False
  204.       Appearance      =   1
  205.       ImageList       =   "imlToolbarIcons"
  206.       _Version        =   393216
  207.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  208.          NumButtons      =   10
  209.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  210.             Style           =   3
  211.          EndProperty
  212.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  213.             Key             =   "返回"
  214.             Object.ToolTipText     =   "返回"
  215.             ImageKey        =   "xq"
  216.          EndProperty
  217.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  218.             Key             =   "向前"
  219.             Object.ToolTipText     =   "向前"
  220.             ImageKey        =   "xh"
  221.          EndProperty
  222.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  223.             Style           =   3
  224.          EndProperty
  225.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  226.             Style           =   3
  227.          EndProperty
  228.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  229.             Style           =   3
  230.          EndProperty
  231.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  232.             Key             =   "大图标"
  233.             Object.ToolTipText     =   "大图标"
  234.             ImageKey        =   "dtb"
  235.             Style           =   2
  236.             Value           =   1
  237.          EndProperty
  238.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  239.             Key             =   "小图标"
  240.             Object.ToolTipText     =   "小图标"
  241.             ImageKey        =   "xtb"
  242.             Style           =   2
  243.          EndProperty
  244.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  245.             Key             =   "列表"
  246.             Object.ToolTipText     =   "列表"
  247.             ImageKey        =   "lb"
  248.             Style           =   2
  249.          EndProperty
  250.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  251.             Key             =   "详细资料"
  252.             Object.ToolTipText     =   "详细资料"
  253.             ImageKey        =   "xxzl"
  254.             Style           =   2
  255.          EndProperty
  256.       EndProperty
  257.    End
  258.    Begin MSComctlLib.ImageList imlToolbarIcons 
  259.       Left            =   4710
  260.       Top             =   840
  261.       _ExtentX        =   1005
  262.       _ExtentY        =   1005
  263.       BackColor       =   -2147483643
  264.       ImageWidth      =   16
  265.       ImageHeight     =   16
  266.       MaskColor       =   12632256
  267.       _Version        =   393216
  268.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  269.          NumListImages   =   6
  270.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  271.             Picture         =   "系统_主操作桌面.frx":4168
  272.             Key             =   "xq"
  273.          EndProperty
  274.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  275.             Picture         =   "系统_主操作桌面.frx":4502
  276.             Key             =   "xh"
  277.          EndProperty
  278.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  279.             Picture         =   "系统_主操作桌面.frx":489C
  280.             Key             =   "dtb"
  281.          EndProperty
  282.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  283.             Picture         =   "系统_主操作桌面.frx":4C36
  284.             Key             =   "xtb"
  285.          EndProperty
  286.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  287.             Picture         =   "系统_主操作桌面.frx":4FD0
  288.             Key             =   "lb"
  289.          EndProperty
  290.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  291.             Picture         =   "系统_主操作桌面.frx":536A
  292.             Key             =   "xxzl"
  293.          EndProperty
  294.       EndProperty
  295.    End
  296.    Begin MSComctlLib.ImageList ImageList2 
  297.       Left            =   6075
  298.       Top             =   825
  299.       _ExtentX        =   1005
  300.       _ExtentY        =   1005
  301.       BackColor       =   -2147483643
  302.       ImageWidth      =   32
  303.       ImageHeight     =   32
  304.       MaskColor       =   12632256
  305.       _Version        =   393216
  306.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  307.          NumListImages   =   4
  308.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  309.             Picture         =   "系统_主操作桌面.frx":5704
  310.             Key             =   "y1"
  311.          EndProperty
  312.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  313.             Picture         =   "系统_主操作桌面.frx":5B58
  314.             Key             =   ""
  315.          EndProperty
  316.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  317.             Picture         =   "系统_主操作桌面.frx":5E78
  318.             Key             =   "i"
  319.          EndProperty
  320.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  321.             Picture         =   "系统_主操作桌面.frx":6ECA
  322.             Key             =   "y"
  323.          EndProperty
  324.       EndProperty
  325.    End
  326.    Begin VB.Image imgSplitter 
  327.       Height          =   4785
  328.       Left            =   4230
  329.       MousePointer    =   9  'Size W E
  330.       Top             =   750
  331.       Width           =   150
  332.    End
  333. End
  334. Attribute VB_Name = "Xt_Control"
  335. Attribute VB_GlobalNameSpace = False
  336. Attribute VB_Creatable = False
  337. Attribute VB_PredeclaredId = True
  338. Attribute VB_Exposed = False
  339. 'Option Explicit
  341. '***********************************************
  342. '*    模 块 名 称 :系统主操作桌面
  343. '*    功 能 描 述 :
  344. '*    程序员姓名  :徐强
  345. '*    最后修改人  :徐强
  346. '*    最后修改时间:2001/06/21
  347. '*    备        注:
  348. '***********************************************
  349. Const NAME_COLUMN = 0
  350. Const TYPE_COLUMN = 1
  351. Const SIZE_COLUMN = 2
  352. Const DATE_COLUMN = 3
  354. Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
  355.   
  356. Dim mbMoving As Boolean
  357. Const sglSplitLimit = 1000
  359. Dim nodX As Node
  360. Dim mItem As ListItem
  362. Dim Ztxxrec As New ADODB.Recordset           '帐套信息动态集
  363. Dim Xtgnbrec As New ADODB.Recordset          '系统功能表
  364. Dim Xtqxxzrec As New ADODB.Recordset         '系统权限限制动态集
  365. Dim Tsxx As String                           '系统提示信息
  366. Dim gnsyte As String                         '系统功能项索引
  367. Dim Xtrlrec As New ADODB.Recordset           '系统日历动态集
  368. Dim Ctsfscdr As Boolean                      '窗体是否首次读入
  369. Dim sjgnbmStr As String                      '上级编码
  371. Private Sub lvListView_DblClick()            '点击ListView执行相应功能
  372.     If lvListView.ListItems.count > 0 Then
  373.         Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute("SELECT * FROM xt_xtgnb where gnbm='" + Mid(Trim(lvListView.SelectedItem.Key), 2, Len(Trim(lvListView.SelectedItem.Key)) - 1) + "'")
  374.         If Not Xtgnbrec.EOF Then
  375.             If Xtgnbrec.Fields("mjbz") = True Then
  376.                 gnsyte = Trim(Xtgnbrec.Fields("gnsy"))
  377.                 Call Zxxymk(gnsyte)
  378.             Else
  379.                 '---------------
  380.                 Dim SSql As String
  381.                 sjgnbmStr = ""
  382.                 lvListView.ColumnHeaders.Clear
  383.                 lvListView.ListItems.Clear
  384.                 SSql = "SELECT * FROM xt_xtgnb where sjgnbm='" + Xtgnbrec.Fields("gnbm") + "' and MenuList=1 order by gnbm"
  385.                 Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute(SSql)
  386.                 lvListView.ColumnHeaders.Add 1, "rcsw", tvTreeView.SelectedItem.Text, 3000, , "stb"
  387.                 Do While Not Xtgnbrec.EOF
  388.                     Set mItem = lvListView.ListItems.Add()
  389.                     mItem.Text = Trim(Xtgnbrec!gnmc)
  390.                     If Xtgnbrec.Fields("mjbz") Then
  391.                         mItem.SmallIcon = "gnqx"
  392.                         mItem.Icon = "y"
  393.                     Else
  394.                         mItem.Icon = "i"
  395.                         mItem.SmallIcon = "stb"
  396.                     End If
  397.                     mItem.Key = "T" & Trim(Xtgnbrec!gnbm)
  398.                     Xtgnbrec.MoveNext
  399.                 Loop
  400.                 '---------------
  401.             End If
  402.         End If
  403.     End If
  404. End Sub
  406. Private Sub lvListView_KeyPress(KeyAscii As Integer)
  407.     If KeyAscii = vbKeyReturn Then
  408.         Call lvListView_DblClick
  409.     End If
  410. End Sub
  411. Private Sub tvTreeView_NodeClick(ByVal Node As MSComctlLib.Node)
  412.     Dim SSql As String
  413.     If Node.Tag <> "" Then
  414.         If Node.Tag = False Then
  415.             SSql = "SELECT * FROM xt_xtgnb where sjgnbm='" + Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1) + "' and MenuList=1 order by gnbm"
  416.             If sjgnbmStr = Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1) Then
  417.                 Exit Sub
  418.             Else
  419.                 sjgnbmStr = Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1)
  420.             End If
  421.         Else
  422.             SSql = "SELECT * FROM xt_xtgnb a," _
  423.                     & "(SELECT sjgnbm FROM xt_xtgnb where gnbm='" + Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1) + "')b" & " where a.sjgnbm=b.sjgnbm and MenuList=1 order by gnbm"
  424.         End If
  425.         
  426.         Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute(SSql)
  427.         If Node.Tag = True Then
  428.             If sjgnbmStr = Trim(Xtgnbrec!sjgnbm) Then
  429.                 Exit Sub
  430.             Else
  431.                 sjgnbmStr = Trim(Xtgnbrec!sjgnbm)
  432.             End If
  433.         End If
  434.         lvListView.ColumnHeaders.Clear
  435.         lvListView.ListItems.Clear
  436.         lvListView.ColumnHeaders.Add 1, "rcsw", "明细", 3000, , "stb"
  437.         Do While Not Xtgnbrec.EOF
  438.             Set mItem = lvListView.ListItems.Add()
  439.             mItem.Text = Trim(Xtgnbrec!gnmc)
  440.             If Xtgnbrec.Fields("mjbz") Then
  441.                 mItem.SmallIcon = "gnqx"
  442.                 mItem.Icon = "y"
  443.             Else
  444.                 mItem.Icon = "i"
  445.                 mItem.SmallIcon = "stb"
  446.             End If
  447.             mItem.Key = "T" & Trim(Xtgnbrec!gnbm)
  448.             Xtgnbrec.MoveNext
  449.         Loop
  450.     End If
  451. End Sub
  452. Public Sub Cshgns()                                                    '初始化系统功能树
  453.   
  454.     Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute("SELECT * FROM xt_xtgnb where gnbm like '33%' and MenuList=1 order by gnbm")
  455.     tvTreeView.Nodes.Add , 4, "T", "百利/ERP5.0", "xttb"
  456.     With Xtgnbrec
  457.         Do While Not .EOF
  458.             If .Fields("mjbz") Then
  459.                 Set nodX = tvTreeView.Nodes.Add("T" + Trim(.Fields("sjgnbm")), 4, "T" + Trim(.Fields("gnbm")), Trim(.Fields("gnmc")), "gnqx")
  460.             Else
  461.                 If Trim(.Fields("sjgnbm")) = "" Then
  462.                     Set nodX = tvTreeView.Nodes.Add("T" + Trim(.Fields("sjgnbm")), 4, "T" + Trim(.Fields("gnbm")), Trim(.Fields("gnmc")), "kpgl")
  463.                 Else
  464.                     Set nodX = tvTreeView.Nodes.Add("T" + Trim(.Fields("sjgnbm")), 4, "T" + Trim(.Fields("gnbm")), Trim(.Fields("gnmc")), "stb")
  465.                 End If
  466.             End If
  467.             nodX.Tag = Xtgnbrec!mjbz
  468.             If Len(Trim(.Fields("sjgnbm"))) <= 2 Then
  469.                 nodX.EnsureVisible
  470.             End If
  471.             .MoveNext
  472.         Loop
  473.     End With
  475. End Sub
  477. '系统功能树操作
  478. Private Sub tvTreeView_BeforeLabelEdit(Cancel As Integer)                     '屏蔽编辑
  479.   Cancel = 1
  480. End Sub
  482. Private Sub tvTreeView_Collapse(ByVal Node As MSComctlLib.Node)               '功能树收缩
  483.     
  484.     If Node.Index <> 1 And Node.Key <> "T33" Then
  485.         Node.Image = "stb"
  486.     End If
  487.  
  488. End Sub
  490. Private Sub tvTreeView_Expand(ByVal Node As MSComctlLib.Node)                 '功能树展开
  491.     
  492.     If Node.Index <> 1 And Node.Key <> "T33" Then
  493.         Node.Image = "szk"
  494.     End If
  496. End Sub
  498. Private Sub tvTreeView_KeyPress(KeyAscii As Integer)                          '用户按回车键执行相应功能
  499.     
  500.     If KeyAscii = vbKeyReturn Then
  501.         Call tvTreeView_DblClick
  502.     End If
  504. End Sub
  506. Private Sub tvTreeView_DblClick()                                             '选择功能
  507.     
  508.     If tvTreeView.SelectedItem.Children = 0 Then
  509.         Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute("SELECT * FROM xt_xtgnb where gnbm='" + Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1) + "'")
  510.         If Not Xtgnbrec.EOF Then
  511.             gnsyte = Trim(Xtgnbrec.Fields("gnsy"))
  512.             Call Zxxymk(gnsyte)
  513.         End If
  514.     End If
  516. End Sub
  518. Public Sub Zxxymk(gnsy As String)                                            '根据用户选择执行相应程序
  519.   
  520.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  521.     Dim Sqlstr As String                   '临时查询字符串
  522.   
  523.     If Len(Trim(gnsy)) = 0 Then
  524.         Exit Sub
  525.     End If
  526.     
  527.     On Error GoTo Cwcl:
  528.     Select Case gnsy
  529.         '文件
  530.         Case "Gy_register"                       '用户重新注册
  531.             XT_login.Show 1
  532.         Case "Gy_quit"
  533.             Unload XT_Main
  534.      
  535.             '1.录入类型
  537.         Case "Gy_CodeScheme"         '编码方案
  538.             Gy_CodeScheme.HelpContextID = 33120016
  539.             Gy_CodeScheme.Show 1
  540.            
  541.         Case "Gy_Customer"           '客户设置
  542.             Gy_Customer.HelpContextID = 3312005
  543.             Gy_Customer.Show
  544.             Gy_CustomerQuery.Show 1
  545.            
  546.         Case "Gy_Department"         '部门设置
  547.             Gy_Department.HelpContextID = 3312001
  548.             Gy_Department.Show 1
  549.            
  550.         Case "Gy_ForeignCurrency"    '币种
  551.             Gy_ForeignCurrency.HelpContextID = 33120012
  552.             Gy_ForeignCurrency.Show 1
  553.            
  554.         Case "Gy_InOutClass"         '收发类别
  555.             Gy_InOutClass.HelpContextID = 33120014
  556.             Gy_InOutClass.Show 1
  557.         
  558.         Case "Gy_Material"           '物料档案
  559.             Gy_Material.HelpContextID = 3312004
  560.             Gy_Material.Show
  561.             Gy_MaterialQuery.Show 1
  562.            
  563.         Case "Gy_PayCon"             '付款条件
  564.             Gy_PayCon.HelpContextID = 33120013
  565.             Gy_PayCon.Show 1
  566.            
  567.         Case "Gy_Person"             '职员
  568.             Gy_Person.HelpContextID = 3312002
  569.             Gy_Person.Show 1
  570.                       
  571.         Case "Gy_Supplier"           '供应商
  572.             Gy_Supplier.HelpContextID = 3312007
  573.             Gy_Supplier.Show
  574.             Gy_SupplierQuery.Show 1
  575.            
  576.         Case "Gy_BillNumber"         '单据
  577.             Gy_BillNumber.HelpContextID = 33120015
  578.             Gy_BillNumber.Show 1
  579.            
  580.         Case "Gy_Warehouse"          '仓库档案
  581.             Gy_Warehouse.HelpContextID = 3312003
  582.             Gy_Warehouse.Show 1
  583.             
  584.         Case "Gy_TransferCompany"    '承运单位
  585.             Gy_TransferCompany.HelpContextID = 3312008
  586.             Gy_TransferCompany.Show 1
  587.             
  588.    '**********************************************简单设置
  589.         Case "Gy_Settlement"
  590.            With Gy_BaseSet
  591.                 XtReportCode = "Gy_Settlement"
  592.                 .ReportTitle = "结算方式设置"
  593.                 .TextGroupCode = "Gy_Settlement"
  594.                 .GridCode = "Gy_Settlement"
  595.                 .Str_RightEdit = "Gy_Settlement_Edit"
  596.                 .str_TableName = "Gy_Settlement"
  597.                 .str_FieldCode = "SSCode"
  598.                 .str_FieldName = "SSName"
  599.                 .str_Label = "结算方式"
  600.                 .Caption = "结算方式设置"
  601.                 .HelpContextID = 33120011
  602.                 .Show 1
  603.             End With
  604.            
  605.         Case "Gy_TransferWay"
  606.            With Gy_BaseSet
  607.                 XtReportCode = "Gy_TransferWay"
  608.                 .ReportTitle = "运输方式设置"
  609.                 .TextGroupCode = "Gy_TransferWay"
  610.                 .GridCode = "Gy_TransferWay"
  611.                 .Str_RightEdit = "Gy_TransferWay_Edit"
  612.                 .str_TableName = "Gy_TransferWay"
  613.                 .str_FieldCode = "TransferWayCode"
  614.                 .str_FieldName = "TransferWayName"
  615.                 .str_Label = "运输方式"
  616.                 .Caption = "运输方式设置"
  617.                 .HelpContextID = 3312009
  618.                 .Show 1
  619.             End With
  620.            
  621.         Case "Gy_UnitSet"
  622.             With Gy_BaseSet
  623.                 XtReportCode = "Gy_UnitSet"
  624.                 .ReportTitle = "计量单位设置"
  625.                 .TextGroupCode = "Gy_UnitSet"
  626.                 .GridCode = "Gy_UnitSet"
  627.                 .Str_RightEdit = "Gy_UnitSet_Edit"
  628.                 .str_TableName = "Gy_UnitSet"
  629.                 .str_FieldCode = "UnitCode"
  630.                 .str_FieldName = "UnitName"
  631.                 .str_Label = "计量单位"
  632.                 .Caption = "计量单位设置"
  633.                 .HelpContextID = 33120010
  634.                 .Show 1
  635.             End With
  637.     '**********************************************简单分类
  638.         Case "Gy_SupplierSort"
  639.             With Gy_BaseSortSet
  640.                 XtReportCode = "Gy_SupplierSort"
  641.                 .ReportTitle = "供应商分类设置"
  642.                 
  643.                 .TextGroupCode = "Gy_SupplierSort"
  644.                 .GridCode = "Gy_SupplierSort"
  645.                 .Str_RightEdit = "Gy_SupplierSort_Edit"
  646.                 .CodSchemeIndex = "Gy_SupplierSort"
  647.                 
  648.                 .str_TableName = "Gy_SupplierSort"
  649.                 .str_SortCode = "SupplierSortCode"
  650.                 .str_SortName = "SupplierSortName"
  651.                 .str_Label = "供应商分类"
  652.                 .Caption = "供应商分类设置"
  653.                 .HelpContextID = 3312006
  654.                 .Show 1
  655.             End With
  656.             
  657.         Case "Cg_AreaSet"
  658.             With Gy_BaseSortSet
  659.                 XtReportCode = "Cg_AreaSet"
  660.                 .ReportTitle = "供应商地区分类设置"
  662.                 .TextGroupCode = "Cg_AreaSet"
  663.                 .GridCode = "gy_AreaSet"
  664.                 .Str_RightEdit = "Cg_AreaSet_Edit"
  665.                 .CodSchemeIndex = "Cg_AreaSet"
  667.                 .str_TableName = "Cg_AreaSet"
  668.                 .str_SortCode = "AreaCode"
  669.                 .str_SortName = "AreaName"
  670.                 .str_Label = "供应商地区分类"
  671.                 .Caption = "供应商地区分类设置"
  672.                 .HelpContextID = 33120017
  673.                 .Show 1
  674.             End With
  676.         Case "Cg_TradeSet"
  677.             With Gy_BaseSortSet
  678.                 XtReportCode = "Cg_TradeSet"
  679.                 .ReportTitle = "供应商行业分类设置"
  681.                 .TextGroupCode = "Cg_TradeSet"
  682.                 .GridCode = "gy_TradeSet"
  683.                 .Str_RightEdit = "GCg_TradeSet_Edit"
  684.                 .CodSchemeIndex = "Cg_TradeSet"
  686.                 .str_TableName = "Cg_TradeSet"
  687.                 .str_SortCode = "TradeCode"
  688.                 .str_SortName = "TradeName"
  689.                 .str_Label = "供应商行业分类"
  690.                 .Caption = "供应商行业分类设置"
  691.                 .HelpContextID = 33120018
  692.                 .Show 1
  693.             End With
  694.     '*********************************************
  695.         '单据设计
  696.         Case "c_BillDesign"                     '单据录入设计
  697.             XT_BillDesign.Show
  698.         Case "c_BillPrintDesign"                '单据打印设计
  699.             XT_BillPrintDesign.Show
  700.           
  701.         '工具
  702.         Case "Gy_gnbmkmrl"                       '会计日历
  703.             XT_kjrlFrm.Show 1
  704.         Case "Gy_gnbmjsq"                        '计算器
  705.             Shell App.Path & "calc.exe", vbNormalFocus
  706.         
  707.         '帮助
  708.         Case "Gy_xtbz"                           '系统帮助
  709.             Call F1bz
  710.         Case "Gy_gy"                             '关于
  711.             XT_frmAbout.Show
  712.     End Select
  713.     
  714.     '用户退出时写上机日志
  715.    Security_Log gnsy, Xtczybm, 2, False
  716.    
  717.     Exit Sub
  718. Cwcl:
  719.     Tsxx = "此项系统功能有待完善!"
  720.     Call Xtxxts(Tsxx, 0, 4)
  721.     Exit Sub
  723. End Sub
  725. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)        '用户关闭窗体
  726.   
  727.     If Unload_TF = False Then
  728.         Cancel = 1
  729.         Me.WindowState = 1
  730.     End If
  732. End Sub
  734. Private Sub Form_Load()
  735.     
  736.     '设置窗体图标
  737.     Me.Icon = XT_Main.Icon
  738.     
  739.     '设置窗体位置大小,并调入系统功能树
  740.     Me.Left = 0
  741.     Me.Top = 0
  742.     Me.Width = XT_Main.Width - 60
  743.     Me.Height = XT_Main.Height - 760 - 690
  744.     Call Cshgns
  745.     
  746.     '启动调入数据等待提示
  747.     Load Xt_Wait
  748.     
  749. End Sub
  751. Private Sub Form_Unload(Cancel As Integer)
  752.     
  753.     On Error Resume Next
  754.     
  755.     Dim i As Integer
  756.     For i = Forms.count - 1 To 1 Step -1
  757.         Unload Forms(i)
  758.     Next
  759.     If Me.WindowState <> vbMinimized Then
  760.         SaveSetting App.Title, "Settings", "MainLeft", Me.Left
  761.         SaveSetting App.Title, "Settings", "MainTop", Me.Top
  762.         SaveSetting App.Title, "Settings", "MainWidth", Me.Width
  763.         SaveSetting App.Title, "Settings", "MainHeight", Me.Height
  764.     End If
  765.     SaveSetting App.Title, "Settings", "ViewMode", lvListView.View
  767. End Sub
  769. Private Sub Form_Resize()
  770.     
  771.     On Error Resume Next
  772.     If Me.Width < 3000 Then Me.Width = 3000
  773.     SizeControls imgSplitter.Left
  775. End Sub
  777. Private Sub imgSplitter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  778.     
  779.     With imgSplitter
  780.         picSplitter.Move .Left, .Top, .Width  2, .Height - 20
  781.     End With
  782.     picSplitter.Visible = True
  783.     mbMoving = True
  785. End Sub
  787. Private Sub imgSplitter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  788.     
  789.     Dim sglPos As Single
  790.     If mbMoving Then
  791.         sglPos = X + imgSplitter.Left
  792.         If sglPos < sglSplitLimit Then
  793.             picSplitter.Left = sglSplitLimit
  794.         ElseIf sglPos > Me.Width - sglSplitLimit Then
  795.             picSplitter.Left = Me.Width - sglSplitLimit
  796.         Else
  797.             picSplitter.Left = sglPos
  798.         End If
  799.     End If
  801. End Sub
  803. Private Sub imgSplitter_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  804.     
  805.     SizeControls picSplitter.Left
  806.     picSplitter.Visible = False
  807.     mbMoving = False
  808.     lvListView.Refresh
  810. End Sub
  812. Private Sub TreeView1_DragDrop(Source As Control, X As Single, Y As Single)
  813.     
  814.     If Source = imgSplitter Then
  815.         SizeControls X
  816.     End If
  818. End Sub
  820. Sub SizeControls(X As Single)
  821.     
  822.     On Error Resume Next
  824.     '设置 Width 属性
  825.     If X < 3500 Then X = 3500
  826.     If X > (Me.Width - 1500) Then X = Me.Width - 1500
  827.     tvTreeView.Width = X
  828.     imgSplitter.Left = X
  829.     lvListView.Left = X + 40
  830.     lvListView.Width = Me.Width - (tvTreeView.Width + 140)
  831.     lblTitle(0).Width = tvTreeView.Width
  832.     lblTitle(1).Left = lvListView.Left + 20
  833.     lblTitle(1).Width = lvListView.Width - 40
  835.     '设置 Top 属性
  837.     tvTreeView.Top = tbToolBar.Height + picTitles.Height
  839.     lvListView.Top = tvTreeView.Top
  841.     '设置 height 属性
  842.     tvTreeView.Height = Me.ScaleHeight - (picTitles.Top + picTitles.Height)
  843.     
  844.     lvListView.Height = tvTreeView.Height
  845.     imgSplitter.Top = tvTreeView.Top
  846.     imgSplitter.Height = tvTreeView.Height
  848. End Sub
  850. Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
  851.     
  852.     On Error Resume Next
  853.     
  854.     Select Case Button.Key
  855.         Case "返回"
  856.             tvTreeView.SetFocus
  857.               SendKeys "{up}", True
  858.         Case "向前"
  859.              tvTreeView.SetFocus
  860.               SendKeys "{DOWN}", True
  861.         Case "大图标"
  862.             lvListView.View = lvwIcon
  863.         Case "小图标"
  864.             lvListView.View = lvwSmallIcon
  865.         Case "列表"
  866.             lvListView.View = lvwList
  867.         Case "详细资料"
  868.             lvListView.View = lvwReport
  869.     End Select
  871. End Sub