ubfoodtype.pas

来自「是分布式粮库程序,是采用Delphi实现的」· PAS 代码 · 共 113 行

unit Ubfoodtype;

interface

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

type
  Tfbasefood = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Table1: TTable;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    DBEdit1: TDBEdit;
    DBComboBox1: TDBComboBox;
    BitBtn4: TBitBtn;
    BitBtn6: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fbasefood: Tfbasefood;
implementation
 uses unitdatamodul;
{$R *.dfm}

procedure Tfbasefood.BitBtn1Click(Sender: TObject);
begin
 dbedit1.Enabled :=true;
 dbcombobox1.Enabled :=true;
 dbedit1.SetFocus ;
 Table1.Edit;
 table1.Insert;
end;

procedure Tfbasefood.BitBtn2Click(Sender: TObject);
begin
   if table1.IsEmpty then
     begin
       application.MessageBox('没有货物可供删除!','删除时出错',MB_OK+MB_ICONEXCLAMATION);
       Exit;
     end;
   if MessageDlg('确实要删除这条记录吗?',mtInformation,[mbYes,mbNo],0)=mrYes then
       try
        table1.Delete;
       except
         showmessage('无法删除,请重试！');
        end;
end;

procedure Tfbasefood.BitBtn3Click(Sender: TObject);
begin
  dbedit1.Enabled :=true;
  dbcombobox1.Enabled :=true;
  dbedit1.SetFocus ;
  table1.edit;
end;

procedure Tfbasefood.BitBtn5Click(Sender: TObject);
begin
   dbedit1.Enabled :=false;
   dbcombobox1.Enabled :=false;
//   query1.ParamByName('food_type').AsString :=dbedit
   if (table1.State =dsedit) or (table1.State =dsinsert) then
    try
    table1.post;
    except
     showmessage('保存失败!');
     table1.delete ;
     exit;
    end;
end;

procedure Tfbasefood.FormCreate(Sender: TObject);
begin
 table1.Open;
 dbedit1.Enabled :=false;
 dbcombobox1.Enabled :=false;
end;


procedure Tfbasefood.BitBtn4Click(Sender: TObject);
begin
   table1.Cancel;
   dbedit1.Enabled :=false;
   dbcombobox1.Enabled :=false;
end;

procedure Tfbasefood.BitBtn6Click(Sender: TObject);
begin
  close;
end;

end.