jxjh.pas

本科的毕业设计

dm.Q_jxjhc.Params.ParamValues['kyy']:=dm.Query1['JW_JXJHB__KYY'];
dm.Q_jxjhc.Active:=true;
end
else
dm.Q_jxjhc.Close;
end;
       //
  end;
end;

procedure TFrmjxjhgl.FormCreate(Sender: TObject);
begin
dm.Q_rxnf.Close;
dm.Q_rxnf.Open;
while not dm.Q_rxnf.Eof do
   begin
      DBcombox1.Items.Add(dm.Q_rxnf.fieldbyname('sys_rxnf__rxnf').Value);
      dm.Q_rxnf.next;
    end;
DBcombox1.ItemIndex:=0;
end;

procedure TFrmjxjhgl.DBComBox1Change(Sender: TObject);
begin
if dbcombox1.Text <>'' then

  begin
    dm.Query1.close;
    dm.Query1.SQL.Clear;
    dm.Q_jxjhc.Close;
    DM.PQ_jxjh.Close;
   // dm.Q_rxnf_zy.Active :=false;
    dm.Q_rxnf_zy.Close;
    dm.Q_rxnf_zy.Params[0].AsString :=dbcombox1.Text;
    dm.Q_rxnf_zy.Open;
  end;
end;

procedure TFrmjxjhgl.DBGrid2CellClick(Column: TColumn);
var
vol,sql:string;
begin
sql:='';
if (dm.PQ_jxjh.Active=true) and (dm.PQ_jxjh.RecordCount<>0) then
begin
vol:=column.FieldName;
if vol='SYS_KC__KCM' then
 begin
  dm.PQ_jxjh.close;
  sql:=slq1+' order by SYS_KC__KCM';
  dm.PQ_jxjh.SQL.Clear ;
  dm.PQ_jxjh.SQL.Add(sql);
  dm.PQ_jxjh.Open;
  if  not dm.PQ_jxjh.Eof  then
      statusbar1.Panels[0].Text:='共找到:'+inttostr( dm.PQ_jxjh.RecordCount)+'条符合条件的记录';
  end;
  if vol='SYS_XNXQ__XNXQWZ' then
 begin
  dm.PQ_jxjh.close;
  sql:=slq1+' order by SYS_XNXQ__XNXQH';
  dm.PQ_jxjh.SQL.Clear ;
  dm.PQ_jxjh.SQL.Add(sql);
  dm.PQ_jxjh.Open;
  if  not dm.PQ_jxjh.Eof  then
      statusbar1.Panels[0].Text:='共找到:'+inttostr( dm.PQ_jxjh.RecordCount)+'条符合条件的记录';
  end;
    if vol='SYS_KCXX__XXLBM' then
 begin
  dm.PQ_jxjh.close;
  sql:=slq1+' order by SYS_KCXX__XXLBM';
  dm.PQ_jxjh.SQL.Clear ;
  dm.PQ_jxjh.SQL.Add(sql);
  dm.PQ_jxjh.Open;
  if  not dm.PQ_jxjh.Eof  then
      statusbar1.Panels[0].Text:='共找到:'+inttostr( dm.PQ_jxjh.RecordCount)+'条符合条件的记录';
  end;
if vol='JW_JXJHB__ZXS' then
 begin
  dm.PQ_jxjh.close;
  sql:=slq1+' order by JW_JXJHB__ZXS';
  dm.PQ_jxjh.SQL.Clear ;
  dm.PQ_jxjh.SQL.Add(sql);
  dm.PQ_jxjh.Open;
  if  not dm.PQ_jxjh.Eof  then
      statusbar1.Panels[0].Text:='共找到:'+inttostr( dm.PQ_jxjh.RecordCount)+'条符合条件的记录';
  end;

 if vol=' JW_JXJHB__ZXF' then
 begin
  dm.PQ_jxjh.close;
  sql:=slq1+' order by JW_JXJHB__ZXF';
  dm.PQ_jxjh.SQL.Clear ;
  dm.PQ_jxjh.SQL.Add(sql);
  dm.PQ_jxjh.Open;
  if  not dm.PQ_jxjh.Eof  then
      statusbar1.Panels[0].Text:='共找到:'+inttostr( dm.PQ_jxjh.RecordCount)+'条符合条件的记录';
  end;
end
else
    showmessage('你查询的教学计划不存在!') ;
end;

procedure TFrmjxjhgl.DBG_jxjhbDblClick(Sender: TObject);
begin
 if (dm.Query1.Active) and (dm.Query1.RecordCount>0) then
  begin
  kyy:=dm.Query1['JW_JXJHB__KYY'];
  dm.Q_jxjhc.close;
  dm.Q_jxjhc.Params.ParamValues['kyy']:=dm.Query1['JW_JXJHB__KYY'];
  dm.Q_jxjhc.Open;
  statusbar1.Panels[1].Text:='  子目录数:  '+inttostr(dm.Q_jxjhc.RecordCount);
  statusbar1.Panels[0].Text:='  记录数:  '+inttostr(dm.Query1.RecordCount);
 end
  else
  showmessage('请先添加基本数据!') ;
  frmjxjhlr:=tfrmjxjhlr.Create(self);
 try
  frmjxjhlr.ShowModal;
 finally
  frmjxjhlr.Free;
 end;

end;

procedure TFrmjxjhgl.DBG_jxjhcDblClick(Sender: TObject);
begin
if (dm.Query1.Active) and (dm.Query1.RecordCount<>0) then
begin
frmjxjhc:=tfrmjxjhc.Create(self);
 try
  frmjxjhc.ShowModal;
 finally
  frmjxjhc.Free;
 end;
end
else
  showmessage('请先创建教学计划主表!');
if (dm.Q_jxjhc.active=true) and (dm.Q_jxjhc.RecordCount<>0) then
begin
dm.Q_jxjhc.Close;
dm.Q_jxjhc.Open ;
dm.Query1.Locate('jw_jxjhb__kyy',kyy,[locaseinsensitive]);
end;
end;

procedure TFrmjxjhgl.DBG_jxjhbCellClick(Column: TColumn);
begin
if (dm.Query1.Active) and (dm.Query1.RecordCount<>0) then
  begin
  kyy:=dm.Query1['JW_JXJHB__KYY'];
  dm.Q_jxjhc.close;
  dm.Q_jxjhc.Params.ParamValues['kyy']:=dm.Query1['JW_JXJHB__KYY'];
  dm.Q_jxjhc.Open;
  statusbar1.Panels[1].Text:='  子目录数:  '+inttostr(dm.Q_jxjhc.RecordCount);
  statusbar1.Panels[0].Text:='  记录数:  '+inttostr(dm.Query1.RecordCount);
  end;
end;

procedure TFrmjxjhgl.N2Click(Sender: TObject);
begin
frmjxjhlr:=tfrmjxjhlr.Create(self);
try
  frmjxjhlr.ShowModal;
 finally
  frmjxjhlr.Free;
 end;
end;

procedure TFrmjxjhgl.FormShow(Sender: TObject);
begin
v_kyy:=false;
end;

procedure TFrmjxjhgl.DBG_jxjhbMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var 
MousePos: TPoint;//声明一个TPoint类型的变量，存放光标在屏幕上的坐标
begin
 if  Button=mbRight then
begin
GetCursorPos(MousePos);//获得光标的坐标
PopupMenu1.Popup(MousePos.X,MousePos.Y);//弹出菜单，括号中的参数指定菜单弹出的位置
end;
end;

procedure TFrmjxjhgl.DBGrid1DblClick(Sender: TObject);
var
sql2:string;
begin
if (dm.Q_rxnf_zy.Active=true) and (dm.Q_rxnf_zy.RecordCount<>0) then
begin
colzym:=dm.Q_rxnf_zy.FieldValues['sys_zy__zym'];
dm.PQ_jxjh.close;
dm.PQ_jxjh.SQL.Clear;
slq1:='';
slq1:=slq1+' SELECT JW_JXJHB.JW_JXJHB__RXNF, SYS_XNXQ.SYS_XNXQ__XNXQWZ,';
slq1:=slq1+' JW_JXJHB.JW_JXJHB__ZXS, JW_JXJHB.JW_JXJHB__ZXF,JW_JXJHB.JW_JXJHB__KYY,';
slq1:=slq1+' SYS_KCXX.SYS_KCXX__XXLBM, KSFS.CodeMean AS ksfs, SYS_KC.SYS_KC__KCM,';
slq1:=slq1+' SYS_ZY.SYS_ZY__ZYM, JW_JXJHC.JW_JXJHC__JKZXS,JW_JXJHC.JW_JXJHC__SYZXS';
slq1:=slq1+' FROM SYS_XNXQ INNER JOIN JW_JXJHC ON';
slq1:=slq1+' SYS_XNXQ.SYS_XNXQ__XNXQH = JW_JXJHC.JW_JXJHC__XNXQH INNER JOIN';
slq1:=slq1+' SYS_KCXX INNER JOIN JW_JXJHB INNER JOIN';
slq1:=slq1+' SYS_KC ON JW_JXJHB.JW_JXJHB__KCH = SYS_KC.SYS_KC__KCH INNER JOIN';
slq1:=slq1+' SYS_ZY ON JW_JXJHB.JW_JXJHB__ZYH = SYS_ZY.SYS_ZY__ZYH INNER JOIN';
slq1:=slq1+' KSFS ON JW_JXJHB.JW_JXJHB__KSFS = KSFS.Code ON';
slq1:=slq1+' SYS_KCXX.SYS_KCXX__XXLB = JW_JXJHB.JW_JXJHB__KCLB ON';
slq1:=slq1+' JW_JXJHC.JW_JXJHC__KYY = JW_JXJHB.JW_JXJHB__KYY';
slq1:=slq1+' WHERE JW_JXJHB.JW_JXJHB__RXNF ='''+dbcombox1.Text+'''';
slq1:=slq1+' AND SYS_ZY.SYS_ZY__ZYM ='''+colzym+'''';
sql2:=slq1+' ORDER BY SYS_XNXQ.SYS_XNXQ__XNXQH ';
dm.PQ_jxjh.SQL.add(sql2);
dm.PQ_jxjh.Open;
dm.Q_zy_xnxq.close;
dm.Q_zy_xnxq.Params[0].AsString :=dbcombox1.Text;
dm.Q_zy_xnxq.Params[1].AsString :=colzym;
dm.Q_zy_xnxq.Open;
dm.Ds_zy.DataSet.Active:=true;
if dbcombox1.Text<>'' then
begin
with dm.Query1 do
begin
Close ;
sql.clear;
sql.Add('SELECT JW_JXJHB.*, SYS_ZY.SYS_ZY__ZYM, SYS_KC.SYS_KC__KCM, ');
sql.Add('SYS_KCXX.SYS_KCXX__XXLBM, KSFS.CodeMean AS ksfs, KSLB.CodeMean AS kslb, ');
sql.Add(' SYS_KC.SYS_KC__KCH, SYS_KC_1.SYS_KC__KCM AS sykcm');
sql.Add(' FROM JW_JXJHB INNER JOIN SYS_ZY ON JW_JXJHB.JW_JXJHB__ZYH = SYS_ZY.SYS_ZY__ZYH INNER JOIN');
sql.Add(' SYS_KC ON JW_JXJHB.JW_JXJHB__KCH = SYS_KC.SYS_KC__KCH INNER JOIN  ');
sql.Add(' SYS_KCXX ON JW_JXJHB.JW_JXJHB__KCLB = SYS_KCXX.SYS_KCXX__XXLB INNER JOIN');
sql.Add(' KSLB ON JW_JXJHB.JW_JXJHB__KSLB = KSLB.Code INNER JOIN ');
sql.Add(' KSFS ON JW_JXJHB.JW_JXJHB__KSFS = KSFS.Code LEFT OUTER JOIN ');
sql.Add(' SYS_KC SYS_KC_1 ON JW_JXJHB.JW_JXJHB__KCH1 = SYS_KC_1.SYS_KC__KCH');
sql.Add(' where dbo.JW_JXJHB.JW_JXJHB__RXNF='''+DBComBox1.text+''' ');
sql.Add(' and SYS_ZY.SYS_ZY__ZYM='''+colzym+'''');
sql.Add(' order by dbo.jw_jxjhb.jw_jxjhb__zyh,dbo.jw_jxjhb.jw_jxjhb__kch');
//Params[0].Value:=trim(DBcombox1.Text);
open;
statusbar1.Panels[0].Text:=colzym+'专业,记录数:'+inttostr(RecordCount);
with dm.Q_zy_xnxqwz do
  begin
      close;
      Params[0].AsString:=dbcombox1.Text;
      Params[1].AsString:=colzym;
      open;
  end;
end;

if dm.Query1.RecordCount> 0 then
begin
if dm.Q_jxjhc.Active then  dm.Q_jxjhc.Active:=false;
dm.Q_jxjhc.Params.ParamValues['kyy']:=dm.Query1['JW_JXJHB__KYY'];
dm.Q_jxjhc.Active:=true;
end
else
dm.Q_jxjhc.Close;
end;
end;
end;

procedure TFrmjxjhgl.DBG_jxjhbKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (dm.Query1.Active) and (dm.Query1.RecordCount<>0) then
  begin
  kyy:=dm.Query1['JW_JXJHB__KYY'];
  dm.Q_jxjhc.close;
  dm.Q_jxjhc.Params.ParamValues['kyy']:=dm.Query1['JW_JXJHB__KYY'];
  dm.Q_jxjhc.Open;
  statusbar1.Panels[1].Text:='  子目录数:  '+inttostr(dm.Q_jxjhc.RecordCount);
  statusbar1.Panels[0].Text:='  记录数:  '+inttostr(dm.Query1.RecordCount);
  end;
end;

procedure TFrmjxjhgl.DBGrid2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (DM.PQ_jxjh.Active) and (DM.PQ_jxjh.RecordCount<>0) then
  begin
  kyy:=DM.PQ_jxjh['JW_JXJHB__KYY'];
  dm.Q_jxjhc.close;
  dm.Q_jxjhc.Params.ParamValues['kyy']:=DM.PQ_jxjh['JW_JXJHB__KYY'];
  dm.Q_jxjhc.Open;
  statusbar1.Panels[1].Text:='  子目录数:  '+inttostr(dm.Q_jxjhc.RecordCount);
  statusbar1.Panels[0].Text:='  记录数:  '+inttostr(DM.PQ_jxjh.RecordCount);
  end;
end;

end.