gong_ying_cha.pas

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

unit gong_ying_cha;

interface

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

type
  Tgong_ying_ch = class(TForm)
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    SpeedButton4: TSpeedButton;
    BitBtn1: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gong_ying_ch: Tgong_ying_ch;

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

procedure Tgong_ying_ch.SpeedButton4Click(Sender: TObject);
begin
close;
end;

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

procedure Tgong_ying_ch.FormActivate(Sender: TObject);
begin
combobox1.Text:='';
combobox2.Text:='';
edit1.Text:='';
combobox1.SetFocus;
end;

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

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

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

procedure Tgong_ying_ch.BitBtn1Click(Sender: TObject);
var str1:string;
begin
case combobox1.ItemIndex of
0:
begin
str1:=combobox2.Text+''''+edit1.Text+'''';
query1.close;
query1.SQL.Clear ;
query1.sql.Text:='select * from gong_ying_shang where gong_shang_no'+str1;
query1.prepare;
 query1.open;
 end;
 1:
 begin
str1:=combobox2.Text+''''+edit1.Text+'''';
query1.close;
query1.SQL.Clear ;
query1.sql.Text:='select * from gong_ying_shang where gong_computerno'+str1;
query1.prepare;
 query1.open;
 end;
 2:
begin
str1:=combobox2.Text+''''+edit1.Text+'''';
//str:=cob11.Text +cob12.Text +''''+edit1.Text +'''';
query1.close;
query1.SQL.Clear ;
query1.SQL.Add('select * from gong_ying_shang where gong_shang_name like ''%'+edit1.Text+'%''');
query1.prepare;
 query1.open;
 end;
 3:
begin
str1:=combobox2.Text+''''+datetostr(DateTimePicker1.Date)+'''';
query1.close;
query1.SQL.Clear ;
query1.sql.Text:='select * from gong_ying_shang where gong_made_date'+str1;
query1.prepare;
 query1.open;
 end;
  4:
begin
query1.Active:=false;;
query1.SQL.Clear ;
query1.SQL.Add('select * from gong_ying_shang where gong_shang_adress like''%'+edit1.Text+'%''');
query1.Prepare;
 query1.Active:=true;
 end;
   5:
begin
query1.Active:=false;;
query1.SQL.Clear ;
query1.SQL.Add('select * from gong_ying_shang where cai_gou_things like''%'+edit1.Text+'%''');
query1.Prepare;
 query1.Active:=true;
 end;
    6:
begin
query1.Active:=false;;
query1.SQL.Clear ;
query1.SQL.Add('select * from gong_ying_shang where jing_ying_things like''%'+edit1.Text+'%''');
query1.Prepare;
 query1.Active:=true;
 end;


 end;
 if (combobox1.Text='') and (combobox2.Text='') then
 begin
 query1.close;
query1.SQL.Clear ;
query1.sql.Text:='select * from gong_ying_shang ';

         // DataSource1.DataSet :=query1;
  query1.prepare;
 query1.open;
 end;

end;

procedure Tgong_ying_ch.ComboBox1Click(Sender: TObject);
begin
if combobox1.ItemIndex=3 then
begin
edit1.Visible:=false;
combobox2.SetFocus;
DateTimePicker1.Visible:=true;
end
else
begin
edit1.Visible:=true;
DateTimePicker1.Visible:=false;
combobox2.SetFocus;
end;
end;
procedure Tgong_ying_ch.FormCreate(Sender: TObject);
begin
DateTimePicker1.Visible:=false;

end;

procedure Tgong_ying_ch.DateTimePicker1KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
BitBtn1.SetFocus;
end;

procedure Tgong_ying_ch.ComboBox2Click(Sender: TObject);
begin
if DateTimePicker1.CanFocus then
DateTimePicker1.SetFocus;
if edit1.CanFocus then
edit1.SetFocus;
end;

procedure Tgong_ying_ch.Button1Click(Sender: TObject);
var
 str1:string;
begin
if Trim(cai_gou_mai.ren)<>'肣