scheme_modfy.pas

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

unit Scheme_Modfy;

interface

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

type
  TScheme_ModfyFrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    DBGrid1: TDBGrid;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    procedure BitBtn2Click(Sender: TObject);
    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);
  private
    { Private declarations }
  public
    { Public declarations }  
  end;

var
  Scheme_ModfyFrm: TScheme_ModfyFrm;
implementation
   uses DataModule,DepartmentSelect, Scheme;
{$R *.dfm}

procedure TScheme_ModfyFrm.BitBtn2Click(Sender: TObject);
begin
   Scheme_ModfyFrm.Close;
end;

procedure TScheme_ModfyFrm.ToolButton1Click(Sender: TObject);
begin
  DM.AT_Scheme.First;
end;

procedure TScheme_ModfyFrm.ToolButton2Click(Sender: TObject);
begin
  DM.AT_Scheme.Prior;
end;

procedure TScheme_ModfyFrm.ToolButton3Click(Sender: TObject);
begin
   DM.AT_Scheme.Next;
end;

procedure TScheme_ModfyFrm.ToolButton4Click(Sender: TObject);
begin
   DM.AT_Scheme.Last;
end;

procedure TScheme_ModfyFrm.ToolButton6Click(Sender: TObject);
begin
  DM.AT_Scheme.Edit;
  DM.AT_Scheme['Scheme_Num']:=DBEdit9.Text;
  DM.AT_Scheme.Post;
end;

procedure TScheme_ModfyFrm.ToolButton7Click(Sender: TObject);
begin
   DM.AT_Scheme.Delete;
end;

procedure TScheme_ModfyFrm.ToolButton8Click(Sender: TObject);
begin
    DM.AT_Scheme.Refresh;
end;

procedure TScheme_ModfyFrm.ToolButton9Click(Sender: TObject);
begin
   Scheme_ModfyFrm.Close;
end;

end.