【文章內(nèi)容簡介】 cmdsupmandText select * from Supplier ds, supp 39。supp 中 D 添 ?168。 a 加168。 ?一169。 ?個 ?其 ?他 ?行 D Dim dr As DataRow supp .NewRow supname 其 ?他 ? supid 其 ?他 ? supp . dr supp supname supid End Sub Private Sub ComboBox1_SelectedIndexChanged ByVal sender As , ByVal e As Handles If 其 ?他 ? Then End If End Sub Private Sub Button1_Click ByVal sender As , ByVal e As Handles Dim dr As DataRow dr stock . stocknum stocknum + If True Then merchname MerchPrice MerchUnit SAlarmNum supid End If End Sub Private Sub TextBox1_TextChanged ByVal sender As , ByVal e As Handles False 39。數(shù) oy 據(jù) Y 視 o168。 ?圖 a?進(jìn) ?行 D 行 D 篩 |?選 ? merchid like39。% amp。 amp。 %39。 If 0 And 6 Then Dim i% i MsgBox 該 ?商 |168。 ?品 ?164。號 ?碼 ?不 ?存 ??在168。 2，228。 ?添 ?168。 a加168。 ?新 ?商 |168。 ?品 ?164。么 ??, If i 1 Then True Dim dr As DataRow dr stock .NewRow merchid stock . dr Else End If End If End Sub Private Sub Button2_Click ByVal sender As , ByVal e As Handles Dim i% i MsgBox 確168。 ? 164。定 ? 167。 保 224。 ? 228。存 ?? 么 ??, If i 1 Then Dim cmdbuild As New SqlCommandBuilder daap Stock End If End Sub .. 銷售管理模塊 ds, stock ds, counter ds, saledetail ds, saletable 39。定 ?167。義169。 ?dvcounter是 o?counter表224。168。 a的229。 ?數(shù) oy 據(jù) Y視 o168。 ?圖 a? dvcounter counter .DefaultView 39。定 ?167。義169。 ?stock 表224。168。 a、 ?227。counter 表224。168。 a 的229。 ?關(guān) ?鍵168。 1 字225。 ? Dim keystock As DataColumn stock .Columns merchid stock .PrimaryKey keystock Dim keycounter As DataColumn counter .Columns merchid counter .PrimaryKey keycounter 39。定 ?167。義169。 ?datatable 中 D 的229。 ?數(shù) oy 據(jù) Y 列￠ D 銷168。 2 售 o?臨￠168。 ′時 o?224。表224。168。 a Dim merchid As New DataColumn With .ColumnName 商 |168。 ?品 ?164。號 ? Dim merchname As New DataColumn With .ColumnName 商 |168。 ?品 ?164。名 ? Dim merchprice As New DataColumn With .ColumnName 單229?！?64。價 ? Dim merchnum As New DataColumn With .ColumnName 數(shù) oy量￠ ? Dim merchxj As New DataColumn With .ColumnName 小 ?計 ? . merchid . merchname . merchprice . merchnum . merchxj . dt dt Dim x As Integer For x 0 To 1 x .AutoSizeMode Next End Sub Private Sub TextBox1_KeyPress ByVal sender As Object, ByVal e As Handles If vbCr Then End If End Sub Private Sub TextBox1_TextChanged ByVal sender As , ByVal e As Handles merchid like 39。% amp。 amp。 %39。 If 6 Then If 0 Then MsgBox 商 |168。 ?品 ?164。號 ?碼 ?輸 o?入168。 ?有 ?D 誤168。 ?，228。 ?重 ?新 ?輸 o?入168。 ? ElseIf 1 Then Dim dr0, dr1 As DataRow dr0 stock . dr1 counter . merchname saleprice End If End If End Sub Private Sub TextBox2_KeyPress ByVal sender As Object, ByVal e As Handles Try If Or Chr Then Return End If True Dim s As String s If vbCr Then If s Then MsgBox 您168。 2 輸 o?入168。 ?的229。 ?數(shù) oy 量￠ ?有 ?D誤168。 ?，228。 ?請 ?重 ?新 ?輸 o?入168。 ?！228。 ? Else 39。銷168。 2 售 o?臨￠168?！鋾r o?224。表224。168。 a 的229。 ?數(shù) oy 據(jù) Y改 ?變224。 ? Dim dr As DataRow Val * Val 商 |168。 ?品 ?164。號 ? 商 |168。 ?品 ?164。名 ? 單229?！?64。價 ? 數(shù) oy 量￠ ? 小 ?計 ?