jxjhlr.pas

本科的毕业设计

end;

procedure TFrmjxjhlr.Button1Click(Sender: TObject);
begin
  if (CB_zy.Text='') or (e_kc.Text='') or (cb_kcxxlb.Text='') or (e_ksfs.Text='') or (e_kslb.Text='') then
  begin
  showMessage('专业课程等不能为空，重新输入');
  exit;
  end;
  dm.t_jxjhb.close;
  dm.t_jxjhb.Open;
if  (dm.Query1.Active=false) or (dm.Query1.RecordCount=0) then
    v_kyy:=true;
if  not v_kyy then  //确定按钮
 begin
      // dm.t_jxjhb.SetKey;
        dm.t_jxjhb.IndexFieldNames:='jw_jxjhb__kyy';
        kyy:=dm.Query1['JW_JXJHB__KYY'];
        if dm.t_jxjhb.FindKey([kyy]) then
          begin
            if application.messagebox('确认修改记录?','操作确认',mb_okcancel)=idok then
               begin
                 dm.T_jxjhb.Edit;
                 dm.t_jxjhb.FieldByName('JW_JXJHB__zyh').AsString:=v_zy ;
                 dm.t_jxjhb.FieldByName('JW_JXJHB__KCH').AsString:=v_kc;
                  if Frmjxjhlr.E_sykc.Text<>'' then
                      dm.t_jxjhb.FieldByName('JW_JXJHB__KCH1').AsString:=v_sykc
                  else
                      dm.t_jxjhb.FieldByName('JW_JXJHB__KCH1').AsVariant:=null;
                   dm.t_jxjhb.FieldByName('JW_JXJHB__KClb').AsString:=v_xxlb  ;
                   dm.t_jxjhb.FieldByName('JW_JXJHB__KSFS').AsString:=v_ksfs ;
                   dm.T_jxjhb.FieldByName('JW_JXJHB__KSLB').AsString:=v_kslb  ;
                   dm.t_jxjhb.post;
                end
                 else
                       exit; //  不修改记录就退出
          end
 end   //当没有一条记录记录时
       else    //可能是添加记录 ,判断是否为重复记录
          begin
            with q_sj_zy_kc do
            begin
                  close;
                  params[0].AsString :=v_rxnf;
                  params[1].Asstring:=v_kc;
                  params[2].Asstring:=v_zy;
                  open;
                  if not eof then //同样的课程存在
                    begin
                        showmessage('该课程已录入到教学计划,请另选!') ;
                        exit;
                    end;
                end;
               //加上新教学计划记录
               dm.t_jxjhb.AppendRecord(['',v_rxnf,v_zy,v_kc,null,v_xxlb,v_ksfs,v_kslb,null,null]);
               kyy:=dm.t_jxjhb.FieldByName('JW_JXJHB__kyy').AsInteger;
               dm.t_jxjhb.Locate('JW_JXJHB__kyy',kyy,[]);
               dm.t_jxjhb.edit;
              if  Frmjxjhlr.E_sykc.Text<>'' then
                    dm.t_jxjhb.FieldByName('JW_JXJHB__KCH1').AsString:=v_sykc
               else
                    dm.t_jxjhb.FieldByName('JW_JXJHB__KCH1').AsVariant:=null;
               showmessage('添加记录成功!') ;
               dm.Query1.Close;
               dm.Query1.open;
               dm.Query1.Locate('JW_JXJHB__kyy',kyy,[locaseinsensitive]);
               //Frmjxjhgl.DBGrid1.OnCellClick(Frmjxjhgl.DBGrid1.Columns.Items[0]);
               Recordrefresh(Frmjxjhlr);
           end; //结束新记录记录的查询
           //重新查询
if not v_kyy then
  begin
   close;
   dm.Query1.Close;
   dm.Query1.open;
   dm.Query1.Locate('jw_jxjhb__kyy',kyy,[locaseinsensitive]);
   end;
button2.Enabled:=true;
button3.Enabled :=true;
end;

procedure TFrmjxjhlr.CB_zyChange(Sender: TObject);
begin
     q_zy1.close;
     q_zy1.Params[0].asstring:=cb_zy.Text;
     q_zy1.Open;
     v_zy:=q_zy1['sys_zy__zyh'];
   //  label2.Caption:=v_zy;
end;

procedure TFrmjxjhlr.E_kcChange(Sender: TObject);
begin

                //显示号码
                if  e_kc.text<>'' then
                begin
                 q_kc1.close;
                 q_kc1.Params[0].asstring:=e_kc.text;
                 q_kc1.Open;
                v_kc :=q_kc1['SYS_kc__kch'];
              //   label3.Caption:=v_kc;
               end;
end;

procedure TFrmjxjhlr.E_sykcChange(Sender: TObject);
begin
                //显示号码
                if  e_sykc.text<>'' then
                begin
                 q_sykc1.close;
                 q_sykc1.Params[0].asstring:=e_sykc.text;
                q_sykc1.Open;
            v_sykc :=q_sykc1['SYS_kc__kch'];
              // 测试用  label4.Caption:=v_sykc;
                end;

end;

procedure TFrmjxjhlr.CB_kcxxlbChange(Sender: TObject);
begin
         q_kcxxlb1.close;
         q_kcxxlb1.Params[0].asstring:=cb_kcxxlb.text;
          q_kcxxlb1.Open;
          v_xxlb:=q_kcxxlb1['SYS_KCXX__XXLB'];
       //  label5.Caption:=v_xxlb;

end;

procedure TFrmjxjhlr.E_ksfsChange(Sender: TObject);
begin
    q_ksfsm1.close;
     q_ksfsm1.Params[0].asstring:=e_ksfs.Text;
     q_ksfsm1.Open;
     v_ksfs:=q_ksfsm1['code'];
  //   label6.Caption:= v_ksfs;
end;

procedure TFrmjxjhlr.e_kslbChange(Sender: TObject);
begin
     q_kslb1.close;
     q_kslb1.Params[0].asstring:=e_kslb.Text;
     q_kslb1.Open;
     v_kslb:=q_kslb1['code'];
 //   label7.Caption:= v_kslb;
end;

procedure TFrmjxjhlr.FormShow(Sender: TObject);
begin
   Recordrefresh(Frmjxjhlr);
end;

procedure TFrmjxjhlr.ToolButton1Click(Sender: TObject);
begin
dm.Query1.First  ;
Recordrefresh(Frmjxjhlr);
end;

procedure TFrmjxjhlr.ToolButton2Click(Sender: TObject);
begin
dm.Query1.Prior ;
Recordrefresh(Frmjxjhlr);
end;

procedure TFrmjxjhlr.ToolButton3Click(Sender: TObject);
begin
 dm.Query1.Next  ;
Recordrefresh(Frmjxjhlr);
end;

procedure TFrmjxjhlr.ToolButton4Click(Sender: TObject);
begin
 dm.Query1.Last  ;
Recordrefresh(Frmjxjhlr);
end;

procedure TFrmjxjhlr.Button2Click(Sender: TObject);
begin
     v_kyy:=true;
     //cb_zy.Clear;
     e_kc.Clear;
     e_sykc.Clear;
    // cb_kcxxlb.Clear;
    // e_ksfs.Clear;
    // e_kslb.Clear;
     button2.Enabled:=false;
     button3.Enabled :=false;
     
{[with dm.table_zy do
     begin
       close;
       open;
       while not eof do
       begin
      CB_zy.items.add(fieldbyname('SYS_ZY__ZYM').asstring);
       //  if dm.Query1['SYS_ZY__ZYM']:= dm.adoq_zy['SYS_ZY__ZYM']
        // then CB_zy.Text:=dm.adoq_zy['SYS_ZY__ZYM'] ;
        next;
         end;
       close;
     end; }
     //cb-kcxxlb代码
     with dm.Table_kcxxlb do
     begin
       close;
       open;
       while not eof do
       begin
         CB_kcxxlb.items.add(fieldbyname('SYS_KCXX__XXLBM').asstring);
         next;
         end;
       close;
     end;

    with q_ksfsm do
     begin
       close;
       open;
       while not eof do
       begin
         e_ksfs.items.add(fieldbyname('CodeMean').asstring);
         next;
         end;
         close;
     end;
      with q_kslb do
     begin
     close;
       open;
       while not eof do
       begin
         e_kslb.items.add(fieldbyname('CodeMean').asstring);
         next;
         end;
         close;
     end;

end;

procedure TFrmjxjhlr.Button3Click(Sender: TObject);
begin
  if application.messagebox('确认删除该记录及子记录?','操作确认',mb_okcancel)=idok then
      begin
        with dm.t_jxjhb do
        begin
        close;
        open;
        if not Locate('jw_jxjhb__kyy',kyy,[locaseinsensitive])  then
            begin
            showmessage('你要删除该记录不存在?');
            exit ;
            end
         else
           Delete;
         end;
           //删除从表信息
           with dm.T_jxjhc do
           begin
              close;
              open;
              while not eof do
                begin
                  if Locate('jw_jxjhc__kyy',kyy,[locaseinsensitive]) then
                     delete
                  else
                     break;
                  end ;
                  
             end;
      showmessage('记录已成功删除?');
      close;
     end;
     dm.Query1.Close;
     dm.Query1.Open;
     DM.Q_jxjhc.close;  //关闭教学计划子表
    Recordrefresh(Frmjxjhlr);
   end;
procedure TFrmjxjhlr.Button7Click(Sender: TObject);
begin
self.Close;
end;

end.