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.