deiphi技术
hoge66
这个作者很懒,什么都没留下…
展开
-
关于DBGrid,禁止在插入/修改操作状态下移动光标到其他行时,数据自动修改(非客户端)!
在Dataset的beforPost事件中加入如下代码: if (ds1.FieldByName(wx_date).IsNull)or(ds1.FieldByName(wx_date).AsString=) then begin showmessage(请输入日期!); try ds1.Active:=false; //要继续操作按刷新按钮 Abort; excep原创 2004-07-01 11:32:00 · 1588 阅读 · 0 评论 -
在DBGrid中计算两个字段值的乘积!
procedure Tfrmfy.DBGridEh4KeyPress(Sender: TObject; var Key: Char);var strziduan1, strziduan2:string;begin if key=#13 then begin Flatbutton5.Click; if(DBGridEh4.SelectedField.FieldName=xc_cishu)or(D原创 2004-07-02 11:24:00 · 1869 阅读 · 0 评论 -
在Delphi中实现的“汽车每跑6000公里(>=6000)换机油”的提示功能!
首先,建立一个视图V_tishi,统计每辆车的车牌和行驶总公里数:再建立一个表:tishi,用来存储某个时间段的汽车车牌和行驶公里数,然后,通过比较V_tishi和tishi中的公里数得出该不该提示的结果。 程序中用到的一些重要SQL语句: --算差额select tishi.car_chepai,V_tishi.sumlc-tishi.ts_gongli as chaefrom V_tis原创 2004-06-24 16:03:00 · 1546 阅读 · 0 评论 -
delphi中实现Sqlserver2000数据库的备份与还原!
备份:varFileName:string;strsql:string; beginif openDialog1.Execute then begin FileName:=openDialog1.FileName; showmessage(FileName); try strsql:=backup database carxt to disk=+FileName+; r原创 2004-07-06 09:52:00 · 2983 阅读 · 6 评论 -
CheckListBox的一些用法!
//填充 strsql:=select cDepName ,cDepCode from department;rs.Close;rs.SQL.Clear;rs.SQL.Add(strsql);rs.Open;CheckListBox1.Clear;while not rs.Eof do begin ChecklistBox1.Items.Add(rs.FieldValues[cDepN原创 2004-07-28 15:46:00 · 3782 阅读 · 1 评论 -
撤销提示
procedure Tfrmfy.DBGridEh7DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);beginif dsbx.FieldByName(bx_check).AsInteger=1 thenbegi原创 2004-09-18 08:44:00 · 1061 阅读 · 0 评论 -
注册热键!
1.定义热键ID变量private { Private declarations } hotkeyID:integer;//全局变量,定义热键ID变量 procedure shorcut(var msg:TMessage);//定义 Windows 的消息WM_HOTKEY 的 HOOK 链 message WM_HOTKEY;2.注册热键:hotkeyID:=原创 2004-09-10 13:26:00 · 1347 阅读 · 0 评论