ufoodclass.pas

来自「是分布式粮库程序,是采用Delphi实现的」· PAS 代码 · 共 59 行

unit uFoodClass;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

type
  TfrmFoodClass = class(TForm)
    Label1: TLabel;
    cmbFoodClass: TComboBox;
    btnOK: TButton;
    btnCancel: TButton;
    Label2: TLabel;
    edtRowPerPage: TEdit;
    UpDown1: TUpDown;
    procedure FormCreate(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmFoodClass: TfrmFoodClass;

implementation
uses uFoodsStockQ,usRpt1;

{$R *.DFM}

procedure TfrmFoodClass.FormCreate(Sender: TObject);
begin
        cmbFoodClass.ItemIndex := 0;
end;

procedure TfrmFoodClass.btnOKClick(Sender: TObject);
var pattr : PChar;
    s : string;
begin
        // 首先确保储备性质栏非空
        s := frmFoodsStockQ.AttrDBLookupComboBox.KeyValue;
        pattr := PChar(s);
        US_CreateReport1(pattr,cmbFoodClass.ItemIndex+1,StrToInt(edtRowPerPage.Text));
        US_FreeReport1;
        Close;

end;

procedure TfrmFoodClass.btnCancelClick(Sender: TObject);
begin
        Close;
end;

end.