stock_contract.pas

delphi的一个开发实例

                                                    Application.MessageBox('系统错误,在保存【采购合同明细表】循环时出错'+#13#10+'请检查远程服务器连接是否正常？请确认！',pchar(application.Title),mb_iconwarning);
                                                    Exit;
                                                end;
                                            end;
                                            Application.MessageBox('恭喜你！【采购合同】保存为草稿操作成功！请确认！',pchar(application.Title),mb_iconwarning);
                                        except
                                            Application.MessageBox('系统错误,在保存【采购合同审核表】数据表时出错'+#13#10+'请检查远程服务器连接是否正常？请确认！',pchar(application.Title),mb_iconwarning);
                                            Exit;
                                        end;
                                    end;
                                except
                                    Application.MessageBox('系统错误,在保存【采购合同】数据表时出错'+#13#10+'请检查远程服务器连接是否正常？请确认！',pchar(application.Title),mb_iconwarning);
                                    Exit;
                                end;
                            end;
                        end;
                    except
                        Application.MessageBox('系统错误,在打开【采购合同】数据表时出错'+#13#10+'请检查远程服务器连接是否正常？请确认！',pchar(application.Title),mb_iconwarning);
                        Exit;
                    end;
                end;
            except
                Application.MessageBox('添加操作失败，请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                Exit;
            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;
    end;
    //操作草稿
    if Public_Do='Business_Draft_0002' then
    begin
        //草稿过帐转为单据
        if Public_Do_Result='01' then //保存为单据
        begin
            with frm_data.ClientDataSet2 do
            begin
                Close;
                CommandText:='';
                Commandtext:='Select * from [V_Goods_Stock_Contract_View] where Receipt_No='''+Trim(List_NO)+'''';
                try
                    Open;
                    Check_Flag:=frm_data.ClientDataSet2.FieldValues['Check_Result'];
                    if Check_Flag='0' then
                    begin
                        Application.MessageBox('该张草稿单据还没有完全审核，不能过帐，请确认！',pchar(application.Title),mb_iconwarning);
                        Exit;
                    end;
                    if Check_Flag='1' then
                    begin
                        with frm_data.ClientDataSet_Add do
                        begin
                            Close;
                            Commandtext:='';
                            Commandtext:='update [Stock_contract] set Arrive_Date='''+Trim(Edit3.Text)+''',wldw='''+Trim(Edit4.Text)+''',resume='''+Trim(Edit8.Text)+''',remark='''+Trim(Edit9.Text)+''' where Contract_No='''+Trim(List_No)+'''';
                            try
                                Execute;
                                //修改明细表的数据
                                for i:=1 to Total_Count-1 do
                                begin
                                    try
                                        with frm_data.ClientDataSet_Add do
                                        begin
                                            Close;
                                            frm_data.ClientDataSet_Add.CommandText:='';
                                            CommandText:='update [Stock_contract_detail] set Price='''+Trim(StringGrid1.Cells[3,i])+''',Goods_amount='''+Trim(StringGrid1.Cells[4,i])+''',Money='''+Trim(StringGrid1.Cells[5,i])+''' where Contract_No='''+Trim(List_NO)+''' and Goods_NO='''+Trim(StringGrid1.Cells[1,i])+'''';
                                            try
                                                Execute;
                                            except
                                                Application.MessageBox('系统错误，在修改【采购合同明细】数据表时出错！'+#13#10+'请检查远程服务器连接是否正常？请确认！',pchar(application.Title),mb_iconwarning);
                                                Exit;
                                            end;
                                        end;
                                    except
                                        Application.MessageBox('系统错误，在修改【采购合同明细】数据表循环时出错！'+#13#10+'请检查远程服务器连接是否正常？请确认！',pchar(application.Title),mb_iconwarning);
                                        Exit;
                                    end;
                                end;
                                //修改草稿的标志位
                                with frm_data.ClientDataSet_Add do
                                begin
                                    Close;
                                    Commandtext:='';
                                    Commandtext:='Update [Receipt] set Flag_sign=''单据'' where Receipt_No='''+Trim(List_NO)+'''';
                                    try
                                        Execute;
                                        Application.MessageBox('恭喜你！【采购合同】草稿单据过帐完毕！',pchar(application.Title),mb_iconwarning);
                                    except
                                        Application.MessageBox('系统错误，在修改【采购合同审核表】数据表标志位时出错！'+#13#10+'请检查远程服务器连接是否正常？请确认！',pchar(application.Title),mb_iconwarning);
                                        Exit;
                                    end;
                                end;
                            except
                                Application.MessageBox('系统错误，在修改【采购合同】数据表时出错！'+#13#10+'请检查远程服务器连接是否正常？请确认！',pchar(application.Title),mb_iconwarning);
                                Exit;
                            end;
                        end;
                    end;
                except
                    Application.MessageBox('系统错误，在打开【采购合同视图】数据表时出错！'+#13#10+'请检查远程服务器连接是否正常？请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
            end;
        end;
        //修改草稿单据
        if Public_Do_Result='02' then //修改草稿单据
        begin
            with frm_data.ClientDataSet_Add do
            begin
                Close;
                Commandtext:='';
                Commandtext:='update [Stock_contract] set Arrive_Date='''+Trim(Edit3.Text)+''',wldw='''+Trim(Edit4.Text)+''',resume='''+Trim(Edit8.Text)+''',remark='''+Trim(Edit9.Text)+''' where Contract_No='''+Trim(List_No)+'''';
                try
                    Execute;
                    //修改明细表的数据
                    for i:=1 to Total_Count-1 do
                    begin
                        try
                            with frm_data.ClientDataSet_Add do
                            begin
                                Close;
                                frm_data.ClientDataSet_Add.CommandText:='';
                                CommandText:='update [Stock_contract_detail] set Price='''+Trim(StringGrid1.Cells[3,i])+''',Goods_amount='''+Trim(StringGrid1.Cells[4,i])+''',Money='''+Trim(StringGrid1.Cells[5,i])+''' where Contract_No='''+Trim(List_NO)+''' and Goods_NO='''+Trim(StringGrid1.Cells[1,i])+'''';
                                try
                                    Execute;
                                except
                                    Application.MessageBox('系统错误，在修改【采购合同明细】数据表时出错！'+#13#10+'请检查远程服务器连接是否正常？请确认！',pchar(application.Title),mb_iconwarning);
                                    Exit;
                                end;
                            end;
                        except
                            Application.MessageBox('系统错误，在修改【采购合同明细】数据表循环时出错！'+#13#10+'请检查远程服务器连接是否正常？请确认！',pchar(application.Title),mb_iconwarning);
                            Exit;
                        end;
                    end;
                except
                    Application.MessageBox('系统错误，在采购【采购合同】数据表时出错！'+#13#10+'请检查远程服务器连接是否正常？请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
            end;
        end;
        if func.Public_Do_Result='03' then
        begin
            frm_data.ClientDataSet_Add.Close;
            frm_data.ClientDataSet_Add.Active:=False;
            Close;
        end;
    end;
    frm_Public_Don.Free;
end;


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

procedure Tfrm_Stock_Contract.DateTimePicker1Change(Sender: TObject);
begin
    Edit3.Text:=formatdatetime('yyyy''-''mm''-''dd',DateTimePicker1.Date);
end;

procedure Tfrm_Stock_Contract.Cmd_DWClick(Sender: TObject);
begin
    Check_Mond:='';
    Check_Mond:='DW-0001';
    frm_Supply_Monad:=Tfrm_Supply_Monad.Create(self);
    frm_Supply_Monad.Caption:='【供货单位】';
    frm_Supply_Monad.ShowModal;
    Edit4.Text:=check_Mond_Result;
    frm_Supply_Monad.Free;
end;

procedure Tfrm_Stock_Contract.Cmd_JSRClick(Sender: TObject);
begin
    Employe_Check:='';
    Employe_Check:='JSR-0001';
    Employe_Check_Result:='';
    frm_Login_Man:=Tfrm_Login_Man.Create(self);
    frm_Login_Man.Caption:='经手人选择';
    frm_Login_Man.ShowModal;
    Edit5.Text:=Employe_Check_Result;
    frm_Login_Man.Free;
end;

procedure Tfrm_Stock_Contract.Cmd_ZDRClick(Sender: TObject);
begin
    Edit7.Text:=Handle_Man;
end;

procedure Tfrm_Stock_Contract.Cmd_UpClick(Sender: TObject);
var
    SqlOpen:String;
    k:integer;
begin
    with frm_data.ClientDataSet_Add do
    begin
        Close;
        CommandText:='';
        CommandText:='Select * from [V_Goods_Stock_Contract_View] where Proposer='''+trim(Handle_Man)+'''';
        try
            Open;
            if frm_data.ClientDataSet_Add.RecordCount>0 then
            begin
                //frm_data.ClientDataSet_Add.FindPrior;
                First;
                Edit1.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.ClientDataSet_Add.FieldValues['Copy_Date']);
                Edit2.Text:=frm_data.ClientDataSet_Add.FieldValues['Contract_No'];
                Edit3.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.ClientDataSet_Add.FieldValues['Arrive_Date']);
                Edit4.Text:=frm_data.ClientDataSet_Add.FieldValues['wldw'];
                Edit5.Text:=frm_data.ClientDataSet_Add.FieldValues['transactor'];
                Edit7.Text:=frm_data.ClientDataSet_Add.FieldValues['Proposer'];
                Edit8.Text:=frm_data.ClientDataSet_Add.FieldValues['resume'];
                Edit9.Text:=frm_data.ClientDataSet_Add.FieldValues['Remark'];

                Close;
                CommandText:='';
                CommandText:='Select * from [V_Goods_Stock_Contract_View] where Contract_No='''+trim(Edit2.Text)+'''';
                Open;
                k:=frm_data.ClientDataSet_Add.RecordCount;
                StringGrid1.RowCount:=k+1;
                //自动加载STRINGGRID的行数
                for K:=1 to StringGrid1.RowCount do
                begin
                    StringGrid1.Cells[0,K]:=IntTostr(k); //表示第0列第i行的名称
                end;
                for k:=1 to k  do
                begin
                //Goods_NO,Goods_Name,Goods_amount,Price,Money,Goods_Modal_No,Goods_Modal_No,Goods_Modal
                    StringGrid1.Cells[1,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_NO'];//商品编号
                    StringGrid1.Cells[2,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Name'];//商品名称
                    StringGrid1.Cells[3,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_amount'];//数量
                    StringGrid1.Cells[4,k]:=frm_data.ClientDataSet_Add.FieldValues['Price'];//单价
                    StringGrid1.Cells[5,k]:=frm_data.ClientDataSet_Add.FieldValues['Money'];//金额
                    StringGrid1.Cells[6,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Modal']; //类别名称
                    StringGrid1.Cells[7,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Cards']; //品牌名称
                    StringGrid1.Cells[8,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Brand']; //品种名称
                    StringGrid1.Cells[9,k]:=frm_data.ClientDataSet_Add.FieldValues['Norms_Type'];//规格型号名称
                    StringGrid1.Cells[10,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Sphere'];//球面度数
                    StringGrid1.Cells[11,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Column'];//柱面度数
                    StringGrid1.Cells[12,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Color'];//颜色名称
                    StringGrid1.Cells[13,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Coding'];//商品条玛
                    StringGrid1.Cells[14,k]:=frm_data.ClientDataSet_Add.FieldValues['Enroll_Brand'];//注册商标
                    StringGrid1.Cells[15,k]:=frm_data.ClientDataSet_Add.FieldValues['Factory'];//生产厂家
                    StringGrid1.Cells[16,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_abbrev'];//商品简称
                    StringGrid1.Cells[17,k]:=frm_data.ClientDataSet_Add.FieldValues['Base_Monad'];//基本单位
                    StringGrid1.Cells[18,k]:=frm_data.ClientDataSet_Add.FieldValues['Whole_Monad'];//整件单位
                    StringGrid1.Cells[19,k]:=frm_data.ClientDataSet_Add.FieldValues['Valid_Month']; //有效日期
                    StringGrid1.Cells[20,k]:=frm_data.ClientDataSet_Add.FieldValues['Valid_Day']; //有效日期