📄 unit_jihuasql.~pas

📁 此代码为企业原料管理代码
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
  frmCommQueryID.left:=200;//Form_dinginput.left;

 // TEdit(sender).color:=claqua;

 // if (Query1.State = dsinsert) or (table1.State = dsedit) then
 // begin
    //case (sender as TDBEdit).tag of
   // 1:  // if the TDBEdit is dbeProdName
   // begin
        frmCommQueryID.PageControl1.ActivePageIndex:=1;

        frmCommQueryID.query1.open;
        frmCommQueryID.ActiveControl:=frmCommQueryID.dbgProdDictionary;
      // showmessage('通过');

        if frmCommQueryID.showmodal = mrok then
        begin
          Edit3.SetFocus;
          Edit3.text:=frmCommQueryID.query1.fieldbyname('ProdID').asstring;

          Edit7.text:=frmCommQueryID.query1.fieldbyname('prodname').asstring;
          Edit4.text:=frmCommQueryID.query1.fieldbyname('figid').asstring;
         // DBEdit15.Text:=inttostr(frmCommQueryID.table2.fieldbyname('gujia').asinteger);
         // DBEdit16.Text:=inttostr(frmCommQueryID.table2.fieldbyname('tanhuang').asinteger);
        end; //if
        //DBEdit5.setfocus;
      //end; // case 1

 {    
      2: // if the TDBEdit is dbeChecker
      begin
        frmCommQueryID.eStaffID.text:='';
        frmCommQueryID.PageControl1.ActivePageIndex:=0;

        frmCommQueryID.table1.open;
        frmCommQueryID.ActiveControl:=frmCommQueryID.eStaffID;

        if frmCommQueryID.showmodal = mrok then
        begin
          DBEdit9.SetFocus;
          DBEdit9.text:=frmCommQueryID.table1.fieldbyname('StaffID').asstring;
        end; //if

       // dbenote.setfocus;
      end; //case 2
    end; // then Case statement is over

    //恢复过滤Table属性
    //tabProdDictionary tabStaff  tabManufacturer tabWorkShop
    {dm.tabProdDictionary.filtered:=false;
    dm.tabProdDictionary.filter:='';

    dm.tabStaff.filtered:=false;
    dm.tabStaff.filter:='';

    dm.tabManufacturer.filtered:=false;
    dm.tabManufacturer.filter:=''; }
  end; //
//end;

procedure TForm_jihuasql.Button7Click(Sender: TObject);
begin
 close;
end;

procedure TForm_jihuasql.Button6Click(Sender: TObject);
begin
   with Query1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from dinghuodan.db ');
    sql.Add('where diqi between :v_from and :v_to and chpimi=:cpm and tuhao=:th order by xuhao ');
    parambyname('v_from').asdatetime:=DateTimePicker3.Date;
    parambyname('v_to').asdatetime:=DateTimePicker4.date;
    parambyname('cpm').asstring:=edit7.text;
    parambyname('th').asstring:=edit4.text;
    open;
    if recordcount = 0 then
     begin
      showmessage('此期间无订单!');
      exit;
     end;
  end; //with
end;

procedure TForm_jihuasql.Edit11Click(Sender: TObject);
begin
   Query1.close;
   edit11.text:='';
   edit12.text:='';
   edit9.text:='';
   frmCommQueryID.top:=200;//DBEdit2.Height+DBEdit2.top;
  frmCommQueryID.left:=200;//DBEdit2.left;
 // Table2.Close;
  //DBEdit2.color:=claqua;

        Edit11.setfocus;
        frmCommQueryID.PageControl1.ActivePageIndex:=2;

        frmCommQueryID.ActiveControl:=frmCommQueryID.dbgManufacturer;

        if frmCommQueryID.showmodal = mrok then
        begin
          Edit11.setfocus;
          Edit11.text:=frmCommQueryID.Query4.fieldbyname('Manufacturer').asstring;
        end; //if
          edit12.setfocus;
end;

procedure TForm_jihuasql.Edit12Enter(Sender: TObject);
begin
   edit12.text:='';
   edit9.text:='';
  frmCommQueryID.top:=200;//Form_dinginput.Height+Form_dinginput.top;
  frmCommQueryID.left:=200;//Form_dinginput.left;

 // TEdit(sender).color:=claqua;
        frmCommQueryID.PageControl1.ActivePageIndex:=1;
        frmCommQueryID.ActiveControl:=frmCommQueryID.dbgProdDictionary;
      // showmessage('通过');
        if frmCommQueryID.showmodal = mrok then
        begin
          Edit8.SetFocus;
          Edit8.text:=frmCommQueryID.query1.fieldbyname('ProdID').asstring;
          Edit12.text:=frmCommQueryID.query1.fieldbyname('prodname').asstring;
          Edit9.text:=frmCommQueryID.query1.fieldbyname('figid').asstring;
        end; //if
  end; //

procedure TForm_jihuasql.Button9Click(Sender: TObject);
begin
  with Query1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from dinghuodan.db ');
    sql.Add('where diqi between :v_from and :v_to and chpimi=:cpm and tuhao=:th and kehumi=:kh order by xuhao ');
    parambyname('v_from').asdatetime:=DateTimePicker5.Date;
    parambyname('v_to').asdatetime:=DateTimePicker6.date;
    parambyname('cpm').asstring:=edit12.text;
    parambyname('th').asstring:=edit9.text;
    parambyname('kh').asstring:=edit11.text;
    open;
    if recordcount = 0 then
     begin
      showmessage('此期间无订单!');
      exit;
     end;
  end; //with
end;

procedure TForm_jihuasql.TabSheet5Enter(Sender: TObject);
begin
  edit11.Text:='';
  edit12.Text:='';
  edit9.Text:='';
end;

procedure TForm_jihuasql.Button10Click(Sender: TObject);
begin
 close;
end;

procedure TForm_jihuasql.BitBtn1Click(Sender: TObject);
begin
if  Query1.bof then
  begin
  showmessage('已是第一条');
  exit;
  end;
 Query1.Prior;
   with Query2 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from jihuadan.db ');
    sql.Add('where  主表标识号 =:xu');
    parambyname('xu').asstring:=query1.fieldbyname('xuhao').asstring;
    open;
    //if recordcount = 0 then
     //begin
      //showmessage('此订单未编制计划单!');
      //exit;
    // end;
    // showmessage(query1.fieldbyname('xuhao').asstring);
     end;//with
end;

procedure TForm_jihuasql.BitBtn2Click(Sender: TObject);
begin
 if  Query1.eof then
  begin
  showmessage('已是最后一条');
  exit;
  end;
 Query1.next;
   with Query2 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from jihuadan.db ');
    sql.Add('where  主表标识号 =:xu');
    parambyname('xu').asstring:=query1.fieldbyname('xuhao').asstring;
    open;
   // if recordcount = 0 then
     //begin
      //showmessage('此订单未编制计划单!');
     // exit;
     //end;
    // showmessage(query1.fieldbyname('xuhao').asstring);
     end;//with
end;

procedure TForm_jihuasql.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
  end; //if
end;



procedure TForm_jihuasql.TabSheet2Show(Sender: TObject);
begin
 query1.Close;
 query2.Close;
end;

procedure TForm_jihuasql.TabSheet3Show(Sender: TObject);
begin
  query1.Close;
 query2.Close;
 edit2.SetFocus;
end;

procedure TForm_jihuasql.TabSheet4Show(Sender: TObject);
begin
 query1.Close;
 query2.Close;
end;

procedure TForm_jihuasql.TabSheet5Show(Sender: TObject);
begin
  edit11.SetFocus;
  query1.Close;
  query2.Close;
end;

procedure TForm_jihuasql.TabSheet1Show(Sender: TObject);
begin
 edit1.SetFocus;
end;

procedure TForm_jihuasql.Edit2Click(Sender: TObject);
begin
   edit2.text:='';
   frmCommQueryID.top:=200;//DBEdit2.Height+DBEdit2.top;
  frmCommQueryID.left:=200;//DBEdit2.left;


        Edit2.setfocus;
        frmCommQueryID.PageControl1.ActivePageIndex:=2;

        frmCommQueryID.ActiveControl:=frmCommQueryID.dbgManufacturer;

        if frmCommQueryID.showmodal = mrok then
        begin
          Edit2.text:=frmCommQueryID.Query4.fieldbyname('Manufacturer').asstring;
        end; //if
          DBGrid1.setfocus;
end;

procedure TForm_jihuasql.Button11Click(Sender: TObject);
begin
 if dy<>'da' then
 begin
 showmessage('请选择已做计划的定货单！');
 exit;
 end;
  if query2.recordcount = 0 then
     begin
      showmessage('此订单未编制计划单!');
      exit;
     end;
    Form_prjihua.QRLabel28.caption:=query1.fieldbyname('xuhao').asstring;
    Form_prjihua.QRLabel29.caption:=query1.fieldbyname('kehumi').asstring;
    Form_prjihua.QRLabel30.caption:=query1.fieldbyname('chpimi').asstring;
    Form_prjihua.QRLabel31.caption:=query1.fieldbyname('tuhao').asstring;
    Form_prjihua.QRLabel42.caption:=inttostr(query1.fieldbyname('shuli').asinteger);
    Form_prjihua.QRLabel35.caption:=query2.fieldbyname('jiaomi').asstring;
    Form_prjihua.QRLabel37.caption:=query2.fieldbyname('gjgg').asstring;
    Form_prjihua.QRLabel38.caption:=inttostr((query1.fieldbyname('gujia').asinteger)*(query1.fieldbyname('shuli').asinteger));
    Form_prjihua.QRLabel39.caption:=query2.fieldbyname('thgg').asstring;
    Form_prjihua.QRLabel40.caption:=inttostr((query1.fieldbyname('tanhuang').asinteger)*(query1.fieldbyname('shuli').asinteger));
    Form_prjihua.QRLabel41.caption:=floattostr(query1.fieldbyname('touru').asfloat);
    Form_prjihua.QRLabel32.caption:=query1.fieldbyname('diqi').asstring;
    Form_prjihua.QRLabel33.caption:=datetostr(DateTimePicker7.date);
    Form_prjihua.QRLabel36.caption:=Edit6.text;
    Form_prjihua.QRLabel43.caption:=query2.fieldbyname('配方编号').asstring;
    Form_prjihua.QuickRep1.DataSet:=query2;
    Form_prjihua.QRDBText1.DataSet:=query2;
    Form_prjihua.QRDBText2.DataSet:=query2;
    Form_prjihua.QRDBText3.DataSet:=query2;
    Form_prjihua.QRDBText4.DataSet:=query2;
    Form_prjihua.QRExpr1.Expression:='sum(query2.用料数量)';
    Form_prjihua.QRExpr2.Expression:='sum(query2.金额)';
    Form_prjihua.QuickRep1.Preview;
    dy:='';

end;

end.
上一页 12
💿 文件大小 8641 K
👤 上传用户 zxyxwd6
📂 所属分类企业管理
🏷️ 相关标签

#代码
⌨️ 快捷键说明

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