reworkunit.pas

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

unit ReworkUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OutlookBtn, StdCtrls;

type
  Trework = class(TForm)
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    OutlookBtn1: TOutlookBtn;
    OutlookBtn2: TOutlookBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure OutlookBtn1Click(Sender: TObject);
    procedure OutlookBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rework: Trework;

implementation

uses ModuleUnit1;

{$R *.DFM}

procedure Trework.FormCreate(Sender: TObject);
begin
  StaticText1.Caption:=ModuleForm1.ModuleQuery1.fields[0].FieldName;
  StaticText2.Caption:=ModuleForm1.ModuleQuery1.fields[1].FieldName;
  StaticText3.Caption:=ModuleForm1.ModuleQuery1.fields[2].FieldName;
  Edit1.Text:=ModuleForm1.ModuleQuery1.fields[0].AsString;
  Edit2.Text:=ModuleForm1.ModuleQuery1.fields[1].AsString;
  Edit3.Text:=ModuleForm1.ModuleQuery1.fields[2].AsString;

end;

procedure Trework.OutlookBtn1Click(Sender: TObject);
begin
  with ModuleForm1 do
    begin
      ModuleQuery1.Close;
      ModuleQuery1.SQL.Clear;
      ModuleQuery1.SQL.Add('update '+MTTN+' set '+StaticText2.Caption+'='''+trim(Edit2.Text)+''','+StaticText3.Caption+'='''+Edit3.Text+''' where '+StaticText1.Caption+'='''+Edit1.Text+'''');
      ModuleQuery1.ExecSQL;
      ModuleQuery1.Close;
      ModuleQuery1.SQL.Clear;
      ModuleQuery1.SQL.Add('select * from '+MTTN+'');
      ModuleQuery1.Open;
      DBGridEh1.Columns[0].Width:=213;
      DBGridEh1.Columns[1].Width:=213;
      DBGridEh1.Columns[2].Width:=213;
    end;
end;

procedure Trework.OutlookBtn2Click(Sender: TObject);
begin
  Rework.Release;
  Rework.Close;
end;

end.