دانلود با لینک مستقیم و پر سرعت .
مقدمه
داروخانه ها و محصولاتی که درآنها موجود است
بسیاری از داروخانه ها به زنجیره ای از داروخانه ها تعلق دارند. داروخانه ها، داروسازان و سایر افرادی که در زمینه دارو و استفاده از آن آموزش دیده اند را استخدام می کنند. افرادی که در داروخانه کار می کنند می توانند در یافتن داروهای مناسب و سایر اجناسی که مورد نیاز ما است به ما کمک کنند. آنها می توانند راهنمایی های خوبی راجع به معالجه بیماری های جزئی و داروهای پیشگیری کننده ارائه دهند.
در یک داروخانه می توان انواع داروها، ویتامین ها، کرم های مختلف، وسایل ضد بارداری، تست های بارداری، داروها و وسایل گوناگون برای معالجه بریدگی ها، جراحات و زخم ها، لوازم بهداشتی و آرایشی را تهیه نمود.
امروزه، به ماهیت حقیقی بهداشت و سلامت توجه زیادی می شود. ما دانش و اطلاعات زیادی راجع به رابطه بین آنچه می خوریم، شیوه زندگی و سلامت داریم. همچنین مجموعه گسترده ای از داروها و معالجات وجود دارد که می توانند یا بیماری ها را مداوا کنند و یا تحمل آنها را آسان تر کنند. همواره داروهای جدیدی ساخته می شود و اغلب بیماری هایی که قبلاً هیچ درمانی برای آنها وجود نداشت امروزه قابل درمان هستند. یک نمونه از این بیماری ها سرطان است.
Form1
Private Sub Command1_Click()
If Text1.Text = 1000 Then
Form2.Show
Else
MsgBox "INVALID PASSWORD"
End If
End Sub
Form2
Form2.Show
Form6.Show 1
End Sub
Private Sub f12_Click()
Form2.Show
Form10.Show 1
End Sub
Private Sub f13_Click()
Form2.Show
Form11.Show 1
End Sub
Private Sub f14_Click()
Form2.Show
Form12.Show 1
End Sub
Private Sub f16_Click()
DataReport1.Show 1
End Sub
Private Sub f17_Click()
DataReport2.Show 1
End Sub
Private Sub f19_Click()
End
End Sub
Private Sub f3_Click()
Form2.Show
Form7.Show 1
End Sub
Private Sub f4_Click()
Form2.Show
Form8.Show 1
End Sub
Private Sub f5_Click()
Form2.Show
Form9.Show 1
End Sub
Private Sub f7_Click()
Form2.Show
Form3.Show 1
End Sub
Private Sub f8_Click()
Form2.Show
Form4.Show 1
End Sub
Private Sub f9_Click()
Form2.Show
Form5.Show 1
End Sub
Form3
Private Sub Command23_Click()
Form3.Hide
Form2.Show
End Sub
Form4
Private Sub Command4_Click()
Form4.Hide
Form2.Show
End Sub
Form5
Private Sub Command1_Click()
With de1.rsinfo
If .State = 0 Then .Open
.AddNew
!namedaroo = Text1.Text
!namesherkatesazande = Text2.Text
!dastedarooe = DataCombo1.BoundText
!mavaredemasraf = Text3.Text
!meghdaremasraf = Text4.Text
!avarezejanebi = Text5.Text
!mavaredeehtiat = Text6.Text
.UpdateBatch
.Close
End With
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
DataCombo1.BoundText = ""
End Sub
Private Sub Command2_Click()
With de1.rsinfo
If .State = 1 Then .Close
.Open
sw = 0
Do While Not .EOF
If !namedaroo = Text1.Text Then
Text1.Text = !namedaroo
Text2.Text = !namesherkatesazande
DataCombo1.BoundText = !dastedarooe
Text3.Text = !mavaredemasraf
Text4.Text = !meghdaremasraf
Text5.Text = !avarezejanebi
Text6.Text = !mavaredeehtiat
sw = 1
Exit Do
End If
.MoveNext
Loop
.Close
End With
If sw = 0 Then
MsgBox "not found record"
End If
End Sub
Private Sub Command3_Click()
With de1.rsinfo
If .State = 1 Then .Close
.Open
Do While Not .EOF
If !namedaroo = Text1.Text Then
!namedaroo = Text1.Text
!namesherkatesazande = Text2.Text
!dastedarooe = DataCombo1.BoundText
!mavaredemasraf = Text3.Text
!meghdaremasraf = Text4.Text
!avarezejanebi = Text5.Text
!mavaredeehtiat = Text6.Text
Exit Do
End If
.MoveNext
Loop
.UpdateBatch
.Close
End With
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
DataCombo1.BoundText = ""
End Sub
Private Sub Command4_Click()
With de1.rsinfo
If .State = 1 Then .Close
.Open
Do While Not .EOF
If !namedaroo = Text1.Text Then
.Delete
Exit Do
End If
.MoveNext
Loop
.UpdateBatch
.Close
End With
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
DataCombo1.BoundText = ""
End Sub
Private Sub Command5_Click()
Form5.Hide
Form2.Show
End Sub
فرمت این مقاله به صورت Word و با قابلیت ویرایش میباشد
تعداد صفحات این مقاله 22 صفحه
پس از پرداخت ، میتوانید مقاله را به صورت انلاین دانلود کنید
