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.