finance.~h

一个不错的销售系统

//---------------------------------------------------------------------------
//      Name:           Finance.h
//      Author:         Jrays
//      Date:           1999.8.7
//---------------------------------------------------------------------------
#ifndef FinanceH
#define FinanceH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
#include <Db.hpp>
#include <DBTables.hpp>
#include <DBCtrls.hpp>
#include <Mask.hpp>
//---------------------------------------------------------------------------
class TfrmFinance : public TForm
{
__published:	// IDE-managed Components
        TMainMenu *MainMenu1;
        TMenuItem *mnuHelp;
        TMenuItem *miHelpAbout;
        TPanel *Panel1;
        TDBGrid *DBGrid1;
        TStaticText *StaticText1;
        TBitBtn *bbnFirst;
        TBitBtn *bbnPrior;
        TBitBtn *bbnNext;
        TBitBtn *bbnLast;
        TGroupBox *GroupBox1;
        TEdit *edtLoanQuarter;
        TUpDown *UpDown1;
        TStaticText *StaticText2;
        TStaticText *StaticText3;
        TEdit *edtLoanLoan;
        TStaticText *StaticText4;
        TEdit *edtLoanRepay;
        TGroupBox *GroupBox2;
        TEdit *edtRestoreQuarter;
        TUpDown *UpDown2;
        TStaticText *StaticText5;
        TStaticText *StaticText6;
        TEdit *edtRestoreProduct;
        TStaticText *StaticText7;
        TEdit *edtRestoreMaterial;
        TGroupBox *GroupBox3;
        TBitBtn *bbnFinanceAttach;
        TStaticText *StaticText8;
        TStaticText *StaticText9;
        TStaticText *StaticText10;
        TStaticText *StaticText11;
        TStaticText *StaticText12;
        TStaticText *StaticText13;
        TStaticText *StaticText14;
        TStaticText *StaticText15;
        TStaticText *StaticText16;
        TBitBtn *bbnPostLoan;
        TBitBtn *bbnPostRestore;
        TBitBtn *bbnGo;
        TBitBtn *bbnAbout;
        TTable *tblFinance;
        TDataSource *DataSource1;
        TDBEdit *dbedtFinanceProduct;
        TDBEdit *dbedtFinanceLoan;
        TDBEdit *dbedtFinanceRepay;
        TDBEdit *dbedtFinanceInterest;
        TDBEdit *dbedtFinanceOtherCost;
        TDBEdit *dbedtFinanceBuy;
        TDBEdit *dbedtFinanceMaterialRestore;
        TDBEdit *dbedtFinanceProductRestore;
        TBitBtn *bbnFinanceFirst;
        TBitBtn *bbnFinancePrior;
        TBitBtn *bbnFinanceNext;
        TBitBtn *bbnFinanceLast;
        TDBEdit *dbedtFinanceQuarter;
        TDataSource *DataSource2;
        TTable *tblFinanceStream;
        TQuery *query;
        TQuery *tmpQuery;
        TBitBtn *bbnReport;
        TMenuItem *mnuReport;
        TMenuItem *miReportReport;
        TMenuItem *N1;
        TMenuItem *N2;
        TMenuItem *N3;
        TMenuItem *P1;
        TMenuItem *N4;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall bbnGoClick(TObject *Sender);
        void __fastcall bbnFinanceFirstClick(TObject *Sender);
        void __fastcall bbnFinancePriorClick(TObject *Sender);
        void __fastcall bbnFinanceNextClick(TObject *Sender);
        void __fastcall bbnFinanceLastClick(TObject *Sender);
        void __fastcall bbnFinanceAttachClick(TObject *Sender);
        void __fastcall bbnAboutClick(TObject *Sender);
        void __fastcall bbnFirstClick(TObject *Sender);
        void __fastcall bbnPriorClick(TObject *Sender);
        void __fastcall bbnNextClick(TObject *Sender);
        void __fastcall bbnLastClick(TObject *Sender);
        void __fastcall bbnPostLoanClick(TObject *Sender);
        void __fastcall bbnPostRestoreClick(TObject *Sender);
        void __fastcall edtLoanQuarterExit(TObject *Sender);
        void __fastcall edtRestoreQuarterExit(TObject *Sender);
        void __fastcall bbnReportClick(TObject *Sender);
        void __fastcall FormActivate(TObject *Sender);
        void __fastcall edtLoanRepayKeyPress(TObject *Sender, char &Key);
        void __fastcall edtRestoreMaterialKeyPress(TObject *Sender,
          char &Key);
private:	// User declarations
public:		// User declarations
        __fastcall TfrmFinance(TComponent* Owner);
        void __fastcall FillFinanceStreamTable();
        void __fastcall FillFinanceTable();
        int  __fastcall GetMinQuarter( AnsiString TableName );
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmFinance *frmFinance;
//---------------------------------------------------------------------------
#endif