精华区文章阅读

发信人: Powerpc_Pm@bbs.ustc.edu.cn (四大烂人伤折一股), 信区: cndatabase
标  题: Re: vfp求助�
发信站: 中国科大BBS站 (Mon Dec 15 04:34:06 1997)
转信站: Lilac!ustcnews!ustcnews!ustcbbs

> ==> ccc@SJTU(小兔)                           说道:
> 如何利用GRID一次性输入多条记录？
>   ***********

在表单里先放进一个空的表格控制，然后在表格上点鼠标右键
使用其中的生成器，即可以多行输入，用表单关闭时自动就都被保存。
可以观察里面对属性的修改来获得帮助。
以下是用类浏览器显示的代码：
PUBLIC oform1

oform1=CREATEOBJECT("form1")
oform1.Show()
RETURN

**************************************************
*-- Form:         form1 (d:\teach\表单1.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*
DEFINE CLASS form1 AS form

        Top = 0
        Left = 0
        Height = 250
        Width = 570
        DoCreate = .T.
        Caption = "Form1"
        LockScreen = .F.
        Name = "Form1"

        ADD OBJECT grid1 AS grid WITH ;
                ColumnCount = 5, ;
                BackColor = RGB(255,255,255), ;
                DeleteMark = .F., ;
                ForeColor = RGB(0,0,0), ;
                GridLineColor = RGB(0,128,128), ;
                GridLines = 0, ;
                GridLineWidth = 1, ;
                HeaderHeight = 20, ;
                Height = 217, ;
                Left = 12, ;
                RecordMark = .F., ;
                RecordSource = "temp____", ;
                ScrollBars = 0, ;
                Top = 24, ;
                Width = 541, ;
                Name = "Grid1", ;
                Column1.FontBold = .T., ;
                Column1.FontName = "Arial", ;
                Column1.FontSize = 9, ;
                Column1.Alignment = 0, ;
                Column1.BackColor = RGB(255,255,255), ;
                Column1.ForeColor = RGB(0,0,0), ;
                Column1.ControlSource = "temp____.编号", ;
                Column1.Width = 58, ;
                Column1.DynamicBackColor = "IIF(MOD(RECNO(),2)=1,RGB(255,255,255),RGB(192,220,192))", ;
                Column1.Name = "Column1", ;
                ......

        ADD OBJECT form1.grid1.column1.header1 AS header WITH ;
                FontBold = .T., ;
                FontName = "Arial", ;
                FontSize = 10, ;
                Alignment = 0, ;
                BackColor = RGB(192,220,192), ;
                ForeColor = RGB(0,0,0), ;
                Caption = "编号", ;
                Name = "Header1"
                ......

--
※ 来源: 中国科大BBS站 [bbs.ustc.edu.cn]

Database 版 (精华区)