评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi＋sql办公自动化系统（＋开题报告源程序＋(6)

2013-06-09 01:07 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); （科教作文网http://zw.ΝsΕAc.com发布）
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