Tạo code tự động thông qua database SQL Server

[haitu]

Tên chương trình: Tạo code tự động
Phiên bản: 1.0
Tác giả: Phan Hải Tú
Chức năng: Tạo code tự động theo các lớp Data Access, Business Logic, Entity

---

đây là cái file auto mình tự làm để viết project cho nhanh, hôm nay post lên đây chia sẻ cùng mọi người. Nếu có gì góp ý thì cứ góp ý cho mình nha.

Cách sử dụng sau khi đã tạo code:
để chạy được bạn phải khai báo các thông số của database và csdl cần xử lý nha (đoạn dưới là mình test trên máy của mình, các bạn chỉnh lại thông số kết nối cho nó lại nha

Code VB.NET:

Mã: [Chọn hết] [Mở rộng/Thu hẹp] [Tải về]

1. 'Khai báo thông tin kết nối vào SQL Server
2.         DataAccess.ExecuteSQL.SERVERNAME = "home"
3.         DataAccess.ExecuteSQL.DATABASENAME = "data_test"
4.         DataAccess.ExecuteSQL.USERNAMESQL = "sa"
5.         DataAccess.ExecuteSQL.PASSWORDSQL = "123"
6.         DataAccess.ExecuteSQL.AUTHENTICATION = DataAccess.SQLAuthenticationType.SQLServerAuthentication
7.  
8. 'Gán dữ liệu vào lớp Entity và dùng lớp Business để đẩy dữ liệu của Entity vào SQL Server
9.         Dim cls As New Entity.NHANVIEN()
10.  
11.         cls.MANV = "987654321"
12.         cls.TENNV = "Phan Hải Tú"
13.         cls.NGAYSINH = Date.Parse("10/12/1983")
14.  
15.         If Business.NHANVIEN.insertNHANVIEN(cls) = False Then MessageBox.Show("Lỗi thêm dữ liệu !")
16.  

GeSHi © Codebox Plus

Code C#:

Mã: [Chọn hết] [Mở rộng/Thu hẹp] [Tải về]

1. //Khai báo thông tin kết nối vào SQL Server
2.             DataAccess.ExecuteSQL.SERVERNAME = "home";
3.             DataAccess.ExecuteSQL.DATABASENAME = "data_test";
4.             DataAccess.ExecuteSQL.USERNAMESQL = "sa";
5.             DataAccess.ExecuteSQL.PASSWORDSQL = "123";
6.             DataAccess.ExecuteSQL.AUTHENTICATION = DataAccess.SQLAuthenticationType.SQLServerAuthentication;
7.  
8. //Gán dữ liệu vào lớp Entity và dùng lớp Business để đẩy dữ liệu của Entity vào SQL Server
9.             Entity.NHANVIEN cls = new Entity.NHANVIEN();
10.  
11.             cls.MANV = "123456789";
12.             cls.TENNV = "Phan Hải Tú";
13.             cls.NGAYSINH = DateTime.Parse("10/12/1983");
14.            
15.             if (Business.NHANVIEN.insertNHANVIEN(cls) == false) MessageBox.Show ("Lỗi thêm dữ liệu !");
16.  

GeSHi © Codebox Plus

2 class DataAccess và Business mình không tạo Constructor vì mình khai báo hàm để gọi trực tiếp mà không cần phải khai báo biến thuộc kiểu dữ liệu của class DataAccess, Business

trên đó là cách thực hiện sơ sơ thôi, các bạn có thể tự tìm hiểu thêm sau khi tạo code tự động ra nhá.

[boy1234]

Wow! Khá ấn tượng.

[haitu]

Đã update bản mới ở đầu bài viết
1. Import trực tiếp code sau khi tạo tự động vào project được chỉ định (nếu muốn xóa đường dẫn project đã chọn thì click chuột vào textbox đó và nhấn Escape)
2. liệt kê danh sách các sever của sql hiện có trên máy
3. ghi nhớ thông tin truy cập
4. thêm vào mô hình cho dễ hình dung
5. Có thể thao tác trên các table có khoảng trắng, tiếng việt ....

Bản kế tiếp sẽ phục vụ tạo 1 form và xử lý dữ liệu chưa đầy 10 giây (thiết kế form, mở tool này lên bấm 1 phát tự có code chạy luôn khỏi viết hehehe )

[tungcan5diop]

mấy hôm trước còn chạy OK,sao hôm nay chạy nó báo lỗi vậy anh HaiTu ơi.

[haitu]

Đã upload lại file ở bài viết trên, hehehe do có 1 chút lỗi kỹ thuật

đang tính làm tiếp mà sao thấy hổng có ai quan tâm cái này vậy ta , hay tại dỡ quá nên hổng ai quan tâm

[boy1234]

Đã upload lại file ở bài viết trên, hehehe do có 1 chút lỗi kỹ thuật

đang tính làm tiếp mà sao thấy hổng có ai quan tâm cái này vậy ta , hay tại dỡ quá nên hổng ai quan tâm

Làm tiếp đi. Lúc trước thấy bác nói thích C# hơn sao cái nì làm VB.Net.

[haitu]

sẽ có C# thôi, tại cái này mình làm để viết project cho nhanh mà (project đang dùng VB) mình sẽ tích hợp thêm vào C# nữa OK.

[haitu]

đã thêm chức năng hỗ trợ code C#. Mình sẽ cố gắng làm thêm nhiều chức năng nữa cho nó hoàn thiện.

Code được tạo ra là mình code theo ý của mình, nếu bạn nào có ý kiến gì về code tạo ra có thể góp ý ở đây mình sẽ thay đổi lại cho chuẩn

[tungcan5diop]

Bản kế tiếp sẽ phục vụ tạo 1 form và xử lý dữ liệu chưa đầy 10 giây (thiết kế form, mở tool này lên bấm 1 phát tự có code chạy luôn khỏi viết hehehe )

đang chờ nè anh.
nếu table em có cột là kiểu Image thì nó gen ko đúng.

[tungcan5diop]

ở từng Form phải khai báo lại thông tin kết nối với Database,hơi phiền nếu đổi Database(test) sang Database (thiệt) thì phải đổi code.theo cách cũ thì chỉ cần đổi chuỗi kết nối 1 lần là xong.anh HaiTu coi có cách nào ko?

[haitu]

chỉ cần gán thông tin kết nối 1 lần duy nhất ở bất kỳ form nào, không cần phải khai báo lại từng form đâu. lần sau nó sẽ tự hiểu, nếu muốn trong 1 phần mềm mà chuyển đổi qua lại giữa các server và database khác nhau thì chỉ cần khai báo lại thông tin kết nối là được.
chỉ cần chỉ lại thông tin này thôi

Mã: [Chọn hết] [Mở rộng/Thu hẹp] [Tải về]

1.         DataAccess.ExecuteSQL.SERVERNAME = "home"
2.         DataAccess.ExecuteSQL.DATABASENAME = "data_test"
3.         DataAccess.ExecuteSQL.USERNAMESQL = "sa"
4.         DataAccess.ExecuteSQL.PASSWORDSQL = "123"
5.         DataAccess.ExecuteSQL.AUTHENTICATION = DataAccess.SQLAuthenticationType.SQLServerAuthentication
6.  

GeSHi © Codebox Plus

[VIET_ITQN]

Bạn có thể hướng dẫn cụ thể đoạn này giúp mình được không?
Mình gán nhưng khi cập nhật nó báo "lỗi nhập dữ liệu":

Mã: Chọn hết

  Private Sub btnLUU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLUU.Click
                    'Khai báo thông tin kết nối vào SQL Server
                    DataAccess.ExecuteSQL.SERVERNAME = ".\SQLEXPRESS"
                    DataAccess.ExecuteSQL.DATABASENAME = "DatabasesPCGD"
                    DataAccess.ExecuteSQL.USERNAMESQL = ""
                    DataAccess.ExecuteSQL.PASSWORDSQL = ""
                    DataAccess.ExecuteSQL.AUTHENTICATION = DataAccess.SQLAuthenticationType.SQLServerAuthentication
                    'Gán dữ liệu vào lớp Entity và dùng lớp Business để đẩy dữ liệu của Entity vào SQL Server
                    Dim cls As New Entity.THONGTIN_HO()
                    cls.ID_HO = txtID_HO.Text
                    cls.TENCHUHO = txtTENCHUHO.Text
                    cls.TENTHON = txtTENTHON.Text
                    cls.SOXOM = txtSOXOM.Text
                    If Business.THONGTIN_HO.insertTHONGTIN_HO(cls) = True Then MsgBox("Cập nhật thành công")
                    Me.Close()
          End Sub


[haitu]

bạn chọn kiểu là SQLServerAuthentication thì bạn phải khai báo username và mật khẩu truy xuất vào database thì mới chạy được.