share.pas

来自「一． 目的： 编写出 研发部业绩分配计算系统. 二． 功能： 包括 1.」· PAS 代码 · 共 19 行

{************公共单元定义变量*************************}
unit share;

interface

uses
   Classes,Forms,TFlatEditUnit,DB,ADODB,inifiles;
var
  myinifile:Tinifile;
  filename:string;
  DLYH_Q:TADOQuery;
  temp_Q:TADOQuery;
  sql:string;
  i:integer;
  month:string;
implementation

end.