maind.pas

牧羊人服饰系统 (ADO+SQL) 第三方控件：advstringgrid

unit maind;

interface
 uses
    Windows,SysUtils, Variants, Classes,Controls,
    printers,IniFiles,Forms;

    function ini_save_print(objectname:string;p_width,p_heigth,p_left,p_right,p_chink:integer;font,title,footer,addr1,tel1,addr2,tel2,addr3,tel3,shopname:string):boolean;
    function ini_load_width(objectname:string;t_default:integer):integer;
    function ini_load_heigth(objectname:string;t_default:integer):integer;
    function ini_load_left(objectname:string;t_default:integer):integer;
    function ini_load_rigth(objectname:string;t_default:integer):integer;
    function ini_load_chink(objectname:string;t_default:integer):integer;
    function ini_load_font(objectname,t_default:string):string;
    function ini_load_title(objectname,t_default:string):string;
    function ini_load_footer(objectname,t_default:string):string;
    function ini_load_addr1(objectname,t_default:string):string;
    function ini_load_tel1(objectname,t_default:string):string;
    function ini_load_addr2(objectname,t_default:string):string;
    function ini_load_tel2(objectname,t_default:string):string;
    function ini_load_addr3(objectname,t_default:string):string;
    function ini_load_tel3(objectname,t_default:string):string;
    function ini_load_shopname(objectname,shop:string):string;
    procedure PrintFile(AFileToPrint: string);
   // function GetPrinterStatus:byte;
   // function CheckPrinter:boolean;
    function sava_xscs(objectname:string;dzjs,dzbl:string):boolean;
    function ini_load_dzjejs(objectname,t_default:string):string;
    function ini_load_dzbl(objectname,t_default:string):string;
    function initial_conn(objectname,user_id,user_p,dataname,data_source:string):boolean;
    function ini_load_user(objectname,t_default:string):string;
    function ini_load_psw(objectname,t_default:string):string;
    function ini_load_dataname(objectname,t_default:string):string;
    function ini_load_data(objectname,t_default:string):string;
    function save_display(objectname:string):boolean;
    function load_displayw(objectname:string;displayw:integer):integer;
    function load_displayh(objectname:string;displayh:integer):integer;



    
implementation
  var
   t:tinifile;


// 储存打印的相关设置信息

function ini_save_print(objectname:string;p_width,p_heigth,p_left,p_right,p_chink:integer;font,title,footer,addr1,tel1,addr2,tel2,addr3,tel3,shopname:string):boolean;
var
  filename:string;
begin
  try
   filename :=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(Filename);
   t.Writeinteger(objectname,'width',p_width);
   t.WriteInteger(objectname,'heigth',p_heigth);
   t.WriteInteger(objectname,'left',p_left);
   t.WriteInteger(objectname,'rigth',p_right);
   t.WriteInteger(objectname,'chink',p_chink);
   t.WriteString(objectname,'字体',font);
   t.WriteString(objectname,'标题',title);
   t.WriteString(objectname,'标尾',footer);
   t.WriteString(objectname,'分店1地址',addr1);
   t.WriteString(objectname,'分店1电话',tel1);
   t.WriteString(objectname,'分店2地址',addr2);
   t.WriteString(objectname,'分店2电话',tel2);
   t.WriteString(objectname,'分店3地址',addr3);
   t.WriteString(objectname,'分店3电话',tel3);
   t.WriteString(objectname,'分店',shopname);
   result :=true;
  finally
   t.Free;
  end;
end;

//读取打印ini文件的宽度值
function ini_load_width(objectname:string;t_default:integer):integer;
var
  filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadInteger(objectname,'width',t_default);
 finally
  t.Free;
 end;
end;

//读取打印ini文件的高度值
function ini_load_heigth(objectname:string;t_default:integer):integer;
var
  filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadInteger(objectname,'heigth',t_default);
 finally
  t.Free;
 end;
end;

//读取打印ini文件的左间距值
function ini_load_left(objectname:string;t_default:integer):integer;
var
  Filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadInteger(objectname,'left',t_default);
 finally
  t.Free;
 end;
end;

//读取打印ini文件的右间距值
function ini_load_rigth(objectname:string;t_default:integer):integer;
var
  Filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadInteger(objectname,'rigth',t_default);
 finally
  t.Free;
 end;
end;

//读取打印ini文件的行间距
function ini_load_chink(objectname:string;t_default:integer):integer;
var
  Filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadInteger(objectname,'chink',t_default);
 finally
  t.Free;
 end;
end;

//读取打印ini文件的字体值
function ini_load_font(objectname,t_default:string):string;
var
  Filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadString(objectname,'字体',t_default);
 finally
  t.Free;
 end;
end;


//读取打印ini文件的标题值
function ini_load_title(objectname,t_default:string):string;
var
  Filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadString(objectname,'标题',t_default);
 finally
  t.Free;
 end;
end;


//读取打印ini文件的标尾值
function ini_load_footer(objectname,t_default:string):string;
var
  Filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadString(objectname,'标尾',t_default);
 finally
  t.Free;
 end;
end;
//读取打印文件的分店1地址
function ini_load_addr1(objectname,t_default:string):string;
var
  Filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadString(objectname,'分店1地址',t_default);
 finally
  t.Free;
 end;
end;
//读取打印文件的分店1电话
function ini_load_tel1(objectname,t_default:string):string;
var
  Filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadString(objectname,'分店1电话',t_default);
 finally
  t.Free;
 end;
end;
//读取打印文件的分店2地址
function ini_load_addr2(objectname,t_default:string):string;
var
  Filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadString(objectname,'分店2地址',t_default);
 finally
  t.Free;
 end;
end;
//读取打印文件的分店2电话
function ini_load_tel2(objectname,t_default:string):string;
var
  Filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadString(objectname,'分店2电话',t_default);
 finally
  t.Free;
 end;
end;
//读取打印文件的分店3地址
function ini_load_addr3(objectname,t_default:string):string;
var
  Filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadString(objectname,'分店3地址',t_default);
 finally
  t.Free;
 end;
end;
//读取打印文件的分店3电话
function ini_load_tel3(objectname,t_default:string):string;
var
  Filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadString(objectname,'分店3电话',t_default);
 finally
  t.Free;
 end;
end;
  //读取店名
function ini_load_shopname(objectname,shop:string):string;
var
 filename:string;
begin
 try
   filename:=extractfiledir(application.ExeName)+'\'+'print.ini';
   t:=tinifile.Create(filename);
   result:=t.ReadString(objectname,'分店',shop);
 finally
  t.Free
 end;
end;

// 打印设置
procedure PrintFile(AFileToPrint: string);
var
 Port, FileToPrint: TextFile;
 ALine: string;
begin
 AssignFile(FileToPrint, AFileToPrint);
 Reset(FileToprint);
 AssignFile(Port, 'LPT1');
 Rewrite(Port);
 while not Eof(FileToPrint) do
 begin
   Readln(FileToPrint, ALine);
   Writeln(Port, ALine);
 end;
 CloseFile(Port);
 CloseFile(FileToPrint);
end;

{//从并行端口读取打印机状态
function GetPrinterStatus:byte;
asm
MOV DX,$379;
IN AL,DX;
end;

//获取打印机是否出错
function CheckPrinter:boolean;
var
 temp:byte;
begin
 temp:=GetPrinterStatus;
 Result:=not ( ((temp and $80)=0) //打印机忙
 or ((temp and $20)<>0)  //打印机缺纸
 or ((temp and $10)=0)    //打印机未联机
 or ((temp and $08)=0) ); //打印机出错;
end;   }

//建立存储销售参数
function sava_xscs(objectname:string;dzjs,dzbl:string):boolean;
var
  xsfilename:string;
begin
 try
  xsfilename:=extractfiledir(application.ExeName)+'\'+'sell.ini';
  t:=tinifile.Create(xsfilename);
  t.WriteString(objectname,'打折基数',dzjs);
  t.WriteString(objectname,'打折比例',dzbl);
  result:=true;
 finally
  t.Free;
 end;
end;


//读取折金额基数
function ini_load_dzjejs(objectname,t_default:string):string;
var
  filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'sell.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadString(objectname,'打折基数',t_default);
 finally
  t.Free;
 end;
end;

//读取打折比例
function ini_load_dzbl(objectname,t_default:string):string;
var
  filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'sell.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadString(objectname,'打折比例',t_default);
 finally
  t.Free;
 end;
end;

//初始化数据库的连接
function initial_conn(objectname,user_id,user_p,dataname,data_source:string):boolean;
var
  filename:string;
begin
  try
   filename :=extractfiledir(application.ExeName)+'\'+'data.ini';
   t:=tinifile.Create(Filename);
   t.WriteString(objectname,'user_id',user_id);
   t.WriteString(objectname,'user_p',user_p);
   t.WriteString(objectname,'dataname',dataname);
   t.WriteString(objectname,'data_source',data_source);
   result:=true;
  finally
  t.Free;
  end;
end;

//读取初始化数据库的用户
function ini_load_user(objectname,t_default:string):string;
var
  filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'data.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadString(objectname,'user_id',t_default);
 finally
  t.Free;
 end;
end;


//读取初始化数据库的密码
function ini_load_psw(objectname,t_default:string):string;
var
  filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'data.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadString(objectname,'user_p',t_default);
 finally
  t.Free;
 end;
end;

//读取初始化数据库名称
function ini_load_dataname(objectname,t_default:string):string;
var
  filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'data.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadString(objectname,'dataname',t_default);
 finally
  t.Free;
 end;
end;


// 读取初始化数据库的实例名
function ini_load_data(objectname,t_default:string):string;
var
  filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'data.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadString(objectname,'data_source',t_default);
 finally
  t.Free;
 end;
end;
//存储分辨率
function save_display(objectname:string):boolean;
var
 sw,sh:word;
 filename:string;
begin
   Sw:=GetDeviceCaps(GetDC(Application.Handle),HORZRES);
   Sh:=GetDeviceCaps(GetDC(Application.Handle),VERTRES);
 try
  filename:=extractfiledir(application.ExeName)+'\'+'dispaly.ini';
  t:=tinifile.Create(filename);
  t.WriteInteger(objectname,'分辨率宽',Sw);
  t.WriteInteger(objectname,'分辨率高',Sh);
  result:=true;
 finally
  t.Free;
 end;
end;
//读取分辨率宽
function load_displayw(objectname:string;displayw:integer):integer;
var
  filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'dispaly.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadInteger(objectname,'分辨率宽',displayw);
 finally
  t.Free;
 end;
end;
//读取分辨率高
function load_displayh(objectname:string;displayh:integer):integer;
var
  filename:string;
begin
 try
   Filename:=extractfiledir(application.ExeName)+'\'+'dispaly.ini';
   t:=tinifile.Create(Filename);
   result:=t.ReadInteger(objectname,'分辨率高',displayh);
 finally
  t.Free;
 end;
end;
end.