unit1.h

一个小的冰酒公司的销售系统。可以进行数据插入

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <ImgList.hpp>
#include <Mask.hpp>
#include <ToolWin.hpp>
#include <Chart.hpp>
#include <DbChart.hpp>
#include <Series.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TAccount : public TForm
{
__published:	// IDE-managed Components
        TPageControl *PageControl1;
        TTabSheet *TabSheet2;
        TTabSheet *TabSheet3;
        TTabSheet *TabSheet4;
        TLabel *Label7;
        TEdit *Edit3;
        TDataSource *DataSource2;
        TDBNavigator *DBNavigator2;
        TTable *Table2;
        TStringField *Table2CNo;
        TStringField *Table2ChequeNo;
        TLabel *Label11;
        TDBEdit *DBEdit7;
        TDataSource *DataSource3;
        TTable *Table3;
        TStringField *Table3QNo;
        TStringField *Table3ONo;
        TLabel *Label17;
        TDBEdit *DBEdit9;
        TDataSource *DataSource4;
        TTable *Table4;
        TStringField *Table4INo;
        TStringField *Table4QNo;
        TStringField *Table4CName;
        TStringField *Table4CAddress;
        TLabel *Label29;
        TDBEdit *DBEdit19;
        TLabel *Label30;
        TDBEdit *DBEdit20;
        TTabSheet *TabSheet1;
        TTabSheet *TabSheet5;
        TTabSheet *TabSheet6;
        TLabel *Label1;
        TEdit *Edit1;
        TDataSource *DataSource1;
        TDBNavigator *DBNavigator1;
        TTable *Table1;
        TStringField *Table1CNo;
        TStringField *Table1ONo;
        TDataSource *DataSource5;
        TTable *Table5;
        TStringField *Table5QNo;
        TStringField *Table5ONo;
        TStringField *Table5CName;
        TStringField *Table5CAddress;
        TStringField *Table5IWNo;
        TStringField *Table5Qty;
        TLabel *Label24;
        TDBEdit *DBEdit4;
        TTable *Table6;
        TDataSource *DataSource6;
        TStringField *Table6INo;
        TStringField *Table6QNo;
        TStringField *Table6CName;
        TStringField *Table6CAddress;
        TStringField *Table6Supplier;
        TStringField *Table4Supplier;
        TDataSource *DataSource8;
        TTable *Table7;
        TDataSource *DataSource9;
        TTable *Table8;
        TStringField *Table8ONo;
        TStringField *Table8CNo;
        TStringField *Table8IWNo;
        TStringField *Table8Qty;
        TStringField *Table7CNo;
        TStringField *Table7CName;
        TStringField *Table7CAddress;
        TStringField *Table7CTel;
        TStringField *Table7CEmail;
        TStringField *Table7CPostCode;
        TLabel *Label49;
        TDBEdit *DBEdit33;
        TLabel *Label50;
        TDBEdit *DBEdit34;
        TLabel *Label20;
        TDBEdit *DBEdit12;
        TLabel *Label51;
        TDBEdit *DBEdit35;
        TLabel *Label52;
        TDBEdit *DBEdit36;
        TDataSource *DataSource7;
        TTable *Table9;
        TCurrencyField *Table9IWPrice;
        TStringField *Table9Supplier;
        TLabel *Label21;
        TDBEdit *DBEdit13;
        TStringField *Table1CreditCardNo;
        TLabel *Label5;
        TDBEdit *DBEdit3;
        TDataSource *DataSource10;
        TTable *Table10;
        TStringField *Table10CNo;
        TStringField *Table10CName;
        TStringField *Table10CAddress;
        TStringField *Table10CTel;
        TStringField *Table10CEmail;
        TStringField *Table10CPostCode;
        TTable *Table11;
        TStringField *Table11ONo;
        TStringField *Table11CNo;
        TStringField *Table11IWNo;
        TStringField *Table11Qty;
        TDataSource *DataSource12;
        TLabel *Label4;
        TDBEdit *DBEdit2;
        TLabel *Label31;
        TDBEdit *DBEdit21;
        TLabel *Label32;
        TDBEdit *DBEdit22;
        TLabel *Label53;
        TDBEdit *DBEdit37;
        TLabel *Label54;
        TDBEdit *DBEdit38;
        TTable *Table12;
        TDataSource *DataSource13;
        TLabel *Label25;
        TDBEdit *DBEdit8;
        TLabel *Label26;
        TDBEdit *DBEdit15;
        TLabel *Label35;
        TDBEdit *DBEdit16;
        TLabel *Label36;
        TDBEdit *DBEdit17;
        TLabel *Label37;
        TDBEdit *DBEdit18;
        TCurrencyField *Table12IWPrice;
        TStringField *Table12Supplier;
        TLabel *Label48;
        TDBEdit *DBEdit32;
        TDBNavigator *DBNavigator4;
        TLabel *Label42;
        TDBEdit *DBEdit26;
        TDBNavigator *DBNavigator3;
        TCurrencyField *Table8IWCost;
        TLabel *Label43;
        TDBEdit *DBEdit27;
        TLabel *Label41;
        TDBEdit *DBEdit25;
        TCurrencyField *Table8IWPrice;
        TDateField *Table8DateRequired;
        TCurrencyField *Table8DownPayment;
        TLabel *Label44;
        TDBEdit *DBEdit28;
        TLabel *Label45;
        TDBEdit *DBEdit29;
        TLabel *Label46;
        TDBEdit *DBEdit30;
        TCurrencyField *Table8Tax;
        TLabel *Label47;
        TDBEdit *DBEdit31;
        TCurrencyField *Table11IWPrice;
        TDateField *Table11DateRequired;
        TLabel *Label55;
        TDBEdit *DBEdit39;
        TCurrencyField *Table11IWCost;
        TCurrencyField *Table11DownPayment;
        TCurrencyField *Table11Tax;
        TLabel *Label56;
        TDBEdit *DBEdit40;
        TLabel *Label57;
        TDBEdit *DBEdit41;
        TLabel *Label58;
        TDBEdit *DBEdit42;
        TLabel *Label59;
        TDBEdit *DBEdit43;
        TLabel *Label60;
        TDBEdit *DBEdit44;
        TLabel *Label18;
        TDBEdit *DBEdit10;
        TLabel *Label19;
        TDBEdit *DBEdit11;
        TLabel *Label33;
        TDBEdit *DBEdit23;
        TLabel *Label34;
        TDBEdit *DBEdit24;
        TStringField *Table2ONo;
        TLabel *Label9;
        TLabel *Label62;
        TDBEdit *DBEdit46;
        TLabel *Label10;
        TLabel *Label61;
        TDBEdit *DBEdit45;
        TImageList *ImageList1;
        TTabSheet *TabSheet7;
        TDataSource *DataSource11;
        TTable *Table13;
        TDBChart *DBChart1;
        TBarSeries *Series1;
        TDBEdit *DBEdit1;
        TDBEdit *DBEdit5;
        TDBNavigator *DBNavigator5;
        TDBNavigator *DBNavigator6;
        TBitBtn *BitBtn1;
        TBitBtn *BitBtn2;
        TBitBtn *BitBtn3;
        TBitBtn *BitBtn4;
        TBitBtn *BitBtn5;
        TBitBtn *BitBtn6;
        TBitBtn *BitBtn7;
        TBitBtn *BitBtn8;
        TBitBtn *BitBtn9;
        void __fastcall Table8CalcFields(TDataSet *DataSet);
        void __fastcall Table11CalcFields(TDataSet *DataSet);
        void __fastcall BitBtn1Click(TObject *Sender);
        void __fastcall BitBtn2Click(TObject *Sender);
        void __fastcall BitBtn3Click(TObject *Sender);
        void __fastcall BitBtn4Click(TObject *Sender);
        void __fastcall BitBtn5Click(TObject *Sender);
        void __fastcall BitBtn6Click(TObject *Sender);
        void __fastcall BitBtn7Click(TObject *Sender);
        void __fastcall BitBtn8Click(TObject *Sender);
        void __fastcall BitBtn9Click(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TAccount(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TAccount *Account;
//---------------------------------------------------------------------------
#endif