umain.pas

客户管理系统用delphi做

    Fieldbyname('文档类型').AsString:=bsSkinComboBox8.Text;
    Fieldbyname('路径').AsString:=bsSkinEdit11.Text;
    Fieldbyname('备注').AsString:=bsSkinEdit12.Text;
    post;
  end;
end;

procedure TForm1.bsSkinDBGrid3CellClick(Column: TbsColumn);
var
  i:integer;str:string;
begin
  with DM.ADOTable3 do
  begin
    Str:=Fieldbyname('文档类型').AsString;
    bsSkinEdit11.Text:=Fieldbyname('路径').AsString;
    bsSkinEdit12.Text:=Fieldbyname('备注').AsString;
  end;
  for i:=0 to 2 do
  begin
    if bsSkinComboBox8.Items.Strings[i]=str then
    begin
      bsSkinComboBox8.ItemIndex:=i;
    end;
  end;
end;

procedure TForm1.bsSkinDBGrid3DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TbsColumn;
  State: TGridDrawState);
var
  nWidth:integer;
begin
  with bsSkindbGrid3.Canvas do
    begin
      nWidth := TextWidth(Column.Field.AsString) + 2;
      if nWidth > Column.Width then Column.Width := nWidth;
    end;
  with tbsSkindbgrid(sender) do
  begin
   if ((state = [gdselected]) or (state=[gdselected,gdfocused]))  then
    begin
     canvas.font.color :=clwhite;
     canvas.brush.color :=$00c08080;
    end
    else
    begin
      if datasource.dataset.recno mod 2<>0 then
        canvas.brush.color :=clwhite
      else
        canvas.brush.color :=$00cffefd;
    end;
    bsSkindbGrid3.defaultdrawcolumncell(rect, datacol, column, state);
  end;
  bsSkindbGrid3.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  with (Sender as TbsSkinDBGrid).Canvas do //画 cell 的边框
  begin
    Pen.Color := $00ff0000; //定义画笔颜色(蓝色)
    MoveTo(Rect.Left, Rect.Bottom); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
    Pen.Color := $0000ff00; //定义画笔颜色(绿色)
    MoveTo(Rect.Right, Rect.Top); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
  end;

end;

procedure TForm1.bsSkinDBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TbsColumn;
  State: TGridDrawState);
var
  nWidth:integer;
begin
  with bsSkindbGrid2.Canvas do
    begin
      nWidth := TextWidth(Column.Field.AsString) + 2;
      if nWidth > Column.Width then Column.Width := nWidth;
    end;
  with tbsSkindbgrid(sender) do
  begin
   if ((state = [gdselected]) or (state=[gdselected,gdfocused]))  then
    begin
     canvas.font.color :=clwhite;
     canvas.brush.color :=$00c08080;
    end
    else
    begin
      if datasource.dataset.recno mod 2<>0 then
        canvas.brush.color :=clwhite
      else
        canvas.brush.color :=$00cffefd;
    end;
    bsSkindbGrid2.defaultdrawcolumncell(rect, datacol, column, state);
  end;
  bsSkindbGrid2.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  with (Sender as TbsSkinDBGrid).Canvas do //画 cell 的边框
  begin
    Pen.Color := $00ff0000; //定义画笔颜色(蓝色)
    MoveTo(Rect.Left, Rect.Bottom); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
    Pen.Color := $0000ff00; //定义画笔颜色(绿色)
    MoveTo(Rect.Right, Rect.Top); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
  end;
end;

procedure TForm1.bsSkinButton11Click(Sender: TObject);
begin
  with  DM.ADOTable4  do
  begin
    insert;
    Fieldbyname('时间').AsDateTime:=bsSkinDateEdit2.Date;
    Fieldbyname('客户公司').AsString:=bsSkinEdit13.Text;
    Fieldbyname('是否完成').AsString:=bsSkinComboBox9.Text;
    Fieldbyname('内容').AsString:=bsSkinMemo3.Text;
    post;
  end;
  bsSkinDateEdit2.Clear;
  bsSkinEdit13.Clear;
  bsSkinComboBox9.ItemIndex:=-1;
  bsSkinMemo3.Clear;
end;

procedure TForm1.bsSkinButton12Click(Sender: TObject);
begin
  with dm.ADOTable4 do
  begin
    Edit;
    Fieldbyname('时间').AsDateTime:=bsSkinDateEdit2.Date;
    Fieldbyname('客户公司').AsString:=bsSkinEdit13.Text;
    Fieldbyname('是否完成').AsString:=bsSkinComboBox9.Text;
    Fieldbyname('内容').AsString:=bsSkinMemo3.Text;
    post;
  end;
end;

procedure TForm1.bsSkinButton13Click(Sender: TObject);
begin
  with DM.ADOTable4 do
  begin
    if Recordcount=0 then
    begin
      MES.MessageDlg('没有要删除的数据!',mtinformation,[mbok],0);
      eXIT;
    end;
    if MEs.MessageDlg('确定删除数据吗？',mtinformation,[mbyes,mbno],0)=mryes then
    begin
      Delete;
      bsSkinDateEdit2.Clear;
      bsSkinEdit13.Clear;
      bsSkinComboBox9.ItemIndex:=-1;
      bsSkinMemo3.Clear;
    end;
  end;
end;

procedure TForm1.bsSkinDBGrid4CellClick(Column: TbsColumn);
var
  i:integer;
begin
  with dm.ADOTable4 do
  begin
    bsSkinDateEdit2.Date:=Fieldbyname('时间').AsDateTime;
    bsSkinEdit13.Text:=Fieldbyname('客户公司').AsString;
    for i:=0 to 1 do
    begin
      if bsSkinComboBox9.Items.Strings[i]=Fieldbyname('是否完成').AsString then
      begin
        bsSkinComboBox9.ItemIndex:=i;
      end;
    end;
    bsSkinMemo3.Text:=Fieldbyname('内容').AsString;
  end;
end;

procedure TForm1.bsSkinDBGrid4DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TbsColumn;
  State: TGridDrawState);
var
  nWidth:integer;
begin
  with bsSkindbGrid4.Canvas do
    begin
      nWidth := TextWidth(Column.Field.AsString) + 2;
      if nWidth > Column.Width then Column.Width := nWidth;
    end;
  with tbsSkindbgrid(sender) do
  begin
   if ((state = [gdselected]) or (state=[gdselected,gdfocused]))  then
    begin
     canvas.font.color :=clwhite;
     canvas.brush.color :=$00c08080;
    end
    else
    begin
      if datasource.dataset.recno mod 2<>0 then
        canvas.brush.color :=clwhite
      else
        canvas.brush.color :=$00cffefd;
    end;
    bsSkindbGrid4.defaultdrawcolumncell(rect, datacol, column, state);
  end;
  bsSkindbGrid4.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  with (Sender as TbsSkinDBGrid).Canvas do //画 cell 的边框
  begin
    Pen.Color := $00ff0000; //定义画笔颜色(蓝色)
    MoveTo(Rect.Left, Rect.Bottom); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
    Pen.Color := $0000ff00; //定义画笔颜色(绿色)
    MoveTo(Rect.Right, Rect.Top); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
  end;


end;

procedure TForm1.bsSkinButton14Click(Sender: TObject);
begin
  with dm.ADOTable5 do
  begin
    insert;
    Fieldbyname('产品型号').AsString:=bsSkinEdit14.Text;
    Fieldbyname('代理价').AsString:=bsSkinEdit15.Text;
    Fieldbyname('报价').AsString:=bsSkinEdit16.Text;
    Fieldbyname('最底价').AsString:=bsSkinEdit17.Text;
    Fieldbyname('产品简介').AsString:=bsSkinMemo4.Text;
    post;
  end;
  bsSkinEdit14.Clear;
  bsSkinEdit15.Clear;
  bsSkinEdit16.Clear;
  bsSkinEdit17.Clear;
  bsSkinMemo4.Clear;
end;

procedure TForm1.bsSkinButton15Click(Sender: TObject);
begin
  with dm.ADOTable5 do
  begin
    Edit;
    Fieldbyname('产品型号').AsString:=bsSkinEdit14.Text;
    Fieldbyname('代理价').AsString:=bsSkinEdit15.Text;
    Fieldbyname('报价').AsString:=bsSkinEdit16.Text;
    Fieldbyname('最底价').AsString:=bsSkinEdit17.Text;
    Fieldbyname('产品简介').AsString:=bsSkinMemo4.Text;
    post;
  end;
end;

procedure TForm1.bsSkinButton16Click(Sender: TObject);
begin
  with DM.ADOTable5 do
  begin
    if Recordcount=0 then
    begin
      MES.MessageDlg('没有要删除的数据!',mtinformation,[mbok],0);
      eXIT;
    end;
    if MEs.MessageDlg('确定删除数据吗？',mtinformation,[mbyes,mbno],0)=mryes then
    begin
      Delete;
  bsSkinEdit14.Clear;
  bsSkinEdit15.Clear;
  bsSkinEdit16.Clear;
  bsSkinEdit17.Clear;
  bsSkinMemo4.Clear;
    end;
  end;
end;

procedure TForm1.bsSkinDBGrid5CellClick(Column: TbsColumn);
begin
  with dm.ADOTable5 do
  begin
    bsSkinEdit14.Text:=Fieldbyname('产品型号').AsString;
    bsSkinEdit15.Text:=Fieldbyname('代理价').AsString;
    bsSkinEdit16.Text:=Fieldbyname('报价').AsString;
    bsSkiNEdit17.Text:=Fieldbyname('最底价').AsString;
    bsSkinMemo4.Text:=Fieldbyname('产品简介').AsString;
  end;
end;

procedure TForm1.bsSkinDBGrid5DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TbsColumn;
  State: TGridDrawState);
var
  nWidth:integer;
begin
  with bsSkindbGrid5.Canvas do
    begin
      nWidth := TextWidth(Column.Field.AsString) + 2;
      if nWidth > Column.Width then Column.Width := nWidth;
    end;
  with tbsSkindbgrid(sender) do
  begin
   if ((state = [gdselected]) or (state=[gdselected,gdfocused]))  then
    begin
     canvas.font.color :=clwhite;
     canvas.brush.color :=$00c08080;
    end
    else
    begin
      if datasource.dataset.recno mod 2<>0 then
        canvas.brush.color :=clwhite
      else
        canvas.brush.color :=$00cffefd;
    end;
    bsSkindbGrid5.defaultdrawcolumncell(rect, datacol, column, state);
  end;
  bsSkindbGrid5.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  with (Sender as TbsSkinDBGrid).Canvas do //画 cell 的边框
  begin
    Pen.Color := $00ff0000; //定义画笔颜色(蓝色)
    MoveTo(Rect.Left, Rect.Bottom); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
    Pen.Color := $0000ff00; //定义画笔颜色(绿色)
    MoveTo(Rect.Right, Rect.Top); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
  end;
end;

end.