進銷存管理系統銷售管理功能的實現（二）[4]

    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

      else
      begin
       //插入新的銷售單數據
       adocommandCommandText:=insert into 銷售單([編號][客戶編號][銷售日期][業務員]
       [制單人][稅價合計][不含稅價][稅額])values(+inputnum+
       +comboboxText++editText++comboboxText+
     
       +editText++editText++editText++editText+);
       adocommandExecute;
          //根據銷售單明細條目的數量插入銷售單明細數據
       for i:= to do
        if stringgridCells[i]<> then
         //重新組合編碼
         begin
         newnum:=newnum+;
         if length(inttostr(newnum))= then
          inputnum:=+inttostr(newnum);
         if length(inttostr(newnum))= then
          inputnum:=+inttostr(newnum);
         if length(inttostr(newnum))= then
          inputnum:=+inttostr(newnum);
         if length(inttostr(newnum))= then
          inputnum:=+inttostr(newnum);
         if length(inttostr(newnum))= then
          inputnum:=inttostr(newnum);
         adocommandCommandText:=insert into 銷售單明細([編號][銷售單號][貨號]
         [銷售數量][銷售價][稅價合計][稅率][不含稅價][稅額][倉庫]) values(+inputnum
         ++inputnum++stringgridCells[i]++stringgrid
         Cells[i]++stringgridCells[i]++stringgridCells[i]+
         +stringgridCells[i]++stringgridCells[i]+
         +stringgridCells[i]++stringgridCells[i]+);
         adocommandExecute;
         end;
      //通知用戶操作成功
       showmessage(銷售單及明細保存成功);
      end;
    end;
    //提交銷售單
    //報表預覽及打印功能與進貨單完全一致
    procedure ToutputButtonClick(Sender: TObject);
    var
    ij:integer;
    begin
     
    adocommandCommandText:=exec sf_銷售單;
    adocommandExecute;
    showmessage(銷售單處理成功);
    //清空前面的輸入
    for i:= to do
     for j:= to do
      stringgridCells[ij]:=;
      comboboxText:=;
      comboboxText:=;
      editClear; 
      editClear;
      editClear;
      editClear;
      end;
    end;

right>[http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24895.html