spzlgl.pas

库房管理系统

unit spzlgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask,  ExtCtrls, DBCtrls,   Grids, DBGrids,
  DB, ADODB, Buttons;
type
  Tspzlglfrm = class(TForm)
    grp1: TGroupBox;
    grp2: TGroupBox;
    dbgrd1: TDBGrid;
    grp3: TGroupBox;
    Button1: TButton;
    Button3: TButton;
    AdoMtrCode: TADOQuery;
    ds_MtrCode: TDataSource;
    add: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    save: TBitBtn;
    grp4: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    mtrcode: TDBEdit;
    mtrname: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    ado_unit: TADOTable;
    ado_unitfUnitCode: TWideStringField;
    ado_unitfbaseUnits: TWideStringField;
    unitbox: TDBComboBox;
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure addClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure saveClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  spzlglfrm: Tspzlglfrm;

implementation

uses mainfm;

{$R *.dfm}

procedure Tspzlglfrm.FormCreate(Sender: TObject);
//var
 // path:string;
  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 Tspzlglfrm.Button3Click(Sender: TObject);
begin
  showmessage('design now!');
end;

procedure Tspzlglfrm.addClick(Sender: TObject);
begin
    AdoMtrCode.Append;
    save.Enabled:=true;
    add.Enabled:=False;
end;

procedure Tspzlglfrm.BitBtn2Click(Sender: TObject);
begin

 if messagebox(Handle,PChar('sure to delete?'),'warning',mb_iconwarning+mb_yesno)=IDYES then
    AdoMtrCode.Delete;
end;

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

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

end;

procedure Tspzlglfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if AdoMtrCode.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.