⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 search.pas

📁 省级集邮品管理ERP
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
      fcb_TZ.FieldItems.Add(FieldByName('TZDM').AsString);
      Next;
    end;
    Close;
  end;
  if fcb_TZ.Items.Count > 0 then
    fcb_TZ.ItemIndex := 0;
  fcb_PPDL.ClearAll;
  with Qry_Static do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select distinct DL,substr(YZLDM,1,1) DLLX from TG_YZPPLDMB order by DLLX ');
    Open;
    while not Eof do
    begin
      fcb_PPDL.Items.Add(FieldByName('DL').AsString);
      fcb_PPDL.FieldItems.Add(FieldByName('DLLX').AsString);
      Next;
    end;
    Close;
  end;
  if fcb_PPDL.Items.Count > 0 then
    fcb_PPDL.ItemIndex := 0;
  fcb_PPDLChange(nil);
end;

procedure TFRM_Search.Qry_TaoTPMZGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  if Sender.isNull then
    exit;
  Text := floattostr(Sender.AsFloat / 100);
end;

procedure TFRM_Search.Qry_TaoTFXLGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  if Sender.isNull then
    Exit;
  Text := FormatFloat('#,##0.####', Sender.AsFloat / 10000);
end;

procedure TFRM_Search.Qry_BanAfterOpen(DataSet: TDataSet);
begin
  BanNum := GetBanNum;
end;

procedure TFRM_Search.WriteBlobField(DWDM: string);
begin
  //图案.sdate
  with Qry_Static do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select TUDM, TA, Sdate from TB_YZPPTAXXB where TUDM = ''' + Qry_tujb.FieldByName('TUDM').AsString + '''');
    Open;
    if Eof then
    begin
      Close;
      Exit;
    end;
  end;
  Qry_send.Close;
  Qry_send.SQL.Clear;
  Qry_send.SQL.Add('update TB_YZPPTAXXB set SDATE = trunc(sysdate) where TUDM = ''' + Qry_tujb.FieldByName('TUDM').AsString + '''');
  Qry_send.ExecSQL;

  Qry_AcceptTA.Append;
  Qry_AcceptTA.FieldByName('CXXJSJG').AsString := DWDM;
  with Qry_Static do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select TUDM, TA, Sdate from TB_YZPPTAXXB where TUDM = ''' + Qry_tujb.FieldByName('TUDM').AsString + '''');
    Open;
    Qry_AcceptTA.FieldByName('CYZPPTDM').Assign(Qry_Static.FieldByName('TUDM'));
    Qry_AcceptTA.FieldByName('LTA').Assign(Qry_Static.FieldByName('TA'));
    Qry_AcceptTA.FieldByName('CFSRQ').Assign(Qry_Static.FieldByName('Sdate'));
  end;
  Qry_AcceptTA.Post;
end;

procedure TFRM_Search.fcb_PPDLChange(Sender: TObject);
begin
  fcb_pplb.ClearAll;
  with Qry_Static do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select MC, YZLDM from TG_YZPPLDMB where DL = ''' + fcb_PPDL.Text + ''' ORDER BY TO_NUMBER(YZLDM) ');
    Open;
    while not Eof do
    begin
      fcb_pplb.Items.Add(FieldByName('MC').AsString);
      fcb_pplb.FieldItems.Add(FieldByName('YZLDM').AsString);
      Next;
    end;
    Close;
  end;
  if fcb_pplb.Items.Count > 0 then
    fcb_pplb.ItemIndex := 0;
end;

procedure TFRM_Search.BBt_FindClick(Sender: TObject);
begin
  Image1.Visible := False;
  ReSearch;
end;

procedure TFRM_Search.BitBtn3Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
    Panel7.Color := ColorDialog1.Color;
end;

procedure TFRM_Search.BitBtn1Click(Sender: TObject);
begin
  if Image1.ClientHeight > Trunc(vlpu_i_imgH * 8) then
    Exit;
  Image1.ClientWidth := Trunc(Image1.ClientWidth * 1.2);
  Image1.ClientHeight := Trunc(Image1.ClientHeight * 1.2);
  Image1.Left := (Panel7.Width - Image1.ClientWidth) div 2;
  Image1.Top := (Panel7.Height - Image1.ClientHeight) div 2;

end;

procedure TFRM_Search.BitBtn2Click(Sender: TObject);
begin
  if Image1.ClientHeight < Trunc(vlpu_i_imgH / 5) then
    Exit;
  Image1.ClientWidth := Trunc(Image1.ClientWidth / 1.2);
  Image1.ClientHeight := Trunc(Image1.ClientHeight / 1.2);
  Image1.Left := (Panel7.Width - Image1.ClientWidth) div 2;
  Image1.Top := (Panel7.Height - Image1.ClientHeight) div 2;

end;

procedure TFRM_Search.BitBtn4Click(Sender: TObject);
begin
  if BitBtn4.Caption = '满屏' then
  begin
    Panel2.Parent := Self;
    Panel2.BringToFront;
    Panel2.Top := 0;
    Panel2.Align := alClient;
    PageControl1.Visible := False;
    BottomPanel.Visible := False;
    Panel11.Visible := False;
    BitBtn4.Caption := '还原';
  end
  else
  begin
    Panel2.Align := alBottom;
    BottomPanel.Visible := True;
    PageControl1.Visible := True;
    Panel11.Visible := True;
    Panel2.Parent := Panel4;
    Panel2.Height := Trunc(Panel4.Height * 3 / 5);
    BitBtn4.Caption := '满屏';
  end;
  Image1.Left := (Panel7.Width - Image1.ClientWidth) div 2;
  Image1.Top := (Panel7.Height - Image1.ClientHeight) div 2;


end;

procedure TFRM_Search.SetImgView(blobField_ta: TBlobField);
var
  Word_FileStream: TFileStream;
  s: string;
begin
  s := string(TBlobField(blobField_ta).asvariant);
  if copy(s, 1, 2) = 'BM' then
  begin
    Word_FileStream := TFileStream.Create('c:\1.bmp', fmOpenWrite or fmCreate);
    Word_FileStream.Position := 0;
    TBlobField(blobField_ta).SaveToStream(Word_FileStream);
    Word_FileStream.Free;
    Image1.Picture.LoadFromFile('c:\1.bmp');
  end
  else
  begin
    Word_FileStream := TFileStream.Create('c:\2.jpg', fmOpenWrite or fmCreate);
    Word_FileStream.Position := 0;
    TBlobField(blobField_ta).SaveToStream(Word_FileStream);
    Word_FileStream.Free;
    Image1.Picture.LoadFromFile('c:\2.jpg');
    Image1.ClientWidth := Image1.Picture.Width;
    Image1.ClientHeight := Image1.Picture.Height;
    Image1.Left := (Panel7.Width - Image1.ClientWidth) div 2;
    Image1.Top := (Panel7.Height - Image1.ClientHeight) div 2;
    vlpu_i_imgH := Image1.Picture.height;
  end;
end;

procedure TFRM_Search.BBt_SendClick(Sender: TObject);
var
  i: integer;
  vl_bError: boolean;
  vl_s_jsdw: string;
  vl_sl_jsdw: TStringList;

begin
  if Qry_Tao.fieldbyname('SDATE').AsString <> '' then
  begin
    if CHQMsgBox('邮票' + Qry_Tao.fieldbyname('TMC').AsString + '的信息已经发送,确定还要发送吗？', 2) = IDNo then
      exit;
  end;

  if Qry_Tao.Eof and Qry_Tao.Bof then
    Exit;
  if CHQMsgBox('发送该套模型到各地市吗？', 2) <> IDYES then
    Exit;
  vl_bError := false;
  vl_sl_jsdw := TStringList.Create;

  with data.Qry_send do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select jsdwdm from tg_xttxfsgnb where csdm=''sf_base''');
    Open;
    vl_s_jsdw := Fields[0].AsString;
    if (length(vl_s_jsdw) = 0) then
    begin
      CHQMsgBox('请先设置接收单位再发送！');
      exit;
    end;
    vl_sl_jsdw.Clear;
    while pos(',', vl_s_jsdw) > 0 do
    begin
      vl_sl_jsdw.Add(copy(vl_s_jsdw, 1, pos(',', vl_s_jsdw) - 1));
      vl_s_jsdw := copy(vl_s_jsdw, pos(',', vl_s_jsdw) + 1, length(vl_s_jsdw));
    end;
    vl_sl_jsdw.Add(vl_s_jsdw);
  end;

  data.dm.StartTransaction;
  try
    Qry_AcceptTU.Close;
    Qry_AcceptTU.Open;

    Qry_AcceptTA.Close;
    Qry_AcceptTA.Open;

    for i := 0 to vl_sl_jsdw.Count - 1 do
    begin
      //套
      Qry_send.Close;
      Qry_send.SQL.Clear;
      Qry_send.SQL.Add('insert into tb_yzpptxxb_caco(TDM,TZ,TMC,TJC,TJCJP,PPLB,LBM,ZH,ND,XH,TPMS,TPMZ,XLMC,XLBH,CJBSX,CJBXX,ZLPED,SJZ,YZCJ,FXRQ,FXJZRQ,TFXL,BZ,JHH,YZDWBJ,TPSJ,TSJYL,BZFS,BTGX,COMM_DEPT)');
      Qry_send.SQL.Add(' select TDM,TZ,TMC,TJC,TJCJP,PPLB,LBM,ZH,ND,XH,TPMS,TPMZ,XLMC,XLBH,CJBSX,CJBXX,ZLPED,SJZ,YZCJ,FXRQ,FXJZRQ,TFXL,BZ,JHH,YZDWBJ,TPSJ,TSJYL,BZFS,BTGX,''' + vl_sl_jsdw.Strings[i] + ''' from tb_yzpptxxb ' +
        'where tdm=''' + Qry_Tao.fieldbyname('TDM').Asstring + '''');
      Qry_send.ExecSQL;
      //套.sdate
      Qry_send.Close;
      Qry_send.SQL.Clear;
      Qry_send.SQL.Add('update TB_YZPPTXXB set SDATE = trunc(sysdate) where TDM=''' + Qry_Tao.fieldbyname('TDM').Asstring + '''');
      Qry_send.ExecSQL;
      //图
      Qry_tujb.DisableControls;
      Qry_tujb.First;
      while not Qry_tujb.Eof do
      begin
        Qry_AcceptTU.Append;
        Qry_AcceptTU.FieldByName('TUDM').Assign(Qry_tujb.FieldByName('TUDM'));
        Qry_AcceptTU.FieldByName('TDM').Assign(Qry_tujb.FieldByName('TDM'));
        Qry_AcceptTU.FieldByName('TXH').Assign(Qry_tujb.FieldByName('TXH'));
        Qry_AcceptTU.FieldByName('ZH').Assign(Qry_tujb.FieldByName('ZH'));
        Qry_AcceptTU.FieldByName('TZ').Assign(Qry_tujb.FieldByName('TZ'));
        Qry_AcceptTU.FieldByName('LBM').Assign(Qry_tujb.FieldByName('LBM'));
        Qry_AcceptTU.FieldByName('YZBB').Assign(Qry_tujb.FieldByName('YZBB'));
        Qry_AcceptTU.FieldByName('TMC').Assign(Qry_tujb.FieldByName('TMC'));
        Qry_AcceptTU.FieldByName('TUJC').Assign(Qry_tujb.FieldByName('TUJC'));
        Qry_AcceptTU.FieldByName('TUJCJP').Assign(Qry_tujb.FieldByName('TUJCJP'));
        Qry_AcceptTU.FieldByName('GG').Assign(Qry_tujb.FieldByName('GG'));
        Qry_AcceptTU.FieldByName('WXGG').Assign(Qry_tujb.FieldByName('WXGG'));
        Qry_AcceptTU.FieldByName('MZ').Assign(Qry_tujb.FieldByName('MZ'));
        Qry_AcceptTU.FieldByName('SJ').Assign(Qry_tujb.FieldByName('SJ'));
        Qry_AcceptTU.FieldByName('CKDS').Assign(Qry_tujb.FieldByName('CKDS'));
        Qry_AcceptTU.FieldByName('YPGG').Assign(Qry_tujb.FieldByName('YPGG'));
        Qry_AcceptTU.FieldByName('YZCJ').Assign(Qry_tujb.FieldByName('YZCJ'));
        Qry_AcceptTU.FieldByName('FXL').Assign(Qry_tujb.FieldByName('FXL'));
        Qry_AcceptTU.FieldByName('FXRQ').Assign(Qry_tujb.FieldByName('FXRQ'));
        Qry_AcceptTU.FieldByName('YZZ').Assign(Qry_tujb.FieldByName('YZZ'));
        Qry_AcceptTU.FieldByName('SYR').Assign(Qry_tujb.FieldByName('SYR'));
        Qry_AcceptTU.FieldByName('BZ').Assign(Qry_tujb.FieldByName('BZ'));
        //        Qry_AcceptTU.FieldByName('TA').Assign(Qry_tujb.FieldByName('TA'));
        WriteBlobField(vl_sl_jsdw.Strings[i]);
        Qry_AcceptTU.FieldByName('COMM_DEPT').AsString := vl_sl_jsdw.Strings[i];
        Qry_AcceptTU.Post;
        Qry_tujb.Next;
      end;
      Qry_tujb.EnableControls;

      //图案
      //版
      Qry_send.Close;
      Qry_send.SQL.Clear;
      Qry_send.SQL.Add('insert into tb_bsjb_caco(TDM,BLSH,BJC,BB,GG,WXGG,BMZ,JSM,MBMS,FBBJ,COMM_DEPT)');
      Qry_send.SQL.Add(' select TDM,BLSH,BJC,BB,GG,WXGG,BMZ,JSM,MBMS,FBBJ,''' + vl_sl_jsdw.Strings[i] + ''' from tb_bsjb ' +
        'where tdm=''' + Qry_Tao.fieldbyname('TDM').Asstring + '''');
      Qry_send.ExecSQL;
      //版图
      Qry_send.Close;
      Qry_send.SQL.Clear;
      Qry_send.SQL.Add('insert into tb_btgxb_caco(BLSH,TUDM,GBGTMS,COMM_DEPT)	select a.BLSH,TUDM,GBGTMS,''' + vl_sl_jsdw.Strings[i] + ''' from tb_btgxb a,tb_bsjb b ' +
        'where a.blsh=b.blsh and b.tdm=''' + Qry_Tao.fieldbyname('TDM').Asstring + '''');
      Qry_send.ExecSQL;
      //包
      Qry_send.Close;
      Qry_send.SQL.Clear;
      Qry_send.SQL.Add('insert into tb_bzsjb_caco(BZLSH,TDM,BJC,EDBS,MBMS,BZBBJ,zxbb,zxts,bzgg,dybzbdm,QXDW,COMM_DEPT)');
      Qry_send.SQL.Add(' select BZLSH,TDM,BJC,EDBS,MBMS,BZBBJ,zxbb,zxts,bzgg,dybzbdm,QXDW,''' + vl_sl_jsdw.Strings[i] + ''' from tb_bzsjb ' +
        'where tdm=''' + Qry_Tao.fieldbyname('TDM').Asstring + '''');
      Qry_send.ExecSQL;
      //包版
      Qry_send.Close;
      Qry_send.SQL.Clear;
      Qry_send.SQL.Add('insert into tb_bbgxb_caco(BZLSH,BLSH,GBGBBS,COMM_DEPT) select BZLSH,a.BLSH,GBGBBS,''' + vl_sl_jsdw.Strings[i] + ''' from tb_bbgxb a,tb_bsjb b ' +
        'where a.blsh=b.blsh and b.tdm=''' + Qry_Tao.fieldbyname('TDM').Asstring + '''');
      Qry_send.ExecSQL;

    end;
    Qry_AcceptTU.Close;
  except
    vl_bError := True;
  end;

  if vl_bError then
  begin
    data.dm.RollBack;
    CHQMsgBox('数据模型发送失败！');
  end
  else
  begin
    data.dm.Commit;
    CHQMsgBox('数据模型发送成功!');
  end;

end;

procedure TFRM_Search.Qry_BaoEDBSGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  if Sender.AsInteger > 0 then
    Text := IntToStr(Sender.AsInteger);
end;

procedure TFRM_Search.Qry_BaoMBMSGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  if Sender.IsNull then
    Exit;
  Text := FormatFloat('#,##', Sender.AsFloat);
end;

end.
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -