u_timeregister.pas

一个简单的学籍管理软件

unit U_TimeRegister;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  HGrids, HDBGrids, TB97Tlbr, TB97Ctls, TB97, DBTables, Db, Menus,
  ComCtrls, ExtCtrls, ImgList, HTitleDBGrid;

type
  TFm_TimeRegister = class(TForm)
    MDS: TDataSource;
    Dock: TDock97;
    Tb97_Func: TToolbar97;
    TbBtn_Help: TToolbarButton97;
    TbBtn_Exit: TToolbarButton97;
    MQuery: TQuery;
    MUpSQL: TUpdateSQL;
    PPM: TPopupMenu;
    PM_BBan: TMenuItem;
    PM_Help: TMenuItem;
    PM_Exit: TMenuItem;
    PM_Z02: TMenuItem;
    MTrView: TTreeView;
    Spl_Main: TSplitter;
    Pnl_DAn: TPanel;
    ImageList: TImageList;
    TbSep02: TToolbarSep97;
    TbBtn_Direct: TToolbarButton97;
    MQuerys_xhao: TStringField;
    MQuerys_xming: TStringField;
    MQuerys_xqhao: TStringField;
    MQueryi_sjitshu: TIntegerField;
    MQueryi_sjtshu: TIntegerField;
    MQueryi_bjtshu: TIntegerField;
    MQueryi_kkjshu: TIntegerField;
    MQueryi_cdcshu: TIntegerField;
    MQueryi_ztcshu: TIntegerField;
    TbBtn_Print: TToolbarButton97;
    TbSp01: TToolbarSep97;
    PM_Z01: TMenuItem;
    PM_Print: TMenuItem;
    MGrid: THTitleDBGrid;
    procedure TbBtn_ExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Spl_MainCanResize(Sender: TObject; var NewSize: Integer;
      var Accept: Boolean);
    procedure Spl_FuCanResize(Sender: TObject; var NewSize: Integer;
      var Accept: Boolean);
    procedure MTrViewGetImageIndex(Sender: TObject; Node: TTreeNode);
    procedure MTrViewGetSelectedIndex(Sender: TObject; Node: TTreeNode);
    procedure MTrViewChange(Sender: TObject; Node: TTreeNode);
    procedure TbBtn_HelpClick(Sender: TObject);
    procedure TbBtn_DirectClick(Sender: TObject);
    procedure MQueryAfterPost(DataSet: TDataSet);
    procedure MQueryAfterOpen(DataSet: TDataSet);
    procedure TbBtn_PrintClick(Sender: TObject);
    //procedure QueryGetText(Sender: TField; var Text: String; DisplayText: Boolean);
    //procedure QuerySetText(Sender: TField; const Text: String);
    //procedure MGridDblClick(Sender: TObject);
    //procedure MGridKeyDown(Sender: TObject; var Key: Word;
    //  Shift: TShiftState);
  private
  public
  end;

var
  Fm_TimeRegister: TFm_TimeRegister;

procedure Show_TimeRegister;

implementation

uses U_Main, U_GlobalProc, U_GlobalVar, U_DM, U_Print;

{$R *.DFM}

procedure Show_TimeRegister;
var
  i: integer;
begin
  for i := Fm_Main.MDIChildCount - 1 downto 0 do
  begin
    if (Fm_Main.MDIChildren[i].Name <> 'Fm_Wizard') and
      (Fm_Main.MDIChildren[i].Name <> 'Fm_TimeRegister') then
      Fm_Main.MDIChildren[i].Close;
  end;
  if not Assigned(Fm_TimeRegister) then
  begin
    Fm_TimeRegister := TFm_TimeRegister.Create(Application);
    with Fm_TimeRegister do
    begin
      MQuery.Open;
      //ReSetGridColumns(MGrid, 'XSKQTJ', QueryGetText, QuerySetText);
      RefreshGridStyle(MGrid);
      MakeGradeTree(MTrView, 0, False);
      MTrView.Items[0].Selected := True;
    end;
  end;
  with Fm_TimeRegister do
  begin
    if WindowState <> wsMaximized then
      WindowState := wsMaximized;
    Show;
    SetFocus;
  end;
end;

procedure TFm_TimeRegister.TbBtn_ExitClick(Sender: TObject);
begin
  if MQuery.State = dsEdit then
    MQuery.Post;
  Close;
end;

procedure TFm_TimeRegister.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  MQuery.Close;
  Action := caFree;
  Fm_TimeRegister := nil;
end;

procedure TFm_TimeRegister.Spl_MainCanResize(Sender: TObject;
  var NewSize: Integer; var Accept: Boolean);
begin
  if NewSize < 8 then
    Accept := False;
end;

procedure TFm_TimeRegister.Spl_FuCanResize(Sender: TObject;
  var NewSize: Integer; var Accept: Boolean);
begin
  if NewSize < 8 then
    Accept := False;
end;

procedure TFm_TimeRegister.MTrViewGetImageIndex(Sender: TObject;
  Node: TTreeNode);
begin //
  if Node.HasChildren then
  begin
    if Node.Expanded then
      Node.ImageIndex := 2
    else
      Node.ImageIndex := 1;
  end
  else
  begin
    if Node.Level = 0 then
      Node.ImageIndex := 1
    else
      Node.ImageIndex := 0;
  end;
end;

procedure TFm_TimeRegister.MTrViewGetSelectedIndex(Sender: TObject;
  Node: TTreeNode);
begin
  if Node.HasChildren then
  begin
    if Node.Expanded then
      Node.SelectedIndex := 5
    else
      Node.SelectedIndex := 4;
  end
  else
  begin
    if Node.Level = 0 then
      Node.SelectedIndex := 4
    else
      Node.SelectedIndex := 3;
  end;
end;

procedure TFm_TimeRegister.MTrViewChange(Sender: TObject;
  Node: TTreeNode);
var
  tmS: string;
begin
  with MQuery do
  try                                 
    DisableControls;                  
    Close;
    SQL.Text := 'SELECT d1.s_xhao, d2.s_xming, d1.s_xqhao, d1.i_sjitshu, d1.i_sjtshu, ' +
      'd1.i_bjtshu, d1.i_kkjshu, d1.i_cdcshu, d1.i_ztcshu FROM xskqtj d1, xsjbxx d2 ';
    if Integer(Node.Data) < 9999 then
    begin //  年级
      tmS := S_SchoolCode + IntToStr(Integer(Node.Data)) + '%';
      SQL.Text := SQL.Text + 'WHERE d2.s_xhao LIKE ''' + tmS + ''' AND d1.s_xhao=d2.s_xhao' +
        ' AND d1.s_xqhao=''' + S_CurTermCode + '''';
    end
    else
    begin //  班级
      tmS := IntFormatStr(Integer(Node.Data), 9);
      SQL.Text := SQL.Text + 'WHERE d2.s_bjhao = ''' + tmS + ''' AND d1.s_xhao=d2.s_xhao' +
        ' AND d1.s_xqhao=''' + S_CurTermCode + '''';
    end;
    Open;
  finally
    EnableControls;
  end;
end;

procedure TFm_TimeRegister.TbBtn_HelpClick(Sender: TObject);
begin //

end;

procedure TFm_TimeRegister.TbBtn_DirectClick(Sender: TObject);
begin
  if MGrid.ReturnDirection = rdUp then
    MGrid.ReturnDirection := rdNone
  else
    MGrid.ReturnDirection := THReturnDirection(Integer(MGrid.ReturnDirection) + 1);
  TbBtn_Direct.ImageIndex := 38 + Integer(MGrid.ReturnDirection);
end;

procedure TFm_TimeRegister.MQueryAfterPost(DataSet: TDataSet);
begin
  MQuery.ApplyUpdates;
end;

{procedure TFm_TimeRegister.QueryGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  if Sender.Asinteger = 1 then
    Text := '√'
  else
    Text := ' ';
end;

procedure TFm_TimeRegister.QuerySetText(Sender: TField;
  const Text: String);
begin
  if Text = '√' then
    Sender.AsInteger := 1
  else
    Sender.AsInteger := 2;
end;

procedure TFm_TimeRegister.MGridDblClick(Sender: TObject);
begin  //
  GridDblClick(Sender);
end;

procedure TFm_TimeRegister.MGridKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  GridKeyDown(Sender, Key, Shift);
end;
}
procedure TFm_TimeRegister.MQueryAfterOpen(DataSet: TDataSet);
begin
  if MQuery.IsEmpty then
    MGrid.Options := MGrid.Options - [tgEditing]
  else
    MGrid.Options := MGrid.Options + [tgEditing];
end;

procedure TFm_TimeRegister.TbBtn_PrintClick(Sender: TObject);
begin//
  Show_Print(MGrid);
end;

end.