【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了，InGoodsQryUnit.pas，希望对大家有所帮助！

    unit InGoodsQryUnit;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Grids, DBGrids, DBCtrls, StdCtrls, Buttons, ToolWin, ComCtrls,
      ExtCtrls, DB, ComObj;
    
    type
      TInGoodsQryForm = class(TForm)
        pnlClient: TPanel;
        Panel1: TPanel;
        Label2: TLabel;
        RadioButton1: TRadioButton;
        RadioButton2: TRadioButton;
        BitBtn1: TBitBtn;
        RadioButton3: TRadioButton;
        RadioButton4: TRadioButton;
        RadioButton5: TRadioButton;
        RadioButton6: TRadioButton;
        ComboBox1: TComboBox;
        RadioButton7: TRadioButton;
        Edit1: TEdit;
        RadioButton8: TRadioButton;
        CheckBox1: TCheckBox;
        CheckBox2: TCheckBox;
        Panel2: TPanel;
        Label1: TLabel;
        DBNavigator1: TDBNavigator;
        BitBtn2: TBitBtn;
        BitBtn3: TBitBtn;
        BitBtn4: TBitBtn;
        BitBtn5: TBitBtn;
        DBGrid1: TDBGrid;
        SaveDialog1: TSaveDialog;
        DataSource1: TDataSource;
        procedure FormShow(Sender: TObject);
        procedure BitBtn1Click(Sender: TObject);
        procedure RadioButton2Click(Sender: TObject);
        procedure RadioButton3Click(Sender: TObject);
        procedure RadioButton5Click(Sender: TObject);
        procedure DataSource1DataChange(Sender: TObject; Field: TField);
        procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
          DataCol: Integer; Column: TColumn; State: TGridDrawState);
        procedure CheckBox1Click(Sender: TObject);
        procedure CheckBox2Click(Sender: TObject);
        procedure BitBtn4Click(Sender: TObject);
        procedure BitBtn5Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      InGoodsQryForm: TInGoodsQryForm;
      year, month, day: word;
    implementation
    
    uses main, PublicFunction, DMUnit;
    
    {$R *.dfm}
    
    procedure TInGoodsQryForm.FormShow(Sender: TObject);
    begin //设定日期的显示格式
      DecodeDate(now, year, month, day);
    end;
    
    procedure TInGoodsQryForm.BitBtn1Click(Sender: TObject);
    begin
      DecodeDate(now, year, month, day);
      with DM.InGoodsList do
      begin
        close;
        prepared := false;
        if (radiobutton1.Checked) then
          if (checkbox1.Checked) then
            //  搜寻所有的 不合格 数据
            parameters.parambyname('@code').value := 'A0'
          else if (checkbox2.Checked) then
            // 搜寻所有的 合格  数据
            parameters.parambyname('@code').value := 'A1'
          else
            // 搜寻所有的  数据
            parameters.parambyname('@code').value := 'A'
        else if (radiobutton2.Checked) then
          if (checkbox1.Checked) then
            // 搜寻所有的 客户名称 不合格 数据
            parameters.parambyname('@code').value := 'C0'
          else if (checkbox2.Checked) then
            // 搜寻所有的 客户名称  合格 数据
            parameters.parambyname('@code').value := 'C1'
          else
            // 搜寻所有的 客户名称 数据
            parameters.parambyname('@code').value := 'C'
        else if (radiobutton3.Checked) then
          if (checkbox1.Checked) then
            // 搜寻所有的 货物型号/单位 不合格 数据
            parameters.parambyname('@code').value := 'M0'
          else if (checkbox2.Checked) then
            // 搜寻所有的 货物型号/单位 合格 数据
            parameters.parambyname('@code').value := 'M1'
          else
            // 搜寻所有的 货物型号/单位  数据
            parameters.parambyname('@code').value := 'M'
        else if (radiobutton4.Checked) then
          if (checkbox1.Checked) then
            // 搜寻所有的 货物名称 不合格 数据
            parameters.parambyname('@code').value := 'D0'
          else if (checkbox2.checked) then
            // 搜寻所有的 货物名称 合格 数据
            parameters.parambyname('@code').value := 'D1'
          else
            // 搜寻所有的 货物名称 数据
            parameters.parambyname('@code').value := 'D'
        else if (radiobutton5.Checked) then
          if (checkbox1.Checked) then
            // 搜寻所有的 供应商名称 不合格 数据
            parameters.parambyname('@code').value := 'V0'
          else if (checkbox2.Checked) then
            // 搜寻所有的 供应商名称 合格 数据
            parameters.parambyname('@code').value := 'V1'
          else
            // 搜寻所有的 供应商名称 数据
            parameters.parambyname('@code').value := 'V'
        else if (radiobutton6.Checked) then
          if (checkbox1.Checked) then
            // 搜寻所有的 报表编号 不合格 数据
            parameters.parambyname('@code').value := 'R0'
          else if (checkbox2.checked) then
            // 搜寻所有的 报表编号 合格 数据
            parameters.parambyname('@code').value := 'R1'
          else
            // 搜寻所有的 报表编号 数据
            parameters.parambyname('@code').value := 'R'
        else if (radiobutton7.Checked) then
          if (checkbox1.Checked) then
            // 搜寻所有的  增加记录时间 不合格 数据
            parameters.parambyname('@code').value := 'X0'
          else if (checkbox2.Checked) then
            // 搜寻所有的  增加记录时间 合格 数据
            parameters.parambyname('@code').value := 'X1'
          else
            // 搜寻所有的  增加记录时间 数据
            parameters.parambyname('@code').value := 'X'
        else if (radiobutton8.checked) then
          if (checkbox1.Checked) then
            // 搜寻所有的 货物来源 不合格 数据
            parameters.parambyname('@code').value := 'S0'
          else if (checkbox2.checked) then
            // 搜寻所有的 货物来源 合格 数据
            parameters.parambyname('@code').value := 'S1'
          else
            // 搜寻所有的 货物来源  数据
            parameters.parambyname('@code').value := 'S';
        parameters.parambyname('@ckyear').Value := year;
        //  搜寻条件
        parameters.ParamByName('@condition').Value := trim(combobox1.text);
        prepared := true;
        open;
      end;
    end;
    
    procedure TInGoodsQryForm.RadioButton2Click(Sender: TObject);
    var
      i: integer;
    begin //取得 客户名称 的全部的数据到Tcombobox控件中，作为搜寻条件
      combobox1.Clear;
      with DM.GetCustomer do
      begin
        close;
        prepared := false;
        prepared := true;
        open;
        if (recordcount > 0) then
          first;
        for i := 0 to recordcount - 1 do
        begin // 取得的数据添加到该控件中
          combobox1.Items.add(FieldByName('customer').AsString);
          next;
        end;
      end;
    end;
    
    procedure TInGoodsQryForm.RadioButton3Click(Sender: TObject);
    var
      i: Integer;
    begin
      combobox1.Clear; //取得 商品类型 的全部的数据到Tcombobox控件中，作为搜寻条件
      with DM.GetModel do
      begin
        close;
        prepared := false;
        prepared := true;
        open;
        if (recordcount > 0) then
          first;
        for i := 0 to recordcount - 1 do
        begin // 取得的数据添加到该控件中
          combobox1.Items.add(fieldbyname('物品单位').asstring);
          next;
        end;
      end;
    end;
    
    procedure TInGoodsQryForm.RadioButton5Click(Sender: TObject);
    var
      i: Integer;
    begin
      combobox1.Clear; //取得 供应商名称 的全部的数据到Tcombobox控件中，作为搜寻条件
      with DM.GetBusinessman do
      begin
        close;
        prepared := false;
        prepared := true;
        open;
        if (recordcount > 0) then
          first;
        for i := 0 to recordcount - 1 do
        begin // 取得的数据添加到该控件中
          combobox1.Items.add(fieldbyname('供应商名称').asstring);
          next;
        end;
      end;
    end;
    
    procedure TInGoodsQryForm.DataSource1DataChange(Sender: TObject;
      Field: TField);
    begin
      Label1.Caption := IntToStr(DataSource1.DataSet.RecNo) + '/' +
        IntToStr(DataSource1.DataSet.RecordCount);
      if (DataSource1.DataSet.RecordCount > 0) then
      begin
        bitbtn2.Enabled := True; // '预览列表'可用
        bitbtn3.Enabled := True; // '直接打印'可用
        bitbtn4.Enabled := True; // '导出数据'可用
      end
      else
      begin
        bitbtn2.Enabled := False; // '预览列表'不可用
        bitbtn3.Enabled := False; // '直接打印'不可用
        bitbtn4.Ena

上一篇：InformUnit.pas
下一篇：哈弗F7 VS名爵HS，谁更懂得年轻人的心？