stock_enter.pas

适合行业为眼镜业

            end else
            begin

              dmmain.cdsstockdetail.FieldByName('quality').AsString :=Trim(StringGrid1.Cells[6,i]);
              dmmain.cdsstockdetail.FieldByName('orders').AsString :=Trim(StringGrid1.Cells[StringGrid1.ColCount-1,i]);  //采购时记录预定商品单
            end;
            dmmain.cdsstockdetail.Post;
          end;
          try
             dmmain.cdsReceipt.ApplyUpdates(-1);
             dmmain.cdsStock_Jion.ApplyUpdates(-1);
             dmmain.cdsstockdetail.ApplyUpdates(-1);
             if trim(edit3.Text)<>'' then
             begin
               if ReCheck=6 then
               begin
                 setpass(edit3.Text);
               end else
               begin
                 setPassed(edit3.Text);//最后不能重用！！
               end;
             end;
             init;
          except
              Application.MessageBox('系统错误,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
              Exit;
          end;
       end;
       INIT;
   END;
 end;  
        frm_Main.Panel_Title.Caption:='[连锁管理系统]->[采购信息管理]';
        //废弃退出
        if Public_Do_Result='03' then
        begin
            frm_data.ClientDataSet_Add.Close;
            frm_data.ClientDataSet_Add.Active:=False;
            Close;
        end;
    //草稿单据操作
     if (Public_Do='Business_Draft_0005') or (Public_Do='Business_Storage_in') then
     begin
        //修改草稿单据
        if Public_Do_Result='02' then
        begin
            with frm_data.ClientDataSet_Add do
            begin
              if not bedit then
              begin
                if trim(Handle_Man)<>trim(edit8.Text) then
                begin
                  Application.MessageBox('不能修改数据！',pchar(application.Title),mb_iconinformation);
                  exit;
                end;
              end;

                sqlsub:='select * from [Stock_Jion] where Stock_No='''+Trim(List_NO)+'''';
                dmmain.CDSquery2.Close;
                dmmain.CDSquery2.Data:=adisp.resultrecord (sqlsub);
                dmmain.CDSquery2.Open;
                dmmain.CDSquery2.Edit;
                dmmain.CDSquery2.FieldByName('Copy_Date').AsString:=Trim(Edit1.Text);
                dmmain.CDSquery2.FieldByName('Contract_No').AsString:=Trim(Edit3.Text);
                dmmain.CDSquery2.FieldByName('WLDW').AsString:=Trim(Edit4.Text);
                dmmain.CDSquery2.FieldByName('WLDW_no').AsString:=Trim(wldwno);
                dmmain.CDSquery2.FieldByName('Storage_Name').AsString:=Trim(Edit5.Text);
                dmmain.CDSquery2.FieldByName('Transactor').AsString:=Trim(Edit6.Text);
                dmmain.CDSquery2.FieldByName('Shop_NO').AsString:=Trim(Edit7.Text);
                dmmain.CDSquery2.FieldByName('proposer').AsString:=Trim(Edit8.Text);
                dmmain.CDSquery2.FieldByName('Resume').AsString:=Trim(Edit9.Text);
                dmmain.CDSquery2.FieldByName('Remark').AsString:=Trim(Edit10.Text);
                dmmain.CDSquery2.FieldByName('Quality_Check_ID').AsString:=Trim(Edit3.Text);
                dmmain.CDSquery2.Post;
                try
                    dmmain.CDSquery.ApplyUpdates(-1);
                except
                    Application.MessageBox('保存［采购入库单］时失败,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
                try
                  sqlsub:='select * from [Stock_Jion_detail] where Stock_No='''+Trim(List_NO)+'''';
                  dmmain.CDSquery2.Close;
                  dmmain.CDSquery2.Data:=adisp.resultrecord (sqlsub);
                  dmmain.CDSquery2.Open;
                    for i:=1 to stringgrid1.RowCount-1 do
                    begin
                       dmmain.CDSquery2.edit;
                       dmmain.CDSquery2.FieldByName('Stock_NO').AsString :=Trim(Edit2.Text);
                       dmmain.CDSquery2.FieldByName('Goods_NO').AsString :=Trim(StringGrid1.Cells[1,i]);
                       dmmain.CDSquery2.FieldByName('goods_name').AsString :=Trim(StringGrid1.Cells[2,i]);
                       dmmain.CDSquery2.FieldByName('amount').AsString :=Trim(StringGrid1.Cells[4,i]);
                       if  (public_do='Business_Storage_in') then
                       begin
                          dmmain.CDSquery2.FieldByName('price').AsString :=Trim(StringGrid1.Cells[3,i]); //非营业入库写入单价;
                          dmmain.CDSquery2.FieldByName('total_money').AsString :=Trim(StringGrid1.Cells[5,i]); //非营业入库写入单价;
                          dmmain.CDSquery2.FieldByName('quality').AsString :=Trim(StringGrid1.Cells[7,i]);
                       end else
                       begin
                         dmmain.CDSquery2.FieldByName('quality').AsString :=Trim(StringGrid1.Cells[6,i]);
                       end;
                       dmmain.CDSquery2.Post;
                       dmmain.CDSquery2.Next;
                    end;
                   dmmain.CDSquery2.ApplyUpdates(-1); 
                except
                    Application.MessageBox('保存［采购入库明细］时循环失败,请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
            end;
        end;
      end;
        if func.Public_Do_Result='03' then  //废弃退出
        begin
            frm_data.ClientDataSet_Add.Close;
            frm_data.ClientDataSet_Add.Active:=False;
            Close;
        end;
    frm_Public_Don.Free;
end;


procedure Tfrm_Stock_Enter.Edit1DblClick(Sender: TObject);
begin
    Edit1.Text:=ForMatDatetime('yyyy''-''mm''-''dd',now);
end;

procedure Tfrm_Stock_Enter.Cmd_HTClick(Sender: TObject);
var
    sqlsub:widestring;
begin
    Contract_Check_Result_Str:='';
    Contract_Check_Str:='Stock_Enterstr';
    frm_Contract_Check:=Tfrm_Contract_Check.Create(self);
    frm_Contract_Check.ShowModal;
    sqlsub:='Select * from Quality_Check  where  stock_No='''+Trim(Contract_Check_Result_Str)+'''';
    dmmain.CDSquery.Close;
    dmmain.CDSquery.Data:=frm_data.Socket_Connection.AppServer.GetRecord(sqlsub);
    dmmain.CDSquery.Open;
    Edit4.Text:=dmmain.CDSquery.FieldByName('wldw').AsString;
    //edit_stock_name.Text:=dmmain.CDSquery.FieldByName('').AsString;
    edit5.Text :=dmmain.CDSquery.FieldByName('storage_no').AsString;
    edit6.Text:=dmmain.CDSquery.FieldByName('transactor').AsString;
    edit7.Text:=dmmain.CDSquery.FieldByName('storage_no').AsString;
    edit8.Text:=dmmain.CDSquery.FieldByName('proposer').AsString;
    edit9.Text:=dmmain.CDSquery.FieldByName('Condense').AsString;
    edit10.Text:=dmmain.CDSquery.FieldByName('Quality_Remark').AsString;
    wldwno:=dmmain.CDSquery.FieldByName('wldw_no').AsString;
    frm_Contract_Check.Free;
    dmmain.CDSquery.Close;
    dmmain.CDSquery.Data:=null;
    Edit3.Text:=Contract_Check_Result_Str;
    if stringgrid1.RowCount<2 then
    begin
      stringgrid1.RowCount:=2;
      stringgrid1.FixedRows:=1;
    end;
end;

procedure Tfrm_Stock_Enter.SpeedButton5Click(Sender: TObject);
begin
   Check_Storage:='';
   Check_Storage_Result:='';
   Check_Storage:='Storage_Umanage_Fad';
  frm_Storage_Select:=Tfrm_Storage_Select.Create(self);
  frm_Storage_Select.ShowModal;
  Edit_stock_Name.Text:=Trim(Check_Storage_Result);
  edit5.Text:=Check_Storage_Result_NO;
  frm_Storage_Select.Free;
end;

procedure Tfrm_Stock_Enter.SpeedButton8Click(Sender: TObject);
begin
    ChildShop_Str:='';
    ChildShop_Result_NO:='';
    ChildShop_Result_Name:='';
    ChildShop_Str:='Stock_Enter_str';
    frm_ChildShop_Select:=Tfrm_ChildShop_Select.Create(self);
    frm_ChildShop_Select.ShowModal;
    Edit7.Text:=ChildShop_Result_NO;
    //Edit_Shop_Name.Text:=ChildShop_Result_Name;
    frm_ChildShop_Select.Free;
end;

procedure Tfrm_Stock_Enter.SpeedButton7Click(Sender: TObject);
begin
    frm_Login_Man:=Tfrm_Login_Man.Create(self);
    frm_Login_Man.Caption:='制单人选择';
    frm_Login_Man.ShowModal;
    Edit8.Text:=Employe_Check_Result;
    frm_Login_Man.Free;
end;

procedure Tfrm_Stock_Enter.StringGrid1DblClick(Sender: TObject);
var
    openstr:string;
    S1,s2,s3:string;
    sqlsub:widestring;
begin
    if Trim(Edit2.Text)='' then
    begin
        Application.MessageBox('操作失败，【单据编号】不能为空！',pchar(application.Title),mb_iconwarning);
        Edit2.SetFocus;
        Exit;
    end;
    if Trim(Edit4.Text)='' then
    begin
        Application.MessageBox('操作失败，【供货单位】不能为空！',pchar(application.Title),mb_iconwarning);
        Edit4.SetFocus;
        Exit;
    end;
    if Trim(Edit5.Text)='' then
    begin
        Application.MessageBox('操作失败，【经手人】不能为空！',pchar(application.Title),mb_iconwarning);
        Edit5.SetFocus;
        Exit;
    end;
    
end;


procedure Tfrm_Stock_Enter.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  s:string;
  r:TRect;
begin
//ydy add 设置显示颜色
 with Sender as Tstringgrid do
        begin
        if gdSelected in State then
        Canvas.Brush.Color:= clTeal;  //clBlue; //clyellow;//clRed;
        Canvas.TextRect(Rect,Rect.Left,Rect.Top,' '+Cells[ACol,ARow]);
        if gdFocused in State then
        Canvas.DrawFocusRect(Rect);
        end;

//不但水平居中，还垂直居中
  with Sender as Tstringgrid do
    begin
      Canvas.FillRect(Rect);
      s:=Cells[ACol,ARow];
      r:=Rect;
      DrawText(Canvas.Handle,PChar(s),Length(s),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER);
    end;
    with sender as TStringGrid do
    begin
        if (GDFocused in state) then
        begin
            Pcol:=Acol;
            Prow:=ARow;
            String_Col:=ARow;
        end;
    end;
end;

procedure Tfrm_Stock_Enter.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    dmmain.CDSquery2.Close;
    dmmain.CDSquery2.Data:=null;
    dmmain.cdsprintmaster.Close;
    dmmain.cdsprintmaster.Data:=null;
    dmmain.cdsstockdetail.Close;
    dmmain.cdsstockdetail.Data:=null;
    dmmain.cdsStock_Jion.close;
    dmmain.cdsStock_Jion.Data:=null;
    Action:=Cafree;
end;

procedure Tfrm_Stock_Enter.FormShow(Sender: TObject);
var
    i,icount,k:integer;
    tt,yy,temppos:integer;
    FWidth:integer;
    sqlsub:widestring;
begin