arrsd.h

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C头文件 代码 · 共 89 行

//---------------------------------------------------------------------------
#ifndef ArrsdH
#define ArrsdH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "fpanel.h"
#include "SDEdit.h"
#include "SDGrid.h"
#include <Buttons.hpp>
#include <Grids.hpp>
#include "GenBaseForm.h"
#include "SDComboBox.h"
#include "DateEdit.hpp"
#include <Mask.hpp>
#include "StdBaseForm.h"
//---------------------------------------------------------------------------
class PACKAGE TfrmArrsd;
class TfrmArrsd : public TStdBaseForm
{
__published:	// IDE-managed Components
        TSDGrid *sgArrsd;
  TFloatPanel *FloatPanel1;
  TBitBtn *btnCancel;
  TBitBtn *btnOK;
  TBitBtn *bbAll;
  TBitBtn *bbNone;
        TFloatPanel *FloatPanel3;
        TLabel *Label7;
        TLabel *zArivhCurrency;
        TBitBtn *bbQuery;
        TSDEdit *seClientCode;
        TSDEdit *seCurrencyCode;
        TGroupBox *GroupBox1;
        TBitBtn *btnRetry;
        TLabel *Label1;
        TSDEdit *seArrsdDocCode;
        TLabel *Label3;
        TDateEdit *deBeginDate;
        TLabel *Label4;
        TSDEdit *seArrshDocType;
        TLabel *Label5;
        TSDEdit *seArrshDocCode;
        TSDEdit *seEnrate;
        TLabel *Label6;
        TLabel *Label8;
        TSDEdit *seAmt;
        TLabel *Label2;
        TSDEdit *seSKDocCode;
    void __fastcall btnOKClick(TObject *Sender);
    void __fastcall btnCancelClick(TObject *Sender);
    void __fastcall FormShow(TObject *Sender);
        void __fastcall sgArrsdDblClick(TObject *Sender);
  void __fastcall bbQueryClick(TObject *Sender);
        void __fastcall bbAllClick(TObject *Sender);
        void __fastcall bbNoneClick(TObject *Sender);
        void __fastcall sgArrsdSelectCell(TObject *Sender, int ACol,
          int ARow, bool &CanSelect);
        void __fastcall seArrsdDocCodeButtonClick(TObject *Sender);
        void __fastcall btnRetryClick(TObject *Sender);
        void __fastcall sgArrsdSetEditText(TObject *Sender, int ACol,
          int ARow, const AnsiString Value);

private:	// User declarations
//    TComServer *comServer;
    int FDocType;
    AnsiString FDocCode;
    AnsiString FSKDocCode;
    AnsiString FClientCode;
    AnsiString FCurrencyCode;
    double FEnrate;
    double FAmt;
    AnsiString __fastcall GetSqlString();

public:		// User declarations

    void __fastcall InitControlGroup();
    void __fastcall FillGridWithData();
    void __fastcall GetComObject(TComServer *comServer);

    __fastcall TfrmArrsd(TComponent* Owner);
};
//---------------------------------------------------------------------------
//extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif