Excel+SqlServer 贸易公司订单管理系统。

lanyuu

重新修改了文件，减小了文件，可以直接上传了，不用通过百度了，美化了页面，增加了自定义单元格颜色。
便于大家学习，公布工程密码：123456
如果有不足之处，希望大家不吝指教。
如果有需要实施的，可以联系我：QQ10352786

订单管理.7z (1.85 MB, 下载次数: 256)

2018-12-7 20:27 上传

点击文件名下载附件

超实用，根据订单生成采购计划，采购订单，完善的库存管理，可实现直接生成金税发票导入文件，可把发货到货单导入用友852中。
开发及试用历时一年，欢迎试用！

lanyuu

系统使用sqlserver数据库，保证整个公司数据集中使用，系统包括销售采购仓库财务开票收款等。

ione_fox

Mark 学习下

lanyuu

1. Private Sub LoginSys()
   
2.     '初始化共用参数
   
3.     Dim n As New DbCmd, cPath As String, cName As String, cVal As String, i%
   
4.     cPath = ThisWorkbook.Path & "\Config\\Config.ini"
   
5.     Close #2
   
6.     Open cPath For Input As #2
   
7.     i = 1
   
8.     Do While Not EOF(2)
   
9.         Input #2, cName, cVal
   
10.         If i = 1 Then SerIP = cVal
    
11.         If i = 2 Then DbName = cVal
    
12.         If i = 3 Then Uid = cVal
    
13.         If i = 4 Then Pwd = cVal
    
14.         If i = 5 Then UfSerIP = cVal
    
15.         If i = 6 Then UfDbName = cVal
    
16.         If i = 7 Then UfUid = cVal
    
17.         If i = 8 Then UfPwd = cVal
    
18.         If i = 9 Then BackPath = cVal
    
19.         If i = 10 Then DefTaxRate = cVal
    
20.         i = i + 1
    
21.     Loop
    
22.     Close #2
    
23.     cPath = ThisWorkbook.Path & "\Config\\CellStyle.ini"
    
24.     Open cPath For Input As #2
    
25.     i = 1
    
26.     Do While Not EOF(2)
    
27.         Input #2, cName, cVal
    
28.         If i = 1 Then CellColor1 = cVal
    
29.         If i = 2 Then CellColor2 = cVal
    
30.         If i = 3 Then CellColor3 = cVal
    
31.         If i = 4 Then CellRowHeight = cVal
    
32.         If i = 5 Then HeadCellRowHeight = cVal
    
33.         i = i + 1
    
34.     Loop
    
35.     Close #2
    
36.     strCn = "Provider=SQLOLEDB;server=" & SerIP & ";DATABASE=" & DbName & ";UID=" & Uid & ";PWD=" & Pwd & "; "       '数据库连接字符串
    
37.     SheetPwd = ""
    
38.     n.ReadRsTo "Select cCorpCode,cCorpName From Corporation", ShTempSave.Range("R5") '公司档案表
    
39.     '显示登录窗口
    
40.     LoginForm.Show
    
41. End Sub
    
42. Private Sub CellStyleSave()
    
43.     Dim cPath As String
    
44.     cPath = ThisWorkbook.Path & "\Config\CellStyle.ini"
    
45.     Dim cName As String * 30, cVal As String
    
46.     Close #2
    
47.     Open cPath For Output As #2
    
48.         '服务器
    
49.         cName = "表头颜色"
    
50.         cVal = Range("B9").Interior.Color
    
51.         Write #2, cName, cVal
    
52.         
    
53.         cName = "只读表体色"
    
54.         cVal = Range("B10").Interior.Color
    
55.         Write #2, cName, cVal
    
56.         
    
57.         cName = "可写表体色"
    
58.         cVal = Range("B11").Interior.Color
    
59.         Write #2, cName, cVal
    
60.         
    
61.         cName = "表体行高"
    
62.         If Range("C12") > 0 Then
    
63.             cVal = Range("C12")
    
64.         Else
    
65.             cVal = "28"
    
66.         End If
    
67.         Write #2, cName, cVal
    
68.         
    
69.         cName = "表头 行高"
    
70.         If Range("C13") > 0 Then
    
71.             cVal = Range("C13")
    
72.         Else
    
73.             cVal = "28"
    
74.         End If
    
75.         Write #2, cName, cVal
    
76.          
    
77.     Close #2
    
78.     MsgBox "设置成功"
    
79. End Sub

复制代码

写入和读取自定义格式文件，通过文本文件存储在本机上，登陆时读入公共变量中

231943361

已经收到楼主分享 感谢 马上去看

231943361

怎么登陆不了呀 显示文件未找到

231943361

VBA的工程密码是多少呢 楼主可以告知吗 谢谢了

lanyuu

231943361 发表于 2018-12-7 13:05
怎么登陆不了呀 显示文件未找到

由于是连接sqlserver数据库的，需要部署sqlserver实例，先使用订单管理设置安装数据库才行，应为公司数据量还是比较大的，可能上百万条数据，excel或access很难满足需要

lanyuu

231943361 发表于 2018-12-7 13:06
VBA的工程密码是多少呢 楼主可以告知吗 谢谢了

回头我把密码取消了再上传一份，这个是个人密码没法公开：）

231943361

楼主,可以写一份是要Sql Server案例吗
例如创建sql server 连接sql server 在sql server创建字段 Excel连接sql server后如何调用等
您没有sql server数据库模板我们不能练习呢
谢谢啦