⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄

📁 VB开发的ERP系统
💻
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
    For i = 0 To 4
        mai_parmtype_ncs(i) = 1
        mai_parmdefault_ncs(i) = 1
    Next i
    
    rt = Cell1.DoAddUserFunctionEx("SQL通用函数", "SQL_ODBC", 4, 4, mai_parmtype_ncs(0), mai_parmdefault_ncs(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '17.SQL语句 CELL
    ls_hssm = "函数名称:SQL_CELL" & vbCrLf & _
    "    返回SQL语句查询结果的第一个字段内容填入单元格" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "    SQL_CELL(""SQL语句"",""年月字段名"",""年"",""月"")" & vbCrLf & _
    "参数必须为如下格式:" & vbCrLf & _
    "    SQL语句:select 字段名 [as 别名] from 数据表名 [where 条件] " & vbCrLf & _
    "    年月字段名:输入库中年月字段名,若年月为两个字段,用逗号分隔" & vbCrLf & _
    "                若年月字段为字符型,在年月字段名末尾加一个 $ 符号" & vbCrLf & _
    "           若该参数为空时,后面年月参数不起作用" & vbCrLf & _
    "    年: 可以输入本年?去年 或2000?1999等任何数字" & vbCrLf & _
    "    月: 可以输入本月?上月 或1?...?12等? "
    ReDim mai_parmtype_ncs(4) As Integer
    ReDim mai_parmdefault_ncs(4) As Integer
    For i = 0 To 4
        mai_parmtype_ncs(i) = 1
        mai_parmdefault_ncs(i) = 1
    Next i
    
    rt = Cell1.DoAddUserFunctionEx("SQL通用函数", "SQL_Cell", 4, 4, mai_parmtype_ncs(0), mai_parmdefault_ncs(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '18.SQL语句 col
    ls_hssm = "函数名称:SQL_Col" & vbCrLf & _
    "    返回SQL语句查询结果的第一个字段内容填入单元格所在的列" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "    SQL_Col(""SQL语句"",""年月字段名"",""年"",""月"")" & vbCrLf & _
    "参数必须为如下格式:" & vbCrLf & _
    "    SQL语句:select 字段名 [as 别名] from 数据表名 [where 条件] " & vbCrLf & _
    "    年月字段名:输入库中年月字段名,若年月为两个字段,用逗号分隔" & vbCrLf & _
    "                若年月字段为字符型,在年月字段名末尾加一个 $ 符号" & vbCrLf & _
    "           若该参数为空时,后面年月参数不起作用" & vbCrLf & _
    "    年: 可以输入本年?去年 或2000?1999等任何数字" & vbCrLf & _
    "    月: 可以输入本月?上月 或1?...?12等? "
    ReDim mai_parmtype_ncs(4) As Integer
    ReDim mai_parmdefault_ncs(4) As Integer
    For i = 0 To 4
        mai_parmtype_ncs(i) = 1
        mai_parmdefault_ncs(i) = 1
    Next i
    
    rt = Cell1.DoAddUserFunctionEx("SQL通用函数", "SQL_Col", 4, 4, mai_parmtype_ncs(0), mai_parmdefault_ncs(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '19.SQL语句 row
    ls_hssm = "函数名称:SQL_Row" & vbCrLf & _
    "    返回SQL语句查询结果的第一个字段内容填入单元格所在的行" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "    SQL_Row(""SQL语句"",""年月字段名"",""年"",""月"")" & vbCrLf & _
    "参数必须为如下格式:" & vbCrLf & _
    "    SQL语句:select 字段名 [as 别名] from 数据表名 [where 条件] " & vbCrLf & _
    "    年月字段名:输入库中年月字段名,若年月为两个字段,用逗号分隔" & vbCrLf & _
    "                若年月字段为字符型,在年月字段名末尾加一个 $ 符号" & vbCrLf & _
    "           若该参数为空时,后面年月参数不起作用" & vbCrLf & _
    "    年: 可以输入本年?去年 或2000?1999等任何数字" & vbCrLf & _
    "    月: 可以输入本月?上月 或1?...?12等? "
    
    ReDim mai_parmtype_ncs(4) As Integer
    ReDim mai_parmdefault_ncs(4) As Integer
    For i = 0 To 4
        mai_parmtype_ncs(i) = 1
        mai_parmdefault_ncs(i) = 1
    Next i
    
    rt = Cell1.DoAddUserFunctionEx("SQL通用函数", "SQL_Row", 4, 4, mai_parmtype_ncs(0), mai_parmdefault_ncs(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    '20.读取电子报表系统数据
    ls_hssm = "函数名称:READ_DATA" & vbCrLf & _
    "    追加一个表页,返回满足条件的电子报表系统月报数据" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "    READ_DATA(""应用系统编号"",""报表模板编号"",""年"",""月"")" & vbCrLf & _
    "参数必须为如下格式:" & vbCrLf & _
    "    应用系统编号:输入当前所使用的应用系统编号 " & vbCrLf & _
    "    报表模板编号:输入要读取报表数据的报表模板编号 " & vbCrLf & _
    "    年: 可以输入本年?去年 或2000?1999等任何数字" & vbCrLf & _
    "    月: 可以输入本月?上月 或1?...?12等? "
    ReDim mai_parmtype_ncs(4) As Integer
    ReDim mai_parmdefault_ncs(4) As Integer
    For i = 0 To 4
        mai_parmtype_ncs(i) = 1
        mai_parmdefault_ncs(i) = 1
    Next i
    
    rt = Cell1.DoAddUserFunctionEx("系统基本函数", "READ_DATA", 4, 4, mai_parmtype_ncs(0), mai_parmdefault_ncs(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
    
    '22.保存数据到数据库中
    ls_hssm = "函数名称:SAVE_DATA" & vbCrLf & _
    "    将CELL控件中某些单元格数据写入数据库的数据表中" & vbCrLf & _
    "函数格式:" & vbCrLf & _
    "    SAVE_DATA(""数据表名"",""单元格字符串"")" & vbCrLf & _
    "参数必须为如下格式:" & vbCrLf & _
    "    数据表名:要写入数据的数据表名 " & vbCrLf & _
    "    单元格字符串:指定单元格位置,单元格与单元格之间需要用$字符分隔" & vbCrLf & _
    " 如:A2$B3$D3表示将A2?B3?D3单元格内容写入指定数据表的一条记录中,第一个单元格为关键字?"
    ReDim mai_parmtype_ncs(2) As Integer
    ReDim mai_parmdefault_ncs(2) As Integer
    For i = 0 To 2
        mai_parmtype_ncs(i) = 1
        mai_parmdefault_ncs(i) = 1
    Next i
    
    rt = Cell1.DoAddUserFunctionEx("系统基本函数", "SAVE_DATA", 4, 2, mai_parmtype_ncs(0), mai_parmdefault_ncs(0), ls_hssm)
    If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
    
End Function


Public Sub mf_saveas()
    Dim ls_filename As String
    CommonDialog1.Filter = "CLL文件(*.cll)|*.cll|"
    CommonDialog1.Flags = cdlOFNFileMustExist
    
       
    Select Case Me.ml_edit_lx
    Case 1
        CommonDialog1.FileName = Me.mcls_open_report.ls_report_model_name
    Case 2
        CommonDialog1.FileName = Me.mcls_open_report_model.ls_report_model_name
    Case 3
        CommonDialog1.FileName = ms_filename
    Case 4
        CommonDialog1.FileName = Me.mcls_new_report.ls_report_model_name
    Case 5
        CommonDialog1.FileName = Me.mcls_new_report_model.ls_report_model_name
    Case 6
        CommonDialog1.FileName = Right(Me.Caption, Len(Me.Caption) - 9)
    
    End Select
    
    CommonDialog1.FileName = ""
    CommonDialog1.DialogTitle = "请输入您要保存的文件的名称"
    CommonDialog1.ShowSave
    ls_filename = CommonDialog1.FileName
    
    If Len(Trim(ls_filename)) = 0 Then
        Exit Sub
    End If
    
    If Cell1.DoSaveFile(ls_filename) > 0 Then
        ms_filename = ls_filename
        Me.Caption = "编辑表格:    " & ms_filename
        Me.ml_edit_lx = 3
        Me.Cell1.DoSetModifiedFlag False
    Else
        MsgBox "文件保存失败", vbOKOnly + vbExclamation, "百利/ERP5.0-电子报表"
        Exit Sub
    End If
    
End Sub

Private Function mf_cell_login() As Boolean
    mf_cell_login = Cell1.DoLogin("北京华夏新达科技股份有限公司", 325, "00FD18FF080193035CFE09FF7D09")
    mf_cell_login = True
End Function
                  
Private Sub mf_cell_toolbar() '设置与当前单元相关的工具栏状态
    Dim ls_fontname, ll_size, ll_style
    Dim ll_forecolor, ll_backcolor, ll_alignment As Long
    
    On Error Resume Next
    Cell1.DoGetCellFont ml_col, ml_row, ll_size, ll_style, ls_fontname
    ll_alignment = Cell1.DoGetCellAlignment(ml_col, ml_row)
    With MDI_frame
        .Combo2.Text = CStr(ll_size) '设置字体大小工具栏
        If Cell1.DoGetCellTextStyle(ml_col, ml_row) = 1 Then
            .Toolbar3.Buttons("zhxs").Value = tbrPressed
        Else
            .Toolbar3.Buttons("zhxs").Value = tbrUnpressed
        End If
        
        Select Case ll_alignment '设置对齐
        Case 9
            .Toolbar3.Buttons("left").Value = tbrPressed
            .Toolbar3.Buttons("mid_sp").Value = tbrUnpressed
            .Toolbar3.Buttons("right").Value = tbrUnpressed
            .Toolbar3.Buttons("top").Value = tbrPressed
            .Toolbar3.Buttons("mid_cz").Value = tbrUnpressed
            .Toolbar3.Buttons("bottom").Value = tbrUnpressed
            
        Case 33
            .Toolbar3.Buttons("left").Value = tbrPressed
            .Toolbar3.Buttons("mid_sp").Value = tbrUnpressed
            .Toolbar3.Buttons("right").Value = tbrUnpressed
            .Toolbar3.Buttons("top").Value = tbrUnpressed
            .Toolbar3.Buttons("mid_cz").Value = tbrPressed
            .Toolbar3.Buttons("bottom").Value = tbrUnpressed
            
        Case 17, 0
            .Toolbar3.Buttons("left").Value = tbrPressed
            .Toolbar3.Buttons("mid_sp").Value = tbrUnpressed
            .Toolbar3.Buttons("right").Value = tbrUnpressed
            .Toolbar3.Buttons("top").Value = tbrUnpressed
            .Toolbar3.Buttons("mid_cz").Value = tbrUnpressed
            .Toolbar3.Buttons("bottom").Value = tbrPressed
            
        Case 12
            .Toolbar3.Buttons("left").Value = tbrUnpressed
            .Toolbar3.Buttons("mid_sp").Value = tbrPressed
            .Toolbar3.Buttons("right").Value = tbrUnpressed
            .Toolbar3.Buttons("top").Value = tbrPressed
            .Toolbar3.Buttons("mid_cz").Value = tbrUnpressed
            .Toolbar3.Buttons("bottom").Value = tbrUnpressed
            
        Case 36
            .Toolbar3.Buttons("left").Value = tbrUnpressed
            .Toolbar3.Buttons("mid_sp").Value = tbrPressed
            .Toolbar3.Buttons("right").Value = tbrUnpressed
            .Toolbar3.Buttons("top").Value = tbrUnpressed
            .Toolbar3.Buttons("mid_cz").Value = tbrPressed
            .Toolbar3.Buttons("bottom").Value = tbrUnpressed
            
        Case 20
            .Toolbar3.Buttons("left").Value = tbrUnpressed
            .Toolbar3.Buttons("mid_sp").Value = tbrPressed
            .Toolbar3.Buttons("right").Va
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -