sysdata.~pas

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

unit SysData;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables,registry, Dbbrow, Dbfilter, Dbhelp,Variants, ADODB,
  Dbhelp_view,IniFiles, Dbhelp_view_ado;

type
  TmainData = class(TDataModule)
    Dbbrow1: TDbbrow;
    dbfilter1: Tdbfilter;
    Dbhelp1: TDbhelp;
    Th_Erp: TADOConnection;
    V_ins: TADOQuery;
    Dbhelp_view_ado1: TDbhelp_view_ado;
    procedure DataModuleCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    FUNCTION  GetUniqueFileName :STRING;
    function filterdata(fdataset : tquery): string;
    procedure browdata(fdataset : tquery);
    procedure Getsysparams(vid:String;vname:String;vcompname:string;vallright:boolean;vbrowright:boolean);
  end;

var
  mainData: TmainData;
//  fusrid,fusrname,fcompname : string;
//  fallright,fbrowright : boolean;

implementation
//uses unitpublic;
{$R *.dfm}


procedure TmainData.DataModuleCreate(Sender: TObject);
var
  cdpath : string;
begin
  cdpath:=extractfilepath(application.exename); //莱ノ祘