goods.pas

delphi的一个开发实例

    frm_Goods_Select.Caption:='【商品类别选择】';
    frm_Goods_Select.TabSheet1.TabVisible:=True;
    frm_Goods_Select.TabSheet2.TabVisible:=False;
    frm_Goods_Select.TabSheet3.TabVisible:=False;
    frm_Goods_Select.TabSheet4.TabVisible:=False;
    frm_Goods_Select.ShowModal;
    if Subject_Back='0001' then
    begin
        EG2.Text:=Subject_No;
        EG3.Text:=Subject_Name;
    end;
    frm_Goods_Select.Free;
end;

procedure Tfrm_Goods.SpeedButton13Click(Sender: TObject);
begin
    if Trim(EG2.Text)='' then
    begin
        Application.MessageBox('操作错误,［商品类别］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Exit;
    end;
    Subject_Str:='';Subject_No:='';Subject_Name:='';
    Subject_Str:='0002';//如果等于0002表示商品品牌选择
    EG5.Clear; EG5.Text:='';
    G_Modal:='';   //取得商品类别的名称
    G_Modal:=Trim(EG3.Text);
    frm_Goods_Select:=Tfrm_Goods_Select.Create(self);
    frm_Goods_Select.Caption:='【商品品牌选择】';
    frm_Goods_Select.TabSheet1.TabVisible:=False;
    frm_Goods_Select.TabSheet2.TabVisible:=True;
    frm_Goods_Select.TabSheet3.TabVisible:=False;
    frm_Goods_Select.TabSheet4.TabVisible:=False;
    frm_Goods_Select.ShowModal;
    if Subject_Back='0002' then
    begin
       EG4.Text:=Subject_No;
       EG5.Text:=Subject_Name;
       EG16.Text:=Subject_Facility;
    end;
    frm_Goods_Select.Free;
end;

procedure Tfrm_Goods.SpeedButton14Click(Sender: TObject);
begin
    if Trim(EG2.Text)='' then
    begin
        Application.MessageBox('操作错误,［商品类别］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Exit;
    end;
    if Trim(EG4.Text)='' then
    begin
        Application.MessageBox('操作错误,［商品品牌］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Exit;
    end;
    Subject_Str:='';Subject_No:='';Subject_Name:='';
    Subject_Str:='0003';//如果等于0001表示商品类别选择
    EG7.Clear; EG7.Text:='';
    G_Cards:='';
    G_Cards:=Trim(EG5.Text);
    frm_Goods_Select:=Tfrm_Goods_Select.Create(self);
    frm_Goods_Select.Caption:='【商品品种别选择】';
    frm_Goods_Select.TabSheet1.TabVisible:=False;
    frm_Goods_Select.TabSheet2.TabVisible:=False;
    frm_Goods_Select.TabSheet3.TabVisible:=True;
    frm_Goods_Select.TabSheet4.TabVisible:=False;
    frm_Goods_Select.ShowModal;
    if Subject_Back='0003' then
    begin
       EG6.Text:=Subject_No;
       EG7.Text:=Subject_Name;
    end;
    frm_Goods_Select.Free;
end;

procedure Tfrm_Goods.Cmd_YSClick(Sender: TObject);
begin
    Subject_Str:='';Subject_No:='';Subject_Name:='';
    Subject_Str:='0004';//如果等于0001表示商品类别选择
    EG12.Clear; EG13.Text:='';
    frm_Goods_Select:=Tfrm_Goods_Select.Create(self);
    frm_Goods_Select.Caption:='【商品颜色选择】';
    frm_Goods_Select.TabSheet1.TabVisible:=False;
    frm_Goods_Select.TabSheet2.TabVisible:=False;
    frm_Goods_Select.TabSheet3.TabVisible:=False;
    frm_Goods_Select.TabSheet4.TabVisible:=True;
    frm_Goods_Select.ShowModal;
    if Subject_Back='0004' then
    begin
       EG12.Text:=Subject_No;
       EG13.Text:=Subject_Name;
       Str_NO:= Str_NO+Trim(EG12.Text)+'_';
       EG1.Text:=Str_NO;
    end;
    frm_Goods_Select.Free;
end;

procedure Tfrm_Goods.CheckBox4Click(Sender: TObject);
begin
    if CheckBox6.Checked=True then
    begin
        Application.MessageBox('【球面度数】批量录入时【柱面度数】不能批量录入！',Pchar(Application.Title),MB_ICONWarning);
        CheckBox6.Checked:=false;
        Exit;
    end;
    if CheckBox4.Checked=True then
    begin
        frm_Batch_Insert:=tfrm_Batch_Insert.Create(self);
        frm_Batch_Insert.ShowModal;
        Edit_KD.Text:=Str_KD;
        Edit_KS.Text:=Str_KS;
        Edit_JS.Text:=Str_JS;
        K_R:=StrTofloat(Str_KD);
        B_R:=StrTofloat(Str_KS);
        J_R:=StrTofloat(Str_JS);
        frm_Batch_Insert.Free;
    end;
end;

procedure Tfrm_Goods.CheckBox6Click(Sender: TObject);
begin
    if CheckBox4.Checked=True then
    begin
        Application.MessageBox('【柱面度数】批量录入时【球面度数】不能批量录入！',Pchar(Application.Title),MB_ICONWarning);
        CheckBox4.Checked:=false;
        Exit;
    end;
    if CheckBox6.Checked=True then
    begin
        frm_Batch_Insert:=tfrm_Batch_Insert.Create(self);
        frm_Batch_Insert.ShowModal;
        Edit_KD.Text:=Str_KD;
        Edit_KS.Text:=Str_KS;
        Edit_JS.Text:=Str_JS;
        K_R:=StrTofloat(Str_KD);
        B_R:=StrTofloat(Str_KS);
        J_R:=StrTofloat(Str_JS);
        frm_Batch_Insert.Free;
    end;
end;

procedure Tfrm_Goods.CheckBox3Click(Sender: TObject);
begin
    if CheckBox3.Checked=True then
    begin
        EG10.Enabled:=true;
        EG10.Clear;EG10.Text:='';
        CheckBox4.Enabled:=True;
        CheckBox5.Enabled:=True;
    end
    else
    begin
        EG10.Enabled:=False;
        EG10.Clear;EG10.Text:='';
        CheckBox4.Checked:=false;
        CheckBox6.Checked:=false;
        CheckBox4.Enabled:=false;
        CheckBox5.Enabled:=false;
        EG11.Enabled:=False;
        EG11.Clear;EG11.Text:='';
        CheckBox6.Enabled:=false;
    end;
end;

procedure Tfrm_Goods.CheckBox5Click(Sender: TObject);
begin
    if CheckBox5.Checked=True then
    begin
        EG11.Enabled:=true;
        EG11.Clear;EG11.Text:='';
        CheckBox6.Enabled:=True;
    end
    else
    begin
        EG11.Enabled:=False;
        EG11.Clear;EG11.Text:='';
        CheckBox6.Enabled:=false;
    end;
end;

procedure Tfrm_Goods.SpeedButton11Click(Sender: TObject);
var
    tempstr,tempsql,tempText:string;
    openstr:string;
    i:Integer;
begin
    if (CheckBox4.Checked=False) and (checkbox6.Checked=False) then
    begin
        EG1.Text:=Copy(Str_NO,1,length(Str_NO)-1);
        if Trim(EG1.Text)='' then
        begin
            application.MessageBox('添加失败,【商品编号】不能为空！请检查你的输入是否正确，请确认！',pchar(application.Title),mb_iconwarning);
            EG1.SetFocus;
            Exit;
        end;
        tempstr:='';tempsql:='';tempText:='';openstr:='';
        openstr:=' select * from [Goods_Information]';
        tempstr:='insert into [Goods_Information](Goods_NO,Goods_Modal_No,Goods_Modal,Goods_Cards_NO,Goods_Cards,Goods_Brand_NO,Goods_Brand,Norms_Type_NO,Norms_Type,';
        tempstr:=tempstr+'Goods_Sphere,Goods_Column,Goods_Color_NO,Goods_Color,Goods_Coding,Enroll_Brand,Factory,Goods_Name,Goods_abbrev,Base_Monad,Whole_Monad,Valid_Month,Valid_Day,Remark)';
        tempsql:='values ('''+Trim(EG1.Text)+''','''+Trim(EG2.Text)+''','''+Trim(EG3.Text)+''','''+Trim(EG4.Text)+''','''+Trim(EG5.Text)+''','''+Trim(EG6.Text)+''','''+Trim(EG7.Text)+''','''+Trim(EG8.Text)+''','''+Trim(EG9.Text)+''','''+Trim(EG10.Text)+''','''+Trim(EG11.Text)+''','''+Trim(EG12.Text)+''','''+Trim(EG13.Text)+''','''+Trim(EG14.Text)+''','''+Trim(EG15.Text)+''','''+Trim(EG16.Text)+''','''+Trim(EG17.Text)+''','''+Trim(EG18.Text)+''','''+Trim(EG19.Text)+''','''+Trim(EG20.Text)+''','''+Trim(EG21.Text)+''','''+Trim(EG22.Text)+''','''+Trim(EG23.Text)+''')';
        tempText:=Trim(tempstr)+Trim(tempsql);
        with frm_data.ClientDataSet_Add do
        begin
            Close;
            CommandText:='';
            CommandText:='select * from [Goods_Information] where Goods_No='''+Trim(EG1.Text)+''' and Goods_Name='''+Trim(EG17.Text)+'''';
            try
                Open;
                if frm_data.ClientDataSet_Add.RecordCount>0 then
                begin
                    application.MessageBox('添加失败,该记录已经存在，请重新如数后在保存，请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end
                else
                begin
                    with frm_data.Client_Goods do
                    begin
                        frm_data.Client_Goods.Open;
                        frm_data.Client_Goods.Insert;
                        openstr:=' select * from [Goods_Information]';
                        frm_data.Client_Goods.FieldByName('Goods_NO').AsString:=Trim(EG1.Text);
                        frm_data.Client_Goods.FieldByName('Goods_Modal_No').AsString:=Trim(EG2.Text);
                        frm_data.Client_Goods.FieldByName('Goods_Modal').AsString:=Trim(EG3.Text);
                        frm_data.Client_Goods.FieldByName('Goods_Cards_NO').AsString:=Trim(EG4.Text);
                        frm_data.Client_Goods.FieldByName('Goods_Cards').AsString:=Trim(EG5.Text);
                        frm_data.Client_Goods.FieldByName('Goods_Brand_NO').AsString:=Trim(EG6.Text);
                        frm_data.Client_Goods.FieldByName('Goods_Brand').AsString:=Trim(EG7.Text);
                        frm_data.Client_Goods.FieldByName('Norms_Type_NO').AsString:=Trim(EG8.Text);
                        frm_data.Client_Goods.FieldByName('Norms_Type').AsString:=Trim(EG9.Text);
                        frm_data.Client_Goods.FieldByName('Goods_Sphere').AsString:=Trim(EG10.Text);
                        frm_data.Client_Goods.FieldByName('Goods_Column').AsString:=Trim(EG11.Text);
                        frm_data.Client_Goods.FieldByName('Goods_Color_NO').AsString:=Trim(EG12.Text);
                        frm_data.Client_Goods.FieldByName('Goods_Color').AsString:=Trim(EG13.Text);
                        frm_data.Client_Goods.FieldByName('Goods_Coding').AsString:=Trim(EG14.Text);
                        frm_data.Client_Goods.FieldByName('Enroll_Brand').AsString:=Trim(EG15.Text);
                        frm_data.Client_Goods.FieldByName('Factory').AsString:=Trim(EG16.Text);
                        frm_data.Client_Goods.FieldByName('Goods_Name').AsString:=Trim(EG17.Text);
                        frm_data.Client_Goods.FieldByName('Goods_abbrev').AsString:=Trim(EG18.Text);
                        frm_data.Client_Goods.FieldByName('Base_Monad').AsString:=Trim(EG19.Text);
                        frm_data.Client_Goods.FieldByName('Whole_Monad').AsString:=Trim(EG20.Text);
                        frm_data.Client_Goods.FieldByName('Valid_Month').AsString:=Trim(EG21.Text);
                        frm_data.Client_Goods.FieldByName('Valid_Day').AsString:=Trim(EG22.Text);
                        frm_data.Client_Goods.FieldByName('Remark').AsString:=Trim(EG23.Text);
                        try
                            post;
                            frm_data.Client_Goods.SaveToFile('Client_Goods_Information.cds');
                            application.MessageBox('【商品基本信息】，添加成功，请确认！',pchar(application.Title),mb_iconwarning);
                        except
                            application.MessageBox('添加【商品基本信息】失败，请检查连接网络是否正常或数据格式是否正确，请确认！',pchar(application.Title),mb_iconwarning);
                            Exit;
                        end;
                    end;
                end;
            except
                Application.MessageBox('系统错误！打开【商品基本信息表】时出错！请确认！',Pchar(Application.Title),MB_ICONWarning);
                Exit;
            end;
        end;
    end;
    //球面度数批量录入
    if (CheckBox4.Checked=True) and (CheckBox6.Checked=False) then  //球面度数批量录入
    begin
        if (Trim(Edit_KD.Text)='') or (trim(Edit_KS.Text)='') or (trim(Edit_JS.Text)='') then
        begin
            Application.MessageBox('错误操作，你已经选择【球面度数批量录入】，'+#13#10#13+'【变化幅度】、【起始度数】、【截止度数】均不能为空！请确认！',pchar(application.Title),mb_iconwarning);
            Exit;