VB开发的ERP系统

      EndProperty
      BorderStyle     =   1
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   5040
         Top             =   120
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   16
         ImageHeight     =   16
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   12
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "查询_相关档案查询结果.frx":35106
               Key             =   "sz"
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "查询_相关档案查询结果.frx":354A0
               Key             =   "dy"
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "查询_相关档案查询结果.frx":3583A
               Key             =   "yl"
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "查询_相关档案查询结果.frx":35BD4
               Key             =   "cx"
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "查询_相关档案查询结果.frx":35F6E
               Key             =   "bz"
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "查询_相关档案查询结果.frx":36308
               Key             =   "tc"
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "查询_相关档案查询结果.frx":366A2
               Key             =   "bcgs"
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "查询_相关档案查询结果.frx":36A3C
               Key             =   "mrlk"
            EndProperty
            BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "查询_相关档案查询结果.frx":36DD6
               Key             =   "xsxm"
            EndProperty
            BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "查询_相关档案查询结果.frx":37170
               Key             =   "sx"
            EndProperty
            BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "查询_相关档案查询结果.frx":3750A
               Key             =   "bj"
            EndProperty
            BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "查询_相关档案查询结果.frx":378A4
               Key             =   "gl"
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.Toolbar GsToolbar 
         Height          =   540
         Left            =   10680
         TabIndex        =   4
         Top             =   0
         Width           =   840
         _ExtentX        =   1482
         _ExtentY        =   953
         ButtonWidth     =   1455
         ButtonHeight    =   953
         Appearance      =   1
         Style           =   1
         ImageList       =   "ImageList1"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   3
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "保存格式"
               Key             =   "bcgs"
               ImageIndex      =   7
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Object.Visible         =   0   'False
               Caption         =   "默认列宽"
               Key             =   "hfmrgs"
               ImageIndex      =   8
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Object.Visible         =   0   'False
               Caption         =   "显示项目"
               Key             =   "szxsxm"
               ImageIndex      =   9
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "Qr_RsArFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
Dim ReportTitle As String                '报表主标题

Private Sub Form_Load()
  XtReportCode = "DEV_mainxx"
  Load Dyymctbl
  ReportTitle = "档案信息列表"
End Sub

Private Sub Form_Resize()
On Error Resume Next
With vsFlexGrid1
     If Me.Width < 10455 Then Me.Width = 10455
     If Me.Height < 6375 Then Me.Height = 6375
     .Width = Me.Width - 120
     .Height = Me.Height - .Top - 400
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
   '卸载条件窗体
    Qr_RsArCndFrm.Chk_Unload.Value = 1
    Unload Qr_RsArCndFrm
   '卸载打印页面设置窗体
   Unload Dyymctbl
End Sub

Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
       Case "bcgs"
            Dim i As Integer
            With vsFlexGrid1
            For i = 1 To .Cols - 1
                Cw_DataEnvi.DataConnect.Execute "update dev_Item set width=" & .ColWidth(i) & " where ItemChineseName='" & .TextMatrix(0, i) & "'"
            Next i
            MsgBox "保存成功！ ", 48
            End With
End Select
End Sub

Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
       Case "ymsz"                                          '页面设置
          Dyymctbl.Show 1
       Case "yl"                                            '预 览
          Call bbyl(True)
       Case "dy"                                            '打 印
          Call bbyl(False)

       Case "Filt"
          
          Qr_RsArCndFrm.Show 1
       Case "sx"
          Qr_RsArCndFrm.Enployeeinfo_Query P_Ssql
       Case "Edit"
            vsFlexGrid1_DblClick
       Case "bz"                                            '帮 助
            Call F1bz
       Case "fh"
           Unload Me
End Select
End Sub

Private Sub InitGrid()
     
      ArSort (Cbo_ArSort.ListIndex)
End Sub

Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  Bbbwhgs = 0                                          '报 表 表 尾 行 数
  ReDim Bbxbt(1 To Bbxbtgs)
  ReDim bbxbtzzxs(1 To Bbxbtgs)
  If Bbbwhgs <> 0 Then
     ReDim Bbbwh(1 To Bbbwhgs)
     ReDim Bbbwhzzxs(1 To Bbbwhgs)
  End If
  Bbzbt = ReportTitle
  Bbxbt(1) = " "
  bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  Call Scyxsjb(vsFlexGrid1)                               '生成报表数据
  Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  If Not bbylte Then
     Unload DY_Tybbyldy
  End If
End Sub

Private Sub vsFlexGrid1_DblClick()
If vsFlexGrid1.Row > 0 Then
    AddExit_TF = False
'    With MS_ItemInfo
'    .Caption = "档案修改"
'        .Text1.Text = MS_ItemQInfo.vsFlexGrid1.Tag
'        .Command1.Tag = Me.Tag
'        .Form_Load
'        .Text_T(1).Text = vsFlexGrid1.TextMatrix(vsFlexGrid1.Row, 1)
'        .Text_T_KeyDown 1, 13, 0
'        .Show 1
'    End With
Else
    Exit Sub
End If
End Sub