سلام دوباره
راستش شاید بهتر باشه کار را برای خودم انجام بدهم و چیزی اینجا گزارش ندهم.
بلاخره ساخت اولین صفحه بدون خطا و اونطور که می خواستم به پایان رسید. حالا می تونم ساختش را به صورت قدم به قدم توضیح بدهم. و در پایان هم اگه برنامه کامل شد اون را هم اینجا قرار می دهم. (اون روز اگر کسی در موردی سوالی داشت بگه تا توضیح بدهم.)
به طور خلاصه قصد بر این است که بتوانیم کالا و اموال و خدمات را ذخیره کنیم. هر کدام دارای اسم، قیمت خرید . قیمت فروش، تعداد موجود، گروه خواهد بود. همچنین هر کالا یک کد داره که خود برنامه باهاش کار می کنه ما فقط می بینیمش و درگیر این کد نمی شیم.
قبل از اینکه بخواهیم وارد موضوع کار با کالا ها بشویم ترجیح می دم گروه ها را تعریف کنیم.
برویم سراغ همین یک صفحه:
ابتدا باید ایتم های ضروری را بوجود بیاوریم:
id0 که با گذاشتن یک HotSpot قفلش کرده ام تا کاربر نتونه تغییرش بدهد. و gr0 که نام گروه هست. و دکمه ثبت که کاربر اسم گروه را در دیتا بیسش ذخیره می کنه.
تا اینجای کار ببینیم اسکریپ ابتدای صفحه چی باشه:
1- بررسی انکه اصلا فایل دیتا بیس وجود داره یا نه (مخصوصا اولین اجرا که وجود نداره) اگه وجود نداشت اون را بوجود بیاره. اینکار را داخل یک اسکریپ دیگه به اسم Ifsql واگذار می کنیم.
بعد از این باید ببینیم id اتوماتیک اضافه بشه بنابراین باید ببینیم که این دیتابیس ما چند ردیف داره. این کار را هم به اسکریپ Rows واگذار می کنیم
id این گروه از 101 شروع میشه (دلخواه است) بنابراین بعد از بدست اوردن تعداد ردیف های دیتابیس اون را با 101 جمع می کنیم تا id جدید بدست بیاید.
دکمه ثبت هم وظیفه اش قرار دادن این اطلاعات (id0 ,gr0) داخل دیتا بیس هست. و بعد از انجام موفقیت آمیز یک واحد به متغیر Rows که تعداد ردیف های دیتابیس هست اضافه می کنه.
تا اینجای کار داریم:
اسکریپ ابتدای صفحه:
کد:
** cread sql if not exist
RunScript("Ifsql")
RunScript("initialization")
RunScript("Rows")
اسکریپ
Ifsql
کد:
save$='G:\barname nevisi\mmb\hesabsa\db\Gdaraii.db'
FileExist("save$","exist")
If (exist=0) Then
** run plugin aql
PluginRun("SQL_Plugin","SQLiteInit")
** test run
PluginGet("SQL_Plugin","Initialized")
** --------------
** --------------
** send local of file
PluginSet("SQL_Plugin","save$")
** it's a save file
PluginRun("SQL_Plugin","GetDBFileName")
** creat databis
PluginRun("SQL_Plugin","CreateSQLDB")
** test creat
PluginGet("SQL_Plugin","Created")
**********
**********
** open DB
PluginRun("SQL_Plugin","OpenSQLDB")
** test open
PluginGet("SQL_Plugin","Opened")
** there are field of table
sql_1$ = 'CREATE TABLE Gamval ('
sql_2$ = 'id INTEGER PRIMARY KEY NOT NULL,'
sql_3$ = 'gr CHAR NOT NULL );'
sql_query$ = sql_1$ + sql_2$ + sql_3$
**send pm to plugin
PluginSet("SQL_Plugin","sql_query$")
**run pm
PluginRun("SQL_Plugin","Query")
**test run (not error?!)
PluginRun("SQL_Plugin ","DBError")
** result of error!
PluginGet("SQL_Plugin","Error$")
** if no exist Gamval into sql
Else
End
اسکریپ Rows
کد:
** get number of grup
RunScript("initialization")
sql_query$ = 'SELECT * FROM Gamval WHERE id BETWEEN 101 AND 199;'
PluginSet("SQL_Plugin","sql_query$")
PluginRun("SQL_Plugin","Query")
**PluginGet("SQL_Plugin","Result$")
PluginGet("SQL_Plugin","Rows")
اسکریپ ثبت:
کد:
If (Rows=100) Then
Message("","شما به حداکثر تعداد تعريف گروه رسيده ايد. در صورت نياز به گروه هاي بيشتر با پشتيباني تماس بگيريد")
Return()
End
RunScript("initialization")
If (id0$='' | gr0$='' ) Then
Message("","Error : You must fill all blank box")
Return()
End
sql_query1$ = 'INSERT INTO Gamval (id,gr)'
sql_query2$ = ' VALUES ('+id0$+',"'+gr0$+'");'
query$ = sql_query1$ + sql_query2$
PluginSet("SQL_Plugin","query$")
PluginRun("SQL_Plugin","UpdateDB")
PluginGet("SQL_Plugin","update")
PluginRun("SQL_Plugin","DBError")
PluginGet("SQL_Plugin","Error$")
If (update<>0) Then
** Message("","Your record has been saved successfully")
Rows=Rows+1
Else
Message("","Error$")
Return()
End
*****************
temp$='10'
LoadText("gr0","temp$")