cai_gou_gen.pas

采购管理系统：delphi+sql实现了企业采购自动化作业流程

unit cai_gou_gen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, DB, DBTables, ppDB, ppDBPipe, ppDBBDE,
  ppComm, ppRelatv, ppProd, ppClass, ppReport, ppBands, ppCache, ppCtrls,
  ppPrnabl, ppVar;

type
  Tcai_gou_ge = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    RadioButton3: TRadioButton;
    ComboBox2: TComboBox;
    ppReport1: TppReport;
    ppBDEPipeline1: TppBDEPipeline;
    mqry: TQuery;
    mqryqing_gou_no: TStringField;
    mqryqing_gou_date: TDateTimeField;
    mqrywu_no: TStringField;
    mqrywu_name: TStringField;
    mqrywu_gui: TStringField;
    mqryqing_shu_liang: TFloatField;
    mqryqing_gou_bumen: TStringField;
    mqryshenbumen: TStringField;
    mqryding_gou_no: TStringField;
    mqrychang_shang_name: TStringField;
    mqryding_gou_date: TDateTimeField;
    mqrycaidw: TStringField;
    mqryqty: TFloatField;
    mqryqty99: TFloatField;
    mqryding_gou_ren: TStringField;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppLabel13: TppLabel;
    ppLine1: TppLine;
    ppLabel14: TppLabel;
    ppLabel15: TppLabel;
    ppDBText1: TppDBText;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    DataSource1: TDataSource;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    mqryqdw: TStringField;
    mqryjiao_ji: TDateTimeField;
    ppLabel18: TppLabel;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppDBText13: TppDBText;
    ppDBText14: TppDBText;
    ppDBText15: TppDBText;
    ppLine2: TppLine;
    ppLine3: TppLine;
    ppLabel19: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    mqryjiao_yi_no: TStringField;
    ppLabel20: TppLabel;
    ppDBText16: TppDBText;
    ppLabel21: TppLabel;
    ppLabel22: TppLabel;
    ppLabel23: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    ppLabel24: TppLabel;
    ppLabel25: TppLabel;
    ppLabel26: TppLabel;
    ppLabel27: TppLabel;
    ppLabel28: TppLabel;
    ppSystemVariable3: TppSystemVariable;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure t2KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton1KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton2KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton3KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure ppLabel24GetText(Sender: TObject; var Text: String);
  private
   SystemDate:TDateTime;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cai_gou_ge: Tcai_gou_ge;

implementation

uses cai_gen,cai_gou_gen1,cai_gen2, data_cai;
{$R *.dfm}

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

procedure Tcai_gou_ge.BitBtn2Click(Sender: TObject);
begin
   close;
end;

procedure Tcai_gou_ge.BitBtn1Click(Sender: TObject);
begin
if RadioButton3.Checked then
  begin
   pplabel17.Caption:=Combobox2.Text;
   pplabel22.Caption:=label1.Caption;

   mqry.close;
   mqry.SQL.Clear;
   mqry.SQL.Add('execute  dingview '+QuotedStr(Combobox2.Text));
   mqry.Open;
   
   ppreport1.PrintToDevices;
   ppreport1.Print;
  end;

if  RadioButton1.Checked then
begin
 cai_ge:=Tcai_ge.Create(self);

if combobox1.Text='ネ玻