unitpublic.pas

家具行業的成本核算報价系統,主要征對家個產品的結構展開進行材料成本及人工制造費用統計,加上可調節的利潤設定,將其成本核算出來,同時將報價單作出來

unit unitpublic;

interface
uses Windows, SysUtils,  Classes, Consts, forms, TypInfo,Inifiles,
     Controls,db,dbgrideh,DBGRIDS,ShellAPI,RXDBCtrl,dialogs,Graphics,
     ExtCtrls,math;
type
  EInvalidDest = class(EStreamError);
  EFCantMove = class(EStreamError);
  tfrmcl=class of  tform;

procedure ShowForm(Var Frm:TForm; FrmClass:TFrmCl);
procedure FrmModal(Var Frm:TForm; FrmClass:TFrmCl);
procedure frmnormal(var frm:tform;frmclass:tfrmcl);
function Left(Str: String; Len: Integer): String;
function right(Str: String; Len: Integer): String;

procedure CopyToX(Source, Driver: String);
function CopyFile(CONST SourceFile : TFilename; CONST DestinationFile : TFilename): BOOLEAN;
procedure OpenChildForm(FormClass: TFormClass; var Fm; AOwner:TComponent);
Function ChangeCol1(Const DBGrid:TDBGrideh; var Key:Char):integer;
Function ChangeCol(Const DBGrid:TDBGrid; var Key:Char):integer;
Function ChangeCol2(Const DBGrid:TrxDBGrid; var Key:Char):integer;
function GetFileSize(const FileName: string): LongInt;
function FileDateTime(const FileName: string): TDateTime;
function HasAttr(const FileName: string; Attr: Word): Boolean;
function ExecuteFile(const FileName, Params, DefaultDir: string;
  ShowCmd: Integer): THandle;
function isnumeric(const txt: string): boolean;
function smalltobig(rtcry: Double; fen: string): string;
function smalltobig2(i: integer): string;
function smalltobig3(s: string): string;
procedure LoadFormRes(const AForm: tform; CyList: string);
function GetStr(S: string; Separator: Char; No: Integer; FromLeft: Boolean = true): string;
function BIG5TOGB(S: string): string;
function ConfirmMsg(S: string; Caption: string = 'Confirm'): Boolean;
procedure InfoMsg(S: string; Caption: string = 'Information');
procedure SaveFormRes(Const AForm:TForm; Afile:string; CyList:String);
Procedure SaveComponentsPosition(Const AForm:TForm;Afile:String);
FUNCTION SmallFonts : BOOLEAN;
function DecryptMsg (Msg1: string; DecryptNo: integer): string;
function EncryptMsg (Msg1: string; EncryptNo: integer): string;
function Encrypt(const S: String; Key: Word): String;
function Decrypt(const S: String; Key: Word): String;
procedure EncryptFile(INFName, OutFName : String; Key : Word);
procedure DecryptFile(INFName, OutFName : String; Key : Word);
function CDom(date: TDatetime):string; //璣ゅる