dmpawn.~pa

一个典当行的业务管理系统程序

    tblFpHeadDay: TStringField;
    tblFpHeadTotalMText: TStringField;
    tblFpHeadTotalMoney: TStringField;
    dsFpDetail: TDataSource;
    tblFpDetail: TTable;
    tblFpDetailPawnTicketCode: TStringField;
    tblFpDetailItem: TStringField;
    tblFpDetailItemConent: TStringField;
    tblFpDetailUnit: TStringField;
    tblFpDetailNumber: TStringField;
    tblFpDetailMoney: TStringField;
    tblPrintTicketRealPayMoneyBig: TStringField;
    tblHandlePawnTicketCode: TStringField;
    //procedure tblDetailTempBeforeInsert(DataSet: TDataSet);
    //procedure tblDetailTempBeforePost(DataSet: TDataSet);
    //procedure tblDetailTempBeforeClose(DataSet: TDataSet);
    procedure tblHeadBeforeInsert(DataSet: TDataSet);
    //procedure dqDetailBeforeEdit(DataSet: TDataSet);
    procedure tblHeadBeforeDelete(DataSet: TDataSet);
    procedure dqDetailDelBeforeDelete(DataSet: TDataSet);
    procedure tblModifyDetailBeforeDelete(DataSet: TDataSet);
   // procedure dqDetailAfterEdit(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmPawnFrm: TdmPawnFrm;
  gHeadInsertMark:boolean;
  LineNo:integer;
implementation

uses PawnInput, PawnModify;

{$R *.DFM}

{procedure TdmPawnFrm.tblDetailTempBeforeInsert(DataSet: TDataSet);
begin
     //tblDetailTemp.edit;
end;}

{procedure TdmPawnFrm.tblDetailTempBeforePost(DataSet: TDataSet);
var
   DiscountRate:Double;
begin
     if tblDetailTempPawnLineNum.Text =''then
     begin
          LineNo:=LineNo+1;
          tblDetailTemp.Edit;
          tblDetailTempPawnLineNum.Value :=LineNo;
     end;
     {if tblDetailTempDiscountRate.Value=0 then
        DiscountRate:=100
     else
         DiscountRate:=tblDetailTempDiscountRate.Value;
     tblDetailTempPawnMoney.Value :=tblDetailTempAppriseValue.Value
                                      *(DiscountRate/100) ;
     }
//end;

{procedure TdmPawnFrm.tblDetailTempBeforeClose(DataSet: TDataSet);
begin
     LineNo:=0;
end;}

procedure TdmPawnFrm.tblHeadBeforeInsert(DataSet: TDataSet);
//var
   //Sql:string;
begin
     {Sql:='select * from PawnDetail_Tbl';
     Sql:=Sql+'where PawnTicketCode="'+PawnInput.gPawnTicketCode+'"';
     //Sql:=Sql+ 'and PawnLineNum=:'PawnInput.gLineNum ;
     dqDetail.Close;
     dqDetail.SQL.Clear ;
     dqDetail.SQL.Add(Sql);
     dqDetail.Prepare ;
     dqDetail.Open;
     if dqDetail.RecordCount <>0 then
        gHeadInsertMark:=false
     else
         gHeadInsertMark:=true;
     dqdetail.UnPrepare ;   }
     tblHead.IndexFieldNames:='PawnTicketCode';
     tblHead.SetKey ;
     tblHead.FieldByName ('PawnTicketCode').asstring:=PawnInput.gPawnTicketCode;
     if tblHead.gotokey then
        gHeadInsertMark:=false
     else
         gHeadInsertMark:=true;
end;

{procedure TdmPawnFrm.dqDetailBeforeEdit(DataSet: TDataSet);
begin
     tblDetailHistory.Open;
    tblDetailHistory.Insert ;
    with dqDetail do
    begin
         tblDetailHistoryPawnTicketCode.Value:=PawnModify.QueryPawnCode;
         tblDetailHistoryPawnLineNum.Value:=FieldByName('PawnLineNum').Value;
         tblDetailHistoryPawnName.Value:=FieldByName('PawnName').Value;
         tblDetailHistoryPawnCategory.Value:=FieldByName('PawnCategory').Value;
         tblDetailHistoryPawnSpec.Value :=FieldByName('PawnSpec').Value;
         tblDetailHistoryPawnNumber.Value :=FieldByName('PawnNumber').Value;
         tblDetailHistoryAppriseValue.Value :=FieldByName('AppriseValue').Value;
         tblDetailHistoryDiscountRate.Value :=FieldByName('DiscountRate').Value;
         tblDetailHistoryPawnMoney.Value :=FieldByName('PawnMoney').Value;
         tblDetailHistoryModifyDateTime.Value:=Now;
    end;
    tblDetailHistory.Post;
    tblDetailHistory.Close;
end;}

{procedure TdmPawnFrm.dqDetailAfterEdit(DataSet: TDataSet);
begin
     //dqDetail.DisableControls ;
     dqDetail.Post;
     //dqDetail.EnableControls ;
end;  }

procedure TdmPawnFrm.tblHeadBeforeDelete(DataSet: TDataSet);
var
   Sql:string;
begin
     tblHeadHistory.Open;
     Sql:='select Status from PHHistory_Tbl where PawnTicketCode=:PawnCode ';
     Sql:=Sql+'and Status=''未赎'' ';
     dqDeadHead.Close;
     dqDeadHead.SQL.Clear;
     dqDeadHead.SQL.Add(Sql);
     dqDeadHead.ParamByName('PawnCode').asstring:=tblHeadPawnTicketCode.Value;
     dqDeadHead.Open;
     //tblHeadHistory.IndexFieldNames:='PawnTicketCode';
     //tblHeadHistory.SetKey;
     //tblHeadHistory.FieldByName('PawnTicketCode').Asstring:=tblHeadPawnTicketCode.Value;
     //if tblHeadHistory.GotoKey then
     //begin
          //tblHeadHistory.Edit;
          //tblHeadHistoryStatus.Value :='删除';
          //tblHeadHistory.Post;
     //end;
     if dqDeadHead.IsEmpty=False then
     begin
          dqDeadHead.First;
          while not dqDeadHead.Eof do
          begin
               dqDeadHead.Edit;
               dqDeadHead.FieldByName('Status').Value:='删除';
               dqDeadHead.Post;
               dqDeadHead.Next;
          end;
     end;
     tblHeadHistory.Insert ;
     tblHeadHistoryPawnTicketCode.Value:=tblHeadPawnTicketCode.Value ;
     tblHeadHistoryPrePawnTicketCode.Value :=tblHeadPrePawnTicketCode.Value ;
     tblHeadHistoryPawnerName.Value :=tblHeadPawnerName.Value ;
     tblHeadHistoryPawnerAddress.Value :=tblHeadPawnerAddress.Value ;
     tblHeadHistoryPostCode.Value :=tblHeadPostCode.Value ;
     tblHeadHistoryCertificateName.Value :=tblHeadCertificateName.Value ;
     tblHeadHistoryCertificateCode.Value :=tblHeadCertificateCode.Value ;
     tblHeadHistoryTelephoneCode.Value :=tblHeadTelephoneCode.Value ;
     tblHeadHistoryLinkman.Value :=tblHeadLinkman.Value;
     tblHeadHistoryMonthRate.Value :=tblHeadMonthRate.Value ;
     tblHeadHistoryFeeRate.Value :=tblHeadFeeRate.Value ;
     tblHeadHistoryMonthRateFee.Value:=tblHeadMonthRateFee.Value;
     tblHeadHistoryTotalPawnMoney.Value :=tblHeadTotalPawnMoney.Value ;
     tblHeadHistorySynthesizeFee.Value :=tblHeadSynthesizeFee.Value ;
     tblHeadHistoryRealPayMoney.Value :=tblHeadRealPayMoney.Value ;
     tblHeadHistoryPawnBeginDate.Value :=tblHeadPawnBeginDate.Value ;
     tblHeadHistoryPawnEndDate.Value :=tblHeadPawnEndDate.Value ;
     tblHeadHistoryCreateDate.Value :=tblHeadCreateDate.Value ;
     tblHeadHistoryLastUpdateDate.Value:=tblHeadLastUpdateDate.Value ;
     tblHeadHistoryUpdateDate.Value :=tblHeadUpdateDate.Value ;
     tblHeadHistoryOperatorCode.Value :=tblHeadOperatorCode.Value ;
     tblHeadHistoryModifyDateTime.Value :=Now;
     tblHeadHistoryStatus.Value :='删除';
     tblHeadHistory.Post ;
     tblHeadHistory.Close;
end;


procedure TdmPawnFrm.dqDetailDelBeforeDelete(DataSet: TDataSet);
begin
     tblDetailHistory.Insert ;
     with dqDetailDel do
     begin
          tblDetailHistoryPawnTicketCode.Value:=FieldByName('PawnTicketCode').Value;
          tblDetailHistoryPawnLineNum.Value:=FieldByName('PawnLineNum').Value;
          tblDetailHistoryPawnName.Value:=FieldByName('PawnName').Value;
          tblDetailHistoryPawnCategory.Value:=FieldByName('PawnCategory').Value;
          tblDetailHistoryPawnSpec.Value :=FieldByName('PawnSpec').Value;
          tblDetailHistoryPawnNumber.Value :=FieldByName('PawnNumber').Value;
          tblDetailHistoryAppriseValue.Value :=FieldByName('AppriseValue').Value;
          tblDetailHistoryDiscountRate.Value :=FieldByName('DiscountRate').Value;
          tblDetailHistoryPawnMoney.Value :=FieldByName('PawnMoney').Value;
          tblDetailHistoryModifyDateTime.Value:=Now;
     end;
     tblDetailHistory.Post;
end;

procedure TdmPawnFrm.tblModifyDetailBeforeDelete(DataSet: TDataSet);
begin
      tblDetailHistory.Open;
      tblDetailHistory.Insert ;
      with tblModifyDetail do
      begin
         tblDetailHistoryPawnTicketCode.Value:=PawnModify.QueryPawnCode;
         tblDetailHistoryPawnLineNum.Value:=FieldByName('PawnLineNum').Value;
         tblDetailHistoryPawnName.Value:=FieldByName('PawnName').Value;
         tblDetailHistoryPawnCategory.Value:=FieldByName('PawnCategory').Value;
         tblDetailHistoryPawnSpec.Value :=FieldByName('PawnSpec').Value;
         tblDetailHistoryPawnNumber.Value :=FieldByName('PawnNumber').Value;
         tblDetailHistoryAppriseValue.Value :=FieldByName('AppriseValue').Value;
         tblDetailHistoryDiscountRate.Value :=FieldByName('DiscountRate').Value;
         tblDetailHistoryPawnMoney.Value :=FieldByName('PawnMoney').Value;
         tblDetailHistoryModifyDateTime.Value:=Now;
      end;
      tblDetailHistory.Post;
      tblDetailHistory.Close;
end;

initialization
     LineNo:=0;
end.