unit5.pas

有关密码为： 服务端：为 “1”。 客户端：为机器的月份+日期。 如“2005/08/05”

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Grids, DBGrids, DB, DBTables, ExtCtrls, ComCtrls,
  StdCtrls, ADODB;

type
  Thyzl = class(TForm)
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    PageControl1: TPageControl;
    TS1: TTabSheet;
    TS2: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    N3: TMenuItem;
    DataSource2: TDataSource;
    N4: TMenuItem;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button2: TButton;
    Button3: TButton;
    PopupMenu2: TPopupMenu;
    N5: TMenuItem;
    DTPh1: TDateTimePicker;
    DTPh2: TDateTimePicker;
    N6: TMenuItem;
    hy2: TADOTable;
    hy2a1: TWideStringField;
    hy2a2: TWideStringField;
    hy2a3: TWideStringField;
    hy2a4: TDateTimeField;
    hy2a5: TFloatField;
    hy2a8: TWideStringField;
    hy2a7: TWideStringField;
    hy2a10: TWideStringField;
    hy2a6: TFloatField;
    hy3: TADOTable;
    hy3a1: TWideStringField;
    hy3a2: TWideStringField;
    hy3a3: TDateTimeField;
    hy3a4: TDateTimeField;
    hy3a5: TFloatField;
    hy3a6: TWideStringField;
    hy3a8: TWideStringField;
    procedure N2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure N3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure N4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hyzl: Thyzl;

implementation

uses Unit1, Unit4;

{$R *.dfm}

procedure Thyzl.N2Click(Sender: TObject);
begin
if application.messagebox('你要删除吗？','注意',mb_yesno+mb_defbutton2+mb_iconquestion)=6 then
hy2.Delete;
end;

procedure Thyzl.N1Click(Sender: TObject);
var
jq1:real;
jq2,jq3,jq4,jq5:string;
begin
jq2:=inputbox('请输入加钱数','加钱信息','');
if jq2<>'' then
 begin
 jq1:=strtofloat(jq2);
 hy2.Edit;
 hy2a5.Value:=hy2a5.Value+jq1;
 jq3:=hy2a1.Value;
 hy2.Post;
 hy3.Insert;
 hy3a1.Value:=hy2a1.Value;
 hy3a2.Value:=hy2a3.value;
 hy3a3.Value:=now;
 hy3a4.Value:=date;
 hy3a5.Value:=jq1;
 hy3a6.Value:='加钱';
 hy3.Post;
        //同时刷新lv1 temp.db 库
        jq4:='update temp set 押金=押金+'+jq2+' where 卡号="'+jq3+'"';
        jq5:=form1.tb1.SQL.Text;
        form1.tb1.Close;
        form1.tb1.SQL.Clear;
        form1.tb1.SQL.Add(jq4);
        form1.tb1.Prepared;
        form1.tb1.ExecSQL;

        form1.tb1.Close;
        form1.tb1.SQL.Clear;
        form1.tb1.SQL.Add(jq5);
        form1.tb1.Prepared;
        form1.tb1.Open;
        form1.lv1_create_date;

        //同时刷新lv1 temp.db 库
 end;
end;

procedure Thyzl.DBGrid1TitleClick(Column: TColumn);
begin
//点标题显示计费标准 密码 和改为编辑状态
if dbgrid1.Columns[7].Visible=false then
dbgrid1.Columns[7].Visible:=true
else
dbgrid1.Columns[7].Visible:=false;

if dbgrid1.Columns[8].Visible=false then
dbgrid1.Columns[8].Visible:=true
else
dbgrid1.Columns[8].Visible:=false;

if dbgrid1.ReadOnly=true then
dbgrid1.ReadOnly:=false
else
dbgrid1.ReadOnly:=true;

end;

procedure Thyzl.N3Click(Sender: TObject);
var
 aboutf:thydate;      //添加会员
begin
aboutf:=thydate.Create(self);
aboutf.ShowModal;
hy2.Refresh;
hy3.Refresh;
end;

procedure Thyzl.FormCreate(Sender: TObject);

begin
//会员数据库动态连接 设目录所在路径
// hy2.DatabaseName:=extractfiledir(application.ExeName);
// hy3.DatabaseName:=extractfiledir(application.ExeName);
//开库

hy2.Active:=true;
hy3.Active:=true;
statusbar1.Panels[1].Text:='有会员 '+inttostr(hy2.RecordCount)+' 人';
statusbar1.Panels[2].Text:='当前是 '+inttostr(hy2.RecNo)+' 号';
if zgtq='system' then popupmenu2.AutoPopup:=true; //主管特权
if zgtq='system' then n2.Enabled:=true; //主管特权
end;

procedure Thyzl.DBGrid1CellClick(Column: TColumn);
begin
statusbar1.Panels[1].Text:='有会员 '+inttostr(hy2.RecordCount)+' 人';
statusbar1.Panels[2].Text:='当前是 '+inttostr(hy2.RecNo)+' 号';
end;

procedure Thyzl.N4Click(Sender: TObject);
var
dj:real;
begin
dj:=0;
hy2.First;
while not hy2.Eof do
  begin
  dj:=dj+hy2a5.Value;
  hy2.Next;
  end;
 showmessage('累计 '+floattostr(dj)+' 元');
 statusbar1.Panels[3].Text:='累计金额 '+floattostr(dj)+' 元';
end;

procedure Thyzl.Button1Click(Sender: TObject);
begin
if hy2.Filtered=false then
 begin
 hy2.Filter:='帐号='+''''+edit1.Text+''''; //''''为加一个单引号
 hy2.Filtered:=true;
 button1.Caption:='全部数据';
 end
else
 begin
 hy2.Filtered:=false;
 button1.Caption:='查找帐号';
 end;
end;

procedure Thyzl.Button2Click(Sender: TObject);
begin
if hy3.Filtered=false then
 begin
 hy3.Filter:='帐号='+''''+edit2.Text+'''';
 hy3.Filtered:=true;
 button2.Caption:='全部数据';
 end
else
 begin
 hy3.Filtered:=false;
 button2.Caption:='查找帐号';
 end;
end;

procedure Thyzl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
  zgtq:='asdfafa';   //主管特权失效
  popupmenu2.AutoPopup:=false; //主管关闭右键菜单
  n2.Enabled:=false;
end;

procedure Thyzl.Button3Click(Sender: TObject);
var
  sc:string;
begin
if application.messagebox('要清空所有临时会员资料吗','注意',
   mb_yesno+mb_defbutton2+mb_iconquestion+mb_systemmodal)<>6 then
exit;
hy2.First;
while not hy2.Eof do
  begin
  sc:=hy2a10.Value;
   if  sc='临时' then hy2.Delete;
   hy2.Next;
  end;

end;

procedure Thyzl.N5Click(Sender: TObject);
begin
 hy3.Delete;
end;

procedure Thyzl.N6Click(Sender: TObject);
var
  sca1:tdate;
begin
if dtph1.Date<=dtph2.Date then //if-0
begin
if application.messagebox('要删除符合条件会员加钱记录吗','注意',
   mb_yesno+mb_defbutton2+mb_iconquestion+mb_systemmodal)<>6 then
exit;
hy3.First;
while not hy3.Eof do
  begin
  sca1:=hy3a4.Value;
   if  sca1>=dtph1.Date then  //if-1
   if sca1<=dtph2.Date then   //if-2
      hy3.Delete
   else
   hy3.Next    //if-2
   else
   hy3.Next;    //if-1
  end; //do-end
  end;   //if-0
end;

end.