fyxssdz.~pas

功能强大,画面精致.是一款不可多得的进销存管理系统 acess数据库,用户名:yuansheng 密码:yuansheng 建议在xp系统下运行。

unit Fyxssdz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Fbase, DB, ADODB, Grids, DBGrids, ComCtrls, StdCtrls, ExtCtrls,
  Buttons, ToolWin;

type
  TF_yxssdz = class(TF_base)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_yxssdz: TF_yxssdz;

implementation
  uses Fdm,Fxswldz;
{$R *.dfm}

procedure TF_yxssdz.FormShow(Sender: TObject);
begin
  inherited;
  DateTimePicker1.Date:=now();
  DateTimePicker2.Date:=now();
  if F_yxssdz.Caption='与代理商对账'  then
    with Adoquery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select unitcode,fullname,gathering,payment,gathering-payment dd from tb_units a join (select units from tb_sell_main where billcode like ''%xs%'' group by units) b on b.units=a.fullname order by unitcode');
      Open;
    end;
  if F_yxssdz.Caption='与供应商对账'  then
    with Adoquery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select unitcode,fullname,gathering,payment,gathering-payment dd from tb_units a join (select units from tb_warehouse_main where billcode like ''%jh%'' group by units) b on b.units=a.fullname order by unitcode');
      Open;
    end;
  if F_yxssdz.Caption='应收应付' then
    with Adoquery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select unitcode,fullname,gathering,payment,gathering-payment dd from tb_units order by unitcode');
      Open;
    end;
  if Adoquery1.RecordCount=0 then
    Application.MessageBox('无记录','提示',mb_ok);
end;

procedure TF_yxssdz.SpeedButton2Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TF_yxssdz.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  Panel1.Visible:=not(panel1.Visible);
  if Panel1.Visible=True then Exit;
  Application.CreateForm(TF_xswldz, F_xswldz);
  F_xswldz.ShowModal;
  F_xswldz.Free;
end;

procedure TF_yxssdz.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  inherited;
  if Application.MessageBox('是否退出？','提示',mb_yesno)=Id_no then
    Canclose:=False;
end;

end.