p_zd.pas

小学上课排课系统,非常实用,是实际使用软件

unit p_zd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,p_mc, ComCtrls, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons,
  XPMenu;

type
  Tf_zd = class(Tf_mc)
    page: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Label1: TLabel;
    b_edit: TBitBtn;
    b_del: TBitBtn;
    b_close: TBitBtn;
    b_add: TBitBtn;
    DBGrid2: TDBGrid;
    Bevel2: TBevel;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DBGrid3: TDBGrid;
    Edit3: TEdit;
    Label3: TLabel;
    Bevel3: TBevel;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    XPMenu1: TXPMenu;
    procedure FormCreate(Sender: TObject);
    procedure b_closeClick(Sender: TObject);
    procedure b_editClick(Sender: TObject);
    procedure b_delClick(Sender: TObject);
    procedure b_addClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure DBGrid3CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_zd: Tf_zd;

implementation
uses p_dm,p_gl;
{$R *.dfm}

procedure Tf_zd.FormCreate(Sender: TObject);
begin
  with dm do
  begin
    t_kecheng.Filtered:=false;
    t_jiaoshi.Filtered:=false;
    t_banji.Filtered:=false;
    if t_kecheng.RecordCount<>0 then edit1.Text:=t_kecheng['kcm'];
    if t_jiaoshi.RecordCount<>0 then edit2.Text:=t_jiaoshi['jsm'];
    if t_banji.RecordCount<>0   then edit3.Text:=t_banji['bjm'];
  end;
  f_gl.C1.Click;
  f_zd.ShowModal;
end;

procedure Tf_zd.b_closeClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tf_zd.b_editClick(Sender: TObject);
begin
  inherited;
  with dm do
  begin
    if t_kecheng.RecordCount=0 then
    begin
      application.MessageBox('没有记录可修改！','修改',mb_ok+mb_iconinformation);
      exit;
    end;
    t_kecheng.Edit;
    t_kecheng['kcm']:=trim(edit1.Text);
    t_kecheng.Post;
    application.MessageBox('修改成功!','修改',mb_ok+mb_iconinformation);
  end;
end;

procedure Tf_zd.b_delClick(Sender: TObject);
begin
  inherited;
  with dm do
  begin
    if t_kecheng.RecordCount=0 then
    begin
      application.MessageBox('没有发现课程，请添加！','修改',mb_ok+mb_iconinformation);
      exit;
    end;
    if application.MessageBox('确认删除该课程吗？','删除',mb_okcancel+mb_iconquestion)=idcancel then exit;
    t_kecheng.Edit;
    t_kecheng.Delete;
  end; //with ... end
end;

procedure Tf_zd.b_addClick(Sender: TObject);
var
 i:integer;
begin
  inherited;
  with dm do
  begin
    t_kecheng.Filter:='kcm='''+trim(edit1.Text)+'''';
    t_kecheng.Filtered:=true;
    if (t_kecheng.RecordCount<>0)or(trim(edit1.Text)='') then
    begin
      t_kecheng.Filtered:=false;
      application.MessageBox('课程为空或者已有该课程!','增加',mb_ok+mb_iconinformation);
      exit;
    end;
    t_kecheng.Filtered:=false;
    t_kecheng.Last;
    if t_kecheng.RecordCount<>0 then
      i:=t_kecheng['kch']
    else i:=0;
    t_kecheng.Edit;
    t_kecheng.Append;
    t_kecheng['kch']:=i+1;
    t_kecheng['kcm']:=trim(edit1.text);
    t_kecheng.Post;
    f_gl.tree_data;
  end;
end;

procedure Tf_zd.BitBtn1Click(Sender: TObject);
var
 i:integer;
begin
  inherited;
  with dm do
  begin
    t_jiaoshi.Filter:='jsm='''+trim(edit2.Text)+'''';
    t_jiaoshi.Filtered:=true;
    if (t_jiaoshi.RecordCount<>0)or(trim(edit2.Text)='') then
    begin
      t_jiaoshi.Filtered:=false;
      application.MessageBox('教师姓名为空或者已有该教师!','增加',mb_ok+mb_iconinformation);
      exit;
    end;
    t_jiaoshi.Filtered:=false;
    t_jiaoshi.Last;
    if t_jiaoshi.RecordCount<>0 then
      i:=t_jiaoshi['jsh']
    else i:=0;
    t_jiaoshi.Edit;
    t_jiaoshi.Append;
    t_jiaoshi['jsh']:=i+1;
    t_jiaoshi['jsm']:=trim(edit2.text);
    t_jiaoshi.Post;
    f_gl.tree_data;
  end;
end;

procedure Tf_zd.BitBtn2Click(Sender: TObject);
begin
  inherited;
  with dm do
  begin
    if t_jiaoshi.RecordCount=0 then
    begin
      application.MessageBox('没有记录可修改！','修改',mb_ok+mb_iconinformation);
      exit;
    end;
    t_jiaoshi.Edit;
    t_jiaoshi['jsm']:=trim(edit2.Text);
    t_jiaoshi.Post;
    application.MessageBox('修改成功!','修改',mb_ok+mb_iconinformation);
    f_gl.tree_data;
  end;
end;

procedure Tf_zd.BitBtn4Click(Sender: TObject);
begin
  inherited;
  with dm do
  begin
    if t_jiaoshi.RecordCount=0 then
    begin
      application.MessageBox('没有发现该班级，请添加！','修改',mb_ok+mb_iconinformation);
      exit;
    end;
    if application.MessageBox('确认删除该班级吗？','删除',mb_okcancel+mb_iconquestion)=idcancel then exit;
    t_kcbiao.Filter:='bjh='''+t_banji['bjh']+'''';
    t_kcbiao.Filtered:=true;
    while not t_kcbiao.Eof do
    begin
      t_kcbiao.First;
      t_kcbiao.Edit;
      t_kcbiao.Delete;
    end;
    t_jiaoshi.Edit;
    t_jiaoshi.Delete;
    f_gl.tree_data;
  end; //with ... end

end;

procedure Tf_zd.BitBtn6Click(Sender: TObject);
var
 i,t,j:integer;
 s:string;
begin
  inherited;
    with dm do
  begin
    t_banji.Filter:='bjm='''+trim(edit3.Text)+'''';
    t_banji.Filtered:=true;
    if (t_banji.RecordCount<>0)or(trim(edit3.Text)='') then
    begin
      t_banji.Filtered:=false;
      application.MessageBox('班级名称为空或者已有该班级!','增加',mb_ok+mb_iconinformation);
      exit;
    end;
    t_banji.Filtered:=false;
    t_banji.Last;
    if t_banji.RecordCount<>0 then
      i:=t_banji['bjh']
    else i:=0;
    t_banji.Edit;
    t_banji.Append;
    t_banji['bjh']:=i+1;
    t_banji['bjm']:=trim(edit3.text);
    t_banji.Post;
    //以下信息添加到t_kcbiao
    t_xueqi.Filtered:=false;
    while not t_xueqi.Eof do
    begin
      t_kcbiao.Edit;
      t_kcbiao.Append;
      t_kcbiao['bjh']:=t_banji['bjh'];
      t_kcbiao['xqh']:=t_xueqi['xqh'];
      for t:=1 to 6 do
        for j:=1 to 8 do
          begin
            s:=trim(inttostr(t)+inttostr(j));
            t_kcbiao[s]:='';
          end;
      t_kcbiao.Post;
      t_xueqi.Next;
    end;
    f_gl.tree_data;
  end;
end;

procedure Tf_zd.BitBtn5Click(Sender: TObject);
begin
  inherited;
    with dm do
  begin
    if (t_banji.RecordCount=0)or(trim(edit3.Text)='') then
    begin
      application.MessageBox('没有记录可修改或班级名称为空！','修改',mb_ok+mb_iconinformation);
      exit;
    end;
    t_banji.Edit;
    t_banji['bjm']:=trim(edit3.Text);
    t_banji.Post;
    application.MessageBox('修改成功!','修改',mb_ok+mb_iconinformation);
    f_gl.tree_data;  
  end;

end;

procedure Tf_zd.DBGrid1CellClick(Column: TColumn);
begin
  inherited;
    if dm.T_KeCheng.RecordCount<>0 then
      edit1.Text:=dm.T_KeCheng['kcm']
end;

procedure Tf_zd.DBGrid2CellClick(Column: TColumn);
begin
  inherited;
    if dm.T_jiaoshi.RecordCount<>0 then
      edit2.Text:=dm.T_jiaoshi['jsm']

end;

procedure Tf_zd.DBGrid3CellClick(Column: TColumn);
begin
  inherited;
    if dm.T_banji.RecordCount<>0 then
      edit3.Text:=dm.T_banji['bjm']

end;

end.