Delphi组件应用实例文本文件__0001

1,动态设置数据集参数

    procedure TForm1.ExcuteBtnClick(Sender: TObject);
    begin
      SQLDataSet1.CommandType := ctQuery;
      SQLDataSet1.CommandText := 'INSERT INTO RenYuan (NAME, Native, age) VALUES (：Name, ：Native, ：age)';
      //形成SQL命令文本，该语句含有3个参数变量
      SQLDataSet1.Params[0].AsString := Name1.text;
      //利用用户在编辑框输入的内容为3个参数变量赋值
      SQLDataSet1.Params[1].AsString := native1.text;
      SQLDataSet1.Params[2].AsInteger := StrToInt(age.text);
      SQLDataSet1.ExecSQL;
      //调用ExecSQL方法，完成无返回结果集的记录插入。
    end;

2,动态数据传输

unit UBatch_move；
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Db, DBTables, ComCtrls；
  //使用单元文件定义
type
  TForm1 = class(TForm)
    BatchMove1: TBatchMove；
    //指定完成批传输的组件
    tblSource: TTable；
    //指出源表的数据集
    tblDest: TTable；
    //指出目的表的数据集
    Bevel1: TBevel ；
    Label6: TLabel；
    Label7: TLabel；
    Label8: TLabel；
    Bevel2: TBevel；
    Label15: TLabel；
    //显示标题的标签
    Label5: TLabel；
    Label4: TLabel；
    Label3: TLabel；
    Bevel3: TBevel；
    //如下三行指定源表的别名、表名和索引名
    cmbxSourceAlias: TComboBox；
    cmbxSourceTable: TComboBox；
    cmbxSourceIndex: TComboBox；
    //如下三行指定目的表的别名、表名和索引名
    cmbxDestAlias: TComboBox；
    cmbxDestTable: TComboBox；
    cmbxDestIndex: TComboBox；
    cmbxMode: TComboBox；
    //指定传输方式的检测框
    chkbxAbortKey: TCheckBox；
    chkbxAbortProblem: TCheckBox；
    chkbxTrans: TCheckBox；
    //定义提示标签
    Label1: TLabel；
    Label2: TLabel；
    Label10: TLabel；
    Label9: TLabel；
    Label12: TLabel；
    Label13: TLabel；
    Label14: TLabel；
    Label11: TLabel；
    //如下三个指定临时使用的表名
    edtChangedTable: TEdit；
    edtKeyVioTbl: TEdit；
    edtProbTbl: TEdit；
    edtRecCount: TEdit；
    ExcuteBtn: TButton；
    //执行批传输的按钮
    procedure FormCreate(Sender: TObject)；
    procedure FormShow(Sender: TObject)；
    procedure ExcuteBtnClick(Sender: TObject)；
    procedure cmbxSourceAliasChange(Sender: TObject)；
    procedure cmbxDestAliasChange(Sender: TObject)；
    procedure cmbxSourceTableChange(Sender: TObject)；
    procedure cmbxDestTableChange(Sender: TObject)；
    procedure cmbxSourceIndexChange(Sender: TObject)；
    procedure cmbxDestIndexChange(Sender: TObject)；
    procedure cmbxModeChange(Sender: TObject)；
    procedure edtRecCountKeyPress(Sender: TObject； var Key: Char)；
    procedure chkbxAbortKeyClick(Sender: TObject)；
    procedure chkbxAbortProblemClick(Sender: TObject)；
    procedure chkbxTransClick(Sender: TObject)；
  private
    { Private declarations }
    function IsStringsEqual(const s1,s2 : string): boolean；
    //定义内部函数
  public
    { Public declarations }
  end；
var
  Form1: TForm1；
implementation
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject)； // Get alias names
//在窗体建立的过程中，打开会话，并从BDE的中获取别名列表
begin
  if Session.Active = false then
     Session.Open；
     //如过会话未激活，则打开它
  Session.GetAliasNames(CmbxSourceAlias.Items)；
  //调用GetAliasNames方法，从BDE配置文件中，获取别名列表，并存入组合框中
  cmbxDestAlias.Items := cmbxSourceAlias.Items；
  //将源别名列表的内容赋给目的别名列表中
end；

procedure TForm1.FormShow(Sender: TObject)；
//在应用开始执行时，将光标定位在选择源表别名的组合框
begin
  cmbxSourceAlias.SetFocus；
end；

procedure TForm1.cmbxSourceAliasChange(Sender: TObject)；
//该事件处理过程用于获取源数据库名和所有表名
begin
  if cmbxSourceAlias.ItemIndex <> -1 then
  //如果用户选择了数据库别名，则获取它，否则，清除它
  begin
  tblSource.DatabaseName:=cmbxSourceAlias.Items[cmbxSourceAlias.ItemIndex]；
  //获取用户选择的数据库别名
  Session.GetTableNames(tblSource.DatabaseName,'',true,false,
                        cmbxSourceTable.Items)；
  //从指定的数据库中，获取该库的所有表名
  end
  else
  begin
    tblSource.DatabaseName := ''；
    cmbxSourceTable.Items.Clear；
  end；
end；

procedure TForm1.cmbxDestAliasChange(Sender: TObject)；
//该事件处理过程用于获取目的数据库名和所有表名
begin
  if cmbxDestAlias.ItemIndex <> -1 then
  begin
     tblDest.DatabaseName := cmbxDestAlias.Items[cmbxDestAlias.ItemIndex]；
     //获取用户选择的数据库别名
     Session.GetTableNames(tblDest.DatabaseName,'',true,false,
                           cmbxDestTable.Items)；
    //从指定的数据库中，获取该库的所有表名
  end
  else
  begin
    tblDest.DatabaseName := ''；
    cmbxDestTable.Items.Clear；
  end；
end；

procedure TForm1.cmbxSourceTableChange(Sender: TObject)；
//该事件处理过程用于获取源表的表名和索引名列表
begin
  if cmbxSourceTable.ItemIndex <> -1 then
  //如果用户从源的表名列表中，选择了表名，则获取它，否则，清除它
  begin
     tblSource.TableName:=cmbxSourceTable.Items[cmbxSourceTable.ItemIndex]；
     //根据用户的选择，获取源表的表名
     tblSource.GetIndexNames(cmbxSourceIndex.Items)；
     //获取源表对应的所有索引
  end
  else
  begin
    tblSource.TableName := ''；
    cmbxSourceIndex.Items.Clear；
  end；
end；

procedure TForm1.cmbxDestTableChange(Sender: TObject)；
//该事件处理过程用于获取目的表的表名和索引名列表
begin
  if cmbxDestTable.ItemIndex <> -1 then
  begin
     tblDest.TableName := cmbxDestTable.Items[cmbxDestTable.ItemIndex]；
     //根据用户的选择，获取目的表的表名
     tblDest.GetIndexNames(cmbxDestIndex.Items)；
     //获取目的表对应的所有索引
  end
  else
  begin
    tblDest.TableName := ''；
    cmbxDestIndex.Items.Clear；
  end；
end；

procedure TForm1.ExcuteBtnClick(Sender: TObject)；
//在用户已完成了源和目的的有关设置后，单击执行按钮后执行该过程，
//它完成实际的批传输操作
begin
  if tblDest.TableName = '' then
    tblDest.TableName := cmbxDestTable.Text；
  if ((tblSource.DatabaseName <> '') and
     (tblSource.TableName <> '') and
     (tblDest.DatabaseName <> '') and
     (tblDest.TableName <> '') and
     (cmbxMode.items[cmbxMode.ItemIndex] <> '')) then
     //在完成实际操作之前，首先测试源和目的的数据库名
     //表名是否已经全部设置好
  begin
    //设置TBatchMove组件的相关属性
    BatchMove1.ChangedTableName := edtChangedTable.Text；
    BatchMove1.KeyViolTableName := edtKeyVioTbl.Text；
    BatchMove1.ProblemTableName := edtProbTbl.Text；
    BatchMove1.RecordCount := StrToInt(edtRecCount.Text)；
    //设置批传输的记录数
  end
  else
  begin
    MessageDlg('Incomplete input.',mtError,[mbOK],0)；
    //只要源和目的的数据库名和表名的其中之一未设置好
    //则退出该过程
    exit；
  end；
  BatchMove1.Execute；
  //调用Execute方法，完成指定的传输
  MessageDlg('批操作已完成，传输了'+IntToStr(BatchMove1.MovedCount)+
             '个记录.',mtInformation,[mbOK],0)；
  //显示实际传输的记录数
end；

procedure TForm1.cmbxSourceIndexChange(Sender: TObject)；
//本过程根据用户的选择，获取源表对应的索引
begin
  if cmbxSourceIndex.ItemIndex <> -1 then
  //如果用户选择了索引，则获取它
  begin
    tblSource.IndexName := cmbxSourceIndex.Items[cmbxSourceIndex.ItemIndex]；
  end
  else
  begin
     tblSource.IndexName := ''；
     //如果用户未选择索引，则清除它
  end；
end；

procedure TForm1.cmbxDestIndexChange(Sender: TObject)；
//本过程根据用户的选择，获取目的表对应的索引
begin
  if cmbxDestIndex.ItemIndex <> -1 then
  //如果用户选择了索引，则获取它
  begin
    tblDest.IndexName := cmbxDestIndex.Items[cmbxDestIndex.ItemIndex]；
  end
  else
  begin
     tblDest.IndexName := ''；
     //清除索引名选项
  end；
end；

procedure TForm1.chkbxAbortKeyClick(Sender: TObject)；
begin
  BatchMove1.AbortOnKeyViol := chkbxAbortKey.Checked；
  //设置关键字违反有效规则时,是否终止执行
end；

procedure TForm1.chkbxAbortProblemClick(Sender: TObject)；
begin
  BatchMove1.AbortOnProblem := chkbxAbortProblem.Checked；
  //设置数据转换出错时,是否终止执行
end；

procedure TForm1.chkbxTransClick(Sender: TObject)；
begin
  BatchMove1.Transliterate := chkbxTrans.Checked；
  //对源或目的是否可使用不同的语言驱动程序
end；

function TForm1.IsStringsEqual(const s1,s2 : string): boolean；
//该过程将所有的小写字母转换成大写
begin
   Result := UpperCase(s1) = UpperCase(s2)；
end；

procedure TForm1.cmbxModeChange(Sender: TObject)；
//该过程设置批传输的方式，如增加、拷贝、删除和修改
begin
  if cmbxMode.ItemIndex <> -1 then
  begin
    if IsStringsEqual(cmbxMode.Items[cmbxMode.ItemIndex],'Append') then
      BatchMove1.Mode := batAppend
    else if IsStringsEqual(cmbxMode.Items[cmbxMode.ItemIndex],'Copy') then
      BatchMove1.Mode := batCopy
    else if IsStringsEqual(cmbxMode.Items[cmbxMode.ItemIndex],
            'Append Update') then
             BatchMove1.Mode := batAppendUpdate
    else if IsStringsEqual(cmbxMode.Items[cmbxMode.ItemIndex],'Delete') then
      BatchMove1.Mode := batDelete
    else if IsStringsEqual(cmbxMode.Items[cmbxMode.ItemIndex],'Update') then
      BatchMove1.Mode := batUpdate
    else
      MessageDlg('Batch mode not found',mtError,[mbOK],0)；
      //如果未指定批传输方式，则提示错误
  end；
end；

procedure TForm1.edtRecCountKeyPress(Sender: TObject； var Key: Char)；
//当用户输入传输的记录数时，调用该过程，不允许用户输入非数值型数据
begin
  if ((key in ['0'..'9'] = false) and (word(key) <> VK_BACK)) then
    key := #0；
end；
end.

3,管理数据库用户

unit U_User;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IBServices, Mask;
type
  TFUser = class(TForm)
    IBSecurityService1: TIBSecurityService;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit7: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FUser: TFUser;

implementation

{$R *.dfm}

procedure TFUser.Button1Click(Sender: TObject);
var
  GroupID,UserID,result:Integer;
begin
  if Edit1.Text='' then
     begin
      ShowMessage('用户登录名不能为空，请重新输入！');
      exit;
    end;

  //检验用户标识符是否为整数
  Val( Edit5.Text,UserID,result);
  if (result<>0)  then
    begin
      ShowMessage('用户标识符必须为整数，请重新输入！');
      exit;
    end;

  //检验分组标识符的有效性
  Val( Edit6.Text,GroupID,result);
  if result<>0 then
    begin
      ShowMessage('分组标识符必须为整数，请重新输入！');
      exit;
    end;

  with IBSecurityService1 do
  begin
  ServerName := 'Poulet';
  LoginPrompt := False;
  Params.Add('user_name=sysdba');
  Params.Add('password=masterkey');
  Active := True;
    try
      UserName := Edit1.Text;
      FirstName := Edit2.Text;
      MiddleName := Edit3.Text;
      LastName := Edit4.Text;
      UserID := UserID;
      GroupID := GroupID;
      Password := Edit7.Text;
      AddUser; // 向isc4.gdb安全数据库中添加用户
    except
      ShowMessage('添加用户失败，请检查输入的信息！');
    end;
  Active := False;
  end;
end;

procedure TFUser.Button2Click(Sender: TObject);
begin
  with IBSecurityService1 do
  begin
    ServerName := 'Poulet';
    LoginPrompt := False;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active := True;
    try
      UserName := Edit1.Text;
      DeleteUser;  //删除用户
      Edit1.Clear;
     except
      ShowMessage('删除用户失败，请检查输入的信息！');
    end;
    Active := False;
  end;              
end;
end.

 

4,拷贝数据库表

procedure TForm1. BatchMoveBtnClick(Sender: TObject)；
begin
  if Source_Query.Active = False then
    Exit；
    //如果不能获取活动的查询数据集，则终止传送操作
  if SaveDialog1.Execute then
    begin
      Destination_Table.TableName := SaveDialog1.FileName；
      //从对话框中输入将要保存的目的表的表名
      with BatchMove1 do
        begin
          Source := Source_Query；
          //指定源表，此处为查询组件的名字
          Destination := Destination_Table；
          //指定目的表，此处为在对话框中输入目的表的名字
          Mode := batCopy；
          //指定批处理的方式，此处为完整的拷贝
          Execute；
          //调用TBatchMove组件的Execute方法，完成实际的拷贝操作
          ShowMessage('已传送'+IntToStr(MovedCount) + '个记录')；
          //显示实际拷贝的记录数
        End；
     End；
  End；