unitshenhe.pas

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

unit Unitshenhe;

interface

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

type
  Tfrmshenhe = class(TForm)
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query2: TQuery;
    Table1: TTable;
    Edit1: TEdit;
    Label1: TLabel;
    BitBtn3: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    i:integer;
    shenhename:string;{ Public declarations }
  end;

var
  frmshenhe: Tfrmshenhe;

implementation

uses main, Unitshenhename;

{$R *.DFM}

procedure Tfrmshenhe.BitBtn2Click(Sender: TObject);
begin
   frmshenhe.Close;
end;

procedure Tfrmshenhe.FormCreate(Sender: TObject);
var
   tmpsql:string;
begin
    DBGrideh1.ReadOnly:=false;
    DBGridEh1.Columns[1].ReadOnly:=false;
    DBGridEh1.Columns[1].FieldName:='选择';
   if mainfm.shenheint=0 then
      begin
         i:=0;
         DBGridEh1.Columns[1].fieldname:='供货商';
         DBGridEh1.Columns[2].fieldname:='品名';
         DBGridEh1.Columns[3].fieldname:='牌号';
         DBGridEh1.Columns[4].fieldname:='售价';
         DBGridEh1.Columns[5].fieldname:='最后更新日期';
         table1.TableName:='goodsbase';
         {tmpsql:='select * from goodsbase where 当前库存 is null and 审核人 is null';
         query1.Close;
         query1.SQL.Clear;
         query1.SQL.Add(tmpsql);
         query1.Prepare;
         query1.Open;
         //query1.Edit;}
          BitBtn3.Enabled:=false;
      end;
   if mainfm.shenheint=1 then
      begin
         i:=1;
         DBGridEh1.Columns[1].fieldname:='厂家';
         DBGridEh1.Columns[2].fieldname:='品名';
         DBGridEh1.Columns[3].fieldname:='牌号';
         DBGridEh1.Columns[4].fieldname:='数量';
         DBGridEh1.Columns[5].fieldname:='进货日期';
         DBGridEH1.Columns.Add;
         DBGridEh1.Columns[6].FieldName:='出库单号';
         table1.TableName:='purchaserecordbase';
         {tmpsql:='select * from purchaserecordbase where  审核人 is null';
         query1.Close;
         query1.SQL.Clear;
         query1.SQL.Add(tmpsql);
         query1.Prepare;
         query1.Open;
         //query1.Edit;}
          BitBtn3.Enabled:=true;
      end;
   table1.Open;
end;

procedure Tfrmshenhe.BitBtn1Click(Sender: TObject);
var
   tmpsql:string;
begin
   application.CreateForm(Tfrmshenhename,frmshenhename);
   frmshenhename.ShowModal;
   
   //if table1.FieldByName('选择').asstring <> dbgrideh1.Fields[0].AsString then
      begin
         table1.Edit;
         table1['选择']:=dbgrideh1.Fields[0].AsBoolean;
         table1.Post;
      end;

   if shenhename<>'' then
      begin
         if i=0  then tmpsql:='update goodsbase set 审核人='''+trim(shenhename)+''' where 选择=-1 and 审核人 is null';
         if i=1  then tmpsql:='update purchaserecordbase set 审核人='''+trim(shenhename)+''' where 选择=-1 and 审核人 is null';
         query2.Close;
         query2.SQL.Clear;
         query2.SQL.Add(tmpsql);
         query2.Prepare;
         try
            query2.ExecSQL;
            messagebox(handle,'所选记录已经审核','提示',mb_iconinformation);
         except
            messagebox(handle,'数据库连接出错，请检查','错误',mb_iconerror);
            exit;
         end;
       end



   else exit;
end;

procedure Tfrmshenhe.BitBtn3Click(Sender: TObject);
begin
   table1.Locate('出库单号',Edit1.Text,[locaseinsensitive]);
end;

end.