utodaywork.pas

来自「一个 OA 系统」· PAS 代码 · 共 71 行

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 bbtnQuitClick(Sender: TObject);
    procedure FormActivate(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.bbtnQuitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmTodayWork.FormActivate(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+''' and Record is  null');
    Open;
   end;
end;

end.