uaddcheck.pas

来自「DELPHI编程入门篇.从基础入手,浅显易懂,一定物有所值.」· PAS 代码 · 共 109 行

unit Uaddcheck;

interface

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

type
  Tfrmcheckadd = class(TForm)
    Label1: TLabel;
    DatePicker: TDateTimePicker;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmcheckadd: Tfrmcheckadd;
  ifadd:boolean;

implementation

uses Ucheck, Udatamodule;

{$R *.dfm}

procedure Tfrmcheckadd.FormCreate(Sender: TObject);
begin
  ifadd:=false;
  datepicker.Date:=frmcheck.DatePicker.Date;
  combobox1.Items:=frmcheck.ComboBox1.Items;
end;

procedure Tfrmcheckadd.Button1Click(Sender: TObject);
var
  sfilid:string;
  arow:integer;
begin
  if combobox1.Text <> '' then
  begin
    adoquery1.SQL.Text:='select filid from filiale where filname = '''+combobox1.Text+'''';
    adoquery1.Open;
    sfilid:= adoquery1.Fields[0].AsString;
    adoquery1.Close;
    adoquery1.SQL.Text:='select busary.prid,pluinfo.prname,'
    +'busary.busanum from busary inner join pluinfo on busary.prid = pluinfo.prid'
    +' where busary.filid = '''+sfilid+'''';
    adoquery1.Open;
    if adoquery1.RecordCount > 0 then
    begin
      frmcheck.DatePicker.Date:=datepicker.Date;
      frmcheck.Edit1.Text:=sfilid;
      frmcheck.ComboBox1.ItemIndex:=combobox1.ItemIndex;
      with frmcheck.StringGrid1 do
      begin
        while not adoquery1.eof do
        begin
          if cells[0,rowcount-1] <>'' then
            rowcount:=rowcount+1;
          arow:=rowcount-1;
          cells[0,arow]:=frmcheck.Edit2.Text;
          cells[1,arow]:=adoquery1.FieldValues['prid'];
          cells[2,arow]:=adoquery1.FieldValues['prname'];
          cells[3,arow]:=adoquery1.FieldValues['busanum'];
          adoquery1.Next;
        end;
        ifadd:=true;
        self.Close;
      end;
    end;
  end
  else
  showmessage('请选择分店');
end;

procedure Tfrmcheckadd.Button2Click(Sender: TObject);
begin
  self.Close;
end;

procedure Tfrmcheckadd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if not ifadd then
    with frmcheck do
    begin
      speedbutton1.Enabled:=true;
      speedbutton2.Enabled:=true;
      speedbutton3.Enabled:=true;
      speedbutton4.Enabled:=true;
      speedbutton5.Enabled:=false;
      speedbutton6.Enabled:=false;
      combobox1.Enabled:=true;
    end;
end;

end.