unit_mater_dic.~pas

此代码为企业原料管理代码

unit Unit_Mater_Dic;

interface

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

type
  TForm_Mater_Dic = class(TForm)
    DBGrid_Dic: TDBGrid;
    Tab_Dic: TTable;
    DS_Dic: TDataSource;
    BitBtn_Ins: TBitBtn;
    BitBtn_Del: TBitBtn;
    BitBtn_Mod: TBitBtn;
    BitBtn_Post: TBitBtn;
    BitBtn_Cancel: TBitBtn;
    Panel1: TPanel;
    Panel2: TPanel;
    DBEdit_Mater: TDBEdit;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    DBEdit_Id: TDBEdit;
    DBEdit_Lim: TDBEdit;
    DBEdit_Index: TDBEdit;
    BitBtn1: TBitBtn;
    Query1: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn_InsClick(Sender: TObject);
    procedure BitBtn_PostClick(Sender: TObject);
    procedure BitBtn_ModClick(Sender: TObject);
    procedure BitBtn_CancelClick(Sender: TObject);
    procedure BitBtn_DelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit_IdEnter(Sender: TObject);
    procedure DBEdit_IdExit(Sender: TObject);
    procedure DBEdit_LimExit(Sender: TObject);
  private
    { Private declarations }
    n_MinHeight,n_MaxHeight:integer;
  public
    { Public declarations }
  end;

var
  Form_Mater_Dic: TForm_Mater_Dic;

implementation

{$R *.DFM}

procedure TForm_Mater_Dic.FormCreate(Sender: TObject);
begin
  n_MinHeight:=310;
  n_MaxHeight:=400;
  Form_Mater_Dic.Height:=n_MinHeight;
end;

procedure TForm_Mater_Dic.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//限制其他按钮
  DBGrid_Dic.Enabled:=true;
  BitBtn_Ins.Enabled:=true;
  BitBtn_Del.Enabled:=true;
  BitBtn_Mod.Enabled:=true;

//处理自己的事件
  Tab_Dic.cancel;

//窗体上卷滚动效果
  while Form_Mater_Dic.Height >n_MinHeight do
  begin
    Form_Mater_Dic.Height:=Form_Mater_Dic.Height-1;
  end; //while
end;

procedure TForm_Mater_Dic.BitBtn_InsClick(Sender: TObject);
var
  i:integer;
begin
//限制其他按钮
  DBGrid_Dic.Enabled:=false;
  BitBtn_Ins.Enabled:=false;
  BitBtn_Del.Enabled:=false;
  BitBtn_Mod.Enabled:=false;

  Tab_Dic.last;
  i:=Tab_Dic.fieldbyname('标识号').asinteger;
  i:=i+1;
//处理自己的事件
  Tab_Dic.append;

//窗体下拉滚动效果
  while Form_Mater_Dic.Height <n_MaxHeight do
  begin
    Form_Mater_Dic.Height:=Form_Mater_Dic.Height+1;
  end; //while

  DBEdit_Mater.SetFocus;
  DBEdit_Id.text:=inttostr(i);
end;

procedure TForm_Mater_Dic.BitBtn_PostClick(Sender: TObject);
begin
//检查栏目是否为空
  if ((DBEdit_Id.text='') or (DBEdit_Mater.text='') or (DBEdit_Index.text='') or (DBEdit_Lim.text=''))  then
  begin
    showmessage('请填写所有栏目!');
    exit;
  end; //if

//限制其他按钮
  DBGrid_Dic.Enabled:=true;
  BitBtn_Ins.Enabled:=true;
  BitBtn_Del.Enabled:=true;
  BitBtn_Mod.Enabled:=true;

//处理自己的事件
  Tab_Dic.post;

//窗体上卷滚动效果
  while Form_Mater_Dic.Height >n_MinHeight do
  begin
    Form_Mater_Dic.Height:=Form_Mater_Dic.Height-1;
  end; //while

  perform(WM_NEXTDLGCTL,0,0);
end;

procedure TForm_Mater_Dic.BitBtn_ModClick(Sender: TObject);
begin
//限制其他按钮
  DBGrid_Dic.Enabled:=false;
  BitBtn_Mod.Enabled:=false;
  BitBtn_Del.Enabled:=false;
  BitBtn_Ins.Enabled:=false;

//处理自己的事件
  Tab_Dic.edit;

//窗体下拉滚动效果
  while Form_Mater_Dic.Height <n_MaxHeight do
  begin
    Form_Mater_Dic.Height:=Form_Mater_Dic.Height+1;
  end; //while

end;

procedure TForm_Mater_Dic.BitBtn_CancelClick(Sender: TObject);
begin
//限制其他按钮
  DBGrid_Dic.Enabled:=true;
  BitBtn_Ins.Enabled:=true;
  BitBtn_Del.Enabled:=true;
  BitBtn_Mod.Enabled:=true;

//处理自己的事件
Tab_Dic.cancel;

//窗体上卷滚动效果
  while Form_Mater_Dic.Height >n_MinHeight do
  begin
    Form_Mater_Dic.Height:=Form_Mater_Dic.Height-1;
  end; //while

end;

procedure TForm_Mater_Dic.BitBtn_DelClick(Sender: TObject);
var
  i:integer;
begin
  if messagedlg('确认从字典中删除该材料吗？',mtwarning,[mbyes,mbno],0) = mryes then
  begin
    i:=Tab_Dic.fieldbyname('标识号').asinteger;

  //处理自己的事件
    Tab_Dic.delete;
  end; //if

  with Query1 do
  begin
    close;
    sql.Clear;
    sql.Add('update 原材料字典 set 标识号 = 标识号 -1 where 标识号 > :i ');
    parambyname('i').asinteger:=i;
    execsql;
  end; //with

  Tab_Dic.close;
  Tab_Dic.open;


end;

procedure TForm_Mater_Dic.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
  end; //if

end;

procedure TForm_Mater_Dic.DBEdit_IdEnter(Sender: TObject);
begin
  TEdit(Sender).color:=claqua;
end;

procedure TForm_Mater_Dic.DBEdit_IdExit(Sender: TObject);
begin
  TEdit(Sender).color:=clwindow;
end;

procedure TForm_Mater_Dic.DBEdit_LimExit(Sender: TObject);
begin
  TEdit(Sender).color:=clwindow;
  bitbtn_Post.SetFocus;
end;

end.