unit_get_cgsp.pas

为某绣花厂做的管理系统源码

unit Unit_get_cgsp;

interface

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

type
  TForm_get_cgsp = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
     sqlstr : string;
  public
    { Public declarations }
    xsid,spid ,gysid: Integer; //销售子表ID-t0400，商品ID-t0700 ,客户ID
  end;

var
  Form_get_cgsp: TForm_get_cgsp;

implementation

uses Unit_main;

{$R *.dfm}

procedure TForm_get_cgsp.FormShow(Sender: TObject);
begin
   sqlstr := ADOQuery1.sql.text;
   ADOQuery1.Close;
   ADOQuery1.SQL.Text :='select distinct(t0700),t0701,t0702,t0703,t0704,t0705,t0707'+
                        ' from t07,t04,t03 where t0700=t0402 and t0304='+inttostr(gysid);
   ADOQuery1.Open;
   spid := 0;
end;

procedure TForm_get_cgsp.DBGrid1DblClick(Sender: TObject);
begin
   if ADOQuery1.RecordCount = 0 then exit;
   spid := ADOQuery1.fieldbyname('t0700').AsInteger;
  // xsid := ADOQuery1.fieldbyname('t0400').AsInteger;
   self.Close;
end;

end.