p_new.pas

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

unit p_new;

interface

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

type
  Tf_new = class(Tf_mc)
    Bevel1: TBevel;
    Label1: TLabel;
    edit1: TEdit;
    b_ok: TBitBtn;
    b_cancel: TBitBtn;
    XPMenu1: TXPMenu;
    procedure FormCreate(Sender: TObject);
    procedure edit1Change(Sender: TObject);
    procedure b_cancelClick(Sender: TObject);
    procedure b_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_new: Tf_new;

implementation

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

procedure Tf_new.FormCreate(Sender: TObject);
begin
  f_new.ShowModal;
end;

procedure Tf_new.edit1Change(Sender: TObject);
begin
  if trim(edit1.Text)='' then b_ok.Enabled:=false
  else b_ok.Enabled:=true; 
end;

procedure Tf_new.b_cancelClick(Sender: TObject);
begin
  close;
end;

procedure Tf_new.b_okClick(Sender: TObject);
var
 xqh,i,j:integer;
 s:string;
begin
  with dm do
  begin
    t_xueqi.Last;

    if t_xueqi.RecordCount<>0 then
      xqh:=t_xueqi['xqh']
    else xqh:=0;

    t_xueqi.Edit;
    t_xueqi.Append;
    t_xueqi['xqh']:=xqh+1;
    t_xueqi['xqm']:=trim(edit1.Text);
    t_xueqi.Post;
    t_banji.First;

    while not t_banji.Eof do
    begin
      t_kcbiao.Edit;
      t_kcbiao.Append;
      t_kcbiao['xqh']:=xqh+1;
      t_kcbiao['bjh']:=t_banji['bjh'];
      for i:=1 to 6 do
        for j:=1 to 8 do
          begin
            s:=trim(inttostr(i)+inttostr(j));
            t_kcbiao[s]:='';
          end;
      t_kcbiao.Post;
      t_banji.Next;
    end;
    t_kcbiao.Filter:='xqh='''+inttostr(xqh+1)+'''';
    t_kcbiao.Filtered:=true;
    //f_gl.Tree1.Selected.Item[1];
    f_gl.ZT.Panels[0].Text:=t_xueqi['xqm'];
    close;
  end;  //with...end
end;

end.