Thứ tư, 9/4/2003 | 17:20 GMT+7
Chia sẻ bài viết lên facebook Chia sẻ bài viết lên twitter Chia sẻ bài viết lên google+ |
Thứ tư, 9/4/2003 | 17:20 GMT+7

Viết chương trình quản lý hàng hoá bằng VB (1)

Chao ban Vi tinh va qui anh chi xa gan! Thay chung em vua ra cho lop em mot bai tap nho la viet mot doan "quan ly hang hoa bang Visual Basic" nhung vi kinh nghiem ve VB cua bon em rat yeu. Nay kinh mong ban Vi tinh va qui vi xa gan neu co biet hay lam on giup chung em voi. Chung em can gap lam. Kinh mong qui vi giup do cho. Thanh that cam on nhieu!

QUAN LY 1 CUA HANG BAN MY PHAM gom 1 form chinh, 5 form phu. 5 form phu gom HANGHOA, NHAN VIEN, HOADONBANLE, BAO CAO CUOI NGAY, EXIT NUA. FORM hanghoa, nhanvien thi cungcap thong tin (ma, ten, ngay nhap hang, ngay vao lam...).

Form bao cao cuoi ngay thi cung cap thong tin: Trong ngay ai ban duoc bao nhieu mat hang, gom mat hang nao. Tong so luong ca ngay ban duoc. So tien ca ngay thu duoc. May form nay deu co the them sua xoa duoc.

Chung em that su khong biet fai bat dau nhu the nao va lam ra sao nua. Cho nen chung em xin duoc su chieu co va giup do cua qui vi trong ban Vi tinh va cac anh chi xa gan. Cam on nhieu lam.

Thuy Vi, Vo Ly

Hồi âm:

Theo ye^u ca^`u cu?a ba.n thi` chuong tri`nh go`m 1 form chi'nh va` 5 fu. thi` co' the^? pha^n ra hai ca'ch sau.

- Truo`ng ho*.p mo^.t Form Chi'nh la` Main menu co`n 5 cai kia la` ca'i 5 form con ( MDIChild=True)

- Tru`ong ho.p hai : Form Chi'nh chu'a group button go`m 5 mu.c cho.n mo~i mo^.t mu.c cho.n co' chu'c na(ng open mo^.t form con.

Ve^` pha^`n co* so*? du~ lieu. dde^? ddo*n gia?n ba.n co' the? du`ng Access dde^? ke^'t no^'i du*~ lie^.u va` du`ng ADO.

Trong Access ba.n ta.o 3 table HANGHOA, NHAN VIEN, HOADONBANLE

Luu y: Bao cao thuong la` la`m bang Report trong VB chu' khong phai lam Form rie^ng. Con cai nut exit trong VB chi? la` mo^.t command don gian thoi. Vi du.

cai nut Exit cua ba.n te^n la` cmdExit thi` code cua no' la`

Private Sub cmdExit_Click()
Unload Me
End Sub

Code cua button The^m :

Private Sub CmdThem_Click()
// khi vao lam thuc te ban phai kiem tra cai text nhap vao co' phai la kieu ngay tha'ng khong, neu khong thi bat nguoi dung nhap lai. Viec do viet trong ham Validate.

txtma.text=""

 txtten.text=""

txtngaynhaphang.txt=""

txtngayvaolam.txt=""

End Sub
De^? cho cho viec viet chuong trinh duoc tot hon ba.n ne^n viet truo'c ro`i kho' khan gi` mo.i nguoi giup ba.n se~ de^~ ho*n.

Chu' viet code het trong day viet sao he^'t no~i.

Le Tam

 
 
 
 
 
 
Bản rút gọn của mẫu smartphone màn hình 2K, Find 7, vừa được Oppo bán ra thị trường Việt Nam với giá 10,5 triệu đồng,...
Google không chỉ cung cấp các nhân chứng ủng hộ Samsung mà còn đề nghị chia sẻ thiệt hại mà hãng Hàn Quốc có thể vướng phải tại phiên tòa với Apple.