注意 在這個(gè)ERP系統中 要把表單頭 和表單身 在數據庫中 分開(kāi) 保存
你問(wèn)為什么？當然是讓 數據庫的 單個(gè)表數據量小一點(diǎn) C/S 結構中數據流量 小一點(diǎn)
（數據庫 我沒(méi)有做任何觸發(fā)器 圖省事了 ）
表單頭 和表單身 在數據庫中 分開(kāi) 保存 互相之間的聯(lián)系 就是 表單號 字段
下面繼續以13樓的 form_dd 做例子
先說(shuō) formdd_load 的源程序
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2‘這一段 是讓你的程序窗口 顯示在屏幕中間
Text7.Visible = False
Command1.Enabled = False
Adodc1.Visible = False
Adodc2.Visible = False
Label14.Visible = False
Label21.Visible = False
Label22.Visible = False
Label15.Caption = user
Command13.Visible = False
Command5.Visible = False
Combo2.Text = ""
Combo2.Visible = False
DT1.Value = Date
DT2.Value = Date + 14 ’此處默認交貨期 為訂單日延后14天
Label16.Caption = "CO" & Format(Now, "YYMMDD") & Format(Time, "HHMMSS")‘最偷懶的訂單號自動(dòng)生成辦法 是C0+年月日+時(shí)分秒 呵呵呵呵
Text4.Text = ""
Label11.Caption = ""
Label12.Caption = ""
Label18.Caption = ""
Label23.Caption = ""
Combo1.Text = ""
Adodc1.ConnectionString = db '把所有客戶(hù)添加到COMBO1中’用ADODC 來(lái)連接數據庫 DB 已經(jīng)在公用模塊中聲明了
Adodc1.RecordSource = "select 客戶(hù)名稱(chēng) from tb_kh"
Adodc1.Refresh
X = Adodc1.Recordset.RecordCount
If X > 0 Then
For i = 1 To X
Combo1.AddItem (Adodc1.Recordset.Fields("客戶(hù)名稱(chēng)"))
If i < X Then Adodc1.Recordset.MoveNext
Next
End If
MS1.Row = 1’給MSFLEXGRID控件初始化
MS1.Col = 1
MS1.Cols = 15
MS1.ColWidth(0) = 12 * 25 * 1.5 '設置單元格格式,
MS1.ColWidth(1) = 12 * 25 * 4
MS1.ColWidth(2) = 12 * 25 * 5
MS1.ColWidth(3) = 12 * 25 * 4
MS1.ColWidth(4) = 12 * 25 * 3
MS1.ColWidth(5) = 12 * 25 * 2.5
MS1.ColWidth(6) = 12 * 25 * 2
MS1.ColWidth(7) = 12 * 25 * 3
MS1.ColWidth(8) = 12 * 25 * 3
MS1.ColWidth(9) = 12 * 25 * 3
MS1.ColWidth(10) = 12 * 25 * 2
MS1.ColWidth(11) = 12 * 25 * 2
MS1.ColWidth(12) = 12 * 25 * 2.5
MS1.ColWidth(13) = 12 * 25 * 2.5
MS1.ColWidth(14) = 12 * 25 * 10
MS1.FixedRows = 1: MS1.FixedCols = 1
MS1.TextMatrix(0, 0) = "序號"
MS1.TextMatrix(0, 1) = "產(chǎn)品編號"
MS1.TextMatrix(0, 2) = "產(chǎn)品名稱(chēng)"
MS1.TextMatrix(0, 3) = "電源供應"
MS1.TextMatrix(0, 4) = "氣源供應"
MS1.TextMatrix(0, 5) = "功率KW"
MS1.TextMatrix(0, 6) = "顏色"
MS1.TextMatrix(0, 7) = "進(jìn)料口mm"
MS1.TextMatrix(0, 8) = "出料口mm"
MS1.TextMatrix(0, 9) = "包裝"
MS1.TextMatrix(0, 10) = " 數量"
MS1.TextMatrix(0, 11) = " 單位"
MS1.TextMatrix(0, 12) = "單價(jià)"
MS1.TextMatrix(0, 13) = "小計"
MS1.TextMatrix(0, 14) = " 序列號"
For i = 1 To 10 呵呵 給每一個(gè)MS1標個(gè)行號 默認10行
MS1.TextMatrix(i, 0) = i
Next
Combo2.Width = MS1.CellWidth 讓COMBO2 浮自MSFLEXDRID 上
Combo2.Left = MS1.CellLeft + MS1.Left
Combo2.Top = MS1.CellTop + MS1.Top
Text7.Text = "" '在msflexgrid上搞個(gè)TEXT 奶奶的想了很久 個(gè)破MSFLEXGRID 只讀個(gè)毛 SHIT
Text7.Width = MS1.CellWidth: Text7.Height = MS1.CellHeight
Text7.Left = MS1.CellLeft + MS1.Left
Text7.Top = MS1.CellTop + MS1.Top 這一段 是精華 用它來(lái)實(shí)現 向MSFLEXGRID 中輸入 數據 為什么？（因為MSFLEXGRID 是免費的 呵呵 ）
End Sub
本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請
點(diǎn)擊舉報。
