customer.pas

来自「SunwayERP框架(支持Plugin)」· PAS 代码 · 共 262 行

unit Customer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseMDForm, ImgList, DB, ADODB, ComCtrls, ExtCtrls, ToolWin,
  StdCtrls, Mask, DBCtrls, Buttons;

type
  TfrmCustomer = class(TfrmBaseMDForm)
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    DBEdit3: TDBEdit;
    Label3: TLabel;
    DBEdit4: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    Label14: TLabel;
    Label15: TLabel;
    DBEdit14: TDBEdit;
    Label16: TLabel;
    DBEdit15: TDBEdit;
    Label17: TLabel;
    DBEdit16: TDBEdit;
    Label18: TLabel;
    DBEdit17: TDBEdit;
    Label20: TLabel;
    DBEdit19: TDBEdit;
    Label21: TLabel;
    DBEdit20: TDBEdit;
    Label22: TLabel;
    DBEdit21: TDBEdit;
    Label19: TLabel;
    DBEdit18: TDBEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure DataSource1StateChange(Sender: TObject);
    procedure btnNewClick(Sender: TObject);
    procedure btnOpenClick(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCustomer: TfrmCustomer;

implementation

uses SAL_Main, DBPicker;
{$R *.dfm}

procedure TfrmCustomer.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  if not (ADOQuery1.State in [dsInsert,dsEdit]) then Exit;
  frmDBPicker:=TfrmDBPicker.Create(Self);
  frmDBPicker.Caption:='客户区域选择';
  with frmDBPicker.ADOQuery1 do
    begin
      Close;
      Connection:=ADOQuery1.Connection;
      SQL.Text:='Select AREA_ID 区域代码,AREA_NAME 区域名称 from AREA order by AREA_ID';
      Open;
    end;
  if frmDBPicker.ShowModal=mrok then
    DBEdit9.Field.Value:=frmDBPicker.ADOQuery1.fields[0].Value+'-'+frmDBPicker.ADOQuery1.fields[1].Value;
  frmDBPicker.Free;
end;

procedure TfrmCustomer.SpeedButton2Click(Sender: TObject);
begin
  inherited;
  if not (ADOQuery1.State in [dsInsert,dsEdit]) then Exit;
  frmDBPicker:=TfrmDBPicker.Create(Self);
  frmDBPicker.Caption:='客户类别';
  with frmDBPicker.ADOQuery1 do
    begin
      Close;
      Connection:=AdoQuery1.Connection;
      SQL.Text:='Select CUST_TYPEID 类别代码,CUST_TYPENAME 类别名称 from CUST_TYPE order by CUST_TYPEID';
      Open;
    end;
  if frmDBPicker.ShowModal=mrok then
    DBEdit10.Field.Value:=frmDBPicker.ADOQuery1.fields[0].Value+'-'+frmDBPicker.ADOQuery1.fields[1].Value;
end;

procedure TfrmCustomer.SpeedButton3Click(Sender: TObject);
begin
  inherited;
  if not (ADOQuery1.State in [dsInsert,dsEdit]) then Exit;
  frmDBPicker:=TfrmDBPicker.Create(Self);
  frmDBPicker.Caption:='销售类别';
  with frmDBPicker.ADOQuery1 do
    begin
      Close;
      Connection:=AdoQuery1.Connection;
      SQL.Text:='Select SAL_TYPEID 类别代码,SAL_TYPENAME 类别名称 from SALE_TYPE order by SAL_TYPEID';
      Open;
    end;
  if frmDBPicker.ShowModal=mrok then
    DBEdit11.Field.Value:=frmDBPicker.ADOQuery1.fields[0].Value+'-'+frmDBPicker.ADOQuery1.fields[1].Value;
end;

procedure TfrmCustomer.SpeedButton4Click(Sender: TObject);
begin
  inherited;
  if not (ADOQuery1.State in [dsInsert,dsEdit]) then Exit;
  frmDBPicker:=TfrmDBPicker.Create(Self);
  frmDBPicker.Caption:='币种';
  with frmDBPicker.ADOQuery1 do
    begin
      Close;
      Connection:=AdoQuery1.Connection;
      SQL.Text:='Select CUR_CODE 币别代码,CUR_NAME 币别名称 from CURRENCRY order by CUR_CODE';
      Open;
    end;
  if frmDBPicker.ShowModal=mrok then
    DBEdit11.Field.Value:=frmDBPicker.ADOQuery1.fields[0].Value+'-'+frmDBPicker.ADOQuery1.fields[1].Value;
end;

procedure TfrmCustomer.DataSource1StateChange(Sender: TObject);
begin
  inherited;
  if DataSource1.State in [dsInsert] then
    begin
      btnNew.Enabled:=False;
      btnOpen.Enabled:=False;
      btnEdit.Enabled:=False;
      btnSave.Enabled:=True;
      btnCancel.Enabled:=True;
      btnDelete.Enabled:=False;
      btnPrint.Enabled:=False;
    end;
  if DataSource1.State in [dsEdit] then
    begin
      btnNew.Enabled:=False;
      btnOpen.Enabled:=False;
      btnEdit.Enabled:=False;
      btnSave.Enabled:=True;
      btnCancel.Enabled:=True;
      btnDelete.Enabled:=False;
      btnPrint.Enabled:=False;
    end;
  if DataSource1.State in [dsBrowse] then
    begin
      btnNew.Enabled:=True;
      btnOpen.Enabled:=True;
      btnEdit.Enabled:=True;
      btnSave.Enabled:=False;
      btnCancel.Enabled:=False;
      btnDelete.Enabled:=True;
      btnPrint.Enabled:=True;
    end;
end;

procedure TfrmCustomer.btnNewClick(Sender: TObject);
begin
  inherited;
  with ADOQuery1 do
    begin
      Close;
      SQL.Text:='Select * from CUSTOMER where CUST_ID is null';
      LockType:=ltOptimistic;
      Open;
      Append;
    end;
end;

procedure TfrmCustomer.btnOpenClick(Sender: TObject);
begin
  inherited;
  frmDBPicker:=TfrmDBPicker.Create(Self);
  with frmDBPicker.ADOQuery1 do
    begin
      Connection:=ADOQuery1.Connection;
      Close;
      SQL.Text:='Select CUST_ID 客户ID,CUST_NAME 客户名称 from CUSTOMER order by CUST_ID';
      Open;
    end;
  if frmDBPicker.ShowModal=mrok then
  with ADOQuery1 do
    begin
      Close;
      SQL.Text:='Select * from CUSTOMER where CUST_ID='''+frmDBPicker.ADOQuery1.Fieldbyname('客户ID').AsString+'''';
      LockType:=ltReadOnly;
      Open;
    end;
  frmDBPicker.Free;
end;

procedure TfrmCustomer.SpeedButton5Click(Sender: TObject);
begin
  inherited;
  if not (ADOQuery1.State in [dsInsert,dsEdit]) then Exit;
  frmDBPicker:=TfrmDBPicker.Create(Self);
  frmDBPicker.Caption:='付款方式选择';
  with frmDBPicker.ADOQuery1 do
    begin
      Close;
      Connection:=ADOQuery1.Connection;
      SQL.Text:='Select PAY_MODE_ID 方式代码,PAY_MODE_NAME 方式名称 from PAY_MODE order by PAY_MODE_ID';
      Open;
    end;
  if frmDBPicker.ShowModal=mrok then
    DBEdit16.Field.Value:=frmDBPicker.ADOQuery1.fields[0].Value+'-'+frmDBPicker.ADOQuery1.fields[1].Value;
  frmDBPicker.Free;
end;

procedure TfrmCustomer.SpeedButton6Click(Sender: TObject);
begin
  inherited;
  if not (ADOQuery1.State in [dsInsert,dsEdit]) then Exit;
  frmDBPicker:=TfrmDBPicker.Create(Self);
  frmDBPicker.Caption:='票据类型选择';
  with frmDBPicker.ADOQuery1 do
    begin
      Close;
      Connection:=ADOQuery1.Connection;
      SQL.Text:='Select INV_ID 票据代码,INV_NAME 票据名称 from INV_TYPE order by INV_ID';
      Open;
    end;
  if frmDBPicker.ShowModal=mrok then
    DBEdit17.Field.Value:=frmDBPicker.ADOQuery1.fields[0].Value+'-'+frmDBPicker.ADOQuery1.fields[1].Value;
  frmDBPicker.Free;
end;

end.