u_syset.pas

钢筋拉伸系统,是一个图形和数据库结合在一起的技术体现

unit U_SySet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, Buttons,u_public;

type
  TFrm_Syset = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape14: TShape;
    Shape15: TShape;
    Shape16: TShape;
    Shape17: TShape;
    Shape18: TShape;
    Shape19: TShape;
    Shape20: TShape;
    Shape21: TShape;
    Shape22: TShape;
    Shape23: TShape;
    Shape24: TShape;
    Shape25: TShape;
    Shape26: TShape;
    Shape27: TShape;
    Shape28: TShape;
    BitBtn1: TBitBtn;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit12KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Syset: TFrm_Syset;

implementation

{$R *.dfm}

procedure TFrm_Syset.FormShow(Sender: TObject);
begin
  //self.Caption:=floattostr(g_Yl_data.FH);
end;

procedure TFrm_Syset.BitBtn1Click(Sender: TObject);
begin
  with g_sy_content do
     begin
       Sybh:=edit1.Text;     // 试样编号
       Zs:=edit2.Text;       // 组数
       Sjdw:=edit3.Text;     // 送检单位
       Clmc:=edit4.Text;     // 材料名称
       Clph:=edit5.Text;     // 材料牌号
       Lh:=edit6.Text;       // 炉号
       Ypms:=edit7.Text;     // 样品描述
       Wtdw:=edit8.Text;     //  委托单位
       Ysjbj:=edit9.Text;    //  引伸计标距
       Dbbj:=edit10.Text;     //  打标标距
       Pxcd:=edit11.Text;     //  平行长度
       bh:=edit12.Text;       //  壁厚
       Wj:=strtofloat(edit12.Text);//:real;         //外径
       Symj:=strtofloat(edit13.Text);//:real;       //  试样面积
     end;
    sy_save(Extractfilepath(application.ExeName));
    self.Close;
end;

procedure TFrm_Syset.Button1Click(Sender: TObject);
begin
   self.Close;
end;

procedure TFrm_Syset.Edit12KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   edit13.Text:= floattostr((strtofloat(edit12.Text)/2)*(strtofloat(edit12.Text)/2)*3.14);
end;

end.