cddm.pas

模块名称: 一、基础信息管理 碟片管理 歌曲管理 歌星管理 人员管理 二、借阅管理 借出登记 归还登记 借阅查询 其它管理 三、系统管理 权限设置 更改密

unit CDDM;

interface

uses
  SysUtils, Classes, DB, ADODB, Forms, Dialogs, Windows;

type
  TDM = class(TDataModule)
    ADO_Con: TADOConnection;
    qTemp: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    //获得最大的指定字段值
    function GetMaxValue(const fldName,tblName,Condition:String):string;

    //获得拼音码和五笔码
    procedure UpdateBianMa(sCname:string;iPYWB:integer=2);

    //执行SQL命令
    procedure execSQL(strsql:string);

  end;

var
  DM: TDM;

implementation

uses uCommon;

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
begin
  if Ado_con.Connected=false then Ado_Con.Open;
end;

procedure TDM.execSQL(strsql: string);
begin
  if qTemp.Active then qTemp.close;
  qTemp.SQL.clear;
  qTemp.SQL.Add(strSQL);
  qTemp.ExecSQL;
end;

function TDM.GetMaxValue(const fldName, tblName,
  Condition: String): string;
var
 teSQL:string;
begin
  if qTemp.Active then qTemp.close;
    qTemp.close;
    qTemp.SQL.clear;
    teSQL:='select max('+fldName+ ') from '+tblName+' Where '+Condition;
    qTemp.SQL.Add('select max('+fldName+ ') from '+tblName+' Where '+Condition);
    qTemp.Open;
  if qTemp.Fields[0].IsNull then
    result:='0'
  else
    result:=qTemp.Fields[0].AsString;
end;

procedure TDM.UpdateBianMa(sCname: string; iPYWB: integer);
var
    sSpellCode,sWBCode,cStr: string;
    i:Integer;
    sw:Widestring;
begin
    sw := sCname; //转换为亚洲字符串
    if qTemp.Active then qTemp.close;
    qTemp.sql.Clear;
    qTemp.sql.Add('select Word,SpellCode,WBCode from ChineseCode where '+''''+sCname
        +''''+' like '+''''+'%'+''''+'+word+'+''''+'%'+'''');
    qTemp.open;
    sSpellCode:='';
    sWBCode:='';
    for i:=1 to length(sw) do
      begin
        cStr := sw[i];
        if length(cStr) > 1 then
          begin
          qTemp.Locate('Word',cStr,[loCaseInsensitive]);
          sSpellCode := sSpellCode + Uppercase(qTemp.fieldbyname('SpellCode').AsString);
          sWBCode := sWBCode + UpperCase(qTemp.fieldbyname('WBCode').AsString);
          end
        else
          begin
          if cStr='"' then
              begin
              Application.MessageBox('不能在中文名称中包含双引号字符','提示',MB_OK);
              abort;
              end;
          sSpellCode := sSpellCode + cStr;
          sWBCode := sWBCode + cStr;
          end;
      end;
    case iPYWB of
    1:
    begin
      GG_SpellCode:=sSpellCode;
      GG_WBCode:=sWBCode;
    end;
    2:
      GG_SpellCode:=sSpellCode;
    3:
      GG_WBCode:=sWBCode;
    end;

end;

end.