uzhangai.pas

电信电话故障台管理系统受理应用程序原形112

unit Uzhangai;

interface

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

type
  TFzhangai = class(TForm)
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Button1: TButton;
    DataSource1: TDataSource;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DateEdit1: TDateEdit;
    DateEdit2: TDateEdit;
    Label1: TLabel;
    Label2: TLabel;
    Query1: TQuery;
    SpeedButton5: TSpeedButton;
    GroupBox3: TGroupBox;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure DateEdit1Change(Sender: TObject);
    procedure DateEdit2Change(Sender: TObject);
  private
    { Private declarations }
  public
      { Public declarations }
   queryitem:integer;
   dateitem:integer;
  end;

var
  Fzhangai: TFzhangai;

implementation

{$R *.DFM}

procedure TFzhangai.Button1Click(Sender: TObject);
begin
  close;
end;

procedure TFzhangai.SpeedButton1Click(Sender: TObject);
begin
  queryitem:=0;
end;

procedure TFzhangai.SpeedButton2Click(Sender: TObject);
begin
  queryitem:=1;
end;

procedure TFzhangai.SpeedButton3Click(Sender: TObject);
begin
  queryitem:=2;
end;

procedure TFzhangai.SpeedButton4Click(Sender: TObject);
begin
  queryitem:=3;
end;

procedure TFzhangai.RadioButton1Click(Sender: TObject);
begin
  dateitem:=0;
  DateEdit1.Enabled:=false;
  DateEdit2.Enabled:=false;
end;

procedure TFzhangai.RadioButton2Click(Sender: TObject);
begin
  dateitem:=1;
  DateEdit1.Enabled:=true;
  DateEdit2.Enabled:=true;
end;

procedure TFzhangai.FormShow(Sender: TObject);
begin
  SpeedButton1Click(self);
  RadioButton1Click(self);
end;

procedure TFzhangai.SpeedButton5Click(Sender: TObject);
var query_str :string;
    select_str:string;
    date_str  :string;
begin
  if queryitem=0 then select_str:='select * form data\障碍.dbf where ';
  if queryitem=1 then ;
  if queryitem=2 then ;
  if queryitem=3 then ;

  if dateitem=0 then ;
  if dateitem=1 then ;

end;

procedure TFzhangai.DateEdit1Change(Sender: TObject);
begin
  if  DateEdit1.Date > DateEdit2.Date then
  DateEdit2.Date:= DateEdit1.Date;
end;

procedure TFzhangai.DateEdit2Change(Sender: TObject);
begin
  if  DateEdit1.Date > DateEdit2.Date then
  DateEdit2.Date:= DateEdit1.Date;
end;

end.