sdqcrd.pas

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

unit SDQCRD;

interface

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

type
  TFormSDQCRD = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBGrid1Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSDQCRD: TFormSDQCRD;
  CardCode:string;
  
implementation

uses DataHJ, mpub, SDOCRD;

{$R *.dfm}

procedure TFormSDQCRD.Button1Click(Sender: TObject);
begin
   if DataModHJ.ADOQuP0.RecordCount>0 then
     CardCode:=DBGrid1.Fields[0].Value;
   DataModHJ.ADOQuP0.Close;
   Close;
end;

procedure TFormSDQCRD.Button2Click(Sender: TObject);
begin
   Close;
end;

procedure TFormSDQCRD.DBGrid1DblClick(Sender: TObject);
begin
   if DataSource1.DataSet.RecordCount>0 then
   if DBGrid1.SelectedIndex=0 then
   begin
      ShowModalForm(TFormSDOCRD,DBGrid1.SelectedField.Value);
   end;
end;

procedure TFormSDQCRD.Button3Click(Sender: TObject);
begin
   DataSource1.DataSet.DisableControls;
   ShowModalForm(TFormSDOCRD,'0');

end;

procedure TFormSDQCRD.FormActivate(Sender: TObject);
begin
   try
     DataModHJ.ADOQuP0.Close;
     DataModHJ.ADOQuP0.SQL.Clear;
     DataModHJ.ADOQuP0.SQL.Add('select * from SDOCRD where CardType=:P0');
     DataModHJ.ADOQuP0.Parameters[0].Value:='客户';
     DataModHJ.ADOQuP0.Prepared;
     DataModHJ.ADOQuP0.Open;
   except
     exit;
   end;
   DataSource1.DataSet.EnableControls;
end;

procedure TFormSDQCRD.DBGrid1Enter(Sender: TObject);
begin
   FormActivate(Sender);
end;

end.