unit5.~pas

教学管理系统源码

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DB, ADODB;

type
  TForm5 = class(TForm)
    MainMenu1: TMainMenu;
    N32: TMenuItem;
    N33: TMenuItem;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Bevel2: TBevel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    PopupMenu2: TPopupMenu;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    PopupMenu3: TPopupMenu;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    PopupMenu4: TPopupMenu;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    PopupMenu5: TPopupMenu;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    SaveDialog1: TSaveDialog;
    procedure N2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit6, Unit7, Unit8, Unit9, Unit10, Unit11, Unit12, Unit13, Unit14,
  Unit15, Unit16, Unit17, Unit18, Unit19, Unit4, Unit1, Unit20, Unit21,
  Unit22;

{$R *.dfm}

procedure TForm5.N2Click(Sender: TObject);
    //var Form6:TForm6;
    //Fm6Hnd:THandle;

begin

   //Form6:=TForm6.Create(nil);
   //Form6.Show;
  { fm6hnd:=FindWindow(nil,'Form6-教学计划录入') ;
  //if (FindWindow(nil,'Form6-教学计划录入'))=0 then
  // form6.Create();  }
   //try form6.Show
      //except
      //begin
      //form6:=tform6.Create(nil);
      //form6.show;
      //end
      //end;

     //TForm6.Create(nil);
     if(form6.Visible=false) then
     form6.Show;
     if(form6.WindowState=wsminimized) then
     Form6.WindowState:=wsnormal;
     form6.SetFocus;

end;

procedure TForm5.BitBtn1Click(Sender: TObject);
begin
PopupMenu1.Popup(Form5.Left+103,Form5.Top+130);
end;

procedure TForm5.BitBtn2Click(Sender: TObject);
begin
PopupMenu2.Popup(Form5.Left+103,Form5.Top+165);
end;

procedure TForm5.BitBtn3Click(Sender: TObject);
begin
PopupMenu3.Popup(Form5.Left+103,Form5.Top+230);
end;

procedure TForm5.BitBtn4Click(Sender: TObject);
begin
PopupMenu4.Popup(Form5.Left+103,Form5.Top+287);
end;

procedure TForm5.BitBtn5Click(Sender: TObject);
begin
PopupMenu5.Popup(Form5.Left+103,Form5.Top+335);
end;

procedure TForm5.N3Click(Sender: TObject);
begin
if(form7.Visible=false) then
     form7.Show;
     if(form7.WindowState=wsminimized) then
     Form7.WindowState:=wsnormal;
     form7.SetFocus;
end;

procedure TForm5.N4Click(Sender: TObject);
begin
if(form8.Visible=false) then
     form8.Show;
     if(form8.WindowState=wsminimized) then
     Form8.WindowState:=wsnormal;
     form8.SetFocus;
end;

procedure TForm5.N5Click(Sender: TObject);
begin
if(form9.Visible=false) then
     form9.Show;
     if(form9.WindowState=wsminimized) then
     Form9.WindowState:=wsnormal;
     form9.SetFocus;
end;

procedure TForm5.N6Click(Sender: TObject);
begin
if(form10.Visible=false) then
     form10.Show;
     if(form10.WindowState=wsminimized) then
     Form10.WindowState:=wsnormal;
     form10.SetFocus;
end;

procedure TForm5.N7Click(Sender: TObject);
begin
if(form11.Visible=false) then
     form11.Show;
     if(form11.WindowState=wsminimized) then
     Form11.WindowState:=wsnormal;
     form11.SetFocus;
end;

procedure TForm5.N8Click(Sender: TObject);
begin
if(form12.Visible=false) then
     form12.Show;
     if(form12.WindowState=wsminimized) then
     Form12.WindowState:=wsnormal;
     form12.SetFocus;
end;

procedure TForm5.N9Click(Sender: TObject);
begin
if(form13.Visible=false) then
     form13.Show;
     if(form13.WindowState=wsminimized) then
     Form13.WindowState:=wsnormal;
     form13.SetFocus;
end;

procedure TForm5.N10Click(Sender: TObject);
begin
if(form14.Visible=false) then
     form14.Show;
     if(form14.WindowState=wsminimized) then
     Form14.WindowState:=wsnormal;
     form14.SetFocus;
end;

procedure TForm5.N11Click(Sender: TObject);
begin
if(form15.Visible=false) then
     form15.Show;
     if(form15.WindowState=wsminimized) then
     Form15.WindowState:=wsnormal;
     form15.SetFocus;
end;

procedure TForm5.N12Click(Sender: TObject);
begin
if(form16.Visible=false) then
     form16.Show;
     if(form16.WindowState=wsminimized) then
     Form16.WindowState:=wsnormal;
     form16.SetFocus;
end;

procedure TForm5.N13Click(Sender: TObject);
begin
if(form17.Visible=false) then
     form17.Show;
     if(form17.WindowState=wsminimized) then
     Form17.WindowState:=wsnormal;
     form17.SetFocus;
end;

procedure TForm5.N14Click(Sender: TObject);
begin
if(form18.Visible=false) then
     form18.Show;
     if(form18.WindowState=wsminimized) then
     Form18.WindowState:=wsnormal;
     form18.SetFocus;
end;

procedure TForm5.N32Click(Sender: TObject);
begin
form19.Show;
end;

procedure TForm5.N1Click(Sender: TObject);
begin
Form5.Close;
end;

procedure TForm5.BitBtn11Click(Sender: TObject);
begin
DBGrid1.DataSource :=DataSource1;
if
((Edit1.Text= '') and
(Edit2.Text= '') and
(Edit5.Text= ''))
    then
    Application.MessageBox('请输入查询条件','警告！',MB_OK);
if ((Edit5.Text<>'') and (Edit5.Text<>'所有课程'))
    then
    Application.MessageBox('查询条件出错','警告！',MB_OK)
else
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from 教学计划表');
ADOQuery1.SQL.Add('where 课程代号<>''''');
if Edit1.Text<>'' then
ADOQuery1.SQL.Add('and 课程代号='''+edit1.text+'''');
if Edit2.Text<>'' then
ADOQuery1.SQL.Add('and 课名='''+edit2.text+'''');
if Edit5.Text='所有课程' then
ADOQuery1.SQL.Add('select 课名,课程代号 from 教学计划表');
ADOQuery1.SQL.Add('order by 课程代号');
//if (ADOQuery1.RecordCount=0) then
//Application.MessageBox('口令错误，请查询','警告！',MB_OK);
ADOQuery1.Open;
if (ADOQuery1.RecordCount=0) then
Application.MessageBox('查找无效,目标可能不存在','警告！',MB_OK);
end;
end;

procedure TForm5.BitBtn12Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit5.Text:='';
Edit1.SetFocus;
end;

procedure TForm5.BitBtn6Click(Sender: TObject);
begin
form4.Show;
end;

procedure TForm5.BitBtn9Click(Sender: TObject);
begin
ADOQuery1.Prior;
end;

procedure TForm5.BitBtn10Click(Sender: TObject);
begin
ADOQuery1.Next;
end;

procedure TForm5.BitBtn13Click(Sender: TObject);
begin
DBGrid1.DataSource :=DataSource1;
if
((Edit3.Text= '') and
(Edit4.Text= '') and
(Edit6.Text= ''))
then
Application.MessageBox('请输入查询条件','警告！',MB_OK);
if ((Edit6.Text<>'') and (Edit6.Text<>'所有教师'))
    then
    Application.MessageBox('查询条件出错','警告！',MB_OK)
else
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from 教师基本档案');
ADOQuery1.SQL.Add('where 教师姓名<>''''');
if Edit3.Text<>'' then
ADOQuery1.SQL.Add('and 教师姓名='''+edit3.text+'''');
if Edit4.Text<>'' then
ADOQuery1.SQL.Add('and 教师编号='''+edit4.text+'''');
if Edit6.Text='所有教师' then
ADOQuery1.SQL.Add('select 教师姓名,教师编号 from 教师基本档案');
ADOQuery1.SQL.Add('order by 教师编号');
//if (ADOQuery1.RecordCount=0) then
//Application.MessageBox('口令错误，请查询','警告！',MB_OK);
ADOQuery1.Open;
if (ADOQuery1.RecordCount=0) then
Application.MessageBox('查找无效,目标可能不存在','警告！',MB_OK);
end;
end;

procedure TForm5.BitBtn14Click(Sender: TObject);
begin
Edit3.Text:='';
Edit4.Text:='';
Edit6.Text:='';
Edit3.SetFocus;
end;

procedure TForm5.N15Click(Sender: TObject);
begin
if(form20.Visible=false) then
     form20.Show;
     if(form20.WindowState=wsminimized) then
     Form20.WindowState:=wsnormal;
     form20.SetFocus;
end;

procedure TForm5.N16Click(Sender: TObject);
begin
if(form21.Visible=false) then
     form21.Show;
     if(form21.WindowState=wsminimized) then
     Form21.WindowState:=wsnormal;
     form21.SetFocus;
end;

procedure TForm5.N17Click(Sender: TObject);
begin
if(form22.Visible=false) then
     form22.Show;
     if(form22.WindowState=wsminimized) then
     Form22.WindowState:=wsnormal;
     form22.SetFocus;
end;

procedure TForm5.BitBtn7Click(Sender: TObject);
begin
if SaveDialog1.Execute then
  DBGrid1.Columns.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm5.BitBtn8Click(Sender: TObject);
begin
   DBGrid1.DataSource:=nil
end;

end.