interpret.pas.~1~

初中成绩录入系统网络版(firebird) firebird下的网络编程

//翻译的类
unit interPret;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs,UnitDatamodule,Grids,IBQuery,IBDatabase;

type
  TInterpret = class(TObject)
  private
    Query1: TIBQuery;
    IBTrans1:TIBTransaction;
  public
    constructor Create;
    destructor Destroy; override;
    function getName(fTitle:String): string;
    function getTitle(fname:String): string;
    procedure GetTitleList(Grid1:TStringGrid);
    function setTitle(fName,fTitle:String): Boolean;
  end;
  

implementation

{
********************************** TInterpret **********************************
}
constructor TInterpret.Create;
begin
  Query1:=TIBQuery.Create(nil);
  IBTrans1:=TIBTransaction.Create(nil);
  Query1.Database:=dm.IBDB1;
  Query1.Transaction:=IBTrans1;
  IBTrans1.DefaultDatabase:=dm.IBDB1;
end;

destructor TInterpret.Destroy;
begin
  Query1.Free;
  IBTrans1.Free;
end;

function TInterpret.getName(fTitle:String): string;
begin
  Query1.Close;
  Query1.SQL.Text:='select fname from interpret where fTitle='''+fTitle+'''';
  Query1.Open;
  result:=Query1.FieldByName('fName').AsString;
end;

function TInterpret.getTitle(fname:String): string;
begin
  Query1.Close;
  Query1.SQL.Text:='select fTitle from interpret where fName='''+fName+'''';
  Query1.Open;
  result:=Query1.FieldByName('fTitle').AsString;
end;

procedure TInterpret.GetTitleList(Grid1:TStringGrid);
var
  i: Integer;
begin
  Query1.Close;
  Query1.SQL.Text:='select * from interpret';
  Query1.Open;
  Grid1.RowCount:=Query1.RecordCount+1;
  Grid1.Cells[0,0]:='字段名称';
  Grid1.Cells[1,0]:='标签';
  Query1.First;
  for i:=1 to Query1.RecordCount do
  begin
    Grid1.Cells[0,i]:=Query1.FieldByName('fName').AsString;
    Grid1.Cells[1,i]:=Query1.FieldByName('fTitle').AsString;
    Query1.Next;
  end;
end;

function TInterpret.setTitle(fName,fTitle:String): Boolean;
begin
  Query1.Close;
  Query1.SQL.Text:='select fName from interpret where fname='''+fName+'''';
  Query1.Open;
  if Query1.RecordCount>0 then
  begin
    Query1.Close;
    Query1.SQL.Text:='update interpret set fTitle='''+fTitle+''' where fName='''+fName+'''';
  end
  else
  begin
    Query1.Close;
    Query1.SQL.Text:='insert into interpret(fName,fTitle) values('''+fName+''','''+fTitle+''')';
  end;
  try
    Query1.ExecSQL;
    result:=true;
  except
    result:=false;
  end;
end;


end.