unit6.pas

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

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.