u_holiday.pas

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

unit U_holiday;

interface

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

type
  TF_holiday = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Label1: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Panel2: TPanel;
    Edit3: TEdit;
    SpeedButton2: TSpeedButton;
    Label4: TLabel;
    Label5: TLabel;
    Edit4: TEdit;
    Panel3: TPanel;
    Label3: TLabel;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    ComboBox2: TComboBox;
    Label6: TLabel;
    ComboBox3: TComboBox;
    Label7: TLabel;
    ComboBox4: TComboBox;
    Label8: TLabel;
    Panel4: TPanel;
    ComboBox5: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1Change(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit4DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure ComboBox4Click(Sender: TObject);
    procedure ComboBox5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DataSource1StateChange(Sender: TObject);
  private
    { Private declarations }
    sql:string;
    Procedure EXE_sql(s:string);
    Procedure Get_yjbm;
    Procedure GET_ejbm;
    Procedure GET_name;
  public
    { Public declarations }
  end;

var
  F_holiday: TF_holiday;

implementation

uses U_dm, U_RS_DM;

{$R *.DFM}




procedure TF_holiday.GET_name();
begin
  with DM.QV_yj_ej_emp do
    begin
      close;
      sql.Clear;
      sql.Add('select distinct name from V_yj_ej_emp where ejbm_name='+''''+combobox3.Text+'''');
      open;
    end;
    Combobox4.Clear;
    DM.QV_yj_ej_emp.First;
    while not DM.QV_yj_ej_emp.Eof do
      begin
        Combobox4.Items.Add(DM.QV_yj_ej_emp.fieldbyname('name').asstring);
        DM.QV_yj_ej_emp.Next;
      end;

end;



procedure TF_holiday.GET_ejbm();
begin
  with DM.QV_yj_ej_emp do
    begin
      close;
      sql.Clear;
      sql.Add('select distinct ejbm_name from V_yj_ej_emp where yjbm_name='+''''+combobox2.Text+'''');
      open;
    end;
    Combobox3.Clear;
    DM.QV_yj_ej_emp.First;
    while not DM.QV_yj_ej_emp.Eof do
      begin
        Combobox3.Items.Add(DM.QV_yj_ej_emp.fieldbyname('ejbm_name').asstring);
        DM.QV_yj_ej_emp.Next;
      end;

end;


procedure TF_holiday.Get_yjbm();
begin
  with DM.QV_yj_ej_emp do
    begin
      close;
      sql.Clear;
      sql.Add('select distinct Yjbm_name from V_yj_ej_emp');
      open;
    end;
    Combobox2.Clear;
    DM.QV_yj_ej_emp.First;
    while not DM.QV_yj_ej_emp.Eof do
      begin
        Combobox2.Items.Add(DM.QV_yj_ej_emp.fieldbyname('yjbm_name').asstring);
        DM.QV_yj_ej_emp.Next;
      end;
end;


procedure TF_holiday.EXE_sql(s:string);
begin
  with DM.QV_dep_emp_holi do
    begin
      close;
      sql.Clear;
      sql.Add(s);
      sql.Add(' order by name,ht_date,ht_name');
      open;
    end;
end;


procedure TF_holiday.FormDestroy(Sender: TObject);
begin
  F_holiday:=nil;
end;

procedure TF_holiday.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TF_holiday.Edit1Change(Sender: TObject);
begin
  if Length(trim(Edit1.text))=6 then
     begin
       sql:='select * from V_dep_emp_holi where work_num='+''''+Edit1.Text+'''';
       EXE_sql(sql);
     end;
end;

procedure TF_holiday.ComboBox1Click(Sender: TObject);
begin
  if (combobox1.Text='ら戳')or(combobox1.Text='癬﹍