library stock;

uses
  IstodbDM in 'IstodbDM.pas' {IstoDM: TDataModule},
  istoch in 'istoch.pas' {istoch_Form},
  ......
  ......
  IstochDM in 'IstochDM.pas' {DataModule1: TDataModule};

{$R *.RES}

exports
  showistochform,    //In istoch.pas    库存修改
  ......
  ......
  showistopdform;    //In istopd.pas    库存货品盘点
begin
end.

unit istoch;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, UserDlg, Db,
  ComCtrls;

type
  Tistoch_Form = class(TForm)
    InstoreIdGrid: TDBGrid;
    Panel1: TPanel;
    Panel2: TPanel;
    findBtn: TBitBtn;
    amendAllBtn: TBitBtn;
    delBtn: TBitBtn;
    exitBtn: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    ModalText: TDBText;
    ClassifycodeText: TDBText;
    stocknameText: TDBText;
    EngineText: TDBText;
    TradePriceText: TDBText;
    CannibalizeText: TDBText;
    ManufacturerText: TDBText;
    ProducingAreaText: TDBText;
    PriceLimitText: TDBText;
    DiscountLimitText: TDBText;
    InstorehouseDlg: TUserDlg;
    amendAttrNumBtn: TBitBtn;
    amendPrice: TBitBtn;
    amendLocation: TBitBtn;
    amendbatchBtn: TBitBtn;
    Label11: TLabel;
    PositionCodeText: TDBText;
    StatusBar1: TStatusBar;
    procedure exitBtnClick(Sender: TObject);
    procedure amendAllBtnClick(Sender: TObject);
    procedure delBtnClick(Sender: TObject);
    procedure findBtnClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure amendAttrNumBtnClick(Sender: TObject);
    procedure amendPriceClick(Sender: TObject);
    procedure amendLocationClick(Sender: TObject);
    procedure amendbatchBtnClick(Sender: TObject);
    procedure InstoreIdGridDblClick(Sender: TObject);
    procedure ShowHint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  istoch_Form: Tistoch_Form;

procedure showistochform(apphand: Thandle; dbpath, dbpassword: string); stdcall;

implementation

uses Istoquerypart, IstodbDM, istochalledit, Istochsumall,
  Istochpriceall, Istochpositionall, istochbat, IstochbF6E;
{$R *.DFM}

procedure showistochform(apphand: Thandle; dbpath, dbpassword: string); stdcall; export;
var
  oldhandle: Thandle;
begin
  dbpathname := dbpath;
  dbpasswd := dbpassword;
  oldhandle := application.Handle;
  {保存动态链接库应用句柄}
  application.Handle := apphand;
  {动态链接库句柄置成主应用程序句柄}
  istoch_Form := Tistoch_Form.Create(application);
  with istoch_Form do
  begin
    try
      showmodal;
    finally
      application.Handle := oldhandle;
        {恢复动态链接库句柄}
      free;
    end;
  end;
end;

procedure Tistoch_Form.FormCreate(Sender: TObject);
begin
  Application.OnHint := ShowHint;
  IstoDM := TIstoDM.Create(Self);
  with IstoDM do
  begin
    TempinstorehouseQuery.Active := True;
    PartPropInstorehouseQueryTable.Active := True;
  end;
end;

procedure Tistoch_Form.exitBtnClick(Sender: TObject);
begin
  CLOSE;
end;

procedure Tistoch_Form.amendAllBtnClick(Sender: TObject);
begin
  screen.cursor := crHourGlass;
  istochalledit_form := Tistochalledit_form.Create(application);
  with istochalledit_form do
  begin
    showmodal;
    free;
  end;
  screen.Cursor := crDefault;
  InstoreIdGrid.SetFocus;
end;

procedure Tistoch_Form.amendAttrNumBtnClick(Sender: TObject);
begin
  screen.cursor := crHourGlass;
  istochsumall_Form := Tistochsumall_Form.Create(Application);
  with istochsumall_Form do
  begin
    showmodal;
    free;
  end;
  screen.Cursor := crDefault;
  InstoreIdGrid.SetFocus;
end;

procedure Tistoch_Form.amendPriceClick(Sender: TObject);
begin
  screen.cursor := crHourGlass;
  Istochpriceall_Form := TIstochpriceall_Form.Create(Application);
  with Istochpriceall_Form do
  begin
    showmodal;
    free;
  end;
  screen.Cursor := crDefault;
  InstoreIdGrid.SetFocus;
end;

procedure Tistoch_Form.amendLocationClick(Sender: TObject);
begin
  screen.cursor := crHourGlass;
  Istochpositionall_Form := TIstochpositionall_Form.Create(Application);
  with Istochpositionall_Form do
  begin
    showmodal;
    free;
  end;
  screen.Cursor := crDefault;
  InstoreIdGrid.SetFocus;
end;

procedure Tistoch_Form.amendbatchBtnClick(Sender: TObject);
begin
  hide;
  screen.cursor := crHourGlass;
  Istochbat_Form := TIstochbat_Form.Create(Application);
  with Istochbat_Form do
  begin
    showmodal;
    free;
  end;
  Application.OnHint := ShowHint;
  screen.Cursor := crDefault;
  show;
end;

procedure Tistoch_Form.delBtnClick(Sender: TObject);
begin
  with InstorehouseDlg do
  begin
    title := '警告';
    message.Clear;
    message.Add('您要删除当前记录，是否继续？');
    buttons.Clear;
    buttons.Add('确定');
    buttons.Add('放弃');
    icon := icWarning;
    if show = 0 then
    begin
      istoDM.InstorehouseQuery.edit;
      istoDM.InstorehouseQuery.delete;
    end;
  end;
end;

procedure Tistoch_Form.findBtnClick(Sender: TObject);
var
  i: integer;
  elementstr: string;
  elementname: string;
  attribstr: string;
  descript: string;
  elements: Tstrings;
begin
  screen.Cursor := crHourGlass;
  elements := Tstringlist.Create;
  with IstoDM do
  begin
    for i := 0 to TempinstorehouseQuery.FieldCount - 26 do
    begin
      elementname := TempinstorehouseQuery.Fields[i].FieldName;
      attribstr := getattrib(TempinstorehouseQuery.Fields[i].DataType);
      descript := TempinstorehouseQuery.Fields[i].DisplayLabel;
      elementstr := elementname + ':' + attribstr + ':' + descript;
      elements.Add(elementstr);
    end;
    with TIstoqueryDlg.Create(self, elements) do
    begin
      if showmodal = mrOk then
      begin
        InstoreIdGrid.SetFocus;
      end;
      free;
    end;
  end;
  show;
  elements.Free;
  screen.Cursor := crDefault;
end;

procedure Tistoch_Form.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    VK_RETURN: amendAllBtnClick(amendAllBtn);
    VK_DELETE: DelBtnclick(DelBtn);
    VK_ESCAPE: ExitBtnClick(ExitBtn);
  end;
end;

procedure Tistoch_Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  IstoDM.free;
  IstoDM := nil;
  Application.OnHint := nil;
  Action := caFree;
  istoch_Form := nil;
end;

procedure Tistoch_Form.InstoreIdGridDblClick(Sender: TObject);
begin
  amendAllBtnClick(amendAllBtn);
end;

procedure Tistoch_Form.ShowHint(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := Application.Hint;
end;

end.