unit2.~h

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

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

#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#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 <Mask.hpp>
#include <dbcgrids.hpp>
#include <Graphics.hpp>
#include <QuickRpt.hpp>
#include <QRCtrls.hpp>
#include <ImgList.hpp>
#include <ToolWin.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TStaff : public TForm
{
__published:	// IDE-managed Components
        TPageControl *PageControl1;
        TTabSheet *TabSheet1;
        TTabSheet *TabSheet2;
        TTabSheet *TabSheet3;
        TDBNavigator *DBNavigator1;
        TTable *Table1;
        TDataSource *DataSource1;
        TStringField *Table1CNo;
        TStringField *Table1CName;
        TStringField *Table1CAddress;
        TStringField *Table1CTel;
        TStringField *Table1CEmail;
        TStringField *Table1CPostCode;
        TLabel *Label1;
        TDBEdit *DBEdit1;
        TLabel *Label2;
        TDBEdit *DBEdit2;
        TLabel *Label3;
        TDBEdit *DBEdit3;
        TLabel *Label4;
        TDBEdit *DBEdit4;
        TLabel *Label5;
        TDBEdit *DBEdit5;
        TLabel *Label6;
        TDBEdit *DBEdit6;
        TDataSource *DataSource2;
        TTable *Table2;
        TStringField *Table2ONo;
        TStringField *Table2CNo;
        TStringField *Table2IWNo;
        TCurrencyField *Table2IWPrice;
        TStringField *Table2Qty;
        TDateField *Table2DateRequired;
        TLabel *Label7;
        TDBEdit *DBEdit7;
        TLabel *Label8;
        TDBEdit *DBEdit8;
        TLabel *Label9;
        TDBEdit *DBEdit9;
        TLabel *Label10;
        TDBEdit *DBEdit10;
        TLabel *Label11;
        TDBEdit *DBEdit11;
        TLabel *Label12;
        TDBEdit *DBEdit12;
        TDBNavigator *DBNavigator2;
        TDBCtrlGrid *DBCtrlGrid1;
        TTable *Table3;
        TDataSource *DataSource3;
        TStringField *Table3IWNo;
        TCurrencyField *Table3IWPrice;
        TStringField *Table3Supplier;
        TLabel *Label13;
        TDBEdit *DBEdit13;
        TLabel *Label14;
        TDBEdit *DBEdit14;
        TLabel *Label15;
        TDBEdit *DBEdit15;
        TStringField *Table3IWG;
        TImage *Image1;
        TTabSheet *TabSheet4;
        TQuickRep *QuickRep1;
        TQRBand *QRBand1;
        TQRBand *QRBand2;
        TQRBand *QRBand3;
        TQRSubDetail *QRSubDetail1;
        TQRBand *QRBand4;
        TQRLabel *QRLabel1;
        TQRLabel *QRLabel2;
        TQRLabel *Name;
        TQRLabel *Address;
        TQRLabel *Tel;
        TQRLabel *QRLabel6;
        TQRDBText *QRDBText1;
        TQRDBText *QRDBText2;
        TQRDBText *QRDBText3;
        TQRDBText *QRDBText4;
        TQRDBText *QRDBText5;
        TQRDBText *QRDBText6;
        TQRLabel *PostCode;
        TQRDBText *QRDBText7;
        TQRDBText *QRDBText8;
        TQRDBText *QRDBText9;
        TQRDBText *QRDBText10;
        TQRDBText *QRDBText11;
        TQRLabel *QRLabel8;
        TQRLabel *QRLabel9;
        TQRLabel *Unir;
        TQRLabel *QRLabel11;
        TQRLabel *DateRequired;
        TQRLabel *QRLabel13;
        TQRLabel *QRLabel14;
        TQRSysData *QRSysData1;
        TQRSysData *QRSysData2;
        TLabel *Label16;
        TEdit *Edit1;
        TBitBtn *BitBtn1;
        TBitBtn *BitBtn2;
        TBitBtn *BitBtn3;
        TBitBtn *BitBtn4;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall FormKeyPress(TObject *Sender, char &Key);
        void __fastcall BitBtn1Click(TObject *Sender);
        void __fastcall BitBtn2Click(TObject *Sender);
        void __fastcall BitBtn4Click(TObject *Sender);
        void __fastcall BitBtn3Click(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TStaff(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TStaff *Staff;
//---------------------------------------------------------------------------
#endif