fei_liu.~pas

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

unit fei_liu;

interface

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

type
  Tfei_li = class(TForm)
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label4: TLabel;
    Table1: TTable;
    DataSource1: TDataSource;
    DBComboBox1: TDBComboBox;
    Label8: TLabel;
    DBEdit2: TDBEdit;
    DBNavigator1: TDBNavigator;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Table2: TTable;
    Label9: TLabel;
    Edit1: TEdit;
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fei_li: Tfei_li;

implementation

{$R *.dfm}

procedure Tfei_li.FormActivate(Sender: TObject);
begin

//edit2.Text:='';
//dbcombobox1.SetFocus;
end;

procedure Tfei_li.FormCreate(Sender: TObject);
begin
//label1.Visible:=false;
//label9.Visible:=false;
while not Table2.Eof do begin
DBComboBox1.Items.Add(Table2.FieldByName('bi_bue_name').AsString);
Table2.Next;
end;
end;

procedure Tfei_li.DBComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
begin
table2.Active:=false;
table2.IndexFieldNames:='bi_bue_name';
table2.Active:=true;
if table2.FindKey([dbcombobox1.text]) then
dbedit2.Text:=table2.FieldByName('bi_bue_no').AsString;
edit1.SetFocus;
end;
end;

procedure Tfei_li.SpeedButton1Click(Sender: TObject);
begin

table1.Last;
table1.Append;
table1.Edit;
table1.FieldByName('bi_bue_no').AsString:='';
table1.FieldByName('bi_bue_name').AsString:='';
table1.FieldByName('bi_bue_fei').AsFloat:=0;
table1.FieldByName('taio_ren').AsString:=label9.Caption;
table1.FieldByName('tiao_date').AsDateTime:=date;
//dbcombobox1.SetFocus;
begin
dbcombobox1.ReadOnly:=false;
edit1.ReadOnly:=false;
end;
end;

procedure Tfei_li.Table1AfterScroll(DataSet: TDataSet);
 var xx:real;
begin
label1.Visible:=true;
if table1.FieldByName('bi_bue_fei').AsFloat<>0 then
edit1.Text:=table1.FieldByName('bi_bue_fei').AsString
else
edit1.Text:='0';
if edit1.text<>'' then
xx:=strtofloat(edit1.text)
else
xx:=0;
edit2.Text:=floattostr(xx);
 label1.Caption:='1:'+edit2.Text;
//DBNavigator1.SetFocus;
begin
dbcombobox1.ReadOnly:=true;
edit1.ReadOnly:=true;
end;
end;

procedure Tfei_li.SpeedButton2Click(Sender: TObject);
begin
dbcombobox1.ReadOnly:=false;
edit1.ReadOnly:=false;
dbcombobox1.SetFocus;
end;

procedure Tfei_li.Edit1KeyPress(Sender: TObject; var Key: Char);
var xx:real;
begin
if key=chr(13) then
begin
table1.Edit;
 table1.FieldByName('bi_bue_fei').AsFloat:=strtofloat(edit1.Text);
 table1.FieldByName('taio_ren').AsString:=label9.Caption;
label1.Visible:=true;
xx:=strtofloat(edit1.text);
edit2.Text:=floattostr(xx/1);
 label1.Caption:='1:'+edit2.Text;
DBNavigator1.SetFocus;
end;
end;

procedure Tfei_li.SpeedButton3Click(Sender: TObject);
begin
close;
end;

end.