數(shù)據(jù)庫(kù)mydb中有關(guān)系表student,其結(jié)構(gòu)如下:
student(sno學(xué)號(hào),sname姓名,sex性別,birthday生日)
現(xiàn)編寫(xiě)一個(gè)學(xué)生信息瀏覽程序,設(shè)計(jì)界面和運(yùn)行界面如下圖所示:
在下劃線處填寫(xiě)相應(yīng)數(shù)據(jù)庫(kù)組件的屬性值:
Database1. DatabaseName : mydb
Table1. DatabaseName : mydb T
able1. TableName : student
Table1. Active :(①)
Datasource1.DataSet :(②)
DBNavigator1. DataSource : (③)
DBEdit2. DataSource :(④)
DBEdit2. DataField :(⑤)
本程序根據(jù)用戶選擇的運(yùn)算符對(duì)輸入的二個(gè)操作數(shù)進(jìn)行運(yùn)算,并顯示運(yùn)算結(jié)果。設(shè)計(jì)界面和運(yùn)行界面如圖所示。其中,運(yùn)算符是一個(gè)含有4個(gè)單選按紐的RadioGroup1對(duì)象。
下面是單擊“運(yùn)算”按鈕的事件處理程序,請(qǐng)根據(jù)功能要求完成程序填空。
procedure TForm1.Button1Click(Sender: TObject);//運(yùn)算
var
x1,x2,y :Integer;
begin
x1 := StrToInt( Edit1. ①);
x2 : = StrToInt( Edit2. ②);
Case ③.ItemIndex of
0: y := x1 + x2 ;
1: y := x1 - x2;
2: y := x1 * x2;
3: y := x1 Div x2;
End;
Edit3. ④:= IntToStr( ⑤);
end;