u_look.pas

delphi编的排课管理系统

unit U_look;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, ComCtrls, ToolWin, ImgList, PrnDbgeh,inifiles;

type
  Tf_look = class(TForm)
    DBGridEh1: TDBGridEh;
    DBGridEh2: TDBGridEh;
    ImageList2: TImageList;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButtonexit: TToolButton;
    ToolButton9: TToolButton;
    ToolButton2: TToolButton;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    ToolButton6: TToolButton;
    ToolButton3: TToolButton;
    ToolButton8: TToolButton;
    printdb: TPrintDBGridEh;
    ToolButton1: TToolButton;
    StatusBar1: TStatusBar;
    PrintDialog1: TPrintDialog;
    ToolButton4: TToolButton;
    ToolButton10: TToolButton;
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButtonexitClick(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_look: Tf_look;

implementation
 uses U_data, u_wrong, u_edit_kc;
{$R *.dfm}

procedure Tf_look.DBGridEh1DblClick(Sender: TObject);
var cn:string ;
begin
  with datamodule1 do
  begin
    temp2.Close;
    cn:=tb_class['name'];
    temp2.TableName :='pk'+cn+'.db';
    temp2.Filtered :=false;
    temp2.Filter :='kind<>'+'''老师''';
    temp2.Filtered :=true;
    temp2.Open;
  end;
    
end;

procedure Tf_look.FormShow(Sender: TObject);
begin
datamodule1.tb_class.Open;
dbgrideh2.ReadOnly :=true;
end;

procedure Tf_look.FormClose(Sender: TObject; var Action: TCloseAction);
begin
datamodule1.tb_class.Close;
datamodule1.temp2.Close;

end;

procedure Tf_look.ToolButtonexitClick(Sender: TObject);
begin
close;
end;

procedure Tf_look.ToolButton3Click(Sender: TObject);
var date1,date2:tdate;
    pkini:tinifile;
   year1,month1,day1,year2,month2,day2:word;
begin
 if  fileexists('e:/paike/pk.ini') then
 pkini:=tinifile.Create('e:/paike/pk.ini');
 date1:=pkini.Readdate('team','date1',0);
 date2:=pkini.Readdate('team','date2',0);
 pkini.Free ;
 decodedate(date1,year1,month1,day1);
 decodedate(date2,year2,month2,day2);

 if month1<6 then
 printdb.PageHeader.CenterText.Text  :='地方生院2003年下学期'+datamodule1.tb_class['name']+'队课程表'
else
 printdb.PageHeader.CenterText.Text  :='地方生院2002年上学期'+datamodule1.tb_class['name']+'队课程表';
 printdb.BeforeGridText.Append('('+inttostr(year1)+'年'+inttostr(month1)+'月------'+inttostr(year2)+'年'+inttostr(month2)+'月)');
 //加入课程说明;
 with datamodule1 do
 begin
 query1.Close;
 query1.SQL.Clear ;
 query1.SQL.Add('select * from apply where class=:class');
 query1.Params.ParamValues['class']:=tb_class['name'];
 query1.Open;
 printdb.AfterGridText.Clear ;
 printdb.BeforeGridText.Clear ;
 printdb.AfterGridText.Append('_______________________________________________________________________________________________________________________________________________________');
 while not  query1.Eof do
 begin
 printdb.afterGridText.add('科目:'+query1.FieldValues['kc_name']+'               '+'简称:'+query1.FieldValues['kc_na']+'               '+'时数:'+inttostr(query1.FieldValues['xueshi']));
 query1.Next ;
 end;
  printdb.AfterGridText.Append('_____________________________________________________________________________________________________________________________________________________');
 query1.Close;
 end;

 printdb.Preview ;

 end;

procedure Tf_look.ToolButton2Click(Sender: TObject);
begin
printdialog1.Execute ;
end;

procedure Tf_look.ToolButton7Click(Sender: TObject);
var cn:string;
begin
with datamodule1 do
  begin
    temp2.Close;
    cn:=tb_class['name'];
    temp2.TableName :='pk'+cn+'.db';
    temp2.Filtered :=false;
    temp2.Filter :='';
    //temp2.Filtered :=true;
    temp2.Open;
  end;
edit_kc.show;

end;

procedure Tf_look.ToolButton4Click(Sender: TObject);
begin
f_wrong.show;
end;

end.