【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:ItemControl.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit ItemControl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;
type
TItemForm = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
edItemNo: TEdit;
Label2: TLabel;
edITemName: TEdit;
Label3: TLabel;
edItemType: TEdit;
GroupBox2: TGroupBox;
Panel1: TPanel;
btAdd: TBitBtn;
btDel: TBitBtn;
btSearch: TBitBtn;
dbgridItem: TDBGrid;
Panel2: TPanel;
GroupBox3: TGroupBox;
memNote: TMemo;
Label4: TLabel;
edUplimit: TEdit;
Label5: TLabel;
edDownLimit: TEdit;
btReset: TBitBtn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure btAddClick(Sender: TObject);
procedure btDelClick(Sender: TObject);
procedure btSearchClick(Sender: TObject);
procedure btResetClick(Sender: TObject);
procedure dbgridItemCellClick(Column: TColumn);
private
{ Private declarations }
public
procedure zeroInput;
end;
var
ItemForm: TItemForm;
implementation
uses MainClass,MainDataModule,kfglMain;
{$R *.dfm}
procedure TItemForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
programMainForm.mnItemNo.Enabled :=true;
ItemForm.Release;
end;
procedure TItemForm.btAddClick(Sender: TObject);
var
Item :itemInfo;
ItemManager :itemDBM;
begin
Item :=ItemInfo.Create;
ItemManager :=ItemDBM.Create;
if not Item.SetItemInfoTo then
begin
Item.Free;
ItemManager.Free;
exit;
end;
if ItemManager.Isexist(Item.ItemNo) then
begin
showmessage('该货物编号已经存在');
Item.Free;
ItemManager.Free;
exit;
end;
ItemManager.AddItem(Item);
itemManager.Free;
Item.Free;
zeroInput;
end;
procedure TItemForm.btDelClick(Sender: TObject);
var
ItemManager :ItemDBM;
begin
ItemManager :=ItemDBM.Create;
ItemManager.DelItem;
ItemManager.Free;
end;
procedure TItemForm.btSearchClick(Sender: TObject);
var
Item :ItemInfo;
ItemManager :ItemDBM;
begin
Item :=ItemInfo.Create;
ItemManager :=ItemDBM.Create;
Item.opid :=true;
if not Item.SetItemInfoTo then
begin
Item.Free;
ItemManager.Free;
exit;
end;
main_DataModule.ItemTable.Filtered :=false;
Main_DataModule.ItemTable.Filter :=ItemManager.SearchItem(Item);
Main_DataModule.ItemTable.Filtered :=true;
end;
procedure TItemForm.btResetClick(Sender: TObject);
begin
zeroInput;
end;
procedure tItemForm.zeroInput;
begin
edItemNo.Clear;
edItemName.Clear;
edItemtype.Clear;
edUplimit.Clear;
edDownlimit.Clear;
memNote.Clear;
Main_DataModule.ItemTable.Filtered :=false;
btDel.Enabled :=false;
end;
procedure TItemForm.dbgridItemCellClick(Column: TColumn);
var
Item :itemInfo;
ItemManager :ItemDBM;
begin
Item :=itemInfo.Create;
Itemmanager :=ItemDBM.Create;
ItemManager.SetInfoFromTable(Item);
Item.SetForm;
btDel.Enabled :=true;
Item.Free;
Itemmanager.Free;
end;
end.