📄 u_sys_ini.~pas
字号:
unit U_Sys_Ini;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls,u_public;
type
TFrm_Sys_Ini = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
RadioGroup3: TRadioGroup;
Rdo_200m: TRadioButton;
Rdo_300m: TRadioButton;
GroupBox1: TGroupBox;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
E1: TEdit;
E2: TEdit;
E3: TEdit;
E4: TEdit;
E5: TEdit;
E6: TEdit;
E7: TEdit;
E11: TEdit;
E12: TEdit;
E13: TEdit;
E14: TEdit;
E15: TEdit;
E16: TEdit;
E17: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Ed1: TEdit;
Ed2: TEdit;
Ed3: TEdit;
Ed4: TEdit;
Ed5: TEdit;
Ed6: TEdit;
GroupBox2: TGroupBox;
Rdo_com1: TRadioButton;
Rdo_Com2: TRadioButton;
Rdo_com3: TRadioButton;
Rdo_com4: TRadioButton;
GroupBox3: TGroupBox;
Rdo_5t: TRadioButton;
Rdo_6t: TRadioButton;
Rdo_10t: TRadioButton;
Rdo_12t: TRadioButton;
Rdo_30t: TRadioButton;
Rdo_300t: TRadioButton;
Rdo_200t: TRadioButton;
Rdo_100t: TRadioButton;
Rdo_60t: TRadioButton;
Rdo_50t: TRadioButton;
Label4: TLabel;
Label34: TLabel;
Lblbj: TLabel;
Lblqx: TLabel;
Colordig: TColorDialog;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Data_ok;
procedure FormShow(Sender: TObject);
procedure Rdo_com1Click(Sender: TObject);
procedure Rdo_Com2Click(Sender: TObject);
procedure Rdo_com3Click(Sender: TObject);
procedure Rdo_com4Click(Sender: TObject);
procedure Rdo_5tClick(Sender: TObject);
procedure Rdo_6tClick(Sender: TObject);
procedure Rdo_10tClick(Sender: TObject);
procedure Rdo_12tClick(Sender: TObject);
procedure Rdo_30tClick(Sender: TObject);
procedure Rdo_50tClick(Sender: TObject);
procedure Rdo_60tClick(Sender: TObject);
procedure Rdo_100tClick(Sender: TObject);
procedure Rdo_200tClick(Sender: TObject);
procedure Rdo_300tClick(Sender: TObject);
procedure Rdo_200mClick(Sender: TObject);
procedure Rdo_300mClick(Sender: TObject);
procedure listDisplay();
procedure LblbjClick(Sender: TObject);
procedure LblqxClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_Sys_Ini: TFrm_Sys_Ini;
M_Dwmc:string;//单位名称
M_Dwdz:string; // 单位地址
M_Yzbm:string; // 邮政编码
M_DwDh:string; // 单位电话
M_Dwcz:string; // 单位传真
M_Bglk:String; // 报告落款
M_COmId:String; // COM口
M_DunWei:integer;//吨位值
M_WeiYi:integer;// 位移值
M_FhMax:real; // 负荷最大值
M_FhGrid:Integer;// 负荷网格数
M_YlMax:real; // 应力最大值
M_YLGrid:integer; // 应力网格数
M_WyMax:real; // 位移最大值
M_WyGrid:integer; // 位移网格数
M_SclMax:real; // 伸长率最大值
M_SclGrid:integer;// 伸长率网格数
M_BxMax:real; // 变形最大值
M_BxGrid:integer; // 变形网格数
M_YslMax:real; // 延伸率最大值
M_YslGrid:integer;// 延伸率网格数
M_SjMax:real; // 时间最大值
M_SJGrid:integer; // 时间网格数
M_BackColor:real; // 背景色
M_LineColor:real; // 曲线色
implementation
{$R *.dfm}
procedure TFrm_Sys_Ini.BitBtn2Click(Sender: TObject);
begin
self.Close;
end;
procedure TFrm_Sys_Ini.BitBtn1Click(Sender: TObject);
begin
M_Dwmc:=ed1.Text;//单位名称
M_Dwdz:=ed2.Text; // 单位地址
M_Yzbm:=ed3.Text; // 邮政编码
M_DwDh:=ed4.Text; // 单位电话
M_Dwcz:=ed5.Text; // 单位传真
M_Bglk:=ed6.Text ; // 报告落款
M_FhMax:=strtofloat(e1.Text); // 负荷最大值
M_FhGrid:=strtoint(e11.Text);// 负荷网格数
M_YlMax:=strtofloat(e2.Text); // 应力最大值
M_YLGrid:=strtoint(e12.Text); // 应力网格数
M_WyMax:=strtofloat(e3.Text); // 位移最大值
M_WyGrid:=strtoint(e13.Text); // 位移网格数
M_SclMax:=strtofloat(e4.Text); // 伸长率最大值
M_SclGrid:=strtoint(e14.Text);// 伸长率网格数
M_BxMax:=strtofloat(e5.Text); // 变形最大值
M_BxGrid:=strtoint(e15.Text); // 变形网格数
M_YslMax:=strtofloat(e6.Text); // 延伸率最大值
M_YslGrid:=strtoint(e16.Text);// 延伸率网格数
M_SjMax:=strtofloat(e7.Text); // 时间最大值
M_SJGrid:=strtoint(e11.Text); // 时间网格数
M_BackColor:=lblbj.Color; // 背景色
M_LineColor:=lblqx.Color; // 曲线色
data_ok;
ini_save(Extractfilepath(application.ExeName));
application.MessageBox('数据保存成功!','明日科技');
self.Close;
end;
procedure Tfrm_Sys_ini.Data_ok;
begin
with ini_data do
begin
Dwmc:=M_Dwmc; //单位名称
Dwdz:=M_Dwdz; // 单位地址
Yzbm:=M_Yzbm; // 邮政编码
DwDh:=M_DwDh; // 单位电话
Dwcz :=M_Dwcz; // 单位传真
Bglk :=M_Bglk; // 报告落款
COmId :=M_COmId; // COM口
DunWei:=M_DunWei; //吨位值
WeiYi:=M_WeiYi; // 位移值
FhMax:=M_FhMax; // 负荷最大值
FhGrid:=M_FhGrid; // 负荷网格数
YlMax :=M_YlMax; // 应力最大值
YLGrid:=M_YLGrid; // 应力网格数
WyMax:=M_WyMax; // 位移最大值
WyGrid :=M_WyGrid; // 位移网格数
SclMax:=M_SclMax; // 伸长率最大值
SclGrid:=M_SclGrid; // 伸长率网格数
BxMax :=M_BxMax; // 变形最大值
BxGrid:=M_BxGrid; // 变形网格数
YslMax :=M_YslMax; // 延伸率最大值
YslGrid :=M_YslGrid; // 延伸率网格数
SjMax :=M_SjMax; // 时间最大值
SJGrid:=M_SJGrid; // 时间网格数
BackColor:=M_BackColor; // 背景色
LineColor:=M_LineColor; // 曲线色
end;
end;
procedure TFrm_Sys_Ini.FormShow(Sender: TObject);
begin
M_COmId:='1'; // COM口
M_DunWei:=30;//吨位值
M_WeiYi:=200;// 位移值
IniRead ;
if g_bool_ini=true then listdisplay;
end;
procedure Tfrm_sys_ini.listDisplay();
begin
with ini_data do
begin
ed1.Text:=Dwmc;//单位名称
ed2.Text:=Dwdz; // 单位地址
ed3.Text:=Yzbm; // 邮政编码
ed4.Text:=DwDh; // 单位电话
ed5.Text:=Dwcz; // 单位传真
ed6.Text:=Bglk ; // 报告落款
e1.Text:=floattostr(FhMax) ; // 负荷最大值
e11.Text:=inttostr(FhGrid) ;// 负荷网格数
e2.Text:=floattostr(YlMax) ; // 应力最大值
e12.Text:=inttostr(YLGrid); // 应力网格数
e3.Text:=floattostr(WyMax); // 位移最大值
e13.Text:=inttostr(WyGrid); // 位移网格数
e4.Text:=floattostr(SclMax); // 伸长率最大值
e14.Text:=inttostr(SclGrid);// 伸长率网格数
e5.Text:=floattostr(BxMax); // 变形最大值
e15.Text:=inttostr(BxGrid); // 变形网格数
e6.Text:=floattostr(YslMax); // 延伸率最大值
e16.Text:=inttostr(YslGrid);// 延伸率网格数
e7.Text:=floattostr(SjMax); // 时间最大值
e17.Text:=inttostr(SJGrid); // 时间网格数
lblbj.Color:=round(BackColor); // 背景色
lblqx.Color:=round(LineColor); // 曲线色
case strtoint(comid) of
1: rdo_com1.Checked:=true;
2: rdo_com2.Checked:=true;
3: rdo_com3.Checked:=true;
4: rdo_com4.Checked:=true;
end;
case dunwei of
5: rdo_5t.Checked:=true;
6: rdo_6t.Checked:=true;
10: rdo_10t.Checked:=true;
12: rdo_12t.Checked:=true;
30:rdo_30t.Checked:=true;
50:rdo_50t.Checked:=true;
60:rdo_60t.Checked:=true;
100: rdo_100t.Checked:=true;
200:rdo_200t.Checked:=true;
300: rdo_300t.Checked:=true;
end;
case weiyi of
200: rdo_200m.Checked:=true;
300: rdo_300m.Checked:=true;
end;
end;
end;
procedure TFrm_Sys_Ini.Rdo_com1Click(Sender: TObject);
begin
M_COmId:='1';
end;
procedure TFrm_Sys_Ini.Rdo_Com2Click(Sender: TObject);
begin
M_COmId:='2';
end;
procedure TFrm_Sys_Ini.Rdo_com3Click(Sender: TObject);
begin
M_COmId:='3';
end;
procedure TFrm_Sys_Ini.Rdo_com4Click(Sender: TObject);
begin
M_COmId:='4';
end;
procedure TFrm_Sys_Ini.Rdo_5tClick(Sender: TObject);
begin
M_DunWei:=5;
end;
procedure TFrm_Sys_Ini.Rdo_6tClick(Sender: TObject);
begin
M_DunWei:=6;
end;
procedure TFrm_Sys_Ini.Rdo_10tClick(Sender: TObject);
begin
M_DunWei:=10;
end;
procedure TFrm_Sys_Ini.Rdo_12tClick(Sender: TObject);
begin
M_DunWei:=12;
end;
procedure TFrm_Sys_Ini.Rdo_30tClick(Sender: TObject);
begin
M_DunWei:=30;
end;
procedure TFrm_Sys_Ini.Rdo_50tClick(Sender: TObject);
begin
M_DunWei:=50;
end;
procedure TFrm_Sys_Ini.Rdo_60tClick(Sender: TObject);
begin
M_DunWei:=60;
end;
procedure TFrm_Sys_Ini.Rdo_100tClick(Sender: TObject);
begin
M_DunWei:=100;
end;
procedure TFrm_Sys_Ini.Rdo_200tClick(Sender: TObject);
begin
M_DunWei:=200;
end;
procedure TFrm_Sys_Ini.Rdo_300tClick(Sender: TObject);
begin
M_DunWei:=300;
end;
procedure TFrm_Sys_Ini.Rdo_200mClick(Sender: TObject);
begin
M_WeiYi:=200;
end;
procedure TFrm_Sys_Ini.Rdo_300mClick(Sender: TObject);
begin
M_WeiYi:=300;
end;
procedure TFrm_Sys_Ini.LblbjClick(Sender: TObject);
begin
colordig.Execute;
lblbj.Color:=colordig.Color;
end;
procedure TFrm_Sys_Ini.LblqxClick(Sender: TObject);
begin
colordig.Execute;
lblqx.Color:=colordig.Color;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -