yu_di_fu_kuan.~pas

来自「采购管理系统：delphi+sql实现了企业采购自动化作业流程」· ~PAS 代码 · 共 56 行

unit yu_di_fu_kuan;

interface

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

type
  Tyu_di_fu_kua = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    SpeedButton2: TSpeedButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Query1: TQuery;
    SpeedButton1: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yu_di_fu_kua: Tyu_di_fu_kua;

implementation
uses excel;
{$R *.dfm}

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

procedure Tyu_di_fu_kua.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure Tyu_di_fu_kua.SpeedButton1Click(Sender: TObject);
 var exce:Texce;
begin
exce:=Texce.Create(self);
exce.Query1.Active:=false;
exce.Query1.SQL.Clear;
exce.Query1.SQL.Add('select * from fu_kuan_ying where yu_di_fu_kuan_date<>:mm order by yu_di_fu_kuan_date,ding_gou_no');
exce.Query1.ParamByName('mm').AsString:='';
exce.Query1.Prepare;
exce.Query1.Active:=true;
exce.sjbname:='