m Customers where Intension='''+kind+'''');
open;
end;
dm.AQDeptName.First;
while not dm.AQDeptName.Eof do
begin
secoder:=dm.AQDeptName.fieldbyname('DeptName').AsString;
node2 :=treeview1.Items.AddChild(node1,secoder);
node2.ImageIndex :=1;
node2.SelectedIndex :=1;
node2.StateIndex :=-1;
dm.AQDeptName.Next;
end;
dm.AQCustName.Next;
end;
end;
procedure TfrmCustomer.TreeView1Click(Sender: TObject);
begin
if treeview1.Selected.Level=0 then
begin
with dm.AQCustInfo do
begin
close;
sql.Clear;
sql.Add('select * from Customers where Intension='''+treeview1.Selected.Text+'''');
open;
dm.ATCustInfo.Clone(dm.AQCustInfo);
end;
end
else
begin
with dm.AQCustInfo do
begin
close;
sql.Clear;
sql.Text :='select * from Customers where DeptName='''+treeview1.Selected.Text+''' '+
' and Intension='''+TreeView1.Selected.Parent.Text+'''';
open;
dm.ATCustInfo.Clone(dm.AQCustInfo);
end;
end;
end;
procedure TfrmCustomer.ComboBox1Change(Sender: TObject);
var
Tempstr:string;
i:integer;
begin
TempStr:=Trim(ComboBox1.Text);
if TreeView1.Items.GetFirstNode.Text=TempStr then
begin
TreeView1.Items.GetFirstNode.Selected:=True;
end
else
begin
for i:=1 to TreeView1.Items.Count do
begin
if TreeView1.Items.Item[i].Text=TempStr then
begin
TreeView1.SetFocus;
TreeView1.Items.Item[i].Selected :=True;
Break;
end
else
Continue;
end;
end;
end;
procedure TfrmCustomer.N1Click(Sender: TObject);
begin
bbtnNew.Click;
end;
procedure TfrmCustomer.N2Click(Sender: TObject);
begin
bbtnModify.Click;
end;
procedure TfrmCustomer.N3Click(Sender: TObject);
begin
bbtnDel.Click;
end;
procedure TfrmCustomer.N9Click(Sender: TObject);
begin
frmFamily.bbtnAdd.Click;
frmFamily.Show;
end;
procedure TfrmCustomer.bbtnDelClick(Sender: TObject);
var
Cust
