Focus(老鱼):
可以详述一下吗?
费心.
可以详述一下吗?
费心.
解决方案 »
- 如何通过imag 字段在reportmachine上加个图片
- delphi+mapx 图元
- 怎样限制OpenDialog只能选择文件夹……………………请各位大虾帮帮忙,谢谢了哈!!
- 关于《inside vcl》第4-5节的一个疑惑
- 搞了一天没有解决的存储过程问题!
- 关于内存管理
- 请问怎么判断软件在当前计算机的第一次运行?
- 100分求阿拉伯数字转英文大写数字的代码
- 如何将窗口Test生成可视继承控件(而不是生成继承窗口)?????谢谢!!!(在线等)
- 简单问题,高手指点!!
- 我想在dbgrid中把某一bool字段全部显示为复选框,象ACCESS中一样,不用控件,怎么实现?
- 谁写过软件需求说明书,能不能提供一份参考,一定给分!
database的事务处理
和session组件的帮助
怎么让client端都能连接到一个access数据库呢?
我也是做 进销存的,
和你情况相似,
但 我网络板用的SQL SERVER
因为那样容易 就是价钱??????
procedure TMainForm.FormCreate(Sender: TObject);
var
S:String;
begin
with ADOConnection do
Begin
Connected:=false;
S:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source="'+ExtractFilePath(Application.ExeName);
S:=S+'Student.mdb";Mode=Share Deny None;Extended Properties="";';
S:=S+'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;';
S:=S+'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;';
S:=S+'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
ConnectionString:=S;Connected:=true;
End;
ADODataSet.Active:=true;
end;
自己研究一下好了。不难懂 的。