進(jìn)銷存管理系統(tǒng)實(shí)戰(zhàn)-文庫吧
2025-03-29 02:12 本頁面
【正文】 60。 Col3=單位 Char Width 4 Col4=存放倉庫 Char Width 8 Col5=數(shù)量 Integer Col6=單價 Currency Col7=金額 Currency Col8=業(yè)務(wù)員 Char Width 8 Col9=出貨單號 Char Width 20 Col10=日期 Date Col11=客戶 Char Width 20 Col12=付款方式 Char Width 4 Col13=備注 Char Width 20 [業(yè)務(wù)員] Col1=編號 Char Width 10 Col2=姓名 Char Width 8 Col3=所屬部門 Char Width 20 Col4=個人電話 Char Width 20 Col5=家庭住址 Char Width 20 Col6=身份證號碼 Char Width 40 Col7=備注 Char Width 20 [員工檔案] Col1=編號 Char Width 10 Col2=姓名 Char Width 8 Col3=姓別 Char Width 2 Col4=所屬部門 Char Width 20 Col5=工種 Char Width 10 Col6=上工時間 Char Width 20 Col7=身份證號碼 Char Width 40 Col8=個人電話 Char Width 20 Col9=家庭住址 Char Width 40 Col10=Email Char Width 20 Col11=婚否 Bit Col12=生日 Date Col13=愛好 Char Width 10 Col14=忠誠度 Char Width 10 Col15=備注 Char Width 20 一：進(jìn)貨管理 此模塊的技術(shù)關(guān)鍵是在保存記錄上，在為“銷售記錄”表中存數(shù)據(jù)時應(yīng)同時向“庫存記錄”表添加，如果有此商品則在原有的基礎(chǔ)上進(jìn)行加法運(yùn)算，否則添加新記錄。在銷售管理中原理也是這樣，不過如果庫存里沒有此類商品就不允許用戶進(jìn)行銷售操作。 frmjhgl(進(jìn)貨管理)模塊中所有控件的相關(guān)設(shè)置： (1)TextBox:本模塊共用8個文本框，其Name屬性分別為： txtname（商品名稱）、txtliang（數(shù)量）、txtdanjia（單價）、txtbianhao（商品編號）、txtjhdata（操作日期）、txtjine（金額）、txtjine（金額）、txtshuiq（稅前金額）、txtshui（稅率） datasource屬性分別為:data1,datafield為空。 另添加三個bobox控件(cmbcj、cmbywy、 cmbjie), 用來顯示廠家、業(yè)務(wù)員及結(jié)算方式（即結(jié)、欠付等） (2)四個mand控件,name屬性分別為：cmdaddnew、cmdsave、cmdcancel、cmdquit。caption屬性分別為：新單、保存、取消、退出 代碼： Dim zxh As Boolean 39。判斷用戶輸入數(shù)據(jù)是否為空 Private Sub addywy()39。為bobox控件添加內(nèi)容 Dim db As Database Dim rs As Recordset Set db = OpenDatabase( amp。 ) Set rs = (業(yè)務(wù)員) While Not (業(yè)務(wù)員名稱).Value Wend Set rs = Nothing Set db = Nothing End Sub Private Sub addcj() Dim db As Database Dim rs As Recordset Set db = OpenDatabase( amp。 ) Set rs = (廠家) While Not (廠家名稱).Value Wend Set rs = Nothing Set db = Nothing End Sub Private Sub notnull() If = Then zxh = True MsgBox 商品編號不能為空, vbInformation, 試圖添加空記錄 End If If = Then zxh = True MsgBox 商品名稱不能為空, vbInformation, 試圖添加空記錄 End If If = Then zxh = True MsgBox 數(shù)量不能為空, vbInformation, 試圖添加空記錄 End If End Sub Private Sub cmdaddnew_Click() = Date = True = True = False End Sub Private Sub cmdcancel_Click() = True = False = False End Sub Private Sub cmdsave_Click() Dim field_value$, txtliang_value$ Dim jhbh$, ccbh$, jhna$ = True = False = False On Error GoTo err txtliang_value = jhbh = jhna = Call notnull If zxh = True Then Else 39。執(zhí)行 = 11 39。必須初始化綁定字段 = = = = = = 39。向庫存添加 = 即時庫存 1
公司管理相關(guān)推薦
鄂ICP備17016276號-1