ypqd.pas

来自「DELPHI版的GSP源程序」· PAS 代码 · 共 84 行

unit ypqd;

interface

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

type
  TForm4 = class(TForm)
    DBGrid1: TDBGrid;
    Ds2: TDataSource;
    Database1: TDatabase;
    Table1: TTable;
    Table1ID: TAutoIncField;
    Table1Code: TIntegerField;
    Table1Name: TStringField;
    Table1DrugUnit: TStringField;
    Table1Category: TIntegerField;
    Table1BasicUnit: TStringField;
    Table1StoreUnit: TStringField;
    Table1StoreTrans: TIntegerField;
    Table1XH: TStringField;
    Table1Comment: TStringField;
    Table1PingYingCode: TStringField;
    Table1NumCode: TStringField;
    Table1WBCode: TStringField;
    Table1OtherCode: TStringField;
    Table1Stopped: TIntegerField;
    Table1SalePrice: TFloatField;
    Table1InPrice: TFloatField;
    Table1nProperty: TIntegerField;
    Query1: TQuery;
    Query1Name: TStringField;
    Query1DrugUnit: TStringField;
    Query1Category: TIntegerField;
    Query1BasicUnit: TStringField;
    Query1StoreUnit: TStringField;
    Query1PingYingCode: TStringField;
    Query1NumCode: TStringField;
    Query1WBCode: TStringField;
    Query1Stopped: TIntegerField;
    Query1SalePrice: TFloatField;
    Query1InPrice: TFloatField;
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation
 uses main,jhdj,ku_cun,jh_ch;
{$R *.dfm}

procedure TForm4.DBGrid1DblClick(Sender: TObject);
begin
 Form5.Edit1.Text:=query1['name'];
 Form6.Edit1.Text:=query1['name'];
 form16.Edit1.Text:=query1['name'];
 form18.Edit1.Text:=query1['name'];
 Form5.Edit3.Text:=Query1['saleprice'];
 Form6.Edit3.Text:=Query1['saleprice'];
 Form5.Edit5.Text:=Query1['inprice'];
 Form6.Edit4.Text:=Query1['inprice'];
 Form5.Edit7.Text:=Query1['drugunit'];
 Form6.Edit8.Text:=Query1['drugunit'];
 Form5.Label11.Caption:=Query1['basicunit'];
 Form6.label5.Caption:=Query1['basicunit'];

 Form4.Close;
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
table1.Close;
end;

end.