jobtime.pas

本系统是一个基于delphi7环境开发的人事管理系统

unit JobTime;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ExtCtrls, DBCtrls, Grids, DBGrids, ADODB, StdCtrls, Mask;

type
  TForm5 = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    MaskEdit3: TMaskEdit;
    MaskEdit4: TMaskEdit;
    Button5: TButton;
    ComboBox2: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation
 uses MainMenu, WelcomePicture;
{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('insert into worktime(员工编号,部门名称,职务,上任时间,离职时间,签约期,合同有效期)values(:员工编号,:部门名称,:职务,:上任时间,:离职时间,:签约期,:合同有效期) ');
   parameters[0].Value:=edit1.Text;
   parameters[1].Value:=combobox2.Text;
   parameters[2].Value:=combobox1.Text;
   parameters[3].Value:=maskedit1.Text;
   parameters[4].Value:=maskedit2.Text;
   parameters[5].Value:=maskedit3.Text;
   parameters[6].Value:=maskedit4.Text;
   execsql;
   close;
   sql.Clear;
   sql.Add('select * from worktime');
   if form1.ADOQuery1.Active=false  then
       form1.ADOQuery1.Active:=true;
   open;
   end;

{self.DBNavigator1.BtnClick(nbinsert);}
{adodataset1.Close;
with adocommand1 do
begin
  commandtext:='insert into employees(部门编号)values(:部门编号)';
  parameters[0].Value:=edit1.Text;
  execute;
  end;
  adodataset1.Open;
 }
  end;

procedure TForm5.Button2Click(Sender: TObject);
var
inputString:String;
begin
inputString:=inputbox('删除数据','请输入员工的编号','');
if inputString='' then exit;
with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('delete from worktime where 员工编号=:员工编号');
    parameters[0].Value:=inputString;
   execsql;
   close;
   sql.Clear;
   sql.Add('select * from worktime');
   if form1.ADOQuery1.Active=false  then
       form1.ADOQuery1.Active:=true;
   open;
   end;
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.Add('select * from worktime');
   if form1.ADOQuery1.Active=false  then
       form1.ADOQuery1.Active:=true;
   open;
   end;
showmessage('请在列表上修改');
dbgrid1.ReadOnly:=false;
end;

procedure TForm5.Button4Click(Sender: TObject);
begin
 dbgrid1.ReadOnly:=true;
end;

procedure TForm5.Button5Click(Sender: TObject);
begin
form5.close;
end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 form3.Enabled:=true;
 form1.ADOQuery1.SQL.Clear;
end;

procedure TForm5.FormShow(Sender: TObject);
begin
form1.ADOQuery1.SQL.Clear;
with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.Add('select * from worktime');
   if form1.ADOQuery1.Active=false  then
       form1.ADOQuery1.Active:=true;
   open;
   end;
end;

end.