unitclientprice_edit.pas

仓库出单管理系统,采用SQL数据库,功能并不强大,但在操作的方便性上花了一点功夫,对新手有一定的学习作用

unit UnitClientPrice_Edit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, wwdblook, StdCtrls, Mask, wwdbedit, pngimage, ExtCtrls, RzButton,ADODB,DB;

type
  TFrmClientPrice_Edit = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    BtnOK: TRzBitBtn;
    BtnNo: TRzBitBtn;
    Panel2: TPanel;
    Label1: TLabel;
    Image1: TImage;
    wwDBEdit4: TwwDBEdit;
    wwDBLookupCombo2: TwwDBLookupCombo;
    wwDBLookupCombo1: TwwDBLookupCombo;
    BtnSaveAdd: TRzBitBtn;
    procedure BtnNoClick(Sender: TObject);
    procedure BtnOKClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BtnSaveAddClick(Sender: TObject);
    procedure wwDBLookupCombo2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmClientPrice_Edit: TFrmClientPrice_Edit;

implementation

uses DMUnit;

{$R *.dfm}

procedure TFrmClientPrice_Edit.BtnNoClick(Sender: TObject);
begin
  Close;
end;

procedure TFrmClientPrice_Edit.BtnOKClick(Sender: TObject);
begin
  if DM.ADOQueryClientPrice.State in[dsInsert,dsEdit] then
  Begin
    DM.ADOQueryClientPrice.FieldByName('ProductID').AsString:=DM.ADOTableProductName.FieldByName('ID').AsString;
    DM.ADOQueryClientPrice.FieldByName('ClientCode').AsString:=DM.ADOTableClientName.FieldByName('ClientCode').AsString;
    DM.ADOQueryClientPrice.Post;
  End;  
  Close;
end;

procedure TFrmClientPrice_Edit.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
if DM.ADOQueryClientPrice.State in[dsEdit,dsInsert] then
  begin
      if Messagebox(handle,'本信息已修改,您确定要放弃修改吗？','询问',MB_YESNO+MB_ICONQUESTION)=IDYES then
      Begin
         CanClose:=true;
         DM.ADOQueryClientPrice.Cancel;
      end
      else
      CanClose:=false;
   end;
end;

procedure TFrmClientPrice_Edit.BtnSaveAddClick(Sender: TObject);
begin
  if DM.ADOQueryClientPrice.State in[dsInsert,dsEdit] then
  Begin
    DM.ADOQueryClientPrice.FieldByName('ProductID').AsString:=DM.ADOTableProductName.FieldByName('ID').AsString;
    DM.ADOQueryClientPrice.FieldByName('ClientCode').AsString:=DM.ADOTableClientName.FieldByName('ClientCode').AsString;
    DM.ADOQueryClientPrice.Post;
  End;
  DM.ADOQueryClientPrice.Append;
end;

procedure TFrmClientPrice_Edit.wwDBLookupCombo2Change(Sender: TObject);
var
  s,OrderStr,Sqlstr: String;
  ws: WideString;
begin
  s := wwDBLookupCombo2.Text;
  ws := s;

if (Length(s)=Length(ws)) THen   //判断是否有汉字
Begin
  if wwDBLookupCombo2.Text<>'' then
  Begin
    DM.ADOTableClientName.Filter:=' clientCode like  '''+wwDBLookupCombo2.Text+'%''' ;
    DM.ADOTableClientName.Filtered:=True;
  End
  Else
  Begin
    DM.ADOTableClientName.Filtered:=False;
  End;
End;
end;

end.