productcodefm.pas

库房管理系统

unit ProductCodeFM;

interface

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

type
  TProductCode = class(TForm)
    grp1: TGroupBox;
    grp2: TGroupBox;
    dbgrd1: TDBGrid;
    grp3: TGroupBox;
    save: TButton;
    Button3: TButton;
    grp4: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    productID: TDBEdit;
    ProductName: TDBEdit;
    DBEdit5: TDBEdit;
    AdoProductCode: TADOQuery;
    ds_ProductCode: TDataSource;
    add: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    unitbox: TDBComboBox;
    ado_unit: TADOTable;
    ado_unitfUnitCode: TWideStringField;
    ado_unitfbaseUnits: TWideStringField;
    procedure addClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure saveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ProductCode: TProductCode;

implementation
 uses MainFm;

{$R *.dfm}

procedure TProductCode.addClick(Sender: TObject);
begin
     AdoProductCode.Append;
     save.Enabled:=true;
     add.Enabled:=false;
end;

procedure TProductCode.BitBtn3Click(Sender: TObject);
begin
    AdoProductCode.Edit;
    save.Enabled:=true;
 
end;

procedure TProductCode.BitBtn2Click(Sender: TObject);
begin
  if messagebox(Handle,PChar('sure to delete?'),'warning',mb_iconwarning+mb_yesno)=IDYES then
   AdoProductCode.Delete;
end;

procedure TProductCode.saveClick(Sender: TObject);
begin
    if (trim(productid.Text)<>'') and (trim(productName.Text)<>'') then
 begin
   if messagebox(Handle,PChar('sure to save?'),'warning',mb_iconwarning+mb_yesno)=IDYES then
    AdoProductCode.Post;
    save.Enabled:=false;
    add.Enabled:=true;
  end
  else
    begin
    showmessage('Please check the information if intact');
    end;
end;

procedure TProductCode.FormCreate(Sender: TObject);
  var i:integer;
begin
   with ado_unit do
      if ado_unit.RecordCount>0 then
   begin
     ado_unit.first;
      for i:=0 to ado_unit.RecordCount-1 do
      begin
     unitbox.Items.Add(ado_unit.fieldbyname('fUnitCode').AsString);
     ado_unit.Next;
      end;
   end;

end;

procedure TProductCode.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
if AdoProductCode.State in [dsInsert,dsEdit] then
  //  if  Ado_Material.Modified  then
      begin
       if MessageBox(Handle, PChar('数据未保存,确定要退出吗?'), MsgQst, Msg2YNWARN) = IDYES then
 
      Action:=caHide
 //     end
      else
      Action:=caNone;
     end;
end;

end.