关于delphi设计界面的几个问题

csyan88 2004-06-14 04:12:53
1。怎样设置是edit右对其
2。 怎样修改form的标题前显示的图标;如何让它不显示;
3。有谁能给我一个listview的使用的例子(一段代码,怎样插数据)。

在下delphi菜级,才学没几天,又急着用,大家帮帮忙啊,来者有分
...全文
112 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
csyan88 2004-06-14
  • 打赏
  • 举报
回复
大家帮帮忙哈
csyan88 2004-06-14
  • 打赏
  • 举报
回复
还有问题怎么没人回答啊
江宁侯哥 2004-06-14
  • 打赏
  • 举报
回复
2.project options 中 application 中修改icon属性
或者修改form的icon属性
不让其显示可以设置form中bordericons中的bisystemMenu :=false;

3.
procedure TfrmMaterialDict.RefreshSubMaterialView(treeNode: TTreeNode);
var
ItemType: integer;
objNode: TNodeObject;
objMaterial :TMaterialObj;
listItem: TListItem;
sql: string;
rs: _Recordset;
begin
lvMaterial.ViewStyle := vsList;
lvMaterial.Items.Clear;
lvMaterial.ViewStyle := vsReport;
ClearTxt;
PageControl1.ActivePageIndex := 0;
if assigned(treeNode.Data) then
begin
objNode := TNodeObject(treeNode.Data) ;
if objNode.IS_Depot=1 then //Ϊ·ÖÀà
begin
ItemType := objNode.Sort;
sql :='select ID,SORT,MCODE,MNAME, MODAL,UNIT,PRICE,KIND,MAXNUM,MINNUM,DEPOTID,SELLPRICE1,SELLPRICE2,STOCKS from T_MMS_MATERIAL_DICT where SORT = ' + inttostr(ItemType) + 'and Mcode <> 0 order by Mcode';
rs := ADOConn.Execute(sql);
while not rs.EOF do
begin
objMaterial := TMaterialObj.Create;
objMaterial.ID := rs.Fields['ID'].Value;
objMaterial.SORT := rs.Fields['SORT'].Value;
objMaterial.MCODE := rs.Fields['MCODE'].Value;
objMaterial.KIND := rs.Fields['KIND'].Value;
listItem := lvMaterial.Items.Add;
listItem.Caption := objMaterial.KIND;
objMaterial.MNAME := rs.Fields['MNAME'].Value;
listItem.SubItems.Add(objMaterial.MNAME);
if not VarIsNull(rs.Fields['MODAL'].Value) then
objMaterial.MODAL :=(rs.Fields['MODAL'].Value)
else
objMaterial.MODAL :='';
listItem.SubItems.Add(objMaterial.MODAL);
if not VarIsNull(rs.Fields['UNIT'].Value) then
objMaterial.MUNIT :=rs.Fields['UNIT'].Value
else
objMaterial.MUNIT :='';
listItem.SubItems.Add(objMaterial.MUNIT);
if not VarIsNull(rs.Fields['PRICE'].Value) then
objMaterial.PRICE :=rs.Fields['PRICE'].Value
else
objMaterial.PRICE :=0;
listItem.SubItems.Add(format('%5.2f',[objMaterial.PRICE]));
if not VarIsNull(rs.Fields['SELLPRICE1'].Value) then
objMaterial.SELLPRICE1 :=rs.Fields['SELLPRICE1'].Value
else
objMaterial.SELLPRICE1 :=0;
listItem.SubItems.Add(format('%5.2f',[objMaterial.SELLPRICE1]));
if not VarIsNull(rs.Fields['SELLPRICE2'].Value) then
objMaterial.SELLPRICE2 :=rs.Fields['SELLPRICE2'].Value
else
objMaterial.SELLPRICE2 :=0;
listItem.SubItems.Add(format('%5.2f',[objMaterial.SELLPRICE2]));
if not VarIsNull(rs.Fields['STOCKS'].Value) then
objMaterial.STOCKS :=rs.Fields['STOCKS'].Value
else
objMaterial.STOCKS :=0;
listItem.SubItems.Add(format('%5.2f',[objMaterial.STOCKS]));
if not VarIsNull(rs.Fields['MAXNUM'].Value) then
objMaterial.MAXNUM :=rs.Fields['MAXNUM'].Value
else
objMaterial.MAXNUM :=0;
listItem.SubItems.Add(format('%5.2f',[objMaterial.MAXNUM]));
if not VarIsNull(rs.Fields['MINNUM'].Value) then
objMaterial.MINNUM :=rs.Fields['MINNUM'].Value
else
objMaterial.MINNUM :=0;
listItem.SubItems.Add(format('%5.2f',[objMaterial.MINNUM]));
listItem.Data := pointer(objMaterial);
rs.MoveNext;
lvMaterial.ItemIndex :=0;
lvMaterialClick(self);
end;
rs.Close;
end;
end;

end;
这个指南让你熟悉报表设计器和了解报表设计的基本概念(各种区域,数据源,二次表,等等)。指南将帮助你开始用FastReport创建报表,但它不能告诉你怎样使用其它基本的报表设计器。 如果你不熟悉报表设计器,我们建议你参考QuickReport的帮助系统。QuickReport的指南已经包含在你的Delphi拷贝中。QuickReport的大部分基本概念也适用于FastReport,然而,FastReport能提供更多的弹性和最终用户的自定义。 关于FastReport的说明 FastReport是高弹性的报表设计器,用于报表的数据可以从任何类型的数据源获取,包含字符列表,BDE数据库,ADO数据源(不使用BDE),Interbase(使用IBO),Pascal数组和记录,以及一些不常用的数据源。 整个FastReport系统是用Delphi的Pascal编写的。FastReport不需要动态链接库,但需在你的项目中占用大约400kb(Delphi 5)。如果你想最终用户拥有设计能力,这将在你的.EXE中增加大约500kb。虽然这看上去比较大,但这只是其它设计的几分之一。你同样应该考虑到FastReport不仅仅只是包含最终用户更改报表设计的能力,还能够适应查询和数据库的变化。FastReport还包含自己的脚本语言,让应用程序和最终用户能够更容易地改变报表。如果你的大部分应用使用FastReport,你可以简单地配置FastReport BPL(大约1400kb)而所有你的应用程序只需要保留很少的一部分。 你可以发现FastReport有一个非常吸引人的用户界面,使用最新的用户界面组件,例如可停靠的工具栏。你的最终用户将会非常愿意使用这个设计器,只需使用鼠标就可以创建大多数报表。 FastReport是名副其实的快速报表:较其它一些Delphi报表设计器而言,你可以发现没有什么可以接近于它的开发速度。报表预览窗口一直是大多数报表设计器的弱点,高品质的外观,赋于你的应用程序非常专业的用户界面。 FastReport是一个已经拥有三年历史的非常成熟的报表设计器,成长使它拥有其它Delphi报表设计器所不能相比的诸多先进特性。

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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