mealprint.pas

pasa人力资源考勤管理系统

    pplabel1.Caption:= companyname1;
    ppreport1.Print;
  end
  else if (maskEdit1.Text<>fmat1)and(MaskEdit2.Text<>fmat1)and(RadioGroup1.ItemIndex=1)and(RadioGroup2.ItemIndex=0)then
  begin
    ADOmealrecord.Close;
    ADOmealrecord.CommandText:='Select * From mel04010 where rq between'''+MaskEdit1.Text+'''and '''+MaskEdit2.Text+''' and  dept='''+Combobox2.Text+''' order by dept,workno';
    ADOmealrecord.Open;
    pplabel1.Caption:= companyname1;
    ppreport1.Print;
  end
  else if (maskEdit1.Text<>fmat1)and(MaskEdit2.Text<>fmat1)and(RadioGroup1.ItemIndex=2)and(RadioGroup2.ItemIndex=0)then
  begin
    ADOmealrecord.Close;
    ADOmealrecord.CommandText:='select * from mel04010 where rq between'''+MaskEdit1.Text+'''and '''+MaskEdit2.Text+''' and '+s+' order by dept,workno,rq';
    ADOmealrecord.Open;
    pplabel1.Caption:= companyname1;
    ppreport1.Print;
  end;/////////////////日汇总列印
  if (maskEdit1.Text<>fmat1)and(MaskEdit2.Text<>fmat1)and(RadioGroup1.ItemIndex=0)and(RadioGroup2.ItemIndex=2)then
  begin
    AdoDataSet1.Close;
    AdoDataSet1.CommandText:='Select * From mel08010 order by dept,workno,rq';
    AdoDataSet1.Open;
    ppreport3.Print;
  end
  else if (maskEdit1.Text<>fmat1)and(MaskEdit2.Text<>fmat1)and(RadioGroup1.ItemIndex=1)and(RadioGroup2.ItemIndex=2)then
  begin
    AdoDataSet1.Close;
    AdoDataSet1.CommandText:='Select * From mel08010 where dept='''+ComboBox1.Text+''' order by workno,rq';
    AdoDataSet1.Open;
    ppreport3.Print;
  end
  else if (maskEdit1.Text<>fmat1)and(MaskEdit2.Text<>fmat1)and(RadioGroup1.ItemIndex=2)and(RadioGroup2.ItemIndex=2)then
  begin
   if (Edit1.Text='') or (Edit2.Text='') then
   begin
     Application.messagebox('输入正确的工号进行查询！！！','系统提示',32);
     exit;
   end
   else
   begin
    AdoDataSet1.Close;
    AdoDataSet1.CommandText:='Select * From mel08010 where workno between '''+Edit1.Text+''' and '''+Edit2.Text+''' and rq between'''+maskedit1.Text+''' and '''+maskedit2.Text+'''  order by dept,rq,workno';
    AdoDataSet1.Open;
    ppreport3.Print;
   end;
  end;
end;
procedure TFormmealprint.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TFormmealprint.FormCreate(Sender: TObject);
begin
if fmat='/' then
begin
 fmat1:='    /  /  ';
 fmat2:='    /  ' ;
end;
if fmat='-' then
begin
 fmat1:='    -  -  ';
 fmat2:='    -  ';
end;
  Query2.SQL.Clear;
  ComboBox2.Clear;
  Query2.Close;
  Query2.SQL.Add('Select distinct dept From mel04010  where dept is not null');
  Query2.open;
  Query2.First;
  while not Query2.Eof do
  begin
    combobox2.items.add(Query2.fieldbyname('dept').asstring);
    Query2.next;
  end;

  Query1.SQL.Clear;
  ComboBox1.Clear;
  Query1.Close;
  Query1.SQL.Add('Select distinct deptno From mel05010  where deptno is not null');
  Query1.open;
  Query1.First;
  while not Query1.Eof do
  begin
    combobox1.items.add(Query1.fieldbyname('deptno').asstring);
    Query1.next;
  end;
end;

procedure TFormmealprint.ppReport1PreviewFormCreate(Sender: TObject);
begin
  tppreport(sender).previewform.windowstate:=wsmaximized;
end;

procedure TFormmealprint.ppReport2PreviewFormCreate(Sender: TObject);
begin
  tppreport(sender).previewform.windowstate:=wsmaximized;
end;

procedure TFormmealprint.Edit1Exit(Sender: TObject);
begin
  Edit2.Text:=Edit1.Text;
  radiogroup1.ItemIndex:=2;
end;

procedure TFormmealprint.RadioGroup2Click(Sender: TObject);
begin
  if RadioGroup2.ItemIndex=0 then
  begin
    MaskEdit3.Enabled:=False;
    MaskEdit1.Enabled:=True;
    MaskEdit1.SetFocus;
    MaskEdit2.Enabled:=True;
    ComboBox1.Visible:=True;
    ComboBox2.Visible:=False;
  end
  else if RadioGroup2.ItemIndex=1 then
  begin
    MaskEdit3.Enabled:=True;
    MaskEdit3.SetFocus;
    MaskEdit1.Enabled:=False;
    MaskEdit2.Enabled:=False;
    ComboBox1.Visible:=False;
    ComboBox2.visible:=True;
  end
  else
  begin
    MaskEdit3.Enabled:=False;
    MaskEdit1.Enabled:=True;
    MaskEdit1.SetFocus;
    MaskEdit2.Enabled:=True;
    ComboBox1.Visible:=True;
    ComboBox2.Visible:=False;
  end;
end;

procedure TFormmealprint.MaskEdit1Exit(Sender: TObject);
begin
  if trim(maskedit1.text)<>fmat1 then
  if (not isdate(maskedit1.Text)) then
  begin
     Application.MessageBox('对不起,您输入的不是有效日期','Warning',mb_ok+mb_iconwarning);
  end ;
end;

procedure TFormmealprint.MaskEdit2Exit(Sender: TObject);
begin
  if trim(maskedit2.text)<>fmat1 then
  if (not isdate(maskedit2.text)) then
  begin
     Application.MessageBox('对不起,您输入的不是有效日期','Warning',mb_ok+mb_iconwarning);
  end;
    if (maskedit2.text<maskedit1.text)  then
      begin
        application.MessageBox('您输入的结束日期小於开始日期，请重新输入，否则您的作业将产生一想不到的结果','Warning',mb_ok+mb_iconwarning);
      end;
end;

procedure TFormmealprint.FormKeyPress(Sender: TObject; var Key: Char);
begin
     if (activecontrol=MaskEdit1) or (activecontrol=MaskEdit2) or (activecontrol=MaskEdit3) or (activecontrol=Edit1) or (activecontrol=Edit2) then exit;
  if key=#13 then
    begin
      selectnext(activecontrol,true,true);
      key:=#0;
    end;
end;

procedure TFormmealprint.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     selectnext(activecontrol,true,true);
end;

procedure TFormmealprint.MaskEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
   selectnext(activecontrol,true,true);
end;

procedure TFormmealprint.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     selectnext(activecontrol,true,true);
end;

procedure TFormmealprint.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     selectnext(activecontrol,true,true);
end;

procedure TFormmealprint.ppReport3PreviewFormCreate(Sender: TObject);
begin
  tppreport(sender).previewform.windowstate:=wsmaximized;
end;

procedure TFormmealprint.ppReport3BeforePrint(Sender: TObject);
begin
   pplabel47.Caption:='日期:'+maskEdit1.Text+'----'+maskEdit2.Text+'';
   pplabel27.Caption:=pubworkname;
   pplabel17.Caption:= companyname1;
end;

procedure TFormmealprint.ppReport2BeforePrint(Sender: TObject);
begin
   pplabel20.Caption:='月份'+':'+maskEdit3.Text+'';
   pplabel46.Caption:=pubworkname;
   pplabel31.Caption:= companyname1;
end;
procedure TFormmealprint.ppReport1BeforePrint(Sender: TObject);
begin
  pplabel49.Caption:='日期:'+maskEdit1.Text+'----'+maskEdit2.Text+'';
  pplabel12.Caption:=pubworkname;
  pplabel1.Caption:= companyname1;
end;
procedure TFormmealprint.RadioGroup1Click(Sender: TObject);
begin
  case radiogroup1.ItemIndex of
  0:
  begin
    Edit1.Text:='';
    Edit2.Text:='';
    combobox2.Text:='';
    combobox1.Text:='';
  end;
  1:
  begin
    Edit1.Text:='';
    Edit2.Text:='';
  end;
  2:
  begin
    Edit1.SetFocus;
    Combobox2.Text:='';
    Combobox1.Text:='';
  end;
  end;
end;

procedure TFormmealprint.ComboBox2Change(Sender: TObject);
begin
  radiogroup1.ItemIndex:=1;
end;

end.