- 博客(0)
- 资源 (7)
- 收藏
- 关注
RSS订阅BPL的简单使用(带接口的窗体)
procedure TFrmMain.btn1Click(Sender: TObject);
var
BPLClass:TClass;
begin
BPLClass:=GetClass('TForm1');
If BPLClass<>nil then
begin
Caption:='Create OK' ;
Frm:=TComponentClass(BPLClass).Create(Application) as IFormAction;
end;
end;
2009-03-03
自动匹配输入字符串(自动过滤)
自动过滤
procedure TAutoCompleteForm.FormCreate(Sender: TObject);
begin
FAutoComplete := CreateComObject(CLSID_AutoComplete) as IAutoComplete2;
FStrings := TEnumString.Create(SourceMemo.Lines) as IUnknown;
OleCheck(FAutoComplete.SetOptions(ACO_AUTOSUGGEST or ACO_UPDOWNKEYDROPSLIST));
OleCheck(FAutoComplete.Init(CompletionEdit.Handle, FStrings, nil, nil));
end;
2009-03-03
Remobjects分布式ERP模型(附加源码)
procedure TMainForm.Button3Click(Sender: TObject);
var
vDatas:OleVariant;
Tsql:TStringList;
i:integer;
begin
FRServerAddress:=Edit1.Text;
Fiport:=StrToInt(Edit2.Text);
Tsql:=TStringList.create;
Tsql.Clear;
Tsql.Append('insert into tbGoods(GoodsCode)values(''00012'')');
Tsql.Append('insert into tbUser(UserCode)values(''9999'')');
for i := 0 to 1000 do
Tsql.Append('insert into tbdev(mycode)values('''+IntToStr(i)+''')');
if not MakeVarSql(Tsql,vDatas) then
begin
FreeAndNil(Tsql);
messagebox(Handle,'生成SQL语句失败!','错误',MB_ICONError+mb_ok);
exit;
end;
FreeAndNil(Tsql);
if not Setdatas(FRServerAddress,Fiport,vDatas) then
ShowVarError(Handle,vDatas,'保存失败!');
2009-03-03
制衣管理系统源码制衣管理系统源码
procedure TWeiJieServer.PHGoodsUpdateData(Sender: TObject;
DataSet: TCustomClientDataSet);
begin
dataset.FieldByName('IKey').ProviderFlags:=
dataset.FieldByName('IKey').ProviderFlags+[pfinkey];
end;
2009-03-03
MD5算法完整源码与调用方法
///////////////////////////////////////////////////////////////////////////////
//MD5 DEMO V1.0//
//作者：ksaiy//
//欢迎使用由ksaiy制作的MD5加密算法演示程序，此算法为标准的MD5算法，你可以根据的
//的自己需要进行变形。具体怎么操作可以登录我们的网站查询详细的资料。我们专门为软
//件开发者提供软件加密安全测试服务和软件加密解决方案，具体的可以参看我们的网站上
//的资料。我们的网站：http://www.ksaiy.com http://www.magicoa.com
//技术支持:ksaiy@sina.com 在线QQ：40188696 UC：934155
//End //
2009-03-04
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人