یک پروژه خیلی ساده هنرستانی با زبان ویژوال بیسیک و دیتا بیس اکسس+لطفا قیمت دانش آموزی حساب گنید

شرح پروژه

 با سلام یک پروژه هنرستانی میخوام خیلی ساده برنامه حسابداری باشه

فقط ثبت کالا 

ثبت مشتری 

جستجو

ثبت کاربر

ی سری توضیحات هم دبیرمون داده اونم میفرستم براساس اون پیش برین

اولین قدم برای نوشتن یک نرم افزار حسابداری ایجاد یک پایگاه داده برای ذخیره سازی اطلاعات است. پس به وسیله اکسس یک دیتا بیس میسازیم.خوب از الان باید برای خودتون مشخص کنین که توی این نرم افزار قراره چه حساب هایی داشته باشید.اولین و مهم ترین حساب مدیریت مشتریان هست حسابی که به راحتی به اطلاعات مشتری خودمون بتونیم دسترسی داشته باشیم.پس یه تیبل به نام customer و با فیلد های ID و Name و Tell و Pardakhtani و Kharid و Mandeh ایجاد میکنیم.من اسم دیتا بیس رو میزارم dbase .در ضمن این فیلد ها سلیقه ای هست و میتونید بیشتر درست کنید.

خب اگه ویژال بیسیک روی سیستمتون نصب هست که هیچ اگه دسترسی ندارین من نسخه پرتابل رو گذاشتم آخر این تایپیک دانلود کنید اما توصیه من نصب کامل هست.حالا ویژال بیسیک رو باز کنید موقع اجرا به طورخودکار از شما میخواد که یکی از گزینه ها رو انتخاب کنید شما standard exe رو انتخاب کنید. برای اتصال به بانک به یه اکتیو ایکس نیاز داریم و یکی دیگه هم برای ساخت دیتا گرید (جدول خودمون) نیاز داریم برای اینکار همزمان دو کلید conetrol+T رو فشار میدیم از پنجره باز شده این دو رو انتخاب میکنیم microsoft ADO Data control6.0 و microsoft Datagrid 6. خب ما یه فرم لازم داریم همون فرمی که تمامی امکانات نرم افزار قراره بزاریم.خوب دو روش وجود داره واسه ساخت منو ها. روش اول استفاده از کلید ها و روش دوم ساخت منو ای که بالای صفحه وجود داشته باشه. از toll box سمت چپ گزینه command button انتخاب کنید رو روی فرم اصلی یک کلید بسازید.بعد از انتخاب موس شما به شکل + تغییر شکل خواهد داد.نامش رو از قسمت مشخصات سمت راست میتونید تغییر بدین. (Caption) من گزاشتم ثبت مشتری جدید روی اون کلید دابل کلیک کنید یه صفحه باز میشه توش نوشته

کد:

Private Sub Command1_Click()

End Sub

ما هم باید بنویسیم بین اون دو جمله بالا(وسطش)

کد:

form2.show 1

اینجوری میشه

کد:

Private Sub Command1_Click()

Form2.Show 1

End Sub

حالا یه فرم جدید ایجاد کنید

کنترل adoc رو به فرم اصلی اضافه کنید.واسه اتصال به دیتابیس دو روش وجود داره ویزار و کد نویسی روش ویزارد راحت تره اما اگه پوشه نرم افزار و جای دیگه ببرین دیگه نمیتونه دیتا بیس رو بشناسه پس از روش دیگه استفاده میکنیم

 کد:

Private Sub Command1_Click()

End Sub

ما هم باید بنویسیم بین اون دو جمله بالا(وسطش)

کد:

form2.show 1

اینجوری میشه

کد:

Private Sub Command1_Click()

Form2.Show 1

End Sub

حالا یه فرم جدید ایجاد کنید

کنترل adoc رو به فرم اصلی اضافه کنید.واسه اتصال به دیتابیس دو روش وجود داره ویزار و کد نویسی روش ویزارد راحت تره اما اگه پوشه نرم افزار و جای دیگه ببرین دیگه نمیتونه دیتا بیس رو پیدا کنه پس ما روش کد نویسی رو انتخاب میکنیم با استفاده از این کدروی فرم جدیدی که ایجاد کردید دابل کلیک کرده و این کد رو وارد کنید

کد:

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbase.mdb;"

   Adodc1.RecordSource = "SELECT * FROM Customer"

   Adodc1.Refresh

    dbPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbase.mdb;"

   Set Cnn = New ADODB.Connection

   Cnn.CursorLocation = adUseClient

   Cnn.ConnectionString = dbPath

   Cnn.Open

dbase.mdb نام دیتابیس هست پس باید نام دیتابیس رو هرچی گذاشتین اینجا هم تغییر بدین.

توی اون فرم جدید که ایجاد کردین دو تا لیبل اضافه کنید.نام یه لیبل رو بزارید نام و نام خانوداگی مشتری ویه تکست باکس جلوی اون ایجاد کنید.لیبل دیگه شماره تلفن و یه تکست باکس دیگه جلوی این بکشید.حالا وقتش هست دو تا کلید ایجاد کنید یکی ثبت مشتری جدید و دیگری انصراف روی تکس باکس جلوی نام و نام خانوادگی دابل کلیک کنید و کد زیر رو وارد کنید

کد:

If Trim(Text1) <> "" Then

     Adodc1.RecordSource = "SELECT * FROM Customer WHERE Name='" & Trim(Text1) & "'"

       Adodc1.Refresh

      End If

کد بالا یه ########## سازی هست که پایین کارش رو میفهمید.

روی کلید ثبت مشتری دابل کلیک کنید و کد های زیر رو بنویسید.

کد:

If Trim(Text1) = "" Then

      MsgBox " äÇã ãÔÊÑí ÈÑÇí ËÈÊ ÍÊãÇ ÈÇíÏ äæÔÊå ÔæÏ ", vbExclamation, "Error"

      Exit Sub

   End If

   If Trim(Text3) = "" Then

      MsgBox " ÔãÇÑå åãÑÇå ÈÑÇí ËÈÊ ÍÊãÇ ÈÇíÏ äæÔÊå ÔæÏ ", vbExclamation, "Error"

      Exit Sub

   End If

   If Adodc1.Recordset.RecordCount > 0 Then

    MsgBox "Çã˜Çä ËÈÊ ÇØáÇÚÇÊ Ê˜ÑÇÑí æÌæÏ äÏÇÑÏ."

    Exit Sub

    End If

   If Add_or_Edit = True Then

      Adodc1.RecordSource = "SELECT * FROM Customer WHERE ID=" & Customer_ID

      Adodc1.Refresh

      Adodc1.Recordset.Fields("Name") = Trim(Text1)

      Adodc1.Recordset.Fields("Tell") = Trim(Text3)

      Adodc1.Recordset.Update

   Else

      Adodc1.RecordSource = "SELECT * FROM Customer "

      Adodc1.Refresh

      Adodc1.Recordset.AddNew

      Adodc1.Recordset.Fields("Name") = Trim(Text1)

      Adodc1.Recordset.Fields("Tell") = Trim(Text3)

      Adodc1.Recordset.Update

   End If

   Unload Me

مهارت ها و تخصص های مورد نیاز

درباره کارفرما

کاربر335844

عضویت دو سال پیش

3 پروژه ثبت شده ،

0 پروژه در حال انجام ،

0 پروژه آماده دریافت پیشنهاد ،

نرخ پذیرش پیشنهاد 33%