qing_gou_re_ku.pas

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

unit qing_gou_re_ku;

interface

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

type
  Tqing_gou_re_k = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    t2: TMaskEdit;
    t1: TMaskEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid2: TDBGrid;
    Query2: TQuery;
    DataSource2: TDataSource;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DBNavigator1: TDBNavigator;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Table1: TTable;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure t2KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Query1AfterScroll(DataSet: TDataSet);
    procedure RadioButton1KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton2KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton3KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  qing_gou_re_k: Tqing_gou_re_k;

implementation
uses qing_gou_re_ku_report;
{$R *.dfm}

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

procedure Tqing_gou_re_k.t1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
t2.SetFocus;
end;

procedure Tqing_gou_re_k.t2KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
combobox1.SetFocus;
end;

procedure Tqing_gou_re_k.Button3Click(Sender: TObject);
begin
close;
end;

procedure Tqing_gou_re_k.FormCreate(Sender: TObject);
begin
t1.Text:=datetostr(date);
t2.Text:=datetostr(date);
label3.Visible:=false;
Table1.Open;
Query1.Open;
Query2.Open;
while not Table1.Eof do begin
ComboBox1.Items.Add(Table1.FieldByName('bu_men_name').AsString);
Table1.Next;
end;
combobox1.Text:='';

end;

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

end;

procedure Tqing_gou_re_k.Button1Click(Sender: TObject);
var xx,yy,zz:string;
begin
if  RadioButton1.Checked then
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from qing_gou_wei_zhu where (qing_gou_date>=:mm) and (qing_gou_date<=:nn) and (yes_or_re_chang=:ll) and (qing_gou_bumen=:bu)');
query1.SQL.Add('order by qing_gou_date');
 query1.ParamByName('mm').AsDateTime:=strtodate(t1.Text);
 query1.ParamByName('nn').AsDateTime:=strtodate(t2.Text);
 query1.ParamByName('ll').AsString:='