buyers.pas

一款不错的商务程序商品管理系统,有简易的窗体皮肤

unit Buyers;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, Grids, DBGrids, DB, ADODB, Theme;

type
  TFrm_Buyers = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    StatusBar1: TStatusBar;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    ADOBuyer: TADODataSet;
    ADOLinkMan: TADODataSet;
    ADOPick: TADODataSet;
    DSBuyer: TDataSource;
    DSLinkMan: TDataSource;
    DSPick: TDataSource;
    TabSheet4: TTabSheet;
    DBGrid4: TDBGrid;
    ADOFeedback: TADODataSet;
    DSFeedback: TDataSource;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Buyers: TFrm_Buyers;
  BuyerID,BuyerName:string;
implementation
uses Main,BuyersEdit,LinkManEdit,PictEdit,FeedBackEdit,DM;
{$R *.dfm}

procedure TFrm_Buyers.ToolButton1Click(Sender: TObject);
begin
  case PageControl1.ActivePageIndex of
  1..3:
  if (BuyerID='') or (BuyerName='') then
  begin
    Application.MessageBox('请选择客户！','明日科技');
    Exit;
  end;
  end;
  case PageControl1.ActivePageIndex of
  0   :begin
          ADOBuyer.Append;
          Frm_BuyerEdit.ShowModal;
       end;
  1   :begin
          ADOLinkMan.Append;
          Frm_LinkManEdit.ShowModal;
       end;
  2   :begin
          ADOPick.Append;
          Frm_PictEdit.ShowModal;
       end;
  3   :begin
          ADOFeedback.Append;
          Frm_FeedBackEdit.ShowModal;
       end;
  end;
end;

procedure TFrm_Buyers.ToolButton2Click(Sender: TObject);
begin
  case PageControl1.ActivePageIndex of
  1..3:
  if (BuyerID='') or (BuyerName='') then
  begin
    Application.MessageBox('请选择客户！','明日科技');
    Exit;
  end;
  end;
  case PageControl1.ActivePageIndex of
  0   :begin
          if ADOBuyer.RecordCount>0 then
          begin
            ADOBuyer.Edit;
            Frm_BuyerEdit.ShowModal;
          end;
       end;
  1   :begin
          if ADOLinkMan.RecordCount>0 then
          begin
            ADOLinkMan.Edit;
            Frm_LinkManEdit.ShowModal;
          end;
       end;
  2   :begin
          if ADOPick.RecordCount>0 then
          begin
            ADOPick.Edit;
            Frm_PictEdit.ShowModal;
          end;
       end;
  3   :begin
          if ADOFeedback.RecordCount>0 then
          begin
            ADOFeedback.Edit;
            Frm_FeedBackEdit.ShowModal;
          end;
       end;
  end;
end;

procedure TFrm_Buyers.ToolButton3Click(Sender: TObject);
begin
    case PageControl1.ActivePageIndex of
    0   :begin
            if (ADOBuyer.RecordCount>0) and
             (Application.MessageBox('您是否要删除此记录？', '明日科技', MB_OKCANCEL) = IDOK) then
            begin
              ADOBuyer.Delete;
              ADOBuyer.UpdateBatch;
            end;
         end;
    1   :begin
            if (ADOLinkMan.RecordCount>0) and
             (Application.MessageBox('您是否要删除此记录？', '明日科技', MB_OKCANCEL) = IDOK) then
            begin
              ADOLinkMan.Delete;
              ADOLinkMan.UpdateBatch;
            end;
         end;
    2   :begin
            if (ADOPick.RecordCount>0) and
             (Application.MessageBox('您是否要删除此记录？', '明日科技', MB_OKCANCEL) = IDOK) then
            begin
              ADOPick.Delete;
              ADOPick.UpdateBatch;
            end;
         end;
    3   :begin
            if (ADOFeedback.RecordCount>0) and
             (Application.MessageBox('您是否要删除此记录？', '明日科技', MB_OKCANCEL) = IDOK) then
            begin
              ADOFeedback.Delete;
              ADOFeedback.UpdateBatch;
            end;
         end;
    end;
end;

procedure TFrm_Buyers.ToolButton6Click(Sender: TObject);
begin
  Close;
end;

procedure TFrm_Buyers.FormShow(Sender: TObject);
begin
  ADOBuyer.Close;
  ADOLinkMan.Close;
  ADOPick.Close;
  ADOFeedback.Close;


  ADOBuyer.Open;
  ADOLinkMan.Open;
  ADOPick.Open;
  ADOFeedback.Open;
end;

procedure TFrm_Buyers.DBGrid1CellClick(Column: TColumn);
begin
  if ADOBuyer.RecordCount>0 then
  begin
    BuyerID:=ADOBuyer.FieldByName('MR_ID').AsString;
    BuyerName:=ADOBuyer.FieldByName('MR_Name').AsString;
  end;
end;

procedure TFrm_Buyers.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
  ActiveForm:=nil;
end;

end.