wareinfo.pas

来自「企业商品管理系统」· PAS 代码 · 共 126 行

unit WareInfo;

interface

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

type
  TFrm_WareInfo = class(TBaseForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton7: TToolButton;
    ToolButton2: TToolButton;
    ToolButton6: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    DBGrid2: TDBGrid;
    ADOWaretype: TADODataSet;
    DSWaretype: TDataSource;
    ADOWareInfo: TADODataSet;
    DSWareInfo: TDataSource;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    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_WareInfo: TFrm_WareInfo;

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

procedure TFrm_WareInfo.ToolButton1Click(Sender: TObject);
begin
  if ADOWaretype.RecordCount=0 then
  begin
    Application.MessageBox('请选择商品类别！','明日科技');
    Exit;
  end;
  ADOWareInfo.Append;
  ADOWareInfo.FieldByName('MR_WareCode').AsInteger:=ADOWaretype.FieldByName('MR_Code').AsInteger;
  ADOWareInfo.FieldByName('MR_WareName').AsString:=ADOWaretype.FieldByName('MR_Name').AsString;
end;

procedure TFrm_WareInfo.ToolButton7Click(Sender: TObject);
begin
  if ADOWareInfo.RecordCount=0 then
  Exit;
  ADOWareInfo.Edit;
end;

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

end;

procedure TFrm_WareInfo.ToolButton3Click(Sender: TObject);
begin
  ADOWareInfo.UpdateBatch;
end;

procedure TFrm_WareInfo.ToolButton4Click(Sender: TObject);
begin
  ADOWareInfo.CancelBatch;
end;

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

procedure TFrm_WareInfo.FormShow(Sender: TObject);
begin
  ADOWaretype.Close;
  ADOWaretype.Open;
  ADOWareInfo.Close;
  ADOWareInfo.Open;
end;

end.