sueval.h

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

//---------------------------------------------------------------------------
#ifndef SuevalH
#define SuevalH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "fpanel.h"
#include "RecBaseForm.h"
#include "SDEdit.h"
#include "SDGrid.h"
#include <ComCtrls.hpp>
#include <Grids.hpp>
#include <ImgList.hpp>
#include <Menus.hpp>
#include <ToolWin.hpp>
#include "SDComboBox.h"
#include <Dialogs.hpp>
#include <ExtCtrls.hpp>
#include "TB97.hpp"
#include <Buttons.hpp>
#include "SDTreeView.h"
//---------------------------------------------------------------------------
class PACKAGE TfrmSueval;
class  TfrmSueval : public TRecBaseForm
{
__published:	// IDE-managed Components
        TPanel *ClientPanel;
        TTreeView *tvTree;
    TSDTreeView *tvSupply;
        TSplitter *Splitter1;
        TSplitter *Splitter2;
        TLabel *Label1;
        TLabel *Label2;
    TPageControl *PageControl1;
    TTabSheet *TabSheet1;
    TSDGrid *SDGrid_goods;
    TGroupBox *GroupBox2;
    TLabel *Label3;
    TSDEdit *SDEdit1;
    TTabSheet *TabSheet2;
    TSDGrid *Grid_pf;
    TGroupBox *GroupBox1;
    TLabel *Label4;
    TSDEdit *SDEdit2;
    TBitBtn *Bt_Save;
    TTabSheet *TabSheet3;
    TGroupBox *GroupBox3;
    TLabel *Label5;
    TSDEdit *SDEdit3;
    TPanel *Panel3;
    TSDGrid *Grid_pfxz1;
    TSDGrid *Grid_pfxz2;
    TPanel *Panel4;
    TSplitter *Splitter5;
    TBitBtn *BitBtn_AllRight;
    TBitBtn *BitBtn_AllLeft;
    TBitBtn *BitBtnRight;
    TBitBtn *BitBtn_Left;
    TTabSheet *TabSheet4;
    TSplitter *Splitter3;
    TPanel *Panel1;
    TLabel *Label6;
    TSDEdit *SDEdit4;
    TBitBtn *BitBtn1_sup1;
    TBitBtn *BitBtn1_sup2;
    TBitBtn *BitBtn1_sup3;
    TBitBtn *BitBtn_clear;
    TPanel *Panel2;
    TSplitter *Splitter4;
    TSDGrid *Grid_supply1;
    TSDGrid *Grid_supply2;

        void __fastcall FormShow(TObject *Sender);
        void __fastcall tvTreeChange(TObject *Sender, TTreeNode *Node);
        void __fastcall tvTreeDblClick(TObject *Sender);
        void __fastcall BitBtn1_sup1Click(TObject *Sender);
        void __fastcall BitBtn_LeftClick(TObject *Sender);
    void __fastcall BitBtn_AllRightClick(TObject *Sender);
    void __fastcall BitBtn_AllLeftClick(TObject *Sender);
    void __fastcall BitBtn1_sup2Click(TObject *Sender);
    void __fastcall BitBtn1_sup3Click(TObject *Sender);
    void __fastcall PageControl1Change(TObject *Sender);
    void __fastcall tvSupplyChange(TObject *Sender, TTreeNode *Node);
        void __fastcall Bt_SaveClick(TObject *Sender);
        void __fastcall Grid_pfClick(TObject *Sender);
    void __fastcall BitBtnRightClick(TObject *Sender);
    void __fastcall BitBtn_clearClick(TObject *Sender);
private:
    //AnsiString __fastcall GetFieldValue(int FieldIndex);
    //void __fastcall SetFieldValue(int FieldIndex,AnsiString Value);
    void __fastcall ClearControl(bool BringToNext);
    void __fastcall GetDataFromComObject();
    void __fastcall SendDataToComObject();
    void __fastcall WaitUserInput();
    AnsiString __fastcall GetDataToGrid();
    void __fastcall RefreshGridData(int mAction);
    void __fastcall FillGridWithData();
    void __fastcall InitEditControl();	// User declarations
    void __fastcall FillTreeWithPtype();
    void __fastcall TreeViewLocation();
    void __fastcall RefreshUpdateData(int MsgSrc,int MsgType);
    void __fastcall FillGoods(TTreeNode *SelectedPmpcNode);
    void __fastcall tv_Tabselect(int f_tv);//显示
    void __fastcall sheet3select(int f_i);  //选择按钮(单选)
    void __fastcall sheet3Allselect(int f_i); //选择按钮 ALL
    void __fastcall sheet3Supply();//sheet3 显示供应商
    TComResultSet *RsTemp3;
    AnsiString __fastcall f_TabSheetPquote(AnsiString f_code);//第一页SQL语句
    AnsiString __fastcall f_TabSheetSuval(AnsiString f_code);////第三二页SQL语句
    AnsiString __fastcall f_TabSheet3(AnsiString f_code);//第三页SQL语句
    AnsiString __fastcall f_TabSheetSupGoods(AnsiString f_code); //第四页SQL语句
    AnsiString __fastcall f_sheet4SupGoods(AnsiString f_code); // 所选物品在 SupGoods 中是否存在
    AnsiString __fastcall f_sheet4SupGoods2(AnsiString f_code,int f_i);// 所选物品的第一，第二供应商是否存在
    AnsiString __fastcall f_TvSupplySql(AnsiString f_code);//供应商SQL ,SDPQUOTE
    AnsiString __fastcall f_TabSheet2Supply(AnsiString f_code); ////供应商SQL .KSUEVAL
    AnsiString s_Tvcode,s_TvSupply; //选择TV1中物料编号 和供应商编号
    int s_tvChoose;
    TComServer *comServer1;
    TComServer *comServer2;

    TComResultSet *RsTemp1;
    TComResultSet *RsTemp2;
    TComResultSet *RsTemp4;
    void __fastcall FillGridWithData_SupplyArea();
    void __fastcall FillTreeWithPtype_SupplyArea();
    void __fastcall SDGrid_TvGoods(); // 第一页物品显示
    void __fastcall SDGrid_TvSupply(); // 第一页供应商显示
    void __fastcall GridKsSuval_TvGoods();//第二页物品显示
    void __fastcall GridKsSuval_TvSupply();//第二页供应商显示
    void __fastcall GridStringTitle(int f_tvChoose);//填充标题
public:		// User declarations
        __fastcall TfrmSueval(TComponent* Owner, HWND chWnd, AnsiString ClassCode,AnsiString WhereStr);
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmSueval *frmSueval;
//---------------------------------------------------------------------------
#endif