stock_contract.pas

delphi的一个开发实例

                    StringGrid1.Cells[21,k]:=frm_data.ClientDataSet_Add.FieldValues['Remark'];  //备注说明
                    Next;
                end;
            end;
        except;
            Application.MessageBox('操作失败！在打开【采购合同视图】数据表时出错！请检查远程连接服务器是否正常连接，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
    end;
end;

procedure Tfrm_Stock_Contract.Cmd_NextClick(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(func.Handle_Man)+'''';
        try
            Open;
            if frm_data.ClientDataSet_Add.RecordCount>0 then
            begin
                //frm_data.ClientDataSet_Add.FindNext;
                Last;
                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
                    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']; //有效日期
                    StringGrid1.Cells[21,k]:=frm_data.ClientDataSet_Add.FieldValues['Remark'];  //备注说明
                    Next;
                end;
            end;
        except;
            Application.MessageBox('操作失败！在打开【采购合同视图】数据表时出错！请检查远程连接服务器是否正常连接，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
    end;
end;


procedure Tfrm_Stock_Contract.Cmd_DCClick(Sender: TObject);
var
    k:Integer;
begin
    Stock_Contract_NO:='';
    Stock_Contract_Str:='';
    Stock_Contract_Str:='DC'; //调出某张单据
    frm_Stock_Contract_Search:=Tfrm_Stock_Contract_Search.Create(self);
    frm_Stock_Contract_Search.ShowModal;
    Edit2.Text:=Stock_Contract_NO;
    with frm_data.ClientDataSet_Add do
    begin
        Close;
        CommandText:='';
        CommandText:='Select * from [V_Goods_Stock_Contract_View] where Contract_No='''+trim(Stock_Contract_NO)+'''';
        try
            Open;
            if frm_data.ClientDataSet_Add.RecordCount>0 then
            begin
                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'];
                //Copy_Date,Contract_No,Arrive_Date,wldw,transactor,Proposer,resume,Remark,Goods_NO
                //Goods_Name,Goods_amount,Price,Money
                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
                    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']; //有效日期
                    StringGrid1.Cells[21,k]:=frm_data.ClientDataSet_Add.FieldValues['Remark'];  //备注说明
                    Next;
                end;
            end;
        except;
            Application.MessageBox('操作失败！在打开【采购合同视图】数据表时出错！请检查远程连接服务器是否正常连接，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
    end;
    frm_Stock_Contract_Search.Free;
end;


procedure Tfrm_Stock_Contract.StringGrid1DblClick(Sender: TObject);
var
    openstr:string;
    S1,s2,s3:string;
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;
    s1:='select Goods_NO,Goods_Name,Goods_Modal_No,Goods_Modal,Goods_Cards_NO,Goods_Cards,Goods_Brand_NO,';
    S2:='Goods_Brand,Norms_Type_NO,Norms_Type,Goods_Sphere,Goods_Column,Goods_Color_NO,Goods_Color,Goods_Coding,Enroll_Brand,Factory,';
    s3:='Goods_abbrev,Base_Monad,Whole_Monad,Valid_Month,Valid_Day,Remark from [Goods_Information]';
    openstr:=s1+s2+s3;
    //openstr:='Select Goods_NO,Goods_Modal_No,Goods_Modal,Goods_Cards_NO,Goods_Cards,Goods_Brand_NO,Goods_Brand,Norms_Type_NO,Norms_Type,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 from [Goods_Information]';
    if ((PCol=1) or (PCol=2))then //表示选择的是商品编号 选择的是第一列
    begin
        Goods_Check_str:='';
        frm_Goods_Check:=Tfrm_Goods_Check.Create(self);
        frm_Goods_Check.ShowModal;
        if Goods_Check_str='Stock_0002' then
        begin
            try
                with frm_data.ClientDataSet_Add do
                begin
                    Close;
                    CommandText:='';
                    //CommandText:=openstr+' where Goods_No='''+Goods_No_Str+'''';
                    CommandText:='select * from [Goods_Information]  where Goods_No='''+Goods_No_Str+'''';
                    Open;
                    StringGrid1.Cells[1,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Goods_NO'];//商品编号
                    StringGrid1.Cells[2,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Name'];//商品名称
                    StringGrid1.Cells[6,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Modal_No'];//类别编号
                    StringGrid1.Cells[7,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Modal']; //类别名称
                    StringGrid1.Cells[8,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Cards_NO'];//品牌编号
                    StringGrid1.Cells[9,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Cards']; //品牌名称
                    StringGrid1.Cells[10,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Brand_NO'];//品种编号
                    StringGrid1.Cells[11,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Brand']; //品种名称
                    StringGrid1.Cells[12,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Norms_Type_NO'];//规格型号代码
                    StringGrid1.Cells[13,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Norms_Type'];//规格型号名称
                    StringGrid1.Cells[14,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Sphere'];//球面度数
                    StringGrid1.Cells[15,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Column'];//柱面度数
                    StringGrid1.Cells[16,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Color_NO'];//颜色代码
                    StringGrid1.Cells[17,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Color'];//颜色名称
                    StringGrid1.Cells[18,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Coding'];//商品条玛
                    StringGrid1.Cells[19,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Enroll_Brand'];//注册商标
                    StringGrid1.Cells[20,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Factory'];//生产厂家
                    StringGrid1.Cells[21,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Goods_abbrev'];//商品简称
                    StringGrid1.Cells[22,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Base_Monad'];//基本单位
                    StringGrid1.Cells[23,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Whole_Monad'];//整件单位
                    StringGrid1.Cells[24,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Valid_Month']; //有效日期
                    StringGrid1.Cells[25,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Valid_Day']; //有效日期
                    StringGrid1.Cells[26,String_Col]:=frm_data.ClientDataSet_Add.FieldValues['Remark'];  //备注说明
                end;
            except
                application.MessageBox('操作失败，请检查连接网络是否正常？请确认！',pchar(application.Title),mb_iconwarning);
            end;
        end;
        frm_Goods_Check.Free;
    end;
end;


procedure Tfrm_Stock_Contract.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
    //控制某一列不能输入
    {if (ACol=1) or (ACol=2)then  //第二，三列为不可编辑，其它为可编辑。
    begin
        StringGrid1.Options := StringGrid1.Options - [goEditing]
    end
    else
    begin
        StringGrid1.Options := StringGrid1.Options + [goEditing] ;
    end;}
    with sender as TStringGrid do
    begin
        if (GDFocused in state) then
        begin
            Pcol:=Acol;
            Prow:=ARow;
            func.String_Col:=ARow;
        end;
    end;
end;