stockmain_u.pas

汽车维修系统的设计

unit stockMain_u;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGridEh, StdCtrls, Buttons;

type
  TfrmstockMain = class(TForm)
    GroupBox3: TGroupBox;
    BitBtn9: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery1Billcode: TWideStringField;
    ADOQuery1DateIn: TDateTimeField;
    ADOQuery1Stockcode: TWideStringField;
    ADOQuery1stockDate: TDateTimeField;
    ADOQuery1ProvideCode: TWideStringField;
    ADOQuery1StockMan: TWideStringField;
    ADOQuery1StockItems: TIntegerField;
    ADOQuery1TotalMoney: TBCDField;
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner2: TWideStringField;
    ADOQuery1AuditFlag: TWideStringField;
    ADOQuery1isAuditing: TBooleanField;
    ADOQuery1AuditDate: TDateTimeField;
    ADOQuery1Others: TWideStringField;
    ADOQuery2: TADOQuery;
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmstockMain: TfrmstockMain;

implementation

uses Stock_u, EditStock_u;

{$R *.dfm}

procedure TfrmstockMain.BitBtn6Click(Sender: TObject);
begin
  close;
end;

procedure TfrmstockMain.BitBtn1Click(Sender: TObject);
begin
   Stockfrm:=TStockfrm.Create(self);
   Stockfrm.ShowModal ;
   Stockfrm.Free;
end;

procedure TfrmstockMain.FormCreate(Sender: TObject);
begin
   with ADOQuery1 do
      begin
          close;
          sql.Clear ;
          sql.Add('select * from goodsi where isAuditing<>1');
          open; 
      end;
end;

procedure TfrmstockMain.BitBtn4Click(Sender: TObject);
begin
   if ADOQuery1.FieldByName('isAuditing').AsBoolean  then
       begin
          application.MessageBox('该单据已经审核，您不能删除！','提示',mb_ok+mb_IconExclamation);
          exit;
       end;
   if  application.MessageBox('该操作将不能恢复，您确认要删除本张单据吗？','删除确认',mb_YesNo+mb_IconExclamation+256)<>IDYES then exit;
   with ADOQuery2 do   //删除明细表
       begin
           close;
           sql.Clear ;
           sql.Add('delete from goodsiDetails where billcode=:a0');
           parameters[0].Value :=trim(ADOQUery1.fieldByname('billcode').AsString);
           execSQL;
       end;
   ADOQuery1.Delete;  //删除主表

end;

procedure TfrmstockMain.BitBtn3Click(Sender: TObject);
begin
   if (not ADOQuery1.Active )or (ADOQuery1.RecordCount<=0)then exit;
   EditStockfrm:=TEditStockfrm.Create(self);
   EditStockfrm.Edit3.Text:=ADOQuery1.fieldByname('Billcode').AsString ;
   EditStockfrm.ShowModal ;
   EditStockfrm.Free;
end;

procedure TfrmstockMain.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
   if adoquery1.FieldByName('isAuditing').AsBoolean  then
      begin
         BitBtn3.Enabled :=False ;   //修改
         BitBtn4.Enabled :=False ;   //删除
         BitBtn5.Visible :=False ;   //审核
         BitBtn2.Visible :=True ;    //弃审
         //BitBtn7.Enabled :=True;
      end
   else
      begin
         BitBtn3.Enabled :=True ;
         BitBtn4.Enabled :=True ;
         BitBtn5.Visible :=True ;
         BitBtn2.Visible :=False ;
      end;
end;

procedure TfrmstockMain.BitBtn5Click(Sender: TObject);
begin
   if application.MessageBox('该操作将确认本单的物品入库，您确认吗？','确认',mb_YESNO+mb_iconQuestion+256)<>IDYES then exit;


end;

end.