dan_ku_chen.pas

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

unit dan_ku_chen;

interface

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

type
  Tdan_ku_che = class(TForm)
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Table1: TTable;
    Image1: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dan_ku_che: Tdan_ku_che;

implementation

uses data_cai;

{$R *.dfm}

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

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

procedure Tdan_ku_che.FormCreate(Sender: TObject);
begin
combobox1.Text:='';
edit1.Text:='';
combobox2.Text:='';
while not Table1.Eof do begin
ComboBox2.Items.Add(Table1.FieldByName('FMNO').AsString);
Table1.Next;
end;
combobox2.Visible:=false;
end;

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

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

procedure Tdan_ku_che.ComboBox1Click(Sender: TObject);
begin
case  combobox1.ItemIndex of
0:
begin
combobox2.Visible:=true;
edit1.Visible:=false;
combobox2.SetFocus;
end;
1:
begin
combobox2.Visible:=false;
edit1.Visible:=true;
edit1.SetFocus;
end;
end;
end;

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

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

procedure Tdan_ku_che.BitBtn1Click(Sender: TObject);
var  imgfile:string;
begin
case combobox1.ItemIndex of
0:
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from t_maTERIAL where FMNO=:kk');
query1.ParamByName('kk').AsString:=combobox2.Text;
query1.Prepare;
query1.Active:=true;
 with query1 do
    begin
   imgfile:='E:\picture\'+fieldbyname('fmno').asstring+'.jpg';   //
   if fileexists(imgfile) then
        image1.Picture.LoadFromFile(imgfile)
      else
        image1.Picture.Assign(nil);
 end;
end;
1:
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from t_maTERIAL where FMNAME like ''%'+edit1.Text+'%''');
query1.Prepare;
query1.Active:=true;
end;
end;
end;
procedure Tdan_ku_che.DBGrid1CellClick(Column: TColumn);
var imgfile:string;
begin
imgfile:='E:\picture\'+DBGrid1.SelectedField.AsString+'.jpg';   //
   if fileexists(imgfile) then
        image1.Picture.LoadFromFile(imgfile)
      else
        image1.Picture.Assign(nil);
end;

end.