控制网吧时间程序代码

NC217 2011-10-11 10:40:06
写一个计费程序,可是记录临时卡的每个客人的消费情况,请给出源代码,谢谢(每小时3元临时卡,会员卡2.5元)
可以查询余额又可以结账.也可以换机.
...全文
157 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
Elkyboy2010 2011-10-15
  • 打赏
  • 举报
 回复
Delphi(Pascal) code
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Excel2000, OleServer, DB, ADODB, Grids, DBGrids;

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
ExcelApplication1: TExcelApplication;
ExcelWorkbook1: TExcelWorkbook;
ExcelWorksheet1: TExcelWorksheet;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,Cel,Row: Integer;
EParam : OleVariant;
begin
try
self.ExcelApplication1.Connect;
except
ShowMessage('打开Excel失败');
exit;
end;
self.ExcelApplication1.Visible[0] := true;
self.ExcelApplication1.Caption := '导入excel试验';
ExcelWorkbook1.ConnectTo(ExcelApplication1.
Workbooks.Add(EmptyParam,0));

ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);//ExcelWorkbook1与Eexcelapplication1建立连接
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);//Excelworksheet1与Excelworkbook1建立连接
self.ADOQuery1.Close;
self.ADOQuery1.Open;
self.ExcelWorksheet1.Cells.Item[1,1] := '姓名';
self.ExcelWorksheet1.Cells.Item[1,2] := '年龄';
self.ExcelWorksheet1.Cells.Item[1,3] := '说明';
self.ADOQuery1.First;
row := 2;
while not self.ADOQuery1.Eof do
begin
Cel := 1;
for i := 1 to self.ADOQuery1.RecordCount do
begin
self.ExcelWorksheet1.Cells.Item[row,Cel] := self.ADOQuery1.Fields[i-1].AsString;
Cel := Cel + 1;
end;
self.ADOQuery1.Next;
Row := Row + 1;
end;

ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
showmessage('数据转换完毕！');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,Cel,Row: Integer;
EParam,DocuType,wkBk : OleVariant;
begin
try
self.ExcelApplication1.Connect;
except
ShowMessage('打开Excel失败');
exit;
end;
opendialog1.Execute;
self.ExcelApplication1.Visible[0] := False;
self.ExcelApplication1.Caption := 'excelToDb试验';
EParam:=EmptyParam;
DocuType:=0;
try
wkBk:=ExcelApplication1.Workbooks.Add(EParam, DocuType);

wkBk:=ExcelApplication1.WorkBooks.Open(opendialog1.FileName,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,
EmptyParam,EmptyParam,DocuType,EmptyParam,DocuType);
except
begin
ExcelApplication1.Disconnect;//出现异常情况时关闭
ExcelApplication1.Quit;
showmessage('请选择EXCEL数据表格！');
exit;
end;
end;
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);//ExcelWorkbook1与Eexcelapplication1建立连接
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);//Excelworksheet1与Excelworkbook1建立连接
self.ADOQuery1.Close;
self.ADOQuery1.SQL.Clear;
self.ADOQuery1.SQL.Text := 'select * from TB2';
self.ADOQuery1.Open;
for i := 1 to 4 do
begin
if trim(excelworksheet1.cells.item[i+1,1])<>'' then
begin
self.ADOQuery1.Append;
self.ADOQuery1.FieldByName('Name').AsString := ExcelWorksheet1.Cells.Item [i+1,1];
self.ADOQuery1.FieldByName('Age').AsString := ExcelWorksheet1.Cells.Item [i+1,2];
self.ADOQuery1.FieldByName('Memo').AsString := ExcelWorksheet1.Cells.Item [i+1,3];
ADOQuery1.Post;
end;
end;

ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
showmessage('数据转换完毕！');
end;

end.

Elkyboy2010 2011-10-15
  • 打赏
  • 举报
 回复
Delphi(Pascal) code
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Excel2000, OleServer, DB, ADODB, Grids, DBGrids;

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
ExcelApplication1: TExcelApplication;
ExcelWorkbook1: TExcelWorkbook;
ExcelWorksheet1: TExcelWorksheet;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,Cel,Row: Integer;
EParam : OleVariant;
begin
try
self.ExcelApplication1.Connect;
except
ShowMessage('打开Excel失败');
exit;
end;
self.ExcelApplication1.Visible[0] := true;
self.ExcelApplication1.Caption := '导入excel试验';
ExcelWorkbook1.ConnectTo(ExcelApplication1.
Workbooks.Add(EmptyParam,0));

ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);//ExcelWorkbook1与Eexcelapplication1建立连接
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);//Excelworksheet1与Excelworkbook1建立连接
self.ADOQuery1.Close;
self.ADOQuery1.Open;
self.ExcelWorksheet1.Cells.Item[1,1] := '姓名';
self.ExcelWorksheet1.Cells.Item[1,2] := '年龄';
self.ExcelWorksheet1.Cells.Item[1,3] := '说明';
self.ADOQuery1.First;
row := 2;
while not self.ADOQuery1.Eof do
begin
Cel := 1;
for i := 1 to self.ADOQuery1.RecordCount do
begin
self.ExcelWorksheet1.Cells.Item[row,Cel] := self.ADOQuery1.Fields[i-1].AsString;
Cel := Cel + 1;
end;
self.ADOQuery1.Next;
Row := Row + 1;
end;

ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
showmessage('数据转换完毕！');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,Cel,Row: Integer;
EParam,DocuType,wkBk : OleVariant;
begin
try
self.ExcelApplication1.Connect;
except
ShowMessage('打开Excel失败');
exit;
end;
opendialog1.Execute;
self.ExcelApplication1.Visible[0] := False;
self.ExcelApplication1.Caption := 'excelToDb试验';
EParam:=EmptyParam;
DocuType:=0;
try
wkBk:=ExcelApplication1.Workbooks.Add(EParam, DocuType);

wkBk:=ExcelApplication1.WorkBooks.Open(opendialog1.FileName,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,
EmptyParam,EmptyParam,DocuType,EmptyParam,DocuType);
except
begin
ExcelApplication1.Disconnect;//出现异常情况时关闭
ExcelApplication1.Quit;
showmessage('请选择EXCEL数据表格！');
exit;
end;
end;
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);//ExcelWorkbook1与Eexcelapplication1建立连接
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);//Excelworksheet1与Excelworkbook1建立连接
self.ADOQuery1.Close;
self.ADOQuery1.SQL.Clear;
self.ADOQuery1.SQL.Text := 'select * from TB2';
self.ADOQuery1.Open;
for i := 1 to 4 do
begin
if trim(excelworksheet1.cells.item[i+1,1])<>'' then
begin
self.ADOQuery1.Append;
self.ADOQuery1.FieldByName('Name').AsString := ExcelWorksheet1.Cells.Item [i+1,1];
self.ADOQuery1.FieldByName('Age').AsString := ExcelWorksheet1.Cells.Item [i+1,2];
self.ADOQuery1.FieldByName('Memo').AsString := ExcelWorksheet1.Cells.Item [i+1,3];
ADOQuery1.Post;
end;
end;

ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
showmessage('数据转换完毕！');
end;

end.

shijies 2011-10-13
  • 打赏
  • 举报
 回复
用存储过程。
andylist 2011-10-13
  • 打赏
  • 举报
 回复
哈哈...500元估计也没多少人愿意整.
22222bbb 2011-10-13
  • 打赏
  • 举报
 回复
分啥时这么值钱了
xfxlylove 2011-10-13
  • 打赏
  • 举报
 回复
换成50元都没人写除非吃饱了!
aBung 2011-10-12
  • 打赏
  • 举报
 回复
楼主八成没睡醒！
广州佬 2011-10-12
  • 打赏
  • 举报
 回复
50分能换取这么一个完整功能的源代码，真是太值了！！！
网吧维护技术资料 合集
7349 网吧维护\资料\WIN XP远程控制时保证安全必读.TXT 2902 网吧维护\资料\WIN2000 硬盘内存完美优化 .TXT 10328 网吧维护\资料\WIN2000命令全集.TXT 4623 网吧维护\资料\WIN98启动登陆框-安装VXD-注册表修复.TXT ...
网吧语音服务大师 v8.2.zip
本软件的所有设置和对客户端的控制，均在主服务端上进行，客户端程序不需要作任何设置，也不需要任何数据同步，非常方便网吧进行集中式管理！ 网吧语音服务大师V5.0新的程序架构，程序包括一个主服务端；自由定义...
基于商场网吧计费管理系统的毕业设计实现.zip
该系统主要面向商场内的网吧管理，通过计费管理实现对用户上网的控制和监管。 ## 系统架构 该系统采用B/S架构，由前端和后端两部分组成。前端采用Vue.js框架实现，后端采用Node.js框架实现。前后端之间通过RESTful...
针对网吧的网络安全管理.doc
网吧里的交换机和路由器等硬件，控制和管理网络的软件， 还有计算机之间共享的资源，以及网络上的各种各样方便快捷的服务，都包含在计算机 网络所涉及的内容之中。参照ISO给出的计算机安全定义，认为计算机网络安全...
asp网站远程监控(超级管理)系统
只要将程序代码放入ASP网站或空间，所有浏览你网站的访问者行踪均在你的监视之下。你可以根据实际情况在后台对访问者进行友好或不友好的实时远程控制。主要特点：1、本系统采用无数据库记录数据技术：特点是不与网站...
数据库相关

2,498

社区成员

88,445

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章