delphi CS 文件 服务器,CS架构的小型考勤管理软件Delphi版

于 2021-08-12 07:36:18 发布
阅读量329 收藏 1
点赞数
文章标签： delphi CS 文件 服务器

unit uServer;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ScktComp, StdCtrls, ExtCtrls, Buttons, ComCtrls, Grids, DB,IniFiles,

ADODB, IdBaseComponent, IdComponent, IdTCPServer, IdTimeServer, Psock,

NMFngr;

type

TFr_Server = class(TForm)

ServerSocket1: TServerSocket;

GroupBox1: TGroupBox;

Panel1: TPanel;

Label1: TLabel;

Ed_IP: TEdit;

Ed_port: TEdit;

Label2: TLabel;

StatusBar1: TStatusBar;

Btn_SetPort: TSpeedButton;

GroupBox2: TGroupBox;

StringGrid1: TStringGrid;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

ListBox1: TListBox;

Panel2: TPanel;

StringGrid2: TStringGrid;

Btn_Control: TSpeedButton;

Memo1: TMemo;

ADOQuery1: TADOQuery;

ADOConnection1: TADOConnection;

DateTimePicker1: TDateTimePicker;

Label3: TLabel;

IdTimeServer1: TIdTimeServer;

Btn_Search: TBitBtn;

GroupBox3: TGroupBox;

GroupBox4: TGroupBox;

Label4: TLabel;

Label5: TLabel;

Ed_manaName: TLabeledEdit;

Ed_manaPwd: TLabeledEdit;

Btn_Server: TBitBtn;

Ed_name: TLabeledEdit;

Ed_pwd: TLabeledEdit;

Btn_user: TBitBtn;

Ed_ID: TLabeledEdit;

CheckBox1: TCheckBox;

Btn_clear: TBitBtn;

Btn_del: TBitBtn;

NMFinger1: TNMFinger;

procedure ServerSocket1ClientRead(Sender: TObject;

Socket: TCustomWinSocket);

procedure Btn_ControlClick(Sender: TObject);

procedure ServerSocket1ClientConnect(Sender: TObject;

Socket: TCustomWinSocket);

procedure FormCreate(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Btn_SetPortClick(Sender: TObject);

procedure Btn_ServerClick(Sender: TObject);

procedure Btn_clearClick(Sender: TObject);

procedure Btn_userClick(Sender: TObject);

procedure Btn_delClick(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure Ed_manaNameKeyPress(Sender: TObject; var Key: Char);

procedure Ed_manaPwdKeyPress(Sender: TObject; var Key: Char);

procedure Ed_IDKeyPress(Sender: TObject; var Key: Char);

procedure Ed_pwdKeyPress(Sender: TObject; var Key: Char);

procedure Ed_nameKeyPress(Sender: TObject; var Key: Char);

procedure Btn_SearchClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Fr_Server: TFr_Server;

MiniFile: TiniFile;

procedure working;

procedure worked;

Function Search(tempID:string;tempstatus:string):bool;

Function EmpLogin(tempID:string;tempPwd:string):bool;

Function Temptime(TempID:string):String;

Function ReadLog(tempdate:Tdate):string;

implementation

{$R *.dfm}

procedure TFr_Server.ServerSocket1ClientRead(Sender: TObject;

Socket: TCustomWinSocket);

var Data:Tstringlist;

begin

try

Data:=Tstringlist.Create;

Data.Text:=Socket.ReceiveText;

if data.Text='' then exit;

if data.Values['login']='login' then

if EmpLogin(data.Values['user'],data.Values['password']) then

begin

socket.SendText('登录成功');

Listbox1.Items.Insert(0,'已经通过编号：员工的登录');

end

else

begin

socket.SendText('登录失败');

Listbox1.Items.Insert(0,'编号：的员工登录失败');

end;

if data.Values['Close']='Close' then

Listbox1.Items.Insert(0,'编号：的员工已经断开'+datetimetostr(now));

if data.Values['GoWork']='GoWork' then

try

if Search(data.Values['user'],'正在上班') then

begin

Socket.SendText('错误:你正在上班中!');

Exit;

end;

with ADOQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('insert into Server(员工编号,考勤日期,上班时间,上班状态)');

SQL.Add('values('+''''+data.Values['user']+''''+','+''''+datetostr(date)+''''+','+''''+timetostr(time)+''''+','+'"正在上班"'+')');

ExecSQL;

Socket.SendText('完成上班操作!');

Listbox1.Items.Insert(0,'编号：的员工已经上班'+datetimetostr(now));

end;

except

Socket.SendText('添加考勤记录时出错');

end;

if data.Values['OverWork']='OverWork' then

try

if not Search(data.Values['user'],'正在上班') then

begin

Socket.SendText('错误:你没有在上班中!');

Exit;

end;

with ADOQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('update Server set 下班时间='+''''+timetostr(time)+''''+','+'上班状态='+'"上班结束"');

SQL.Add(',合计时长='+''''+timetoStr(Time-Strtotime(Temptime(data.Values['user'])))+'''');

SQL.Add('where 员工编号='+''''+data.Values['user']+'''');

SQL.Add('and 上班状态='+'"正在上班"');

ExecSQL;

Socket.SendText('完成下班操作!');

Listbox1.Items.Insert(0,'编号：的员工已经下班'+datetimetostr(now));

end;

except

Socket.SendText('下班考勤时出错!');

end;

finally

data.Free;

working;

end;

end;

procedure TFr_Server.Btn_ControlClick(Sender: TObject);

begin

ServerSocket1.Port:=strtoint(Ed_port.Text);

ServerSocket1.Active:=not ServerSocket1.Active;

if serversocket1.Active then

Listbox1.Items.Insert(0,'服务器已启动：'+datetimetostr(now))

else

Listbox1.Items.Insert(0,'服务器已停止：'+datetimetostr(now))

end;

procedure TFr_Server.ServerSocket1ClientConnect(Sender: TObject;

Socket: TCustomWinSocket);

begin

Listbox1.Items.Insert(0,'有客户机请求登录'+datetimetostr(now));

end;

procedure TFr_Server.FormCreate(Sender: TObject);

begin

if fileexists(extractfilepath(application.exename)+'Server.ini') then

begin

MiniFile:=Tinifile.Create(extractfilepath(application.exename)+'Server.ini');

Ed_port.Text:=MiniFile.ReadString('SET','port','');

MiniFile.Free;

end;

if not fileexists(extractfilepath(application.ExeName)+'Db\db_Server.mdb') then

begin

Btn_Control.Enabled:=False;

Btn_SetPort.Enabled:=False;

MessageBox(handle,Pchar('数据库文件找不到,请检查'+extractfilepath(application.exename)+'Db目录下的数据库文件'),'数据库文件丢失',Mb_iconinformation);

exit;

end;

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(application.ExeName)+'Db\db_Server.mdb'+';Persist Security Info=False';

ADOConnection1.Connected:=True;

end;

procedure working;

var i,j:integer;

begin

With Fr_server.ADOQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('select Server.员工编号,Employee.员工姓名 from Server,Employee');

SQL.Add('where Server.上班状态='+'"正在上班"');

SQL.Add('and Server.员工编号=Employee.员工编号');

open;

end;

with Fr_server do

begin

for i:=0 to Stringgrid1.RowCount do

for j:=1 to 3 do

stringgrid1.Cells[j,i]:='';

if ADOQuery1.RecordCount>5 then Stringgrid1.RowCount:=ADOQuery1.RecordCount+1;

if ADOQuery1.RecordCount>0 then

for i:=1 to ADOQuery1.RecordCount do

begin

Stringgrid1.Cells[0,0]:='序号';

stringgrid1.Cells[1,0]:='员工编号';

Stringgrid1.Cells[2,0]:='员工姓名';

Stringgrid1.Cells[0,i]:=inttostr(i);

Stringgrid1.Cells[1,i]:=AdoQuery1.fieldbyname('员工编号').AsString;

Stringgrid1.Cells[2,i]:=AdoQuery1.fieldbyname('员工姓名').AsString;

if not ADOQuery1.Eof then ADOQuery1.Next;

end;

end;

end;

procedure worked;

var i,j:integer;

begin

With Fr_server.ADOQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('select Server.员工编号,Employee.员工姓名,Server.考勤日期,Server.上班时间,Server.下班时间 from Server,Employee');

SQL.Add('where Server.员工编号=Employee.员工编号');

SQL.Add('order by Server.员工编号,Server.考勤日期');

open;

end;

with Fr_server do

begin

for i:=0 to Stringgrid2.RowCount do

for j:=1 to 6 do

stringgrid2.Cells[j,i]:='';

if ADOQuery1.RecordCount>5 then Stringgrid2.RowCount:=ADOQuery1.RecordCount+1;

if ADOQuery1.RecordCount>0 then

for i:=1 to ADOQuery1.RecordCount do

begin

Stringgrid2.Cells[0,0]:='序号';

stringgrid2.Cells[1,0]:='员工姓名';

Stringgrid2.Cells[2,0]:='考勤日期';

Stringgrid2.Cells[3,0]:='上班时间';

stringgrid2.Cells[4,0]:='下班时间';

Stringgrid2.Cells[5,0]:='员工编号';

Stringgrid2.Cells[0,i]:=inttostr(i);

Stringgrid2.Cells[1,i]:=AdoQuery1.fieldbyname('员工姓名').AsString;

Stringgrid2.Cells[2,i]:=AdoQuery1.fieldbyname('考勤日期').AsString;

Stringgrid2.Cells[3,i]:=AdoQuery1.fieldbyname('上班时间').AsString;

Stringgrid2.Cells[4,i]:=AdoQuery1.fieldbyname('下班时间').AsString;

Stringgrid2.Cells[5,i]:=AdoQuery1.fieldbyname('员工编号').AsString;

if not ADOQuery1.Eof then ADOQuery1.Next;

end;

end;

end;

procedure TFr_Server.FormShow(Sender: TObject);

begin

Ed_ip.Text:=Nmfinger1.LocalIP;

working;

end;

Function Search(tempID:string;tempstatus:string):bool;

var MADOQuery:TADOQuery;

begin

MADOQuery:=TADOQuery.Create(Application);

MADOQuery.Connection:=Fr_Server.ADOConnection1;

try

with MADOQuery do

begin

Close;

SQL.Clear;

SQL.Add('select * from Server');

SQL.Add('where 上班状态='+''''+tempstatus+'''');

SQL.Add('and 员工编号='+''''+tempID+'''');

Open;

end;

if MADOQuery.RecordCount>0 then result:=True

else Result:=False;

finally

MADOQuery.Free;

end;

end;

Function EmpLogin(tempID:string;tempPwd:string):bool;

var MADOQuery:TADOQuery;

begin

MADOQuery:=TADOQuery.Create(Application);

MADOQuery.Connection:=Fr_Server.ADOConnection1;

try

with MADOQuery do

begin

Close;

SQL.Clear;

SQL.Add('select * from Employee');

SQL.Add('where 员工口令='+''''+tempPwd+'''');

SQL.Add('and 员工编号='+''''+tempID+'''');

Open;

end;

if MADOQuery.RecordCount>0 then result:=True

else Result:=False;

finally

MADOQuery.Free;

end;

end;

Function Temptime(TempID:string):String;

var MADOQuery:TADOQuery;

begin

MADOQuery:=TADOQuery.Create(Application);

MADOQuery.Connection:=Fr_Server.ADOConnection1;

try

with MADOQuery do

begin

Close;

SQL.Clear;

SQL.Add('select * from Server');

SQL.Add('where 上班状态='+'"正在上班"');

SQL.Add('and 员工编号='+''''+tempID+'''');

Open;

end;

if MADOQuery.RecordCount>0 then result:=MADOQuery.fieldbyname('上班时间').AsString

else Exit;

finally

MADOQuery.Free;

end;

end;

procedure TFr_Server.Btn_SetPortClick(Sender: TObject);

begin

MiniFile:=Tinifile.Create(extractfilepath(application.exename)+'Server.ini');

MiniFile.WriteString('SET','port',Ed_port.Text);

MiniFile.Free;

showmessage('完成设置!');

listbox1.Items.Insert(0,'修改了端口'+datetimetostr(now));

end;

procedure TFr_Server.Btn_ServerClick(Sender: TObject);

var MADOQuery:TADOQuery;

begin

MADOQuery:=TADOQuery.Create(Application);

MADOQuery.Connection:=Fr_Server.ADOConnection1;

try

with MADOQuery do

begin

Close;

SQL.Clear;

SQL.Add('select * from Employee');

SQL.Add('where 员工口令='+''''+Ed_manapwd.Text+'''');

SQL.Add('and 员工姓名='+''''+Ed_manaName.Text+'''');

SQL.Add('and 员工身份='+'"系统管理"');

Open;

end;

if MADOQuery.RecordCount>0 then

begin

Btn_setport.Enabled:=True;

Btn_control.Enabled:=True;

Btn_user.Enabled:=True;

Btn_search.Enabled:=True;

Btn_clear.Enabled:=True;

Btn_del.Enabled:=True;

Btn_Server.Enabled:=False;

showmessage('登录成功！');

Listbox1.Items.Insert(0,'管理员:'+Ed_manaName.Text+'登录成功'+datetimetostr(now));

Ed_manapwd.Text:='';

working;

worked;

Memo1.Lines.LoadFromFile(ReadLog(date));

end

else

begin

Btn_setport.Enabled:=False;

Btn_control.Enabled:=False;

Btn_user.Enabled:=False;

Btn_search.Enabled:=False;

Btn_clear.Enabled:=False;

Btn_del.Enabled:=False;

Btn_Server.Enabled:=True;

showmessage('登录失败！');

Ed_manapwd.Text:='';

Listbox1.Items.Insert(0,'管理员:'+Ed_manaName.Text+'登录失败'+datetimetostr(now));

end;

finally

MADOQuery.Free;

end;

end;

procedure TFr_Server.Btn_clearClick(Sender: TObject);

begin

Btn_setport.Enabled:=False;

Btn_control.Enabled:=False;

Btn_user.Enabled:=False;

Btn_search.Enabled:=False;

Btn_clear.Enabled:=False;

Btn_del.Enabled:=False;

Btn_Server.Enabled:=True;

showmessage('注销成功！');

Listbox1.Items.Insert(0,'管理员已注销'+datetimetostr(now));

end;

procedure TFr_Server.Btn_userClick(Sender: TObject);

var temp:string;

begin

if Ed_ID.Text='' then Exit;

if Ed_pwd.Text='' then Exit;

if CheckBox1.Checked then temp:='系统管理'

else temp:='普通用户';

with ADOQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('select * from Employee');

SQL.Add('where 员工编号='+''''+Ed_ID.Text+'''');

Open;

end;

if ADOQuery1.RecordCount>0 then

begin

Showmessage('该员工编号已经存在！');

Exit;

end

else with ADOQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('insert into Employee(员工编号,员工姓名,员工口令,员工身份)');

SQL.Add('values('+''''+Ed_ID.Text+''''+','+''''+Ed_name.Text+''''+','+''''+Ed_pwd.Text+''''+','+''''+temp+''''+')');

ExecSQL;

Showmessage('添加成功');

Listbox1.Items.Insert(0,'添加了编号为：的员工'+datetimetostr(now));

end;

end;

procedure TFr_Server.Btn_delClick(Sender: TObject);

var tempID:string;

begin

inputQuery('请输入要删除的员工编号：','确认删除',tempID);

if tempID<>'' then

with ADOQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('select * from Employee');

SQL.Add('where 员工编号='+''''+tempID+'''');

Open;

end;

if ADOQuery1.RecordCount<0 then

begin

Showmessage('该员工编号不存在！');

Exit;

end

else

if ADOQuery1.FieldByName('员工身份').AsString='系统管理' then

if MessageBox(handle,'该员工是管理员,真的删除吗?','删除确认',Mb_iconQuestion or Mb_YESNO)=IDNo then Exit;

With ADOQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('update Employee set 删除标志='+'"是"');

SQL.Add('where 员工编号='+''''+tempID+'''');

ExecSQL;

Showmessage('删除成功！');

listbox1.Items.Insert(0,'删除了员工:'+tempID+datetimetostr(now));

end;

end;

procedure TFr_Server.FormCloseQuery(Sender: TObject;

var CanClose: Boolean);

var TempMemo:Tmemo;

i:integer;

begin

if trim(Stringgrid1.Cells[1,1])<>'' then

if MessageBox(handle,'还有员工未下班，你确认退出吗?','退出确认',Mb_iconQuestion or Mb_YESNO)=IDNO then

begin

CanClose:=False;

exit;

end;

TempMemo:=TMemo.Create(Application);

TempMemo.Parent:=Fr_server;

TempMemo.Clear;

if Btn_control.Enabled then listbox1.Items.insert(0,'系统已经关闭'+datetimetostr(now));

try

try

TempMemo.Lines.LoadFromFile(ReadLog(date));

for i:=0 to listbox1.Items.Count-1 do

begin

TempMemo.Lines.Add(listbox1.Items.Strings[i]);

TempMemo.Lines.SaveToFile(ReadLog(date));

end;

except

CanClose:=True;

end;

finally

tempmemo.Free;

end;

end;

procedure TFr_Server.Ed_manaNameKeyPress(Sender: TObject; var Key: Char);

begin

if key=chr(13) then

postmessage(handle,wm_keydown,vk_Tab,0);

end;

procedure TFr_Server.Ed_manaPwdKeyPress(Sender: TObject; var Key: Char);

begin

if key=chr(13) then Btn_server.Click;

end;

procedure TFr_Server.Ed_IDKeyPress(Sender: TObject; var Key: Char);

begin

if key=chr(13) then

postmessage(handle,wm_keydown,vk_Tab,0);

end;

procedure TFr_Server.Ed_pwdKeyPress(Sender: TObject; var Key: Char);

begin

if key=chr(13) then

postmessage(handle,wm_keydown,vk_Tab,0);

end;

procedure TFr_Server.Ed_nameKeyPress(Sender: TObject; var Key: Char);

begin

if key=chr(13) then

postmessage(handle,wm_keydown,vk_Tab,0);

end;

Function ReadLog(tempdate:Tdate):string;

var i:integer;

begin

for i:=1 to 10 do

if not fileexists(Extractfilepath(Application.ExeName)+'Log\'+datetostr(tempdate)+'.Txt') then

tempdate:=date-i

else break;

if i<10 then result:=Extractfilepath(Application.ExeName)+'Log\'+datetostr(tempdate)+'.Txt'

else

try

begin

filecreate(Extractfilepath(Application.ExeName)+'Log\'+datetostr(date)+'.Txt');

result:=Extractfilepath(Application.ExeName)+'Log\'+datetostr(date)+'.Txt';

end;

except

end;

end;

procedure TFr_Server.Btn_SearchClick(Sender: TObject);

var tempY,tempM,tempD:word;

temp:string;

i,j:integer;

begin

decodedate(datetimepicker1.Date,tempY,tempM,tempD);

temp:=inttostr(tempY)+'-'+inttostr(tempM)+'-'+inttostr(tempD);

delete(temp,1,2);

With Fr_server.ADOQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('select Server.员工编号,Employee.员工姓名,Server.考勤日期,Server.上班时间,Server.下班时间 from Server,Employee');

SQL.Add('where Server.员工编号=Employee.员工编号');

SQL.Add('and 考勤日期='+''''+temp+'''');

SQL.Add('order by Server.员工编号,Server.考勤日期');

open;

end;

with Fr_server do

begin

for i:=0 to Stringgrid2.RowCount do

for j:=1 to 6 do

stringgrid2.Cells[j,i]:='';

if ADOQuery1.RecordCount>5 then Stringgrid2.RowCount:=ADOQuery1.RecordCount+1;

if ADOQuery1.RecordCount>0 then

for i:=1 to ADOQuery1.RecordCount do

begin

Stringgrid2.Cells[0,0]:='序号';

stringgrid2.Cells[1,0]:='员工姓名';

Stringgrid2.Cells[2,0]:='考勤日期';

Stringgrid2.Cells[3,0]:='上班时间';

stringgrid2.Cells[4,0]:='下班时间';

Stringgrid2.Cells[5,0]:='员工编号';

Stringgrid2.Cells[0,i]:=inttostr(i);

Stringgrid2.Cells[1,i]:=AdoQuery1.fieldbyname('员工姓名').AsString;

Stringgrid2.Cells[2,i]:=AdoQuery1.fieldbyname('考勤日期').AsString;

Stringgrid2.Cells[3,i]:=AdoQuery1.fieldbyname('上班时间').AsString;

Stringgrid2.Cells[4,i]:=AdoQuery1.fieldbyname('下班时间').AsString;

Stringgrid2.Cells[5,i]:=AdoQuery1.fieldbyname('员工编号').AsString;

if not ADOQuery1.Eof then ADOQuery1.Next;

end;

end;

end;

end.



更多源码 | 好库简介 | 网站地图 | 帮助中心 | 版权说明

Copyright© 2009-2012 OKBASE.NET All Rights Reserved 好库网 版权所有

PivotEdu中枢教育
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
中控科技考勤机java开发包_ZKEMSDK 中控考勤机二次开发系统 SDK包及demo案例 - 下载 - 搜珍网...
weixin_34308696的博客
02-27 736
ZKEMSDK/demo/Delphi/AA.wavZKEMSDK/demo/Delphi/beep.wavZKEMSDK/demo/Delphi/E_0.wavZKEMSDK/demo/Delphi/E_1.wavZKEMSDK/demo/Delphi/E_10.wavZKEMSDK/demo/Delphi/E_11.wavZKEMSDK/demo/Delphi/E_13.wavZKEMSDK/...
Delphi 中小型企业考勤管理系统源码.rar
07-10
一款由Delphi开发的中小型企业适用的考勤管理系统源码，源代码开源，程序主体为CS结构，有服务端和客户端，测试时需要服务端先运行，然后启动客户端后使用帐号密码登录才可使用，服务端一直保持运行，当员工启动...
海康威视2次开发delphi demo
03-09
海康威视2次开发delphi demo,实现抓图，预览功能
delphi三层架构
热门推荐
pcwe2002的专栏
09-13 1万+
我们的delphi程序很多是以前开发的，采用典型的CS架构，由程序直接连接数据库。现在需要改成在外网可以直接操作软件。先把数据库搬到了阿里云上，测试发现直接连数据库和VPN连接测试速度很慢，直连还容易掉线。服务器申请大的带宽又太贵。把数据访问和一些业务逻辑改写成服务，由于软件太大，开发和测试需要投入大量工作，也不现实。最后通过使用SATRDA解决了问题。 SATRDA 服务器和客...
CS架构的小型考勤管理软件Delphi版
09-04
CS架构的小型考勤管理软件Delphi版 CS架构的小型考勤管理软件Delphi版，也就是包括服务器端和客户端，使用Access存储相关配置信息和员工信息。运行界面如上图示。平时员工使用的是客户端，登录后即表明已上班，当然，软件还不完善，本着学习研究的目的，将程序共享出来，高手不要拍砖。
delphi CS 文件 服务器,delphi+三层架构CS简单例子一步步做.doc
weixin_31238109的博客
08-12 662
文档介绍：delphi三层CS架构一步步建立的简单例子所谓三层:(1)客户端(2)服务器端(3)数据库在数据访问时,使得客户端必须通过服务器来访问数据库。提高了系统的安全性。组件来连接他们相互间的通讯。本例使用SOCKET组件.DCOM用在局域网,SOCKET用在互联网.环境为windowsxp+delphi7+access2000创建过程:1、ESS2000新建一个数据库database...
delphi xe 文件服务器,DelphiXE7中创建WebService(服务端+客户端)
weixin_35645813的博客
08-11 666
相关资料：http://www.2ccc.com/news/Html/?1507.htmlhttp://www.dfwlt.com/forum.php?mod=viewthread&tid=922DelphiXE7新建WebService具体操作：1.打开“DelphiXE7”->“File”->“New”->“Other”2.“New Items”－>“Delph...
delphi商业源码
qq_18932003的博客
11-07 2294
人事系统商业源码分享下载了（五） B帐考勤软件.rar: http://secyaher.ctfile.com/fs/BM321184906 CS架构的小型考勤管理软件Delphi版 cskq.rar: http://secyaher.ctfile.com/fs/WLL21184907 Delphi1.06--高校人事管理信息系统.zip: http://secyaher.ctfile.co...
有关Delphi控件开发讨论
桂林哈秋 - 我想学编程
06-10 9287
本论总预算1000分, 想与此道高手结识, 有能者得之请勿发表不相干言论, 分数只会分给内容最精辟正确之人; 没有具体言论者, 请勿回复; 相同意见, 只给第一个发表之人以下是可以回答的方向, 供参考1.  VCL控件开发的几个主要基类TComponent、TControl、TWinControl、TGraphicControl、TCustomControl的主要功能及各类用途!?2.  Comp
delphi人事考勤系统源代码
08-14
为个人业余时间所写自由软件也是一个免费软件，不用于任何商业目的，无版权及使用方面限制。和1.6相比，增加了空库测试容错性，删除关联性等方面，稳定性有了大的提高，功能方面设工种、职称、民族、学历及专业为自设项，数据库复原改为可选数据文件方式；由于为个人业余时间所写，应用需求及合理性有其不完善的地方，此版本仅是基本档案管理版，功能比较单一
基于.NET的人事薪资考勤管理系统源码(C#源码).rar
10-08
基于.NET的人事薪资考勤管理系统源码(C#源码).rar 因小部分源码比较重要 是引用某商业代码 因此去掉了 但是不影响使用的
精典源码Delphi044：指纹考勤管理系统.rar
08-18
精典源码Delphi044：指纹考勤管理系统.rar
精典源码Delphi023：中控指纹机接口软件源码.rar
08-18
精典源码Delphi023：中控指纹机接口软件源码.rar
考勤管理系统（Delphi+SQL Server）
01-04
刚学Delphi和数据库！这是期末课程设计！简单写了一个考勤管理,还有很多功能没有实现！
人事管理系统 cs 数据库 delphi
06-09
本文将围绕“人事管理系统 cs 数据库 delphi”这一主题，详细探讨如何使用Delphi编程语言结合SQL数据库技术，构建一个客户-服务器（Client-Server，简称cs）架构的人事管理系统。 首先，让我们理解一下人事管理系统...
CS模式的考勤系统(delphi)
05-09
用delphi 编写的c/s模式的考勤系统
asp.net_sql2008公司人事管理系统.rar
最新发布
04-04
该系统旨在帮助公司高效地进行员工信息管理、考勤记录、薪资计算、福利发放等人力资源相关工作。 【描述】：这个压缩包包含了一个使用ASP.NET作为前端开发语言，SQL Server 2008作为后端数据库的人事管理系统源代码...
考勤管理系统的源代码
08-25
一款使用Delphi开发的出勤管理软件，考勤管理系统的源代码，附有SQL建库脚本，登录界面如上图所示，系统可以进行程序设置，出勤记录录入与查看，系统统计等三大模块功能，虽然比较简单，但几乎囊括了所有的数据库操作，因此来说，是新手学习数据库编程的必备参考程序。
基于Delphi的人事管理系统的设计
01-16
"基于Delphi的人事管理系统设计，用于中小企业的员工信息管理、考勤管理和工资管理，旨在提升企业管理效率，实现信息化、自动化。系统包括员工基本信息管理、考勤管理、工资管理等功能，并具备数据维护能力。" 本文...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值