edurecord.pas

pasa人力资源考勤管理系统

unit edurecord;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Menus, ImgList, DBCtrls, ComCtrls, ToolWin,
  Grids, DBGrids, Db, ADODB, Mask, ppCtrls, ppVar, ppBands, ppPrnabl,
  ppClass, ppCache, ppDB, ppDBPipe, ppDBBDE, ppComm, ppRelatv, ppProd,
  ppReport;

type
  TFormedurecord = class(TForm)
    PopupMenu1: TPopupMenu;
    N11: TMenuItem;
    N12: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DSedurecord: TDataSource;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    Qrycourse: TADOQuery;
    Qrycoursecourseno: TStringField;
    Qrycoursecourse: TStringField;
    Qryteacher: TADOQuery;
    Qryteachername: TStringField;
    Qryteacherdept: TStringField;
    Qryteacherprof: TStringField;
    Qryteacherdegree: TStringField;
    Qryteacherspecial: TStringField;
    Qryteacherstate: TStringField;
    Qryplace: TADOQuery;
    Qryplacename: TStringField;
    Qryplaceplace: TStringField;
    Qryplacepeoples: TIntegerField;
    DataSource1: TDataSource;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    tblcheck: TToolButton;
    tbluncheck: TToolButton;
    ToolButton5: TToolButton;
    tblmany: TToolButton;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    ToolButton7: TToolButton;
    ToolButton4: TToolButton;
    DBNavigator1: TDBNavigator;
    Dseduresult: TDataSource;
    Adoedurecord: TADODataSet;
    Adoedurecordrq: TStringField;
    Adoedurecordcourseno: TStringField;
    Adoedurecordcourse: TStringField;
    Adoedurecordstate: TStringField;
    Adoedurecordlevels: TStringField;
    Adoedurecordpeoples: TStringField;
    Adoedurecorddept: TStringField;
    Adoedurecordteacher: TStringField;
    Adoedurecordplace: TStringField;
    Adoedurecordoperator: TStringField;
    ADOeduresult: TADODataSet;
    ADOeduresultrq: TStringField;
    ADOeduresultworkno: TStringField;
    ADOeduresultcardno: TStringField;
    ADOeduresultname: TStringField;
    ADOeduresultdept: TStringField;
    ADOeduresultcourseno: TStringField;
    ADOeduresultcourse: TStringField;
    ADOeduresulttimes: TBCDField;
    ADOeduresultplace: TStringField;
    ADOeduresultteacher: TStringField;
    ADOeduresultresult: TBCDField;
    ADOeduresultpass: TBooleanField;
    ADOeduresultcheckman: TStringField;
    PopupMenu2: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N3: TMenuItem;
    ppReport1: TppReport;
    ppBDEPipeline1: TppBDEPipeline;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppTitleBand1: TppTitleBand;
    ppLabel1: TppLabel;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    ppDBText2: TppDBText;
    ppLabel3: TppLabel;
    ppDBText3: TppDBText;
    ppLabel4: TppLabel;
    ppDBText4: TppDBText;
    ppLabel5: TppLabel;
    ppDBText5: TppDBText;
    ppLabel6: TppLabel;
    ppDBText6: TppDBText;
    ppLabel7: TppLabel;
    ppDBText7: TppDBText;
    ppLabel8: TppLabel;
    ppDBText8: TppDBText;
    ppLabel9: TppLabel;
    ppLine1: TppLine;
    ppSummaryBand1: TppSummaryBand;
    ppLabel27: TppLabel;
    ppLabel28: TppLabel;
    ppSystemVariable7: TppSystemVariable;
    ppLabel29: TppLabel;
    ppLabel30: TppLabel;
    ppSystemVariable8: TppSystemVariable;
    ppLabel31: TppLabel;
    ppLabel34: TppLabel;
    ppDBCalc3: TppDBCalc;
    ppLabel33: TppLabel;
    ppLine4: TppLine;
    ppLabel32: TppLabel;
    Panel7: TPanel;
    Label14: TLabel;
    Label15: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    MaskEdit3: TMaskEdit;
    MaskEdit4: TMaskEdit;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label12: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Edit1: TEdit;
    ppReport2: TppReport;
    ppBDEPipeline2: TppBDEPipeline;
    ppHeaderBand2: TppHeaderBand;
    ppDetailBand2: TppDetailBand;
    ppTitleBand2: TppTitleBand;
    ppLabel10: TppLabel;
    ppDBText9: TppDBText;
    ppLabel11: TppLabel;
    ppDBText10: TppDBText;
    ppLabel12: TppLabel;
    ppDBText11: TppDBText;
    ppLabel13: TppLabel;
    ppDBText12: TppDBText;
    ppLabel14: TppLabel;
    ppDBText13: TppDBText;
    ppLabel15: TppLabel;
    ppDBText14: TppDBText;
    ppLabel16: TppLabel;
    ppDBText15: TppDBText;
    ppLabel17: TppLabel;
    ppDBText16: TppDBText;
    ppLabel18: TppLabel;
    ppDBText17: TppDBText;
    ppLabel19: TppLabel;
    ppDBText18: TppDBText;
    ppLabel20: TppLabel;
    ppDBText19: TppDBText;
    ppLabel21: TppLabel;
    ppLine2: TppLine;
    ppSummaryBand2: TppSummaryBand;
    ppLabel22: TppLabel;
    ppLabel23: TppLabel;
    ppLabel24: TppLabel;
    ppLabel25: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLabel26: TppLabel;
    ppLabel35: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    ppLabel36: TppLabel;
    ppLabel37: TppLabel;
    ppLine3: TppLine;
    ppLabel38: TppLabel;
    ppLabel39: TppLabel;
    ppLabel40: TppLabel;
    ADOQuery1: TADOQuery;
    procedure PageControl1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid2KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid3Exit(Sender: TObject);
    procedure DBGrid3DblClick(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure DBGrid4Exit(Sender: TObject);
    procedure DBGrid4DblClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure tblcheckClick(Sender: TObject);
    procedure tbluncheckClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure AdoedurecordcoursenoChange(Sender: TField);
    procedure AdoedurecordAfterInsert(DataSet: TDataSet);
    procedure ADOeduresultworknoChange(Sender: TField);
    procedure ADOeduresultcoursenoChange(Sender: TField);
    procedure ADOeduresultAfterInsert(DataSet: TDataSet);
    procedure tbnfindClick(Sender: TObject);
    procedure tbnsortClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker3CloseUp(Sender: TObject);
    procedure MaskEdit4Exit(Sender: TObject);
    procedure MaskEdit2Exit(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure ppReport1BeforePrint(Sender: TObject);
    procedure ppReport2BeforePrint(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ppDBText18GetText(Sender: TObject; var Text: String);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure ppReport2PreviewFormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    manyfield:boolean;
    findex:array[1..5] of integer;
    fsort:array[1..5] of string;
    fcount:0..5;
    db:0..3;
    f:string;
  end;

var
  Formedurecord: TFormedurecord;

implementation

uses main,publicfunction,eduset,datamol;
{$R *.DFM}

procedure TFormedurecord.PageControl1Change(Sender: TObject);
begin
      (sender as Tpagecontrol).activepage.highlighted:=true;
      case pagecontrol1.ActivePageIndex of
       0:
       begin
           DBNavigator1.DataSource:=dsedurecord;
           tblmany.enabled:=false;
           tblcheck.enabled:=false;
           tbluncheck.Enabled:=false;
       end;
       1:
       begin
           DBNavigator1.DataSource:=dseduresult;
           tblmany.enabled:=true;
           tblcheck.enabled:=true;
           tbluncheck.Enabled:=true;
       end;
      end;
end;

procedure TFormedurecord.FormCreate(Sender: TObject);
begin
      adoedurecord.open;
      adoeduresult.open;
      datamod.adopersonal.open;
      qrycourse.open;
      datetimepicker4.date:=now;
      datetimepicker3.date:=now;
      datetimepicker2.date:=now;
      datetimepicker1.date:=now;
      maskedit1.Text:=datetostr(date);
      maskedit2.Text:=datetostr(date);
      maskedit3.Text:=datetostr(date);
      maskedit4.Text:=datetostr(date);
      ADOeduresult.Filtered :=false;
      ADOeduresult.Filter :='rq<='''+maskedit1.Text+''' and rq>='''+maskedit2.text+''' ';
      ADOeduresult.Filtered :=true;
      Adoedurecord.Filtered :=false;
      Adoedurecord.Filter :='rq<='''+maskedit3.Text+''' and rq>='''+maskedit4.text+''' ';
      Adoedurecord.Filtered :=true;
end;

procedure TFormedurecord.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
     adoedurecord.close;
     adoeduresult.close;
     datamod.adopersonal.close;
     qrycourse.close;
     formedurecord:=nil;
     action:=cafree;
end;

procedure TFormedurecord.DBGrid2KeyPress(Sender: TObject; var Key: Char);
begin
     dbgrid_keypress(sender,key);
end;

procedure TFormedurecord.DBGrid1DblClick(Sender: TObject);
begin
      if (dbgrid1.SelectedIndex=1) or (dbgrid1.SelectedIndex=2) then
      begin
         dbgrid3.Visible:=true;
         dbgrid3.setfocus;
      end;
end;

procedure TFormedurecord.DBGrid3Exit(Sender: TObject);
begin
      dbgrid3.visible:=false;
end;

procedure TFormedurecord.DBGrid3DblClick(Sender: TObject);
begin
     adoedurecord.Edit;
     adoedurecordcourseno.AsString:=Qrycoursecourseno.asstring;
     dbgrid3.visible:=false;
     dbgrid1.selectedindex:=3;
end;

procedure TFormedurecord.DBGrid2DblClick(Sender: TObject);
begin
      if (dbgrid2.SelectedIndex=1) or (dbgrid2.SelectedIndex=2) or(dbgrid2.selectedindex=3) then
      begin
         dbgrid4.Visible:=true;
         dbgrid4.setfocus;
      end;
end;

procedure TFormedurecord.DBGrid4Exit(Sender: TObject);
begin
    dbgrid4.visible:=false;
end;

procedure TFormedurecord.DBGrid4DblClick(Sender: TObject);
begin
     adoeduresult.edit;
     adoeduresultworkno.asstring:=datamod.adopersonalworkno.asstring;
     dbgrid4.visible:=false;
end;

procedure TFormedurecord.FormActivate(Sender: TObject);
begin
       //加载课程编号，课程名
         qrycourse.open;
         qrycourse.First;
         dbgrid1.Columns[1].PickList.clear;
         dbgrid1.columns[2].picklist.clear;
         dbgrid2.columns[5].picklist.clear;
         dbgrid2.columns[6].picklist.clear;
         while not qrycourse.eof do
         begin
              dbgrid1.Columns[1].picklist.add(qrycoursecourseno.asstring);
              dbgrid1.Columns[2].picklist.add(qrycoursecourse.asstring);
              dbgrid2.Columns[5].picklist.add(qrycoursecourseno.asstring);
              dbgrid2.Columns[6].picklist.add(qrycoursecourse.asstring);
              qrycourse.next;
         end;
       //加载部门名称
         datamod.qrydept.open;
         datamod.qrydept.first;
         dbgrid1.columns[6].picklist.clear;
         dbgrid2.columns[4].picklist.clear;
         while not datamod.qrydept.Eof do
         begin
              dbgrid1.columns[6].picklist.add(datamod.qrydeptdept.asstring);
              dbgrid2.columns[4].picklist.add(datamod.qrydeptdept.asstring);
              datamod.Qrydept.next;
         end;
         datamod.qrydept.close;
       //加载讲师姓名
         qryteacher.open;
         qryteacher.first;
         dbgrid1.columns[7].picklist.clear;
         dbgrid2.columns[9].picklist.clear;
         while not qryteacher.eof do
         begin
              dbgrid1.columns[7].picklist.add(qryteachername.asstring);
              dbgrid2.columns[9].picklist.add(qryteachername.asstring);
              qryteacher.next;
         end;
         qryteacher.close;
       //加载场所
         qryplace.open;
         qryplace.first;
         dbgrid1.columns[8].picklist.clear;
         dbgrid2.columns[8].picklist.clear;
         while not qryplace.eof do
         begin
              dbgrid1.columns[8].picklist.add(qryplacename.asstring);
              dbgrid2.columns[8].picklist.add(qryplacename.asstring);
              qryplace.next;
         end;
         qryplace.Close;
end;

procedure TFormedurecord.N11Click(Sender: TObject);
begin
         adoeduresult.edit;
         adoeduresultpass.asboolean:=true;
         adoeduresultcheckman.asstring:=pubworkname;
         adoeduresult.Post;
end;

procedure TFormedurecord.N12Click(Sender: TObject);
begin
         adoeduresult.edit;
         adoeduresultpass.asboolean:=false;
         adoeduresultcheckman.asstring:='';
         adoeduresult.Post;
end;

procedure TFormedurecord.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);