mrjy_cx.pas

生产管理系统：系统具有数据备份及数据还原功能。能够保证系统数据的安全性方便的全方位的数据查询。在相应的权限下

unit MRJY_CX;

interface

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

type
  TFRM_JY_CX = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    RadioButton3: TRadioButton;
    DateTimePicker1: TDateTimePicker;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_JY_CX: TFRM_JY_CX;

implementation

uses MR_DATA, MRJY;

{$R *.dfm}

procedure TFRM_JY_CX.FormShow(Sender: TObject);
begin
  combobox1.Clear;
  combobox2.Text := '';
  DateTimePicker1.Date := now();
  with data.ADOc do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_jy');
    open;
  end;
  if data.ADOc.RecordCount>0 then
  begin
    combobox1.Items.Add(data.ADOc.fieldbyname('scddh').AsString);
    data.ADOc.Next;
  end;

end;

procedure TFRM_JY_CX.BitBtn1Click(Sender: TObject);
var
  s,p : string;
  year,month,day : word;
begin
  p := 'aa';
  if RadioButton1.Checked = true then
  begin
    s := 'scddh';
    p := combobox1.Text;
  end;
  if RadioButton2.Checked = true then
  begin
    s := 'jylx';
    p := combobox2.Text;
  end;
  if RadioButton3.Checked = true then
  begin
    s := 'll';
    decodedate(DateTimePicker1.Date,year,month,day);
    with data.ADOa do
    begin
      close;
      sql.Clear;
      sql.Add('select * from tb_jy where year(jytime)='+floattostr(year)+' and month(jytime)='+floattostr(month)+' and day(jytime)='+floattostr(day));
      open;
    end;
    if data.ADOa.RecordCount>0 then
    begin
      FRM_JY.edit1.Text := data.ADOa.fieldbyname('jyid').AsString;
      FRM_JY.combobox1.Text := data.ADOa.fieldbyname('scddh').AsString;
      FRM_JY.edit2.Text := data.ADOa.fieldbyname('cpmc').AsString;
      FRM_JY.combobox2.Text := data.ADOa.fieldbyname('jylx').AsString;
      FRM_JY.edit3.Text := floattostr(data.ADOa.fieldbyname('zs').AsFloat);
      FRM_JY.edit4.Text := floattostr(data.ADOa.fieldbyname('jysl').AsFloat);
      FRM_JY.edit5.Text := data.ADOa.fieldbyname('hgl').AsString;
      FRM_JY.DateTimePicker1.Date := data.ADOa.fieldbyname('jytime').AsDateTime;
      FRM_JY.edit6.Text := data.ADOa.fieldbyname('jyr').AsString;
      FRM_JY.ToolButton8.Enabled := true;
      FRM_JY.ToolButton9.Enabled := true;
      FRM_JY.ToolButton10.Enabled := true;
      FRM_JY.ToolButton11.Enabled := true;
    end
    else
    begin
      FRM_JY.edit1.Text := '';
      FRM_JY.combobox1.Text := '';
      FRM_JY.edit2.Text := '';
      FRM_JY.combobox2.Text := '';
      FRM_JY.edit3.Text := '';
      FRM_JY.edit4.Text := '';
      FRM_JY.edit5.Text := '';
      FRM_JY.DateTimePicker1.Date := now();
      FRM_JY.edit6.Text := '';
      FRM_JY.ToolButton8.Enabled := false;
      FRM_JY.ToolButton9.Enabled := false;
      FRM_JY.ToolButton10.Enabled := false;
      FRM_JY.ToolButton11.Enabled := false;
    end;
  end;
  if s <> 'll' then
  begin
    if (p = '')or(p = 'aa') then
    begin
      showmessage('查询条件不能为空。');
    end
    else
    begin
        with data.ADOa do
        begin
          close;
          sql.Clear;
          sql.Add('select * from tb_jy where '+s+'='+''''+p+'''');
          open;
        end;
        if data.ADOa.RecordCount>0 then
        begin
          FRM_JY.edit1.Text := data.ADOa.fieldbyname('jyid').AsString;
          FRM_JY.combobox1.Text := data.ADOa.fieldbyname('scddh').AsString;
          FRM_JY.edit2.Text := data.ADOa.fieldbyname('cpmc').AsString;
          FRM_JY.combobox2.Text := data.ADOa.fieldbyname('jylx').AsString;
          FRM_JY.edit3.Text := floattostr(data.ADOa.fieldbyname('zs').AsFloat);
          FRM_JY.edit4.Text := floattostr(data.ADOa.fieldbyname('jysl').AsFloat);
          FRM_JY.edit5.Text := data.ADOa.fieldbyname('hgl').AsString;
          FRM_JY.DateTimePicker1.Date := data.ADOa.fieldbyname('jytime').AsDateTime;
          FRM_JY.edit6.Text := data.ADOa.fieldbyname('jyr').AsString;
          FRM_JY.ToolButton8.Enabled := true;
          FRM_JY.ToolButton9.Enabled := true;
          FRM_JY.ToolButton10.Enabled := true;
          FRM_JY.ToolButton11.Enabled := true;
        end
        else
        begin
          FRM_JY.edit1.Text := '';
          FRM_JY.combobox1.Text := '';
          FRM_JY.edit2.Text := '';
          FRM_JY.combobox2.Text := '';
          FRM_JY.edit3.Text := '';
          FRM_JY.edit4.Text := '';
          FRM_JY.edit5.Text := '';
          FRM_JY.DateTimePicker1.Date := now();
          FRM_JY.edit6.Text := '';
          FRM_JY.ToolButton8.Enabled := false;
          FRM_JY.ToolButton9.Enabled := false;
          FRM_JY.ToolButton10.Enabled := false;
          FRM_JY.ToolButton11.Enabled := false;
        end;
    end;
  end;


end;

procedure TFRM_JY_CX.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TFRM_JY_CX.RadioButton1Click(Sender: TObject);
begin
  combobox2.Text := '';
end;

procedure TFRM_JY_CX.RadioButton2Click(Sender: TObject);
begin
  combobox1.Text := '';
end;

procedure TFRM_JY_CX.RadioButton3Click(Sender: TObject);
begin
  combobox1.Text := '';
  combobox2.Text := '';
  DateTimePicker1.Date := now();
end;

end.