share.pas

运行程序==>安装数据库==>重新配置数据库连接。用户名admin数据库密码为123

{************公共单元定义变量*************************}
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.