秋季大送分! 有关VB窗体设计与报表的简单问题

len 2000-08-12 12:36:00

哥们:
(1) 在VB中,如何进窗体设计,实现象金蝶等财务进销存一样的界面: 上面是客户名称、进销存号、仓库等，而下面是类似于EXCEL表的表格，用于输入销售（采购）产品的名称数量、单价（从产品表中直接调入，也可进行修改）等等？用什么控件好？如何实现单价从另一产品表中直接调入？应该是一个一对多的关联，如何控制好这种关联，使记录移动时同步？
（2）金蝶等财务进销存中凭证录入的窗口，是用什么控件实现的？
（3）VB6.0 的自定义报表如何调入自定义函数? 能否在属性里直接设定来源的其它报表工具?

...全文

144 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

DragonJiang 2000-08-14

打赏
举报

回复

kingwill & "还可以修改,删除新增"

kingwill 2000-08-14

打赏
举报

回复

当然是DBgrid控件，又连数据库，又可以显示。一个控件足以

lczddd 2000-08-14

打赏
举报

回复

用msfelxgrid及浮动文本框即可，即一个msfelxgrid，一个text,利用其entercell,leavecell时间过程，控制text的visiable----true属性，将text.text移到所要的栅格上，将其显示出来，将text.text的值给当前的栅格内。。。。。。
然后将text的visiable---false,然后。。。。。。。

bing71 2000-08-14

打赏
举报

回复

用F1Book控件可以模仿EXCEL表。

playyuer 2000-08-12

打赏
举报

回复

报表方面:
http://simideal.top263.net/Main.htm
http://media.ccidnet.com/ciw/871/b1301.htm

内有设计窗体的图片，和运行效果图该窗体由全图片构造，包括，标题栏，最大化、最小化、关闭按钮，一下为部分代码， Private Sub Form_load() Dim retValue As Long Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image7.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image8.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Form1.Top = 0 '设置窗体上边界位置 Form1.Left = Screen.Width - Form1.Width retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW) End Sub Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& End Sub Private Sub Image2_Click() Form1.WindowState = 1 End Sub Private Sub Image4_Click() End End Sub Private Sub Image5_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\9.jpg") End Sub Private Sub Image5_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") End Sub Private Sub Image6_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\9.jpg") End Sub Private Sub Image6_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") End Sub

vb 窗体，画窗体问题，搞不明白

VB入门基础。清楚易懂，适合初学者本课程主要从开发环境、窗体、命令按钮、文本框、标签、消息框和输入框、代码基础、选择结构、循环结构、数组、过程、控件等方面进行讲解

华丽的窗体界面。输入文本动态效果，按钮自己做的，也是动态效果，按钮有最小化，关闭，和确定，取消，都是有动态效果！

VB窗体设计，设计比较简单，可以互相学习下。

809

社区成员

8,275

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章