fzct.pas

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

unit Fzct;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList, XPStyleActnCtrls, ActnMan, Menus, ImgList, Buttons,
  ToolWin, ComCtrls, StdStyleActnCtrls, ActnCtrls, StdCtrls,shellapi,
  TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart, jpeg, XPMan;

type
  TF_zct = class(TForm)
    ActionManager1: TActionManager;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    Action5: TAction;
    Action6: TAction;
    Action7: TAction;
    Action8: TAction;
    Action9: TAction;
    Action10: TAction;
    Action11: TAction;
    Action12: TAction;
    Action13: TAction;
    Action14: TAction;
    Action15: TAction;
    Action16: TAction;
    Action17: TAction;
    Action18: TAction;
    Action19: TAction;
    Action20: TAction;
    Action21: TAction;
    Action22: TAction;
    Action23: TAction;
    Action24: TAction;
    Action25: TAction;
    Action26: TAction;
    Action27: TAction;
    Action28: TAction;
    Action29: TAction;
    Action30: TAction;
    Action31: TAction;
    Action32: TAction;
    Action35: TAction;
    Action36: TAction;
    Action37: TAction;
    Action38: TAction;
    Action39: TAction;
    Action40: TAction;
    Action41: TAction;
    Action44: TAction;
    ActionToolBar1: TActionToolBar;
    Action46: TAction;
    Action47: TAction;
    Action50: TAction;
    Action52: TAction;
    Action53: TAction;
    StatusBar1: TStatusBar;
    CheckBox1: TCheckBox;
    Action34: TAction;
    Action42: TAction;
    Action43: TAction;
    Panel1: TPanel;
    ImageList1: TImageList;
    Image1: TImage;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    SpeedButton1: TSpeedButton;
    ToolButton3: TToolButton;
    SpeedButton2: TSpeedButton;
    ToolButton5: TToolButton;
    SpeedButton3: TSpeedButton;
    ToolButton4: TToolButton;
    SpeedButton4: TSpeedButton;
    ToolButton2: TToolButton;
    SpeedButton5: TSpeedButton;
    ToolButton6: TToolButton;
    SpeedButton6: TSpeedButton;
    ToolButton7: TToolButton;
    SpeedButton7: TSpeedButton;
    ToolButton8: TToolButton;
    TreeView1: TTreeView;
    XPManifest1: TXPManifest;
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
    procedure Action4Execute(Sender: TObject);
    procedure Action5Execute(Sender: TObject);
    procedure Action6Execute(Sender: TObject);
    procedure Action7Execute(Sender: TObject);
    procedure Action8Execute(Sender: TObject);
    procedure Action9Execute(Sender: TObject);
    procedure Action10Execute(Sender: TObject);
    procedure Action11Execute(Sender: TObject);
    procedure Action12Execute(Sender: TObject);
    procedure Action13Execute(Sender: TObject);
    procedure Action14Execute(Sender: TObject);
    procedure Action15Execute(Sender: TObject);
    procedure Action16Execute(Sender: TObject);
    procedure Action17Execute(Sender: TObject);
    procedure Action18Execute(Sender: TObject);
    procedure Action19Execute(Sender: TObject);
    procedure Action20Execute(Sender: TObject);
    procedure Action21Execute(Sender: TObject);
    procedure Action22Execute(Sender: TObject);
    procedure Action23Execute(Sender: TObject);
    procedure Action24Execute(Sender: TObject);
    procedure Action25Execute(Sender: TObject);
    procedure Action26Execute(Sender: TObject);
    procedure Action27Execute(Sender: TObject);
    procedure Action28Execute(Sender: TObject);
    procedure Action29Execute(Sender: TObject);
    procedure Action30Execute(Sender: TObject);
    procedure Action31Execute(Sender: TObject);
    procedure Action32Execute(Sender: TObject);
    procedure Action34Execute(Sender: TObject);
    procedure Action35Execute(Sender: TObject);
    procedure Action36Execute(Sender: TObject);
    procedure Action38Execute(Sender: TObject);
    procedure Action39Execute(Sender: TObject);
    procedure Action40Execute(Sender: TObject);
    procedure Action41Execute(Sender: TObject);
    procedure Action42Execute(Sender: TObject);
    procedure Action43Execute(Sender: TObject);
    procedure Action44Execute(Sender: TObject);
    Function getpy(hzchar:string):char;
    procedure FormShow(Sender: TObject);
    procedure Action46Execute(Sender: TObject);
    procedure Action47Execute(Sender: TObject);
    procedure Action50Execute(Sender: TObject);
    procedure Action52Execute(Sender: TObject);
    procedure Action53Execute(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton25Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure TreeView1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

    wf:integer;     //标记哪个窗体调用基本信息窗体 进货为1,进货退货为2
                    //销售为3,销售退货为4,进货统计为5,付款为6,收款为7,现金费用为8,一般费用为9，操作员为10
    jt:integer;     //标记哪个窗体调用统计条件窗体 进货统计为1,销售统计为2
                    //商品销售排行榜为3
    mx:integer;     //标记哪个窗体调用商品明细窗体 库存状况为1，进销存变动窗体为2
  end;

var
  F_zct: TF_zct;

implementation
  uses Fback,Fusers,Ffyzc,Fysyf,Fybfy,Fsk,Ffk,Fbdwxc,Fxjfy,Fkcpd,Fkczk,Frlb,Fkcbd,Fkcsp,Fwldw,Fzycx,Ffylx,Fjhd,Fjhthd,Fxsd,Fxsthd,Fjhfx,Fjhtj,Fxstj,Fyxssdz,Fxscb,Fxsphb,Fyxszk,
  Fygysdz,Flog,Frestore, Fgywldz,Fdm,Fsellbmp,Fdisplay,Fmyunits;

{$R *.dfm}

Function TF_zct.getpy(hzchar:string):char;//获得汉字拼音首位字母的函数
begin
  case word(hzchar[1]) shl 8+word(hzchar[2]) of
    $B0A1..$B0C4:RESULT:='A';
    $B0C5..$B2C0:RESULT:='B';
    $B2C1..$B4ED:RESULT:='C';
    $B4EE..$B6E9:RESULT:='D';
    $B6EA..$B7A1:RESULT:='E';
    $B7A2..$B8C0:RESULT:='F';
    $B8C1..$B9FD:RESULT:='G';
    $B9FE..$BBF6:RESULT:='H';
    $BBF7..$BFA5:RESULT:='J';
    $BFA6..$C0AB:RESULT:='K';
    $C0AC..$C2E7:RESULT:='L';
    $C2E8..$C4C2:RESULT:='M';
    $C4C3..$C5B5:RESULT:='N';
    $C5B6..$C5BD:RESULT:='O';
    $C5BE..$C6D9:RESULT:='P';
    $C6DA..$C8BA:RESULT:='Q';
    $C8BB..$C8F5:RESULT:='R';
    $C8F6..$CBF9:RESULT:='S';
    $CBFA..$CDD9:RESULT:='T';
    $CDDA..$CEF3:RESULT:='W';
    $CEF4..$D188:RESULT:='X';
    $D1B9..$D4D0:RESULT:='Y';
    $D4D1..$D7F9:RESULT:='Z';
  else
    RESULT:=char(32);
  end;
end;
procedure TF_zct.Action1Execute(Sender: TObject);
begin
  //
end;

procedure TF_zct.Action2Execute(Sender: TObject);
begin
  //进货单录入
  Application.CreateForm(TF_jhd, F_jhd);
  F_jhd.ShowModal;
  F_jhd.Free;
end;

procedure TF_zct.Action3Execute(Sender: TObject);
begin
  //进货退货单录入
  Application.CreateForm(TF_jhthd, F_jhthd);
  F_jhthd.ShowModal;
  F_jhthd.Free;
end;

procedure TF_zct.Action4Execute(Sender: TObject);
begin
  //
end;

procedure TF_zct.Action5Execute(Sender: TObject);
begin
  //销售单录入
  Application.CreateForm(TF_xsd, F_xsd);
  F_xsd.ShowModal;
  F_xsd.Free;
end;

procedure TF_zct.Action6Execute(Sender: TObject);
begin
  //销售退货单录入
  Application.CreateForm(TF_xsthd, F_xsthd);
  F_xsthd.ShowModal;
  F_xsthd.Free;
end;

procedure TF_zct.Action7Execute(Sender: TObject);
begin
  //
end;

procedure TF_zct.Action8Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_kcpd, F_kcpd);
  F_kcpd.ShowModal;
  F_kcpd.Free;
end;

procedure TF_zct.Action9Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_kcbd, F_kcbd);
  F_kcbd.ShowModal;
  F_kcbd.Free;
end;

procedure TF_zct.Action10Execute(Sender: TObject);
begin
  //
end;

procedure TF_zct.Action11Execute(Sender: TObject);
begin
  //收款
  Application.CreateForm(TF_sk, F_sk);
  F_sk.ShowModal;
  F_sk.Free;
end;

procedure TF_zct.Action12Execute(Sender: TObject);
begin
  //付款
  Application.CreateForm(TF_fk, F_fk);
  F_fk.ShowModal;
  F_fk.Free;
end;

procedure TF_zct.Action13Execute(Sender: TObject);
begin
  //一般机费用
  Application.CreateForm(TF_ybfy, F_ybfy);
  F_ybfy.ShowModal;
  F_ybfy.Free;
end;

procedure TF_zct.Action14Execute(Sender: TObject);
begin
  //现金费用
  Application.CreateForm(TF_xjfy, F_xjfy);
  F_xjfy.ShowModal;
  F_xjfy.Free;
end;

procedure TF_zct.Action15Execute(Sender: TObject);
begin
  //
end;

procedure TF_zct.Action16Execute(Sender: TObject);
begin
  //库存商品
  Application.CreateForm(TF_kcsp, F_kcsp);
  F_kcsp.ShowModal;
  F_kcsp.Free;
end;

procedure TF_zct.Action17Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_wldw, F_wldw);
  F_wldw.ShowModal;
  F_wldw.Free;
end;

procedure TF_zct.Action18Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_zycx, F_zycx);
  F_zycx.ShowModal;
  F_zycx.Free;
end;

procedure TF_zct.Action19Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_fylx, F_fylx);
  F_fylx.ShowModal;
  F_fylx.Free;
end;

procedure TF_zct.Action20Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_ygysdz, F_ygysdz);
  F_ygysdz.ShowModal;
  F_ygysdz.Free;
end;

procedure TF_zct.Action21Execute(Sender: TObject);
begin
  //
end;

procedure TF_zct.Action22Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_yxssdz, F_yxssdz);
  F_yxssdz.Caption:='与供应商对账';
  F_yxssdz.ShowModal;
  F_yxssdz.Free;
end;

procedure TF_zct.Action23Execute(Sender: TObject);