u_set_tj.pas

delphi编的排课管理系统

unit u_set_tj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGridEh,
  DB, DBTables;

type
  Tf_set_tj = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    date1: TDateTimePicker;
    date2: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBGridEh2: TDBGridEh;
    e_name: TDBLookupComboBox;
    Label7: TLabel;
    Bevel1: TBevel;
    Label8: TLabel;
    dt1: TDateTimePicker;
    dt2: TDateTimePicker;
    Label9: TLabel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Bevel2: TBevel;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Bevel3: TBevel;
    Bevel4: TBevel;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    DBGridEh1: TDBGridEh;
    Bevel5: TBevel;
    Bevel6: TBevel;
    Table1: TTable;
    DataSource1: TDataSource;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  //procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure TabSheet2Hide(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_set_tj: Tf_set_tj;

implementation
uses u_data;
{$R *.dfm}

procedure Tf_set_tj.BitBtn1Click(Sender: TObject);
var d1,d2,wk:pchar;
    f,l:tdate;
    w,i:integer;
    year,month,day:word;
    path:string;
begin
   //将学期情况写入INI文件;


   path:=extractfilepath(application.ExeName)+'\pk.ini';

   label5.Caption :=inttostr(round((date2.Date-date1.Date)/7 ));
   d1:=pchar(datetostr(date1.Date ));
   d2:=pchar(datetostr(date2.Date ));
   wk:=pchar(label5.Caption );
   writeprivateprofilestring(
   'team',
   'date1',
   d1,
   pchar(path));
   writeprivateprofilestring(
   'team',
   'date2',
   d2,
   pchar(path));
   writeprivateprofilestring(
   'team',
   'week',
   wk,
   pchar(path));
//开始制作排课日期表;

   f:=date1.Date;
   l:=date2.Date;
   w:=round((l-f)/7);
   table1.Close;
   table1.EmptyTable ;
   for i:=1 to w do
   begin
   table1.Open;
   table1.Last ;
   DecodeDate(f,year,month,day);
   table1.Append;
   table1['week']:=i;
   table1['m']:=month;
   table1['d1']:=day;
   table1['y1']:=true;
   f:=f+1;
   decodedate(f,year,month,day);
   table1['d2']:=day;
   table1['y2']:=true;
   f:=f+1;
   decodedate(f,year,month,day);
   table1['d3']:=day;
   table1['y3']:=true;
   f:=f+1;
   decodedate(f,year,month,day);
   table1['d4']:=day;
   table1['y4']:=true;
   f:=f+1;
   decodedate(f,year,month,day);
   table1['d5']:=day;
   table1['y5']:=true;
   f:=f+3;
   table1.Post ;
   table1.Close;
   table1.Open;
   table1.Last ;
   table1.Append;
   table1['week']:=null;
   table1['d1']:=null;
   table1['y1']:=null;
   table1['d2']:=null;
   table1['y2']:=null;
   table1['d3']:=null;
   table1['y3']:=null;
   table1['d4']:=null;
   table1['y3']:=null;
   table1['d5']:=null;
   table1['y5']:=null;
   table1.Post ;
   table1.Close;
   end;


   showmessage('写入完毕');


end;

procedure Tf_set_tj.BitBtn5Click(Sender: TObject);
//var
//year,month,day:word;
begin
dbgrideh1.ReadOnly:=false;

{ table1.Close;
 table1.Filter :='';
 table1.Filtered :=false;

//将 放假入库;
 {with datamodule1 do
 begin
  tb_fj.Open;
  tb_fj.Last ;
  tb_fj.Append;
  tb_fj['date1']:=d3.Date ;
  tb_fj.Post ;
  tb_fj.Close;
  tb_fj.Open;
 end;   }
 //调整日期;
 {decodedate(d3.Date ,year,month,day);
 table1.Close;
 table1.Filtered :=false;
 table1.Filter :='m='+inttostr(month)+' and ('+'d1='+inttostr(day)+ ' or '+'d2='+inttostr(day)+
 ' or '+'d3='+inttostr(day)+' or '+'d4='+inttostr(day)+' or '+'d5='+inttostr(day)+')';
 showmessage(table1.Filter );
 table1.Filtered :=true;
 table1.Open;
 showmessage(inttostr(table1.RecordCount ));
 table1.Edit ;
 if table1['d1']=day then table1['y1']:=false;
 if table1['d2']=day then table1['y2']:=false;
 if table1['d3']=day then table1['y3']:=false;
 if table1['d4']=day then table1['y4']:=false;
 if table1['d5']=day then table1['y5']:=false;
 table1.Post ;
 table1.Close;
 table1.Filtered:=false;
 table1.Filter :='week<>null';
 table1.Filtered :=true;
 table1.Open;
showmessage('写入完毕');

end;

procedure Tf_set_tj.BitBtn3Click(Sender: TObject);
begin
 with DataModule1 do
 begin
  tb_tech_gc.Open;
  tb_tech_gc.Last ;
  tb_tech_gc.Append;
  tb_tech_gc['tec_name']:=e_name.Text ;
  tb_tech_gc['date1']:=dt1.date;
  tb_tech_gc['date2']:=dt2.Date ;
  tb_tech_gc.Post ;
  end;
showmessage('写入完毕!'); }
end;

procedure Tf_set_tj.FormShow(Sender: TObject);
begin
datamodule1.tb_tec.Open;
datamodule1.tb_fj.Open;
datamodule1.tb_tech_gc.Open;
end;

procedure Tf_set_tj.BitBtn9Click(Sender: TObject);
begin
datamodule1.tb_tech_gc.First ;
end;

procedure Tf_set_tj.BitBtn7Click(Sender: TObject);
begin
datamodule1.tb_tech_gc.Prior ;
end;

procedure Tf_set_tj.BitBtn8Click(Sender: TObject);
begin
datamodule1.tb_tech_gc.Next ;
end;

procedure Tf_set_tj.BitBtn10Click(Sender: TObject);
begin
datamodule1.tb_tech_gc.Last ;
end;

procedure Tf_set_tj.BitBtn11Click(Sender: TObject);
begin
datamodule1.tb_tech_gc.Delete ;

end;

procedure Tf_set_tj.BitBtn12Click(Sender: TObject);
begin
 datamodule1.tb_fj.Delete ;
 
end;

procedure Tf_set_tj.TabSheet2Show(Sender: TObject);
begin
table1.Close;
table1.Filter :='week<>null';
table1.Filtered :=true;
table1.Open;
end;

procedure Tf_set_tj.TabSheet2Hide(Sender: TObject);
begin
table1.Close;
table1.Filter :='';
table1.Filtered :=false;
end;

procedure Tf_set_tj.BitBtn3Click(Sender: TObject);
begin
 with datamodule1 do
 begin
 tb_tech_gc.Open;
 tb_tech_gc.Append;
 tb_tech_gc['tec_name']:=e_name.Text ;
 tb_tech_gc['date1']:=dt1.Date ;
 tb_tech_gc['date2']:=dt2.Date;
 tb_tech_gc.Post ;
 showmessage('登记完毕');
 end;
end;

procedure Tf_set_tj.BitBtn4Click(Sender: TObject);
begin
table1.Close;
close;
end;

procedure Tf_set_tj.BitBtn6Click(Sender: TObject);
begin
table1.Close;
close;
end;

procedure Tf_set_tj.FormClose(Sender: TObject; var Action: TCloseAction);
begin
table1.Close;
end;

procedure Tf_set_tj.BitBtn2Click(Sender: TObject);
begin
table1.Close;
end;

end.