chazhaoyuxiugai.~pas

有不足之处请指出

   XueShengQuery.ExecSQL ;
   messagebeep(1);
   showmessage('学号为'+Edit8.Text+'的学生档案信息已经修改完毕!');
   Edit1.Clear ;
   Edit2.Clear ;
   ComboBox2.Text :='' ;
   ComboBox3.Text :='' ;
   Edit3.Clear ;
   Edit4.Clear ;
   Edit5.Clear ;
   Edit6.Clear ;
   Edit7.Clear ;
   Edit8.Clear ;
   Edit8.SetFocus ;
   Edit8.Focused ;
   Button1.Enabled :=false;
   Button2.Enabled :=false;
   Button4.Enabled :=false;
  end;
end;

procedure TchazhaoyuxiugaiForm.FormShow(Sender: TObject);
var i:integer;
begin
    i:=0;
  banjiTable.Open ;
  banjiTable.First ;
  ComboBox1.Clear ;
  ComboBox3.Clear ;
  ComboBox4.Clear ;
  while not banjiTable.Eof do
     begin
        ComboBox1.Items.Insert(i,banjiTablemingcheng.Value);
        ComboBox3.Items.Insert(i,banjiTablemingcheng.Value);
        ComboBox4.Items.Insert(i,banjiTablemingcheng.Value);
        banjiTable.Next ;
        i:=i+1;
     end;
  banjiTable.Close;
  studentQuery.Close;
  studentQuery.SQL.Clear ;
  studentQuery.Params.Clear ;
  studentQuery.SQL.Add('select * from students;');
  studentQuery.ExecSQL ;
  studentQuery.Open ;
end;

procedure TchazhaoyuxiugaiForm.TabSheet1Show(Sender: TObject);
begin
 if length(ComboBox1.Text)<>0 then
  begin
  studentQuery.Close;
  studentQuery.Params.Clear ;
  studentQuery.SQL.Clear ;
  studentQuery.Params.CreateParam(ftstring,'bj',ptinput).AsString :=ComboBox1.Text ;
  studentQuery.SQL.Add('select * from students where banji=:bj;');
  studentQuery.ExecSQL ;
  studentQuery.Open
  end;
end;

procedure TchazhaoyuxiugaiForm.Button4Click(Sender: TObject);
begin
  if qx='普通用户' then
     begin
       messageDlg('你不是高级用户或管理员，无权执行本项操作！',mtWarning,[mbOk],0);
       exit;
     end;
  if ((length(Edit1.Text)=0) or (length(Edit2.Text)=0)) then
      begin
        MessageDlg('必要信息"学号"或"姓名"填写不全！',mtWarning,[mbOk],0);
        exit;
      end;
  if MessageDlg('确认要删除学号为 '+Edit1.Text +' 的档案信息吗?',mtConfirmation,[mbYes,mbNo],0)=mrNo then
     exit
  else
  begin
        XueshengQuery.Close ;
        XueshengQuery.Params.Clear ;
        XueshengQuery.SQL.Clear ;
        XueshengQuery.Params.CreateParam(ftstring,'xh',ptinput).AsString:=Edit8.Text ;
        XueshengQuery.SQL.Add('delete from students where Xuehao=:xh;');
        XueshengQuery.ExecSQL ;
        messagebeep(1);
        showmessage('学号为'+Edit8.Text+'的学生档案信息已经成功删除!');
        Edit1.Clear ;
        Edit2.Clear ;
        Edit3.Clear ;
        Edit4.Clear ;
        Edit5.Clear ;
        Edit6.Clear ;
        Edit7.Clear ;
        Edit8.Clear ;
        Combobox2.Text:='' ;
        ComboBox3.Text:='';
        Button1.Enabled :=false;
        Button2.Enabled :=false;
        Button4.Enabled :=false;
        Edit8.SetFocus ;
        Edit8.Focused ;

  end;
end;

procedure TchazhaoyuxiugaiForm.CheckBox1Click(Sender: TObject);
begin
 if CheckBox1.Checked then
    begin
      ComboBox4.Enabled :=True;
      ComboBox4.Color:=clWindow;
    end
 else
    begin
      ComboBox4.Enabled :=False;
      combobox4.Color:=clBtnFace;
    end;
end;

procedure TchazhaoyuxiugaiForm.CheckBox2Click(Sender: TObject);
begin
  if checkBox2.Checked then
    begin
      ComboBox5.Enabled :=True;
      ComboBox5.Color :=clWindow;
    end
  else
    begin
      ComboBox5.Enabled :=False;
      Combobox5.Color :=clBtnFace;
    end;
end;

procedure TchazhaoyuxiugaiForm.CheckBox3Click(Sender: TObject);
begin
  if CheckBox3.Checked then
     begin
       Edit9.Enabled :=True;
       Edit9.Color :=clWindow;
     end
  else
    begin
      Edit9.Enabled :=False;
      Edit9.Color :=clBtnFace;
    end;
end;



procedure TchazhaoyuxiugaiForm.TabSheet3Show(Sender: TObject);
//var i:integer;
begin
  {i:=0;
  classesTable.Open ;
  classesTable.First ;
//  ComboBox4.Clear ;
  while i<classesTable.RecordCount do
    begin
      ComboBox4.Items.Insert(i,classesTablemingcheng.Value);
      i:=i+1;
      classesTable.Next ;
    end;
  classesTable.Close;}
end;

procedure TchazhaoyuxiugaiForm.Button5Click(Sender: TObject);
var str:string;
    yes:boolean;
begin
  if checkBox1.Checked and (comboBox4.Text='') then
     begin
       MessageDlg('你已选中 "班级" 作为查询条件，但是未选中任何班级，查询无法进行!',mtError,[mbOk],0);
       exit;
     end;
  if checkbox2.Checked  and (ComboBox5.Text ='') then
     begin
        MessageDlg('你已选中 "性别" 作为查询条件，但是未选中男或女，查询无法进行!',mtError,[mbOk],0);
        exit;
     end;
  if checkbox3.Checked  and (Edit9.Text ='') then
     begin
       messageDlg('你已选中 "籍贯" 作为查询条件，但是未输入籍贯信息，查询无法进行!',mtError,[mbOk],0);
       exit;
     end;
  yes:=False;
  str:='select * from students where ';
  XueshengQuery.Close;
  XueshengQuery.Params.Clear ;
  XueshengQuery.SQL.Clear ;
  if checkbox1.Checked  and (ComboBox4.Text <>'') then
     begin
     XueshengQuery.Params.CreateParam(ftstring,'bj',ptinput).AsString :=ComboBox4.Text ;
     str:=str+'banji=:bj ';
     yes:=True;
     end;
  if checkbox2.Checked  and (ComboBox5.Text <>'') then
     begin
        XueshengQuery.Params.CreateParam(ftstring,'xb',ptinput).AsString :=ComboBox5.Text ;
        if not yes then
           begin
             str:=str+'xingbie=:xb ';
             yes:=true;
           end
        else
          str:=str+'and xingbie=:xb ';
      end;
  if checkbox3.Checked  and (Edit9.Text <>'') then
     begin
        XueshengQuery.Params.CreateParam(ftstring,'jg',ptinput).AsString :=Edit9.Text;
        if not yes then
          begin
            str:=str+'jiguan=:jg ';
            yes:=True;
          end
        else
          str:=str+'and jiguan=:jg ';
     end;
 { if checkBox4.Checked  and ((Edit10.Text<>'') and (Edit11.Text<>'')) then
     begin
       XueshengQuery.Params.CreateParam(ftstring,'dnl',ptinput).AsString :=Edit10.Text ;
       XueshengQuery.Params.CreateParam(ftstring,'xnl',ptinput).AsString :=Edit11.Text ;
       if not yes then
          begin
            str:=str+' chushengnianyue >=dnl and chushengnianyue <= xnl;';
            yes:=true;
          end
       else
          str:=str+' and chushengnianyue >=dnl and chushengnianyue<=xnl;'
     end;
   showmessage(str);}
  if not yes then
    begin
     MessageDlg('你 "未" 选中任何查询条件，查询无法继续，请至少选中一个条件!'+#10+#13+#10+'谢谢合作!   Enjoy!    ~_~',mtWarning,[mbOk],0);
     exit;
    end;

  XueshengQuery.SQL.Add(str);
  try
    begin
      XueshengQuery.Open;
      if xueshengquery.RecordCount=0 then
         messageDlg('查询已经进行，但是未找到相关的数据!',mtWarning,[mbOk],0)
      else
         showmessage('找到相关数据！');
    end
  Except
    MessageDlg('发生系统错误！',mtWarning,[mbOk],0)
  end;

end;

procedure TchazhaoyuxiugaiForm.Button7Click(Sender: TObject);
begin
QuickRep1.Preview ;
end;

end.