uselectaccountinfo.pas

天涯進銷存系統

unit uSelectAccountinfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, LBMorphVCLBase, LBMorphButton, jpeg, ExtCtrls, LBCtrls;

type
  TfrmSelectAccountinfo = class(TForm)
    Image2: TImage;
    Image1: TImage;
    SysCloseButton: TLBMorphButton;
    WindowCaption: TLabel;
    Panel4: TPanel;
    Panel6: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    LBEdit1: TLBEdit;
    LBComboBox1: TLBComboBox;
    StarDateEdit: TLBEdit;
    EndDateEdit: TLBEdit;
    LBEditButton1: TLBEditButton;
    LBEditButton2: TLBEditButton;
    EnturButton: TLBButton;
    CancelButton: TLBButton;
    procedure FormShow(Sender: TObject);
    procedure EnturButtonClick(Sender: TObject);
    procedure LBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EndDateEditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SysCloseButtonClick(Sender: TObject);
    procedure LBEditButton2Click(Sender: TObject);
    procedure LBEditButton1Click(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSelectAccountinfo: TfrmSelectAccountinfo;

implementation

uses uPublicvar;

{$R *.dfm}

procedure TfrmSelectAccountinfo.FormShow(Sender: TObject);
begin
  StarDateEdit.Text:=FormatDateTime('yyyy-mm-01', Date);
  EndDateEdit.Text:=FormatDateTime('yyyy-mm-dd', Date);
  case SelectBillType of
  1, 4:
    begin
      Label1.Caption:='客户编号：';
      Label2.Caption:='客户名称：';
      SetListData('select ClientName From ClientInfo', LBComboBox1);
    end;
  2:
    begin
      Label1.Caption:='供应商编号：';
      Label2.Caption:='供应商名称：';
      SetListData('select ProviderName From Providerinfo', LBComboBox1);
    end;
  3,5:
    begin
      Label1.Caption:='内部单位编号：';
      Label2.Caption:='内部单位名称：';
      SetListData('select FilialeName From Filialeinfo', LBComboBox1);
    end;
  end;
end;

procedure TfrmSelectAccountinfo.EnturButtonClick(Sender: TObject);
var
  sql: string;
begin
  sql:='';
  case SelectBillType of
  1, 3:
    begin
      if Trim(LBEdit1.Text)<>'' then
         sql:=sql+' and CLIENTCODE Like '+#39+'%'+Trim(LBEdit1.Text)+'%'+#39;
      if Trim(LBComboBox1.Text)<>'' then
         sql:=sql+' and CLIENTNAME Like '+#39+'%'+Trim(LBComboBox1.Text)+'%'+#39;
    end;
  2, 4, 5:
    begin
      if Trim(LBEdit1.Text)<>'' then
         sql:=sql+' and PROVIDERCODE Like '+#39+'%'+Trim(LBEdit1.Text)+'%'+#39;
      if Trim(LBComboBox1.Text)<>'' then
         sql:=sql+' and PROVIDERNAME Like '+#39+'%'+Trim(LBComboBox1.Text)+'%'+#39;
    end;
  end;
  Sql:=Sql+' and BillDate Between '+#39+StarDateEdit.Text+#39+
           ' and '+#39+EndDateEdit.Text+#39;
  SelectSql:=sql;         
  Close;
end;

procedure TfrmSelectAccountinfo.LBEdit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=13 then  Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TfrmSelectAccountinfo.EndDateEditKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=13 then EnturButtonClick(Nil);
end;

procedure TfrmSelectAccountinfo.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then Close;
end;

procedure TfrmSelectAccountinfo.SysCloseButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmSelectAccountinfo.LBEditButton2Click(Sender: TObject);
begin
  GetXoY(LBEditButton2);
  if StarDateEdit.Text<>'' then
    sDate:=StrToDate(StarDateEdit.Text)
  else
    sDate:=Date;
  SelectDate;
  StarDateEdit.Text:=DateToStr(SDate);
end;

procedure TfrmSelectAccountinfo.LBEditButton1Click(Sender: TObject);
begin
  GetXoY(LBEditButton1);
  if EndDateEdit.Text<>'' then
    sDate:=StrToDate(EndDateEdit.Text)
  else
    sDate:=Date;
  SelectDate;
  EndDateEdit.Text:=DateToStr(SDate);
end;

procedure TfrmSelectAccountinfo.Image1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, wm_SysCommand ,$F012, 0);
end;

end.