procedure TfrmCustomer.bbtnNewClick(Sender: TObject);
begin
frmCustomerAdd.Show;
end;
procedure TfrmCustomer.bbtnModifyClick(Sender: TObject);
begin
if self.DBGrid1.DataSource.DataSet.IsEmpty then
begin
ShowMessage('没有要修改的记录，请选择记录后再试！');
Exit;
end
else
begin
frmCustomerUpdate.Show;
end;
end;
procedure TfrmCustomer.bbtnExitClick(Sender: TObject);
begin
close;
end;
procedure TfrmCustomer.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmCustomer.ComboBox1DropDown(Sender: TObject);
begin
ComboBox1.Items.Clear;
with dm.AQCustName do
begin
close;
sql.Clear;
sql.Add('select distinct DeptName from Customers');
open;
first;
while not Eof do
begin
ComboBox1.Items.Add(FieldValues['DeptName']);
next;
end;
end;
end;
procedure TfrmCustomer.FormShow(Sender: TObject);
var
node1,node2 :TTreeNode;
secoder :string;
first:string;
kind:string ;
begin
ComboBox1.Text :='';
TreeView1.Items.Clear;
with dm.AQCustName do
begin
close;
sql.Clear;
sql.Add('select distinct Intension from Customers');
open;
end;
dm.AQCustName.First;
while not dm.AQCustName.Eof do
begin
first:= dm.AQCustName.fieldbyname('Intension').AsString;
node1:=treeview1.Items.AddChild(nil,first);
node1.ImageIndex :=0;
node1.SelectedIndex :=0;
node1.StateIndex :=-1;
kind:=first;
with dm.AQDeptName do
begin
close;
sql.Clear;
sql.Add('select distinct DeptName fro
