📄 u_bcset.pas
字号:
unit U_bcset;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, RzEdit, RzLabel, ExtCtrls, RzPanel, RzLine,
RzRadGrp, RzBckgnd, RzBmpBtn,IniFiles,StrUtils;
type
TF_bcset = class(TForm)
RzGroupBox1: TRzGroupBox;
RzLabel1: TRzLabel;
RzMaskEdit1: TRzMaskEdit;
RzMaskEdit2: TRzMaskEdit;
RzMaskEdit3: TRzMaskEdit;
RzMaskEdit4: TRzMaskEdit;
RzMaskEdit5: TRzMaskEdit;
RzMaskEdit6: TRzMaskEdit;
RzMaskEdit7: TRzMaskEdit;
RzCheckGroup1: TRzCheckGroup;
RzCheckGroup2: TRzCheckGroup;
RzCheckGroup3: TRzCheckGroup;
RzGroupBox2: TRzGroupBox;
RzLabel5: TRzLabel;
RzLabel6: TRzLabel;
RzLabel2: TRzLabel;
RzLabel3: TRzLabel;
RzLabel4: TRzLabel;
RzLabel7: TRzLabel;
RzMaskEdit8: TRzMaskEdit;
RzMaskEdit9: TRzMaskEdit;
RzMaskEdit10: TRzMaskEdit;
RzMaskEdit11: TRzMaskEdit;
RzMaskEdit12: TRzMaskEdit;
RzGroupBox4: TRzGroupBox;
RzLabel8: TRzLabel;
RzLabel9: TRzLabel;
RzLabel10: TRzLabel;
RzLabel11: TRzLabel;
RzLabel12: TRzLabel;
RzMaskEdit13: TRzMaskEdit;
RzMaskEdit14: TRzMaskEdit;
RzMaskEdit15: TRzMaskEdit;
RzMaskEdit16: TRzMaskEdit;
RzMaskEdit17: TRzMaskEdit;
RzLabel13: TRzLabel;
RzMaskEdit18: TRzMaskEdit;
RzLabel14: TRzLabel;
RzLabel15: TRzLabel;
RzLabel16: TRzLabel;
RzLabel17: TRzLabel;
RzMaskEdit19: TRzMaskEdit;
RzMaskEdit20: TRzMaskEdit;
RzMaskEdit21: TRzMaskEdit;
RzMaskEdit22: TRzMaskEdit;
RzLabel18: TRzLabel;
RzLabel19: TRzLabel;
RzMaskEdit23: TRzMaskEdit;
RzMaskEdit24: TRzMaskEdit;
RzLabel20: TRzLabel;
RzLabel21: TRzLabel;
RzMaskEdit26: TRzMaskEdit;
RzMaskEdit25: TRzMaskEdit;
RzMaskEdit27: TRzMaskEdit;
RzMaskEdit28: TRzMaskEdit;
RzMaskEdit29: TRzMaskEdit;
RzLabel22: TRzLabel;
RzMaskEdit30: TRzMaskEdit;
RzSeparator1: TRzSeparator;
RzSeparator2: TRzSeparator;
RzGroupBox3: TRzGroupBox;
RzLabel23: TRzLabel;
RzLabel24: TRzLabel;
RzLabel25: TRzLabel;
RzLabel26: TRzLabel;
RzLabel27: TRzLabel;
RzMaskEdit31: TRzMaskEdit;
RzMaskEdit32: TRzMaskEdit;
RzMaskEdit33: TRzMaskEdit;
RzMaskEdit34: TRzMaskEdit;
RzMaskEdit35: TRzMaskEdit;
RzBmpButton1: TRzBmpButton;
RzSeparator3: TRzSeparator;
RzLabel28: TRzLabel;
RzLabel29: TRzLabel;
RzLabel30: TRzLabel;
RzBmpButton2: TRzBmpButton;
RzBmpButton6: TRzBmpButton;
RzBmpButton3: TRzBmpButton;
RzLine1: TRzLine;
RzLine2: TRzLine;
RzLine3: TRzLine;
RzLine4: TRzLine;
RzLine5: TRzLine;
RzLine6: TRzLine;
Label1: TLabel;
Label2: TLabel;
procedure FormShow(Sender: TObject);
procedure RzMaskEdit1KeyPress(Sender: TObject; var Key: Char);
procedure RzMaskEdit2Exit(Sender: TObject);
procedure RzMaskEdit3Exit(Sender: TObject);
procedure RzMaskEdit4Exit(Sender: TObject);
procedure RzMaskEdit5Exit(Sender: TObject);
procedure RzMaskEdit6Exit(Sender: TObject);
procedure RzMaskEdit7Exit(Sender: TObject);
procedure RzMaskEdit15Exit(Sender: TObject);
procedure RzMaskEdit16Exit(Sender: TObject);
procedure RzMaskEdit13Exit(Sender: TObject);
procedure RzMaskEdit14Exit(Sender: TObject);
procedure RzMaskEdit19Exit(Sender: TObject);
procedure RzMaskEdit30Exit(Sender: TObject);
procedure RzMaskEdit25Exit(Sender: TObject);
procedure RzMaskEdit27Exit(Sender: TObject);
procedure RzMaskEdit28Exit(Sender: TObject);
procedure RzMaskEdit29Exit(Sender: TObject);
procedure RzBmpButton6Click(Sender: TObject);
procedure RzBmpButton1Click(Sender: TObject);
procedure RzBmpButton2Click(Sender: TObject);
procedure RzBmpButton3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure RzMaskEdit21KeyPress(Sender: TObject; var Key: Char);
procedure RzMaskEdit22KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_bcset: TF_bcset;
implementation
uses U_data, U_function, U_645_Command, U_year;
{$R *.dfm}
procedure TF_bcset.FormShow(Sender: TObject);
var
filename,str :string;
i ,j:integer;
begin
top := 0;
Left := 0;
Width := 800;
Height := 570;
for i:=1 to 35 do
TRzmaskedit(FindComponent('Rzmaskedit'+inttostr(i))).Text := PadLStr(TRzmaskedit(FindComponent('Rzmaskedit'+inttostr(i))).Text,TRzmaskedit(FindComponent('Rzmaskedit'+inttostr(i))).MaxLength,'0');
//读取ini文件数据
filename:=extractfilepath(paramstr(0))+F_645.EDIT1.TEXT+'_programme.ini';
//////得到完整的INI文件路径名///
if fileexists(Filename) then
begin
f_645.f_ini:=tinifile.Create(filename);
//时钟
str := trim(f_645.f_ini.ReadString('设置参数', 'C010', '00000000'));
Rzmaskedit1.Text :=copy(str,1,2);
Rzmaskedit2.Text :=copy(str,3,2);
Rzmaskedit3.Text :=copy(str,5,2);
Rzmaskedit4.Text :=copy(str,7,2);
str := trim(f_645.f_ini.ReadString('设置参数', 'C011', '000000'));
Rzmaskedit5.Text :=copy(str,1,2);
Rzmaskedit6.Text :=copy(str,3,2);
Rzmaskedit7.Text :=copy(str,5,2);
//状态字
for i := 1 to 3 do
begin
str := trim(f_645.f_ini.ReadString('设置参数', 'C02'+inttostr(i-1), '00000000'));
str := ReverseString(str);
for j := 1 to 8 do
if str[j] = '1' then
TRzcheckgroup(FindComponent('Rzcheckgroup'+inttostr(i))).ItemChecked[j-1]:= true
else
TRzcheckgroup(FindComponent('Rzcheckgroup'+inttostr(i))).ItemChecked[j-1]:= false;
end;
//常数
Rzmaskedit8.Text := trim(f_645.f_ini.ReadString('设置参数', 'C030', '000000'));
Rzmaskedit9.Text := trim(f_645.f_ini.ReadString('设置参数', 'C031', '000000'));
Rzmaskedit10.Text := trim(f_645.f_ini.ReadString('设置参数', 'C032', '000000000000'));
Rzmaskedit11.Text := trim(f_645.f_ini.ReadString('设置参数', 'C033', '000000000000'));
Rzmaskedit12.Text := trim(f_645.f_ini.ReadString('设置参数', 'C034', '000000000000'));
// 变量
Rzmaskedit13.Text := trim(f_645.f_ini.ReadString('设置参数', 'C111', '00'));
Rzmaskedit14.Text := trim(f_645.f_ini.ReadString('设置参数', 'C112', '00'));
Rzmaskedit15.Text := trim(f_645.f_ini.ReadString('设置参数', 'C113', '00'));
Rzmaskedit16.Text := trim(f_645.f_ini.ReadString('设置参数', 'C114', '00'));
Rzmaskedit17.Text := trim(f_645.f_ini.ReadString('设置参数', 'C115', '00'));
Rzmaskedit18.Text := trim(f_645.f_ini.ReadString('设置参数', 'C116', '00'));
str := trim(f_645.f_ini.ReadString('设置参数', 'C117', '0000'));
Rzmaskedit19.Text :=copy(str,1,2);
Rzmaskedit30.Text :=copy(str,3,2);
Rzmaskedit20.Text := trim(f_645.f_ini.ReadString('设置参数', 'C118', '00'));
Rzmaskedit21.Text := trim(f_645.f_ini.ReadString('设置参数', 'C119', '00'));
Rzmaskedit22.Text := trim(f_645.f_ini.ReadString('设置参数', 'C12A', '00'));
Rzmaskedit23.Text := trim(f_645.f_ini.ReadString('设置参数', 'C211', '00'));
Rzmaskedit24.Text := trim(f_645.f_ini.ReadString('设置参数', 'C212', '00'));
str := trim(f_645.f_ini.ReadString('设置参数', 'C510', '00000000'));
Rzmaskedit25.Text :=copy(str,1,2);
Rzmaskedit27.Text :=copy(str,3,2);
Rzmaskedit28.Text :=copy(str,5,2);
Rzmaskedit29.Text :=copy(str,7,2);
Rzmaskedit26.Text := trim(f_645.f_ini.ReadString('设置参数', 'C511', '00'));
//时段/时区
Rzmaskedit31.Text := trim(f_645.f_ini.ReadString('设置参数', 'C310', '00'));
Rzmaskedit32.Text := trim(f_645.f_ini.ReadString('设置参数', 'C311', '00'));
Rzmaskedit33.Text := trim(f_645.f_ini.ReadString('设置参数', 'C312', '00'));
Rzmaskedit34.Text := trim(f_645.f_ini.ReadString('设置参数', 'C313', '00'));
Rzmaskedit35.Text := trim(f_645.f_ini.ReadString('设置参数', 'C314', '00'));
end
else
begin
Rzbmpbutton1.Enabled := false;
Rzbmpbutton2.Enabled := false;
Rzbmpbutton3.Enabled := false;
end;
end;
procedure TF_bcset.RzMaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9':;
chr(8):;
else
key:=chr(0);
end;
end;
procedure TF_bcset.RzMaskEdit2Exit(Sender: TObject);
var
sf:integer;
begin
IF trim(RzMaskEdit2.Text) <> '' then
datetime(strtoint(trim(RzMaskEdit2.Text)),1,sf);
end;
procedure TF_bcset.RzMaskEdit3Exit(Sender: TObject);
var
sf:integer;
begin
IF trim(RzMaskEdit3.Text) <> '' then
datetime(strtoint(trim(RzMaskEdit3.Text)),2,sf);
end;
procedure TF_bcset.RzMaskEdit4Exit(Sender: TObject);
var
sf:integer;
begin
IF trim(RzMaskEdit4.Text) <> '' then
datetime(strtoint(trim(RzMaskEdit4.Text)),6,sf);
end;
procedure TF_bcset.RzMaskEdit5Exit(Sender: TObject);
var
sf:integer;
begin
IF trim(RzMaskEdit5.Text) <> '' then
datetime(strtoint(trim(RzMaskEdit5.Text)),3,sf);
end;
procedure TF_bcset.RzMaskEdit6Exit(Sender: TObject);
var
sf:integer;
begin
IF trim(RzMaskEdit6.Text) <> '' then
datetime(strtoint(trim(RzMaskEdit6.Text)),4,sf);
end;
procedure TF_bcset.RzMaskEdit7Exit(Sender: TObject);
var
sf:integer;
begin
IF trim(RzMaskEdit7.Text) <> '' then
datetime(strtoint(trim(RzMaskEdit7.Text)),5,sf);
end;
procedure TF_bcset.RzMaskEdit15Exit(Sender: TObject);
var
sf:integer;
begin
IF trim(RzMaskEdit15.Text) <> '' then
datetime(strtoint(trim(RzMaskEdit15.Text)),5,sf);
end;
procedure TF_bcset.RzMaskEdit16Exit(Sender: TObject);
var
sf:integer;
begin
IF trim(RzMaskEdit16.Text) <> '' then
datetime(strtoint(trim(RzMaskEdit16.Text)),5,sf);
end;
procedure TF_bcset.RzMaskEdit13Exit(Sender: TObject);
var
sf:integer;
begin
IF trim(RzMaskEdit13.Text) <> '' then
datetime(strtoint(trim(RzMaskEdit13.Text)),4,sf);
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -