eduset.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 734 行 · 第 1/2 页

unit eduset;

interface

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

type
  TFormeduset = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    DBGrid5: TDBGrid;
    DScourse: TDataSource;
    DBGrid8: TDBGrid;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    AryP: TADOQuery;
    DataSource1: TDataSource;
    AryPworkno: TStringField;
    AryPcardno: TStringField;
    AryPname: TStringField;
    AryPdeptno: TStringField;
    AryPdept: TStringField;
    AryPprof: TStringField;
    AryPgradename: TStringField;
    AryPsexname: TStringField;
    AryPblood: TStringField;
    AryPbirthday: TDateTimeField;
    AryPage: TIntegerField;
    AryPmarry: TBooleanField;
    AryPpeopleID: TStringField;
    AryPprovname: TStringField;
    AryPpeople: TStringField;
    AryPhomeadd: TStringField;
    AryPreladd: TStringField;
    AryPreltel1: TStringField;
    AryPreltel2: TStringField;
    AryPreltel3: TStringField;
    AryPreltel4: TStringField;
    AryPdegreename: TStringField;
    AryPcoursename: TStringField;
    AryPuniversity: TStringField;
    AryPvisa: TStringField;
    AryPforeignlan: TStringField;
    AryPindate: TDateTimeField;
    AryPleave: TBooleanField;
    AryPyears: TBCDField;
    AryPspecname1: TStringField;
    AryPspecname2: TStringField;
    AryPspecname3: TStringField;
    AryPspecname4: TStringField;
    AryPexperince: TMemoField;
    AryPintroduce1: TStringField;
    AryPrelation1: TStringField;
    AryPintroduce2: TStringField;
    AryPrelation2: TStringField;
    AryPmemo: TStringField;
    AryPtry: TBooleanField;
    AryPbrushcard: TBooleanField;
    AryPscheno: TStringField;
    AryPdothing: TStringField;
    AryPfactorykind: TStringField;
    AryPdayormon: TBooleanField;
    AryPbasepay: TBCDField;
    AryPprofmoney: TBCDField;
    AryPtechmoney: TBCDField;
    AryPdeptmoney: TBCDField;
    AryPmoney1: TBCDField;
    AryPmoney2: TBCDField;
    AryPadd1: TBCDField;
    AryPadd2: TBCDField;
    AryPpresent: TBCDField;
    AryPfixot: TBCDField;
    AryPotkind: TStringField;
    AryPmanage: TBCDField;
    AryPclearpay: TBCDField;
    AryPtemplive: TBCDField;
    AryPstaymoney: TBCDField;
    AryPmeatmoney: TBCDField;
    AryPother1: TBCDField;
    AryPother2: TBCDField;
    AryPdecrease1: TBCDField;
    AryPdecrease2: TBCDField;
    AryPoperator: TStringField;
    AryPphoto: TStringField;
    ImageList1: TImageList;
    AryPcdate: TDateTimeField;
    ToolBar1: TToolBar;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    ToolButton7: TToolButton;
    ToolButton4: TToolButton;
    DBNavigator1: TDBNavigator;
    Dsorg: TDataSource;
    Dsteacher: TDataSource;
    Dsplace: TDataSource;
    DsPeiplan: TDataSource;
    DBGrid1: TDBGrid;
    Splitter4: TSplitter;
    Adocourse: TADODataSet;
    Adocoursecourseno: TStringField;
    Adocoursecourse: TStringField;
    Adoorg: TADODataSet;
    Adoorgname: TStringField;
    Adoorgaddress: TStringField;
    Adoorgphone: TStringField;
    Adoorgfax: TStringField;
    Adoorgrelation: TStringField;
    Adoteacher: TADODataSet;
    Adoteachername: TStringField;
    Adoteacherdept: TStringField;
    Adoteacherprof: TStringField;
    Adoteacherdegree: TStringField;
    Adoteacherspecial: TStringField;
    Adoteacherstate: TStringField;
    Adoplace: TADODataSet;
    Adoplacename: TStringField;
    Adoplaceplace: TStringField;
    Adoplacepeoples: TIntegerField;
    AdoPeiplan: TADODataSet;
    AdoPeiplanrq: TDateTimeField;
    AdoPeiplanplace: TStringField;
    AdoPeiplancourse: TStringField;
    AdoPeiplanmasterdept: TStringField;
    AdoPeiplanteacher: TStringField;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N3: TMenuItem;
    ppBDEPipeline1: TppBDEPipeline;
    ppReport1: TppReport;
    ppReport2: TppReport;
    ppBDEPipeline2: TppBDEPipeline;
    ppReport3: TppReport;
    ppBDEPipeline3: TppBDEPipeline;
    ppReport4: TppReport;
    ppBDEPipeline4: TppBDEPipeline;
    ppReport5: TppReport;
    ppBDEPipeline5: TppBDEPipeline;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppTitleBand1: TppTitleBand;
    ppLabel1: TppLabel;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    ppDBText2: TppDBText;
    ppLabel3: 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;
    ppHeaderBand2: TppHeaderBand;
    ppDetailBand2: TppDetailBand;
    ppTitleBand2: TppTitleBand;
    ppLabel4: TppLabel;
    ppDBText3: TppDBText;
    ppLabel5: TppLabel;
    ppDBText4: TppDBText;
    ppLabel6: TppLabel;
    ppDBText5: TppDBText;
    ppLabel7: TppLabel;
    ppDBText6: TppDBText;
    ppLabel8: TppLabel;
    ppDBText7: TppDBText;
    ppLabel9: TppLabel;
    ppLine2: TppLine;
    ppSummaryBand2: TppSummaryBand;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLabel13: TppLabel;
    ppLabel14: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    ppLabel15: TppLabel;
    ppLabel25: TppLabel;
    ppDBCalc1: TppDBCalc;
    ppLabel26: TppLabel;
    ppLine3: TppLine;
    ppHeaderBand3: TppHeaderBand;
    ppDetailBand3: TppDetailBand;
    ppTitleBand3: TppTitleBand;
    ppLabel10: TppLabel;
    ppDBText8: TppDBText;
    ppLabel16: TppLabel;
    ppDBText9: TppDBText;
    ppLabel17: TppLabel;
    ppDBText10: TppDBText;
    ppLabel18: TppLabel;
    ppDBText11: TppDBText;
    ppLabel19: TppLabel;
    ppDBText12: TppDBText;
    ppLabel20: TppLabel;
    ppDBText13: TppDBText;
    ppLabel21: TppLabel;
    ppLine5: TppLine;
    ppSummaryBand3: TppSummaryBand;
    ppLabel36: TppLabel;
    ppLabel37: TppLabel;
    ppSystemVariable3: TppSystemVariable;
    ppLabel38: TppLabel;
    ppLabel39: TppLabel;
    ppSystemVariable4: TppSystemVariable;
    ppLabel40: TppLabel;
    ppLabel50: TppLabel;
    ppDBCalc2: TppDBCalc;
    ppLabel51: TppLabel;
    ppLine6: TppLine;
    ppHeaderBand4: TppHeaderBand;
    ppDetailBand4: TppDetailBand;
    ppTitleBand4: TppTitleBand;
    ppLabel22: TppLabel;
    ppDBText14: TppDBText;
    ppLabel23: TppLabel;
    ppDBText15: TppDBText;
    ppLabel24: TppLabel;
    ppDBText16: TppDBText;
    ppLabel32: TppLabel;
    ppLine7: TppLine;
    ppSummaryBand4: TppSummaryBand;
    ppLabel53: TppLabel;
    ppLabel54: TppLabel;
    ppSystemVariable5: TppSystemVariable;
    ppLabel55: TppLabel;
    ppLabel56: TppLabel;
    ppSystemVariable6: TppSystemVariable;
    ppLabel57: TppLabel;
    ppLabel67: TppLabel;
    ppDBCalc4: TppDBCalc;
    ppLabel68: TppLabel;
    ppLine8: TppLine;
    ppHeaderBand5: TppHeaderBand;
    ppDetailBand5: TppDetailBand;
    ppTitleBand5: TppTitleBand;
    ppLabel35: TppLabel;
    ppDBText17: TppDBText;
    ppLabel41: TppLabel;
    ppDBText18: TppDBText;
    ppLabel42: TppLabel;
    ppDBText19: TppDBText;
    ppLabel43: TppLabel;
    ppDBText20: TppDBText;
    ppLabel44: TppLabel;
    ppDBText21: TppDBText;
    ppLabel45: TppLabel;
    ppLine9: TppLine;
    ppSummaryBand5: TppSummaryBand;
    ppLabel70: TppLabel;
    ppLabel71: TppLabel;
    ppSystemVariable9: TppSystemVariable;
    ppLabel72: TppLabel;
    ppLabel73: TppLabel;
    ppSystemVariable10: TppSystemVariable;
    ppLabel74: TppLabel;
    ppLabel84: TppLabel;
    ppDBCalc5: TppDBCalc;
    ppLabel85: TppLabel;
    ppLine10: TppLine;
    AryPinsurance: TBCDField;
    procedure PageControl1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid3DblClick(Sender: TObject);
    procedure DBGrid8Exit(Sender: TObject);
    procedure DBGrid8DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure ToolButton4Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure AdoteacherAfterInsert(DataSet: TDataSet);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    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 ToolButton7Click(Sender: TObject);
    procedure ppReport1BeforePrint(Sender: TObject);
    procedure ppReport2BeforePrint(Sender: TObject);
    procedure ppReport3BeforePrint(Sender: TObject);
    procedure ppReport4BeforePrint(Sender: TObject);
    procedure ppReport5BeforePrint(Sender: TObject);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure ppReport2PreviewFormCreate(Sender: TObject);
    procedure ppReport3PreviewFormCreate(Sender: TObject);
    procedure ppReport4PreviewFormCreate(Sender: TObject);
    procedure ppReport5PreviewFormCreate(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..5;
    f:string;
  end;

var
  Formeduset: TFormeduset;

implementation

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

procedure TFormeduset.PageControl1Change(Sender: TObject);
begin
  (sender as Tpagecontrol).activepage.highlighted:=true;
  case pagecontrol1.activepageindex of
  0:DBNavigator1.DataSource:=dscourse;
  1:DBNavigator1.DataSource:=dsorg;
  2:DBNavigator1.DataSource:=dsteacher;
  3:DBNavigator1.DataSource:=dsplace;
  4:DBNavigator1.DataSource:=dspeiplan;
  end;
end;

procedure TFormeduset.FormCreate(Sender: TObject);
begin
      Adocourse.Open;
      Adoorg.Open;
      Adoteacher.Open;
      Adoplace.Open;
      Adopeiplan.Open;
      aryp.Open;  //是从人事主档中取出工号，卡号，姓名
end;

procedure TFormeduset.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Adocourse.Close;
     Adoorg.Close;
     Adoteacher.Close;
     Adoplace.Close;
     Adopeiplan.Close;
     aryp.close;
     formeduset:=nil;
     action:=cafree;
end;