q_zy.pas

本科的毕业设计

unit q_zy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TFrmzyjxjhcx = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    LB_zym1: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure LB_zym1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmzyjxjhcx: TFrmzyjxjhcx;

implementation

uses jxjh,zhxx;

{$R *.dfm}

procedure TFrmzyjxjhcx.Button2Click(Sender: TObject);
begin
     close;
end;

procedure TFrmzyjxjhcx.FormCreate(Sender: TObject);
begin
     with dm.Table_zy do
     begin
       close;
       open;
       while not eof do
       begin
         LB_zym1.items.add(fieldbyname('SYS_ZY__ZYM').asstring);
         next;
         end;
     end;
end;

procedure TFrmzyjxjhcx.LB_zym1Click(Sender: TObject);
var  i:integer;
begin
     for i:=0 to lb_zym1.Items.Count -1 do
     if lb_zym1.selected[i]
       then edit1.Text :=lb_zym1.Items[i];
end;

procedure TFrmzyjxjhcx.Button1Click(Sender: TObject);
begin
 with dm do
  begin
   query1.close;
   query1.sql.clear;
   query1.sql.add(' Select SYS_RXNF__RXNF,SYS_ZY__ZYM,SYS_KC__KCM,JW_JXJHB__KCH1 as sykcm,');
   query1.sql.add(' SYS_KCXX__XXLBM,KSFS.CODEMEAN as ksfs, KSLB.CODEMEAN as kslb,JW_JXJHB__ZXS,JW_JXJHB__ZXF,JW_JXJHB__ZYH, JW_JXJHB__KYY ');
   query1.sql.add(' From JW_JXJHB, SYS_RXNF,SYS_ZY,SYS_KC,SYS_KCXX,KSLB,KSFS');
   query1.sql.add('where JW_JXJHB__RXNF = SYS_RXNF__RXNf AND JW_JXJHB__ZYH = SYS_ZY__ZYH');
   query1.sql.add('AND JW_JXJHB__KCH = SYS_KC__KCH AND JW_JXJHB__KCLB = SYS_KCXX__XXLB ');
   query1.sql.add('AND JW_JXJHB__KSLB =KSLB.CODE AND JW_JXJHB__KSFS =KSFS.CODE AND JW_JXJHB__RXNF = '''+Frmjxjhgl.DBComBox1.text+''' and SYS_ZY__ZYm='''+edit1.Text+'''');
   query1.sql.add('ORDER BY dbo.JW_JXJHB.JW_JXJHB__ZYH, dbo.JW_JXJHB.JW_JXJHB__RXNF');
   query1.open;
 //  form2.DBG_jxjhbCellClick(nil);
  if  dm.Query1.RecordCount<>0 then
      Frmjxjhgl.statusbar1.Panels[0].Text:=dm.Query1.FieldValues['SYS_ZY__ZYM']+'专业, 记录数:  '+inttostr(query1.RecordCount)
  else
      Frmjxjhgl.statusbar1.Panels[0].Text:='专业教学计划不存在'
  end;
  //dm.Table_zy.close;
  // dm.Table_zy.open;
   dm.Table_zy.IndexFieldNames:='sys_zy__zym';
             If not dm.Table_zy.FindKey([edit1.Text]) then
                 showmessage('无此专业!');
 close;
end;

end.