mc_tscx.~pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

unit MC_TSCX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Buttons, Grids, DBGrids;

type
  TTSCX = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBGrid1: TDBGrid;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TStringField;
    Query1BDEDesigner4: TStringField;
    Query1BDEDesigner5: TDateTimeField;
    Query1BDEDesigner7: TStringField;
    Query1BDEDesigner8: TStringField;
    Query1BDEDesigner9: TMemoField;
    Query1BDEDesigner10: TStringField;
    Query1BDEDesigner11: TStringField;
    Query1BDEDesigner12: TStringField;
    Query1BDEDesigner13: TStringField;
    Query1BDEDesigner14: TStringField;
    BitBtn4: TBitBtn;
    Query1BDEDesigner16: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TSCX: TTSCX;

implementation

uses MC_XGTSXX, MC_MainForm, MC_TSDJ;

{$R *.DFM}

procedure TTSCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     TSCX.Release;
     TSCX:=Nil;
end;

procedure TTSCX.FormShow(Sender: TObject);
begin
     ComboBox1.ItemIndex:=0;
     ComboBox2.ItemIndex:=0;
     if MainForm.Query1.Locate('使用选项','小区投诉查询',[loCaseInsensitive]) then
        begin
             if MainForm.Query1.FielDbyName('读写').AsString='读' then
                begin
                     BitBtn2.Enabled:=False;
                     BitBtn3.Enabled:=False;
                end;
        end;
end;

procedure TTSCX.BitBtn1Click(Sender: TObject);
begin
     if ComboBox2.Text='Like' then
        begin
             if Edit1.Text='*' then
                begin
                     Query1.Close;
                     Query1.SQL.Clear;
                     Query1.SQL.Add('Select * From 投诉信息表');
                     Query1.Open;
                end
             else
                begin
                     Query1.Close;
                     Query1.SQL.Clear;
                     Query1.SQL.Add('Select * From 投诉信息表');
                     Query1.SQL.Add('Where '+ComboBox1.Items[ComboBox1.ItemIndex]+
                                            ' Like '''+Edit1.Text+'%''');
                     query1.Open;
                end;
        end;
     if ComboBox2.Text='=' then
        begin
             Query1.Close;
             Query1.SQL.Clear;
             Query1.SQL.Add('Select * From 投诉信息表');
             Query1.SQL.Add('Where '+ComboBox1.Items[comboBox1.ItemIndex]+
                   ' = '''+Edit1.Text+'''');
             Query1.Open;
        end;
     if ComboBox2.Text='>' then
        begin
             Query1.Close;
             Query1.SQL.Clear;
             Query1.SQL.Add('Select * From 投诉信息表');
             Query1.SQL.Add('Where '+ComboBox1.Items[comboBox1.ItemIndex]+' > '''+Edit1.Text+'''');
             Query1.Open;
        end;
     if ComboBox2.Text='<' then
        begin
             Query1.Close;
             Query1.SQL.Clear;
             Query1.SQL.Add('Select * From 投诉信息表');
             Query1.SQL.Add('Where '+ComboBox1.Items[comboBox1.ItemIndex]+' < '''+Edit1.Text+'''');
             Query1.Open;
        end;
end;

procedure TTSCX.BitBtn3Click(Sender: TObject);
begin
     if Query1.Active then
     if Query1.RecordCount<>0 then
     if MessageDLG('是否删除当前投诉信息?',mtCustom
        ,[mbYes,mbNo],0)=mrYes then Query1.Delete;
end;

procedure TTSCX.BitBtn2Click(Sender: TObject);
begin
     if Query1.Active then
     if Query1.recordCount<>0 then
     if Not Assigned(TSDJ) then
        begin
             TSDJ:=TTSDJ.Create(self);
             TSDJ.Table1.Locate('投诉编号',Query1.FieldByName('投诉编号').AsString,[loCaseInsensitive]);
             TSDJ.Table1.Edit;
             TSDJ.BitBtn2.Caption:='取消[&U]';
             TSDJ.BitBtn1.Caption:='保存[&S]';
             TSDJ.GroupBox1.Enabled:=True;
             TSDJ.BitBtn3.Enabled:=False;
             TSDJ.BitBtn4.Enabled:=False;
             TSDJ.BitBtn5.Enabled:=False;
             TSDJ.DBNavigator1.Enabled:=False;
             TSDJ.ShowModal;
        end;
     {if Not Assigned(XGTSXX) then
        begin
             XGTSXX:=TXGTSXX.Create(Self);
             Query1.Edit;
             XGTSXX.ShowModal;
        end;}
end;

procedure TTSCX.BitBtn4Click(Sender: TObject);
begin
     Close;
end;

end.