unit2.pas

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

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

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

procedure Tmain_people.Label5Click(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:='DBgride5';
              Parent:=NewTabSheet;
              Align:=alClient;
              NewDBgride.DataSource:=dm.DTitleExp;
              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.TTitleExp.FieldDefs[0].Name;
              NewDBgride.Columns[0].Title.caption:='员工编号';
              NewDBgride.Columns[0].Title.font.color:=clBlack;
              NewDBgride.Columns[1].FieldName:=dm.TTitleExp.FieldDefs[1].Name;
              NewDBgride.Columns[1].Title.caption:='员工姓名';
              NewDBgride.Columns[1].Title.font.color:=clBlack;
              NewDBgride.Columns[2].FieldName:=dm.TTitleExp.FieldDefs[2].Name;
              NewDBgride.Columns[2].Title.caption:='所属部门';
              NewDBgride.Columns[2].Title.font.color:=clBlack;
              NewDBgride.Columns[3].FieldName:=dm.TTitleExp.FieldDefs[3].Name;
              NewDBgride.Columns[3].Title.caption:='技术职称';
              NewDBgride.Columns[3].Title.font.color:=clBlack;
              NewDBgride.Columns[4].FieldName:=dm.TTitleExp.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:='button5';
              Caption:='返回向导';
              Parent:=NewTabSheet;
              Font.Color:=clBlack;
              Left:=629;
              Width:=75;
              Top:=372;
              Newbutton.OnClick:=Yourclick1;

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

procedure Tmain_people.Label6Click(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:='DBgride6';
              Parent:=NewTabSheet;
              Align:=alClient;
              NewDBgride.DataSource:=dm.DWages;
              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.TWages.FieldDefs[0].Name;
              NewDBgride.Columns[0].Title.caption:='员工编号';
              NewDBgride.Columns[0].Title.font.color:=clBlack;
              NewDBgride.Columns[1].FieldName:=dm.TWages.FieldDefs[1].Name;
              NewDBgride.Columns[1].Title.caption:='员工姓名';
              NewDBgride.Columns[1].Title.font.color:=clBlack;
              NewDBgride.Columns[2].FieldName:=dm.TWages.FieldDefs[2].Name;
              NewDBgride.Columns[2].Title.caption:='所属部门';
              NewDBgride.Columns[2].Title.font.color:=clBlack;
              NewDBgride.Columns[3].FieldName:=dm.TWages.FieldDefs[3].Name;
              NewDBgride.Columns[3].Title.caption:='发放日期';
              NewDBgride.Columns[3].Title.font.color:=clBlack;
              NewDBgride.Columns[4].FieldName:=dm.TWages.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:='button6';
              Caption:='返回向导';
              Parent:=NewTabSheet;
              Font.Color:=clBlack;
              Left:=629;
              Width:=75;
              Top:=372;
              Newbutton.OnClick:=Yourclick1;

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

procedure Tmain_people.Label7Click(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:='DBgride7';
              Parent:=NewTabSheet;
              Align:=alClient;
              NewDBgride.DataSource:=dm.DID;
              NewDBgride.Font.Color:=clBlack;
              NewDBgride.Options:=[dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit];
              for i:=0 to 1  do
                  NewDBgride.Columns.Add;
              NewDBgride.Columns[0].FieldName:=dm.TID.FieldDefs[0].Name;
              NewDBgride.Columns[0].Title.caption:='用户名称';
              NewDBgride.Columns[0].Title.font.color:=clBlack;
              NewDBgride.Columns[1].FieldName:=dm.TID.FieldDefs[2].Name;
              NewDBgride.Columns[1].Title.caption:='类型';
              NewDBgride.Columns[1].Title.font.color:=clBlack;
        end;
        Newbutton:=TButton.Create(NewTabSheet);
        with  Newbutton   do
        begin
              Name:='button7';
              Caption:='返回向导';
              Parent:=NewTabSheet;
              Font.Color:=clBlack;
              Left:=629;
              Width:=75;
              Top:=372;
              Newbutton.OnClick:=Yourclick1;

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



procedure Tmain_people.PageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
         if PageControl1.ActivePage<>TabSheet1 then
         if  ssDouble    in Shift then  PageControl1.ActivePage.Free;
end;


procedure Tmain_people.Yourclick1(Sender: TObject);
begin
          PageControl1.ActivePage:=TabSheet1;
end;


procedure Tmain_people.YourBDGrid1Dobclick(Sender: TObject);
begin
          base_people.ShowModal;

end;

procedure Tmain_people.YourBDGrid2Dobclick(Sender: TObject);
begin
         chuqing_people.ShowModal;
end;


procedure Tmain_people.YourBDGrid3Dobclick(Sender: TObject);
begin
         jiangfa_people.ShowModal;
end;


procedure Tmain_people.YourBDGrid4Dobclick(Sender: TObject);
begin

          base_people.ShowModal;
end;


procedure Tmain_people.YourBDGrid5Dobclick(Sender: TObject);
begin
           base_people.ShowModal;
end;



procedure Tmain_people.YourBDGrid6Dobclick(Sender: TObject);
begin
           money_people.ShowModal;
end;


procedure Tmain_people.YourBDGrid7Dobclick(Sender: TObject);
begin
           system_people.ShowModal;
end;


procedure Tmain_people.ToolButton1Click(Sender: TObject);
begin
          base_people.ShowModal;
end;

procedure Tmain_people.ToolButton2Click(Sender: TObject);
begin
          chuqing_people.ShowModal;
end;

procedure Tmain_people.ToolButton3Click(Sender: TObject);
begin
           jiangfa_people.ShowModal;
end;

procedure Tmain_people.ToolButton4Click(Sender: TObject);
begin
           base_people.ShowModal;
end;

procedure Tmain_people.ToolButton5Click(Sender: TObject);
begin
          base_people.ShowModal;
end;

procedure Tmain_people.ToolButton6Click(Sender: TObject);
begin
         money_people.ShowModal;
end;

procedure Tmain_people.ToolButton7Click(Sender: TObject);
begin
          system_people.ShowModal;
end;

procedure Tmain_people.ToolButton8Click(Sender: TObject);
begin
          select.ShowModal;
end;

procedure Tmain_people.ToolButton9Click(Sender: TObject);
begin
          printf_people.ShowModal;
end;

procedure Tmain_people.Label9Click(Sender: TObject);
begin
        close;
end;

procedure Tmain_people.FormActivate(Sender: TObject);
begin
          dm.TPerson.Active:=true;
          dm.TJobMade.Active:=true;
          dm.TID.Active:=true;
          dm.TAchievement.Active:=true;
          dm.TPersonExp.Active:=true;
          dm.TTitleExp.Active:=true;
          dm.TWages.Active:=true;
end;

procedure Tmain_people.N4Click(Sender: TObject);
begin
           printf_people.QuickRep1.Preview;
end;

procedure Tmain_people.N21Click(Sender: TObject);
begin
       select.ShowModal;
end;

procedure Tmain_people.N13Click(Sender: TObject);
begin
       base_people.ShowModal;
end;

procedure Tmain_people.N15Click(Sender: TObject);
begin
          chuqing_people.ShowModal;
end;

procedure Tmain_people.N16Click(Sender: TObject);
begin
           jiangfa_people.ShowModal;
end;

procedure Tmain_people.N17Click(Sender: TObject);
begin
            base_people.ShowModal;
end;

procedure Tmain_people.N19Click(Sender: TObject);
begin
               money_people.ShowModal;
end;

procedure Tmain_people.N18Click(Sender: TObject);
begin
          base_people.ShowModal;
end;

procedure Tmain_people.N20Click(Sender: TObject);
begin
        system_people.ShowModal;
end;

procedure Tmain_people.N12Click(Sender: TObject);
begin
                close;
end;

procedure Tmain_people.N25Click(Sender: TObject);
begin
          about_people.ShowModal;
end;

procedure Tmain_people.ToolButton10Click(Sender: TObject);
begin
        close;
end;

end.