amirkazem
چهارشنبه 13 خرداد 1394, 01:53 صبح
باسلام ضمن تبریک نیمه شعبان ولادت باسعادت امام عصرعج الله
میخواهیم بااستفاده ازیک کومبوباکس وازیک پایگاه داده اکسس اطلاعات شغل اولیارااستخراج کنیم.به این صورت که شغلی که کد آن شغل ازآیتمهای کومبوانتخاب میشودوبااین شرط مضاعف که نسبت ولی بادانش آموز یکی ازگزینه های (1=پدر و2=مادر و...) باشد.خلاصه اینکه دوشرط درselectداشته باشیم.
لطفاً راهنمایی بفرمایید.(کددررویداد (On Change)کومبوباکس نوشته میشود.
var s:string;
begin
case ComboBox2.ItemIndex of
0:s:=QuotedStr('0');
1:s:=QuotedStr('1');
2:s:=QuotedStr('2');
3:s:=QuotedStr('3');
4:s:=QuotedStr('4');
5:s:=QuotedStr('5');
6:s:=QuotedStr('6');
7:s:=QuotedStr('7');
8:s:=QuotedStr('8');
9:s:=QuotedStr('9');
10:s:=QuotedStr('10');
11:s:=QuotedStr('11')+'or'+QuotedStr('0')+'or'+Quo tedStr('1') +'or'+QuotedStr('2')+'or'+QuotedStr('3')+' or '+QuotedStr('4')+'or'+QuotedStr('5')+' or '+QuotedStr('6')+
' or ' +QuotedStr('7')+'or'+QuotedStr('8')+'or'+QuotedStr ('9')+' or '+QuotedStr('10')+'or'+QuotedStr('11') ;
end;
begin
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add('select* from((((((student s inner join payeh p on s.payeh=p.code_p)'+
' inner join [class] c on s.class_name=c.code_class)'+
' inner join parents pa on s.melli_code=pa.melli_code)'+
' inner join nesbat n on pa.nesbat=n.cod)'+
' inner join shoghl sh on pa.shoghl=sh.cod_shoghl)'+
' where (sh.cod_shoghl='+s)' + ' and pa.nesbat=1)' +
' order by s.f_name asc';
ADOQuery1.Open;
form10.Caption :=('والدین دارای شغل' +' ' +QuotedStr(ADOQuery1name_shoghl.Text));
Edit1.Text :=inttostr(ADOQuery1.RecordCount);
اشکال فقط درقسمت شرط میباشد. لطفاً راهنمایی بفرمایید
میخواهیم بااستفاده ازیک کومبوباکس وازیک پایگاه داده اکسس اطلاعات شغل اولیارااستخراج کنیم.به این صورت که شغلی که کد آن شغل ازآیتمهای کومبوانتخاب میشودوبااین شرط مضاعف که نسبت ولی بادانش آموز یکی ازگزینه های (1=پدر و2=مادر و...) باشد.خلاصه اینکه دوشرط درselectداشته باشیم.
لطفاً راهنمایی بفرمایید.(کددررویداد (On Change)کومبوباکس نوشته میشود.
var s:string;
begin
case ComboBox2.ItemIndex of
0:s:=QuotedStr('0');
1:s:=QuotedStr('1');
2:s:=QuotedStr('2');
3:s:=QuotedStr('3');
4:s:=QuotedStr('4');
5:s:=QuotedStr('5');
6:s:=QuotedStr('6');
7:s:=QuotedStr('7');
8:s:=QuotedStr('8');
9:s:=QuotedStr('9');
10:s:=QuotedStr('10');
11:s:=QuotedStr('11')+'or'+QuotedStr('0')+'or'+Quo tedStr('1') +'or'+QuotedStr('2')+'or'+QuotedStr('3')+' or '+QuotedStr('4')+'or'+QuotedStr('5')+' or '+QuotedStr('6')+
' or ' +QuotedStr('7')+'or'+QuotedStr('8')+'or'+QuotedStr ('9')+' or '+QuotedStr('10')+'or'+QuotedStr('11') ;
end;
begin
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add('select* from((((((student s inner join payeh p on s.payeh=p.code_p)'+
' inner join [class] c on s.class_name=c.code_class)'+
' inner join parents pa on s.melli_code=pa.melli_code)'+
' inner join nesbat n on pa.nesbat=n.cod)'+
' inner join shoghl sh on pa.shoghl=sh.cod_shoghl)'+
' where (sh.cod_shoghl='+s)' + ' and pa.nesbat=1)' +
' order by s.f_name asc';
ADOQuery1.Open;
form10.Caption :=('والدین دارای شغل' +' ' +QuotedStr(ADOQuery1name_shoghl.Text));
Edit1.Text :=inttostr(ADOQuery1.RecordCount);
اشکال فقط درقسمت شرط میباشد. لطفاً راهنمایی بفرمایید