cha_dan_jia.pas

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

unit cha_dan_jia;

interface

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

type
  Tcha_dan_ji = class(TForm)
    PageControl1: TPageControl;
    Button1: TButton;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Button2: TButton;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    DataSource2: TDataSource;
    Query1: TQuery;
    Label4: TLabel;
    Edit3: TEdit;
    DBGrid2: TDBGrid;
    Button3: TButton;
    Button4: TButton;
    ppReport1: TppReport;
    ppBDEPipeline1: TppBDEPipeline;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppLine1: TppLine;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cha_dan_ji: Tcha_dan_ji;

implementation
uses excel, data_cai;
{$R *.dfm}

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

procedure Tcha_dan_ji.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
begin
edit3.Text:='';
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from dan_jia where wu_no=:ll');
query1.ParamByName('ll').AsString:=edit1.Text;
query1.Prepare;
query1.Active:=true;


end;
end;

procedure Tcha_dan_ji.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from dan_jia where wu_name like ''%'+edit2.Text+'%''');
query1.Prepare;
query1.Active:=true;


end;
end;

procedure Tcha_dan_ji.Button2Click(Sender: TObject);
begin
if edit1.Text<>''then
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from dan_jia where (wu_no=:ll)');
query1.ParamByName('ll').AsString:=edit1.Text;

query1.Prepare;
query1.Active:=true;
end;
if edit3.Text<>'' then
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from dan_jia where chang_shang_name like ''%'+edit3.text+'%''');

query1.Prepare;
query1.Active:=true;
end;




end;

procedure Tcha_dan_ji.FormCreate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:=''
end;

procedure Tcha_dan_ji.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
begin
edit1.Text:='';


button2.SetFocus;


end;
end;

procedure Tcha_dan_ji.Button1Click(Sender: TObject);
begin
close;
end;

procedure Tcha_dan_ji.Button3Click(Sender: TObject);
var exce:Texce;
begin

if edit1.Text<>''then
begin
exce:=Texce.Create(self);
exce.query1.Active:=false;
exce.query1.SQL.Clear;
exce.query1.SQL.Add('select * from dan_jia where (wu_no=:ll)');
exce.query1.ParamByName('ll').AsString:=edit1.Text;

exce.query1.Prepare;
exce.query1.Active:=true;
exce.sjbname:='虫刹琩高';
exce.Show;
end;
if edit3.Text<>'' then
begin
exce:=Texce.Create(self);
exce.query1.Active:=false;
exce.query1.SQL.Clear;
exce.query1.SQL.Add('select * from dan_jia where chang_shang_name like ''%'+edit3.text+'%''');
exce.query1.Prepare;
exce.query1.Active:=true;
exce.sjbname:='虫刹琩高';
exce.Show;
end;
end;

procedure Tcha_dan_ji.Button4Click(Sender: TObject);
begin
  ppreport1.Print;
end;

end.