unit2.pas

自己做的一个人力资源管理

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ComCtrls, jpeg, ToolWin, StdCtrls, Grids,
  DBGrids;




type

  Tmain_people = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    N1: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N2: TMenuItem;
    N13: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N8: TMenuItem;
    MainMenu1: TMainMenu;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N4: TMenuItem;
    N25: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    procedure Label1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure Label7Click(Sender: TObject);
    procedure Yourclick1(Sender: TObject);
    procedure PageControl1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure YourBDGrid1Dobclick(Sender: TObject);
    procedure YourBDGrid2Dobclick(Sender: TObject);
    procedure YourBDGrid3Dobclick(Sender: TObject);
    procedure YourBDGrid4Dobclick(Sender: TObject);
    procedure YourBDGrid5Dobclick(Sender: TObject);
    procedure YourBDGrid6Dobclick(Sender: TObject);
    procedure YourBDGrid7Dobclick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure Label9Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);

  private
    { Private declarations }
  public

    { Public declarations }
  end;



var
  main_people: Tmain_people;

implementation

uses Unit10, Unit3, Unit4, Unit5, Unit6, Unit8, Unit9, Unit7, Unit11,
  Unit12, Unit16;



{$R *.dfm}




procedure Tmain_people.Label1Click(Sender: TObject);
var   NewTabSheet:Ttabsheet;
      NewDBgride:TDbgrid;
      NewButton:TButton;
      i:integer;
begin
        i:=0;
        while  i<PageControl1.PageCount do
        begin

               if PageControl1.Pages[i].Caption='基本信息索引' then
               begin

                        PageControl1.ActivePageIndex:=i;
                        exit;
               end;
               i:=i+1;
        end;
          
        i:=PageControl1.PageCount;
        NewTabSheet:=TTabSheet.Create(PageControl1);
        with   NewTabSheet   do
        begin
                Name:='TabSheet'   +   IntToStr(i+1);
                Parent:=PageControl1;
                NewTabSheet.PageControl:=PageControl1;
                Caption:='基本信息索引';
        end;
        NewDBgride:=TDbgrid.Create(NewTabSheet);
        with   NewDBgride   do
        begin
              Name:='DBgride1';
              Parent:=NewTabSheet;
              Align:=alClient;
              NewDBgride.DataSource:=dm.DPerson;
              NewDBgride.Font.Color:=clBlack;
              NewDBgride.Options:=[dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit];
              for i:=0 to   7   do
                  NewDBgride.Columns.Add;
              NewDBgride.Columns[0].FieldName:=dm.TPerson.FieldDefs[0].Name;
              NewDBgride.Columns[0].Title.caption:='员工编号';
              NewDBgride.Columns[0].Title.font.color:=clBlack;
              NewDBgride.Columns[1].FieldName:=dm.TPerson.FieldDefs[1].Name;
              NewDBgride.Columns[1].Title.caption:='员工姓名';
              NewDBgride.Columns[1].Title.font.color:=clBlack;
              NewDBgride.Columns[2].FieldName:=dm.TPerson.FieldDefs[2].Name;
              NewDBgride.Columns[2].Title.caption:='所属部门';
              NewDBgride.Columns[2].Title.font.color:=clBlack;
              NewDBgride.Columns[3].FieldName:=dm.TPerson.FieldDefs[4].Name;
              NewDBgride.Columns[3].Title.caption:='出生日期';
              NewDBgride.Columns[3].Title.font.color:=clBlack;
              NewDBgride.Columns[4].FieldName:=dm.TPerson.FieldDefs[6].Name;
              NewDBgride.Columns[4].Title.caption:='籍贯';
              NewDBgride.Columns[4].Title.font.color:=clBlack;
              NewDBgride.Columns[5].FieldName:=dm.TPerson.FieldDefs[14].Name;
              NewDBgride.Columns[5].Title.caption:='电话';
              NewDBgride.Columns[5].Title.font.color:=clBlack;
              NewDBgride.Columns[6].FieldName:=dm.TPerson.FieldDefs[15].Name;
              NewDBgride.Columns[6].Title.caption:='办公室';
              NewDBgride.Columns[6].Title.font.color:=clBlack;
              NewDBgride.Columns[7].FieldName:=dm.TPerson.FieldDefs[16].Name;
              NewDBgride.Columns[7].Title.caption:='手机';
              NewDBgride.Columns[7].Title.font.color:=clBlack;
        end;
        Newbutton:=TButton.Create(NewTabSheet);
        with  Newbutton   do
        begin
              Name:='button1';
              Caption:='返回向导';
              Parent:=NewTabSheet;
              Font.Color:=clBlack;
              Left:=629;
              Width:=75;
              Top:=372;
              Newbutton.OnClick:=Yourclick1;
        end;
        NewDBgride.OnDblClick:=YourBDGrid1Dobclick;
        PageControl1.ActivePage:=NewTabSheet;

end;

procedure Tmain_people.Label2Click(Sender: TObject);
var   NewTabSheet:Ttabsheet;
      NewDBgride:TDbgrid;
      NewButton:TButton;
      i:integer;
begin
        i:=0;
        while  i<PageControl1.PageCount do
        begin

               if PageControl1.Pages[i].Caption='考勤信息索引' then
               begin

                        PageControl1.ActivePageIndex:=i;
                        exit;
               end;
               i:=i+1;
        end;
        i:=PageControl1.PageCount;
        NewTabSheet:=TTabSheet.Create(PageControl1);
        with   NewTabSheet   do
        begin
                Name:='TabSheet'   +   IntToStr(i+1);
                Parent:=PageControl1;
                NewTabSheet.PageControl:=PageControl1;
                Caption:='考勤信息索引';
        end;
        NewDBgride:=TDbgrid.Create(NewTabSheet);
        with   NewDBgride   do
        begin
              Name:='DBgride2';
              Parent:=NewTabSheet;
              Align:=alClient;
              NewDBgride.DataSource:=dm.DJobMade;
              NewDBgride.Font.Color:=clBlack;
              NewDBgride.Options:=[dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit];
              for i:=0 to 4  do
                  NewDBgride.Columns.Add;
              NewDBgride.Columns[0].FieldName:=dm.TJobMade.FieldDefs[0].Name;
              NewDBgride.Columns[0].Title.caption:='员工编号';
              NewDBgride.Columns[0].Title.font.color:=clBlack;
              NewDBgride.Columns[1].FieldName:=dm.TJobMade.FieldDefs[1].Name;
              NewDBgride.Columns[1].Title.caption:='员工姓名';
              NewDBgride.Columns[1].Title.font.color:=clBlack;
              NewDBgride.Columns[2].FieldName:=dm.TJobMade.FieldDefs[2].Name;
              NewDBgride.Columns[2].Title.caption:='所属部门';
              NewDBgride.Columns[2].Title.font.color:=clBlack;
              NewDBgride.Columns[3].FieldName:=dm.TJobMade.FieldDefs[3].Name;
              NewDBgride.Columns[3].Title.caption:='工作日期';
              NewDBgride.Columns[3].Title.font.color:=clBlack;
              NewDBgride.Columns[4].FieldName:=dm.TJobMade.FieldDefs[4].Name;
              NewDBgride.Columns[4].Title.caption:='出勤';
              NewDBgride.Columns[4].Title.font.color:=clBlack;

        end;
        Newbutton:=TButton.Create(NewTabSheet);
        with  Newbutton   do
        begin
              Name:='button2';
              Caption:='返回向导';
              Parent:=NewTabSheet;
              Font.Color:=clBlack;
              Left:=629;
              Width:=75;
              Top:=372;
              Newbutton.OnClick:=Yourclick1;

        end;
        NewDBgride.OnDblClick:=YourBDGrid2Dobclick;
        PageControl1.ActivePage:=NewTabSheet;
end;

procedure Tmain_people.Label3Click(Sender: TObject);
var   NewTabSheet:Ttabsheet;
      NewDBgride:TDbgrid;
      NewButton:TButton;
      i:integer;
begin
        i:=0;
        while  i<PageControl1.PageCount do
        begin

               if PageControl1.Pages[i].Caption='奖惩记录索引' then
               begin

                        PageControl1.ActivePageIndex:=i;
                        exit;
               end;
               i:=i+1;
        end;   
        i:=PageControl1.PageCount;
        NewTabSheet:=TTabSheet.Create(PageControl1);
        with   NewTabSheet   do
        begin
                Name:='TabSheet'+IntToStr(i+1);
                Parent:=PageControl1;
                NewTabSheet.PageControl:=PageControl1;
                Caption:='奖惩记录索引';
        end;
        NewDBgride:=TDbgrid.Create(NewTabSheet);
        with   NewDBgride   do
        begin
              Name:='DBgride3';
              Parent:=NewTabSheet;
              Align:=alClient;
              NewDBgride.DataSource:=dm.DAchievement;
              NewDBgride.Font.Color:=clBlack;
              NewDBgride.Options:=[dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit];
              for i:=0 to 4  do
                  NewDBgride.Columns.Add;
              NewDBgride.Columns[0].FieldName:=dm.TAchievement.FieldDefs[0].Name;
              NewDBgride.Columns[0].Title.caption:='员工编号';
              NewDBgride.Columns[0].Title.font.color:=clBlack;
              NewDBgride.Columns[1].FieldName:=dm.TAchievement.FieldDefs[1].Name;
              NewDBgride.Columns[1].Title.caption:='员工姓名';
              NewDBgride.Columns[1].Title.font.color:=clBlack;
              NewDBgride.Columns[2].FieldName:=dm.TAchievement.FieldDefs[2].Name;
              NewDBgride.Columns[2].Title.caption:='所属部门';
              NewDBgride.Columns[2].Title.font.color:=clBlack;
              NewDBgride.Columns[3].FieldName:=dm.TAchievement.FieldDefs[3].Name;
              NewDBgride.Columns[3].Title.caption:='类型';
              NewDBgride.Columns[3].Title.font.color:=clBlack;
              NewDBgride.Columns[4].FieldName:=dm.TAchievement.FieldDefs[4].Name;
              NewDBgride.Columns[4].Title.caption:='名称';
              NewDBgride.Columns[4].Title.font.color:=clBlack;
        end;
        Newbutton:=TButton.Create(NewTabSheet);
        with  Newbutton   do
        begin
              Name:='button3';
              Caption:='返回向导';
              Parent:=NewTabSheet;
              Font.Color:=clBlack;
              Left:=629;
              Width:=75;
              Top:=372;
              Newbutton.OnClick:=Yourclick1;

        end;
        NewDBgride.OnDblClick:=YourBDGrid3Dobclick;
        PageControl1.ActivePage:=NewTabSheet;

end;

procedure Tmain_people.Label4Click(Sender: TObject);
var   NewTabSheet:Ttabsheet;
      NewDBgride:TDbgrid;
      NewButton:TButton;
      i:integer;
begin
        i:=0;
        while  i<PageControl1.PageCount do
        begin

               if PageControl1.Pages[i].Caption='员工履历信息索引' then
               begin

                        PageControl1.ActivePageIndex:=i;
                        exit;
               end;
               i:=i+1;
        end;   
        i:=PageControl1.PageCount;
        NewTabSheet:=TTabSheet.Create(PageControl1);
        with   NewTabSheet   do
        begin
                Name:='TabSheet'   +   IntToStr(i+1);
                Parent:=PageControl1;
                NewTabSheet.PageControl:=PageControl1;
                Caption:='员工履历信息索引';
        end;
        NewDBgride:=TDbgrid.Create(NewTabSheet);
        with   NewDBgride   do
        begin
              Name:='DBgride4';
              Parent:=NewTabSheet;
              Align:=alClient;
              NewDBgride.DataSource:=dm.DPersonExp;
              NewDBgride.Font.Color:=clBlack;
              NewDBgride.Options:=[dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit];
              for i:=0 to 5  do
                  NewDBgride.Columns.Add;
              NewDBgride.Columns[0].FieldName:=dm.TPersonExp.FieldDefs[0].Name;
              NewDBgride.Columns[0].Title.caption:='员工编号';
              NewDBgride.Columns[0].Title.font.color:=clBlack;
              NewDBgride.Columns[1].FieldName:=dm.TPersonExp.FieldDefs[1].Name;
              NewDBgride.Columns[1].Title.caption:='员工姓名';
              NewDBgride.Columns[1].Title.font.color:=clBlack;
              NewDBgride.Columns[2].FieldName:=dm.TPersonExp.FieldDefs[2].Name;
              NewDBgride.Columns[2].Title.caption:='所属部门';
              NewDBgride.Columns[2].Title.font.color:=clBlack;
              NewDBgride.Columns[3].FieldName:=dm.TPersonExp.FieldDefs[3].Name;
              NewDBgride.Columns[3].Title.caption:='学位';
              NewDBgride.Columns[3].Title.font.color:=clBlack;
              NewDBgride.Columns[4].FieldName:=dm.TPersonExp.FieldDefs[4].Name;
              NewDBgride.Columns[4].Title.caption:='专业';
              NewDBgride.Columns[4].Title.font.color:=clBlack;
              NewDBgride.Columns[5].FieldName:=dm.TPersonExp.FieldDefs[9].Name;
              NewDBgride.Columns[5].Title.caption:='合同结束时间';
              NewDBgride.Columns[5].Title.font.color:=clBlack;