cusfile.pas

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

unit CusFile;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, edit, StdCtrls, Mask, DBCtrls, Buttons, DBCtrlsEh;

type
  TCusFileForm = class(TedtForm)
    edtClient: TDBEditEh;
    edtBuyDate: TDBDateTimeEditEh;
    edtCheckNo: TDBEditEh;
    edtMotorLabel: TDBEditEh;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    edtSalePrice: TDBEditEh;
    edtMachineID: TDBEditEh;
    procedure edtClientEditButtons0Click(Sender: TObject;
      var Handled: Boolean);
    procedure BtnSaveClick(Sender: TObject);
    procedure BtnPriorClick(Sender: TObject);
    procedure BtnNextClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BtnaddClick(Sender: TObject);
  private
    { Private declarations }
    procedure SaveCusFile;
  public
    { Public declarations }
    sStatus:string;
    nCLIENTID:Integer;
  end;

var
  CusFileForm: TCusFileForm;

implementation

uses datamodule1, selVC;

{$R *.dfm}

procedure TCusFileForm.edtClientEditButtons0Click(Sender: TObject;
  var Handled: Boolean);
var
  sSql,sParm1,sParm2:string;
begin
  inherited;
  sSql:='select top 200 ClientId as id,ClientNo as Code,ShortName as name from client ';
  sParm1 :='where ClientNo like :ClientNo';
  sParm2 :='where shortname like :shortname';
  dlgSelVC.NewOrderSql:=' Order by ClientNo';
  dlgSelVC.tvType.Visible:=True;
  dlgSelVC.Newsql:=sSql;
  dlgSelVC.sParams1 :=sParm1;
  dlgSelVC.sParams2 :=sParm2;
  if dlgSelVC.showmodal=mrok then
  with dataE2 do
  begin
    edtClient.Text :=dlgSelVC.xName;
    nCLIENTID:=dlgSelVC.xid;
  end;
end;

procedure TCusFileForm.BtnSaveClick(Sender: TObject);
begin
  inherited;
  SaveCusFile;
  Close;
end;

procedure TCusFileForm.BtnPriorClick(Sender: TObject);
begin
  inherited;
  SetButtonPrior(DataE2.dsrpt);
  with dataE2 do
  begin
    nCLIENTID:=QueryRpt.fieldByName('CLIENTID').AsInteger;
    edtClient.Text:=trim(QueryRpt.fieldByName('ShortName').AsString);
    edtBuyDate.Text:=trim(QueryRpt.fieldByName('BuyDate').AsVariant);
    edtMachineID.Text:=trim(QueryRpt.fieldByName('MachineID').AsString);
    edtCheckNo.Text:=trim(QueryRpt.fieldByName('CheckNo').AsString);
    edtMotorLabel.Text:=trim(QueryRpt.fieldByName('MotorLabel').AsString);
    edtSalePrice.Text:=FloatToStr(QueryRpt.fieldByName('SalePrice').AsFloat);
  end;
end;

procedure TCusFileForm.BtnNextClick(Sender: TObject);
begin
  inherited;
  SetButtonNext(DataE2.dsrpt);
  with dataE2 do
  begin
    nCLIENTID:=QueryRpt.fieldByName('CLIENTID').AsInteger;
    edtClient.Text:=trim(QueryRpt.fieldByName('ShortName').AsString);
    edtBuyDate.Text:=trim(QueryRpt.fieldByName('BuyDate').AsVariant);
    edtMachineID.Text:=trim(QueryRpt.fieldByName('MachineID').AsString);
    edtCheckNo.Text:=trim(QueryRpt.fieldByName('CheckNo').AsString);
    edtMotorLabel.Text:=trim(QueryRpt.fieldByName('MotorLabel').AsString);
    edtSalePrice.Text:=FloatToStr(QueryRpt.fieldByName('SalePrice').AsFloat);
  end;
end;

procedure TCusFileForm.FormShow(Sender: TObject);
begin
  inherited;
  edtClient.SetFocus;
  if sStatus='sInsert' then
    CLS
end;

procedure TCusFileForm.SaveCusFile;
var
  sqlstr:string;
begin
  if sStatus='sInsert' then
  begin
    sqlstr:='insert into CusFile(CLIENTID, BuyDate, MachineID, CheckNo, MotorLabel, SalePrice, cusFileid)';
    sqlstr:=sqlstr+' values (:CLIENTID, :BuyDate, :MachineID, :CheckNo, :MotorLabel, :SalePrice, :cusFileid)'; end
  else if sStatus='sEdit' then
    begin
      sqlstr:='update CusFile set CLIENTID=:CLIENTID, BuyDate=:BuyDate,MachineID=:MachineID,';
      sqlstr:=sqlstr+' CheckNo=:CheckNo, MotorLabel=:MotorLabel, SalePrice=:SalePrice';
      sqlstr:=sqlstr+' where cusFileid=:cusFileid';
    end;
  try
    with DataE2.QueryTmp do
    begin
      close;
      SQL.Clear;
      SQL.Add(sqlstr);
      Parameters[0].Value:=nCLIENTID;
      Parameters[1].Value:=edtBuyDate.Text;
      Parameters[2].Value:=trim(edtMachineID.Text);
      Parameters[3].Value:=trim(edtCheckNo.Text);
      Parameters[4].Value:=trim(edtMotorLabel.Text);
      Parameters[5].Value:=StrToFloat(edtSalePrice.Text);
      if sStatus='sInsert' then
        Parameters[6].Value:=GetID('cusFileid','CusFile');
      if sStatus='sEdit' then
        Parameters[6].Value:=DataE2.QueryRpt.FieldValues['cusFileid'];
      ExecSQL;
      end;
      DataE2.QueryRpt.Close;
      DataE2.QueryRpt.Open;
  except
    ON E:exception DO
    ShowMessage(e.message);
  end;
end;

procedure TCusFileForm.BtnaddClick(Sender: TObject);
begin
  inherited;
  SaveCusFile;
  sStatus:='sInsert';
  edtClient.SetFocus;
  CLS;
end;

end.