materiel_s_modfy.pas

该系统主要用于生产采购系统

unit Materiel_S_Modfy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, ImgList, StdCtrls, Mask,
  ComCtrls, ToolWin;

type
  TMateriel_S_ModfyFrm = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    ImageList1: TImageList;
    DBGrid1: TDBGrid;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure DBEdit8Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Materiel_S_ModfyFrm: TMateriel_S_ModfyFrm;

implementation
   uses DataModule;
{$R *.dfm}

procedure TMateriel_S_ModfyFrm.ToolButton1Click(Sender: TObject);
begin
   DM.AT_Materiel_Stock.First;
end;

procedure TMateriel_S_ModfyFrm.ToolButton2Click(Sender: TObject);
begin
  DM.AT_Materiel_Stock.Prior;
end;

procedure TMateriel_S_ModfyFrm.ToolButton3Click(Sender: TObject);
begin
   DM.AT_Materiel_Stock.Next;
end;

procedure TMateriel_S_ModfyFrm.ToolButton4Click(Sender: TObject);
begin
   DM.AT_Materiel_Stock.Last;
end;

procedure TMateriel_S_ModfyFrm.ToolButton6Click(Sender: TObject);
begin
   DM.AT_Materiel_Stock.Edit;
   DM.AT_Materiel_Stock['S_Materiel_Num']:=DBEdit8.Text;
   DM.AT_Materiel_Stock['S_Materiel_Price']:=DBEdit9.Text;
   DM.AT_Materiel_Stock.Post;
end;

procedure TMateriel_S_ModfyFrm.ToolButton7Click(Sender: TObject);
begin
   DM.AT_Materiel_Stock.Delete;
end;

procedure TMateriel_S_ModfyFrm.ToolButton8Click(Sender: TObject);
begin
   DM.AT_Materiel_Stock.Refresh;
end;

procedure TMateriel_S_ModfyFrm.ToolButton9Click(Sender: TObject);
begin
   Materiel_S_ModfyFrm.Close;
end;

procedure TMateriel_S_ModfyFrm.DBEdit8Exit(Sender: TObject);
begin
   DBEdit9.Text:=inttostr(strtoint(DBEdit7.Text)*strtoint(DBEdit8.Text))
end;

end.