utodaywork.pas

来自「是个办公系统,可以实现财务上的管理和人员的流动」· PAS 代码 · 共 83 行

unit UtodayWork;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, Buttons, Menus;

type
  TfrmTodayWork = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    bbtnConnect: TBitBtn;
    bbtnQuit: TBitBtn;
    procedure bbtnConnectClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure bbtnQuitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTodayWork: TfrmTodayWork;

implementation

uses UtodayWorkRecord, Mydata, UlogIn;

{$R *.dfm}

procedure TfrmTodayWork.bbtnConnectClick(Sender: TObject);
begin
   frmTodayRecord.Show;
end;

procedure TfrmTodayWork.N1Click(Sender: TObject);
begin
  bbtnConnect.Click;
end;

procedure TfrmTodayWork.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure TfrmTodayWork.FormShow(Sender: TObject);
begin
   with dm.AQCustName do
    begin
     close;
     sql.Clear;
     sql.Add('select * from Customers where OrderDate='''+FormatDateTime('YYYY-MM-DD',Date)+''' and SalesmanName='''+UserName+'''');
     open;
    end;
end;

procedure TfrmTodayWork.bbtnQuitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmTodayWork.FormCreate(Sender: TObject);
var
 OrderDate:string;
begin
 OrderDate:=FormatDateTime('YYYY-MM-DD',Date);
  with dm.AQTodayWork do
   begin
    close;
    sql.Clear;
    sql.Add('select * from Customers where OrderDate='''+OrderDate+''' and SalesManName='''+UserName+'''');
    Open;
   end;
end;

end.