infotype.pas

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

unit infoType;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, information, ImgList, Menus, ComCtrls, ToolWin, Grids, DBGridEh,
  ExtCtrls, StdCtrls, Mask, DBCtrlsEh;

type
  TinfoTypeForm = class(TinfoForm)
    DBGrid2: TDBGridEh;
    Splitter2: TSplitter;
    DBGrid1: TDBGridEh;
    Splitter1: TSplitter;
    procedure TbaddClick(Sender: TObject);
    procedure TbeditClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TbexitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TbdelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  infoTypeForm: TinfoTypeForm;

implementation
uses dataModule1, GoodType;
{$R *.dfm}

procedure TinfoTypeForm.TbaddClick(Sender: TObject);
begin
//  inherited;
  with DataE2 do
  begin
    if dbGrid1.Focused  then
    begin
       GoodTypeForm.typeid:=1;
       dataadd(tblType1,GoodTypeForm);end
    else  if dbGrid2.Focused  then
    begin
       GoodTypeForm.typeid:=2;
       dataadd(tblType2,GoodTypeForm) end
    else  begin
       GoodTypeForm.typeid:=0;
       dataadd(tblType,GoodTypeForm);
    end;
  end;
end;

procedure TinfoTypeForm.TbeditClick(Sender: TObject);
begin
//  inherited;
  with DataE2 do
  begin
    if dbGrid1.Focused  then
    begin
       GoodTypeForm.typeid:=1;
       dataedit(tblType1,GoodTypeForm);end
    else  if dbGrid2.Focused  then
    begin
       GoodTypeForm.typeid:=2;
       dataEdit(tblType2,GoodTypeForm) end
    else  begin
       GoodTypeForm.typeid:=0;
       dataEdit(tblType,GoodTypeForm);
    end;
  end;

end;

procedure TinfoTypeForm.FormActivate(Sender: TObject);
begin
//  inherited;
end;

procedure TinfoTypeForm.FormShow(Sender: TObject);
begin
//  inherited;
  with dataE2 do
  begin
    tblType1.MasterFields :='type';
    tblType1.MasterSource :=dsType;

    tblType2.MasterFields :='type;code1';
    tblType2.MasterSource :=dsType1;

    //使二类显示正确，否则当进入单据操作后，二类全部显示出来
    infoGEh.SetFocus ;
    tblType.First;
  end;
end;

procedure TinfoTypeForm.TbexitClick(Sender: TObject);
begin
  //inherited;
  close;
end;

procedure TinfoTypeForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  //inherited;
  with dataE2 do
  begin
    tblType1.MasterFields :='';
    tblType1.MasterSource :=nil;//dsType;

    tblType2.MasterFields :='';
    tblType2.MasterSource :=nil;//dsType1;
  end;
end;

procedure TinfoTypeForm.TbdelClick(Sender: TObject);
begin
  inherited;
  with DataE2 do
  begin
    if dbGrid1.Focused  then
    begin
       GoodTypeForm.typeid:=1;
       datadel(tblType1);end
    else  if dbGrid2.Focused  then
    begin
       GoodTypeForm.typeid:=2;
       datadel(tblType2) end
    else  begin
       GoodTypeForm.typeid:=0;
       with dataE2.qryGet do
       begin
         close;
         SQL.Clear;
         SQL.Add('select top 1 * from goodstype1 where type=:type');
         Parameters[0].Value:=tblType1.FieldByName('Type').asstring;
         open;
         if Not Eof then
         begin
           Application.MessageBox('已产生业务关系，不能删除！','提示',64);
           exit; end
         end;
       datadel(tblType);
    end;
  end;
end;

end.