pay550_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

procedure TPay550_01Form.sbOkClick(Sender: TObject);
begin
  inherited;
  qryHrm150.AfterScroll(qryHrm150);
end;

procedure TPay550_01Form.qryHrm150AfterScroll(DataSet: TDataSet);
begin
  inherited;
  //创建内存表
  adsPay550.Close;
  adsPay550.FieldDefs.Clear;
  adsPay550.FieldDefs.Add('ItemName1',ftString,30);
  adsPay550.FieldDefs.Add('Amount1',ftFloat,0);
  adsPay550.FieldDefs.Add('ItemName2',ftString,30);
  adsPay550.FieldDefs.Add('Amount2',ftFloat,0);
  adsPay550.CreateDataSet;

  if qryHrm150.IsEmpty then Exit;

  //插入数据(加项)
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select P550_005,P550_006,P150_003,P150_009 from PAY550, PAY150');
  SYSDM.qryQuery.SQL.Add('where P550_004=P150_001 and P550_001='+cbYear.Text);
  SYSDM.qryQuery.SQL.Add(' and P550_002='+IntToStr(APeriod)+' and P550_003='+qryHrm150H150_001.AsString);
  SYSDM.qryQuery.SQL.Add(' and P150_009=0');
  SYSDM.qryQuery.SQL.Add(' order by P150_002');
  SYSDM.qryQuery.Open;
  while not SYSDM.qryQuery.Eof do
  begin
    adsPay550.Append;
    adsPay550.FieldByName('ItemName1').Value:=SYSDM.qryQuery.FieldByName('P150_003').Value;
    adsPay550.FieldByName('Amount1').Value:=SYSDM.qryQuery.FieldByName('P550_005').Value;
    adsPay550.FieldByName('ItemName2').Value:='';
    adsPay550.Post;
    SYSDM.qryQuery.Next;
  end;

  //插入数据(减项)
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select P550_005,P550_006,P150_003,P150_009 from PAY550, PAY150');
  SYSDM.qryQuery.SQL.Add('where P550_004=P150_001 and P550_001='+cbYear.Text);
  SYSDM.qryQuery.SQL.Add(' and P550_002='+IntToStr(APeriod)+' and P550_003='+qryHrm150H150_001.AsString);
  SYSDM.qryQuery.SQL.Add(' and P150_009=1');
  SYSDM.qryQuery.SQL.Add(' order by P150_002');
  SYSDM.qryQuery.Open;
  while not SYSDM.qryQuery.Eof do
  begin
    if not adsPay550.Locate('ItemName2','',[]) then
      adsPay550.Append
    else
      adsPay550.Edit;
    adsPay550.FieldByName('ItemName2').Value:=SYSDM.qryQuery.FieldByName('P150_003').Value;
    adsPay550.FieldByName('Amount2').Value:=SYSDM.qryQuery.FieldByName('P550_005').Value;
    adsPay550.Post;
    SYSDM.qryQuery.Next;
  end;
  edtAmount.Text:=FormatFloat('0.00',dxDBGrid2.ColumnByFieldName('Amount1').SummaryFooterValue-
    dxDBGrid2.ColumnByFieldName('Amount2').SummaryFooterValue);

  if not adsPay550.IsEmpty then
  begin
    edtYear.Text:=cbYear.Text;
    edtMonth.Text:=cbMonth.Text;
    edtEmpID.Text:=qryHrm150H150_002.Value;
    edtEmpName.Text:=qryHrm150H150_003.Value;
    edtDeptName.Text:=qryHrm150H100_002.Value;
    cbCheck.Checked:=SYSDM.qryQuery.FieldByName('P550_006').AsBoolean;  //已审核否
  end;
end;

procedure TPay550_01Form.ActFirstExecute(Sender: TObject);
begin
  inherited;
//最前
  if qryHrm150.IsEmpty then Exit;
  qryHrm150.First;
  ActFirst.Enabled:=False;
  ActPrior.Enabled:=False;
  ActNext.Enabled:=True;
  ActLast.Enabled:=True;
end;

procedure TPay550_01Form.ActPriorExecute(Sender: TObject);
begin
  inherited;
//上移
  if qryHrm150.IsEmpty then Exit;
  qryHrm150.Prior;
  ActNext.Enabled:=not qryHrm150.Eof;
  ActLast.Enabled:=not qryHrm150.Eof;
  ActFirst.Enabled:=not qryHrm150.Bof;
  ActPrior.Enabled:=not qryHrm150.Bof;
end;

procedure TPay550_01Form.ActNextExecute(Sender: TObject);
begin
  inherited;
//下移
  if qryHrm150.IsEmpty then Exit;
  qryHrm150.Next;
  ActNext.Enabled:=not qryHrm150.Eof;
  ActLast.Enabled:=not qryHrm150.Eof;
  ActFirst.Enabled:=not qryHrm150.Bof;
  ActPrior.Enabled:=not qryHrm150.Bof;
end;

procedure TPay550_01Form.ActLastExecute(Sender: TObject);
begin
  inherited;
//最后
  if qryHrm150.IsEmpty then Exit;
  qryHrm150.Last;
  ActNext.Enabled:=False;
  ActLast.Enabled:=False;
  ActFirst.Enabled:=True;
  ActPrior.Enabled:=True;
end;

procedure TPay550_01Form.ActRefreshExecute(Sender: TObject);
begin
  inherited;
//刷新
end;

procedure TPay550_01Form.ActLocateExecute(Sender: TObject);
begin
  inherited;
//查找
  if qryHrm150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Exit;
  end;
  LocateDialog(dsHrm150);
end;

procedure TPay550_01Form.ActSearchExecute(Sender: TObject);
begin
  inherited;
//查询
  FilterDialog(dsHrm150);
end;

procedure TPay550_01Form.ActPrintExecute(Sender: TObject);
begin
  inherited;
//打印
  SelectReport(qryHrm150,AProgramID,AReportName,ReportGetValue);
  ActRefresh.Execute;
end;

procedure TPay550_01Form.ActExportExecute(Sender: TObject);
begin
  inherited;
//导出到Excel
  if qryHrm150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  SaveToExcel(dxDBGrid1);
end;

procedure TPay550_01Form.ActRunExecute(Sender: TObject);
begin
  inherited;
//计算
  if qryHrm150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Exit;
  end;
  Pay550_02Form:=TPay550_02Form.Create(Application);
  Pay550_02Form.ShowModal;
  qryHrm150.AfterScroll(qryHrm150);
end;

procedure TPay550_01Form.ActCheckExecute(Sender: TObject);
begin
  inherited;
//审核
  if qryHrm150.IsEmpty then
  begin
    ShowMsg('表记录为空，操作无效');
    Exit;
  end;
  Pay550_03Form:=TPay550_03Form.Create(Application);
  Pay550_03Form.ShowModal;
  sbOk.Click;
end;

procedure TPay550_01Form.ActCurrExecute(Sender: TObject);
begin
  inherited;
//零金
//  showmessage(Money_convert(1002.02));
  Pay550_04Form:=TPay550_04Form.Create(Application);
  Pay550_04Form.ShowModal;
end;

procedure TPay550_01Form.ActTransExecute(Sender: TObject);
var
  T:Double;
begin
  inherited;
//转帐
  T:=0;
  Pay550_05Form:=TPay550_05Form.Create(Application);
  Pay550_05Form.ADOQuery1.Parameters.ParamByName('@I_YEARS').Value:=cbYear.Text;
  Pay550_05Form.ADOQuery1.Parameters.ParamByName('@I_MONTH').Value:=APeriod;
  Pay550_05Form.ADOQuery1.Open;
  Pay550_05Form.ADOQuery1.DisableControls;
  while Not Pay550_05Form.ADOQuery1.Eof do
  begin
//    T:=T+Pay550_05Form.ADOQuery1P550_006.Value;
    Pay550_05Form.ADOQuery1.Next;
  end;
  Pay550_05Form.ADOQuery1.EnableControls;
  Pay550_05Form.ADOQuery1.First;
  Pay550_05Form.Label2.Caption:=Money_convert(T);
  Pay550_05Form.ShowModal;
end;

procedure TPay550_01Form.ActCutExecute(Sender: TObject);
begin
  inherited;
//划分
  Pay550_06Form:=TPay550_06Form.Create(Application);
  Pay550_06Form.YEARS:=StrToInt(cbYear.Text);
  Pay550_06Form.MONTH:=APeriod;
  Pay550_06Form.ShowModal;
end;

procedure TPay550_01Form.ActExitExecute(Sender: TObject);
begin
  inherited;
//退出
  Close;
end;

procedure TPay550_01Form.dxDBGrid2ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  inherited;
  Allow:=False;
end;

initialization
  RegisterClass(TPay550_01Form);

finalization
  UnRegisterClass(TPay550_01Form);

end.