constb.pas.bak

实用的毛织生产管理系统

unit constb;

interface
uses Qrctrls, DB, DBTables, classes, messages, controls;
var
  company: string;
  logincd, loginnm, loginpass, loginrole: string;
  loginflg, schflg, schpnoflg, schscgxflg: boolean;
  kfjz, pno, scgx: string;
  year1, month1: integer;
  scprice: double;
function editpass(passstr: string): string;
function searchfield(tablenm, fieldnm, fieldnm1, fieldtxt: string): string;
  //浪琩