cai_ren_cha.pas

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

unit cai_ren_cha;

interface

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

type
  Tcai_ren_ch = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    ComboBox2: TComboBox;
    Label3: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    SpeedButton2: TSpeedButton;
    BitBtn1: TBitBtn;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure SpeedButton2Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cai_ren_ch: Tcai_ren_ch;

implementation

{$R *.dfm}

procedure Tcai_ren_ch.SpeedButton2Click(Sender: TObject);
begin
close
end;

procedure Tcai_ren_ch.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
combobox2.SetFocus;
end;

procedure Tcai_ren_ch.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
edit1.SetFocus;
end;

procedure Tcai_ren_ch.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
bitbtn1.SetFocus;
end;

procedure Tcai_ren_ch.FormCreate(Sender: TObject);
begin
combobox1.Text:='';
combobox2.Text:='';
edit1.Text:='';

end;

procedure Tcai_ren_ch.FormActivate(Sender: TObject);
begin
combobox1.SetFocus;
end;

procedure Tcai_ren_ch.BitBtn1Click(Sender: TObject);
var str1:string;
begin
case combobox1.ItemIndex of
0:
begin
str1:=combobox2.Text+''''+edit1.Text+'''';
//str:=cob11.Text +cob12.Text +''''+edit1.Text +'''';
query1.close;
query1.SQL.Clear ;
query1.sql.Text:='select * from cai_gou_ren where cai_ren_no'+str1;
 showmessage(query1.text);
         // DataSource1.DataSet :=query1;
  query1.prepare;
 query1.open;
 end;
 1:
 begin
str1:=combobox2.Text+''''+edit1.Text+'''';
//str:=cob11.Text +cob12.Text +''''+edit1.Text +'''';
query1.close;
query1.SQL.Clear ;
query1.sql.Text:='select * from cai_gou_ren where cai_ren_name'+str1;
 showmessage(query1.text);
         // DataSource1.DataSet :=query1;
  query1.prepare;
 query1.open;
 end;
end;
if (combobox1.Text='') and (combobox2.Text='') then
begin
query1.close;
query1.SQL.Clear ;
query1.sql.Text:='select * from cai_gou_ren ';
 showmessage(query1.text);
 query1.prepare;
 query1.open;
 end;
end;

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

end.