frmvendormanage.pas

物流供应链管理系统

unit frmVendorManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, ComCtrls, ExtCtrls,
  LCDBOperatTool, DB, DBClient, MConnect, SConnect, DBSelectDlgEdit;

type
  TFormVendorManage = class(TForm)
    SocketConVendor: TSocketConnection;
    LCDBOperatTool1: TLCDBOperatTool;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label2: TLabel;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    DBEdtId: TDBEdit;
    DBEdtPassword: TDBEdit;
    DBEdtZipCode: TDBEdit;
    DBEdtName: TDBEdit;
    DBEdtAddress: TDBEdit;
    DBEdtTel: TDBEdit;
    DBEdtMobile: TDBEdit;
    DBEdtFax: TDBEdit;
    DBEdtEmail: TDBEdit;
    DBEdtContactMan: TDBEdit;
    DBEdtWebSite: TDBEdit;
    TabSheet2: TTabSheet;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    DBEdBankAccount: TDBEdit;
    DBEdPayType: TDBEdit;
    DBEdtCurrentBank: TDBEdit;
    DBEdOperatorName: TDBEdit;
    DBEdtOperatorPhone: TDBEdit;
    DBEdtOperatorMobilePhone: TDBEdit;
    DBGrid1: TDBGrid;
    CBField: TComboBox;
    EdtSearchValue: TEdit;
    BtnSearch: TButton;
    BtnExitSearch: TButton;
    cdsVendor: TClientDataSet;
    cdsRegion: TClientDataSet;
    DSVendor: TDataSource;
    DSRegion: TDataSource;
    DBSelectDlgEdit1: TDBSelectDlgEdit;
    Label19: TLabel;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BtnSearchClick(Sender: TObject);
    procedure BtnExitSearchClick(Sender: TObject);
    procedure LCDBOperatTool1Click(Btn: TToolButton;
      var Continued: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormVendorManage: TFormVendorManage;

implementation
uses CommonFunc;
{$R *.dfm}

procedure TFormVendorManage.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
  Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TFormVendorManage.BtnSearchClick(Sender: TObject);
var
  LName, LValue: string;
  LSql: string;
begin
  if not CheckInput(CBField) then Exit;
  LName := CBField.Items.ValueFromIndex[CBField.ItemIndex];
  LValue := Trim(EdtSearchValue.Text);
  cdsVendor.Locate(LName, LValue,[]);
end;

procedure TFormVendorManage.BtnExitSearchClick(Sender: TObject);
begin
  cdsVendor.Refresh;
end;

procedure TFormVendorManage.LCDBOperatTool1Click(Btn: TToolButton;
  var Continued: Boolean);
begin
  if Btn = tbPost then
  begin
    cdsVendor.Post;
    cdsVendor.ApplyUpdates(-1);
    Continued := false;
  end;
end;

end.