unit pfm_inputspxx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, Db, ADODB, Mask, DBCtrls, ado_dm, DBTables,
  Grids, DBGrids;

type
  Tfm_inputspxx = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    BBtnAddsblb: TBitBtn;
    GroupBox2: TGroupBox;
    DataSource1: TDataSource;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    DBEdit8: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBEdit28: TDBEdit;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    DBEdit32: TDBEdit;
    DBEdit33: TDBEdit;
    DBEdit34: TDBEdit;
    DBEdit35: TDBEdit;
    Query2: TQuery;
    DataSource2: TDataSource;
    Label1: TLabel;
    CbBox1: TComboBox;
    CbBox2: TComboBox;
    Label2: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    BBtnAdd: TBitBtn;
    Query1: TQuery;
    TabSheet2: TTabSheet;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    Query3: TQuery;
    StProc1: TStoredProc;
    Query2gysmc: TStringField;
    Query2gysname: TStringField;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    procedure BBtnAddsblbClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure CbBox1Change(Sender: TObject);
    procedure DBEdit8Enter(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure BBtnAddClick(Sender: TObject);
    procedure Query3BeforePost(DataSet: TDataSet);
  private
    { Private declarations }
    procedure GetDlSplb();
    procedure GetxlSplb(dlbm:string);

  public
    { Public declarations }
  end;

var
  fm_inputspxx: Tfm_inputspxx;

implementation

uses pfm_spbmlb;

{$R *.DFM}
var
dlspbmlist,xlspbmlist:Tstringlist;
sDbTable:String;
strFCnName:TStringList;

procedure Tfm_inputspxx.BBtnAddsblbClick(Sender: TObject);
begin
    Application.CreateForm(Tfm_spbmlb, fm_spbmlb);
    fm_spbmlb.showmodal;
    fm_spbmlb.free;
end;

procedure Tfm_inputspxx.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    dlspbmlist.free;
    xlspbmlist.free;
    strFcnname.Free;
    Action:=caFree;

end;

procedure Tfm_inputspxx.FormCreate(Sender: TObject);
var
i:integer;
begin
    xlspbmlist:=Tstringlist.create;
    dlspbmlist:=Tstringlist.create;
    GetDlSplb();
    if query3.active=false then query3.active:=true;
    query3.insert;
  sDbTable:='t_spxx';
  strFCnName:=TStringlist.create;
  strFCnname.Add('spbm=商品代碼');
  strFCnname.Add('sptxm=商品條形碼');
  strFCnname.Add('spmc=商品名稱');
  strFCnname.Add('ggxh=規格型號');
  strFCnname.Add('dengji=等級');
  strFCnname.Add('zhuangtai=商品狀態');
  strFCnname.Add('baozhuangdw=包裝單位');
  strFCnname.Add('baozhuangsl=包裝數量');
  strFCnname.Add('hh=貨號');
  strFCnname.Add('gysmc=供應商代碼');
  strFCnname.Add('cd=產地');
  strFCnname.Add('wsjj=無稅進價');
  strFCnname.Add('jhsl=進價稅率');
  strFCnname.Add('wsdj=無稅單價');
  strFCnname.Add('xssl=銷售稅率');
  strFCnname.Add('xsfs=銷售方式');
  strFCnname.Add('splb=商品類別');
  strFCnname.Add('yhl=優惠率');
  strFCnname.Add('shbz=審核標志');
  strFCnname.Add('shrm=審核人');
  strFCnname.Add('czym=操作員');
  for i:=0 to dbgrid1.Columns.Count-1 do
  dbgrid1.Columns.Items[i].Title.caption:=strFcnName.Values[dbgrid1.Columns.Items[i].FieldName];
end;
procedure Tfm_inputspxx.GetDlSplb();
var
miaoshu,bm:string;
begin
    //獲得大類商品編碼
    dlspbmlist.clear;
    cbbox1.clear;
    cbbox2.clear;
    query1.active:=false;
    query1.sql.clear;
    query1.sql.Add('select * from t_spbmlb where lb=''大類''');
    query1.active:=true;
    while not query1.eof do
    begin
        miaoshu:=query1.fieldbyname('miaoshu').asstring;
        
        bm:=query1.fieldbyname('dlbm').asstring;
        cbbox1.items.add(miaoshu+'('+bm+')');
        dlspbmlist.Add(bm);
        query1.next;
    end;
    query1.active:=false;
    if cbbox1.items.Count>0 then
    begin
        cbbox1.ItemIndex:=0;
    end;

end;
procedure Tfm_inputspxx.GetXlSplb(dlbm:string);
var
miaoshu,bm:string;
begin
    //獲得小類商品編碼
    xlspbmlist.clear;
    cbbox2.clear;
    query1.active:=false;
    query1.sql.clear;
    query1.sql.Add('select * from t_spbmlb where lb=''小類'' and dlbm='''+dlbm+'''');
    query1.active:=true;
    while not query1.eof do
    begin
        miaoshu:=query1.fieldbyname('miaoshu').asstring;
        bm:=query1.fieldbyname('xlbm').asstring;
        cbbox2.items.add(miaoshu+'('+bm+')');
        xlspbmlist.Add(bm);
        query1.next;
    end;
    query1.active:=false;
    if cbbox2.items.Count>0 then
    begin
        cbbox2.ItemIndex:=0;
    end;
end;


procedure Tfm_inputspxx.CbBox1Change(Sender: TObject);
begin
    if cbbox1.itemindex>=0 then
    begin
        GetXlSplb(dlspbmlist.Strings[cbbox1.itemindex]);
    end;
end;

procedure Tfm_inputspxx.DBEdit8Enter(Sender: TObject);
begin
    if length(dbedit8.text)<=3 then
    begin
       if (cbbox1.itemindex>=0) and (cbbox2.itemindex>=0) then
       begin
            dbedit8.text:=dlspbmlist.Strings[cbbox1.itemindex]+xlspbmlist.Strings[cbbox2.itemindex];
       end;
    end;
end;

procedure Tfm_inputspxx.PageControl1Change(Sender: TObject);
begin
    //返回基本信息頁面
    if (pagecontrol1.ActivePageIndex=0) and ((query3.state<>dsedit) or (query3.state<>dsinsert)) then
    begin
        query3.insert;
        exit;
    end;
    //列表信息頁面
    if  query3.State=dsinsert then
    begin
        if application.MessageBox(pchar('先保存輸入的商品信息嗎?'),pchar('注意'),MB_YESNO)=IDYES then
        begin
            pagecontrol1.ActivePageIndex:=0;
            exit;
        end;
        query3.Cancel;
    end;


end;

procedure Tfm_inputspxx.BBtnAddClick(Sender: TObject);
begin
    if query3.State=dsInsert then
    begin
        query3.post;
    end;
end;

procedure Tfm_inputspxx.Query3BeforePost(DataSet: TDataSet);
begin
    if length(query3.FieldByName('spbm').asstring)<>6 then
    begin
        application.MessageBox(pchar('商品的編碼不足6位'),pchar('注意'),MB_okcancel);
        abort;
    end;
    stproc1.ParamByName('@chSpbm').value:=query3.FieldByName('spbm').asstring;
    stproc1.ExecProc;
    if stproc1.ParamByName('@intExists').value=1 then
    begin
        showmessage('該商品編碼已經存在，請使用其他編碼');
        abort;
    end;

    if query3.FieldByName('wsjj').asfloat=0 then
    begin
        application.MessageBox(pchar('商品的無稅進價不能為0'),pchar('注意'),MB_okcancel);
        abort;
    end;
    if query3.FieldByName('wsdj').asfloat=0 then
    begin
        application.MessageBox(pchar('商品的無稅單價（銷售價格）不能為0'),pchar('注意'),MB_okcancel);
        abort;
    end;

end;

end.