unitdwzy.pas

适合行业为眼镜业

unit Unitdwzy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, Wwdbigrd, Wwdbgrid, StdCtrls, ExtCtrls, Buttons,db,adodb,comobj,
  ImgList, ComCtrls,inifiles, DBClient, DBGrids;

type
  tbookmake=pointer;
  Tfrmzyll = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Panel2: TPanel;
    edtbmcx: TLabeledEdit;
    edtygcx: TLabeledEdit;
    spdbmcx: TSpeedButton;
    spdygcx: TSpeedButton;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    im1: TImage;
    im2: TImage;
    SpeedButton8: TSpeedButton;
    Treebm: TTreeView;
    ImageList1: TImageList;
    dsygda: TDataSource;
    Timer1: TTimer;
    dsview: TDataSource;
    cdsdata: TClientDataSet;
    DBGrid2: TDBGrid;
    Pnltext: TPanel;
    Lbcompany: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    lbfman: TLabel;
    lbemail: TLabel;
    lbhttp: TLabel;
    lbaddress: TLabel;
    Panel6: TPanel;
    DBGrid1: TDBGrid;
    procedure SpeedButton6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TreebmClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure spdygcxClick(Sender: TObject);
    procedure spdbmcxClick(Sender: TObject);
    procedure wwDBGrid2DblClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure SpeedButton5Click(Sender: TObject);
    {procedure wwDBGrid1CellChanged(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure wwDBGrid2DblClick(Sender: TObject);
    procedure wwDBGrid1DblClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);}
  private
    { Private declarations }
    pz:boolean;
    company,Email,Fman,address,https:string;//公司名
    function CheckDw(p_no:string):boolean;
    procedure treeexed;
    procedure treepol( partno:string);
    procedure readdata(sqlpub:string;cds:tclientdataset);
  public
    { Public declarations }
    EditBM:INTEGER;
    procedure kz1(fg:boolean);
    procedure kz2(fg:boolean);
  end;

var
  frmzyll: Tfrmzyll;
  bk:tbookmake;
implementation

uses untdatadm, func, Unitygda, Unitnewbm;

{$R *.dfm}

///////////////////////////////
function Tfrmzyll.CheckDw(p_no:string):boolean;
var
  sql:widestring;
  datas:olevariant;
begin
  result:=true;
  sql:='select managerid from stock_manager where storageid='+''''+trim(p_no)+'''';
  datas:=null;
  try
    ipubtemp.ty_query(sql,datas);
    if not varisnull(datas) then
    begin
      result:=false;
      datas:=null;
    end;
  except
  end;
end;
procedure Tfrmzyll.readdata(sqlpub:string;cds:tclientdataset);
var
  temp:widestring;
  datas:olevariant;
begin
  temp:=sqlpub;
  datas:=null;
  cds.Close;
  cds.Data:=null;
  try
    datas:=adisp.execSql(temp);
    if not varisnull(datas) then
    begin
      cds.Data:=datas;
      datas:=null;
    end;
  except
    application.MessageBox('服务器发生故障！',pchar(application.Title),mb_iconwarning);
    exit;
  end;
end;

////////////////////////////////////
procedure Tfrmzyll.treeexed;//加载tree;
var
  sql:widestring;
  comp,node1,node2:ttreenode;
  //f:tinifile;
begin
  treebm.Items.Clear;
  cdsdata.Close;
  cdsdata.Data:=null;
  sql:='select * from headoffice';
  try
    cdsdata.Data:=adisp.execSql(sql);
  except
  end;
  //f:=TIniFile.Create(ExtractFileDir(application.Exename)+'\Base_Set.ini');
  company:=trim(cdsdata.fieldbyname('componyname').AsString);
  email:=trim(cdsdata.fieldbyname('email').AsString);
  fman:=trim(cdsdata.fieldbyname('componyman').AsString);
  address:=trim(cdsdata.fieldbyname('address').AsString);
  https:=trim(cdsdata.fieldbyname('componywww').AsString);
  cdsdata.Data:=null;
  cdsdata.Close;
  if trim(company)='' then company:='总公司';
  //////////////////////////////////////////
  comp:=treebm.Items.Add(nil,trim(company));
  ///////////////////////////////////////////
  if pz then
  begin
    sql:='select part_no,part_name from part where (one_partno is null) or (one_partno='+''''+''+''''+')';
  end else
  begin
    sql:='select part_no,part_name from part where storageid='+''''+trim(shopid)+'''';
  end;
  dmmain.CDSquery.Close;
  dmmain.CDSquery.Data:=null;
  dmmain.CDSquery.Data:=adisp.GetRecord(sql);
  dmmain.CDSquery.Open;
  if not dmmain.CDSquery.IsEmpty then
  begin
    partname:=tstringlist.Create;
    while not dmmain.CDSquery.Eof do
    begin
      node1:=treebm.Items.AddChild(comp,trim(dmmain.CDSquery.fieldbyname('part_no').AsString)+'_'+trim(dmmain.CDSquery.fieldbyname('part_name').AsString));
      partname.Add(dmmain.CDSquery.fieldbyname('part_name').AsString);
      p_name.Add(dmmain.CDSquery.fieldbyname('part_no').AsString);
      sql:='select part_no,part_name from part where one_partno ='+''''+trim(dmmain.CDSquery.fieldbyname('part_no').AsString)+'''';
      dmmain.CDSexecsql.Close;
      dmmain.CDSexecsql.Data:=null;
      dmmain.CDSexecsql.Data:=adisp.execSql(sql);
      dmmain.CDSexecsql.Open;
      while not dmmain.CDSexecsql.Eof do
      begin
        node2:=treebm.Items.AddChild(node1,trim(dmmain.CDSexecsql.fieldbyname('part_no').AsString)+'_'+trim(dmmain.CDSexecsql.fieldbyname('part_name').AsString));
        dmmain.CDSexecsql.Next;
      end;
      dmmain.CDSquery.Next;
    end;
    dmmain.CDSquery.Close;
    dmmain.CDSquery.Data:=null;
    dmmain.CDSexecsql.Close;
    dmmain.CDSexecsql.Data:=null;
  end;
end;
procedure tfrmzyll.treepol(partno:string);
var
  sql:widestring;
begin
  if trim(partno)<>'' then
  begin
    try
    sql:='select * from dp_person where p_workid='+''''+trim(partno)+'''';
    dmmain.CDSquery2.Close;
    dmmain.CDSquery2.Data:=null;
    dmmain.CDSquery2.Data:=adisp.resultrecord(sql);
    dmmain.CDSquery2.Open;
    sql:='select part_name from part where one_partno='+''''+trim(partno)+'''';
    dmmain.CDSexecsql.Close;
    dmmain.CDSexecsql.Data:=null;
    dmmain.CDSexecsql.Data:=adisp.execSql(sql);
    dmmain.CDSexecsql.Open;
    fpartname.Clear;
    while not dmmain.CDSexecsql.Eof do
    begin
      fpartname.Add(dmmain.CDSexecsql.fieldbyname('part_name').AsString);
      dmmain.CDSexecsql.Next;
    end;
    except
    end;
  end;
end;
procedure tfrmzyll.kz1(fg:boolean);
begin
  speedbutton2.Enabled:=fg;
  speedbutton4.Enabled:=fg;
end;
procedure tfrmzyll.kz2(fg:boolean);
begin
  speedbutton4.Enabled:=fg;
end;
procedure Tfrmzyll.SpeedButton6Click(Sender: TObject);
begin
  p_name.Free;
  partname.Free;
  Fpartname.Free;
  close;
end;

procedure Tfrmzyll.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dmmain.CDSquery2.Close;
  dmmain.CDSquery2.Data:=NULL;
  action:=cafree;
end;

{procedure Tfrmzyll.SpeedButton5Click(Sender: TObject);
begin
  if dm.aqrybm.IsEmpty then
  begin
    application.MessageBox('没有可以删除的记录！',pchar(application.Title),mb_iconwarning);
    exit;
  end else
  begin
    if not dm.Aqryzyll.IsEmpty then
    begin
      application.MessageBox('该部门还有下属员工，请安排员工去向！',pchar(application.Title),mb_iconwarning);
      exit;
    end;
    if application.MessageBox('是否删除该条单位信息？',pchar(application.Title),mb_iconquestion+mb_yesno)=idyes then
    begin
      dmmain.CDSquery.Delete;
      try
      dmmain.CDSquery.ApplyUpdates(-1);
      except
        application.MessageBox('该部门还有下属员工，请安排员工去向！',pchar(application.Title),mb_iconwarning);
        exit;
      end;
    end;
  end;
end;}

{procedure Tfrmzyll.spdbmcxClick(Sender: TObject);
begin
  if spdbmcx.Caption='查询'  then
  begin
    if edtbmcx.Text ='' then
    begin
      application.MessageBox('请输入查询内容！',pchar(application.Title),mb_iconwarning);
      edtbmcx.SetFocus;
      exit;
    end;