constb.pas.bak

来自「DELPHI 编写的生产企业管理软件 毛织管理器」· BAK 代码 · 共 14 行

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;
  //浪琩