unit2.~pas

来自「进销存管理系统jxc」· ~PAS 代码 · 共 62 行

unit Unit2;

interface

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

type
  TFsys = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBNavigator2: TDBNavigator;
    TabSheet3: TTabSheet;
    DBGrid3: TDBGrid;
    DBNavigator3: TDBNavigator;
    TabSheet4: TTabSheet;
    Panel1: TPanel;
    DBGrid4: TDBGrid;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    TabSheet5: TTabSheet;
    DBGrid5: TDBGrid;
    DBNavigator4: TDBNavigator;
    TabSheet6: TTabSheet;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fsys: TFsys;

implementation

uses unit1, Unit9;
{$R *.dfm}

procedure TFsys.BitBtn1Click(Sender: TObject);
begin
mainform.A_rs.Append;
F_rs.showmodal;
end;

procedure TFsys.BitBtn2Click(Sender: TObject);
begin
mainform.A_rs.edit;
F_rs.showmodal;
end;

end.