CSDN论坛 > Delphi > VCL组件开发及应用

Delphi数据库开发的两个简单问题 [问题点数:80分,结帖人winterxu416]

Bbs2
本版专家分:155
结帖率 98.75%
CSDN今日推荐
Bbs8
本版专家分:34315
Blank
红花 2003年9月 Delphi大版内专家分月排行榜第一
Blank
黄花 2003年8月 Delphi大版内专家分月排行榜第二
Bbs9
本版专家分:83418
Blank
进士 2007年 总版技术专家分年内排行榜第九
Blank
铜牌 2007年7月 总版技术专家分月排行榜第三
Blank
红花 2007年9月 Oracle大版内专家分月排行榜第一
2007年7月 Oracle大版内专家分月排行榜第一
2007年6月 Oracle大版内专家分月排行榜第一
2008年7月 Delphi大版内专家分月排行榜第一
2008年3月 Delphi大版内专家分月排行榜第一
2008年2月 Delphi大版内专家分月排行榜第一
2007年12月 Delphi大版内专家分月排行榜第一
2007年11月 Delphi大版内专家分月排行榜第一
2007年10月 Delphi大版内专家分月排行榜第一
2007年9月 Delphi大版内专家分月排行榜第一
2007年7月 Delphi大版内专家分月排行榜第一
2007年6月 Delphi大版内专家分月排行榜第一
2007年4月 Delphi大版内专家分月排行榜第一
2007年1月 Delphi大版内专家分月排行榜第一
Blank
黄花 2009年5月 Delphi大版内专家分月排行榜第二
2007年8月 Oracle大版内专家分月排行榜第二
2007年4月 Oracle大版内专家分月排行榜第二
2008年1月 Delphi大版内专家分月排行榜第二
2007年8月 Delphi大版内专家分月排行榜第二
2007年5月 Delphi大版内专家分月排行榜第二
2007年3月 Delphi大版内专家分月排行榜第二
2007年2月 Delphi大版内专家分月排行榜第二
Bbs6
本版专家分:6671
Bbs2
本版专家分:332
Bbs6
本版专家分:5458
匿名用户不能发表回复!
其他相关推荐
Delphi数据库开发经典案例解析
Delphi数据库开发经典案例解析Delphi数据库开发经典案例解析
Delphi数据库开发关键技术与实例应用
Delphi数据库开发关键技术与实例应用Delphi数据库开发关键技术与实例应用
Delphi 6数据库开发例程
Delphi 6数据库开发例程源码Delphi 6数据库开发例程源码
C#.net WCF结构(全Dll封装)
#region 呼叫功能窗體 /// <summary> /// 判断MdiParent中是否含有该子窗体 /// </summary> /// <param name="_ChildFormName">子窗体名称</param> /// <returns>bool</returns> private Boolean uChildFormOpened(string ChildFormName) { foreach (Form form in this.MdiChildren) { if (string.Compare(form.Name, ChildFormName, true) == 0) { form.BringToFront(); return true; } } return false; } /// <summary> /// 呼叫功能窗體 (子窗體為MDI Child類型) /// </summary> /// <param name="comPara">公用參數</param> /// <param name="DllName">功能所在Dll名稱</param> /// <param name="formClassNameSpace">功能窗體類名稱空間</param> /// <param name="formClassName">功能窗體類名稱</param> private void uCallFunctionForm(ComPara comPara, string DllName, string formClassNameSpace, string formClassName) { string DllPath = Application.StartupPath + "\\" + DllName; string typeName = formClassNameSpace + "." + formClassName; string childFormName = formClassName + "_MainFromCall"; //生成的窗體統一加_MainFromCall後綴 //防止MDIChild重復生成 if (uChildFormOpened(childFormName)) { return; } //判斷Dll是否存在 if (!File.Exists(DllPath)) { MessageBox.Show(DllPath + "不存在,請檢查!"); return; } //反射調用MDI Child窗體 try { ReflectionHelper.LoadMdiForm(DllPath, typeName, this, childFormName, comPara); } catch (Exception ex) { throw ex; } } #endregion private void CascadeToolStripMenuItem_Click(object sender, EventArgs e) { LayoutMdi(MdiLayout.Cascade); } private void TileVerticalToolStripMenuItem_Click(object sender, EventArgs e) { LayoutMdi(MdiLayout.TileVertical); } private void TileHorizontalToolStripMenuItem_Click(object sender, EventArgs e) { LayoutMdi(MdiLayout.TileHorizontal); } private void ArrangeIconsToolStripMenuItem_Click(object sender, EventArgs e) { LayoutMdi(MdiLayout.ArrangeIcons); } private void CloseAllToolStripMenuItem_Click(object sender, EventArgs e) { foreach (Form childForm in MdiChildren) { childForm.Close(); } } private void tsmiUser_Click(object sender, EventArgs e) { string menuName = "User"; string DllName = "User.dll"; string formClassNameSpace = "User"; string formClassName = "UserForm"; //需克隆或新建一個參數物件傳到子窗體 ComPara comPara; comPara = (ComPara)CloneHelper.CloneObjectWithILShallow(uComPara); //給公用參數賦值,此處主要對子功能的客制化參數賦值 comPara.menuName = menuName;//功能名稱 comPara.canView = "Y"; comPara.canQuery = "Y"; comPara.canAdd = "Y"; comPara.canCopy = "Y"; comPara.canEdit = "Y"; comPara.canDelete = "Y"; comPara.canConfirm = "Y"; comPara.canCancelConfirm = "Y"; comPara.canAbolish = "Y"; comPara.canCheck = "Y"; comPara.canViewCost = "Y"; comPara.canPrint = "Y"; comPara.canExport = "Y"; uCallFunctionForm(comPara, DllName, formClassNameSpace, formClassName); } private void tsmiEnglish_Click(object sender, EventArgs e) { if (uComPara.languageID.ToLower() != "en-us") { uComPara.languageID = "en-us"; System.Threading.Thread.CurrentThread.CurrentUICulture = new System.Globalization.CultureInfo(uComPara.languageID); //菜單語言切換 System.Resources.ResourceManager rm = new System.Resources.ResourceManager(typeof(FunctionCallMain)); this.Text = rm.GetString("rsFormCaption") + "-->" + rm.GetString("rsLanguage"); } } private void tsmiTraditionalChinese_Click(object sender, EventArgs e) { if (uComPara.languageID.ToLower() != "zh-tw") { uComPara.languageID = "zh-tw"; System.Threading.Thread.CurrentThread.CurrentUICulture = new System.Globalization.CultureInfo(uComPara.languageID); //菜單語言切換 System.Resources.ResourceManager rm = new System.Resources.ResourceManager(typeof(FunctionCallMain)); this.Text = rm.GetString("rsFormCaption") + "-->" + rm.GetString("rsLanguage"); } } private void tsmiSimplifiedChinese_Click(object sender, EventArgs e) { if (uComPara.languageID.ToLower() != "zh-cn") { uComPara.languageID = "zh-cn"; System.Threading.Thread.CurrentThread.CurrentUICulture = new System.Globalization.CultureInfo(uComPara.languageID); //菜單語言切換 System.Resources.ResourceManager rm = new System.Resources.ResourceManager(typeof(FunctionCallMain)); this.Text = rm.GetString("rsFormCaption") + "-->" + rm.GetString("rsLanguage"); } } private void menuStrip_ItemClicked(object sender, ToolStripItemClickedEventArgs e) { } } }
Delphi三层实例
所谓三层:(1)客户端(2)服务器端(3)数据库   在数据访问时,使得客户端必须通过服务器来访问数据库。提高了系统的安全性。 在Delphi中可以使用Socket或者Dcom来连接他们相互间的通讯。如果使用Scocket在系统使用时必须提供Scocket连接器,而Dcom则不用。客户端和服务器的连接需要Broker来联系。 环境为winxp sp2 + delphi 7 + db7.(M
Delphi数据库开发范例程序
Delphi数据库开发范例程序 D6 D7下可用 Delphi数据库开发入门级代码范例
Delphi数据库开发自学教程
Delphi数据库开发自学教程,可以帮助大家很好了解Delphi数据库开发
Delphi数据库开发实例解析源码
Delphi数据库开发实例解析源码!很经典的一本书的源码!对大家学习Delphi数据库开发很有用!
数据库面试题(开发者必看)
数据库常见面试题(开发者篇) 什么是存储过程?有哪些优缺点? 什么是存储过程?有哪些优缺点? 存储过程就像我们编程语言中的函数一样,封装了我们的代码(PLSQL、T-SQL)。 存储过程的优点: 能够将代码封装起来 保存在数据库之中 让编程语言进行调用 存储过程是一个预编译的代码块,执行效率比较高 一个存储过程替代大量T_SQL语句 ,可以降低网络通信量,提高通信速...
Delphi数据库开发经典案例解析-随书源码
Delphi数据库开发经典案例解析-随书源码 Delphi数据库开发经典案例解析-随书源码
关闭
关闭