qm_utils.hpp

商品销售管理系统-毕业设计有代码和论文,可以做毕业设计

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'QM_Utils.pas' rev: 5.00

#ifndef QM_UtilsHPP
#define QM_UtilsHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <QM_RConsole.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <TypInfo.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Printers.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Qm_utils
{
//-- type declarations -------------------------------------------------------
//-- var, const, procedure ---------------------------------------------------
#define rsDflPageMargin  (1.000000E+00)
static const Shortint rsDflPaperSize = 0x9;
#define rsDflPaperWidth  (2.100000E+01)
#define rsDflParerLength  (2.970000E+01)
static const Shortint rsDflFontSize = 0xc;
static const Shortint rsMinFontSize = 0x3;
static const Word rsMaxFontSize = 0x1f4;
#define rsMinPageMargin  (-1.000000E+01)
#define rsMaxPageMargin  (2.000000E+01)
#define rsMinPaperWidth  (1.270000E+00)
#define rsMaxPaperWidth  (9.999000E+01)
extern PACKAGE bool QM_RegEh;
extern PACKAGE void __fastcall QM_SaveSetting(System::TObject* QM);
extern PACKAGE void __fastcall QM_LoadSetting(System::TObject* QM);
extern PACKAGE bool __fastcall QM_PageSetup(System::TObject* QM, bool ALoad);
extern PACKAGE void __fastcall QM_LoadSetup(System::TObject* QM, System::TObject* PageSetupForm);
extern PACKAGE AnsiString __fastcall QM_GetPropValue(Classes::TComponent* Owner, AnsiString Prop);
extern PACKAGE AnsiString __fastcall QM_GetParaValue(Qm_rconsole::TQMReportConsole* rc, AnsiString ParamStr
	);
extern PACKAGE int __fastcall QM_GetParaString(Qm_rconsole::TQMReportConsole* rc, AnsiString &str);
extern PACKAGE AnsiString __fastcall QM_GetQMString(Qm_rconsole::TQMReportConsole* rc, AnsiString str
	);
extern PACKAGE AnsiString __fastcall QM_ParamString(Qm_rconsole::TQMReportConsole* rc, AnsiString s)
	;
extern PACKAGE bool __fastcall QM_CompareColor(Graphics::TColor clr1, Graphics::TColor clr2);
extern PACKAGE Graphics::TColor __fastcall QM_PrintColor(Qm_rconsole::TQMReportConsole* rc, Graphics::TColor 
	clr);
extern PACKAGE Graphics::TColor __fastcall QM_BGColor(Qm_rconsole::TQMReportConsole* rc, Graphics::TColor 
	clr);
extern PACKAGE void __fastcall QM_Dlg(AnsiString ms);
extern PACKAGE AnsiString __fastcall QM_StrID1(void);
extern PACKAGE char * __stdcall QM_StrID2(void);
extern PACKAGE AnsiString __fastcall QM_StrID3(void);
extern PACKAGE AnsiString __fastcall QM_Encrypt(const AnsiString S, Word Key);
extern PACKAGE AnsiString __fastcall QM_Decrypt(const AnsiString S, Word Key);
extern PACKAGE AnsiString __fastcall QM_StrToDsp(AnsiString mStr);
extern PACKAGE AnsiString __fastcall QM_DspToStr(AnsiString mDsp);
extern PACKAGE AnsiString __fastcall QM_ReadStr(AnsiString sfn, AnsiString &sname);
extern PACKAGE Extended __fastcall StrToFloatDef(const AnsiString S, const Extended Default);
extern PACKAGE AnsiString __fastcall LeftStr(const AnsiString AText, const int ACount);
extern PACKAGE AnsiString __fastcall RightStr(const AnsiString AText, const int ACount);
extern PACKAGE AnsiString __fastcall Dupestring(const AnsiString AText, int ACount);
extern PACKAGE void __fastcall QM_Split(Classes::TStringList* AList, char cChar, int Len);
extern PACKAGE AnsiString __fastcall QM_CutToLeft(AnsiString sCut);
extern PACKAGE AnsiString __fastcall QM_CutToRight(AnsiString sCut);
extern PACKAGE int __fastcall QM_GetStrIntValue(AnsiString cVal, int iMin, int iMax, int iDfl);
extern PACKAGE double __fastcall QM_GetStrFloatValue(AnsiString cVal, double iMin, double iMax, double 
	iDfl);
extern PACKAGE double __fastcall QM_GetFloatValue(double iVal, double iMin, double iMax);
extern PACKAGE int __fastcall QM_GetIntValue(int iVal, int iMin, int iMax);
extern PACKAGE AnsiString __fastcall QM_FontToStr(Graphics::TFont* cFont);
extern PACKAGE Graphics::TFont* __fastcall QM_StrToFont(AnsiString s);
extern PACKAGE AnsiString __fastcall QM_UniqueName(Classes::TComponent* AComponent, AnsiString Start
	);
extern PACKAGE AnsiString __fastcall QM_ReplaceStr(AnsiString From, AnsiString What, AnsiString Repl
	);
extern PACKAGE int __fastcall QM_TrunCharB(AnsiString &inStr, char cChar);
extern PACKAGE int __fastcall QM_TrunCharA(AnsiString &inStr, int CutLen);
extern PACKAGE AnsiString __fastcall QM_Remove(AnsiString What, AnsiString From);
extern PACKAGE int __fastcall QM_TextHeight(Graphics::TFont* AFont);
extern PACKAGE AnsiString __fastcall QM_GetStr(int ii);

}	/* namespace Qm_utils */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Qm_utils;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// QM_Utils