p_xz.pas

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

unit P_XZ;

interface

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

type
  Tf_xz = class(Tf_mc)
    Label1: TLabel;
    check: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DBGrid1: TDBGrid;
    XPMenu1: TXPMenu;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure checkClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_xz: Tf_xz;

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

procedure Tf_xz.FormCreate(Sender: TObject);
begin
  if dm.T_dl['xz'] then check.Checked:=true
  else check.Checked:=false;
  if dm.T_XueQi.RecordCount<>0 then
     button2.Enabled:=true
  else  button2.Enabled:=false;

  f_xz.ShowModal;
end;

procedure Tf_xz.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tf_xz.checkClick(Sender: TObject);
begin
  if check.Checked then
  begin
    dm.T_dl.Edit;
    dm.T_dl['xz']:=true;
    dm.T_dl.Post;
  end
  else
  begin
    dm.T_dl.Edit;
    dm.T_dl['xz']:=false;
    dm.T_dl.Post;
  end;
end;

procedure Tf_xz.Button1Click(Sender: TObject);
begin
  inherited;
  f_gl.N16.Click;
  close;
end;

procedure Tf_xz.Button2Click(Sender: TObject);
begin
  inherited;
  with dm do
  begin
    t_kcbiao.Filter:='xqh='''+t_xueqi['xqh']+'''';
    t_kcbiao.Filtered:=true;
    //f_gl.Tree1.Selected.Item[0];
    f_gl.ZT.Panels[0].Text:=t_xueqi['xqm'];
    close;
  end; //with... end
end;

procedure Tf_xz.Button3Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tf_xz.DBGrid1DblClick(Sender: TObject);
begin
  inherited;
  button2.Click;

end;

end.