tas520_04.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Tas520_04;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, FR_Class, FR_DSet, FR_DBSet, DB,
  ADODB, dxCntner, dxEditor, dxExEdtr, dxEdLib, ComCtrls;

type
  TTas520_04Form = class(TForm)
    lblReport: TLabel;
    cbReport: TComboBox;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    Bevel1: TBevel;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    ADODataSet1: TADODataSet;
    cbPrintCode: TCheckBox;
    lblCopys: TLabel;
    edtCopys: TEdit;
    udCopys: TUpDown;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure edtCopysKeyPress(Sender: TObject; var Key: Char);
  private
    procedure SetInterface;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Tas520_04Form: TTas520_04Form;

implementation

uses CommFun;

{$R *.dfm}

procedure TTas520_04Form.SetInterface;
begin

end;

procedure TTas520_04Form.FormCreate(Sender: TObject);
begin
  SetInterface;
end;

procedure TTas520_04Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADODataSet1.Close;
end;

procedure TTas520_04Form.bbtnOkClick(Sender: TObject);
var
  AReportName:String;
  I:Integer;
begin
//确定
  ADODataSet1.Close;
  ADODataSet1.CreateDataSet;
  for I:=1 to StrToInt(edtCopys.Text) do
  begin
    ADODataSet1.Append;
    ADODataSet1.FieldByName('FID').Value:=1;
    ADODataSet1.FieldByName('FCode').Value:=GetAutoCode('TAS520');
    ADODataSet1.Post;
  end;

  case cbReport.ItemIndex of
    0:AReportName:=GetReportName('TAS520A.frf');
    1:AReportName:=GetReportName('TAS520B.frf');
  end;
  frReport1.LoadFromFile(AReportName);
  frReport1.ShowReport;
  ADODataSet1.Close;
end;

procedure TTas520_04Form.bbtnExitClick(Sender: TObject);
begin
//退出
  Close;
end;

procedure TTas520_04Form.edtCopysKeyPress(Sender: TObject; var Key: Char);
begin
  ValidInteger(Sender,Key);
end;

initialization
  RegisterClass(TTas520_04Form);

finalization
  UnRegisterClass(TTas520_04Form);

end.