xian_qu_jai.~pas

来自「采购管理系统：delphi+sql实现了企业采购自动化作业流程」· ~PAS 代码 · 共 52 行

unit xian_qu_jai;

interface

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

type
  Txian_qu_ja = class(TForm)
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    StoredProc1: TStoredProc;
    SpeedButton2: TSpeedButton;
    Table2: TTable;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
   yy_jia:string; { Public declarations }
  end;

var
  xian_qu_ja: Txian_qu_ja;

implementation
uses cai_gou_main;
{$R *.dfm}

procedure Txian_qu_ja.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;

end;

procedure Txian_qu_ja.DBGrid1DblClick(Sender: TObject);
begin
//table2.Active:= False;
//table2.DatabaseName:= 'vvv';
//table2.TableName :='gong_jia';
//table2.TableType :=ttDefault;
//table2.EmptyTable;
//table2.Active:=true;
//if table2.IsEmpty then
//begin
//table2.Append;
//table2.Edit;
//table2.FieldByName('gong_no').AsString:=storedproc1.FieldByName('ㄑ莱坝絪腹').AsString;
//table2.FieldByName('gong_name').AsString:=storedproc1.FieldByName('ㄑ莱坝