unitchangesuppliermessage.pas

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

unit Unitchangesuppliermessage;

interface

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

type
  Tfrmchangesuppliermessage = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edcname: TEdit;
    Edcratifier: TEdit;
    Edcbooker: TEdit;
    Edcstyle: TEdit;
    Edcaddress: TEdit;
    Edcconnector: TEdit;
    Edcnote: TEdit;
    DateTimePicker1: TDateTimePicker;
    Querychangesuppliermessage: TQuery;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmchangesuppliermessage: Tfrmchangesuppliermessage;

implementation
uses main;
{$R *.DFM}

procedure Tfrmchangesuppliermessage.FormCreate(Sender: TObject);
begin
Edcname.Text:=mainfm.Querysupplier['厂家名称'];
DateTimePicker1.DateTime:=now;
Edcratifier.Text:=mainfm.Querysupplier['批准人'];
Edcstyle.Text:=mainfm.Querysupplier['厂家类型'];
Edcaddress.Text:=mainfm.Querysupplier['厂家地址'];
end;

procedure Tfrmchangesuppliermessage.SpeedButton1Click(Sender: TObject);
var
  tmpsql,soperator:string;
  checkpass:integer;
begin
 if Edcbooker.Text='' then
    begin
       showmessage('请输入经手人');
       edcbooker.SetFocus;
       exit;
    end;
 checkpass:=mainfm.checkpass(Edcbooker.Text,5,soperator);
 if checkpass=101 then exit;
 tmpsql:='update supplierlistbase set ccreatedate='''+formatdatetime('20yy-mm-dd',DateTimePicker1.DateTime)+''' where cname='''+trim(mainfm.Querysupplier['厂家名称'])+'''';
 with Querychangesuppliermessage do
  begin
    close;
    sql.Clear;
    sql.Add(tmpsql);
    prepare;
    execsql;
  end;
 if edcstyle.text<>'' then tmpsql:='update supplierlistbase set cstyle='''+trim(edcstyle.text)+''' where cname='''+trim(mainfm.Querysupplier['厂家名称'])+'''';
 with Querychangesuppliermessage do
  begin
    close;
    sql.Clear;
    sql.Add(tmpsql);
    prepare;
    execsql;
  end;
 if Edcaddress.text<>'' then tmpsql:='update supplierlistbase set caddress='''+trim(edcaddress.text)+''' where cname='''+trim(mainfm.Querysupplier['厂家名称'])+'''';
 with Querychangesuppliermessage do
  begin
    close;
    sql.Clear;
    sql.Add(tmpsql);
    prepare;
    execsql;
  end;
 if Edcratifier.text<>'' then tmpsql:='update supplierlistbase set cratifier='''+trim(edcratifier.text)+''' where cname='''+trim(mainfm.Querysupplier['厂家名称'])+'''';
 with Querychangesuppliermessage do
  begin
    close;
    sql.Clear;
    sql.Add(tmpsql);
    prepare;
    execsql;
  end;
 if Edcconnector.Text<>'' then tmpsql:='update supplierlistbase set cconnector='''+trim(Edcconnector.text)+''' where cname='''+trim(mainfm.Querysupplier['厂家名称'])+'''';
 with Querychangesuppliermessage do
  begin
    close;
    sql.Clear;
    sql.Add(tmpsql);
    prepare;
    execsql;
  end;
 if Edcbooker.Text<>'' then tmpsql:='update supplierlistbase set cbooker='''+trim(Edcbooker.text)+''' where cname='''+trim(mainfm.Querysupplier['厂家名称'])+'''';
 with Querychangesuppliermessage do
  begin
    close;
    sql.Clear;
    sql.Add(tmpsql);
    prepare;
    execsql;
  end;
 if Edcnote.Text<>'' then tmpsql:='update supplierlistbase set cnote='''+trim(Edcnote.text)+''' where cname='''+trim(mainfm.Querysupplier['厂家名称'])+'''';
 with Querychangesuppliermessage do
  begin
    close;
    sql.Clear;
    sql.Add(tmpsql);
    prepare;
    execsql;
  end;
 mainfm.Querysupplier.Close;
 mainfm.Querysupplier.Open;
 frmchangesuppliermessage.close;
 end;

procedure Tfrmchangesuppliermessage.SpeedButton2Click(Sender: TObject);
begin
  frmchangesuppliermessage.close
end;

end.