📄 unit_tj.pas
字号:
begin
T:= True;
for i:=0 to ComboBox_type1_tj.Items.Count -1 do
if S = ComboBox_type1_tj.Items[i] then
begin
T := False;
Break;
end;
if T then
begin
mynode :=TreeView1.Items.Add(nil,S);
mynode.ImageIndex := 0;
ComboBox_type1_tj.Items.Add(S);
ComboBox_type1_tj.ItemIndex :=ComboBox_type1_tj.Items.Count -1;
ComboBox_type1_tjClick(Sender);
TreeViewBool := True;
end;
end;
end;
procedure TForm_TJ.SpeedButton_type2_tjClick(Sender: TObject);
var
S: String;
i: Integer;
T: Boolean;
mynode : TTreeNode;
begin
if ComboBox_type1_tj.Text <> '' then
S:= InputBox('添加','请输入分类的名称： ','');
if S<>'' then
begin
T:= True;
for i:=0 to ComboBox_type2_tj.Items.Count -1 do
if S = ComboBox_type2_tj.Items[i] then
begin
T := False;
Break;
end;
if T then
begin
for i:=0 to TreeView1.Items.Count -1 do
begin
mynode := TreeView1.Items[i];
if (mynode.Text = ComboBox_type1_tj.Text) and (mynode.Level = 0) then
begin
mynode :=TreeView1.Items.AddChild(mynode,S);
mynode.ImageIndex :=1;
ComboBox_type2_tj.Items.Add(S);
ComboBox_type2_tj.ItemIndex :=ComboBox_type2_tj.Items.Count -1;
ComboBox_type2_tjClick(Sender);
TreeViewBool := True;
Break;
end;
end;
end;
end;
end;
procedure TForm_TJ.SpeedButton_type3_tjClick(Sender: TObject);
var
S: String;
i: Integer;
T: Boolean;
mynode : TTreeNode;
begin
if (ComboBox_type1_tj.Text <> '') and (ComboBox_type2_tj.Text <> '') then
S:= InputBox('添加','请输入项目的名称： ','');
if S<>'' then
begin
T:= True;
for i:=0 to ComboBox_type3_tj.Items.Count -1 do
if S = ComboBox_type3_tj.Items[i] then
begin
T := False;
Break;
end;
if T then
begin
for i:=0 to TreeView1.Items.Count -1 do
begin
mynode := TreeView1.Items[i];
if (mynode.Text = ComboBox_type2_tj.Text) and (mynode.Level = 1)
and (mynode.Parent.Text = ComboBox_type1_tj.Text) then
begin
mynode :=TreeView1.Items.AddChild(mynode,S);
mynode.ImageIndex :=2;
ComboBox_type3_tj.Items.Add(S);
ComboBox_type3_tj.ItemIndex :=ComboBox_type3_tj.Items.Count -1;
TreeViewBool := True;
Break;
end;
end;
end;
end;
end;
procedure TForm_TJ.SpeedButton_spot_tjClick(Sender: TObject);
var
S: String;
i: Integer;
T: Boolean;
begin
S:= InputBox('添加','请输入地址： ','');
if S <> '' then
begin
T:= True;
for i:=0 to ComboBox_spot_tj.Items.Count -1 do
if S = ComboBox_spot_tj.Items[i] then
begin
T := False;
Break;
end;
if T then
begin
ComboBox_spot_tj.Items.Add(S);
ComboBox_spot_tj.ItemIndex :=ComboBox_spot_tj.Items.Count -1;
TreeViewBool := True;
end;
end;
end;
procedure TForm_TJ.SpeedButton_money_tjClick(Sender: TObject);
begin
Panel_money_tj.Visible:= not Panel_money_tj.Visible;
if Panel_money_tj.Visible then
begin
Panel_money_tj.Width :=145;
Panel_money_tj.Height :=131;
Panel_money_tj.Top :=SpeedButton_money_tj.Top -132;
Panel_money_tj.Left :=SpeedButton_money_tj.Left -67;
SpeedButton_cClick(Sender);
Edit_See.SetFocus;
end;
end;
procedure TForm_TJ.TreeView1Click(Sender: TObject);
var //用树状显示直接选取类型
s1,s2,s3 :String;
begin
case TreeView1.Selected.Level of
0: begin
s1 := TreeView1.Selected.Text;
Update123(s1,'','');
end;
1: begin
s1 := TreeView1.Selected.Parent.Text;
s2 := TreeView1.Selected.Text;
Update123(s1,s2,'');
end;
2: begin
s1 := TreeView1.Selected.Parent.Parent.Text;
s2 := TreeView1.Selected.Parent.Text;
s3 := TreeView1.Selected.Text;
Update123(s1,s2,s3);
end;
end;
end;
///////////////////////////////////////////////////////////////////
//计算器
procedure TForm_TJ.KaiGuan(n: Integer;i: Integer);
begin
if SpeedButton_c.Groupindex = n then
begin
SpeedButton_c.GroupIndex :=i;
SpeedButton_Deng.GroupIndex :=i;
SpeedButton_San.GroupIndex :=i;
SpeedButton_11.GroupIndex :=i;
SpeedButton_12.GroupIndex :=i;
SpeedButton_13.GroupIndex :=i;
SpeedButton_14.GroupIndex :=i;
SpeedButton_0.GroupIndex :=i;
SpeedButton_1.GroupIndex :=i;
SpeedButton_2.GroupIndex :=i;
SpeedButton_3.GroupIndex :=i;
SpeedButton_4.GroupIndex :=i;
SpeedButton_5.GroupIndex :=i;
SpeedButton_6.GroupIndex :=i;
SpeedButton_7.GroupIndex :=i;
SpeedButton_8.GroupIndex :=i;
SpeedButton_9.GroupIndex :=i;
SpeedButton_10.GroupIndex :=i;
end;
end;
procedure TForm_TJ.QingChuQianLing;
var
S : String;
i : Integer;
begin
S := Edit_See.Text;
Edit_See.Text :='0';
if (s<>'0') and (s<>'') then
for i:=1 to Length(s) do
begin
if copy(s,i,1)='.' then
begin
Edit_See.Text := '0' + Copy(S,i,Length(S)-i+1);
exit;
end;
if copy(s,i,1)<>'0' then
begin
Edit_See.Text := Copy(S,i,Length(S)-i+1);
exit;
end;
end;
end;
procedure TForm_TJ.SpeedButton_1Click(Sender: TObject);
begin
KaiGuan(1,0);
case doing of
1,3: begin
Edit_See.Text :=Edit_See.Text + '1';
QingChuQianLing;
end;
2: begin
Edit_See.Text :='1';
doing :=3;
end;
4: begin
Edit_See.Text :='1';
doing :=1;
end;
end;
end;
procedure TForm_TJ.SpeedButton_2Click(Sender: TObject);
begin
KaiGuan(1,0);
case doing of
1,3: begin
Edit_See.Text :=Edit_See.Text + '2';
QingChuQianLing;
end;
2: begin
Edit_See.Text :='2';
doing :=3;
end;
4: begin
Edit_See.Text :='2';
doing :=1;
end;
end;
end;
procedure TForm_TJ.SpeedButton_3Click(Sender: TObject);
begin
KaiGuan(1,0);
case doing of
1,3: begin
Edit_See.Text :=Edit_See.Text + '3';
QingChuQianLing;
end;
2: begin
Edit_See.Text :='3';
doing :=3;
end;
4: begin
Edit_See.Text :='3';
doing :=1;
end;
end;
end;
procedure TForm_TJ.SpeedButton_4Click(Sender: TObject);
begin
KaiGuan(1,0);
case doing of
1,3: begin
Edit_See.Text :=Edit_See.Text + '4';
QingChuQianLing;
end;
2: begin
Edit_See.Text :='4';
doing :=3;
end;
4: begin
Edit_See.Text :='4';
doing :=1;
end;
end;
end;
procedure TForm_TJ.SpeedButton_5Click(Sender: TObject);
begin
KaiGuan(1,0);
case doing of
1,3: begin
Edit_See.Text :=Edit_See.Text + '5';
QingChuQianLing;
end;
2: begin
Edit_See.Text :='5';
doing :=3;
end;
4: begin
Edit_See.Text :='5';
doing :=1;
end;
end;
end;
procedure TForm_TJ.SpeedButton_6Click(Sender: TObject);
begin
KaiGuan(1,0);
case doing of
1,3: begin
Edit_See.Text :=Edit_See.Text + '6';
QingChuQianLing;
end;
2: begin
Edit_See.Text :='6';
doing :=3;
end;
4: begin
Edit_See.Text :='6';
doing :=1;
end;
end;
end;
procedure TForm_TJ.SpeedButton_7Click(Sender: TObject);
begin
KaiGuan(1,0);
case doing of
1,3: begin
Edit_See.Text :=Edit_See.Text + '7';
QingChuQianLing;
end;
2: begin
Edit_See.Text :='7';
doing :=3;
end;
4: begin
Edit_See.Text :='7';
doing :=1;
end;
end;
end;
procedure TForm_TJ.SpeedButton_8Click(Sender: TObject);
begin
KaiGuan(1,0);
case doing of
1,3: begin
Edit_See.Text :=Edit_See.Text + '8';
QingChuQianLing;
end;
2: begin
Edit_See.Text :='8';
doing :=3;
end;
4: begin
Edit_See.Text :='8';
doing :=1;
end;
end;
end;
procedure TForm_TJ.SpeedButton_9Click(Sender: TObject);
begin
KaiGuan(1,0);
case doing of
1,3: begin
Edit_See.Text :=Edit_See.Text + '9';
QingChuQianLing;
end;
2: begin
Edit_See.Text :='9';
doing :=3;
end;
4: begin
Edit_See.Text :='9';
doing :=1;
end;
end;
end;
procedure TForm_TJ.SpeedButton_0Click(Sender: TObject);
begin
KaiGuan(1,0);
case doing of
1,3: begin
Edit_See.Text :=Edit_See.Text + '0';
QingChuQianLing;
end;
2: begin
Edit_See.Text :='0';
doing :=3;
end;
4: begin
Edit_See.Text :='0';
doing :=1;
end;
end;
end;
procedure TForm_TJ.SpeedButton_10Click(Sender: TObject);
var
i: integer;
T: Bool;
begin
KaiGuan(1,0);
case doing of
1,3: begin
T:= False;
for i:=1 to length(Edit_See.Text) do
if copy(Edit_See.Text,i,1)='.' then T:= True;
if (Not T) and (Edit_See.Text<>'') then
Edit_See.Text :=Edit_See.Text + '.';
QingChuQianLing;
end;
2: begin
Edit_See.Text :='0.';
doing :=3;
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -