Tài liệu Luận văn tốt nghiệp "Báo cáo quản lý kho hàng" docx

LUẬN VĂN TỐT NGHIỆP Đề tài: Xây dựng chương trình quản lý kho hàng hệ thơng tin kế tốn MỤC LỤC CHƯƠNG I CÔNG TY PHẦ MỀ TÀI CHÍNH KẾTỐN FAST N M VÀ BÀI TOÁN QUẢ LÝ KHO HÀNG N I.Vài nét lịch sử thành lập công ty Tổ chức quy trình sản xuất kinh doanh công ty Fast 2.1 Tổ chức công ty Fast Ban giám đốc 2.2 Quy trình hoạt động sản xuất kinh doanh .9 2.2 Chức chương trình quản lý kho hàng 13 III Mơi trưịng cơng cụ 15 1.Ngôn ngữ .15 II Mô tả hệ thống thông tin điều hành quản lý 21 CHƯƠNG III 32 PHÂN TÍCH VÀ THIẾ KẾHỆTHỐ 32 T NG Sau sơ đồ trao đổi thông tin nghiệp vụ quản lý kho 33 Danh nục khách 39 Sơ đồ quan hệ thực thể .61 61 Cơ sở liệu chương trình trình bày xây dựng hệ quản trị sở liệu Access Màn hình quan hệ thực thể Access công cụ hữu ích tiện lợi Qua ta có đựoc nhìn đầy đủ, rõ ràng mối quan hệ thực thể sở liệu với 61 KẾ LUẬ 62 T N CHƯ NG III: PHÂN TÍCH VÀ THIẾ KẾHỆTHỐ 30 .100 Ơ T NG LỜI NÓI ĐẦU Trong 20 năm trở lại đây, xu thấy đặc biệt rõ nét nước phát triển số công việc liên quan đến tạo lập, xử lý thông tin dạng dạng khác tăng lên nhanh chóng Điều khác hẳn so với năm nửa đầu kỷ 20, công việc lao động chân tay chiếm vị trí chủ đạo Một nguyên nhân tượng ngành công nghiệp dịch vụ (như ngân hàng, khách sạn, du lịch, xuất ) tăng vọt Đa số công việc thuộc lĩnh vực dịch vụ liên quan đến xử lý thông tin Xử lý thông tin máy bắt đầu vào năm 50, thay đổi công nghệ xử lý thông tin diễn với nhịp độ nhanh kèm theo nhiều biến chuyển khơng dễ nhận thấy Để thích ứng với biến chuyển đời sông kinh tế – xã hội, cần nắm thông tin Đó thơng tin thay đổi có khả xẩy tương lai gần, thông tin khả đương đầu lựa chọn, thông tin người khác hành động hồn cảnh tương tự Chính vậy, tổ chức cần có tay khối lượng lớn thơng tin đủ mạnh để nắm bắt nhu cầu khách hàng, nhìn thấy rõ xu cạnh tranh môi trường kinh tế bên ngồi; đồng thời phải xử lý thơng tin cách nhanh để có định kịp thời Như vậy, việc nắm bắt thông tin nhanh chóng, xác làm giảm bớt yếu tố bất định cho tổ chức lẫn cá nhân Thông tin trở thành vấn đề sống lĩnh vực đời sống kinh tế xã hội; đặc biệt lĩnh vực quản lý kinh tế nghiên cứu ứng dụng khoa học Qua trình thực tập Cơng ty TNHH dược , với giúp đỡ tận tình thầy giáo hướng dẫn Đặng Quế Vinh, với bảo anh chị làm việc công ty Fast em hồn thành xong chun đề với đề tài mang tên: Xây dựng chương trình quản lý kho hàng hệ thơng tin kế tốn Đề tài hình thành sở nhu cầu cung cấp cách đầy đủ, nhanh chóng, xác thường xun có tính tác nghiệp tổng hợp thơng tin tình hình số lượng chất lượng trạng vật tư, hàng hoá kho luân chuyển qua kho cho người lãnh đạo đơn vị để định xuất nhập kho hữu hiệu thời điểm định Đề tài gồm chương sau: Chương I: Công ty Phần mềm tài kế tốn Fast tốn quản lý kho hàng hệ thơng tin kế tốn Chương giới thiệu công ty Fast nơi em thưc tập nội dung tốn "Xây dựng chương trình quản lý kho hàng hệ thơng tin kế tốn" Chương II: Khảo sát thực tế Chương giới thiệu khái quát vấn dề quản lý kho hàng doanh nghiệp, thông tin đầu vào đầu tốn Chương III: Phân tích thiết kế hệ thống cho chương trình "Quản lý kho" Em xin bày tỏ cám ơn sâu sắc em tới Thầy giáo Đặng Quế Vinh tận tình hướng dẫn em hoàn thành chuyên đề này; cám ơn nhiều giúp đỡ từ phía cán bộ, nhân viên Công ty Fast thời gian em thực tập Tuy nhiên, thời gian có hạn vốn kiến thức em hạn chế, thiếu kinh nghiệm thực tế nên không tránh khỏi thiếu sót Vậy kính mong thầy giáo tất người quan tâm đến đề tài thơng cảm bổ sung thiếu sót cho em Một lần em xin chân thành cảm ơn ! CHƯƠNG I CƠNG TY PHẦN MỀM TÀI CHÍNH KẾ TỐN FAST VÀ BÀI TOÁN QUẢN LÝ KHO HÀNG I Vài nét lịch sử thành lập công ty Quá trình thành lập cơng ty lĩnh vực kinh doanh Những năm đầu thập kỷ 90 này, chủ trương phát triển kinh tế mở nhiều thành phần Đảng Nhà nước toàn dân hưởng ứng thực Nhiều doanh nghiệp Nhà nước, tập thể tư nhân đời hoạt động nhiều lĩnh vực kinh tế xã hội khác mang lại hiệu đáng kể cho kinh tế quốc dân Cũng thời gian hoạt động công nghệ thông tin nước ta quan tâm phát triển mạnh mẽ theo tinh thần Nghị định 49CP Chính phủ Các quan, đơn vị mở rộng việc áp dụng kỹ thuật tin học vào công tác quản lý không việc trang bị máy móc thiết bị đại mà cịn xây dựng ứng dụng phần mềm mạnh hơn, phù hợp với yêu cầu đơn vị, lĩnh vực hoạt động tài - kế tốn Đó tiền đề cho ý tưởng thành lập Cơng ty cổ phần phần mềm tài kế tốn Fast ơng Nguyễn Thành Nam Nguyễn Hồng Chương Thời gian chuẩn bị cho đời Cơng ty Cổ phần Phần mềm Tài Kế toán tháng năm 1996 với đầu tư trí lực tiền vốn nhóm cán khoa học kỹ thuật tâm huyết với ngành tin học Đến tháng năm 1997 Công ty thức tuyên bố thành lập theo giấy phép số 3096/GP – UB Uỷ ban nhân dân thành phố Hà Nội cấp ngày 11/6/1997 giấy chứng nhận đăng ký kinh doanh số 056067 Sở Kế hoạch Đầu tư thành phố Hà Nội cấp ngày 18/6/1997 Tên tiếng Việt Công ty là: Công ty Cổ phần Phần mềm Tài Kế tốn Tên tiếng Anh Công ty là: The Financial & Accounting Software Company, viết tắt FAST Trụ sở công ty đặt số 18 Đường Nguyễn Chí Thanh Quận Ba Đình Hà Nội Những ngày đầu Cơng ty Fast gồm thành viên ông: Phan Quốc Khánh: Giám đốc Phan Đức Trung : Phạm Văn Lộc : Trưởng phòng triển khai Phạm Văn Nam: Bảo vệ Phó giám đốc Là cơng ty cổ phần cổ đơng góp vốn nên để vào hoạt động, Công ty bầu hội đồng quản trị bao gồm ông bà sau: Bà Đinh Thị Hoa : Chủ tịch HĐQT Ông Nguyễn Thành Nam: Phó chủ tịch HĐQT Ông Phan Quốc Khánh: Phó chủ tịch HĐQT kiêm Giám đốc Ônng Phan Đức Trung: Thành viên HĐQT Ông Nguyễn Hồng Chương Ông Nguyễn Khắc Thành Ông Khúc Trung Kiên Vốn điều lệ công ty 1.000.000.000đ chia thành 10.000 cổ phiếu, cổ phiếu trị giá 100.000đ Lĩnh vực kinh doanh chủ yếu công ty xác định từ ban đầu ghi giấy đăng ký kinh doanh là: - Sản xuất kinh doanh phần mềm máy tính - Bn bán hàng tư liệu tiêu dùng (thiết bị điện tử tin học, máy tính) - Dịch vụ thơng tin khoa học công nghệ - Dịch vụ tư vấn chuyển giao cơng nghệ Tổ chức quy trình sản xuất kinh doanh công ty Fast 2.1 Tổ chức cơng ty Fast Từ chỗ có nhân viên ngày đầu thành lập, sau năm hoạt động Cơng ty có độ ngũ nhân viên 30 người với chi nhánh TP Hồ Chí Minh Cơng ty Fast cơng ty cổ phần lãnh đạo cao Cơng ty Hội đồng quản trị, nơi đưa định quan trọng liên quan tới định hướng phát triển lâu dài Công ty Bên Hội đồng quản trị Ban giám đốc Công ty – phận trực tiếp điều hành hoạt động sản xuất kinh doanh hàng ngày theo kế hoạch Công ty mà người đứng đầu ông Phan Quốc Khánh - Giám đốc Công ty Ban giám đốc Công ty nơi đưa định kinh doanh cụ thể, trực tiếp Cơ cấu tổ chức Cơng ty cịn bao gồm phận như: nghiên cứu thị trường, sản xuất, kinh doanh, triển khai, kế tốn, đào tạo, văn phịng chi nhánh thành phố Hồ Chí Minh Bộ phận nghiên cứu thị trường có nhiệm vụ tìm kiếm thị trường, tìm kiếm khách hàng có nhu cầu sản phẩm Công ty mà chủ yéu sản phẩm phần mềm quản lý kế toán Bộ phận sản xuất có nhiệm vụ chủ yếu viết chương trình, phần mềm theo yêu cầu cụ thể khách hàng; đồng thời phất triển phần mềm kế tốn riêng Cơng ty với mục đích để bán cho đơng đảo doanh nghiệp Việt Nam Bộ phận kinh doanh triển khai có nhiệm vụ cài đặt, hướng dẫn khách hàng sử dụng phần mềm Công ty, bảo hành sản phẩm thời hạn thoả thuận, giải đáp thắc mắc khách hàng trình họ sử dụng khai thác sản phẩm Công ty Để phục vụ cho phát triẻn mở rộng Công ty tương lai, Công ty Fast trọng tới việc đào tạo người, với mục đích tạo dựng đội ngũ nhân viên có đầy đủ khả năng, đáp ứng đòi hỏi ngày khắt khe khách hàng Chính vậy, Cơng ty thành lập phận đào tạo (nội bộ) với mục đích bồi dưỡng liên tục trình độ hiểu biết tin học nghiệp vụ kế toán cho nhân viên Cơng ty Bộ phận Kế tốn có chức nhiệm vụ quản lý tài Cơng ty, theo dõi tốn hợp đồng, tốn chi phí cho hoạt động sản xuất kinh doanh Công ty, thực chế độ hạch toán kế toán theo chế độ Nhà nước ban hành Bộ phận văn phịng có nhiệm vụ thực cơng tác hành chính, quản trị quan hệ Cơng ty Chi nhánh Công ty thành phố Hồ Chí Minh cánh tay nối dài chịu quản lý, đạo hoạt động sản xuất kinh doanh Công ty địa bàn tỉnh, thành phố phía nam Xin tóm tắt cấu tổ chức Công ty Fast qua sơ đồ đây: Hội đồng quản trị Ban giám đốc Thị Sản Kinh Triển Kế Đào Văn Chi trường xuất doanh khai tốn tạo phịng nhánh (nội Tp bộ) HCM 2.2 Quy trình hoạt động sản xuất kinh doanh Công ty Fast công ty cổ phần hoạt động kinh doanh với mục đích tìm kiếm lợi nhuận Mặc dù sản phẩm Công ty phần mềm tin học chủ yếu phục vụ cho doanh nghiệp kinh doanh khác quy trình hoạt động sản xuất kinh doanh Cơng ty khơng có khác doanh nghiệp Trước tiên, Công ty phải nghiên cứu thị trường, tìm hiểu xác định yêu cầu khách hàng lĩnh vực tài chính, kế tốn họ Song song với việc này, Cơng ty tiến hành tiếp thị, giới thiệu cho khách hàng chức hoạt động Công ty, khả mà Cơng ty cung cấp, hỗ trợ cho khách hàng sản phẩm tin học Cơng ty Khi có khách hàng, Cơng ty tiến hành sản xuất hàng hoá theo yêu cầu khách Ở đây, mảng cơng việc đầu tư viết chương trình, phần mềm tin học mà chủ yếu phần mềm kế toán quản lý Việc cung cấp tư liệu tiêu dùng (máy móc thiết bị) dịch vụ khác chiếm tỷ trọng nhỏ doanh số Công ty Công ty Fast không viết phần mềm theo yêu cầu khách hàng mà cịn ln cố gắng thiết kế, xây dựng phần mềm phục vụ đông đảo doanh nghiệp Việt Nam sở nắm bắt xu hướng nhu cầu chung, đó, sản phẩm chương trình kế tốn Fast Accounting Với sản phẩm riêng có Công ty phải giới thiệu, quảng cáo, chào hàng rộng rãi tới doanh nghiệp, đơn vị để họ mua sử dụng thường xuyên hoạt động tài kế tốn họ Đây nhiệm vụ quan trọng thiếu Công ty Fast Tiếp theo việc bán cung cấp sản phẩm theo yêu cầu khách hàng việc cài đặt hướng dẫn sử dụng phần mềm bảo hành sản phẩm thời hạn thoả thuận Điều làm cho quan hệ khách hàng Công ty chặt chẽ hơn, tin cậy hơn; khách hàng làm việc lâu dài với Công ty Sau sản phẩm, hàng hoá đựợc bàn giao nghiệm thu hai bên việc toán tiền hợp đồng mua bán cung cấp phận kế toán Cơng ty thực tốn hợp đồng Quy trình hoạt động sản xuất kinh doanh cơng ty Fast tóm tắt qua bảng sau: Cơng việc, công đoạn Bộ phận thực Nghiên cứu thị trường tiếp Thị trường (Marketing) 10 thị Sản xuất Bán hàng Triển khai bảo hành Thu tiền Sản xuất (lập trình) Bán hàng Triển khai Kế toán If nut = Then Set db = OpenDatabase(Loctext + "hethong.mdb") db.Execute "Insert into ctx select mact,stt0,mavt,soluong,dongia,tien from phu" Dim rs1 As Recordset Set rs = db.OpenRecordset("phu") rs.MoveFirst Do While rs.EOF = False Set rs1 = db.OpenRecordset("select * from tonkho where makho='" & Text12.Text & "' and mavt='" & rs.Fields(2).Value & "'") rs1.Edit rs1.Fields(2).Value = rs1.Fields(2).Value - rs.Fields(4).Value rs1.Update rs1.Close rs.MoveNext Loop rs.Close db.Close Else Set db = OpenDatabase(Loctext + "hethong.mdb") db.Execute "Insert into ctnh select mact,stt0,mavt,soluong,dongia,tien from phu" Set rs = db.OpenRecordset("phu") rs.MoveFirst Do While rs.EOF = False Set rs1 = db.OpenRecordset("select * from tonkho where makho='" & Text1.Text & "' and mavt='" & rs.Fields(2).Value & "'") If rs1.BOF = rs1.EOF And rs1.EOF = True Then rs1.AddNew rs1.Fields(0).Value = Text12.Text rs1.Fields(1).Value = rs.Fields(2).Value rs1.Fields(2).Value = rs.Fields(4).Value rs1.Update Else rs1.Edit rs1.Fields(2).Value = rs1.Fields(2).Value + rs.Fields(4).Value rs1.Update End If rs1.Close rs.MoveNext Loop rs.Close 87 db.Close End If Frame1.Enabled = False Frame2.Enabled = False Frame3.Enabled = False Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True Command8.Enabled = True Command1.Caption = "Nhập" Data2.Recordset.MoveLast chuyen Command1.SetFocus End Sub Private Sub Command4_Click() xoa Command1.Enabled = True Command1.Caption = "Nhập" Command2.Enabled = True If Data2.Recordset.BOF = False Then Data2.Recordset.MoveLast chuyen Command3.Enabled = False Command4.Enabled = False Command5.Enabled = True Else Command5.Enabled = False End If Frame1.Enabled = False Frame2.Enabled = False Frame3.Enabled = False Command6.Enabled = True Command7.Enabled = True Command8.Enabled = True End Sub Private Sub Command5_Click() 88 dk = MsgBox("Bạn có chắn xố khơng ?", vbCritical + vbYesNo, "Chú ý") If dk = vbYes Then Data2.Recordset.Delete Data2.Refresh If Data2.Recordset.BOF Then Command5.Enabled = False End If End If End Sub Private Sub Command6_Click() Set db = OpenDatabase(Loctext + "hethong") db.Execute "delete * from table1" Set rs = db.OpenRecordset("table1") rs.AddNew rs.Fields(0).Value = Text1.Text rs.Update rs.Close 'rs.Close db.Close If Label1.Caption = "Phiếu Xuất Kho" Then CrystalReport1.DataFiles(0) = Loctext & "hethong.mdb" CrystalReport1.ReportFileName = Loctext$ + "px.rpt" Else CrystalReport1.DataFiles(0) = Loctext & "hethong.mdb" CrystalReport1.ReportFileName = Loctext$ + "pnh.rpt" End If On Error GoTo ErrorHandler CrystalReport1.Action = Screen.MousePointer = Exit Sub ErrorHandler: MsgBox CrystalReport1.LastErrorString Screen.MousePointer = Exit Sub End Sub Private Sub Command7_Click() dktk.Show dk = "mact='" & ma & "'" 89 Data2.Recordset.FindFirst dk Data2.Recordset.MoveNext Data2.Recordset.MovePrevious chuyen End Sub Private Sub Command8_Click() Unload Me End Sub Private Sub Data2_Reposition() 'On Error GoTo loi If kt = False Then Exit Sub If Not IsNull(Data2.Recordset.Fields(1).Value) Then Text1.Text = Data2.Recordset.Fields(1).Value Else Text1 = "" End If If Not IsNull(Data2.Recordset.Fields(2).Value) Then MaskEdBox1.Text = Data2.Recordset.Fields(2).Value Else MaskEdBox1.Text = " / / " End If If Not IsNull(Data2.Recordset.Fields(3).Value) Then Text13.Text = Data2.Recordset.Fields(3).Value Else Text13 = "" End If Set db = OpenDatabase(Loctext + "hethong.mdb") Set rs = db.OpenRecordset("select * from dmkh where makh='" & Text13.Text & "'") Text2.Text = rs.Fields(1).Value rs.Close db.Close If Not IsNull(Data2.Recordset.Fields(4).Value) Then Text12.Text = Data2.Recordset.Fields(4).Value Else Text12 = "" End If If Not IsNull(Data2.Recordset.Fields(6).Value) Then Text3.Text = Data2.Recordset.Fields(6).Value Else 90 Text3 = "" End If If Not IsNull(Data2.Recordset.Fields(7).Value) Then Text4.Text = Data2.Recordset.Fields(7).Value Else Text4 = "" End If If Not IsNull(Data2.Recordset.Fields(5).Value) Then Text9.Text = Data2.Recordset.Fields(5).Value Else Text9 = "" End If chuyen ' DBGrid1.SetFocus Exit Sub loi: If Err.Number = 3021 Then Exit Sub End If End Sub Private Sub Data2_Validate(Action As Integer, Save As Integer) Select Case Action Case vbDataActionMoveFirst kt = True Case vbDataActionMovePrevious kt = True Case vbDataActionMoveNext kt = True Case vbDataActionMoveLast kt = True Case vbDataActionAddNew kt = False Case vbDataActionUpdate kt = False Case vbDataActionDelete kt = True Case vbDataActionFind kt = False Case vbDataActionBookmark Case vbDataActionClose End Select 91 End Sub Private Sub Form_Load() Frame1.Enabled = False Frame2.Enabled = False Frame3.Enabled = False Frame4.Enabled = False Command3.Enabled = False Command4.Enabled = False If nut = Then Label1.Caption = "Phiếu Xuất Kho" Data1.DatabaseName = Loctext + "Hethong.mdb" Data1.RecordSource = "phu" Data1.Refresh Data2.DatabaseName = Loctext + "Hethong.mdb" Data2.RecordSource = "phieux" Data2.Refresh 'Data3.DatabaseName = Loctext + "hethong.mdb" 'Data3.RecordSource = "ctx" 'Data3.Refresh xoa If Data2.Recordset.BOF = False Then Data2.Recordset.MoveLast chuyen Else Command5.Enabled = False End If Else Label1.Caption = "Phiếu Nhập Kho" Data1.DatabaseName = Loctext + "Hethong.mdb" Data1.RecordSource = "phu" Data1.Refresh Data2.DatabaseName = Loctext + "Hethong.mdb" Data2.RecordSource = "phieunh" Data2.Refresh xoa If Data2.Recordset.BOF = False Then Data2.Recordset.MoveLast chuyen Else Command5.Enabled = False End If 92 End If End Sub Private Sub Form_Resize() Me.Width = 8100 Me.Height = 5145 Me.Top = Me.Left = (Screen.Width - Me.Width) / End Sub Private Sub MaskEdBox1_GotFocus() MaskEdBox1.SelStart = MaskEdBox1.SelLength = Len(MaskEdBox1.Text) End Sub Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text1.SetFocus End If End Sub Private Sub Text1_GotFocus() Text1.SelStart = Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text12.SetFocus End If End Sub Private Sub Text12_GotFocus() Text1.SelStart = Text1.SelLength = Len(Text12.Text) End Sub Private Sub Text12_KeyPress(KeyAscii As Integer) KeyAscii = tck.Show Text12.Text = ma Text13.SetFocus End Sub 93 Private Sub Text13_GotFocus() Text1.SelStart = Text1.SelLength = Len(Text13.Text) End Sub Private Sub Text13_KeyPress(KeyAscii As Integer) KeyAscii = Text2.SetFocus End Sub Private Sub Text2_GotFocus() Dim dk As String If Len(Text2.Text) = Then ttt.Show Text13.Text = ma Text2.Text = ten Text9.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End If End Sub Private Sub Text3_GotFocus() Text3.SelStart = Text3.SelLength = Len(Text3.Text) End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text4.SetFocus End If End Sub Private Sub Text4_GotFocus() Text4.SelStart = Text4.SelLength = Len(Text4.Text) End Sub 94 Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text5.SetFocus End If End Sub Private Sub Text5_GotFocus() Text5.SelStart = Text5.SelLength = Len(Text5.Text) End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) KeyAscii = Text6.SetFocus End Sub Private Sub Text6_GotFocus() If Len(Text5.Text) = Then tt.Show Text5.Text = ma Text6.Text = ten Text7.SetFocus End If End Sub Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text17.SetFocus End If End Sub Private Sub Text7_GotFocus() Text7.SelStart = Text7.SelLength = Len(Text7.Text) End Sub Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode < 48 Or KeyCode > 57) And KeyCode 13 And KeyCode 37 And KeyCode 39 And KeyCode 46 And KeyCode Then KeyCode = End If 95 End Sub Private Sub Text7_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text8.SetFocus Else If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii 37 And KeyAscii 39 And KeyAscii 46 And KeyAscii Then KeyAscii = End If End If End Sub Private Sub Text8_GotFocus() Text8.SelStart = Text8.SelLength = Len(Text8.Text) End Sub Private Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode < 48 Or KeyCode > 57) And KeyCode 13 And KeyCode 37 And KeyCode 39 And KeyCode 46 And KeyCode Then KeyCode = End If End Sub Private Sub Text8_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus Else If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii 37 And KeyAscii 39 And KeyAscii 46 And KeyAscii Then KeyAscii = End If End If End Sub Private Sub Text9_GotFocus() Text9.SelStart = Text9.SelLength = Len(Text9.Text) End Sub 96 Private Sub Text9_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If End Sub Form DKTK (Tìm kiếm) : Private Sub Combo1_Click() Combo2.SetFocus End Sub Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Combo2.SetFocus End If End Sub Private Sub Combo2_Click() Text1.SetFocus End Sub Private Sub Combo2_GotFocus() Combo2.AddItem ("=") Combo2.AddItem (">") Combo2.AddItem ("