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

delphi+access通用财务管理系统(一)毕业论文(7)

2013-06-02 01:01 orm1.N14Click(Sender: TObject);
begin
   application.Terminate ;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
   with taboutbox.Create(self) do
   ShowModal ;
end;

procedure TForm1.BitBtn5MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   dbedit1.Text:=inttostr(dm2.adoquery1.RecordCount+1);
   dbedit2.SetFocus;
end;

procedure TForm1.filldata(sender:tcombobox);
var
  iCount: Integer;       //将从数据模块中取得的数据库表的字段名填入ComboBox中
begin
  sender.Items.Clear;    //首先清空ComboBox中Items的值
  for iCount := 0 to DM2.ADOQuery1.Fields.Count - 2 do
  begin
    sender.Items.Add(DM2.ADOQuery1.Fields[iCount].FieldName);   //加入字段名
    DM2.ADOQuery1.Next;                   //向下移动到下一个字段
  end;
  sender.ItemIndex := 0;            //设置表单刚出现时ComboBox的值为第一个
end;

procedure TForm1.search(f1:tcombobox;t1:tedit);       //自定义过程search(在数据库中搜寻指定条件的数据)
var
  SearchField: string;       //要查找的字段名
  SearchValue: string;       //要查找的字段值
begin
  SearchField := Trim(f1.Text);           //将ComboBox的值赋给SearchField
  SearchValue := '%' + Trim(t1.Text) + '%';   //将Edit的值赋给SearchField
    with DM2.ADOQuery1 do

    begin
      close;       //先关闭数据模块中的ADOQuery
      sql.Clear;   //清空ADOQuery中的SQL值
      sql.Add('select * from xmb where ' + SearchField + ' like ''' +
        SearchValue + '''');  //进行数据查询的SQL语句（SearchFidel和SearchValue
                              // 分别赋到SQL语句中
    end;

      Dm2.ADOQuery1.Open;     //打开数据模块中的ADOQuery
end;

procedure TForm1.FormActivate(Sender: TObject);
begin

   filldata(combobox1);
   filldata(combobox3);
   tabsheet1.Show;
end;

procedure TForm1.BitBtn14Click(Sender: TObject);
begin
    search(combobox1,edit1);

end;

procedure TForm1.BitBtn15Click(Sender: TObject);
begin
  dispall;
end;

procedure TForm1.dispall;
begin
  with dm2.ADOQuery1 do
    begin
      close;
      sql.clear;
      sql.Add('select * from xmb');
      open;
    end;
end;

procedure TForm1.BitBtn13Click(Sender: TObject);
begin
   if MessageDlg('你确信要删