tjbb.pas

高校教师工作量计算管理系统的设计与开发

unit TJBB;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin, Grids, DBGridEh, Db, ADODB,
  PrnDbgeh, RXSpin;

type
  TFTJBB = class(TForm)
    ToolBar1: TToolBar;
    TBOUT: TToolButton;
    TBPrint: TToolButton;
    TBrefresh: TToolButton;
    TBEXIT: TToolButton;
    ADO_BB: TADOQuery;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGridEh1: TDBGridEh;
    TVBB: TTreeView;
    DataSource1: TDataSource;
    PrintDBGridEh1: TPrintDBGridEh;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    RxS_KSND: TRxSpinEdit;
    Label3: TLabel;
    CB_XQ: TComboBox;
    RxS_JSND: TRxSpinEdit;
    Label1: TLabel;
    procedure TBEXITClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure TVBBClick(Sender: TObject);
    procedure DBGridEh1SortMarkingChanged(Sender: TObject);
    procedure TBOUTClick(Sender: TObject);
    procedure TBPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TBrefreshClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FTJBB: TFTJBB;

implementation

{$R *.DFM}
uses main,tools,DBGridEhToExcel;
procedure TFTJBB.TBEXITClick(Sender: TObject);
begin
close;

end;

procedure TFTJBB.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure TFTJBB.FormDestroy(Sender: TObject);
begin
FTJBB:=nil;
end;

procedure TFTJBB.TVBBClick(Sender: TObject);
var i:integer;
SQL:string;
SQLCS:string;
begin
//设置查询时间参数
if (CB_XQ.text<>'全年') and (tvbb.Selected.StateIndex<5)  then
SQLCS:=' where (年度 BETWEEN '''+RxS_KSND.Text+''' and '''+RxS_JSND.Text+''') and 学期='''+cb_Xq.Text+''''
else
SQLCS:=' where 年度 BETWEEN '''+RxS_KSND.Text+''' and '''+RxS_JSND.Text+'''';
//showmessage('SQLCS');
case tvbb.Selected.StateIndex  of
1:
SQL:='SELECT * from BKS_BB ';
2:
SQL:='SELECT * from BKS_KCTJ ';
3:
SQL:='SELECT * from YJS_BB ';
4:
SQL:='SELECT * from YJS_KCTJ ';
5:
SQL:='SELECT * from BYSJ_BB ';
6:
SQL:='SELECT * from BYSJ_KCTJ ';
7:
SQL:='SELECT * from BYSJ_BB ' ;
else
exit;
end;
ADO_BB.Close;
ADO_BB.sql.Clear;
ADO_BB.SQL.add(SQL+SQLCS);
//showmessage(ADO_BB.SQL.Text);
ADO_BB.Open;
//if ADO_BB.RecordCount<>0 then
//begin
 for i:=0 to DBGridEh1.Columns.Count-1
  do
  begin
  DBGridEh1.Columns[i].Title.Alignment:=taCenter;
  DBGridEh1.Columns[i].Alignment:=taCenter;
  DBGridEh1.Columns[i].Width:=70;
  DBGridEh1.Columns[i].Title.TitleButton:=true;

//  end;
end;

end;

procedure TFTJBB.DBGridEh1SortMarkingChanged(Sender: TObject);
begin
if DBGridEh1.Columns[DBGridEh1.Columns.Grid.SelectedIndex].Title.SortMarker= smDownEh then
ado_BB.sort:=DBGridEh1.Columns[DBGridEh1.Columns.Grid.SelectedIndex].Field.DisplayName+' DESC'
else
ado_BB.sort:=DBGridEh1.Columns[DBGridEh1.Columns.Grid.SelectedIndex].Field.DisplayName+' ASC';
//showmessage(DBGridEh1.Columns[DBGridEh1.Columns.Grid.SelectedIndex].Field.DisplayName);
ado_BB.First;
end;

procedure TFTJBB.TBOUTClick(Sender: TObject);
var
DBGridEhToExcel: TDBGridEhToExcel;
begin
DBGridEhToExcel := TDBGridEhToExcel.Create(nil);
try
DBGridEhToExcel.TitleName := tvbb.Selected.Text;
DBGridEhToExcel.DBGridEh := DBGridEh1;
DBGridEhToExcel.ShowProgress := True;
DBGridEhToExcel.FileName := ExtractFileDir(Application.Exename)+'\'+tvbb.Selected.Text+'.xls';
DBGridEhToExcel.ExportToExcel;
finally
DBGridEhToExcel.Free;
//CopyDbDataToExcel([DBGrid1]);
//CopyDbDataToExcel([DBGridEh1]);
end;
end;

procedure TFTJBB.TBPrintClick(Sender: TObject);
begin
 PrintDBGridEh1.PageHeader.CenterText.Text:=tvbb.Selected.Parent.Text+'----'+ tvbb.Selected.Text;
 PrintDBGridEh1.PageFooter.LeftText.Clear ;
  PrintDBGridEh1.PageFooter.LeftText.add('');
 //  PrintDBGridEh1.PageFooter.LeftText.add('单位：'+gsmc+'      打印人：'+czy);
  PrintDBGridEh1.PageFooter.LeftText.add('');
  //PrintDBGridEh1.PageFooter.LeftText.add('');
  PrintDBGridEh1.PageFooter.RightText.Clear ;
  PrintDBGridEh1.PageFooter.RightText.add('打印日期：'+formatdatetime('yyyy-mm-dd',date));
  //PrintDBGridEh1.PageFooter.RightText.add('');
  PrintDBGridEh1.PageFooter.RightText.add('');
  PrintDBGridEh1.PageFooter.centertext.Clear ;
  PrintDBGridEh1.PageFooter.centertext.Add('');
  PrintDBGridEh1.PageFooter.centertext.add(' 第 &[Page] 页 共 &[Pages] 页');
  PrintDBGridEh1.Preview;
end;

procedure TFTJBB.FormCreate(Sender: TObject);
begin
RXS_KSnd.Text:=copy(datetostr(Now),1,4);
RXS_JSnd.Text:=copy(datetostr(Now),1,4);
CB_XQ.ItemIndex:=0;
end;

procedure TFTJBB.TBrefreshClick(Sender: TObject);
begin
tvbb.OnClick(self); 
end;

end.