u_kqgl.pas

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

unit U_KQGL;

interface

uses
  Windows,shellApi, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,ComCtrls, Db, DBTables, Grids, DBGrids, Menus, ExtCtrls,
  Buttons, Mask;

type
  TF_KQGL = class(TForm)
    Q_kqdata: TQuery;
    Q_timestable: TQuery;
    StoredProc1: TStoredProc;
    Q_temp: TQuery;
    Query1: TQuery;
    DBGrid1: TDBGrid;
    DS_SBdata: TDataSource;
    Query2: TQuery;
    Q_tempkqdata: TQuery;
    Q_timestable_temp: TQuery;
    MainMenu1: TMainMenu;
    data: TMenuItem;
    N1: TMenuItem;
    read: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    StatusBar1: TStatusBar;
    Q_sbdata: TQuery;
    Panel1: TPanel;
    MaskEdit1: TMaskEdit;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    Label2: TLabel;
    SpeedButton2: TSpeedButton;
    RadioGroup1: TRadioGroup;
    Edit1: TEdit;
    Label3: TLabel;
    SpeedButton3: TSpeedButton;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N42: TMenuItem;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel2: TPanel;
    ListBox1: TListBox;
    Label4: TLabel;
    N15: TMenuItem;
    N43: TMenuItem;
    Label5: TLabel;
    SpeedButton4: TSpeedButton;
    CheckBox1: TCheckBox;
    MaskEdit2: TMaskEdit;
    SpeedButton5: TSpeedButton;
    N13: TMenuItem;
    DBGrid2: TDBGrid;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label10: TLabel;
    DS_data: TDataSource;
    Q_data: TQuery;
    Q_datamachine_num: TStringField;
    Q_datacard_num: TStringField;
    Q_datadate_YMD: TStringField;
    Q_datadate_T: TStringField;
    Q_datacheck_char: TStringField;
    Q_dataend_char: TStringField;
    Q_dataempid: TIntegerField;
    Label11: TLabel;
    DBGrid3: TDBGrid;
    DataSource1: TDataSource;
    BitBtn5: TBitBtn;
    N19: TMenuItem;
    MaskEdit3: TMaskEdit;
    MaskEdit4: TMaskEdit;
    Label13: TLabel;
    CheckBox2: TCheckBox;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    PopupMenu1: TPopupMenu;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    Bevel1: TBevel;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    N26: TMenuItem;
    N27: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure RadioGroup1Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure MaskEdit1DblClick(Sender: TObject);
    procedure MaskEdit1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn2Click(Sender: TObject);
    procedure DS_SBdataStateChange(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton4Click(Sender: TObject);
    procedure MaskEdit2DblClick(Sender: TObject);
    procedure MaskEdit2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N13Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure DS_SBdataDataChange(Sender: TObject; Field: TField);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure ComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure MaskEdit1Change(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure ComboBox4Click(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure MaskEdit3Change(Sender: TObject);
    procedure MaskEdit3DblClick(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);

  private
    { Private declarations }
    starttime,sql,cardnum,workday,date,worknum,name,readcarddate:string;//sqlい锣陪ボ钵盽