unit1.pas

人事管理 (delphi源码) 人事管理 (delphi源码)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  XP_Form, XP_Button, ExtCtrls, StdCtrls, DBActns, ActnList, ImgList, Db,
  DBTables, ComCtrls, ToolWin, DBCtrls, Mask, Buttons, Menus;
   var str1:string;
   var str2:string;
   var str3:string;

   
type
  TForm1 = class(TForm)
    XP_Form1: TXP_Form;
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    SpeedButton10: TSpeedButton;
    SpeedButton9: TSpeedButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBComboBox6: TDBComboBox;
    DBComboBox8: TDBComboBox;
    DBMemo1: TDBMemo;
    Button1: TButton;
    Table1: TTable;
    DataSource1: TDataSource;
    ImageList1: TImageList;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetLast1: TDataSetLast;
    DataSetNext1: TDataSetNext;
    DataSetPrior1: TDataSetPrior;
    DataSetCancel1: TDataSetCancel;
    Panel4: TPanel;
    XP_Button1: TXP_Button;
    XP_Button2: TXP_Button;
    XP_Button3: TXP_Button;
    XP_Button4: TXP_Button;
    XP_Button5: TXP_Button;
    XP_Button6: TXP_Button;
    XP_Button7: TXP_Button;
    XP_Button8: TXP_Button;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton17: TSpeedButton;
    SpeedButton18: TSpeedButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    PopupMenu2: TPopupMenu;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    XP_Button9: TXP_Button;
    XP_Button10: TXP_Button;
    DBNavigator1: TDBNavigator;
    
    
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton18Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);



  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
  uses unit2, Unit4, Unit3, Unit7, Unit6, Unit5,unit8;

{$R *.DFM}






procedure TForm1.SpeedButton13Click(Sender: TObject);
begin
  form1.close;
end;

procedure TForm1.SpeedButton18Click(Sender: TObject);
var temp:integer;
begin
  XP_Button9.visible:=true;
  XP_Button10.visible:=true;
  table1.last;
  table1.insert;
  dbedit1.setfocus;
  button1.enabled:=false;
 
end;

procedure TForm1.SpeedButton15Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
  XP_Button9.visible:=false;
  Xp_Button10.visible:=false;
  if(table1.modified)then
  table1.applyupdates;
  button1.enabled:=true;
  if(str1='lichang')then
  begin
   if(table1.modified)then
  table1.applyupdates;
  Label17.enabled:=false;
  DBComboBox8.enabled:=false;
  str1:='';
   end;
table1.last;
end;

procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
  XP_Button9.visible:=false;
  XP_Button10.visible:=false;
  if(table1.modified)then
  table1.cancel;
  button1.enabled:=true;
  if(str1='lichang')then
  begin
  Label17.enabled:=false;
  DBComboBox8.enabled:=false;
  end;
  table1.last;
end;

procedure TForm1.SpeedButton16Click(Sender: TObject);
begin
   XP_Button9.visible:=true;
   XP_Button10.visible:=true;
   if(table1.state=dsedit)then
   begin
   table1.edit;
   dbedit1.SetFocus;
   dbedit1.SelectAll;
   end;
   button1.enabled:=false;

end;

procedure TForm1.SpeedButton14Click(Sender: TObject);
begin
 popupmenu2.popup(form1.left+90,form1.top+300);
end;

procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm1.SpeedButton17Click(Sender: TObject);
var m1,m2:integer;
begin
m1:=form1.left;
m2:=form1.top;
popupmenu1.popup(m1+90,m2+128);
end;

procedure TForm1.N3Click(Sender: TObject);
begin
form4.show;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
if(application.MessageBox('是否确定要删除记录','确定删除',MB_YESNO+MB_ICONQUESTION)<>IDNO)then
if(table1.recordcount>0)then
table1.delete;
table1.applyupdates;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
form6.show;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
form5.show;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
str3:=dbedit4.text;
str2:=dbedit2.text;
form8.caption:=str2+'本年度工资统计';
form8.show;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
  Label17.enabled:=true;
  DBComboBox8.enabled:=true;
  XP_Button9.visible:=true;
  XP_Button10.visible:=true;
  str1:='lichang';

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 
 table1.open;

end;

end.