【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了MaterialType_Unit.pas提供大家参考,希望对大家有所帮助!
unit MaterialType_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Mask, DBCtrls, Grids, DBGrids, Buttons,
ExtCtrls, ToolWin;
type
TfrmMaterialType = class(TForm)
dbgrdMaterial: TDBGrid;
StatusBar1: TStatusBar;
ControlBar1: TControlBar;
CoolBar1: TCoolBar;
sbtnAdd: TSpeedButton;
sbtnSave: TSpeedButton;
Bevel1: TBevel;
sbtnExit: TSpeedButton;
sbtnDelete: TSpeedButton;
sbtnCancel: TSpeedButton;
Panel1: TPanel;
Label1: TLabel;
dbedtTypeID: TDBEdit;
Label2: TLabel;
dbedtTypeName: TDBEdit;
procedure btnInsertClick(Sender: TObject);
procedure dbedtTypeIDKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure sbtnAddClick(Sender: TObject);
procedure sbtnSaveClick(Sender: TObject);
procedure sbtnDeleteClick(Sender: TObject);
procedure sbtnCancelClick(Sender: TObject);
procedure sbtnExitClick(Sender: TObject);
private
InNo:string; //类型编号
public
{ Public declarations }
end;
var
frmMaterialType: TfrmMaterialType;
implementation
uses DM_Unit;
{$R *.dfm}
procedure TfrmMaterialType.btnInsertClick(Sender: TObject);
begin
DM.DataSetInsert(DM.sdsMaterialType);
dbedtTypeID.SetFocus;
end;
procedure TfrmMaterialType.dbedtTypeIDKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if key=VK_RETURN then
begin
if trim(dbedtTypeID.text)='' then
begin
DM.OfferTypeID('select MaterialTypeID from WMS_MaterialType order by MaterialTypeID desc ',InNo);
dbedtTypeID.text:='00'+InNo;
dbedtTypeName.setfocus;
end
else
begin
dbedtTypeName.setfocus;
end;
end;
end;
procedure TfrmMaterialType.FormCreate(Sender: TObject);
begin
DM.sdsMaterialType.Open;
end;
procedure TfrmMaterialType.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
DM.sdsMaterialType.Close;
end;
procedure TfrmMaterialType.FormShow(Sender: TObject);
begin
dbedtTypeID.SetFocus;
end;
procedure TfrmMaterialType.sbtnAddClick(Sender: TObject);
begin
DM.DataSetInsert(DM.sdsMaterialType);
dbedtTypeID.SetFocus;
end;
procedure TfrmMaterialType.sbtnSaveClick(Sender: TObject);
begin
DM.DataSetSave(DM.sdsMaterialType);
end;
procedure TfrmMaterialType.sbtnDeleteClick(Sender: TObject);
begin
if MessageDlg('确定删除此记录吗?', mtWarning, [mbOk, mbCancel], 0) = IDOK then
DM.DataSetDelete(DM.sdsMaterialType);
end;
procedure TfrmMaterialType.sbtnCancelClick(Sender: TObject);
begin
DM.DataSetCancel(DM.sdsMaterialType);
end;
procedure TfrmMaterialType.sbtnExitClick(Sender: TObject);
begin
Close;
end;
end.
上一篇:
hooks.cpp
下一篇:
法律专业开题报告范文