u_empteams.pas

一個很不錯的人事考勤系統,強烈講義大家下載,帶源碼,可以修改

unit U_empteams;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls, ExtCtrls, ActnList, ImgList, Db, DBTables, ADODB, Mask;

type
  TF_empteams = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    RadioGroup1: TRadioGroup;
    ActionList1: TActionList;
    ImageList1: TImageList;
    single_add: TAction;
    multi_add: TAction;
    single_del: TAction;
    multi_del: TAction;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    ListBox3: TListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    T_temp: TTable;
    QV_bm_emp: TQuery;
    Label1: TLabel;
    Label2: TLabel;
    Q_updateteamsid: TQuery;
    Label3: TLabel;
    Button1: TButton;
    Panel1: TPanel;
    MaskEdit1: TMaskEdit;
    ComboBox1: TComboBox;
    MaskEdit2: TMaskEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    MaskEdit3: TMaskEdit;
    MaskEdit4: TMaskEdit;
    Label7: TLabel;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    Label8: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButtonClick(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1Click(Sender: TObject);
    procedure MaskEdit1Change(Sender: TObject);
    procedure MaskEdit2Change(Sender: TObject);
    procedure MaskEdit3Change(Sender: TObject);
    procedure MaskEdit4Change(Sender: TObject);
    procedure ListBox3Click(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure MaskEdit2DblClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
    radioid:integer;
    function get_time(begintime,endtime:integer):real;
    Procedure Getdata(tablename,fieldname:string;listboxname:TListbox);//盢┮Τ