mrgzywbw_cx.pas

客户管理系统主要是以客户为基础

unit MRGZYWBW_CX;

interface

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

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

var
  FRM_GZYWBW_CX: TFRM_GZYWBW_CX;

implementation
  uses DATA, MRGZBWL;
{$R *.dfm}

procedure TFRM_GZYWBW_CX.BitBtn1Click(Sender: TObject);
var
   year,month,day : word;
   S,P : string;
begin

  if RadioButton3.Checked = true then
  begin
    decodedate(DateTimePicker1.Date,year,month,day);
    with database.ADO_GZBWL do
    begin
      close;
      sql.Clear;
      sql.Add('select * from tb_Client_gzbw where year(gzbw_txrq)=:a and month(gzbw_txrq)=:b and day(gzbw_txrq)=:c');
      Parameters.ParamByName('a').Value := Year;
      Parameters.ParamByName('b').Value := Month;
      Parameters.ParamByName('c').Value := Day;
      open;
    end;
    FRM_GZBWL.edit1.Text := database.ADO_GZBWL.fieldbyname('gzbw_id').AsString;
    FRM_GZBWL.edit2.Text := database.ADO_GZBWL.fieldbyname('gzbw_bt').AsString;
    FRM_GZBWL.Memo1.Text := database.ADO_GZBWL.fieldbyname('gzbw_nr').AsString;
    FRM_GZBWL.Memo2.Text := database.ADO_GZBWL.fieldbyname('gzbw_bz').AsString;
    if database.ADO_GZBWL.RecordCount<1 then
    begin
      FRM_GZBWL.DateTimePicker1.Date := now();
      FRM_GZBWL.DateTimePicker2.Date := now();
    end
    else
    begin
      FRM_GZBWL.DateTimePicker1.Date := database.ADO_GZBWL.fieldbyname('gzbw_jsrq').AsDateTime;
      FRM_GZBWL.DateTimePicker2.Date := database.ADO_GZBWL.fieldbyname('gzbw_txrq').AsDateTime;
    end;
  end
  else
  begin
    p := '';
    s := 'aa';
    if RadioButton1.Checked = true then
    begin
      p := 'gzbw_id';
      s := trim(combobox1.Text);
    end;

    if RadioButton2.Checked = true then
    begin
      p := 'gzbw_bt';
      s := trim(combobox2.Text);
    end;
    if (s <> 'aa')and(s <> '') then
    begin
      with database.ADO_GZBWL do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_Client_gzbw where '+p+'='+''''+s+'''');
        open;
      end;
      FRM_GZBWL.edit1.Text := database.ADO_GZBWL.fieldbyname('gzbw_id').AsString;
      FRM_GZBWL.edit2.Text := database.ADO_GZBWL.fieldbyname('gzbw_bt').AsString;
      FRM_GZBWL.Memo1.Text := database.ADO_GZBWL.fieldbyname('gzbw_nr').AsString;
      FRM_GZBWL.Memo2.Text := database.ADO_GZBWL.fieldbyname('gzbw_bz').AsString;
      if database.ADO_GZBWL.RecordCount<1 then
      begin
        FRM_GZBWL.DateTimePicker1.Date := now();
        FRM_GZBWL.DateTimePicker2.Date := now();
      end
      else
      begin
        FRM_GZBWL.DateTimePicker1.Date := database.ADO_GZBWL.fieldbyname('gzbw_jsrq').AsDateTime;
        FRM_GZBWL.DateTimePicker2.Date := database.ADO_GZBWL.fieldbyname('gzbw_txrq').AsDateTime;
      end;

    end
    else
    begin
      showmessage('查询条件不能为空。');
    end;

  end;
end;

procedure TFRM_GZYWBW_CX.FormShow(Sender: TObject);
begin
  with database.ADO_GZBWL do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_Client_gzbw');
    open;
  end;
  combobox1.Clear;
  combobox2.Clear;
  DateTimePicker1.Date := now();
  with database.ADO_bb do   //工作备份编号
  begin
    close;
    sql.Clear;
    sql.Add('select gzbw_id from tb_Client_gzbw');
    open;
  end;
  if database.ADO_bb.RecordCount>0 then
  begin
    while not database.ADO_bb.Eof do
    begin
      combobox1.Items.Add(Trim(database.ADO_bb.fieldbyname('gzbw_id').AsString));
      database.ADO_bb.Next;
    end;
  end;

  with database.ADO_bb do   //工作备份标题
  begin
    close;
    sql.Clear;
    sql.Add('select distinct gzbw_bt from tb_Client_gzbw');
    open;
  end;
  if database.ADO_bb.RecordCount>0 then
  begin
    while not database.ADO_bb.Eof do
    begin
      combobox2.Items.Add(Trim(database.ADO_bb.fieldbyname('gzbw_bt').AsString));
      database.ADO_bb.Next;
    end;
  end;

end;

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

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

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

end.