procedure TStudentForm.QuedingFlatSpeedButtonClick(Sender: TObject); var Sqlstr, Boy,gril:string; begin if StudentQuery.Active=true then StudentQuery.Active:=false; StudentQuery.SQL.Clear; boy:='男'; gril:='女'; if (ClassFlatEdit.Text<>'') And (ClassMannumFlatEdit.Text<>'') And (XueyuanNameFlatComboBox.Text<>'') And (EnterSchTimeMaskEdit.Text<>'') then begin Sqlstr:='Insert into 学校在籍学生情况表 values ('; Sqlstr:=Sqlstr+EnterschtimeMaskEdit.Text+','; if BoyFlatCheckBox.Checked then Sqlstr:=Sqlstr+'"'+boy+'"'+',' else Sqlstr:=Sqlstr+'"'+gril+'"'+','; Sqlstr:=Sqlstr+'"'+ClassFlatEdit.Text+'"'+','+'"'+ClassManNumFlatEdit.Text+'",'+'"'+XueyuanNameFlatComboBox.Text+'")'; end ; StudentQuery.SQL.Add(Sqlstr); StudentQuery.ExecSQL; ShowMessage('添加数据成功!');end;
var
Sqlstr,
Boy,gril:string;
begin
if StudentQuery.Active=true then
StudentQuery.Active:=false;
StudentQuery.SQL.Clear;
boy:='男';
gril:='女';
if (ClassFlatEdit.Text<>'') And
(ClassMannumFlatEdit.Text<>'') And
(XueyuanNameFlatComboBox.Text<>'') And
(EnterSchTimeMaskEdit.Text<>'')
then
begin
Sqlstr:='Insert into 学校在籍学生情况表 values (';
Sqlstr:=Sqlstr+EnterschtimeMaskEdit.Text+',';
if BoyFlatCheckBox.Checked then
Sqlstr:=Sqlstr+'"'+boy+'"'+','
else
Sqlstr:=Sqlstr+'"'+gril+'"'+',';
Sqlstr:=Sqlstr+'"'+ClassFlatEdit.Text+'"'+','+'"'+ClassManNumFlatEdit.Text+'",'+'"'+XueyuanNameFlatComboBox.Text+'")';
end ;
StudentQuery.SQL.Add(Sqlstr);
StudentQuery.ExecSQL;
ShowMessage('添加数据成功!');end;