unit1.pas

这是用delphi作的人力资源管理系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TXSCJGL = class(TForm)
    Insert_Button1: TButton;
    Update_Button: TButton;
    Delete_Button: TButton;
    Select_Button: TButton;
    Insert_Button2: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    procedure Insert_Button1Click(Sender: TObject);
    procedure Delete_ButtonClick(Sender: TObject);
    procedure Select_ButtonClick(Sender: TObject);
    procedure Update_ButtonClick(Sender: TObject);
    procedure Insert_Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XSCJGL: TXSCJGL;

implementation

uses Datamodal, chaxun, shanchu, charu, xiugai,charu1;

{$R *.dfm}

procedure TXSCJGL.Insert_Button1Click(Sender: TObject);
begin
    XSCJGL.Visible:=false;
    CR1.Show;
end;

procedure TXSCJGL.Delete_ButtonClick(Sender: TObject);
begin
    XSCJGL.Visible:=false;
    SC.Show;
end;

procedure TXSCJGL.Select_ButtonClick(Sender: TObject);
begin
    XSCJGL.Visible:=false;
    CX.Show;
end;

procedure TXSCJGL.Update_ButtonClick(Sender: TObject);
begin
    XSCJGL.Visible:=false;
    XG.Show;
end;

procedure TXSCJGL.Insert_Button2Click(Sender: TObject);
begin
    XSCJGL.Visible:=false;
    CR2.Show;
end;

end.