3a6cdc21-5605-4528-87bd-40258fb5291e
SQL
Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data\ds_shop.mdf;Integrated Security=True;User Instance=True;Context Connection=False
29.7cm
true
21cm
0.1cm
true
1cm
0.8cm
1cm
a9b4dd86-0b74-46ab-a717-546ffa185b97
21cm
ID
System.Int32
UserCode
System.String
BarCode
System.String
Name
System.String
Price
System.Decimal
pic
System.String
Stock
System.Double
PcName
System.String
ds_shopConnectionString
SELECT ID, UserCode, BarCode, Name, Price, pic, Stock, PcName
FROM BarCode
true
ds_shopDataSet
BarCode
BarCodeTableAdapter
Fill
GetData
Shared Function StringToCode128(ByVal input As String) As String
Try
Dim endchar As Char
Dim total As Int64 = 104
Dim tmp As Integer
For i As Int16 = 1 To input.Length
tmp = Asc(input.Substring(i - 1, 1))
If tmp >= 32 Then
total += (tmp - 32) * i
Else
total += (tmp + 64) * i
End If
Next
Dim endAsc As Object = total Mod 103
If endAsc >= 95 Then
Select Case endAsc
Case 95
endchar = "Ã"
Case 96
endchar = "Ä"
Case 97
endchar = "Å"
Case 98
endchar = "Æ"
Case 99
endchar = "Ç"
Case 100
endchar = "È"
Case 101
endchar = "É"
Case 102
endchar = "Ê"
End Select
Else
endAsc += 32
endchar = Chr(endAsc)
End If
Return "Ì" & input & endchar.ToString() & "Î"
Catch ex As Exception
MsgBox(ex.Message, ex.StackTrace)
Return String.Empty
Finally
End Try
End Function
7cm
0cm
0.4cm
ds_shopDataSet_BarCode
0.5cm
6.00569cm
5
0.19431cm
0.66646cm
=iif(Fields!BarCode.Value="0","", code.StringToCode128(Fields!BarCode.Value))
1.7cm
1.9cm
4
3.4cm
=iif(Fields!BarCode.Value="0","",FormatNumber(Fields!Price.Value,2))
1.73354cm
0.5cm
3
5.7cm
0.5cm
=iif(Fields!BarCode.Value="0","","€")
1.3cm
5.89842cm
2
0.20158cm
0.3619cm
=iif(Fields!BarCode.Value="0","",Fields!BarCode.Value)
1.73354cm
0.92063cm
1
0.18968cm
0.5cm
=iif(Fields!BarCode.Value="0","","PVP.")
6.01032cm
0.18968cm
0.51355cm
=iif(Fields!BarCode.Value="0","",Fields!Name.Value)
0.3cm
6.3cm
2.33354cm
3cm
3
ElementNormal
zh-CN
0.8cm
29.7cm