物料主文件维护功能的实现[3]

//显示物料主文件中的物料类别的名称

//该事件在datasource的events属性中添加

procedure TmaterialsDataSourceDataChange(Sender: TObject; Field: TField);

var

numtemp:string;

begin

//showmessage(dbgridFields[]AsString);

//根据选取的数据记录查询出它的详细数据

num:=dbgridFields[]AsString;

adoqueryClose;

adoquerySQLClear;

adoquerySQLAdd(select * from 物料主文件 where 物料编号=+num+);

adoqueryOpen;

//显示计划类别的名称(物料主文件中存储的是其拼音编码)

temp:=adoqueryfieldbyname(计划类别)AsString;

adoqueryClose;

adoquerySQLClear;

adoquerySQLAdd(select 类别名称 from 物料计划类别 where 类别代码=+temp+);

adoqueryOpen;

dbcomboboxText:=adoqueryfieldbyname(类别名称)AsString;

end;

//下一条记录

procedure TmaterialsBitBtnClick(Sender: TObject);

begin

datasourceDataSetNext;

end;

//上一条记录

procedure TmaterialsBitBtnClick(Sender: TObject);

begin

datasourceDataSetPrior;

end;

//首条记录

procedure TmaterialsBitBtnClick(Sender: TObject);

begin

datasourceDataSetFirst;

end;

//末条记录

procedure TmaterialsBitBtnClick(Sender: TObject);

begin

datasourceDataSetLast;

end;

//点击窗体的X形图标时关闭窗体而不是最小化

procedure TmaterialsFormClose(Sender: TObject; var Action: TCloseAction);

begin

//当点击子窗体的关闭按钮时释放关闭窗体如果不设置这条代码将是最小化窗体而不是关闭

action:=cafree;

end;

[] [] [] [] [] [] [] []

上一篇：物料主文件维护功能的实现[1]

下一篇：物料主文件维护功能的实现[2]