هنگ کردن برنامه موقع سرچ کردن

[ehsanes]

سلام

برنامه در موقع اجرا به خوبی کار میکنه وهیچ error نمیده اما وقتی از سرچ استفاده میکنم

کلا سیستم هنگ میکنه وباید ریست کنم از بانک sql هم استفاده میکنم مشکل از چی

میتونه باشه

ممنون

[Felony]

تو بانکتون جست و جو میکنید ؟ اگر بله که کدی که برای جست و جو تو بانک نوشتید رو قرار بدید ، شاید شرطی گزاشتید که برقرار نمیشه یا برنامه تو حلقه بی نهایت میافته ...

در هر صورت اگر مشکلتون با بانک هست باید تو بخش بانک های اطلاعاتی بپرسید نه مباحث عمومی دلفی .

[mehdimdp]

تو بانکتون جست و جو میکنید ؟ اگر بله که کدی که برای جست و جو تو بانک نوشتید رو قرار بدید ، شاید شرطی گزاشتید که برقرار نمیشه یا برنامه تو حلقه بی نهایت میافته ...

در هر صورت اگر مشکلتون با بانک هست باید تو بخش بانک های اطلاعاتی بپرسید نه مباحث عمومی دلفی .

و همچنین تعداد کل رکوردهایی که مورد جستجو قرار می گیرند چند تا هستش؟؟؟
به احتمال زیاد برنامه شما هنگ نمیکنه . مدتی صبر کنید شاید حلقه کارش تموم بشه و برنامه از حالت هنگ درمیاد

[ehsanes]

سلام

این تمام کد هست تا حالا هم اصلا دلفی کار نکردم نمیدونم مشکل از کجاست


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit4: TEdit;
Label4: TLabel;
ListBox1: TListBox;
ListBox2: TListBox;
Label5: TLabel;
Label6: TLabel;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button4: TButton;
GroupBox2: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.Button4Click(Sender: TObject);
begin
form1.Close
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
begin
table1.Append;
table1.FieldValues['Code']:=edit1.Text;
table1.FieldValues['Name']:=edit2.Text;
table1.FieldValues['Family']:=edit3.Text;
table1.FieldValues['Year']:=edit4.Text;
//************************************
if checkbox1.Checked=true then
table1.FieldValues['Taahol']:=checkbox1.Caption ;
//************************************
if checkbox2.Checked=true then
table1.FieldValues['Taahol']:=checkbox2.Caption;
//*************************************
if radiobutton1.Checked=true then
table1.FieldValues['Jensiat']:=radiobutton1.Caption;
//*************************************
if radiobutton2.Checked=true then
table1.FieldValues['Jensiat']:=radiobutton2.Caption;
//*************************************
for i:=1 to listbox2.Items.Count-1 do
if listbox2.Selected[i]=true then
table1.FieldValues['Day']:=listbox2.Items[i];
//**************************************
for n:=1 to listbox1.Items.Count-1 do
if listbox1.Selected[n]=true then
table1.FieldValues['Month']:=listbox1.Items[n];
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form2.Show
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
form3.Show
end;
end.

[Felony]

اولا Table رو در حالت Append قرار میدید ولی بعد از مقدار دهی فیلدها Table رو Post نمیکنید .

ثانیا این قسمت کد رو خیلی کشش دادید ، خیلی ساده تر میشه نوشتش :



//*************************************
for i:=1 to listbox2.Items.Count-1 do
if listbox2.Selected[i]=true then
table1.FieldValues['Day']:=listbox2.Items[i];
//**************************************
for n:=1 to listbox1.Items.Count-1 do
if listbox1.Selected[n]=true then
table1.FieldValues['Month']:=listbox1.Items[n];
در ضمن برای چی متغیر i و n رو برای حلقه ها تعریف کردید ؟ همون i کافی بود ، این باعث مصرف اضافی حافظه میشه .

بهتره اول با اصول برنامه نویسی با دلفی آشنا بشید بعد شروع به نوشتن برنامه کنید .

موفق باشید .

[ehsanes]

ممنون

اصلا دلفی کار نکردم این بار هم مجبور بودم وقتش هم نداشتم اصول کار یادبگیرم این هم پروژم هست

میتونی بررسی کنی مشکل از کجا هست ممنون

[Felony]

برنامه در موقع اجرا به خوبی کار میکنه وهیچ error نمیده اما وقتی از سرچ استفاده میکنم
میگی وقتی از جست و جو استفاده میکنی هنگ میکنه درسته ؟ بعد میای کد دکمه " ثبت " رو میزاری تا بررسی بشه !!!

من بانک SQL شما رو ندارم که تست کنم ، با توجه به سوالات و مباحثی که تو بخش پایگاه داده دلفی هست به راحتی میتونید مشکلتون رو حل کنید .

[ehsanes]

اولا Table رو در حالت Append قرار میدید ولی بعد از مقدار دهی فیلدها Table رو Post نمیکنید .

.

میتونی این قسمت بیشتر توضیح بدی