previewform.~pas

一个电力企业的后台管理程序

  CanClose:=true;
end;

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

procedure TfrmPreviewForm.actn_View_Toolbars_billExecute(Sender: TObject);
begin
  tbar97_Self.Visible:=not tbar97_Self.Visible;
end;

procedure TfrmPreviewForm.tbar97_SelfClose(Sender: TObject);
begin
  actn_View_Toolbars_bill.Checked:=tbar97_Self.Visible;
end;

procedure TfrmPreviewForm.tbar97_SelfVisibleChanged(Sender: TObject);
begin
  actn_View_Toolbars_bill.Checked:=tbar97_Self.Visible;
end;

procedure TfrmPreviewForm.FormActivate(Sender: TObject);
begin
  tbar97_Self.Visible:=true;
end;

procedure TfrmPreviewForm.FormDeactivate(Sender: TObject);
begin
  tbar97_Self.Visible:=false;
end;

procedure TfrmPreviewForm.ppDBText1Print(Sender: TObject);
//var
// TempField: TFields;
begin
 //TempField := Sender as TFields;
 //if TempField.FieldByNumber(1).IsNull then
  //TempField.FieldByNumber(1).AsInteger := 0; 
end;

procedure TfrmPreviewForm.ppDBText2Print(Sender: TObject);
var
 Temp:TField;
begin
 temp := Sender As Tfield;
 if temp.AsString = '' then
  temp.AsString := '0';
end;

procedure TfrmPreviewForm.ppDBText2GetText(Sender: TObject;
  var Text: String);
begin
 if Text = '' then
  Text := '0';
end;

procedure TfrmPreviewForm.ClientAskXhCalc(Sender: TObject;
  var Value: Variant);
begin
 if Value = 0 then
  Value := 1
 else
  Value := Value + 1; 

end;

procedure TfrmPreviewForm.ppVariable2Calc(Sender: TObject;
  var Value: Variant);
begin
 SetValue('TYPECOUNT',Value);
end;

procedure TfrmPreviewForm.ppVariable3Calc(Sender: TObject;
  var Value: Variant);
begin
 if Value = 0 then
  Value := 1
 else
  Value := Value + 1; 
end;

procedure TfrmPreviewForm.ppVariable4Calc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('CLJ').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('CLJ').AsString;
end;

procedure TfrmPreviewForm.ppVariable5Calc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('NOTCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('NOTCOUNT').AsString ;

end;

procedure TfrmPreviewForm.ppVariable6Calc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('INTIMECOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('INTIMECOUNT').AsString;
end;

procedure TfrmPreviewForm.ppVariable7Calc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('OVERCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('OVERCOUNT').AsString;
end;

procedure TfrmPreviewForm.ppVariable8Calc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('ALLCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('ALLCOUNT').AsString;
end;

procedure TfrmPreviewForm.ClientCountCalc(Sender: TObject;
  var Value: Variant);
begin
// showmessage(Qr_Report.FieldByName('ASKCOUNT').AsString);
 if Qr_Report.FieldByName('ASKCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('ASKCOUNT').AsString;
end;

procedure TfrmPreviewForm.ClientAskCljXhCalc(Sender: TObject;
  var Value: Variant);
begin
 if Value = 0 then
  Value := 1
 else
  Value := Value + 1; 
end;

procedure TfrmPreviewForm.ClientAskSlCalc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('ASKCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('ASKCOUNT').AsString;
end;

procedure TfrmPreviewForm.AskNotCalc(Sender: TObject; var Value: Variant);
begin
 if Qr_Report.FieldByName('NOTCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('NOTCOUNT').AsString;
end;

procedure TfrmPreviewForm.AskIntimeCalc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('INTIMECOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('INTIMECOUNT').AsString;
end;

procedure TfrmPreviewForm.AskOverTimeCalc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('OUTTIMECOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('OUTTIMECOUNT').AsString;
end;

procedure TfrmPreviewForm.AskAllCountCalc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('ALLCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('ALLCOUNT').AsString;
end;

procedure TfrmPreviewForm.CompTypeXhCalc(Sender: TObject;
  var Value: Variant);
begin
 if Value = 0 then
  Value := 1
 else
  Value := Value + 1;   
end;

procedure TfrmPreviewForm.CompTypeCountCalc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('COMPCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('COMPCOUNT').AsString;
end;

procedure TfrmPreviewForm.CompUnitCountCalc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('COMPCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('COMPCOUNT').AsString;
end;


procedure TfrmPreviewForm.CompNotCountCalc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('NOTCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('NOTCOUNT').AsString; 
end;

procedure TfrmPreviewForm.CompInTimeCalc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('INTIMECOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('INTIMECOUNT').AsString;
end;

procedure TfrmPreviewForm.CompOverCalc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('OUTTIMECOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('OUTTIMECOUNT').AsString;
end;

procedure TfrmPreviewForm.CompAllCountCalc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('ALLCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('ALLCOUNT').AsString;
end;

procedure TfrmPreviewForm.AgentTypeXhCalc(Sender: TObject;
  var Value: Variant);
begin
 if Value = 0 then
  Value := 1
 else
  Value := Value + 1;
end;

procedure TfrmPreviewForm.AgentTypeCountCalc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('TYPECOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('TYPECOUNT').AsString;
end;

procedure TfrmPreviewForm.AgentWorkIdXhCalc(Sender: TObject;
  var Value: Variant);
begin
 if Value = 0 then
  Value := 1
 else
  Value := Value + 1;   
end;

procedure TfrmPreviewForm.AgentCountCalc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('RECCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('RECCOUNT').AsString;
end;

procedure TfrmPreviewForm.ZhGzXhCalc(Sender: TObject; var Value: Variant);
begin
 if Value = 0 then
  Value := 1
 else
  Value := Value + 1;
end;

procedure TfrmPreviewForm.ZhMydCalc(Sender: TObject; var Value: Variant);
begin
 if Qr_Report.FieldByName('RECCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('RECCOUNT').AsString;
end;

procedure TfrmPreviewForm.StaAskXhCalc(Sender: TObject;
  var Value: Variant);
begin
 if Value = 0 then
  Value := 1
 else
  Value := Value + 1; 
end;

procedure TfrmPreviewForm.SatAskCountCalc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('RECCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('RECCOUNT').AsString;
end;

procedure TfrmPreviewForm.CompXhCalc(Sender: TObject; var Value: Variant);
begin
 if Value = 0 then
  Value := 1
 else
  Value := Value + 1;
end;

procedure TfrmPreviewForm.CompCountCalc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('RECCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('RECCOUNT').AsString; 
end;

procedure TfrmPreviewForm.FeedXhCalc(Sender: TObject; var Value: Variant);
begin
 if Value = 0 then
  Value := 1
 else
  Value := Value + 1;  
end;

procedure TfrmPreviewForm.ppVariable1Calc(Sender: TObject; var Value: Variant);
begin
 SetAutoField(Value);
end;

procedure TfrmPreviewForm.SetAutoField(var Value: Variant);
begin
 if Value = 0 then
  Value := 1
 else
  Value := Value + 1;
end;

procedure TfrmPreviewForm.SetValue(Str: String; var Value: Variant);
begin
 if Qr_Report.FieldByName(Str).AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName(Str).AsString;
end;

procedure TfrmPreviewForm.CompUnitXhCalc(Sender: TObject;
  var Value: Variant);
begin
 SetAutoField(Value);
end;

procedure TfrmPreviewForm.ppVariable11Calc(Sender: TObject;
  var Value: Variant);
begin
 if Qr_Report.FieldByName('OVERNOTCOUNT').AsString = '' then
  Value := '0'
 else
  Value := Qr_Report.FieldByName('OVERNOTCOUNT').AsString; 
end;

end.