jbzlfrom.pas

人事管理系统 开发工具是VB+access 比较简单

unit JBZLFrom;

interface

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

type
  TJBZLFrm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Button5: TButton;
    Button6: TButton;
    TabSheet2: TTabSheet;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    Button7: TButton;
    Button8: TButton;
    TabSheet3: TTabSheet;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    DBEdit29: TDBEdit;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    Button3: TButton;
    Button4: TButton;
    TabSheet4: TTabSheet;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label25: TLabel;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    Button11: TButton;
    Button12: TButton;
    TabSheet5: TTabSheet;
    Label26: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    Button9: TButton;
    Button10: TButton;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker9: TDateTimePicker;
    DateTimePicker10: TDateTimePicker;
    DateTimePicker16: TDateTimePicker;
    DateTimePicker22: TDateTimePicker;
    DBEdit33: TDBEdit;
    DateTimePicker30: TDateTimePicker;
   DBEdit72: TDBEdit;
    DBEdit79: TDBEdit;
    DBGrid2: TDBGrid;
    Label24: TLabel;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Label39: TLabel;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    DBGrid5: TDBGrid;
    DBGrid7: TDBGrid;
    Label41: TLabel;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Label43: TLabel;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    DBGrid9: TDBGrid;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label20: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DateTimePicker1: TDateTimePicker;
    DBEdit1: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit11: TDBEdit;
    Button2: TButton;
    Button13: TButton;
    Button14: TButton;
    Panel1: TPanel;
    Label13: TLabel;
    Label27: TLabel;
    Label38: TLabel;
    Label40: TLabel;
    Label42: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label48: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText7: TDBText;
    DBText8: TDBText;
    DBText9: TDBText;
    DBText10: TDBText;
    DBText11: TDBText;
    DBText12: TDBText;
    DBText13: TDBText;
    Label51: TLabel;
    CheckBox1: TCheckBox;
    TabSheet6: TTabSheet;
    Label52: TLabel;
    DateTimePicker3: TDateTimePicker;
    Label53: TLabel;
    Button31: TButton;
    Button32: TButton;
    Button33: TButton;
    DBGrid55: TDBGrid;
    DBEdit12: TDBEdit;
    Button1: TButton;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    Button30: TButton;
    Button34: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TabSheet1Show(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid10CellClick(Column: TColumn);
    procedure TabSheet2Show(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure Button16Click(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure DBGrid5CellClick(Column: TColumn);
    procedure DBGrid4CellClick(Column: TColumn);
    procedure TabSheet4Show(Sender: TObject);
    procedure DBGrid6CellClick(Column: TColumn);
    procedure Button22Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure DBGrid7CellClick(Column: TColumn);
    procedure TabSheet5Show(Sender: TObject);
    procedure DBGrid8CellClick(Column: TColumn);
    procedure Button24Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure DBGrid9CellClick(Column: TColumn);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TabSheet1Hide(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure TabSheet6Show(Sender: TObject);
    procedure DBGrid55CellClick(Column: TColumn);
    procedure Button32Click(Sender: TObject);
    procedure Button33Click(Sender: TObject);
    procedure Button31Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JBZLFrm: TJBZLFrm;

implementation

uses MainForm, DMFrom;

{$R *.dfm}

procedure TJBZLFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
close;
end;

procedure TJBZLFrm.TabSheet1Show(Sender: TObject);
begin
//Panel1.Visible:=false;
Button2.Enabled:=false;
Button13.Enabled:=false;
Button14.Enabled:=false;
end;

procedure TJBZLFrm.Button2Click(Sender: TObject);
begin
dm.self['birthday']:=DateTimePicker1.DateTime;
dm.self.post;
dm.self.Close;
DM.self.Open;
dm.self.Append;
Button13.Enabled:=false;
Button14.Enabled:=false;
end;

procedure TJBZLFrm.Button13Click(Sender: TObject);
begin
dm.self['birthday']:=DateTimePicker1.Date;
dm.self.Post;
Button13.Enabled:=false;
Button14.Enabled:=false;
Button2.Enabled:=true;
end;

procedure TJBZLFrm.Button14Click(Sender: TObject);
begin
dm.self.Edit;
if MessageDlg('是否真的删除记录',mtWarning,[mbOK,mbCancel],0)=1  then
dm.self.Delete;
dm.self.Close;
dm.self.Open;
dm.self.Append;
Button13.Enabled:=false;
Button14.Enabled:=false;
Button2.Enabled:=true;
end;

procedure TJBZLFrm.DBGrid1CellClick(Column: TColumn);
begin
CheckBox1.Checked:=false;
dm.self.Edit;
DateTimePicker1.Date:= dm.self['birthday'];
Label51.Caption:=DateToStr(dm.self['birthday'])  ;
Button2.Enabled:=false;
Button13.Enabled:=true;
Button14.Enabled:=true;
end;

procedure TJBZLFrm.DBGrid10CellClick(Column: TColumn);
begin
dm.stu.Append;
Button16.Enabled:=true;
Button15.Enabled:=false;
Button17.Enabled:=false;
end;

procedure TJBZLFrm.TabSheet2Show(Sender: TObject);
begin
dm.stu.Open;
dm.stu.Append;
Button16.Enabled:=true;
Button15.Enabled:=false;
Button17.Enabled:=false;
end;

procedure TJBZLFrm.Button15Click(Sender: TObject);
begin
dm.stu['sda'] :=DateTimePicker2.Date;
dm.stu['eda']:=DateTimePicker9.Date;
DM.stu.Post;
dm.stu.Close;
dm.stu.Open;
dm.stu.Append;
Button16.Enabled:=true;
Button15.Enabled:=false;
Button17.Enabled:=false;
end;

procedure TJBZLFrm.Button17Click(Sender: TObject);
begin
if MessageDlg('是否真的删除记录',mtWarning,[mbOK,mbCancel],0)=1  then
dm.stu.Delete;
dm.stu.Close;
dm.stu.Open;
dm.stu.Append;
Button16.Enabled:=true;
Button15.Enabled:=false;
Button17.Enabled:=false;
end;

procedure TJBZLFrm.DBGrid2CellClick(Column: TColumn);
begin
dm.stu.Edit;
DateTimePicker2.Date:=dm.stu['sda'];
DateTimePicker9.Date:=dm.stu['eda'];
Button16.Enabled:=false;
Button15.Enabled:=True;
Button17.Enabled:=true;
end;

procedure TJBZLFrm.Button16Click(Sender: TObject);
begin
dm.stu['sid']:=dm.self['id'];
dm.stu['sda'] :=DateTimePicker2.Date;
dm.stu['eda']:=DateTimePicker9.Date;
dm.stu.Post;
dm.stu.Close;
dm.stu.Open;
dm.stu.Append;
Button16.Enabled:=true;
Button15.Enabled:=false;
Button17.Enabled:=false;
end;

procedure TJBZLFrm.TabSheet3Show(Sender: TObject);
begin
dm.work.Open;
dm.work.Append;
Button18.Enabled:=True;
Button19.Enabled:=false;
Button20.Enabled:=false;
end;

procedure TJBZLFrm.Button18Click(Sender: TObject);
begin
dm.work['sda']:= DateTimePicker16.Date;
dm.work['eda']:=DateTimePicker10.Date;
DM.work.Post;
dm.work.Close;
dm.work.Open;
dm.work.Append;
Button18.Enabled:=true;
Button19.Enabled:=false;
Button20.Enabled:=false;
end;

procedure TJBZLFrm.Button19Click(Sender: TObject);
begin
dm.work['sda']:= DateTimePicker16.Date;
dm.work['eda']:=DateTimePicker10.Date;
DM.work.Post;
dm.work.Close;
dm.work.Open;
dm.work.Append;
Button18.Enabled:=true;
Button19.Enabled:=false;
Button20.Enabled:=false;
end;

procedure TJBZLFrm.Button20Click(Sender: TObject);
begin
if MessageDlg('是否真的删除记录',mtWarning,[mbOK,mbCancel],0)=1  then
DM.work.Delete;

dm.work.Close;
dm.work.Open;
dm.work.Append;
Button18.Enabled:=true;
Button19.Enabled:=false;
Button20.Enabled:=false;
end;

procedure TJBZLFrm.DBGrid5CellClick(Column: TColumn);
begin
 DateTimePicker16.Date:=dm.work['sda'];
DateTimePicker10.Date:=dm.work['eda'];
dm.work.Edit;
Button18.Enabled:=false;
Button19.Enabled:=true;
Button20.Enabled:=true;
end;

procedure TJBZLFrm.DBGrid4CellClick(Column: TColumn);
begin
dm.work.Append;
Button18.Enabled:=true;
Button19.Enabled:=false;
Button20.Enabled:=false;
end;

procedure TJBZLFrm.TabSheet4Show(Sender: TObject);
begin
dm.pa.Open;
dm.pa.Append;
Button21.Enabled:=true;
Button22.Enabled:=false;
Button23.Enabled:=false;
end;

procedure TJBZLFrm.DBGrid6CellClick(Column: TColumn);
begin
dm.pa.Append;
Button21.Enabled:=true;
Button22.Enabled:=false;
Button23.Enabled:=false;
end;

procedure TJBZLFrm.Button22Click(Sender: TObject);
begin
dm.pa['da'] :=DateTimePicker22.Date;
dm.pa.Post;
dm.pa.Close;
dm.pa.Open;
dm.pa.Append;
Button21.Enabled:=True;
Button22.Enabled:=false;
Button23.Enabled:=false;
end;

procedure TJBZLFrm.Button21Click(Sender: TObject);
begin
dm.pa['da'] :=DateTimePicker22.Date;
dm.pa.Post;
dm.pa.Close;
dm.pa.Open;
dm.pa.Append;
Button21.Enabled:=true;
Button22.Enabled:=false;
Button23.Enabled:=false;
end;

procedure TJBZLFrm.Button23Click(Sender: TObject);
begin
if MessageDlg('是否真的删除记录',mtWarning,[mbOK,mbCancel],0)=1  then
dm.pa.Delete;
dm.pa.Close;
dm.pa.Open;
dm.pa.Append;
Button21.Enabled:=true;
Button22.Enabled:=false;
Button23.Enabled:=false;
end;

procedure TJBZLFrm.DBGrid7CellClick(Column: TColumn);
begin
dm.pa.Edit;
Button21.Enabled:=false;
Button22.Enabled:=true;
Button23.Enabled:=true;

end;

procedure TJBZLFrm.TabSheet5Show(Sender: TObject);
begin
dm.jc.Open;
dm.jc.Append;
Button24.Enabled:=true;
Button25.Enabled:=false;
Button26.Enabled:=false;
end;

procedure TJBZLFrm.DBGrid8CellClick(Column: TColumn);
begin
DM.jc.Append;
Button24.Enabled:=true;
Button25.Enabled:=false;
Button26.Enabled:=false;
end;

procedure TJBZLFrm.Button24Click(Sender: TObject);
begin
dm.jc['da']:=DateTimePicker30.Date;
dm.jc.Post;
dm.jc.Close;
dm.jc.Open;
DM.jc.Append;
Button24.Enabled:=true;
Button25.Enabled:=false;
Button26.Enabled:=false;
end;

procedure TJBZLFrm.Button25Click(Sender: TObject);
begin
dm.jc['da']:=DateTimePicker30.Date;
dm.jc.Post;
dm.jc.Close;
dm.jc.Open;
DM.jc.Append;
Button24.Enabled:=true;
Button25.Enabled:=false;
Button26.Enabled:=false;
end;

procedure TJBZLFrm.Button26Click(Sender: TObject);
begin
if MessageDlg('是否真的删除记录',mtWarning,[mbOK,mbCancel],0)=1  then
dm.jc.Delete;
dm.jc.Close;
dm.jc.Open;
DM.jc.Append;
Button24.Enabled:=true;
Button25.Enabled:=false;
Button26.Enabled:=false;
end;

procedure TJBZLFrm.DBGrid9CellClick(Column: TColumn);
begin
DateTimePicker30.Date:=dm.pa['da'];
dm.jc.Edit;
Button24.Enabled:=false;
Button25.Enabled:=true;
Button26.Enabled:=true;
end;

procedure TJBZLFrm.Button1Click(Sender: TObject);
begin
close;
end;

procedure TJBZLFrm.FormShow(Sender: TObject);
begin
DMFrom.DM.self.Open;
end;

procedure TJBZLFrm.TabSheet1Hide(Sender: TObject);
begin
//Panel1.Visible:=true;
end;

procedure TJBZLFrm.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
dm.self.Append
else
dm.self.Edit;
Button2.Enabled:=CheckBox1.Checked;
end;

procedure TJBZLFrm.TabSheet6Show(Sender: TObject);
begin
dm.fz.Open;
dm.fz.Append;
Button31.Enabled:=true;
Button32.Enabled:=false;
Button33.Enabled:=False;
end;

procedure TJBZLFrm.DBGrid55CellClick(Column: TColumn);
begin
DM.fz.Edit;
DateTimePicker3.Date:=dm.fz['da'];
Button31.Enabled:=false;
Button32.Enabled:=true;
Button33.Enabled:=true;

end;

procedure TJBZLFrm.Button32Click(Sender: TObject);
begin
dm.fz['da']:=DateTimePicker3.Date;
dm.fz.Post;
DM.fz.Close;
DM.fz.Open;
dm.fz.Append;
Button31.Enabled:=true;
Button32.Enabled:=False;
Button33.Enabled:=False;
end;

procedure TJBZLFrm.Button33Click(Sender: TObject);
begin
if MessageDlg('是否真的删除记录',mtWarning,[mbOK,mbCancel],0)=1  then
dm.fz.Delete;
dm.fz.Close;
dm.fz.Open;
dm.fz.Append;
Button31.Enabled:=true;
Button32.Enabled:=False;
Button33.Enabled:=False;
end;

procedure TJBZLFrm.Button31Click(Sender: TObject);
begin
dm.fz['da']:=DateTimePicker3.Date;
dm.fz.Post;
DM.fz.Close;
DM.fz.Open;
dm.fz.Append;
Button31.Enabled:=true;
Button32.Enabled:=False;
Button33.Enabled:=False;
end;

end.