| Thành viên | Trả lời |
linux
ubuntu
33 bài
| 05-06-2008 05:16:48
Để làm một chương trình gen ra BLL và Entity thực tế không khó
có nhiều cách để có thể làm được, trong cái bài này tôi dùng dataset. Đơn giản là bạn vào visual studio 2003 (nhớ là nó chỉ chạy ngon trên 2003 thôi đấy). Kéo cái đống Table trong 1 cái Database nào đó vào file Dataset1 của mình. Thế là trong dataset1 của mình đã có một mớ bảng, mở cái chương trình ra và chọn bảng nào là có code bảng đó, hêh dưới đây là chương trình đấy
http://coder.awas.vn/downloads.ashx?id=c9a75d72b59746c69a06251af78e288f
|
vietfast
1 bài
| 27-06-2008 11:54:55
Bạn dùng Dll nào thế. Mình down về nhưng không dùng được. chương trình bóa không có namespace
|
linux
ubuntu
33 bài
| 28-06-2008 11:08:24
bạn không biết dùng rồi, làm đúng như hướng dẫn đi, sẽ dùng được bạn ạ
|
thuan121
1 bài
| 26-12-2008 10:34:37
 
không có cho 2005 hả?
bây giờ mà còn chạy 2003 làm gì?
nó báo lỗi thế này là thế nào hởi bà con :"C1.Win.C1FlexGrid.C1FlexGrid' is not defined". Phải tìm file này ở đâu
|
linux
ubuntu
33 bài
| 26-12-2008 03:09:58
Bản không lỗi đây
http://coder.awas.vn/downloads.ashx?id=05bee410388e418b9dfbec4d5e8ac876
---
|
aminpro
2 bài
| 06-01-2009 11:30:59
Imports VB6 = Microsoft.VisualBasic
Public Class Form1
Inherits System.Windows.Forms.Form
Function KeyGen(ByVal username As String, ByVal var1 As Object, ByVal var2 As Object, ByVal var3 As Object, ByVal var4 As Object) As String
Dim v1, v2, v3, v4
Dim p1, p2, p3, p4
Dim length
length = Len(username)
v1 = Asc(VB6.Left(username, 1))
v2 = Asc(VB6.Right(username, 1))
v3 = Asc(VB6.Left(username, (length / 2)))
v4 = Asc(VB6.Right(username, (length / 2)))
p1 = VB6.Right(Hex(v1 * v2 + (v3 + v4) * var1 * 100), 5)
p2 = VB6.Left(Hex(v2 * v4 + (v1 + v2) * var2 * 100), 5)
p3 = VB6.Right(Hex(v1 * v3 + (v2 + v4) * var3 * 100), 5)
p4 = VB6.Left(Hex(v2 * v4 + (v3 + v1) * var4 * 100), 5)
keygen = p1 + "-" + p2 + "-" + p3 + "-" + p4
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
TextBox2.Text = KeyGen(TextBox1.Text, 100, 200, 300, 400)
Catch
MsgBox("Error Number " & Err.Number & vbCrLf & Err.Description)
TextBox1.Text = TextBox1.Text + "1"
End Try
End Sub
End Class
|
vip_codon_198x
1 bài
| 25-11-2009 09:13:53
|
tesulakata
3 bài
| 18-05-2011 11:35:56
khà khà
hẻm biết xài
bao giờ học kĩ lưỡng đã rồi dò sau
thánk cái cho có khí thế
|
 |