Quản lý mua bán hàng - Phần 4: Thiết kế form

[Saitama]

Ðề: Quản lý mua bán hàng - Phần 4: Thiết kế form

Cảm ơn bạn lehongduc.
To all mem:
Tip của bạn lehongduc rất hữu ích vì khi khởi nạp form sẽ nạp trắng dữ liệu, do vậy thời gian khởi nạp sẽ nhanh.

Tuy nhiên, cần lưu ý, do thiết kế chúng ta có 4 nút đầu trước sau cuối, nên nếu khởi nạp trắng thì 4 nút này vô tác dụng nếu lúc nạp vào người sử dụng muốn dùng chúng để di chuyển đến một record nào đó.

Trao đổi thêm:
Với cách làm theo đề nghị của tôi, các nút lệnh duyệt từng mẫu tin tới lui chỉ có hiệu lực đối với các mẫu tin được nhập vào kể từ lúc mở Form.
Trong trường hợp cần duyệt các mẫu tin đang có trong table DmHanghoa theo 1 điều kiện nào đó chúng ta cần viết 1 thủ tục để duyệt theo điều kiện xác định (hoặc duyệt toàn bộ nếu cần).

Để tiện cho các Bạn tham khảo cụ thể, đồng thời tránh làm xáo trộn file ứng dụng chung chúng ta đang xây dựng, sau đây tôi xin thuyết minh chi tiết với 1 dữ liệu mẫu riêng:
File dữ liệu mẫu lưu tại link sau:
http://www.mediafire.com/download.php?zm21c0zwwml

Giả định tôi có table đặt tên là: DmHanghoa đăng ký danh mục hàng hoá
Trong đó có 2 field:
+ MSHH: đăng ký mã số hàng hoá
+ TenHanghoa: đăng ký tên hàng hoá

Tôi thiết kế Form nhập Danh mục hàng hoá đặt tên là: frmCapnhatDmHanghoa
Trong Form này:
+ có 3 TextBox: MSHH, TenHangHoa và 1 TextBox dùng để ghi tổng số mẫu tin hiện có trong table DmHanghoa
+ có các nút lệnh: cmdThemmoi, cmdToi, cmdLui, cmdXoa, cmdHienTatca, cmdLoc
+ Khai báo thuộc tính Record Source của Form như sau: SELECT * FROM DmHanghoa WHERE False

Thủ tục gán cho sự kiện Click của từng nút lệnh trên như sau:

Private Sub cmdloc_click()
'Lọc lại dữ liệu theo điều kiện xác định
Dim sDieukien
'Lấy điều kiện được khai báo thông qua hàm Inputbox
sDieukien = InputBox("Xin nhap vao 1 hoac mot so ky tu dau cua Ma so hang hoa can loc: ", "Loc Danh muc")
If Not IsNull(sDieukien) Then
'Gán lại RecordSource cho Form
Me.RecordSource = "SELECT * FROM DmHanghoa WHERE((DmHanghoa.MSHH) Like '" & sDieukien & "*');"
Me.Requery
End If
End Sub

Private Sub cmdthemmoi_click()
'Thêm mới
On Error GoTo Err_Command5_Click
'Gán lại RecordSource cho Form như lúc ban đầu
Me.RecordSource = "SELECT * FROM DmHanghoa WHERE False;"
Me.Requery 'Dòng này để nạp lại dữ liệu nguồn cho Form
'Chuyển sang chế độ nhập mới
DoCmd.GoToRecord , , acNewRec

Exit_Command5_Click:
Exit Sub

Err_Command5_Click:
MsgBox Err.Description
Resume Exit_Command5_Click

End Sub

Private Sub cmdtoi_click()
'Duyệt đến mẫu tin kế tiếp sau
On Error GoTo Err_Command6_Click

DoCmd.GoToRecord , , acNext

Exit_Command6_Click:
Exit Sub

Err_Command6_Click:
MsgBox Err.Description
Resume Exit_Command6_Click

End Sub

Private Sub cmdlui_click()
'Duyệt đến mẫu tin kế tiếp trước
On Error GoTo Err_Command7_Click

DoCmd.GoToRecord , , acPrevious

Exit_Command7_Click:
Exit Sub

Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click

End Sub

Private Sub cmdhientatca_click()
'Cho hiện toàn bộ các mẫu tin trong table DmHanghoa
'Bằng cách gán lại RecordSource cho Form
Me.RecordSource = "DmHanghoa"
Me.Requery

End Sub

Private Sub cmdxoa_click()
'Xoá mẫu tin đang thấy
On Error GoTo Err_Command11_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Command11_Click:
Exit Sub

Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click

End Sub

[batbai]

Ðề: Quản lý mua bán hàng - Phần 4: Thiết kế form

Tôi post tiếp phần tiếp theo: thiết kế form tìm kiếm của danh mục hàng hóa.

Mục đích là khi người sử dụng nhấnnút Tìm trên form frmDMHH sẽ hiện form tìm. Tring form tìm sẽ cho chọn hoặc là theo mã số, theo tên và theo loại hàng.


Sau đó cho hiện trong bảng phía dưới. Nhắp kép lên dòng nào thì nội dung dòng đó sẽ hiện lên form frmDMHH.

Phần in ấn sẽ được post sau.

[diennguyen59]

Ðề: Quản lý mua bán hàng - Phần 4: Thiết kế form

Bác Phat ơi, mỗi lần bác viết xong bài ngoài file hướng dẫn PDF bác gửi cho bọn em cái sample luôn nhé. Vì đọc xong bài thì bọn em cũng hiểu rồi lấy ví dụ ra xem cho nó nhanh.
Em thấy sử dụng cái Each.. mạnh chứ. Nhất là về sau mình dùng cái này để xử lý một nhóm đối tượng dựa theo kiểu (text, combo..) hoặc thay đổi caption hàng loạt cho các đối này. Chẳng lẽ bây giờ chương trình có cả tây, ta cùng sài mà lại bắt tây nó đọc bằng giao diện tiếng Việt.
Lần đầu tiên thấy cái điều kiện where false mà bác Đức đưa ra, cái này hữu ích khi chưa muốn cho nó load dữ liệu.

[baoxuyen368]

Ðề: Quản lý mua bán hàng - Phần 4: Thiết kế form

Bác Phat ơi, mỗi lần bác viết xong bài ngoài file hướng dẫn PDF bác gửi cho bọn em cái sample luôn nhé. Vì đọc xong bài thì bọn em cũng hiểu rồi lấy ví dụ ra xem cho nó nhanh.
Em thấy sử dụng cái Each.. mạnh chứ. Nhất là về sau mình dùng cái này để xử lý một nhóm đối tượng dựa theo kiểu (text, combo..) hoặc thay đổi caption hàng loạt cho các đối này. Chẳng lẽ bây giờ chương trình có cả tây, ta cùng sài mà lại bắt tây nó đọc bằng giao diện tiếng Việt.
Lần đầu tiên thấy cái điều kiện where false mà bác Đức đưa ra, cái này hữu ích khi chưa muốn cho nó load dữ liệu.

Bạn có biết rằng trong giai đoạn triển khai một phần mềm thì cái nào "nhức đầu" nhất không? Đó chính là nhập dữ liệu thử hoặc nhập dữ liệu chính thức từ nguồn dữ liệu sẵn có của đơn vị triển khai. :jfbq00191070412ahu0

Do vậy, mong các bạn thông cảm, tự mình nhập vào cho nó sang. "Kẻ góp của, người góp công".

Tôi không nói For Each không xài nhưng tùy tình huống mà xài. Chuyện tây ta không bàn ở đây vì khi ta xử lý control, hầu như chúng ta xử lý theo Name của chúng. Mà Name của chúng thì chỉ có developer biết, chứ user lấy gì biết !!!

Cái kỹ thuật dùng WHERE False (hoặc WHERE True) là kỹ thuật thường xài cho dân lập trình VB hoặc .NET (kể cả C#) khi muốn khởi gán một data table. Bác lehongduc đem vào đây là "lộ nghề" anh em hết. :xinloinhe:

[hoahuongduong]

Ðề: Quản lý mua bán hàng - Phần 4: Thiết kế form

ặc ặc, mới có cái where false mà bác Phatnq đã sợ lộ nghề rồi. Trông bác thế mà ki quá
:071::gun_guns:
-----------------------------------------------------------------------------------------
Thấy bác mượn đề xuất làm Server/Client em thấy nhất trí. Vì như thế sẽ toàn diện hơn.
Thấy bác phat vẫn lăn tăn là newbie khó tiếp cận. Vậy đề nghị cả nhà cho ý kiến để còn triển khai vì Coding cho Client và Server/Client có đôi chút khác biệt.
Làm phần mềm kế toán mà chỉ dùng cho một mình thì nghe có vẻ không ổn lắm

[duongthidiu]

Ðề: Quản lý mua bán hàng - Phần 4: Thiết kế form

ặc ặc, mới có cái where false mà bác Phatnq đã sợ lộ nghề rồi. Trông bác thế mà ki quá
:071::gun_guns:
-----------------------------------------------------------------------------------------
Thấy bác mượn đề xuất làm Server/Client em thấy nhất trí. Vì như thế sẽ toàn diện hơn.
Thấy bác phat vẫn lăn tăn là newbie khó tiếp cận. Vậy đề nghị cả nhà cho ý kiến để còn triển khai vì Coding cho Client và Server/Client có đôi chút khác biệt.
Làm phần mềm kế toán mà chỉ dùng cho một mình thì nghe có vẻ không ổn lắm

Chào các Bạn,
Tôi thấy cứ tiếp tục thực hiện theo hướng dẫn của "chủ xị" như chúng ta đang làm, đến khi nào đạt được mục tiêu đã đề ra ban đầu ta sẽ bước tiếp bước nữa: phát triển ứng dụng theo nhiều hướng khác nhau.

Trong quá trình xây dựng ứng dụng chúng ta cũng cần tránh việc "sử dụng dao mổ trâu để đi mổ gà", vừa nhọc nhằn vừa không đạt được mục tiêu sẽ dễ nản lòng.

[dvitngoctu]

Ðề: Quản lý mua bán hàng - Phần 4: Thiết kế form

Chào các bạn
Mình là lính mới đang trong thời gian tìm hiểu Access tôi thấy Access rất hay trong các ứng dụng vừa và nhỏ, tình cờ vào đây thấy bác phatnq2002 lập ra chuyên mục này thật là một ý tưởng hay và phù hợp với những người đang tìm hiểu Access như tôi. Với lại mọi người ở đây có trình độ khác nhau nên tôi nghĩ chúng ta hay đi theo như mục tiêu ban đầu chúng ta đã đưa ra khi nào hoàn thiện rồi thì chúng ta phát triển tiếp cũng chưa muộn mà, như vạy mọi người dể theo dõi và hiểu vấn đề kỷ và sâu hơn.:mua:

[hoangkiso]

Ðề: Quản lý mua bán hàng - Phần 4: Thiết kế form

Xin hoan nghênh chủ topic. Bài viết dễ hiểu và rất thực tế. Mong chủ topic phát huy thêm cho anh em học hỏi.

[lythatda]

Ðề: Quản lý mua bán hàng - Phần 4: Thiết kế form

Thấy bác mượn đề xuất làm Server/Client em thấy nhất trí. Vì như thế sẽ toàn diện hơn.
Thấy bác phat vẫn lăn tăn là newbie khó tiếp cận. Vậy đề nghị cả nhà cho ý kiến để còn triển khai vì Coding cho Client và Server/Client có đôi chút khác biệt.
Làm phần mềm kế toán mà chỉ dùng cho một mình thì nghe có vẻ không ổn lắm

Chỉ là đôi chút thôi chứ không có gì khác biệt nhiều đâu mà lo.

Nếu như bạn phân biệt (trong đầu) rõ ràng mô hình cơ sở dữ liệu 3 lớp thì khi đó viết ứng dụng chạy trên 1 máy cũng rõ ràng hơn.

[fanpckt]

Ðề: Quản lý mua bán hàng - Phần 4: Thiết kế form

Muốn phần subCT có thanh trượt ngang dọc để có thể chứa được nhiều record thì phải làm như thế nào ạ? :xinloinhe: