wei_pi_cha.pas

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

unit wei_pi_cha;

interface

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

type
  Twei_pi_ch = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBNavigator1: TDBNavigator;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Query1: TQuery;
    Query2: TQuery;
    Query4: TQuery;
    DBGrid3: TDBGrid;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    Query3: TQuery;
    DBGrid4: TDBGrid;
    ComboBox1: TComboBox;
    Panel1: TPanel;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure RadioButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure DBGrid3CellClick(Column: TColumn);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  wei_pi_ch: Twei_pi_ch;

implementation

{$R *.dfm}

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

procedure Twei_pi_ch.DBGrid1CellClick(Column: TColumn);
var xx:string;
begin
xx:=DBGrid1.Fields[0].AsString;
query2.Active:=false;
query2.SQL.Clear;
query2.SQL.Add('select * from qing_gou_wei_chong where qing_gou_no=:pp');
query2.ParamByName('pp').AsString:=xx;
query2.Prepare;
query2.Active:=true;

end;

procedure Twei_pi_ch.RadioButton2Click(Sender: TObject);
var xx:string;
begin
if RadioButton2.Checked then
begin
query3.Active:=false;
query3.SQL.Clear;
query3.SQL.Add('select * from ding_gou_zhu where yes_or_no=:mm');
query3.ParamByName('mm').AsString:='