Ðề: Giúp tạo main/sub form
Thế này nha, mình gợi ý cho bạn, bạn thử tài của mình xem đến đâu rùi:
1. Có 3table:
_ tblGiai - Giải thi đấu, có:
TênGiải, NơiTổChức
_ tblCLB - Câu lạc bộ, có:
TênCLB, QuốcGia, Giải1, Giải2, Giải3. QuốcGia - Là quê quán của CLB đó, có 3 giải là có thể 1lúc thi đấu: Ngoại hạng Anh, Cúp Hoàng Gia Anh, và C1.
_ tblHLV - Huấn luyện viên, có: TênHLV, NơiCôngTác - tức là lãnh đạo 1CLB nào đó,...
_ tblCauThu - Cầu thủ, có: TênCầuThủ, QuêQuán, NămSinh, ChiềuCao, CăngNặng, VịTrí, NơiĐầuQuân,...
2. Ta liên kết:
_ 1-n giữa tblGiai và tblCLB
_ 1-n giữa tblCLB và tblCauThu
_ 1-n giữa tblCLB và tblHLV
3. Ta tạo các phờ-om-phom:
_ frmGiai - Để thêm/bớt các giải, ví như: Ngoại Hạng Anh, V-League, C1-Âu, C1-Á,....
_ frmHLV - Để thêm/bớt HLV, ví nư: A-lếc, Mô-đi-nhô,....
_ frmCauThu - Để thêm/bớt cầu thủ, ví như: Róp-3, Đề-Cô,...
Và quan trọng nhất là frmMain: Nơi chứa đầy đủ mọi thông tin giống như trang web bạn đã gửi cho mình.
Trên frmMain, bạn tạo ra 2 nút trễ:
+ NútTrễ1, có nguồn dữ liệu là các Giải đấu, có code như sau:
Private Sub cmbGD_Click()
cmbCLB.RowSource = "SELECT * FROM tblCLB Where (GiaiDau like '*" & Me.cmbGD & "*') Order BY GiaiDau; "
cmbCLB.Requery
End Sub
+ NútTrễ2: có nguồn dữ liệu là các CLB, có code như sau:
Private Sub cmbCLB_Click()
ListCT.RowSource = "SELECT * FROM tblCauThu Where (CLB like '*" & Me.cmbCLB & "*') Order BY CLB; "
ListCT.Requery
End Sub
> tức là khi bạn chọn 1giải đấu nào đó trên NútTrễ1 thì trên NútTrễ2 sẽ lấy ra những CLB tham gia giải đấu đó.
+ 1ListBox, nơi chứa danh sách các cầu thủ đầu quân cho CLB khi bạn chọ 1CLB trong NútTrễ2
+ Và tạo ra nhiều textbox tương ứng với bấy nhiêu textbox có trong mỗi table.
Kết luận: Mình gợi ý như thế và phần chế biến, xào nấu như nào bạn động não tý nha. Và khó quá thì hãy pốt-sờ lên, các cao thủ và nếu mình đủ khả năng mình sẽ giúp bạn
Chúc bạn thành công!
