ureimbureseparts.pas

天涯進銷存系統

unit uReimbureseParts;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, LBCtrls, ActnList, Grids, LBDBGrid, DB,
  LBDBScrollBar, LBMorphVCLBase, LBMorphButton;

type
  TfrmReimbureseParts = class(TForm)
    Image2: TImage;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    LBSpeecButton1: TLBSpeecButton;
    LBSpeecButton2: TLBSpeecButton;
    Label2: TLabel;
    PartCodeEdit: TLBEdit;
    Label1: TLabel;
    PartNameEdit: TLBEdit;
    Panel4: TPanel;
    Panel6: TPanel;
    Panel3: TPanel;
    Panel2: TPanel;
    Label17: TLabel;
    Label21: TLabel;
    Label7: TLabel;
    Shape1: TShape;
    Label3: TLabel;
    Label4: TLabel;
    LBDBScrollBar1: TLBDBScrollBar;
    DataDBGrid: TLBDBGrid;
    SysCloseButton: TLBMorphButton;
    WindowCaption: TLabel;
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure PartCodeEditChange(Sender: TObject);
    procedure PartCodeEditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SysCloseButtonClick(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure DataDBGridKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    procedure SelectParts;
  public
    { Public declarations }
  end;

var
  frmReimbureseParts: TfrmReimbureseParts;
  isEdit: Boolean;

implementation

uses uDataMo, uMain, uPublicvar, uSelectPartEdit, uConst;

{$R *.dfm}

procedure TfrmReimbureseParts.SelectParts;
var
  sqltext: string;
begin
  sqltext:='select * From '+ReimbureseTableName+
           ' where BillCode='+#39+ReimbureseBillNo+#39;
  if Trim(PartCodeEdit.Text)<>'' then
  sqltext:=sqltext+' and PartCode Like '+#39+'%'+Trim(PartCodeEdit.Text)+'%'+#39;
  if Trim(PartNameEdit.Text)<>'' then
  sqltext:=sqltext+' and PartName Like'+#39+'%'+Trim(PartNameEdit.Text)+'%'+#39;
  OpenData(sqltext, dmData.sdsSelectPart);
  dmData.ExistData.Data:=SelectPartCds.Data;
end;

procedure TfrmReimbureseParts.FormShow(Sender: TObject);
var
  sqltext: string;
begin
  sqltext:='select * From '+ReimbureseTableName+
           ' where BillCode='+#39+ReimbureseBillNo+#39;
  OpenData(sqltext, dmData.sdsSelectPart);
  dmData.ExistData.Data:=SelectPartCds.Data;
  isEdit:=False;
  PartCodeEdit.SetFocus;
end;

procedure TfrmReimbureseParts.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then Close;
end;

procedure TfrmReimbureseParts.PartCodeEditChange(Sender: TObject);
begin
  SelectParts;
end;

procedure TfrmReimbureseParts.PartCodeEditKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=13 then DataDBGrid.SetFocus; 
end;

procedure TfrmReimbureseParts.SysCloseButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmReimbureseParts.Action2Execute(Sender: TObject);
begin
  if dmData.sdsSelectPart.IsEmpty then
  begin
    Application.MessageBox('没有选择商品。',Hintinfo,$30);
    Exit;
  end;
  if dmData.sdsSelectPart.Fieldbyname('PartCode').asstring='' then
  begin
    Application.MessageBox('商品编号为空，不可选择。',Hintinfo,$30);
    Exit;
  end;
  if dmData.ExistData.Locate('PartCode', Trim(dmData.sdsSelectPart.Fieldbyname('PartCode').asstring),[loCaseInsensitive]) then
  begin
    Application.MessageBox(PChar('已存在编号为“'+
                                 Trim(dmData.sdsSelectPart.Fieldbyname('PartCode').asstring)+
                                 '”的商品。'),Hintinfo,$30);
    Exit;
  end;
  with SelectPartCds do
  begin
    if dmData.ExistData.FieldByName('PartCode').asstring<>''  then
      BillIsEdit:=True
    else
      BillIsEdit:=False;
    frmSelectPartEdit:=TfrmSelectPartEdit.Create(Application);
    frmSelectPartEdit.ShowModal;
    frmSelectPartEdit.Free;
    isEdit:=frmSelectPartEdit.isSelect;
    dmData.ExistData.Data:=Data;
  end;
  SelectPartCds.Last;
end;

procedure TfrmReimbureseParts.Action1Execute(Sender: TObject);
var
  sqltext: string;
begin
  sqltext:='select * From '+ReimbureseTableName+
           ' where BillCode='+#39+ReimbureseBillNo+#39;
  OpenData(sqltext, dmData.sdsSelectPart);
  dmData.ExistData.Data:=SelectPartCds.Data;
end;

procedure TfrmReimbureseParts.DataDBGridKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=13 then Action2Execute(Sender);
end;

procedure TfrmReimbureseParts.Image2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, wm_SysCommand ,$F012, 0);
end;

end.