u_fk_record.pas

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

unit U_fk_record;

interface

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

type
  TF_fk_record = class(TForm)
    Q_fk_record: TQuery;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Q_fk_recordworknum: TStringField;
    Q_fk_recorditem: TStringField;
    Q_fk_recordmoney: TFloatField;
    Q_fk_recordfs_date: TStringField;
    Q_fk_recordkkyf: TStringField;
    Q_fk_recorddj_date: TStringField;
    Q_fk_recordmemo: TStringField;
    Label1: TLabel;
    DataSource1: TDataSource;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    ComboBox1: TComboBox;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    MaskEdit3: TMaskEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Q_emp_fk: TQuery;
    DataSource2: TDataSource;
    Q_emp_fkyjbm_name: TStringField;
    Q_emp_fkejbm_name: TStringField;
    Q_emp_fkwork_num: TStringField;
    Q_emp_fkitem: TStringField;
    Q_emp_fkmoney: TFloatField;
    Q_emp_fkfs_date: TStringField;
    Q_emp_fkkkyf: TStringField;
    Q_emp_fkdj_date: TStringField;
    Q_emp_fkmemo: TStringField;
    Label8: TLabel;
    Panel2: TPanel;
    Label9: TLabel;
    MaskEdit4: TMaskEdit;
    Label10: TLabel;
    Edit1: TEdit;
    Label11: TLabel;
    SpeedButton1: TSpeedButton;
    Label12: TLabel;
    Edit2: TEdit;
    BitBtn4: TBitBtn;
    Q_emp_fkname: TStringField;
    BitBtn5: TBitBtn;
    Edit3: TEdit;
    Edit4: TEdit;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Panel3: TPanel;
    ComboBox2: TComboBox;
    Label14: TLabel;
    Edit5: TEdit;
    Label15: TLabel;
    UpDown1: TUpDown;
    Edit6: TEdit;
    UpDown2: TUpDown;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DataSource1StateChange(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure MaskEdit4Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Qnge(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure MaskEdit1Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure MaskEdit2Change(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Edit4DblClick(Sender: TObject);
  private
    { Private declarations }
    Procedure enableEdit(flag:boolean);
    Function Check:boolean;
  public
    { Public declarations }
    fromasok:boolean;
  end;

var
  F_fk_record: TF_fk_record;

implementation

uses U_dm, U_fkokbottomdlg, U_Fr_DM, URP_fk;

{$R *.DFM}

function TF_fk_record.Check():Boolean ;
begin
  if Length(Trim(edit3.Text))<>6 then
    begin
      Application.MessageBox('