p_cx1.pas

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

unit p_cx1;

interface

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

type
  Tf_cx1 = class(Tf_mc)
    xq: TComboBox;
    Bevel1: TBevel;
    cb: TCheckBox;
    CheckBox2: TCheckBox;
    Bevel2: TBevel;
    Label1: TLabel;
    bj: TDBLookupComboBox;
    DBGrid1: TDBGrid;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    XPMenu1: TXPMenu;
    procedure FormCreate(Sender: TObject);
    procedure cbClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_cx1: Tf_cx1;

implementation

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

procedure Tf_cx1.FormCreate(Sender: TObject);
begin
  f_gl.C1.Click;
  dm.T_XueQi.Filtered:=false;
  dm.T_XueQi.First;
  xq.Items.Clear;
  while not dm.T_XueQi.Eof do
  begin
    xq.Items.Add(dm.T_XueQi['xqm']);
    dm.T_XueQi.Next;
  end;
  bj.KeyValue:=dm.T_BanJi['bjh'];
  f_cx1.ShowModal;
end;

procedure Tf_cx1.cbClick(Sender: TObject);
begin
 if cb.Checked then xq.Enabled:=true else
    xq.Enabled:=false;
end;

procedure Tf_cx1.BitBtn3Click(Sender: TObject);
begin
 if dm.q_xq.RecordCount=0 then
 begin
   application.MessageBox('没有课表记录！请重新查找！','预览失败',mb_ok+mb_iconstop);
   exit;
 end;
 dm.q_KCB.Filter:='bjh='''+bj.KeyValue+'''and xqh='''+dm.q_xq['xqh']+'''';
 dm.q_KCB.Filtered:=true;
 f_print.QR.Preview;
 close;
end;

procedure Tf_cx1.BitBtn2Click(Sender: TObject);
begin
  inherited;
  with dm do
  begin
    q_xq.SQL.Clear;
    q_xq.SQL.Add('select * from xueqi_info where (xueqi_info.xqm>=:x1)and(xueqi_info.xqm<=:x2)');
    q_xq.Parameters.ParamValues['x1']:=trim(xq.text)+chr(0);
    q_xq.Parameters.ParamValues['x2']:=trim(xq.Text)+chr($ff);
    q_xq.Open;
  end;
end;

end.