information.pas

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

      if not tblTmp.Active then tbltmp.open;
    end;
  end;

  with DataE2 do
  begin
  infoGEh.Columns.Clear;
  if self.caption='供应商资料' then
  begin
   infoGEh.Columns.Add.Field:=Tblvendor.Fieldbyname('vendorno');
   infoGEh.Columns.Add.Field:=Tblvendor.Fieldbyname('SHORTNAME');
   infoGEh.Columns.Add.Field:=Tblvendor.Fieldbyname('PHONE');
   infoGEh.Columns.Add.Field:=Tblvendor.Fieldbyname('SURAMT');
   infoGEh.Columns.Add.Field:=Tblvendor.Fieldbyname('BALANCE');
   infoGEh.Columns[0].Title.caption:=' 供应商编码 ';
   infoGEh.Columns[1].Title.caption:='供应商名称';
   infoGEh.Columns[2].Title.caption:='电话';
   infoGEh.Columns[3].Title.caption:='预付金额';
   infoGEh.Columns[4].Title.caption:='应付款';
   infoGEh.Columns[0].Width:=80;
   infoGEh.Columns[1].Width:=200;
   infoGEh.Columns[2].Width:=100;
   infoGEh.Columns[3].Width:=80;
   infoGEh.Columns[4].Width:=80;
   infoGEh.Columns[0].title.Alignment:=taCenter;
  end;
  if self.caption='客户资料' then
  begin
   infoGEh.Columns.Add.Field:=Tblclient.Fieldbyname('CLIENTNO');
   infoGEh.Columns.Add.Field:=Tblclient.Fieldbyname('SHORTNAME');
   infoGEh.Columns.Add.Field:=Tblclient.Fieldbyname('PHONE');
   infoGEh.Columns.Add.Field:=Tblclient.Fieldbyname('CREDIT');
   infoGEh.Columns.Add.Field:=Tblclient.Fieldbyname('SURAMT');
   infoGEh.Columns.Add.Field:=Tblclient.Fieldbyname('BALANCE');
   infoGEh.Columns[0].Title.caption:=' 客户编码 ';
   infoGEh.Columns[1].Title.caption:='客户名称';
   infoGEh.Columns[2].Title.caption:='电话';
   infoGEh.Columns[3].Title.caption:='信用金额';
   infoGEh.Columns[4].Title.caption:='预收金额';
   infoGEh.Columns[5].Title.caption:='应收款';
  // infoGEh.Columns[3].Title.caption:='预收款';
  // infoGEh.Columns[4].Title.caption:='实际欠款';
  // infoGEh.Columns[5].Title.caption:='应收款';
   infoGEh.Columns[0].Width:=80;
   infoGEh.Columns[1].Width:=200;
   infoGEh.Columns[2].Width:=80;
   infoGEh.Columns[3].Width:=80;
   infoGEh.Columns[4].Width:=80;
   infoGEh.Columns[5].Width:=80;
  end;
  if self.caption='区域资料' then
  begin
   infoGEh.Columns.Add.Field:=tblSubarea.Fieldbyname('name');
   infoGEh.Columns[0].Title.caption:='区域名称 ';
   infoGEh.Columns[0].Width:=infoGEh.Width-25;
  end;
  if self.caption='客户类别' then
  begin
   infoGEh.Columns.Add.Field:=tblclienttype.Fieldbyname('name');
   infoGEh.Columns[0].Title.caption:='名称';
   infoGEh.Columns[0].Width:=infoGEh.Width-25;
  end;
  if self.caption='供应商类别' then
  begin
   infoGEh.Columns.Add.Field:=tblvdtype.Fieldbyname('name');
   infoGEh.Columns[0].Title.caption:='名称';
   infoGEh.Columns[0].Width:=infoGEh.Width-25;
  end;
  if self.caption='货品资料' then
  begin
   infoGEh.Columns.Add.Field:=tblGoods.Fieldbyname('code');
   infoGEh.Columns.Add.Field:=tblGoods.Fieldbyname('barcode');
   infoGEh.Columns.Add.Field:=tblGoods.Fieldbyname('name');
   infoGEh.Columns.Add.Field:=tblGoods.Fieldbyname('typecode');
   infoGEh.Columns.Add.Field:=tblGoods.Fieldbyname('units');
   infoGEh.Columns.Add.Field:=tblGoods.Fieldbyname('perqty');
   infoGEh.Columns.Add.Field:=tblGoods.Fieldbyname('unit2');
   infoGEh.Columns.Add.Field:=tblGoods.Fieldbyname('inPrice');
   infoGEh.Columns.Add.Field:=tblGoods.Fieldbyname('SpePrice');
   infoGEh.Columns.Add.Field:=tblGoods.Fieldbyname('SalePrice');
   infoGEh.Columns.Add.Field:=tblGoods.Fieldbyname('SpePrice2');
   infoGEh.Columns.Add.Field:=tblGoods.Fieldbyname('SalePrice2');
   infoGEh.Columns[0].Title.caption:='货品编码';
   infoGEh.Columns[1].Title.caption:='条形码';
   infoGEh.Columns[2].Title.caption:='货品简称';
   infoGEh.Columns[3].Title.caption:='货品类别';
   infoGEh.Columns[4].Title.caption:='包装单位';
   infoGEh.Columns[5].Title.caption:='包装规格';
   infoGEh.Columns[6].Title.caption:='基本单位';
   infoGEh.Columns[7].Title.caption:='进价';
   infoGEh.Columns[8].Title.caption:='批发价1';
   infoGEh.Columns[9].Title.caption:='批发价2';
   infoGEh.Columns[10].Title.caption:='零售价1';
   infoGEh.Columns[11].Title.caption:='零售价2';
   infoGEh.Columns[0].Width:=70;
   infoGEh.Columns[1].Width:=90;
   infoGEh.Columns[2].Width:=150;
   infoGEh.Columns[3].Width:=80;
   infoGEh.Columns[4].Width:=60;
   infoGEh.Columns[5].Width:=60;
   infoGEh.Columns[6].Width:=60;
   infoGEh.Columns[7].Width:=60;
   infoGEh.Columns[8].Width:=60;
   infoGEh.Columns[9].Width:=60;
   infoGEh.Columns[10].Width:=60;
   infoGEh.Columns[11].Width:=60;
  end;
  if self.caption='仓库资料' then
  begin
   infoGEh.Columns.Add.Field:=tblStore.Fieldbyname('name');
   infoGEh.Columns.Add.Field:=tblStore.Fieldbyname('LOCATION');
   infoGEh.Columns[0].Title.caption:='名称';
   infoGEh.Columns[1].Title.caption:='位置';
   infoGEh.Columns[0].Width:=210;
   infoGEh.Columns[1].Width:=210;
  end;
  if self.caption='货品类别' then
  begin
   infoGEh.Columns.Add.Field:=tblType.Fieldbyname('type');
   infoGEh.Columns.Add.Field:=tblType.Fieldbyname('name');
   infoGEh.Columns[0].Title.caption:='编码';
   infoGEh.Columns[1].Title.caption:='名称';
   infoGEh.Columns[0].Width:=210;
   infoGEh.Columns[1].Width:=210;
  end;
  if self.caption='单位资料' then
  begin
   infoGEh.Columns.Add.Field:=tblUnit.Fieldbyname('units');
   infoGEh.Columns.Add.Field:=tblUnit.Fieldbyname('unit2');
   infoGEh.Columns[0].Title.caption:='基本单位';
   infoGEh.Columns[1].Title.caption:='包装单位';
   infoGEh.Columns[0].Width:=210;
   infoGEh.Columns[1].Width:=210;
  end;
  if self.caption='部门资料' then
  begin
   infoGEh.Columns.Add.Field:=tblDept.Fieldbyname('department');
   infoGEh.Columns[0].Title.caption:='名称';
   infoGEh.Columns[0].Width:=infoGEh.Width-25;
  end;
  if self.caption='员工资料' then
  begin
   infoGEh.Columns.Add.Field:=tblemploy.Fieldbyname('code');
   infoGEh.Columns.Add.Field:=tblemploy.Fieldbyname('Name');
   infoGEh.Columns.Add.Field:=tblemploy.Fieldbyname('Sex');
   infoGEh.Columns.Add.Field:=tblemploy.Fieldbyname('deptid');
   infoGEh.Columns.Add.Field:=tblemploy.Fieldbyname('Birthday');
   infoGEh.Columns.Add.Field:=tblemploy.Fieldbyname('IdCard');
   infoGEh.Columns.Add.Field:=tblemploy.Fieldbyname('Duty');
   infoGEh.Columns.Add.Field:=tblemploy.Fieldbyname('Phone');
   infoGEh.Columns.Add.Field:=tblemploy.Fieldbyname('MobilePhone');
   infoGEh.Columns.Add.Field:=tblemploy.Fieldbyname('Address');
   infoGEh.Columns[0].Title.caption:='员工编码';
   infoGEh.Columns[1].Title.caption:='员工名称';
   infoGEh.Columns[2].Title.caption:='性别';
   infoGEh.Columns[3].Title.caption:='部门';
   infoGEh.Columns[4].Title.caption:='出生日期';
   infoGEh.Columns[5].Title.caption:='身份证号';
   infoGEh.Columns[6].Title.caption:='职务';
   infoGEh.Columns[7].Title.caption:='电话';
   infoGEh.Columns[8].Title.caption:='手机';
   infoGEh.Columns[9].Title.caption:='地址';
   infoGEh.Columns[0].Width:=60;
   infoGEh.Columns[1].Width:=60;
   infoGEh.Columns[2].Width:=30;
   infoGEh.Columns[3].Width:=80;
   infoGEh.Columns[4].Width:=70;
   infoGEh.Columns[5].Width:=100;
   infoGEh.Columns[6].Width:=70;
   infoGEh.Columns[7].Width:=100;
   infoGEh.Columns[8].Width:=100;
   infoGEh.Columns[9].Width:=100;
  end;
  if self.caption='其它出入库类型' then
  begin
   infoGEh.Columns.Add.Field:=tblIOTYPE.Fieldbyname('Code');
   infoGEh.Columns.Add.Field:=tblIOTYPE.Fieldbyname('NAME');
   infoGEh.Columns[0].Title.caption:='编码';
   infoGEh.Columns[1].Title.caption:='名称';
   infoGEh.Columns[0].Width:=210;
   infoGEh.Columns[1].Width:=210;
  end;
  if self.caption='收付款方式' then
  begin
   infoGEh.Columns.Add.Field:=tblpaytype.Fieldbyname('Code');
   infoGEh.Columns.Add.Field:=tblpaytype.Fieldbyname('NAME');
   infoGEh.Columns[0].Title.caption:='编码';
   infoGEh.Columns[1].Title.caption:='名称';
   infoGEh.Columns[0].Width:=210;
   infoGEh.Columns[1].Width:=210;
  end;
  if self.caption='现金银行' then
  begin
   infoGEh.Columns.Add.Field:=tblbank.Fieldbyname('Code');
   infoGEh.Columns.Add.Field:=tblbank.Fieldbyname('NAME');
   infoGEh.Columns.Add.Field:=tblbank.Fieldbyname('BankCode');
   infoGEh.Columns.Add.Field:=tblbank.Fieldbyname('FirstAmount');
   infoGEh.Columns[0].Title.caption:='帐户编码';
   infoGEh.Columns[1].Title.caption:='帐户名称';
   infoGEh.Columns[2].Title.caption:='银行帐号';
   infoGEh.Columns[3].Title.caption:='期初金额';
   infoGEh.Columns[0].Width:=95;
   infoGEh.Columns[1].Width:=115;
   infoGEh.Columns[2].Width:=115;
   infoGEh.Columns[3].Width:=90;
  end;
  if self.caption='收入支出类别' then
  begin
   infoGEh.Columns.Add.Field:=tblIetype.Fieldbyname('Code');
   infoGEh.Columns.Add.Field:=tblIetype.Fieldbyname('NAME');
   infoGEh.Columns[0].Title.caption:='编码';
   infoGEh.Columns[1].Title.caption:='名称';
   infoGEh.Columns[0].Width:=210;
   infoGEh.Columns[1].Width:=210;
  end;

  if self.caption='操作员及权限设置' then
  begin
   infoGEh.Columns.Add.Field:=tblOpr.Fieldbyname('number');
   infoGEh.Columns.Add.Field:=tblOpr.Fieldbyname('name');
   infoGEh.Columns[0].Title.caption:='操作员编码';
   infoGEh.Columns[1].Title.caption:='操作员名称';
   infoGEh.Columns[0].Width:=100;
   infoGEh.Columns[1].Width:=200;
   tbRights.Visible :=true;
  end else  tbRights.Visible :=false;

    nCount:=infoGeh.fieldcount-1;
    for i:=0 to nCount do
    begin
      infoGeh.Columns[i].Title.alignment:= taCenter;
      infoGeh.Columns[i].Title.TitleButton:=true;
    end;

    tbSec.Visible := queryId >0 ;
  end;
  PanelCondition1.Visible:=(self.caption='货品资料');
  tbCopy.Visible:=(self.caption='货品资料');
end;

procedure TinfoForm.infoGEhDblClick(Sender: TObject);
begin
  Tbedit.Click;
end;

procedure TinfoForm.TbRightsClick(Sender: TObject);
begin
  application.CreateForm(TRightsForm, RightsForm);
  RightsForm.sNumber:=dataE2.tblOpr.fieldbyname('number').asstring;
  RightsForm.ShowModal;
  RightsForm.Free;
end;

procedure TinfoForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if QueryId > 0  then
    with dataE2 do
    case QueryId of
      1 :  tblGoods.close;
      2 :  tblVendor.close;
      3 :  tblClient.close;
    end
  else  tblTmp.Close;

  with dataE2 do
  if not tblStore.Active then tblStore.open;
end;

procedure TinfoForm.DBEditEh1EditButtons0Click(Sender: TObject;
  var Handled: Boolean);
begin
  TreeGoodsTypeFrm.NewSQL1:='select * from goodsType order by Type';
  TreeGoodsTypeFrm.NewCaption:='货品类别';
  TreeGoodsTypeFrm.NewSQL2:='select * from goodstype1 where type=:Type order by Type,code1';
  TreeGoodsTypeFrm.NewSQL3:='select * from goodstype2 where type=:Type and code1=:code1 order by Type,code1,code2';
  if TreeGoodsTypeFrm.showmodal=mrok then
  with dataE2 do
  begin
    edtTypeCode.Text:=copy(TreeGoodsTypeFrm.tvType.Selected.Text,1,pos(' ',TreeGoodsTypeFrm.tvType.Selected.Text)-1);
    tblGoods.Close;
    tblGoods.Parameters[0].Value:=edtTypeCode.Text+'%';
    tblGoods.Open;
  end;
end;

procedure TinfoForm.edtCodeKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    with dataE2.tblGoods do
    begin
      if edtCode.Text<>'' then
      begin
        if Length(edtCode.Text)<8 then
          locate('code',edtCode.text,[loPartialKey])
        else
          locate('barcode',edtCode.text,[loPartialKey]);
        edtCode.Text:='';
      end;
    end;
end;

procedure TinfoForm.tbCopyClick(Sender: TObject);
var
  i:Integer;
begin
  //拷贝当前记录
  try
    with DataE2.QueryTmp do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from goods where GoodsId =:GoodsId');
      Parameters[0].Value:=DataE2.tblGoods.FieldByName('GoodsId').AsInteger;
      Open;
      DataE2.tblGoods.Insert;
      for i:=1 to FieldCount-1 do
        DataE2.tblGoods.Fields[i].Assign(Fields[i]);
      Tbedit.Click;
    end;
  except
    on E:Exception do
    showmessage(e.Message);
  end;
end;

function TinfoForm.CheckCode(sqlstr: string; aValue: Integer): boolean;
begin
  with dataE2.qryGet do
  begin
    close;
    SQL.Clear;
    SQL.Add('select top 1 * from '+sqlstr);
    Parameters[0].Value:=aValue;
    open;
    if Not Eof then
    begin
      Result:=true;
      Application.MessageBox('已产生业务关系，不能删除！','提示',64); end
    else Result:=false;
  end;
end;

procedure TinfoForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #27 then
    close;
end;

procedure TinfoForm.TbsaveClick(Sender: TObject);
var //导出数据到Excel文件中
  eclapp, workbook: Variant;
  row, column, i: Integer;
begin
  if (datae2.tblGoods.Active) or (datae2.Tblvendor.Active) or datae2.tblClient.Active then
  begin
    if MessageDlg('真的要导出到EXCEL吗?你确定你安装了Microsoft EXCEl97/2000/XP?',
      mtconfirmation, [mbyes, mbno], 0) <> idyes then exit
    else
    begin
      try
        begin //生成一个Excel OleObject
          EclApp := CreateOleObject('Excel.Application');
          WorkBook := CreateOleObject('Excel.Sheet');
        end
      except //产生例外保存
        showmessage('您的机器里面可能没有安装任何版本的Excel');
        Exit;
      end;
      try
        Application.ProcessMessages;
        workBook := EclApp.workBooks.add;
        row := 2;
        EclApp.Workbooks.Item[1].Activate;
        eclApp.Cells.font.colorindex := 1;
        //datae2.tblGoods.DisableControls;
        //datae2.tblGoods.First;
        infoGEh.DataSource.DataSet.DisableControls;
        infoGEh.DataSource.DataSet.First;
        EclApp.Activesheet.Cells(1, 2) := self.Caption;
        for I:=0 to infoGEh.FieldCount-1 do
          EclApp.Activesheet.Cells(2, I+1) := infoGEh.columns[i].Title.Caption;
        while not (infoGEh.DataSource.DataSet.Eof)  do   //(datae2.tblGoods.Eof)
        begin
          column := 1;
          for I:=0 to infoGEh.FieldCount-1 do
          begin
            if (RightStr(infoGEh.columns[i].Title.Caption,4)='编码') or (infoGEh.columns[i].Title.Caption='条形码') then
              eclApp.Cells.Item[row + 1, column] :=''''+infoGEh.columns[i].Field.AsString
            else
              eclApp.Cells.Item[row + 1, column] := infoGEh.columns[i].Field.AsString;
            column := column + 1;
          end;
          infoGEh.DataSource.DataSet.Next; //datae2.tblGoods.Next;
          row := row + 1;
        end;
        infoGEh.DataSource.DataSet.EnableControls; //datae2.tblGoods.EnableControls;
        if savedialog1.execute then //保存Excel文件
          WorkBook.saveas(savedialog1.filename);
          workBook.Saved := True;
  //      eclApp := Unassigned;
          showmessage('数据成功导出到EXCEL!');
          WorkBook.Close;
          eclApp.Quit;
      except
        showmessage('Excel文件保存失败');
        WorkBook.close;
        eclApp.Quit;
  //      eclApp := Unassigned;
      end;
    end;
  end;
end;

end.