epnuqr.pas

阀门厂的合同管理含销售 等

unit EPNUQR;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB;

type
  TFormEPNUQR = class(TForm)
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    Button1: TButton;
    DataSource1: TDataSource;
    procedure DBGrid1DblClick(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
    procedure SelectTable(str1,str2:string);
  public
    { Public declarations }
  end;

var
  FormEPNUQR: TFormEPNUQR;

implementation

uses DataHJ, mpub,
     SDSLOR, SDODLN, SDOINV;
{$R *.dfm}

procedure TFormEPNUQR.DBGrid1DblClick(Sender: TObject);
begin
   if DataSource1.DataSet.RecordCount>0 then
   if DBGrid1.SelectedIndex=0 then
   begin
      if ComboBox1.Text='未清订单' then
         ShowModalForm(TFormSDSLOR,(DBGrid1.SelectedField.Value));
      if ComboBox1.Text='未清交货' then
         ShowModalForm(TFormSDODLN,(DBGrid1.SelectedField.Value));
      if ComboBox1.Text='未清发票' then
         ShowModalForm(TFormSDOINV,(DBGrid1.SelectedField.Value));

   end;
end;

procedure TFormEPNUQR.ComboBox1Change(Sender: TObject);
begin
   if ComboBox1.Text='未清订单' then
      SelectTable('select * from SDSLOR where Confirmed=:P0','Y');
   if ComboBox1.Text='未清交货' then
      SelectTable('select * from SDODLN where Confirmed=:P0','Y');
   if ComboBox1.Text='未清发票' then
      SelectTable('select * from SDOINV where Confirmed=:P0','Y');
end;

procedure TFormEPNUQR.SelectTable(str1,str2:string);
begin
    try
        DataModHJ.ADOQuP3.Close;
        DataModHJ.ADOQuP3.SQL.Clear;
        DataModHJ.ADOQuP3.SQL.Add(str1);
        DataModHJ.ADOQuP3.Parameters[0].Value:=str2;
        DataModHJ.ADOQuP3.Prepared;
        DataModHJ.ADOQuP3.Open;

    except
        exit;
    end;
end;

procedure TFormEPNUQR.Button1Click(Sender: TObject);
begin
   DataSource1.DataSet.Close;
   Close;
end;

procedure TFormEPNUQR.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action:=caFree;
   FormEPNUQR:=nil;
end;

procedure TFormEPNUQR.FormActivate(Sender: TObject);
begin
   ComboBox1Change(Sender);
end;

end.