unitchange2.pas

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

unit Unitchange2;

interface

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

type
  TFormchange2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Query1: TQuery;
    ComboBox1: TComboBox;
    Label11: TLabel;
    Label12: TLabel;
    Edit11: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    tiaoma:string;{ Public declarations }
  end;

var
  Formchange2: TFormchange2;

implementation

uses Unitchange1;

{$R *.DFM}

procedure TFormchange2.SpeedButton1Click(Sender: TObject);
var
    tmpsql,id:string;
begin
   if ComboBox1.Text='' then
      begin
         showmessage('请选择部门');
         exit;
      end;
   id:=formchange1.id;
   tmpsql:='update goodsbase set 品名='''+trim(edit1.Text)+''',牌号='''+trim(edit2.Text)+''',规格='''+trim(edit3.Text)+''',分类='''+trim(edit4.Text)+''',等级='''+trim(edit5.Text)+''',';
   tmpsql:=tmpsql+'厂家='''+trim(edit6.Text)+''',';
   if edit7.Text='' then tmpsql:=tmpsql+'进货上限=null,'
   else tmpsql:=tmpsql+'进货上限='''+trim(edit7.Text)+''',损耗限额比='''+trim(edit8.Text)+''',检测报告编号='''+trim(edit9.Text)+''',';
   tmpsql:=tmpsql+'商标代码='''+trim(edit10.Text)+''',销售部门='''+trim(ComboBox1.Text)+''',计量单位='''+trim(edit11.Text)+'''  where 条码='''+trim(tiaoma)+'''';
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.Add(tmpsql);
   query1.Prepare;
   try query1.ExecSQL;
     except
        showmessage('数据库正忙,请稍候再试');
        exit;
     end;
   tmpsql:='update pricebase set 品名='''+trim(edit1.Text)+''',牌号='''+trim(edit2.Text)+''',规格='''+trim(edit3.Text)+''',分类='''+trim(edit4.Text)+''',等级='''+trim(edit5.Text)+''',厂家='''+trim(edit6.Text)+''',销售部门='''+trim(ComboBox1.Text)+''' where 条码='''+trim(tiaoma)+'''';
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.Add(tmpsql);
   query1.Prepare;
   try query1.ExecSQL;
     except
        showmessage('数据库正忙,请稍候再试');
        exit;
     end;
end;

procedure TFormchange2.FormCreate(Sender: TObject);
var
    id,tmpsql:string;
begin
  tmpsql:='select * from deptnamebase';
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add(tmpsql);
  query1.Prepare;
  try query1.Open;
     except
            showmessage('数据库正忙,请稍候再试');
            exit;
       end;
  while not query1.Eof do
     begin
        ComboBox1.Items.Add(query1['部门名称']);
        query1.Next;
     end;
  id:=formchange1.id;
  tmpsql:='select * from goodsbase where id='''+trim(id)+'''';
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add(tmpsql);
  query1.Prepare;
  try query1.Open;
     except
            showmessage('数据库正忙,请稍候再试');
            exit;
       end;
  edit1.Text:=query1['品名'];
  edit2.Text:=query1['牌号'];
  edit3.Text:=query1['规格'];
  edit4.Text:=query1['分类'];
  edit5.Text:=query1['等级'];
  edit6.Text:=query1['厂家'];
  edit11.Text:=query1['计量单位'];
  if query1['进货上限']=null then edit7.Text:=''
  else edit7.Text:=query1['进货上限'];
  edit8.Text:=query1['损耗限额比'];
  if query1['检测报告编号']=null then edit9.Text:=''
  else edit9.Text:=query1['检测报告编号'];
  if query1['商标代码']=null then edit10.Text:=''
  else edit10.Text:=query1['商标代码'];
  tiaoma:=query1['条码'];
end;

procedure TFormchange2.SpeedButton2Click(Sender: TObject);
var
  tmpsql:string;
begin
tmpsql:='select * from goodsbase';
formchange1.Query1.Close;
formchange1.Query1.SQL.Clear;
formchange1.Query1.SQL.Add(tmpsql);
formchange1.Query1.Prepare;
formchange1.Query1.Open;
formchange2.Close;
end;

end.