Tùy chọn
Vẽ button lên form
- Vẽ button lên form
-
Vẽ button lên form
thucgia > 28-03-15, 12:31 AM
Mình có danh sách các bàn caffe, ban=(id,ten,khu_vuc)
Làm sao mình có thể vẽ danh sách bàn lên form, mỗi bàn là một button
Nhờ các bạn giúp đỡ. -
RE: Vẽ button lên form
maidinhdan > 28-03-15, 09:53 AM
-
RE: Vẽ button lên form
thucgia > 28-03-15, 01:19 PM
(28-03-15, 09:53 AM)maidinhdan Đã viết:
(28-03-15, 12:31 AM)thucgia Đã viết: Mình có danh sách các bàn caffe, ban=(id,ten,khu_vuc)
Làm sao mình có thể vẽ danh sách bàn lên form, mỗi bàn là một button
Nhờ các bạn giúp đỡ.
Chưa rõ ý tưởng như thế nào, Post hình minh họa được không?
Vì không biết vẽ Button để làm cái gì!
Có lẽ là làm được rồi như hình dưới ấy bạn,
this is code
Mã:Private Sub Command0_Click()
Dim frm As Access.Form
Dim strName As String
Set frm = CreateForm
frm.Visible = True
frm.Caption = "Dynamic form"
frm.AutoCenter = True
Dim ctlLabel As Control, ctlText As Control
Dim intDataX As Integer, intDataY As Integer
Dim intLabelX As Integer, intLabelY As Integer
intLabelX = 100
intLabelY = 100
intDataX = 1000
intDataY = 100
For i = 0 To 4
Set ctlText = CreateControl(frm.Name, acCommandButton, , "", "", _
intDataX, intDataY + 400 * i, 1200, 300)
ctlText.Caption = "Ban " & i
'Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", _
' intDataX, intDataY + 1000)
Next i
'For x = 1 To iLoops
'Set ctrl = CreateControl("frmYour_form ", acTextBox, acDetail, , "", 0 + (x * 300), 0, 300, 240)
'ctrl.ControlName = "txtDynamic_control_" & x
'DoCmd.Save acForm, " frmYour_form "
'Next x
strName = frm.Name
DoCmd.Close acForm, strName, acSaveYes
DoCmd.Rename "frmNewName", acForm, strName
DoCmd.OpenForm "frmNewName", , , , , acDialog
DoCmd.DeleteObject acForm, "frmNewName"
End Sub
![[Hình: dynamic_frm_access_vba.jpg]](http://vibigaba.esy.es/hinh_anh/dynamic_frm_access_vba.jpg)
Có lẽ phần ý tưởng chính đã thực hiện xong,
Bi giờ phải thêm cái này
tbl_ban=(id,ten,trang_thai,khu_vuc_id)
trang_thai={0,1} ' 0 : là bàn còn trống, 1: là bàn có khách , phải hiển thì bàn có khách có color active (Đỏ chẳng hạn)
và dĩ nhiên khi click vào bào trang_thai 0 thì : Tạo mới bàn, thêm món,
Còn khi click vào bàn trang_thai 1 thì : func: Thêm_món or Tính_Tiền .... Tính tiền rồi thì trả cái bàn này về trạng thái 0 (Trống)
Nhiêu khê quá phải không bạn ? ...trời ui còn phải add cái events vào cái button nữa -
RE: Vẽ button lên form
maidinhdan > 29-03-15, 01:11 AM
Xin lỗi bạn, ý tưởng này của bạn mình hiểu rồi nhưng quá sức cho mình để viết hàm hổ trợ cho bạn. Và nếu mình là nhà quản lý nhà hàng mình không biết muốn dùng ứng dụng này không vì rất nhọc nhằn trong việc nhập số liệu để quản lý nó. Và cùng khó hơn khi quản lý nhiều bàn ăn ( Giả sử nhà hàng có 500 bàn chẳng lẻ làm 500 command.)
Riêng mình có 1 ý tưởng nhỏ thôi ( giả sử nhà hàng mình có 200 bàn)
Thứ 1 : làm một form để nhập gồm ( Bàn số mấy; Tên món; Đã tính tiền)
Thứ 2 : làm 1 form nửa ( 200 cái label Yes/No ( giống On/Off), mỗi cái Yes/No đại diện cho 1 bàn) - Ở đây có thể sắp sếp theo Sơ đồ bàn theo như bên ngoài)
* Khi đã nhập ở bước 1 thì bàn số mấy đã sử dụng thì nó hiện Check vào là biết ( dùng hàm tham chiếu là xong)
...... và còn nhiều cái hay không nói hết được.
Cuối cùng, khi khách vào: hỏi còn bàn không?
- Tôi chỉ việc mở form bước 2 lên là thấy: Và tôi nói xin mời đi lối này.
Và thực tế ít ai dùng phần mền quản lý bàn ăn ở mức độ dưới 100 bàn để xác định xem trong nhà hàng mình còn bàn trống không.
Đó là vài lời chia sẽ. Hy vọng có cao thủ khác sẽ góp cùng ý tưởng này của bạn.
Thân ái! -
RE: Vẽ button lên form
thucgia > 29-03-15, 09:53 PM
(29-03-15, 01:11 AM)maidinhdan Đã viết: Xin lỗi bạn, ý tưởng này của bạn mình hiểu rồi nhưng quá sức cho mình để viết hàm hổ trợ cho bạn. Và nếu mình là nhà quản lý nhà hàng mình không biết muốn dùng ứng dụng này không vì rất nhọc nhằn trong việc nhập số liệu để quản lý nó. Và cùng khó hơn khi quản lý nhiều bàn ăn ( Giả sử nhà hàng có 500 bàn chẳng lẻ làm 500 command.)
Riêng mình có 1 ý tưởng nhỏ thôi ( giả sử nhà hàng mình có 200 bàn)
Thứ 1 : làm một form để nhập gồm ( Bàn số mấy; Tên món; Đã tính tiền)
Thứ 2 : làm 1 form nửa ( 200 cái label Yes/No ( giống On/Off), mỗi cái Yes/No đại diện cho 1 bàn) - Ở đây có thể sắp sếp theo Sơ đồ bàn theo như bên ngoài)
* Khi đã nhập ở bước 1 thì bàn số mấy đã sử dụng thì nó hiện Check vào là biết ( dùng hàm tham chiếu là xong)
...... và còn nhiều cái hay không nói hết được.
Cuối cùng, khi khách vào: hỏi còn bàn không?
- Tôi chỉ việc mở form bước 2 lên là thấy: Và tôi nói xin mời đi lối này.
Và thực tế ít ai dùng phần mền quản lý bàn ăn ở mức độ dưới 100 bàn để xác định xem trong nhà hàng mình còn bàn trống không.
Đó là vài lời chia sẽ. Hy vọng có cao thủ khác sẽ góp cùng ý tưởng này của bạn.
Thân ái!
hi, cám ơn bạn góp ý tuy nhiên theo ý mính như thế này
1, Sự tiện dụng thì mình nghĩ là có đấy, khi view các bàn như vậy nhìn rất thực tế, mình thấy rất nhiều quán caa2fe phần mềm của họ điều có giao diện như trên
2, Về phần thiết kế thì mình tìm thấy một kỹ thuật rất hay để hôm nào tiện mình trình bày cho anh em xem chơi, nó gọi là array control simulate dùng cho Access rất hay (Bởi vì trong access không hổ trợ control array), chỉ cần thiết kế 1 cái thôi là không những 500 cái control mà 1000 cái nó cũng chạy ot ot luôn...Nhìn thấy thì phức tạp nhưng bạn chỉ cần khi click vào cái bàn nó lấy được bàn id là xong thôi.
3, Học thêm kỹ thuật form dynamic runtine luôn...