摘要：
胡萝卜为伞形科植胡萝卜Daucus carota L. var.sativa C. 的根，一年或二年生草本，茎直立，高六十至九十公分，根肉质，橘红色或黄白色。原产於中亚，自汉代传入中国，在中国及世界各地均有栽培。秋冬季采根，除去茎叶洗净鲜用，或风乾用。胡萝卜作为药用最早见於元朝吴瑞《日用本草》，谓能宽中下气，散胃中邪滞。 阅读全文
posted @ 2005-11-05 20:42
致远钓客
阅读(615)
评论(0)
推荐(0)
摘要：
全选：Sub btnAll_Click() DBGrid14.SelectAllCells()End Sub 取消全选：Sub btnAllCancel_Click() DBGrid14.UnSelectAllCells()End Sub 判断多选Sub btnInsert_Click() nRowIndex = DBGrid14.GetCurRowIndex() RowHeadHei... 阅读全文
posted @ 2005-11-05 19:23
致远钓客
阅读(287)
评论(0)
推荐(0)
摘要：
试用了一下，比起CSDN的博客系统，感觉博客园的速度快多了，功能很丰富，性能也很稳定，真的很不错。难怪这里人气这么旺啊！以后就跟定它了！ 阅读全文
posted @ 2005-11-05 17:35
致远钓客
阅读(164)
评论(0)
推荐(0)
摘要：
DBEngine.WindowType = 1'设置查询窗体类型为1 MainGrid.SetTableXML("") MainGrid.SetEditable(false) MainGrid.SetListMode(true) MainGrid.AutoSizeColumns() 阅读全文
posted @ 2005-11-05 17:27
致远钓客
阅读(160)
评论(0)
推荐(0)
摘要：
eb_RecordCount.Text=MainGrid.GetRecordCount() 阅读全文
posted @ 2005-11-05 17:26
致远钓客
阅读(143)
评论(0)
推荐(0)
摘要：
保存后，停留在当前行 bNewRecord = DBEngine.IsNewRecord if DBEngine.SaveRecord() = true then '保存后,要从数据库更新当前行数据 if bNewRecord true then '保存修改 DBGrid14.UpdateCurRecordFromServer(DBEngine.GetCurRe... 阅读全文
posted @ 2005-11-05 17:24
致远钓客
阅读(168)
评论(0)
推荐(0)
摘要：
网格中移动记录： Sub btnFirst_Click() MainGrid.SetFocusRow (maingrid.GetFixedRowCount ) End Sub Sub btnLast_Click() MainGrid.SetFocusRow (maingrid.GetFixedRowCount + mainGrid.GetRecordCount-1) End Su... 阅读全文
posted @ 2005-11-05 17:23
致远钓客
阅读(166)
评论(0)
推荐(0)
摘要：
RowIndex = DBGrid14.GetCurRowIndex‘得到当前行索引 nRowIndex = DBGrid14.GetCurRecordIndex ‘为空 msgbox (DBGrid14.GetFieldStringValue("项目名称",RowIndex-1))’得到当前行相应字段值 msgbox (DBGrid14.GetFieldStringValue("项目名称... 阅读全文
posted @ 2005-11-05 17:22
致远钓客
阅读(152)
评论(0)
推荐(0)
摘要：
Call DBGridLesson.SetFieldColWidth ("序号",1) 阅读全文
posted @ 2005-11-05 17:21
致远钓客
阅读(110)
评论(0)
推荐(0)
摘要：
AutoCode("jxry{0,3}", DMaxNumber("编号")+1) 从其它表取数据组成自动编号 AutoCode(FieldValue(0,"供货商编码","[供货商名称]='"+[协议供应商]+"'","供货商表")+"{0,5}",[ID]) 阅读全文
posted @ 2005-11-05 17:20
致远钓客
阅读(296)
评论(0)
推荐(0)
摘要：
（供参考触发器） CREATE TRIGGER tr_XiaBan ON [dbo].[下稿列表] INSTEAD OF INSERT AS DECLARE @No varchar(7),@No1 varchar(7) SELECT @No=MAX(制版编号) FROM dbo.下稿列表 SET @No1=convert(varchar(7),convert(integer... 阅读全文
posted @ 2005-11-05 17:15
致远钓客
阅读(208)
评论(0)
推荐(0)
摘要：
if ComboSex.Text "" then '性别不等于空 if strSQLWhere "" then strSQLWhere = strSQLWhere + " And " '用 And 连接前后两个条件 end if if ComboSex.Text = "男" then '注意:性别男在数据表里对应数值的为1 strSQLWhere = strSQLWhere + "[... 阅读全文
posted @ 2005-11-05 17:14
致远钓客
阅读(300)
评论(0)
推荐(0)
摘要：
if DateFrom.Text "" Or DateTo.Text ""then if strSQLWhere "" then strSQLWhere = strSQLWhere + " And " '用 And 连接前后两个条件 end if '注意：要用单引号括住日期字符串 if DateFrom.Text "" And DateTo.Text ""then '两个范围都... 阅读全文
posted @ 2005-11-05 17:13
致远钓客
阅读(243)
评论(0)
推荐(0)
摘要：
Function GetArrFromXML(ByRef FieldArr, ByRef Arr1, Xml1) Dim i, j, lsXml, lsChar, liStar, liEnd, lsStar, lsEnd, liLen,Dic1 lsStar = "" lsEnd = "" liLen = Len(lsStar) i = InStr(1,Xml1, "",1)... 阅读全文
posted @ 2005-11-05 17:11
致远钓客
阅读(202)
评论(0)
推荐(0)
摘要：
FieldValue(0,"采购日期","采购编号="+ToText(采购编号),"采购表") 阅读全文
posted @ 2005-11-05 17:09
致远钓客
阅读(225)
评论(0)
推荐(0)
摘要：
eb_Date.text = DBEngine.ToDateString(DBEngine.GetElemData(strRet,"采购日期")) 阅读全文
posted @ 2005-11-05 17:08
致远钓客
阅读(342)
评论(0)
推荐(0)
摘要：
数据表模式，并指定打开窗体 NormalPage.aspx?TableName=协议供货&ListMode=Yes&ReadOnly=Yes&PopForm&RunTime=Yes&FormName=供货商协议供货登记 阅读全文
posted @ 2005-11-05 16:58
致远钓客
阅读(167)
评论(0)
推荐(0)
摘要：
If DBEngine.IsModified Or DBEngine.IsNewRecord Then ret = DBEngine.MsgBox1("记录发生改变是否保存?", 3) If ret = 1 Then DBEngine.Continue = False '取消 If ret = 6 Then If CheckBefore Then Exit Sub D... 阅读全文
posted @ 2005-11-05 16:51
致远钓客
阅读(156)
评论(0)
推荐(0)
浙公网安备 33010602011771号