frmkndunit.pas

根据客户对销售人员回款返利和业绩返利的功能需求所开发

unit frmKNDUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmBaseUnit, DB, StdCtrls, Buttons, ExtCtrls, ADODB, Mask,
  DBCtrls, Grids, Wwdbigrd, Wwdbgrid;

type
  TfrmKND = class(TfrmBase)
    Label1: TLabel;
    qryKND: TADOQuery;
    qryKNDFY_NO: TStringField;
    qryKNDFY_NAME: TStringField;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    wwDBGrid1: TwwDBGrid;
    procedure FormShow(Sender: TObject);
    procedure btn_InsertClick(Sender: TObject);
    procedure btn_EditClick(Sender: TObject);
    procedure btn_DeleteClick(Sender: TObject);
    procedure btn_SaveClick(Sender: TObject);
    procedure btn_CloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_PrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmKND: TfrmKND;

implementation

uses dmUnit;

{$R *.dfm}

procedure TfrmKND.FormShow(Sender: TObject);
begin
  inherited;
   qryknd.Active:=True;

end;

procedure TfrmKND.btn_InsertClick(Sender: TObject);
begin
  inherited;
  if qryKND.State in [dsInsert] then exit;
  qryKND.Append;
end;

procedure TfrmKND.btn_EditClick(Sender: TObject);
begin
  inherited;
  qryKND.Edit;
end;

procedure TfrmKND.btn_DeleteClick(Sender: TObject);
begin
  inherited;
  qryKND.Delete;
end;

procedure TfrmKND.btn_SaveClick(Sender: TObject);
begin
  inherited;
  if qryKND.State in [dsEdit,dsInsert] then
     qryKND.Post;
end;

procedure TfrmKND.btn_CloseClick(Sender: TObject);
begin
  inherited;
   close;
end;

procedure TfrmKND.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  action:=caFree;
  frmKND:=nil;
end;

procedure TfrmKND.btn_PrintClick(Sender: TObject);
begin
  inherited;
  wwDBGrid1.ExportOptions.FileName:=fSave.FileName+'.csv';
  wwDBGrid1.ExportOptions.Save;
end;

end.