unit Unit6;

interface

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

type
  Tlsjl = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Panel3: TPanel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Panel4: TPanel;
    Panel5: TPanel;
    DTP1: TDateTimePicker;
    DTP2: TDateTimePicker;
    Edit1: TEdit;
    Panel6: TPanel;
    Panel7: TPanel;
    N2: TMenuItem;
    qy1: TADOQuery;
    qy1a1: TWideStringField;
    qy1a2: TDateTimeField;
    qy1a3: TDateTimeField;
    qy1a4: TDateTimeField;
    qy1a5: TWideStringField;
    qy1DSDesigner6: TFloatField;
    qy1DSDesigner8: TFloatField;
    qy1DSDesigner9: TFloatField;
    qy1DSDesigner10: TWideStringField;
    qy1DSDesigner11: TWideStringField;
    qy2: TADOQuery;
    qy1DSDesigner7: TFloatField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N1Click(Sender: TObject);
    procedure DTP1Change(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  lsjl: Tlsjl;

implementation

uses Unit1;

{$R *.dfm}

procedure Tlsjl.FormCreate(Sender: TObject);
begin
// qy1.DatabaseName:=extractfiledir(application.ExeName);
 qy1.Active:=true ;
// qy2.DatabaseName:=extractfiledir(application.ExeName);
 qy2.Active:=true ;
 if zgtq='system' then popupmenu1.AutoPopup:=true; //主管特權
end;

procedure Tlsjl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
  zgtq:='asdfafa';   //主管特權失效
  popupmenu1.AutoPopup:=false; //主管關閉右鍵菜單
end;

procedure Tlsjl.N1Click(Sender: TObject);
//刪除本行
begin
  qy1.Delete;
end;

procedure Tlsjl.DTP1Change(Sender: TObject);
var
 dtpa1:string;
begin
  if dtp1.Date<dtp2.Date then
  begin
    //查詢符全條件的SQL語句
  dtpa1:='select * from date1  where 結帳日期 between :ac and :bc';
  qy1.Close;
  qy1.SQL.Clear;
  qy1.SQL.Add(dtpa1);
  qy1.Parameters[0].Value:=dtp1.DateTime;
  qy1.Parameters[1].Value:=dtp2.DateTime;
  qy1.Prepared;
  qy1.Open;
          //  qy2 主要是用于計算費用
  qy2.Close;
  qy2.SQL.Clear;
  qy2.SQL.Add('select  sum(費用) from date1 where 結帳日期 between :a and :b');
  qy2.Parameters[0].Value:=dtp1.DateTime;
  qy2.Parameters[1].Value:=dtp2.DateTime;
  qy2.Prepared;
  qy2.Open;
  //sum計算的數據保存在字段里
  // 如果為為空則沒有滿足條件的記錄
   if qy2.Fields[0].Value<>null then
      edit1.Text:=floattostr(qy2.fields[0].value)
   else
      edit1.Text:='';
  end
 else
  begin
  //全部顯示
  dtpa1:='select *from date1';
  qy1.Close;
  qy1.SQL.Clear;
  qy1.SQL.Add(dtpa1);
  qy1.Prepared;
  qy1.Open;
  end;
end;

procedure Tlsjl.N2Click(Sender: TObject);
var
 stra1,stra2:string;
 begin
  if dtp1.Date<dtp2.Date then
  if application.messagebox('要刪除起--止時間的記錄嗎','注意',
   mb_yesno+mb_defbutton2+mb_iconquestion+mb_systemmodal)=6 then
  begin
  //刪除SQL語句
  stra1:='delete from date1 where 結帳日期 between :a and :b';
  stra2:='select *from date1';
  qy1.Close;
  qy1.SQL.Clear;
  qy1.SQL.Add(stra1);
  qy1.Parameters[0].Value:=dtp1.DateTime;
  qy1.Parameters[1].Value:=dtp2.DateTime;
  qy1.Prepared;
  qy1.ExecSQL;
  //刷新listvice(lv1)
  qy1.SQL.Clear;
  qy1.SQL.Add(stra2);
  qy1.Prepared;
  qy1.Open;
  end;

end;

end.