u_public.pas

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

unit U_public;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, U_Fr_fk_Printselect;

type
  TF_public = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    procedure FormShow(Sender: TObject);
  private
    s:string;
    myFrame:TFrame;
    { Private declarations }
    Procedure char1;
    Procedure char2;
    Procedure Fk_print;
  public
    { Public declarations }
    framestr:string;
  end;

var
  F_public: TF_public;

implementation

uses U_fr_DBchar, U_Fr_DM, U_Fr_yearper;

{$R *.DFM}

procedure TF_public.FormShow(Sender: TObject);
begin
  if framestr='char1' then
    begin
      char1;
      exit;
    end;
  if framestr='char2' then
    begin
      char2;
      exit;
    end;
  if framestr='fk_print' then
    begin
      fk_print;
      exit;
    end;
end;

procedure TF_public.char1();
begin
  with Fr_DM.Q_DBchat do
    begin
      close;
      sql.Clear;
      s:='select substring(in_date,1,7),count(*) from employees'+
      ' where in_date like ' +''''+copy(datetostr(now),1,4)+'%'+''''+
      ' group by substring(in_date,1,7)';
      sql.Add(s);
      open;
    end;
  if myFrame<>nil then myFrame.free;
    myFrame:=TFr_DBChat.Create(panel2);
    myFrame.Align:=alclient;
    myFrame.Parent:=panel2;
end;

procedure TF_public.char2();
begin
  with Fr_DM.Q_DBchat2 do
    begin
      close;
      sql.Clear;
      s:='select substring(in_date,1,4),count(*) from employees'+
      ' where in_date like ' +''''+'[1-2]%'+''''+
      ' group by substring(in_date,1,4)';
      sql.Add(s);
      open;
    end;
  if myFrame<>nil then myFrame.free;
    myFrame:=TFr_Yearper.Create(panel2);
    myFrame.Align:=alclient;
    myFrame.Parent:=panel2;
end;

procedure TF_public.Fk_print();
begin
end;


end.