50分送出去~~说说该什么使用Tfield中onchange onGetText OnSetText onValidate .详细有分 OnGetText,指需要显示一个编辑时显示的内容时激发,其中Text是显示的内容,OnSetText,在设置了一个编辑的内容后激发,其中Text是编辑的内容, 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 >>要什么编程,给个例子吧,俺有的是分,嫌不够俺可再加 那么有分呀 8-0~~~~~~如果下面的例子满意,你能把分翻翻吗?!!//********************//********************unit1.dfm//********************object Form1: TForm1 Left = 192 Top = 168 Width = 544 Height = 375 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object DBGrid1: TDBGrid Left = 24 Top = 136 Width = 489 Height = 185 DataSource = DataSource1 TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object DBNavigator1: TDBNavigator Left = 256 Top = 32 Width = 240 Height = 25 DataSource = DataSource1 TabOrder = 1 end object Button1: TButton Left = 200 Top = 88 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 2 OnClick = Button1Click end object Table1: TTable Active = True DatabaseName = 'DBDEMOS' TableName = 'animals.dbf' Left = 72 Top = 40 object Table1NAME: TStringField FieldName = 'NAME' OnGetText = Table1NAMEGetText OnSetText = Table1NAMESetText Size = 10 end object Table1SIZE: TSmallintField FieldName = 'SIZE' OnGetText = Table1SIZEGetText end object Table1WEIGHT: TSmallintField FieldName = 'WEIGHT' OnValidate = Table1WEIGHTValidate end object Table1AREA: TStringField FieldName = 'AREA' end end object DataSource1: TDataSource DataSet = Table1 Left = 128 Top = 48 endend//********************//********************unit1.pas//********************unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, StdCtrls;type TForm1 = class(TForm) Table1: TTable; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; DataSource1: TDataSource; Table1NAME: TStringField; Table1SIZE: TSmallintField; Table1WEIGHT: TSmallintField; Table1AREA: TStringField; Button1: TButton; procedure Button1Click(Sender: TObject); procedure Table1SIZEGetText(Sender: TField; var Text: String; DisplayText: Boolean); procedure Table1NAMESetText(Sender: TField; const Text: String); procedure Table1NAMEGetText(Sender: TField; var Text: String; DisplayText: Boolean); procedure Table1WEIGHTValidate(Sender: TField); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);begin close;end;procedure TForm1.Table1SIZEGetText(Sender: TField; var Text: String; DisplayText: Boolean);begin if DisplayText then begin if (Sender.AsInteger >= 0) and (Sender.AsInteger < 10) then Text := '小鱼' else if (Sender.AsInteger >= 10) and (Sender.AsInteger < 30) then Text := '中鱼' else if (Sender.AsInteger >= 30) then Text := '大鱼' end else Text := Sender.AsString;end;procedure TForm1.Table1NAMESetText(Sender: TField; const Text: String);begin Sender.AsString := '鱼' + Text;end;procedure TForm1.Table1NAMEGetText(Sender: TField; var Text: String; DisplayText: Boolean);begin Text := Sender.AsString; if not DisplayText then begin if 1 = pos('鱼',Text) then delete(Text,1,2); end;end;procedure TForm1.Table1WEIGHTValidate(Sender: TField);begin if Sender.AsInteger < 0 then begin ShowMessage('鱼的重量可以是负数吗????,重来!!'); Abort; end; if Sender.AsInteger >= 20000 then begin ShowMessage('这鱼该减肥了!!!,再来.'); Abort; end;end;end. tO;guig(胖胖)我运行正常,但操作老是出错,请综合考虑,写一个完整,我另外加50分给你给个日期型字段的使用吧俺说过,俺有的是分~~~~~~大家一起来,我觉得满意可以再单独加分 呵呵呵 swf文件说明书有中文的吗 deipli spcomm不能接收循环发来的信息???? 水晶报表10在delphi中使用出现的问题 专业制作安装程序 Flash.OCX问题,请教高手 动态连接数据库时如何获取数据库中的表单?相当于ADODataSet1中的CommandText 哪儿有免费的游戏下载 用delphi的兄第快来帮忙。小弟在线等待。分不够还可以加感谢!!! 如何在wise 打包时,将几个excel文件安装到目标机器上的“我的文档下面”??? 如何规定在编辑框里输入的是数字 如何卸载动态装载的组件? 如何使DateTimePicker不显示秒?
那么有分呀 8-0~~~~~~
如果下面的例子满意,你能把分翻翻吗?!!//********************
//********************unit1.dfm
//********************
object Form1: TForm1
Left = 192
Top = 168
Width = 544
Height = 375
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 24
Top = 136
Width = 489
Height = 185
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DBNavigator1: TDBNavigator
Left = 256
Top = 32
Width = 240
Height = 25
DataSource = DataSource1
TabOrder = 1
end
object Button1: TButton
Left = 200
Top = 88
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 2
OnClick = Button1Click
end
object Table1: TTable
Active = True
DatabaseName = 'DBDEMOS'
TableName = 'animals.dbf'
Left = 72
Top = 40
object Table1NAME: TStringField
FieldName = 'NAME'
OnGetText = Table1NAMEGetText
OnSetText = Table1NAMESetText
Size = 10
end
object Table1SIZE: TSmallintField
FieldName = 'SIZE'
OnGetText = Table1SIZEGetText
end
object Table1WEIGHT: TSmallintField
FieldName = 'WEIGHT'
OnValidate = Table1WEIGHTValidate
end
object Table1AREA: TStringField
FieldName = 'AREA'
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 128
Top = 48
end
end//********************
//********************unit1.pas
//********************
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, StdCtrls;type
TForm1 = class(TForm)
Table1: TTable;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
Table1NAME: TStringField;
Table1SIZE: TSmallintField;
Table1WEIGHT: TSmallintField;
Table1AREA: TStringField;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Table1SIZEGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure Table1NAMESetText(Sender: TField; const Text: String);
procedure Table1NAMEGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure Table1WEIGHTValidate(Sender: TField);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;procedure TForm1.Table1SIZEGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
if DisplayText then
begin
if (Sender.AsInteger >= 0) and (Sender.AsInteger < 10) then
Text := '小鱼'
else if (Sender.AsInteger >= 10) and (Sender.AsInteger < 30) then
Text := '中鱼'
else if (Sender.AsInteger >= 30) then
Text := '大鱼'
end else
Text := Sender.AsString;end;procedure TForm1.Table1NAMESetText(Sender: TField; const Text: String);
begin
Sender.AsString := '鱼' + Text;
end;procedure TForm1.Table1NAMEGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text := Sender.AsString;
if not DisplayText then
begin
if 1 = pos('鱼',Text) then
delete(Text,1,2);
end;end;procedure TForm1.Table1WEIGHTValidate(Sender: TField);
begin
if Sender.AsInteger < 0 then
begin
ShowMessage('鱼的重量可以是负数吗????,重来!!');
Abort;
end; if Sender.AsInteger >= 20000 then
begin
ShowMessage('这鱼该减肥了!!!,再来.');
Abort;
end;end;end.
我运行正常,但操作老是出错,请综合考虑,写一个完整,我另外加50分给你
给个日期型字段的使用吧俺说过,俺有的是分~~~~~~大家一起来,我觉得满意可以再单独加分 呵呵呵