【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-manufacturer_unit.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit manufacturer_unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TEMPLETFORM, TradeImage, LabelButton, MoveImageButton, Menus,
ComCtrls, ToolWin, StdCtrls, ExtCtrls, DB, ADODB, Grids, DBGrids,
NewDBGrid;
type
Tmanufacturer = class(TTEMPLETF)
Panel1: TPanel;
MIBtnExit: TMoveImgBtn;
lbBtnExit: TLabelBtn;
TradeImg1: TTradeImg;
LabelBtn1: TLabelBtn;
NewDBGrid1: TNewDBGrid;
qry: TADOQuery;
DataSource1: TDataSource;
qryproducer_id: TStringField;
qryproducer_name: TStringField;
qrylinkman: TStringField;
qrytel: TStringField;
qryfax: TStringField;
qrycode: TStringField;
qryaddress: TStringField;
qryexist: TIntegerField;
procedure FormShow(Sender: TObject);
procedure MIBtnExitClick(Sender: TObject);
procedure TradeImg1Click(Sender: TObject);
procedure NewDBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
manufacturer: Tmanufacturer;
implementation
uses data_unit, manufacturer_add_unit;
{$R *.dfm}
procedure Tmanufacturer.FormShow(Sender: TObject);
begin
inherited;
with qry do
begin
close;
sql.Clear ;
sql.Add('select * from manufacturer where exist=:id order by producer_id');
parameters.ParamByName('id').value:=1;
open;
end;
end;
procedure Tmanufacturer.MIBtnExitClick(Sender: TObject);
var adoquery1:tadoquery;
begin
inherited;
try
adoquery1:=tadoquery.Create(nil);
adoquery1.Connection:=data.ADOConnection1 ;
adoquery1.Close;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('select * from goods_in where manufacturer=:id');
adoquery1.Parameters.ParamByName('id').Value:=trim(qry.Fields[0].Value);
adoquery1.open;
adoquery1.first;
while not adoquery1.Eof do
begin
if trim(adoquery1.Fields[5].Value)='否' then
begin
application.MessageBox('该供应商还有未完结交易,操作被取消!','系统信息',mb_ok+mb_iconinformation);
exit
end;
adoquery1.next;
end;
if application.MessageBox('确实要删除这条记录吗?','系统信息',mb_okcancel+mb_iconinformation)=id_ok then
begin
qry.Edit;
qry.Fields[7].Value:=0;
qry.Post;
qry.close;
qry.Open;
end;
finally
adoquery1.Free;
end;
end;
procedure Tmanufacturer.TradeImg1Click(Sender: TObject);
begin
inherited;
manufacturer_add.Edit1.enabled:=true;
manufacturer_add.Edit8.text:='a';
manufacturer_add.ShowModal;
end;
procedure Tmanufacturer.NewDBGrid1DblClick(Sender: TObject);
begin
inherited;
manufacturer_add.Edit1.enabled:=false;
manufacturer_add.ShowModal;
end;
end.
上一篇:
HMSDoc.cpp
下一篇:
法律专业开题报告范文