dmpawn.pas

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

unit dmPawn;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  TdmPawnFrm = class(TDataModule)
    tblHead: TTable;
    dsHead: TDataSource;
    dsDetail: TDataSource;
    tblDetail: TTable;
    dsCertificate: TDataSource;
    tblCertificate: TTable;
    dsCategory: TDataSource;
    tblCategory: TTable;
    dsHeadHistory: TDataSource;
    tblHeadHistory: TTable;
    dsDetailTemp: TDataSource;
    tblDetailTemp: TTable;
    tblCertificateName: TStringField;
    tblCertificateCode: TStringField;
    tblCategoryName: TStringField;
    tblCategoryCode: TStringField;
    tblDetailTempPawnTicketCode: TStringField;
    tblDetailTempPawnLineNum: TSmallintField;
    tblDetailTempPawnName: TStringField;
    tblDetailTempPawnSpec: TStringField;
    tblDetailTempPawnCategory: TStringField;
    tblDetailTempPawnNumber: TSmallintField;
    tblDetailTempAppriseValue: TFloatField;
    tblDetailTempDiscountRate: TFloatField;
    tblHeadHistoryPawnTicketCode: TStringField;
    tblHeadHistoryPrePawnTicketCode: TStringField;
    tblHeadHistoryPawnerName: TStringField;
    tblHeadHistoryPawnerAddress: TStringField;
    tblHeadHistoryPostCode: TStringField;
    tblHeadHistoryCertificateName: TStringField;
    tblHeadHistoryCertificateCode: TStringField;
    tblHeadHistoryTelephoneCode: TStringField;
    tblHeadHistoryLinkman: TStringField;
    tblHeadHistoryMonthRate: TFloatField;
    tblHeadHistoryFeeRate: TFloatField;
    tblHeadHistoryTotalPawnMoney: TFloatField;
    tblHeadHistorySynthesizeFee: TFloatField;
    tblHeadHistoryRealPayMoney: TFloatField;
    tblHeadHistoryPawnBeginDate: TDateTimeField;
    tblHeadHistoryPawnEndDate: TDateTimeField;
    tblHeadHistoryCreateDate: TDateTimeField;
    tblHeadHistoryLastUpdateDate: TDateTimeField;
    tblHeadHistoryUpdateDate: TDateTimeField;
    tblHeadHistoryOperatorCode: TStringField;
    tblHeadPawnTicketCode: TStringField;
    tblHeadPrePawnTicketCode: TStringField;
    tblHeadPawnerName: TStringField;
    tblHeadPawnerAddress: TStringField;
    tblHeadPostCode: TStringField;
    tblHeadCertificateName: TStringField;
    tblHeadCertificateCode: TStringField;
    tblHeadTelephoneCode: TStringField;
    tblHeadLinkman: TStringField;
    tblHeadMonthRate: TFloatField;
    tblHeadFeeRate: TFloatField;
    tblHeadTotalPawnMoney: TFloatField;
    tblHeadSynthesizeFee: TFloatField;
    tblHeadRealPayMoney: TFloatField;
    tblHeadPawnBeginDate: TDateTimeField;
    tblHeadPawnEndDate: TDateTimeField;
    tblHeadCreateDate: TDateTimeField;
    tblHeadLastUpdateDate: TDateTimeField;
    tblHeadUpdateDate: TDateTimeField;
    tblHeadOperatorCode: TStringField;
    tblDetailPawnTicketCode: TStringField;
    tblDetailPawnLineNum: TSmallintField;
    tblDetailPawnName: TStringField;
    tblDetailPawnSpec: TStringField;
    tblDetailPawnCategory: TStringField;
    tblDetailPawnNumber: TSmallintField;
    tblDetailAppriseValue: TFloatField;
    tblDetailDiscountRate: TFloatField;
    tblDetailPawnMoney: TFloatField;
    Database: TDatabase;
    tblDetailTempPawnMoney: TFloatField;
    dsDetailHistory: TDataSource;
    tblDetailHistory: TTable;
    tblDetailHistoryPawnTicketCode: TStringField;
    tblDetailHistoryPawnLineNum: TSmallintField;
    tblDetailHistoryPawnName: TStringField;
    tblDetailHistoryPawnSpec: TStringField;
    tblDetailHistoryPawnCategory: TStringField;
    tblDetailHistoryPawnNumber: TSmallintField;
    tblDetailHistoryAppriseValue: TFloatField;
    tblDetailHistoryDiscountRate: TFloatField;
    tblDetailHistoryPawnMoney: TFloatField;
    dsOperCode: TDataSource;
    tblOperCode: TTable;
    tblOperCodeName: TStringField;
    tblOperCodeWorkNo: TStringField;
    tblOperCodePassword: TStringField;
    tblHeadStatus: TStringField;
    dsStockpile: TDataSource;
    tblStockpile: TTable;
    tblStockpilePawnCode: TStringField;
    dsQueryDetail: TDataSource;
    dqDetail: TQuery;
    tblDetailHistoryModifyDateTime: TDateTimeField;
    tblHeadHistoryModifyDateTime: TDateTimeField;
    tblHeadHistoryStatus: TStringField;
    dqHeadUn: TQuery;
    dsHeadUn: TDataSource;
    dsQueryDetailUn: TDataSource;
    dqDetailUn: TQuery;
    dsDetailDel: TDataSource;
    dqDetailDel: TQuery;
    dqDeadHead: TQuery;
    dqDeadDetail: TQuery;
    dsDeadDetail: TDataSource;
    tblHandle: TTable;
    dsHandle: TDataSource;
    tblHandlePawnName: TStringField;
    tblHandlePawnCategory: TStringField;
    tblHandlePawnSpec: TStringField;
    tblHandlePawnNumber: TSmallintField;
    tblHandlePawnMoney: TFloatField;
    tblHandleSellMoney: TFloatField;
    tblHandleHandleDate: TDateTimeField;
    tblDetailStatus: TStringField;
    tblOperCodeLimit: TStringField;
    dsQOper: TDataSource;
    dqOper: TQuery;
    dsQCategory: TDataSource;
    dqCategory: TQuery;
    tblModifyDetail: TTable;
    dsModifyDetail: TDataSource;
    tblModifyDetailPawnLineNum: TSmallintField;
    tblModifyDetailPawnName: TStringField;
    tblModifyDetailPawnSpec: TStringField;
    tblModifyDetailPawnCategory: TStringField;
    tblModifyDetailPawnNumber: TSmallintField;
    tblModifyDetailAppriseValue: TFloatField;
    tblModifyDetailDiscountRate: TFloatField;
    tblModifyDetailPawnMoney: TFloatField;
    tblModifyDetailPawnTicketCode: TStringField;
    tblModifyDetailStatus: TStringField;
    dsTicketCode: TDataSource;
    tblTicketCode: TTable;
    tblTicketCodeHeadCode: TStringField;
    tblTicketCodeTailCode: TStringField;
    dsPawnMoney: TDataSource;
    tblPawnMoney: TTable;
    dsRansomMoney: TDataSource;
    tblRansomMoney: TTable;
    tblPawnMoneyTotalMoney: TStringField;
    tblPawnMoneyServiceMoney: TStringField;
    tblPawnMoneyRealpayMoney: TStringField;
    tblRansomMoneyMonthRate: TStringField;
    tblRansomMoneyRansomMoney: TStringField;
    tblRansomMoneyServiceMoney: TStringField;
    tblRansomMoneyTotalPay: TStringField;
    tblPawnMoneyPawnTicketCode: TStringField;
    tblPawnMoneyPawnDate: TDateTimeField;
    tblRansomMoneyPawnTicketCode: TStringField;
    tblRansomMoneyRansomDate: TDateTimeField;
    tblRansomMoneySynFee: TStringField;
    dsQCertificate: TDataSource;
    dqCertificate: TQuery;
    tblHeadMonthRateFee: TFloatField;
    tblHeadHistoryMonthRateFee: TFloatField;
    tblDetailHistoryStatus: TStringField;
    tblDetailTempStatus: TStringField;
    dsLimit: TDataSource;
    tblPawnLimit: TTable;
    tblPawnLimitPawnLimit: TStringField;
    tblPawnLimitLimitCode: TIntegerField;
    dsDelRansom: TDataSource;
    dqDelRansom: TQuery;
    dsClearHead: TDataSource;
    tblClearHead: TTable;
    dsPTicket: TDataSource;
    tblPrintTicket: TTable;
    tblPrintTicketPawnTicketCode: TStringField;
    tblPrintTicketPawnerName: TStringField;
    tblPrintTicketPawnerAddress: TStringField;
    tblPrintTicketPostCode: TStringField;
    tblPrintTicketCertificateName: TStringField;
    tblPrintTicketCertificateCode: TStringField;
    tblPrintTicketTelephoneCode: TStringField;
    tblPrintTicketLinkman: TStringField;
    tblPrintTicketMonthRate: TStringField;
    tblPrintTicketFeeRate: TStringField;
    tblPrintTicketTotalPawnMoney: TStringField;
    tblPrintTicketTotalPawnMoneyBig: TStringField;
    tblPrintTicketSynthesizeFeeBig: TStringField;
    tblPrintTicketPawnBeginDateYear: TStringField;
    tblPrintTicketPawnBeginDateMonth: TStringField;
    tblPrintTicketPawnBeginDateDay: TStringField;
    tblPrintTicketPawnEndDateYear: TStringField;
    tblPrintTicketPawnEndDateMonth: TStringField;
    tblPrintTicketPawnEndDateDay: TStringField;
    tblPrintTicketRePawnBeginDateYear: TStringField;
    tblPrintTicketRePawnBeginDateMonth: TStringField;
    tblPrintTicketRePawnBeginDateDay: TStringField;
    tblPrintTicketRePawnEndDateYear: TStringField;
    tblPrintTicketRePawnEndDateMonth: TStringField;
    tblPrintTicketRePawnEndDateDay: TStringField;
    tblPrintTicketCreateDateYear: TStringField;
    tblPrintTicketCreateDateDay: TStringField;
    tblPrintTicketCreateDateMonth: TStringField;
    dsTicketDetail: TDataSource;
    tblTicketDetail: TTable;
    tblTicketDetailPawnName: TStringField;
    tblTicketDetailPawnSpec: TStringField;
    tblTicketDetailPawnNumber: TStringField;
    tblTicketDetailAppriseValue: TStringField;
    tblTicketDetailDiscountRate: TStringField;
    tblTicketDetailPawnMoney: TStringField;
    tblTicketDetailMonthRate: TStringField;
    tblTicketDetailFeeRate: TStringField;
    tblTicketDetailPawnTicketCode: TStringField;
    dsFpHead: TDataSource;
    tblFpHead: TTable;
    tblFpHeadPawnTicketCode: TStringField;
    tblFpHeadName: TStringField;
    tblFpHeadYear: TStringField;
    tblFpHeadMonth: TStringField;
    tblFpHeadDay: TStringField;
    tblFpHeadTotalMText: TStringField;