main.pas

适合行业为眼镜业

unit Main;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, ComCtrls, jpeg, StdCtrls, Mask,
  Grids, ImgList, TeEngine, TeeFunci, Series, TeeProcs,
  Chart,Registry,iniFiles, WinSkinData, fm_icon, Menus;
type
    Tfrm_Main = class(TForm)
    P_anel1: TPanel;
    Panel_Title: TPanel;
    Panel3: TPanel;
    StatusBar1: TStatusBar;
    P1: TPanel;
    Panel4: TPanel;
    ImageList2: TImageList;
    ImageList1: TImageList;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    ListView2: TListView;
    ListView3: TListView;
    ListView4: TListView;
    Cmd_Stock: TSpeedButton;
    Cmd_Sale: TSpeedButton;
    Cmd_Storage: TSpeedButton;
    Cmd_Money: TSpeedButton;
    Cmd_lead: TSpeedButton;
    Cmd_wholesale: TSpeedButton;
    Cmd_decision: TSpeedButton;
    Cmd_Cancel: TSpeedButton;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    SpeedButton36: TSpeedButton;
    Image_Title: TImage;
    TabSheet5: TTabSheet;
    ListView5: TListView;
    Panel6: TPanel;
    GroupBox1: TGroupBox;
    ImageList3: TImageList;
    SpeedButton2: TSpeedButton;
    Panel2: TPanel;

    ListView1: TListView;
    Lab_Title: TPanel;
    Frame11: TFrame1;
    Frame12: TFrame1;
    Frame13: TFrame1;
    Frame14: TFrame1;
    Frame15: TFrame1;
    spbbatch: TSpeedButton;
    TabSheet6: TTabSheet;
    lviewbatch: TListView;
    TabSheet7: TTabSheet;
    ListView6: TListView;
    Frame16: TFrame1;
    Frame17: TFrame1;
    Frame18: TFrame1;
    Frame19: TFrame1;
    Frame110: TFrame1;
    Frame111: TFrame1;
    ImageListView2: TImageList;
    ImageListview3: TImageList;
    Frame118: TFrame1;
    MainMenu1: TMainMenu;
    n40: TMenuItem;
    n41: TMenuItem;
    n42: TMenuItem;
    n43: TMenuItem;
    n44: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    n45: TMenuItem;
    n46: TMenuItem;
    n47: TMenuItem;
    n48: TMenuItem;
    n49: TMenuItem;
    n50: TMenuItem;
    Frame112: TFrame1;
    Frame113: TFrame1;
    Frame114: TFrame1;
    Frame115: TFrame1;
    Frame116: TFrame1;
    Timer1: TTimer;
    Tabcw: TTabSheet;
    ListView7: TListView;
    Frame117: TFrame1;
    N62: TMenuItem;
    Frame119: TFrame1;
    N63: TMenuItem;
    N64: TMenuItem;
    Frame120: TFrame1;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Cmd_CancelClick(Sender: TObject);
    procedure Cmd_leadClick(Sender: TObject);
    procedure Cmd_StockClick(Sender: TObject);
    procedure Cmd_StorageClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ListView1Click(Sender: TObject);
    procedure Cmd_SaleClick(Sender: TObject);
    procedure ListView2Click(Sender: TObject);
    procedure ListView3Click(Sender: TObject);
    procedure ListView4Click(Sender: TObject);
    procedure Cmd_MoneyClick(Sender: TObject);
    procedure Cmd_wholesaleClick(Sender: TObject);
    procedure Cmd_decisionClick(Sender: TObject);
    procedure ListView5Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure spbbatchClick(Sender: TObject);
    procedure GroupBox3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lviewbatchClick(Sender: TObject);
    procedure Frame16Click(Sender: TObject);
    procedure Frame17Click(Sender: TObject);
    procedure Frame18Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure Frame11Click(Sender: TObject);
    procedure Frame12Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure Frame118Click(Sender: TObject);
    procedure Frame15Click(Sender: TObject);
    procedure Frame14Click(Sender: TObject);
    procedure Frame13Click(Sender: TObject);
    procedure Frame19Click(Sender: TObject);
    procedure Frame110Click(Sender: TObject);
    procedure Frame111Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure ListView6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure n45Click(Sender: TObject);
    procedure ListView7Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure Frame17Label1Click(Sender: TObject);
    procedure Frame117Click(Sender: TObject);
    procedure n47Click(Sender: TObject);
    procedure Frame119Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N64Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

  private
    { Private declarations }
    DeltaZoom:Integer;
    DisPos: Integer;
    f:TiniFile;
    Land_Type,Land_Name:string;
    procedure Tmycolor(Skinids:integer);
  public
    { Public declarations }
    procedure ShowForm(FormClass: TFormClass);
  end;

var
  frm_Main: Tfrm_Main;
  x,y,i:integer;
  SysInfo: String;
implementation

uses Stock_Contract, Stock_Enter,
  Stock_Fad, Stock_Pay,  Stock_Report, Umanage_Fad,
   Price_Chang,
   Sale_Contract,
   Goods_Requirement,  Data, 
  Examine_Verify, func, Business_Draft, Quality_Check,
  Goods_Write,  Stock_Enter_Report, Company,
   Login, Unitdwzy, Umoneystock, Usysteminit, fm_Scrap,
  fm_Overflow, fm_Check, Uinstock, Ustockstates, usystem, Uflat, untdatadm,
  fm_BatchGuest, UntAskGoodsPlan, UntPosSendBill, UntPosAskBackBill,
  UntPosQuestBillStr, untPubQueryDB, Untps_query, Untwarn_limit,
  Untsalemoney, dlg_warning_limit, Untcompanyinit, UntSystemset,
  Stock_Fad_Query, Check_Query, untOut_strip, untScrap, untoverflow_query,
  Untwldw, Untbatchiput, untwldwgoodsquery, Untbatchmanager, Untbasegrid,
  UntWldwStaff, UntGoodsStaff, UntMoneyStaff, UntGoodsSale, UntContactwarn,
  Untbcjg, Untbcap, dlgkqdate, Unitkqsj, Untnewshopgoods, UntTotalStaff,
  UKqdatamanager, Ustocking, UPosGoods, UGlassStaff, onlygoods, UStockType,
  UDlgonlygoods, UTotalbreed, UUnPos, UMsgmanager, UntZsManager, Unitbbs,
  USetAgion, w_more, AccountSelect, Y_DealIn, UYdPosBill, UOrderGoods,
  UFlatQuery, Ufinance, UPresent, UNewShopQuery, UStock_cancel, UUnfinance,
  UBacthDataQuery, UBacthstaff;

{$R *.dfm}
///////////////////////////
procedure Tfrm_Main.Tmycolor(Skinids:integer);
var
  i:integer;
begin
  for i:=0 to self.ComponentCount-1 do
  begin
    if  (self.Components[i] is TFrame1) then
    begin
      case Skinids of
      0,2: (self.Components[i] as TFrame1).Color:=$d8e9ec;
      1:   (self.Components[i] as TFrame1).Color:=$F2ded5;
      3:   (self.Components[i] as TFrame1).Color:=$F0F0F0;
      4:   (self.Components[i] as TFrame1).Color:=$E0E0E0;
      5:   (self.Components[i] as TFrame1).Color:=$E8E8E8;
      6:   (self.Components[i] as TFrame1).Color:=$C0C0C0;
      end ;
    end;
  end;
end;
//////////////////////////
procedure Tfrm_Main.ShowForm(FormClass: TFormClass);
begin
  With FormClass.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
end;


procedure Tfrm_Main.FormClose(Sender: TObject; var Action: TCloseAction);
var
  sql:widestring;
begin
  try
    frm_Data.Socket_Connection.Connected:=False;  //释放服务器的连接
    dmmain.socketpublic.Connected:=false;
    detroy;//释放接口;      如果没有释放接口，会导致内存错误;
    //application.Terminate;
    Action:=Cafree;
  except
  end;
end;

procedure Tfrm_Main.Cmd_CancelClick(Sender: TObject);
var
  sql:widestring;
begin
    Image_Title.Top:=Cmd_Cancel.Top + 7;
    if Application.MessageBox(' 确定需要退出【连锁销售管理系统】吗？请确认！','【眼镜连锁销售管理系统】',mb_iconquestion+mb_okcancel)=idok then
    begin
      detroy;//释放接口;
      frm_Data.Socket_Connection.Connected:=False;  //释放服务器的连接
      dmmain.socketpublic.Connected:=false;
      application.Terminate;
    end
    else
    begin
      Cmd_Stock.Click;
    end;;
end;

procedure Tfrm_Main.Cmd_leadClick(Sender: TObject);
begin
    frm_Main.Panel_Title.Caption:='【连锁管理系统】->【基本信息】';
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=True;
    TabSheet5.TabVisible:=False;
    TabSheet6.TabVisible:=false;
    TabSheet7.TabVisible:=false;
    ListView1.Visible:=False;
    ListView2.Visible:=False;
    ListView3.Visible:=False;
    ListView4.Visible:=True;
    Tabcw.TabVisible:=false;
    Image_Title.Top:=Cmd_lead.Top + 7;
end;

procedure Tfrm_Main.Cmd_StockClick(Sender: TObject);
begin
    frm_Main.Panel_Title.Caption:='【连锁管理系统】->【采购管理】';
    Image_Title.Top:=Cmd_Stock.Top +7;
    TabSheet1.TabVisible:=True;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
    TabSheet5.TabVisible:=False;
    TabSheet6.TabVisible:=false;
    ListView1.Visible:=True;
    ListView2.Visible:=False;
    ListView3.Visible:=False;
    ListView4.Visible:=False;
    TabSheet7.TabVisible:=false;
    Tabcw.TabVisible:=false;
end;

procedure Tfrm_Main.Cmd_StorageClick(Sender: TObject);
begin
    frm_Main.Panel_Title.Caption:='【连锁管理系统】->【库存管理】';
    Image_Title.Top:=Cmd_Storage.Top + 7 ;
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=True;
    TabSheet4.TabVisible:=False;
    TabSheet5.TabVisible:=False;
    TabSheet6.TabVisible:=false;
    TabSheet7.TabVisible:=false;
    ListView1.Visible:=False;
    ListView2.Visible:=False;
    ListView3.Visible:=True;
    ListView4.Visible:=False;
    Tabcw.TabVisible:=false;
end;

procedure Tfrm_Main.FormShow(Sender: TObject);
var
    tmp: integer;
    FWidth,i:integer;
    s:string;
begin
    lab_title.Top:=PageControl1.Top;
    TabSheet1.TabVisible:=True;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
    Tmycolor(Skinid);//设置颜色；
    Cmd_stock.Click;
    tmp := 0;
    Scaled:=TRUE;
    DeltaZoom:=5;
    Lab_Title.Width:=self.Width;
    StatusBar1.Panels[0].Text:='当前操作员：'+trim(Handle_Man);
    StatusBar1.Panels[1].Text:='部门编号：'+trim(Handle_Part);
    StatusBar1.Panels[2].Text:='使用仓库编号：'+trim(shopid);
    getlock(qx,1,listview1.items.count);
    getlock(qx,2,listview3.items.count);
    getlock(qx,3,lviewbatch.items.count);
    getlock(qx,4,listview4.items.count);
    getlock(qx,5,listview5.items.count);
    getlock(qx,6,listview6.items.count);
    getlock(qx,7,listview7.items.count);
    qxstr:='';
      //////////////////////////////////////
end;

procedure Tfrm_Main.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if (shift = [ssAlt]) and (key = vk_F4) then
    begin
        shift := [];
        key := 0;
    end;
end;

procedure Tfrm_Main.ListView1Click(Sender: TObject);
begin
    if listview1.Selected <> nil then
    begin
      if loginlock[listview1.Selected.Index ]=0 then exit;
        case listview1.ItemIndex of
        0://商品需求
        begin
            Public_Do:='';
            Public_Do:='Goods_Requirement_str';
            Public_Do_Result:='';
            frm_Goods_Requirement:=Tfrm_Goods_Requirement.Create(self);
            frm_Goods_Requirement.ShowModal;
            frm_Goods_Requirement.Free;
        end;
        1: //采购合同
        begin
            Public_Do:='';
            Public_Do:='Stock_0002';
            Public_Do_Result:='';
            frm_Stock_Contract:=Tfrm_Stock_Contract.Create(self);
            frm_Stock_Contract.ShowModal;
            frm_Stock_Contract.Free;
        end;
        2: //来货登记
        begin
            Public_Do:='';
            Public_Do:='Stock_0008';
            Public_Do_Result:='';
            frm_Goods_Write:=Tfrm_Goods_Write.Create(self);
            frm_Goods_Write.ShowModal;
            frm_Goods_Write.Free;
        end;
        3: //质量验收
        begin
            Public_Do:='';
            Public_Do:='Stock_0007';
            Public_Do_Result:='';
            frm_Quality_Check:=Tfrm_Quality_Check.Create(self);
            frm_Quality_Check.ShowModal;
            frm_Quality_Check.Free;
        end;
        4: //采购退货管理
        begin
            Public_Do:='';
            Public_Do:='Stock_0004';
            Public_Do_Result:='';
            frm_Stock_Fad:=Tfrm_Stock_Fad.Create(self);
            frm_Stock_Fad.ShowModal;
            frm_Stock_Fad.Free;
        end;
        5: //采购入库
        begin
            Public_Do:='';
            Public_Do:='Stock_0003';
            Public_Do_Result:='';
            frm_Stock_Enter:=Tfrm_Stock_Enter.Create(self);
            frm_Stock_Enter.ShowModal;
            frm_Stock_Enter.Free;
        end;
        6:      //财务入库
        begin
            Public_Do:='money_stock';
            frmmoneystock:=tfrmmoneystock.Create(self);
            frmmoneystock.ShowModal;
            frmmoneystock.Free;
        end;
        7:  //采购付款
        begin
            Public_Do:='';
            Public_Do:='Stock_0005';
            Public_Do_Result:='';
            frm_Stock_Pay:=Tfrm_Stock_Pay.Create(self);
            frm_Stock_Pay.ShowModal;
            frm_Stock_Pay.Free;