unitaddsupplier.pas

PosEasy收银系统源码,Pos机前后台管理代码

unit Unitaddsupplier;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls, ExtCtrls, Db, DBTables, ComCtrls;

type
  Tfraddsupplier = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    Edcname: TEdit;
    Edcratifier: TEdit;
    Edcbooker: TEdit;
    Edcstyle: TEdit;
    Edcaddress: TEdit;
    Edcconnector: TEdit;
    Edcnote: TEdit;
    Queryaddnewsupplier: TQuery;
    DataSource1: TDataSource;
    DateTimePicker1: TDateTimePicker;
    SpeedButton2: TSpeedButton;
    StaticText1: TStaticText;
    ComboBox1: TComboBox;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fraddsupplier: Tfraddsupplier;

implementation

uses main;

{$R *.DFM}

procedure Tfraddsupplier.SpeedButton1Click(Sender: TObject);
var
  tmpsql2,tmpsql1,soperator:string;
  tmpquery:tquery;
  checkpass:integer;
begin


  if edcname.Text='' then
  begin
    showmessage('请填入厂家名称');
    edcname.SetFocus;
    exit;
  end;

  if Edcratifier.Text='' then
  begin
    showmessage('请填入批准人');
    edcratifier.SetFocus;
    exit;
  end;
  if edcbooker.Text='' then
  begin
    showmessage('请填入登记人');
    edcbooker.SetFocus;
    exit;
  end;
  if edcstyle.Text='' then
  begin
    showmessage('请填入厂家类型');
    edcstyle.SetFocus;
    exit;
  end;
  if edcaddress.Text='' then
  begin
    showmessage('请填入厂家地址');
    edcaddress.SetFocus;
    exit;
  end;
  if edcconnector.Text='' then
  begin
    showmessage('请填入厂家联系人');
    edcconnector.SetFocus;
    exit;
  end;
  if ComboBox1.Text='' then
  begin
    showmessage('请填入销售部门');
    ComboBox1.SetFocus;
    exit;
  end;
  checkpass:=mainfm.checkpass(Edcbooker.Text,5,soperator);
  if checkpass=101 then exit;
    tmpsql1:='select * from supplierlistbase where cname='''+trim(edcname.text)+'''';
     with Queryaddnewsupplier do
       begin
        close;
        sql.clear;
        sql.add(tmpsql1);
        prepare;
        open;
       end;
 if not Queryaddnewsupplier.Eof then
   begin
    showmessage('该厂家已经存在,请检查');
    edcname.SetFocus;
    exit;
   end
 else
   begin //写入copebalancebase
    tmpsql2:='insert into copebalancebase (销售结算金额,已结算金额,库存结算金额,欠款金额,应付金额,进货金额,进货平衡金额,供货商,更新日期,经手人,备注)';
    tmpsql2:=tmpsql2+'values (0,0,0,0,0,0,0,'''+trim(edcname.text)+''','''+formatdatetime('20yy-mm-dd',DateTimePicker1.datetime)+''','''+trim(edcratifier.text)+''',';
    if edcnote.text='' then tmpsql2:=tmpsql2+'null)'
    else tmpsql2:=tmpsql2+''''+trim(edcnote.text)+''')';
    with Queryaddnewsupplier do
       begin
        close;
        sql.clear;
        sql.add(tmpsql2);
        prepare;
        execsql;
       end;
    //写入supplierlistbase
    tmpsql1:='insert into supplierlistbase (cname,cstyle,caddress,cconnector,ccreatedate,cratifier,cbooker,cnote,deptname)';
    tmpsql1:=tmpsql1+'values ('''+trim(edcname.text)+''','''+trim(edcstyle.text)+''','''+trim(edcaddress.text)+''','''+trim(edcconnector.text)+''',';
    tmpsql1:=tmpsql1+''''+formatdatetime('20yy-mm-dd',DateTimePicker1.datetime)+''','''+trim(edcratifier.text)+''','''+trim(edcbooker.text)+''',';
    if edcnote.text='' then tmpsql1:=tmpsql1+'null,'''+trim(ComboBox1.text)+''')'
    else tmpsql1:=tmpsql1+''''+trim(edcnote.text)+''','''+trim(ComboBox1.text)+''')';
    with Queryaddnewsupplier do
       begin
        close;
        sql.clear;
        sql.add(tmpsql1);
        prepare;
        execsql;
       end;
   end;
   mainfm.Querysupplier.close;
   mainfm.Querysupplier.open;
   showmessage('您需要的纪录已经插入,请继续');
end;

procedure Tfraddsupplier.SpeedButton2Click(Sender: TObject);
begin

mainfm.Querysupplier.Close;
mainfm.Querysupplier.Open;
fraddsupplier.Close;
end;

procedure Tfraddsupplier.FormCreate(Sender: TObject);
var
  tmpsql:string;
begin
    DateTimePicker1.DateTime:=now;
    tmpsql:='select * from deptnamebase';
    with Queryaddnewsupplier do
       begin
         close;
         sql.Clear;
         sql.Add(tmpsql);
         prepare;
         open
       end;
    while not Queryaddnewsupplier.Eof do
      begin
        ComboBox1.Items.Add(Queryaddnewsupplier['部门名称']);
        Queryaddnewsupplier.Next;
      end;

end;

end.