u_indata.pas

来自「这是一个60吨地磅称量系统」· PAS 代码 · 共 78 行

unit U_InData;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, jpeg, ExtCtrls;

type
  TF_InData = class(TForm)
    Image1: TImage;
    MainMenu1: TMainMenu;
    Indata: TMenuItem;
    SD: TMenuItem;
    RD: TMenuItem;
    NAME: TMenuItem;
    METERNO: TMenuItem;
    OPTER: TMenuItem;
    EXIT: TMenuItem;
    procedure EXITClick(Sender: TObject);
    procedure SDClick(Sender: TObject);
    procedure RDClick(Sender: TObject);
    procedure NAMEClick(Sender: TObject);
    procedure CARNOClick(Sender: TObject);
    procedure METERNOClick(Sender: TObject);
    procedure OPTERClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_InData: TF_InData;

implementation

{$R *.DFM}

uses u_sd,u_rd,u_name,u_carno,u_meterno,u_opter;

procedure TF_InData.EXITClick(Sender: TObject);
begin
close;
end;

procedure TF_InData.SDClick(Sender: TObject);
begin
  F_SD.Show;
end;

procedure TF_InData.RDClick(Sender: TObject);
begin
 F_RD.Show;
end;

procedure TF_InData.NAMEClick(Sender: TObject);
begin
F_Name.Show;
end;

procedure TF_InData.CARNOClick(Sender: TObject);
begin
F_CarNo.Show;
end;

procedure TF_InData.METERNOClick(Sender: TObject);
begin
F_MeterNo.Show;
end;

procedure TF_InData.OPTERClick(Sender: TObject);
begin
F_Opter.Show;
end;

end.