untttypeface.pas

delphi7,源代码 主要的是进行DELPHI7的源代码进行管理和维护

{*******************************************************}
{                                                       }
{       单元名称: UntTTypeFace                          }
{       创建日期: 2005-08-17                            }
{       摘要说明: 数据表TType操作实体类接口函数         }
{                                                       }
{       详细说明:                                       }
{                                                       }
{       参　　阅:                                       }
{                                                       }
{       已知问题:                                       }
{                                                       }
{       待作事项:                                       }
{                                                       }
{       作　　者: 胡孟杰                                }
{       Copyright (C) 2005 FdAuto                       }
{       当前版本: 1.0                                   }
{       版本历史:                                       }
{                                                       }
{*******************************************************}

unit UntTTypeFace;

{==========================================================================
　　　　　　　　　　　　DLL接口函数声明部分
==========================================================================}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ADODB, Variants;

{==========================================================================
                        函数原型声明
==========================================================================}

//向表Type中插入一条记录，函数原型声明
function Type_AddNew(ADOConnection: TADOConnection; P_Type: string): boolean;
stdcall;
//向表Type中更新一条记录，函数原型声明
function Type_Edit(ADOConnection: TADOConnection; OldType, P_Type: string):
  boolean; stdcall;
//向表Type中删除一条记录，函数原型声明
function Type_Delete(ADOConnection: TADOConnection; P_Type: string): boolean;
stdcall;
//在表Type中查找一条记录，函数原型声明
function Type_Find(ADOConnection: TADOConnection; P_Type: string): boolean;
stdcall;
//取回类别列表，返回执行成功与否
function Type_GetTypeList(ADOConnection: TADOConnection; TypeList: Tstrings):
  boolean; stdcall;

{==========================================================================
　　　　　　　　　　　　DLL接口函数实现部分
==========================================================================}

implementation

//引用的单元列表
uses UntTType, UntTFuncFace;

{==========================================================================
　函数名:    Type_AddNew
  功  能:    在表Type中插入一条记录，返回执行成功与否
  参　数:    ADOConnection:数据库连接对象 P_Type : string 表属性值
  返回值:    True,false
  作　者:    胡孟杰
  日　期:    2005.08.17
==========================================================================}

function Type_AddNew(ADOConnection: TADOConnection; P_Type: string): boolean;
var
  Type1             : TType;
begin
  Type1 := TType.Create(AdoConnection);
  with Type1 do
    begin
      if P_Type = '' then
        begin
          Result := False;
          Application.MessageBox('类别名称不能为空!', '系统提示',
            MB_ICONWARNING);
        end
      else
        begin
          PType := P_Type;              //string 类别名称

          Result := InsertIntoTable;    //向表中插入一条记录
        end;
      Free;
    end;
end;

{==========================================================================
　函数名:    Type_Edit
  功  能:    在表Type中更新一条记录，返回执行成功与否
  参　数:    ADOConnection:数据库连接对象 P_Type : string 表属性值
  返回值:    True,false
  作　者:    胡孟杰
  日　期:    2005.08.17
==========================================================================}

function Type_Edit(ADOConnection: TADOConnection; OldType, P_Type: string):
  boolean;
var
  Type1             : TType;
begin
  Type1 := TType.Create(AdoConnection);
  with Type1 do
    begin
      if P_Type = '' then
        begin
          Result := False;
          Application.MessageBox('类别名称不能为空!', '系统提示',
            MB_ICONWARNING);
        end
      else
        begin
          PType := P_Type;              //string 类别名称
          try
            ADOConnection.BeginTrans;
            Result := UpdateTable(OldType) and Func_UpdateType(ADOConnection,
              OldType, P_Type);
            // 更新一条记录,用主键值做条件, 同时更新函数库类别名称
            ADOConnection.CommitTrans;
          except
            ADOConnection.RollbackTrans;
            Application.MessageBox('更新类别失败!本次操作被撤销！', '系统提示',
              MB_ICONWARNING);
            Result := False;
          end;
        end;
      Free;
    end;
end;

{==========================================================================
　函数名:    Type_Delete
  功  能:    在表Type中删除一条记录，返回执行成功与否
  参　数:    ADOConnection:数据库连接对象 P_Type : string 表属性值
  返回值:    True,false
  作　者:    胡孟杰
  日　期:    2005.08.17
==========================================================================}

function Type_Delete(ADOConnection: TADOConnection; P_Type: string): boolean;
var
  Type1             : TType;
begin
  Type1 := TType.Create(AdoConnection);
  with Type1 do
    begin
      PType := P_Type;                  //string 类别名称
      if Func_FindType(AdoConnection, P_Type) then
        begin
          Result := False;
          Application.MessageBox('该类别已有明细数据，不能删除!', '系统提示',
            MB_ICONWARNING);
        end
      else
        Result := DeleteTable(true); //删除一条记录,用主键值做条件,(删除后是否提示)
      Free;
    end;
end;

{==========================================================================
　函数名:    Type_Find
  功  能:    在表Type中查找一条记录，返回查找成功与否
  参　数:    ADOConnection:数据库连接对象 P_Type : string 表属性值
  返回值:    True,false
  作　者:    胡孟杰
  日　期:    2005.08.17
==========================================================================}

function Type_Find(ADOConnection: TADOConnection; P_Type: string): boolean;
var
  Type1             : TType;
begin
  Type1 := TType.Create(AdoConnection);
  with Type1 do
    begin
      PType := P_Type;                  //string 类别名称

      Result := FindRecorder(false); //查找某一条记录,用主键值做条件,(找到指定记录后是否给变量赋值)
      Free;
    end;
end;

{==========================================================================
　函数名:    Type_GetTypeList
  功  能:    取回类别列表，返回执行成功与否
  参　数:    ADOConnection:数据库连接对象 TypeList : Tstrings 类别类表
  返回值:    True,false
  作　者:    胡孟杰
  日　期:    2005.08.17
==========================================================================}

function Type_GetTypeList(ADOConnection: TADOConnection; TypeList: Tstrings):
  boolean;
var
  Type1             : TType;
  TList             : Tstrings;
begin
  Result := false;
  Type1 := TType.Create(AdoConnection);
  with Type1 do
    begin
      AdoQuery.Close;
      AdoQuery.SQL.Text := ' Select Type From Type ';
      AdoQuery.Open;
      if AdoQuery.Recordset.RecordCount > 0 then
        begin
          Result := true;
          TList := Tstringlist.Create;
          AdoQuery.Recordset.MoveFirst;
          while not AdoQuery.Recordset.EOF do
            begin
              TList.Add(AdoQuery.Recordset.Fields['Type'].Value); //类别名称
              AdoQuery.Recordset.MoveNext;
            end;
          TypeList.Text := TList.Text;
          TList.Free;
        end;
      Free;
    end;
end;

end.