u_empteams.~pas

小型劳资管理系统,用visual basic+access编写

unit U_empteams;

interface

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

type
  TF_empteams = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    ActionList1: TActionList;
    ImageList1: TImageList;
    single_add: TAction;
    multi_add: TAction;
    single_del: TAction;
    multi_del: TAction;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    ListBox3: TListBox;
    T_temp: TTable;
    QV_bm_emp: TQuery;
    Q_updateteamsid: TQuery;
    Label9: TLabel;
    Label11: TLabel;
    GroupBox1: TGroupBox;
    RadioGroup1: TRadioGroup;
    Label3: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    button1: TSpeedButton;
    bitbtn1: TSpeedButton;
    bitbtn2: TSpeedButton;
    Panel1: TPanel;
    Label6: TLabel;
    ComboBox1: TComboBox;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    MaskEdit3: TMaskEdit;
    MaskEdit4: TMaskEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    Bevel1: TBevel;
    bitbtn3: TSpeedButton;
    Edit3: TEdit;
    Label13: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    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 DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
  private
    { Private declarations }
    radioid:integer;
    function get_time(begintime,endtime:integer):real;
    Procedure Getdata(tablename,fieldname:string;listboxname:TListbox);
    Procedure oneday;
    Procedure manyday;
  public
    { Public declarations }
  end;

var
  F_empteams: TF_empteams;

implementation

uses U_teams, U_dm, U_Noteams, U_RS_DM, U_holiday;

{$R *.DFM}

procedure TF_empteams.oneday();
var
  i:integer;
begin
  for i:=0 to Listbox3.Items.Count-1 do
    begin
      with DM.QV_yj_ej_emp do
        begin
          close;
          sql.Clear;
          if Radiogroup1.ItemIndex=0 then
            sql.Add('select * from V_yj_ej_emp where ejbm_name='+''''+Listbox3.Items.Strings[i]+'''')
          else
            begin
              if (Listbox3.Items.Count=1)and(edit3.Text<>'')then
                sql.Add('select * from V_yj_ej_emp where work_num='+''''+edit3.text+'''')
              else
                sql.Add('select * from V_yj_ej_emp where name='+''''+Listbox3.Items.Strings[i]+'''');
            end;
          open;
        end;
     DM.QV_yj_ej_emp.First;
     while not DM.QV_yj_ej_emp.Eof do
      begin
      with DM.Q_temp do
        begin
          close;
          sql.Clear;
          sql.Add('select * from holiday_time where empid='+DM.QV_yj_ej_emp.FieldByName('emp_id').asstring);
          sql.Add(' and ht_date='+''''+maskedit1.text+'''');
          sql.Add(' and ht_name='+''''+combobox1.Text+'''');
          sql.Add(' and begin_time='+Maskedit3.text);
          open
        end;
        if DM.Q_temp.RecordCount>0 then
          begin
            showmessage(Maskedit1.text+'此天'+DM.QV_yj_ej_emp.FieldByName('name').asstring+'有相同内容!');
            exit;
          end;
        DM.QV_yj_ej_emp.Next;
      end;
    end;
//