200分求一个数据库应用程序的框架.请高手帮帮忙.

Question

我最近做一个数据库的应用程序,大家都知道现在有很多做erp得框架,我就是想要这个框架,最好是带设计文档的,我的e-mail:  [email protected]   [email protected] ,如果有高手给我发我将不甚感激,并以100分相送.

Answer 1

var
  mainfm: Tmainfm;implementationuses outwin, login, syscfg, syssee, rssr, rsxz, rsbmbj, rslccx, rsfgsry,
  rsfgssz, rstjbt, rstjbt1, chanpass, sysku, sysry, kulogin, condata,
  kucpmc, kucpxh, kucpcsh, kucpkcsee, kuwzbm, kuwzcsh, kuwzkcsee, kucpmx,
  kucpiosee, kuwzmx, kuwziosee, kucpmxsee, kuwzmxsee, kucppc, kuwzpc,
  kucppcsee, kuwzpcsee, jscpzhpz, jszlkcbj, jszlbj, jszlfaf, zlhuis,
  jszlcx, swgs, swzgs, swjsx, swjsxcx, swczfjdj, swczsjdj, swczfjcx,
  swczsjcx, swfydj, swfydjcx, swdydj, swdydjcx, swxjjsdj, swxjfsdj,
  swxjjsdjcx, swxjfsdjcx, swphonejldj, swphonejlcx, swkhlfdj, swlfjlcx,
  swhyrcap, swhyjgdj, swhyjgsh, swhyrccx, swgzxd, swhbgz, swshgz, swgzapcx,
  swbgzcbj, swbgzcrk, swbgzcjc, swbgzcgh, swbgzccx, swzlqdbj, swzlwj,
  swzlgh, swzlcx, swbgyprk, swbgypck, swbgyprkxg, swbgypckxg, swbgyppc,
  swbgypckfltj, swbgypcx, swbgypckcx, swbgyppccx, swbgypckfltjcx, swbgypbm,
  cgptwzcg, cgwzcgcx, cgfgfda, cggfcx, xshtlr, xshtcx, xshtxc, xshtxccx,
  xscpcg, xscpcgcx, xsgfda, xsgfcx, xskhda, xsdacx, xsxsry, xsywycx,
  xsyxjg, xsyxjgcx, xswts, xswtjg, xswtscx, xsscxx, xsclyj, xszxjg, xsxxcx;{$R *.dfm}procedure Tmainfm.FormCreate(Sender: TObject);
begin
px:=getsystemmetrics(sm_cxscreen);
py:=getsystemmetrics(sm_cyscreen);
scxy(mainfm);
opengh:='xxxx';
openname:='未登录';
openbm:='未知';
end;procedure Tmainfm.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[0].Text := '提示：欢迎使用VALERP企业资源综合计划系统';
StatusBar1.Panels[1].Text := '操作员：'+openname+'['+opengh+']';
StatusBar1.Panels[2].Text := '时间：'+DateTimeToStr(Now);
end;procedure Tmainfm.menuchange;
var stbname:string;
begin
if kuid='0' then
 begin
 mainfm.kuN1.Visible:=false;
 mainfm.kuN13.Visible:=false;
 mainfm.kuN74.Visible:=false;
 end
else
 begin
 mainfm.kuN74.Visible:=true;
 if kuid='cp' then
  begin
 mainfm.kuN1.Visible:=true;
 mainfm.kuN13.Visible:=false;
  stbname:=kuid+FormatDateTime('yyyy',now)+FormatDateTime('mm',now);
  dmd.see3.Close;
  dmd.see3.SQL.Clear;
  dmd.see3.SQL.Add('select *');
  dmd.see3.SQL.Add('from sysobjects');
  dmd.see3.SQL.Add('where name='''+stbname+'''');
  dmd.see3.SQL.Add('order by name');
  dmd.see3.Open;
  if dmd.see3.RecordCount<=0 then
   begin
  dmd.mdku.Close;
  dmd.mdku.SQL.Clear;
  dmd.mdku.SQL.Add('CREATE TABLE '+stbname+'');
  dmd.mdku.SQL.Add('(');
  dmd.mdku.SQL.Add('xh varchar(20),');
  dmd.mdku.SQL.Add('UNIQUE NONCLUSTERED (xh),');
  dmd.mdku.SQL.Add('mc varchar(20),');
  dmd.mdku.SQL.Add('sysl float DEFAULT 0,');
  dmd.mdku.SQL.Add('syje float DEFAULT 0,');
  dmd.mdku.SQL.Add('syzl float DEFAULT 0,');
  dmd.mdku.SQL.Add('rksl float DEFAULT 0,');
  dmd.mdku.SQL.Add('rkje float DEFAULT 0,');
  dmd.mdku.SQL.Add('rkzl float DEFAULT 0,');
  dmd.mdku.SQL.Add('cksl float DEFAULT 0,');
  dmd.mdku.SQL.Add('ckje float DEFAULT 0,');
  dmd.mdku.SQL.Add('ckzl float DEFAULT 0,');
  dmd.mdku.SQL.Add('bysl float DEFAULT 0,');
  dmd.mdku.SQL.Add('byje float DEFAULT 0,');
  dmd.mdku.SQL.Add('byzl float DEFAULT 0,');
  dmd.mdku.SQL.Add('sj datetime DEFAULT GETDATE(),');
  dmd.mdku.SQL.Add('id int IDENTITY(1,1),');
  dmd.mdku.SQL.Add('PRIMARY KEY CLUSTERED (id)');
  dmd.mdku.SQL.Add(')');
  dmd.mdku.ExecSQL;
   end;
  end
 else
  begin
 mainfm.kuN1.Visible:=false;
 mainfm.kuN13.Visible:=true;
  stbname:='wz'+FormatDateTime('yyyy',now)+FormatDateTime('mm',now)+kuid;
  dmd.see3.Close;
  dmd.see3.SQL.Clear;
  dmd.see3.SQL.Add('select *');
  dmd.see3.SQL.Add('from sysobjects');
  dmd.see3.SQL.Add('where name='''+stbname+'''');
  dmd.see3.SQL.Add('order by name');
  dmd.see3.Open;
  if dmd.see3.RecordCount<=0 then
   begin
  dmd.mdku.Close;
  dmd.mdku.SQL.Clear;
  dmd.mdku.SQL.Add('CREATE TABLE '+stbname+'');
  dmd.mdku.SQL.Add('(');
  dmd.mdku.SQL.Add('bm varchar(60),');
//  dmd.mdku.SQL.Add('CONSTRAINT UN_CXH UNIQUE NONCLUSTERED (bm),');
  dmd.mdku.SQL.Add('UNIQUE NONCLUSTERED (bm),');
  dmd.mdku.SQL.Add('mc varchar(20),');
  dmd.mdku.SQL.Add('xh varchar(20),');
  dmd.mdku.SQL.Add('cl varchar(20),');
  dmd.mdku.SQL.Add('ck varchar(10),');
  dmd.mdku.SQL.Add('ckh varchar(2),');
  dmd.mdku.SQL.Add('dw varchar(10),');
  dmd.mdku.SQL.Add('sysl float DEFAULT 0,');
  dmd.mdku.SQL.Add('syje float DEFAULT 0,');
  dmd.mdku.SQL.Add('syzl float DEFAULT 0,');
  dmd.mdku.SQL.Add('rksl float DEFAULT 0,');
  dmd.mdku.SQL.Add('rkje float DEFAULT 0,');
  dmd.mdku.SQL.Add('rkzl float DEFAULT 0,');
  dmd.mdku.SQL.Add('cksl float DEFAULT 0,');
  dmd.mdku.SQL.Add('ckje float DEFAULT 0,');
  dmd.mdku.SQL.Add('ckzl float DEFAULT 0,');
  dmd.mdku.SQL.Add('bysl float DEFAULT 0,');
  dmd.mdku.SQL.Add('byje float DEFAULT 0,');
  dmd.mdku.SQL.Add('byzl float DEFAULT 0,');
  dmd.mdku.SQL.Add('sj datetime DEFAULT GETDATE(),');
  dmd.mdku.SQL.Add('id int IDENTITY(1,1),');
//  dmd.mdku.SQL.Add('CONSTRAINT PK_CID PRIMARY KEY CLUSTERED (id)');
  dmd.mdku.SQL.Add('PRIMARY KEY CLUSTERED (id)');
  dmd.mdku.SQL.Add(')');
  dmd.mdku.ExecSQL;
   end;
  end;
 end;
end;procedure Tmainfm.SpeedButton3Click(Sender: TObject);
begin
userout:=Tuserout.Create(Self);
userout.ShowModal ;
userout.Release;
if openif='1' then close;
end;procedure Tmainfm.SpeedButton1Click(Sender: TObject);
begin
userlog:=Tuserlog.Create(Self);
userlog.ShowModal ;
userlog.Release;
mainfm.Menu:=mainfm.FindComponent(rname) as Tmainmenu;
if rname='ku' then
 begin
 mainfm.kuN0.Visible:=true;
 mainfm.kuN1.Visible:=false;
 mainfm.kuN13.Visible:=false;
 mainfm.kuN74.Visible:=false;
 end;
end;
先给你一点，以后再给

Answer 2

hehe ,回去漫漫看咯！有的你做了！

Answer 3

你可以去源码之家那里看看
应该有的
而且不仅仅是Dephi 的

Answer 4

感谢 wycg_cnh20(伤心郁闷中)  ，dongyue_zy(冬月)， wangyansurmount() 这三位,
但是wycg_cnh20(伤心郁闷中)的是用delphi7 开发的，而我用的是delphi5，能给我个可执行的文件吗，
dongyue_zy(冬月) 您的程序我没有收到，您能再发一个吗。
谢谢

Answer 5

真惭愧呀，我连ERP是什么都不知道。
大家别笑话啊，我真的不知道。谁能告诉我是什么吗？
不胜感激！！！！！！！！！！！！！！！！！！！！！！！！