各位大侠,帮帮忙,我现在没什么积分拉!只能低分帮帮我,不胜感激!!!(20分)

  • 主题发起人 xuhanhui
  • 开始时间
X

xuhanhui

Unregistered / Unconfirmed
GUEST, unregistred user!
我是以为delphi新手,我想设计一个学生考勤表,数据表是在用Database desktop建的----
学生考勤表.db,用到 Table, Datasource , TDbFGribe 控件,能不能实现把每一天的
考勤信息以文件的形式保存起来,然后通过日期来显示每天的考勤情况!能不能实现,若能
该怎样来实现呢??快帮帮我拉!
 
完全可以,很简单。新手不要依赖别人帮你做,最好去各个DELPHI网站找下资料,自己研究下收获大。
 
同意楼上的,给你一段我写的代码,并不是针对性的解决你的问题,对你思考可能
有帮助,我懒得改了。
这段代码虽然是我写的,却是为了完成公司的项目,所以仅供参考,请不要直接用于
商业,毕竟我每个月才2000多也不容易。

//创建表
//muhx 20040417 am
function TDataManage.CreateDataTable: Boolean;
begin
Result := True;
if not DirectoryExists(fDataPath) then
begin
MkDir(fDataPath);
end;
with fTable do
begin
Active := False;
DatabaseName := fDataPath;
TableName := fTableName;
TableType := ttDBase;
if (Exists) then
begin
EmptyTable; //若表存在,清空表,避免在表中AppendData时发生重复
Exit;
end;
with FieldDefs do
begin
Clear;
Add('ZoneID', ftInteger, 0, False);
Add('BoardID', ftInteger, 0, False);
Add('CellName', ftString,30, False);
Add('IfSelected', ftBoolean, 0, False);
Add('Voltage', ftFloat, 0, False);
Add('TestTime', ftDateTime, 0, False);
end;

try
CreateTable;
except
on Exception do
begin
Result := False;
MessageDlg('不能在指定位置创建表!', mtError, [mbOK] ,0);
raise;
end;
end;
Active := False;
end;
end;
 
delphi目录下有DEMO
Borland/Delphi6/Demos/Db
这些都是基本功,DEMO都很好,看看对自己DELPHI水平有帮助的
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
919
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部