gq_usaveview.pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit GQ_USaveView;

{
代码单元名称：通用综合查询工具视图保存选择窗口
从属软件：大连资金清算中心打码机管理信息系统
开发单位：大连理工大学计算机技术研究所软件工程研究室
作者：张玉洁
时间：2001,1,30
}

interface

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

type
  TGQ_FSaveView = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    NameEdit: TEdit;
    Label1: TLabel;
    Image1: TImage;
    ListBox1: TListBox;
    Label2: TLabel;
    TabSheet2: TTabSheet;
    Image2: TImage;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses GQ_UQueryMain, GQ_DataModule;

{$R *.DFM}

procedure TGQ_FSaveView.Button1Click(Sender: TObject);
var
  s, name: string;
begin
  name := NameEdit.Text;
  if name = '' then
  begin
    ShowMessage('请输入视图名称');
    Exit;
  end;

  GQ_FDataModule.ADOTable1.TableName := name;
  {  if FDataModule.ADOTable1.exists then
    begin
      ShowMessage('已经存在同名视图');
      Exit;
    end;
  }
  s := 'Create View ' + name + ' AS ' + ListBox1.Items.Text;
  ShowMessage(s);
  GQ_FDataModule.ExecSql(s);

  s := 'Insert into [TSTu] values(' + '''' + name + '''' + ',' + '''' +
    ListBox1.Items.Text + '''' + ',' + '''' + Label4.Caption + '''' + ',' + ''''
    +
    Memo1.Lines.Text + '''' + ' )';
  showmessage(s);
  GQ_FDataModule.ExecSql(s);
  ModalResult := mrOK;

end;

procedure TGQ_FSaveView.Button2Click(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TGQ_FSaveView.FormShow(Sender: TObject);
var
  i: integer;
begin
  ListBox1.Clear;
  for i := 0 to 4 do
    ListBox1.Items.Add(GQ_FDataModule.GQ_FQueryMain.SqlString[i]);
  Label4.Caption := FormatDateTime('mm/dd/yyyy', Now);

end;

end.