bi_bue_kind.pas

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

unit bi_bue_kind;

interface

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

type
  Tbi_bue_kin = class(TForm)
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBNavigator1: TDBNavigator;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Table1: TTable;
    DataSource1: TDataSource;
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bi_bue_kin: Tbi_bue_kin;

implementation

{$R *.dfm}

procedure Tbi_bue_kin.Table1AfterScroll(DataSet: TDataSet);
begin
if table1.FieldByName('bi_made_date').AsDateTime<>0 then
DateTimePicker1.Date:=table1.FieldByName('bi_made_date').AsDateTime
else
DateTimePicker1.Date:=date;
begin
DateTimePicker1.Enabled:=false;
dbedit1.ReadOnly:=true;
dbedit2.ReadOnly:=true;
end;
end;

procedure Tbi_bue_kin.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_made_date').AsDateTime:=date;
dbedit1.SetFocus;
begin
DateTimePicker1.Enabled:=true;
dbedit1.ReadOnly:=false;
dbedit2.ReadOnly:=false;
end;
end;

procedure Tbi_bue_kin.SpeedButton2Click(Sender: TObject);
begin
DateTimePicker1.Enabled:=true;
dbedit1.ReadOnly:=false;
dbedit2.ReadOnly:=false;
dbedit1.SetFocus;
end;

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

procedure Tbi_bue_kin.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
dbedit2.SetFocus;
end;

procedure Tbi_bue_kin.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
DateTimePicker1.SetFocus;
end;

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

procedure Tbi_bue_kin.FormCreate(Sender: TObject);
begin
table1.Active:=false;
table1.IndexFieldNames:='bi_bue_no';
table1.Active:=true;
end;

end.