u_lookupkqdata.pas

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

unit U_lookupkqdata;

interface

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

type
  TF_lookupkqdata = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Query1: TQuery;
    Query2: TQuery;
    Timer1: TTimer;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    MaskEdit1: TMaskEdit;
    DateTimePicker1: TDateTimePicker;
    SpeedButton2: TSpeedButton;
    CheckBox1: TCheckBox;
    MaskEdit2: TMaskEdit;
    DateTimePicker2: TDateTimePicker;
    SpeedButton4: TSpeedButton;
    GroupBox3: TGroupBox;
    bitbtn1: TSpeedButton;
    bitbtn2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    StatusBar1: TStatusBar;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure MaskEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    sql,yjbm,ejbm,worknum:string;
    Procedure Exesql(s:string);
    Procedure Exesql_P;
    Procedure Get_yjdep;
    Procedure Get_ejdep;
    Procedure Get_emp;
  public
    { Public declarations }
  end;

var
  F_lookupkqdata: TF_lookupkqdata;

implementation

uses U_dm, UR_lookupkqdata;

{$R *.DFM}


procedure TF_lookupkqdata.Get_yjdep();
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;
      combobox1.Items.Clear;
      DM.QV_yj_ej_emp.First;
      while not DM.QV_yj_ej_emp.Eof do
        begin
          combobox1.Items.Add(DM.QV_yj_ej_emp.fieldbyname('yjbm_name').asstring);
          DM.QV_yj_ej_emp.Next;
        end;
end;

procedure TF_lookupkqdata.Get_ejdep();
begin
  if combobox1.Text='' then exit;
    With DM.QV_yj_ej_emp do
      begin
        close;
        sql.Clear;
        sql.Add('select distinct ejbm_name,yjbm_name from V_yj_ej_emp where yjbm_name='+''''+combobox1.text+'''');
        open;
      end;
      combobox2.Items.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('ejbm_name').asstring);
          DM.QV_yj_ej_emp.Next;
        end;
end;

procedure TF_lookupkqdata.Get_emp();
begin
  if combobox2.Text='' then exit;
    With DM.QV_yj_ej_emp do
      begin
        close;
        sql.Clear;
        sql.Add('select work_num,name,ejbm_name from V_yj_ej_emp where ejbm_name='+''''+combobox2.text+'''');
        open;
      end;
      combobox3.Items.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('work_num').asstring+'-'+DM.QV_yj_ej_emp.fieldbyname('name').asstring);
          DM.QV_yj_ej_emp.Next;
        end;
end;


procedure TF_lookupkqdata.Exesql_P;
begin
    with FR_lookupkqdata.Query1 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from mytemp');
      open;
    end;

end;


Procedure TF_lookupkqdata.exesql(s:string);
var
  ss:string;
begin
    with DM.QV_lookupkqdata do
    begin
      close;
      sql.Clear;
      ss:=s+' order by date_ymd,date_T,check_char';
      sql.Add(ss);
      open;
    end;
end;

procedure TF_lookupkqdata.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    SpeedButton1Click(self);
end;

procedure TF_lookupkqdata.SpeedButton1Click(Sender: TObject);
begin
  if edit1.Text='' then exit;
  if Length(Trim(maskedit1.text))<>10 then
    begin
       showmessage('输入日期有误,请输入正确的日期!!');
       exit;
    end;
  if Edit1.Text<>'' then
    begin
      sql:='Select * from V_lookupkqdata where work_num='+''''+Edit1.text+'''';
      sql:=sql+' and date_ymd='+''''+Maskedit1.Text+'''';
      exesql(sql);
    end;
end;

procedure TF_lookupkqdata.SpeedButton2Click(Sender: TObject);
begin
  if Edit1.Text='' then begin showmessage('请输入正确的工号!!!');exit; end;
  if Length(Trim(maskedit1.text))<>10 then begin showmessage('请输入正确的日期!!!');exit;end;
    sql:='Select * from V_lookupkqdata where work_num='+''''+Edit1.text+'''';
    sql:=sql+' and date_ymd='+''''+Maskedit1.Text+'''';
    exesql(sql);
end;

procedure TF_lookupkqdata.FormDestroy(Sender: TObject);
begin
  F_lookupkqdata:=nil; //释放空间
end;

procedure TF_lookupkqdata.MaskEdit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
    SpeedButton2Click(self);
end;
//前一天
procedure TF_lookupkqdata.BitBtn1Click(Sender: TObject);
begin
  if Edit1.Text='' then begin showmessage('请输入正确的工号!!');exit; end;
  if Length(Trim(maskedit1.text))<>10 then begin showmessage(' 请输入正确的日期!!');exit;end;
    sql:='Select * from V_lookupkqdata where work_num='+''''+Edit1.text+'''';
    sql:=sql+' and date_ymd='+''''+datetostr(strtodate(Maskedit1.Text)-1)+'''';
    exesql(sql);
    Maskedit1.Text:=datetostr(strtodate(Maskedit1.Text)-1);
end;
 //后一天
procedure TF_lookupkqdata.BitBtn2Click(Sender: TObject);
begin
  if Edit1.Text='' then begin showmessage('请输入正确的工号!!');exit; end;
  if Length(Trim(maskedit1.text))<>10 then begin showmessage('请输入正确的日期!!');exit;end;
    sql:='Select * from V_lookupkqdata where work_num='+''''+Edit1.text+'''';
    sql:=sql+' and date_ymd='+''''+datetostr(strtodate(Maskedit1.Text)+1)+'''';
    exesql(sql);
    Maskedit1.Text:=datetostr(strtodate(Maskedit1.Text)+1);
end;
 //创建一个临时表,对打印数据做准备
procedure TF_lookupkqdata.SpeedButton3Click(Sender: TObject);
var
  date:string;
  i:integer;
begin
  if sql='' then exit;
//-------------