jxjh.pas

本科的毕业设计

unit jxjh;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, ADODB, Menus, Grids, DBGrids, StdCtrls, ExtCtrls,
  DBCtrls, ComCtrls,RpCon, RpConBDE, RpBase, RpSystem, RpDefine,
  RpRave, RpConDS;
type
  TFrmjxjhgl = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N25: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N26: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N17: TMenuItem;
    N23: TMenuItem;
    DataSource2: TDataSource;
    Q_sh1: TQuery;
    Q_sh2: TQuery;
    N4: TMenuItem;
    N5: TMenuItem;
    DBComBox1: TComboBox;
    DataSource1: TDataSource;
    Panel3: TPanel;
    Splitter1: TSplitter;
    DBG_jxjhc: TDBGrid;
    StatusBar1: TStatusBar;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBG_jxjhb: TDBGrid;
    DBGrid2: TDBGrid;
    DS_Pjxjh: TDataSource;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    PopupMenu1: TPopupMenu;
    N8: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    procedure N9Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormCreate(Sender: TObject);
    procedure DBComBox1Change(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure DBG_jxjhbDblClick(Sender: TObject);
    procedure DBG_jxjhcDblClick(Sender: TObject);
    procedure DBG_jxjhbCellClick(Column: TColumn);
    procedure N2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBG_jxjhbMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBG_jxjhbKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmjxjhgl: TFrmjxjhgl ;
  kyy,nRec: integer;
  slq1,colzym:string;

implementation

uses zhxx, jxjhlr, jxjhc, xjzhxx, q_zy, copy_jxjh, copy_zyjxjh, pjxjh;

{$R *.dfm}

procedure TFrmjxjhgl.N9Click(Sender: TObject);
begin
dm.Query1.Close;
dm.Q_jxjhc.Close;
close;
end;

procedure TFrmjxjhgl.N20Click(Sender: TObject);
Var   v_zxs1,v_zxs2,v_zxs,v_kyy:integer;
v_zxf:real;
begin
 if application.MessageBox('开始审核学期课时分布表吗?','审核',mb_okcancel)=idok
  then
    begin
     with dm.Query1 do
       begin
          close;
          open;
          while not eof do
            begin
               q_sh1.Close;
               //label13.caption:=q_jxjhb['jw_jxjhb__kyy'];
               v_kyy:=dm.query1['jw_jxjhb__kyy'];
               q_sh1.Params[0].AsString:=dm.query1['jw_jxjhb__kyy'];
               q_sh1.Open;
               if q_sh1['sum1']=null then v_zxs1:=0
                   else v_zxs1:=q_sh1['sum1'];
               if q_sh1['sum2']=null then v_zxs2:=0
                   else v_zxs2:=q_sh1['sum2'];
               if q_sh1['sum3']=null then v_zxf:=0
                   else v_zxf:=q_sh1['sum3'];
               v_zxs:=v_zxs1+v_zxs2;
               //label2.Caption:=inttostr(v_zxs);
               //label3.Caption:=q_sh1['sum3'];
               dm.t_jxjhb.Close;
               dm.t_jxjhb.Open;
               dm.t_jxjhb.SetKey;
               dm.t_jxjhb.FieldByName('jw_jxjhb__kyy').asinteger:=v_kyy;
               dm.t_jxjhb.GotoNearest;
               dm.t_jxjhb.Edit;
               dm.t_jxjhb['jw_jxjhb__zxs']:=v_zxs;
               dm.t_jxjhb['jw_jxjhb__zxf']:=v_zxf;
               dm.t_jxjhb.Post;
               next;
            end;
       end;
       application.MessageBox('审核完毕!','审核',mb_ok);
       dm.query1.close;
       dm.query1.open;
    end;
end;

procedure TFrmjxjhgl.N17Click(Sender: TObject);
begin
     if application.MessageBox('开始审核教学计划从表吗?','审核',mb_okcancel)=idok
       then
         begin
           with dm.Q_jxjhc do
             begin
               close;
               open;
             if recordcount=0 then
             begin
             showmessage('请输入基本数据!') ;
             exit;
             end;
               while not eof do
                 begin
                   q_sh2.Close;
                   q_sh2.Params[0].asstring:=fieldbyname('jw_jxjhc__kyy').asstring;
                   q_sh2.Open;
                   if q_sh2.RecordCount=0 then
                    begin
                         delete;
                         prior;
                    end;
                   next;
                 end;
           end;
           application.MessageBox('审核完毕','审核',mb_ok);
         end;
end;

procedure TFrmjxjhgl.N11Click(Sender: TObject);
begin
Frmzyjxjhcx:=TFrmzyjxjhcx.Create(self);
 try
    Frmzyjxjhcx.ShowModal;
 finally
    Frmzyjxjhcx.Free;
 end;
end;

procedure TFrmjxjhgl.N6Click(Sender: TObject);
begin
if DM.Q_rxnf_zy.RecordCount<>0 then
begin
frmjxjhhz:=Tfrmjxjhhz.Create(self);
 try
  frmjxjhhz.ShowModal;
 finally
  frmjxjhhz.Free;
 end;
end;
end;

procedure TFrmjxjhgl.N7Click(Sender: TObject);
begin
Frmzyjxjhhz:=TFrmzyjxjhhz.Create(self);
 try
   Frmzyjxjhhz.ShowModal;
 finally
   Frmzyjxjhhz.Free;
 end;
if (dm.Query1.Active =true) and (dm.Query1.RecordCount<>0) then
begin
  dm.Query1.Close ;
  dm.Query1.Open;
end;
end;

procedure TFrmjxjhgl.N23Click(Sender: TObject);
begin
if (DM.PQ_jxjh.active=true) and (DM.PQ_jxjh.RecordCount<>0) then
begin
FrmPjxjh:=TFrmPjxjh.Create(self);
 try
   FrmPjxjh.ShowModal;
 finally
   FrmPjxjh.Free;
 end;
 end
 else
   showmessage('请先查询教学计划或教学计划不存在!');
end;

procedure TFrmjxjhgl.DBGrid1CellClick(Column: TColumn);
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__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;