query1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit query1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, Db, DBTables, Menus, ExtCtrls, ADODB,
  ImgList, dxPSCore, dxPSTVLnk, dxCntner, dxTL, dxDBCtrl, dxDBTL,
  dxPSdxTLLnk, dxPSdxDBCtrlLnk, dxPSdxDBTLLnk, dxDBGrid, dxEditor,
  dxExEdtr, dxEdLib, EHGrids, DBGridEh;

type
  Tquery = class(TForm)
    dxMemo1: TdxMemo;
    DBGridEh1: TDBGridEh;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    OpenDialog1: TOpenDialog;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    SaveDialog1: TSaveDialog;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    FParentValue: Variant;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  query: Tquery;

implementation

uses MainForm1;

{$R *.DFM}

procedure Tquery.FormCreate(Sender: TObject);
begin
//  dxMemo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'readme.txt');
end;

procedure Tquery.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := cafree;
end;

procedure Tquery.BitBtn1Click(Sender: TObject);
begin
  dxMemo1.Clear;
end;

procedure Tquery.BitBtn3Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    dxMemo1.Lines.LoadFromFile(OpenDialog1.FileName);
  end;
end;

procedure Tquery.BitBtn4Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    dxMemo1.Lines.SaveToFile(SaveDialog1.FileName);
  end;
end;

procedure Tquery.BitBtn2Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := dxMemo1.Lines.Text;
  ADOQuery1.ExecSQL;
end;

procedure Tquery.BitBtn5Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := dxMemo1.Lines.Text;
  ADOQuery1.open;
end;

end.