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

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

2013-06-09 01:07 ick(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure bbtnDelClick(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure B1Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure bbtnShowAllClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCustomer: TfrmCustomer;

implementation

uses MyData, Ufamily, Uconnact, UtodayWorkRecord, UcustomerAdd,
  UcustomerUpdate;

{$R *.dfm}

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;

（转载自http://www.ＮＳＥＡＣ.com中国科教评价网）

    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