func.pas

delphi的一个开发实例

unit func;

interface
uses
  Windows,DB,SysUtils,dbtables,Dialogs,registry,menus,Forms,jpeg,
  graphics,classes,DBGrids,Data,QGrids;

Function WriteRegFile(menth:integer;keyname:String;Regkey:variant):variant;
Function ReadRegFile(menth:integer;keyname:String):variant;
Function ExistsRegKey(keyname:string):boolean;
Function DeleteRegKey(keyname:string):boolean;
Function GetFontStyle(FontNo:integer):TFontStyles;
Function Encrypt(EncryptStr,EncryptKey:string):string;
Function Decrypt(DecryptStr,EncryptKey:string):string;
Function Small2Big(SourceMoney:Currency):string;
procedure Cmd_Check_Filsh;  //检查审核是否审核完毕
//procedure DeleteRow(Row:Integer);


var
  Font_Style:array[0..4] of TFontStyles;
  //***级别审核************
  tempselect:string;
  man_Select:String;//审核人员
  Man_Public_Code:string; //审核代码('SH_01,SH_02,SH_03,SH_04,SH_05)
  LevelType{单据名称},LevelCount{审核级数},ExamineMan{审核人员}:String;
  LevelSeries:string;//所属级别
  //***级别审核************
  //商品类别选择
  CheckDo:String;//基本信息窗体中选择操作对象；
  Do_Result:String;//基本信息窗体中选择操作对象选择结果；
  Public_Do:String;
  Public_Do_Result:String;
  String_Col:Integer;  //Stringrid  的第几行
  Check_Mond,check_Mond_Result:String;
  Check_Storage,Check_Storage_Result,Check_Storage_Result_NO:String;
  Employe_Check,Employe_Check_Result,Employe_type:String;
  //*********商品基本信息窗体的公共操作部分********************
  Subject_Str:string;//操作对象
  Subject_No:string; //选择结果
  Subject_Name:string; //选择结果
  Subject_Back:string; //选择结果
  Subject_Facility:string; //选择结果
  //*****************************
  G_Modal,G_Cards,G_Brand:String;
  //************************审核****************************
  Collate_Str,Collate_Result:String;
  SH_Level:Integer;//审核级数
  ExamineMan1,ExamineMan2,ExamineMan3,ExamineMan4,ExamineMan5:String;//审核人
  ee1,ee2,ee3,ee4,ee5:string;//审核人别名
  LevelName1,LevelName2,LevelName3,LevelName4,LevelName5:String;//审核名称
  Flag1,Flag2,Flag3,Flag4,Flag5:Integer;

  List_NO:string;//单据编号
  Goods_No_Str,Goods_Name_Str:String;//商品编号 \商品名称
  Goods_Check_str:String;//商品选择

  Handle_Man:String;//操作员名称
  Handle_No:String;//操作员编号
  Handle_Part:String;//操作员部门
  tablename:string;
  LHXZ_Str,LHXZ_Str_Result,LHXZ_Str_List_NO:String;//来货选择
  ZLXZ_Str,ZLXZ_Str_Result,ZLXZ_Str_List_NO:String;//质量选择
  Contract_Check_Str,Contract_Check_Result_Str:String;//合同选择
  ChildShop_Str,ChildShop_Result_NO,ChildShop_Result_Name:String;//店面选择
  Stock_Contract_Str,Stock_Contract_NO:String; //采购合同
  Storage_No_Str,Storage_Name_Str,Stock_States_Detail_str:String;//库存状况
  Sign_Search_str,Sign_Search_Result_str:String;//单品查询
  Storage_Up_Limit,Storage_Down_Limit:String;//库存上下限数量
  Storage_Warn_Limit_Set:string;//库存上、下限设置
  CK_MC,SP_MC:String;//仓库名称、商品名称；
  Str_KD,Str_KS,Str_JS:String;//变化幅度，开始度数，结束度数
  BH_Count:integer;//变化个数
  Str_NO:String;//商品代码编辑规则
  Str_Part_No,Str_part_Name,Str_Part_Code:String;//部门代码，部门名称；
  //***************库存预警向导管理
  Storage_Guide_Name,Storage_Guide_NO,Storage_Guide_Type,Storage_Guide_Str:String;
  //***************
  //起初建立帐
  begin_build_str:string;
  //
  implementation

uses  main;

{procedure DeleteRow(Row:Integer);
var
    i:integer;
    StringGrid1:TStringGrid;
begin
    //最后一列直接删除
    if (Row = StringGrid1.RowCount-1) and (row >1) then
        StringGrid1.RowCount := StringGrid1.RowCount - 1;
    //自动上移
    if (Row < StringGrid1.RowCount) and (Row > StringGrid1.FixedRows-1) then
    begin
        if Row < StringGrid1.RowCount - 1 then
        begin
            for i := Row to StringGrid1.RowCount-1 do
            StringGrid1.Rows[i] := StringGrid1.Rows[i+1];
            StringGrid1.RowCount :=StringGrid1.RowCount - 1;
        end;
    end;
end; }

procedure Cmd_Check_Filsh;
var
    EX1,EX2,EX3,EX4,EX5:String;
    E_Level:String;
begin
    E_Level:='';
    with frm_data.ClientDataSet3 do
    begin
        Close;
        Commandtext:='';
        Commandtext:='Select * from [V_Stock_Level] where Receipt_No='''+Trim(List_No)+'''';
        Open;
        E_Level:=frm_data.ClientDataSet3.FieldValues['Level_Count'];
        if E_Level='5'  then
        begin
            EX1:=frm_data.ClientDataSet3.FieldValues['E1'];
            EX2:=frm_data.ClientDataSet3.FieldValues['E2'];
            EX3:=frm_data.ClientDataSet3.FieldValues['E3'];
            EX4:=frm_data.ClientDataSet3.FieldValues['E4'];
            EX5:=frm_data.ClientDataSet3.FieldValues['E5'];
            if ((EX1='') or (EX2='') or (EX3='') or (EX4='') or (EX5=''))then
            begin
                try
                    with frm_data.ClientDataSet3 do
                    begin
                        Close;
                        Commandtext:='';
                        Commandtext:='Update [Receipt] set Check_Result=''0'' where Receipt_No='''+Trim(List_No)+'''';
                        Execute;
                    end;
                except
                    Application.MessageBox('操作失败,请检查远程服务器连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
            end
            else
            begin
                try
                    with frm_data.ClientDataSet3 do
                    begin
                        Close;
                        Commandtext:='';
                        Commandtext:='Update [Receipt] set Check_Result=''1'' where Receipt_No='''+Trim(List_No)+'''';
                        Execute;
                    end;
                except
                    Application.MessageBox('操作失败,请检查远程服务器连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
            end;
        end;
        if E_Level='4'  then
        begin
            EX1:=frm_data.ClientDataSet3.FieldValues['E1'];
            EX2:=frm_data.ClientDataSet3.FieldValues['E2'];
            EX3:=frm_data.ClientDataSet3.FieldValues['E3'];
            EX4:=frm_data.ClientDataSet3.FieldValues['E4'];
            if ((EX1='') or (EX2='') or (EX3='') or (EX4=''))then
            begin
                try
                    with frm_data.ClientDataSet3 do
                    begin
                        Close;
                        Commandtext:='';
                        Commandtext:='Update [Receipt] set Check_Result=''0'' where Receipt_No='''+Trim(List_No)+'''';
                        Execute;
                    end;
                except
                    Application.MessageBox('操作失败,请检查远程服务器连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
            end
            else
            begin
                try
                    with frm_data.ClientDataSet3 do
                    begin
                        Close;
                        Commandtext:='';
                        Commandtext:='Update [Receipt] set Check_Result=''1'' where Receipt_No='''+Trim(List_No)+'''';
                        Execute;
                    end;
                except
                    Application.MessageBox('操作失败,请检查远程服务器连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
            end;
        end;
        if E_Level='3'  then
        begin
            EX1:=frm_data.ClientDataSet3.FieldValues['E1'];
            EX2:=frm_data.ClientDataSet3.FieldValues['E2'];
            EX3:=frm_data.ClientDataSet3.FieldValues['E3'];
            if ((EX1='') or (EX2='') or (EX3=''))then
            begin
                try
                    with frm_data.ClientDataSet3 do
                    begin
                        Close;
                        Commandtext:='';
                        Commandtext:='Update [Receipt] set Check_Result=''0'' where Receipt_No='''+Trim(List_No)+'''';
                        Execute;
                    end;
                except
                    Application.MessageBox('操作失败,请检查远程服务器连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
            end
            else
            begin
                try
                    with frm_data.ClientDataSet3 do
                    begin
                        Close;
                        Commandtext:='';
                        Commandtext:='Update [Receipt] set Check_Result=''1'' where Receipt_No='''+Trim(List_No)+'''';
                        Execute;
                    end;
                except
                    Application.MessageBox('操作失败,请检查远程服务器连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
            end;
        end;
        if E_Level='2'  then
        begin
            EX1:=frm_data.ClientDataSet3.FieldValues['E1'];
            EX2:=frm_data.ClientDataSet3.FieldValues['E2'];
            if ((EX1='') or (EX2=''))then
            begin
                try
                    with frm_data.ClientDataSet3 do
                    begin
                        Close;
                        Commandtext:='';
                        Commandtext:='Update [Receipt] set Check_Result=''0'' where Receipt_No='''+Trim(List_No)+'''';
                        Execute;
                    end;
                except
                    Application.MessageBox('操作失败,请检查远程服务器连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
            end
            else
            begin
                try
                    with frm_data.ClientDataSet3 do
                    begin
                        Close;
                        Commandtext:='';
                        Commandtext:='Update [Receipt] set Check_Result=''1'' where Receipt_No='''+Trim(List_No)+'''';
                        Execute;
                    end;
                except
                    Application.MessageBox('操作失败,请检查远程服务器连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
            end;
        end;
        if E_Level='1'  then
        begin
            EX1:=frm_data.ClientDataSet3.FieldValues['E1'];
            if EX1=''then
            begin
                try
                    with frm_data.ClientDataSet3 do
                    begin
                        Close;
                        Commandtext:='';
                        Commandtext:='Update [Receipt] set Check_Result=''0'' where Receipt_No='''+Trim(List_No)+'''';
                        Execute;
                    end;
                except
                    Application.MessageBox('操作失败,请检查远程服务器连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
            end
            else
            begin
                try
                    with frm_data.ClientDataSet3 do
                    begin
                        Close;
                        Commandtext:='';
                        Commandtext:='Update [Receipt] set Check_Result=''1'' where Receipt_No='''+Trim(List_No)+'''';
                        Execute;
                    end;
                except
                    Application.MessageBox('操作失败,请检查远程服务器连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
            end;
        end;
    end;
end;

Function GetCurImage(CurStr:string):integer;
var
    len:integer;
    tempstr:string;
begin
    tempstr:=trim(CurStr);
    len:=length(tempstr);
    if (len mod 2)=0 then
    begin
        tempstr:=copy(tempstr,length(tempstr)-1,2);
    end
    else
    begin
        tempstr:=copy(tempstr,length(tempstr),1);
        Result:=strtoint(tempstr);
    end;
end;

Function strtohex(instr:string):string;
var