uconst.pas

工廠採購管理系統

unit uconst;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, ComCtrls, DB, ADODB,graphics,dialogs;
var
isclose:boolean;
username:string ;
pwd:string;
userid:string;
server:string;
dsource:string;
dbase:string;
strcx:string;
strpath:string;
bigclass:string;
smallclass:string;
danwei:string;
lbname:string;
title:string;
strsql:string;
strhthm:string;
xqdh:string;
gysjc:string;
xql:longint;
jhsl:longint;
unitprice:single;
ConnectionString:string;
wldm:string;
wlmc:string;
wlys:string;
jb:string;
shdh:string;    //收货单号
cjhdh:string;
ddhm:string;
gysdm:string;
bb:string;
emplyer:string;
systemstr:string;
ylbm:string;
implementation


      end.