addunit.pas

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

unit AddUnit;

interface

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

type
  Taddform = 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
  addform: Taddform;

implementation

uses ModuleUnit1;

{$R *.DFM}

procedure Taddform.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;

end;

procedure Taddform.OutlookBtn1Click(Sender: TObject);
var
    tmpsql:string;
begin
  with ModuleForm1 do
    begin
      tmpsql:='select * from '+MTTN+' where '+selectname+'='''+trim(edit1.Text)+'''';
      ModuleQuery1.Close;
      ModuleQuery1.SQL.Clear;
      ModuleQuery1.SQL.Add(tmpsql);
      ModuleQuery1.Open;
      if not Modulequery1.Eof then
        begin
          showmessage('该纪录已存在,请重新输入');
          exit;
        end;
      ModuleQuery1.Close;
      ModuleQuery1.SQL.Clear;
      ModuleQuery1.SQL.Add('insert into '+MTTN+' values('''+trim(Edit1.Text)+''','''+trim(Edit2.Text)+''','''+Edit3.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 Taddform.OutlookBtn2Click(Sender: TObject);
begin
  AddForm.Release;
  AddForm.Close;
end;

end.