serinfo.pas

企业商品管理系统

unit SerInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, ToolWin, Grids, DBGrids, ExtCtrls, DB, ADODB,
  StdCtrls, Mask, DBCtrls,Theme;

type
  TFrm_Serinfo = class(TBaseForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton7: TToolButton;
    ToolButton2: TToolButton;
    ToolButton6: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    DBGrid2: TDBGrid;
    ADOSer: TADODataSet;
    DSSer: TDataSource;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    DBEdit12: TDBEdit;
    Label13: TLabel;
    DBEdit13: TDBEdit;
    Label14: TLabel;
    DBEdit14: TDBEdit;
    Label15: TLabel;
    DBEdit15: TDBEdit;
    Label16: TLabel;
    DBComboBox1: TDBComboBox;
    DBLookupComboBox1: TDBLookupComboBox;
    ADOAreaLook: TADODataSet;
    DSAreaLook: TDataSource;
    ADOLinkMan: TADODataSet;
    ADODept: TADODataSet;
    DSLinkMan: TDataSource;
    DSDept: TDataSource;
    Label18: TLabel;
    DBEdit16: TDBEdit;
    Label19: TLabel;
    Label20: TLabel;
    DBEdit18: TDBEdit;
    Label21: TLabel;
    DBEdit19: TDBEdit;
    Label22: TLabel;
    DBEdit20: TDBEdit;
    Label23: TLabel;
    DBEdit21: TDBEdit;
    DBLookupComboBox2: TDBLookupComboBox;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Serinfo: TFrm_Serinfo;

implementation
uses Main,DM;
{$R *.dfm}

procedure TFrm_Serinfo.ToolButton1Click(Sender: TObject);
begin
  case PageControl1.ActivePageIndex of
  0:  begin
        ADOSer.Append;
      end;
  1:  begin
        if ADOSer.RecordCount=0 then
        Exit;
        ADOLinkMan.Append;
        ADOLinkMan.FieldByName('MR_SCCode').AsInteger:=ADOSer.FieldByName('MR_Code').AsInteger;
        ADOLinkMan.FieldByName('MR_SCName').AsString:=ADOSer.FieldByName('MR_Name').AsString;
      end;
  end;
end;

procedure TFrm_Serinfo.ToolButton7Click(Sender: TObject);
begin
  case PageControl1.ActivePageIndex of
  0:  begin
        if ADOSer.RecordCount=0 then
        Exit;
        ADOSer.Edit;
      end;
  1:  begin
        if ADOLinkMan.RecordCount=0 then
        Exit;
        ADOLinkMan.Edit;
      end;
  end;
end;

procedure TFrm_Serinfo.ToolButton2Click(Sender: TObject);
begin
  case PageControl1.ActivePageIndex of
  0:  begin
        if ADOSer.RecordCount=0 then
        Exit;
        if Application.MessageBox('您是否要删除此记录！', '明日科技', MB_OKCANCEL) = IDOK then
        begin
          ADOSer.Delete;
          ADOSer.UpdateBatch;
        end;

      end;
  1:  begin
        if ADOLinkMan.RecordCount=0 then
        Exit;
        if Application.MessageBox('您是否要删除此记录！', '明日科技', MB_OKCANCEL) = IDOK then
        begin
          ADOLinkMan.Delete;
          ADOLinkMan.UpdateBatch;
        end;

      end;
  end;
end;

procedure TFrm_Serinfo.ToolButton3Click(Sender: TObject);
begin
  case PageControl1.ActivePageIndex of
  0:  begin
        ADOSer.UpdateBatch;
      end;
  1:  begin
        ADOLinkMan.UpdateBatch;
      end;
  end;
end;

procedure TFrm_Serinfo.ToolButton4Click(Sender: TObject);
begin
  case PageControl1.ActivePageIndex of
  0:  begin
        ADOSer.CancelBatch;
      end;
  1:  begin
        ADOLinkMan.CancelBatch;
      end;
  end;
end;

procedure TFrm_Serinfo.ToolButton5Click(Sender: TObject);
begin
  Close;
end;

procedure TFrm_Serinfo.FormShow(Sender: TObject);
begin
  ADOSer.Close;
  ADOSer.Open;

  ADOAreaLook.Close;
  ADOAreaLook.Open;

  ADOLinkMan.Close;
  ADOLinkMan.Open;

  ADODept.Close;
  ADODept.Open;

  PageControl1.ActivePageIndex:=0;
end;

end.