main.~pas

一个很不错的人事考勤系统,功能齐全,附带源码.

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls, StdCtrls, Db, DBTables, ExtCtrls, jpeg, ExtDlgs,
  Buttons, ToolWin, Psock, NMsmtp;
   
type
  Tmainfm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    R1: TMenuItem;
    I1: TMenuItem;
    N3: TMenuItem;
    N7: TMenuItem;
    O1: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    Table1: TTable;
    N13: TMenuItem;
    N14: TMenuItem;
    PopupMenu1: TPopupMenu;
    N15: TMenuItem;
    OpenPictureDialog1: TOpenPictureDialog;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    Image1: TImage;
    N12: TMenuItem;
    N20: TMenuItem;
    S1: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Timer1: TTimer;
    N8: TMenuItem;
    N9: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    SaveDialog1: TSaveDialog;
    Query1: TQuery;
    N23: TMenuItem;
    CoolBar1: TCoolBar;
    SpeedButton4: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    procedure R1Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N11Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N12Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
  private
    { Private declarations }
    
  public
    { Public declarations }  
  end;

var
  mainfm: Tmainfm;

implementation

uses U_RSGL, U_dm, U_teams,
  U_empteams, U_empbase, U_KQGL, U_changecard, U_lookupkqdata,
  U_GSout, U_empworktime, U_GS_DM, U_holiday, U_fk_record, U_password,
  U_changesal, U_status, U_selectBK, U_RSserch;

{$R *.DFM}


procedure Tmainfm.R1Click(Sender: TObject);
begin
  if F_kqgl=nil then
    F_kqgl:=TF_kqgl.Create(self);
    F_kqgl.Show;
end;

procedure Tmainfm.N10Click(Sender: TObject);
begin
  if F_teams=nil then
    F_teams:=TF_teams.Create(Application);
    F_teams.Show;
end;

procedure Tmainfm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if F_kqgl<>nil then
    begin
      F_kqgl.Close;
    end;
  if DM.T_teams.State in [dsedit,dsinsert] then
    case MessageDlg('